FINISH
/CLEAR
/FILN,E46
/TITLE,RELIABILTY
!
*SET,LENGTH,200                       ! ֳ
*SET,WIDTH,30                         ! ֿ
*SET,LOAD,500                         ! ʩڰϵغ
*SET,SIGMA,200                        ! Ӧֵ
*SET,DETSS,0                          ! 趨ֵ
*SET,HALFWIDTH,WIDTH*0.5              ! 
/PREP7  
!ʵ
K,1,180,15,0                          ! ؼ1
PCIRC,25,,0,360                       ! Բ
RECTNG,0,LENGTH,HALFWIDTH,-HALFWIDTH  ! 
WPOFF,LENGTH,0,0                      ! ƽƹؼλ(LENGTH,0,0)
PCIRC,HALFWIDTH,,0,360                ! Բ 
ET,1,SHELL63                          ! 嵥Ԫ
R,1,5                                 ! ʵ
MP,EX,1,2.1E8                         ! 嵯ģ  
MP,PRXY,1,0.3                         ! 岴ɱ
MP,DENS,1,7.8E-6                      ! ܶ
RPR4,6,-LENGTH,0,HALFWIDTH,360        ! 
AADD,1,2,3                            ! 
ASBA,5,4                              ! 

!
ESIZE,3,0                             ! 趨ԪС
MSHAPE,0,2D                           ! 
MSHKEY,0                              ! 趨ɻַʽ
AMESH,ALL                             ! 
FINISH 

! 
/SOLU 
CSYS,1                                ! 
NSEL,S,LOC,Y,60                      
NSEL,A,LOC,Y,120
NSEL,A,LOC,Y,180
NSEL,A,LOC,Y,240
NSEL,A,LOC,Y,300
NSEL,A,LOC,Y,360  
NSEL,R,LOC,X,HALFWIDTH
D,ALL,ALL,0                           ! ڲڵʩȫԼ
CSYS,0                                ! ѿ
NSEL,S,LOC,X,LENGTH
NSEL,R,LOC,Y,HALFWIDTH                ! ѡаղԲ
F,ALL,FY,-LOAD                        ! ʩغ
ALLSEL                                ! ȫѡ
SOLVE                                 ! 

!  
/POST1
NSORT,S,EQV                           ! սڵЧӦСԽڵ
*GET,MAXSTR,SORT,,MAX                 ! ȡӦֵMAXSTR
DETSS=SIGMA-MAXSTR                    ! ʧЧ
LGWRITE,RELIAB_BANSHOU,TXT            ! ɿԷļ
FINISH 
!ɿԷ
/PDS                                  ! ʷģ 
PDANL,'RELIAB_BANSHOU','TXT',' '      ! ѡļ 
PDVAR,LENGTH,WEIB,2,250,100           ! LENGTHΪWEIBULLֲ
PDVAR,WIDTH,UNIF,29,31                ! WIDTHΪUNIFֲ
PDVAR,LOAD,BETA,1,3,0,600             ! LOADΪBETAֲ
PDVAR,SIGMA,GAUS,200,4,0,0            ! SIGMAΪGAUSֲ
PDVAR,DETSS,RESP                      ! 
PDMETH,MCS,LHS                        ! ѡΪM.C. 
PDLHS,100,1,RAND, ,'ALL ', , , ,INIT  ! 趨ѡ
PDEXE                                 ! ִпɿԷ
!쿴ɿԷ
PDSHIS,SOLU01,DETSS,SAMP,0.95,        ! ͼʾDELTSʷ
PDSHIS,SOLU01,DETSS,MEAN,0.95,        ! ͼʾDELTSֵʷ
PDSHIS,SOLU01,DETSS,STDV,0.95,        ! ͼʾDELTSʷ
PDHIST,SOLU01,DETSS, ,REL             ! ʾDELTSĳֵƵȵֱͼ
PDCDF,SOLU01,DETSS,EMP,0.95,100,      ! ʾDELTSķֲͼ
PDPROB,SOLU01,DETSS,GT, ,'    ',0.95, ! 鿴DETSSС0ŶΪ95%ʱĸ
PDSENS,SOLU01,DETSS,BOTH,RANK,0.025,  ! ʾ
PDSCAT,SOLU01,LENGTH,DETSS,POLY,1, ,  ! LENGTHDELTSж
PDWRITE,REPORT                        ! ɿɿԷ