本帖最后由 ylan 于 2020-9-18 08:15 编辑  
 
/CLEAR 
/FILNAME,XIAOLUNWEN 
/TITLE,COVERELAPLA 
 
/PREP7 
ET,1,PLANE183,,,2 
MP,EX,1,2E11  
MP,PRXY,1,0.3 
TB,BKIN,1,1 
TBTEMP,0 
TBDATA,1,220E6,0.794E11    
 
PCIRC,22.5E-3,65E-3,0,90 
 
!划分网格 
ESIZE,1.0625E-3 
MSHKEY,1 
MSHAPE,0 
AMESH,ALL 
FINISH 
 
!求解 
 
/SOLU 
DL,4,,SYMM    !对称边界条件 
DL,2,,SYMM 
AUTOTS,ON 
DELTIM,0.2,0.1,0.3 
KBC,0  !阶跃载荷 
 
TIME,1 
SFL,3,PRES,200E6   
LSWRITE 
 
TIME,2 
SFL,3,PRES,0       !卸载 
LSWRITE 
 
 
ISWRITE,ON 
LSSOLVE,1,2 
FINISH 
 
/POST1 
RSYS,1 
SET,1 
PLNSOL,S,EQV 
PATH,ST1,2 
PPATH,1,,0,22.5E-3 
PPATH,2,,0,65E-3 
PDEF,SE,S,EQV,AVG 
PLPATH,SE 
 
SET,2 
PDEF,SR,S,X 
PDEF,ST,S,Y 
PDEF,SEQV,S,EQV 
PLPATH,SR,ST,SEQV 
 
FINISH 
 
/SOLU 
 
DL,4,,SYMM    !对称边界条件 
DL,2,,SYMM 
 
KBC,0  !阶跃载荷 
 
ISFILE,READ,XIAOLUNWEN,IST,,1 
SFL,3,PRES,180E6 
ISWRITE,OFF 
SOLVE 
FINISH 
 
/POST1 
 
PLNSOL,S,EQV 
PATH,ST1,2 
PPATH,1,,0,22.5E-3 
PPATH,2,,0,65E-3 
PDEF,YINGLI,S,EQV,AVG 
PLPATH,YINGLI 
 
FINISH 
 
 
!疲劳计算 
 
/POST1 
FTSIZE,1,2,2     
FP,1,1.15E5,1.57E5,2.75E5,4.24E5,4.27E5,4.82E5   
FP,7,7.02E5,9.46E5,1.59E6,2.68E6,3.09E6, 
FP,13,,,,,, 
FP,21,260E6,250E6,240E6,230E6,220E6,215E6 
FP,27,205E6,200E6,170E6,165E6,155E6, 
FP,33,,,,,, 
 
 
  
FINISH 
 
不贴全,尤其最后,故意把有些东西删掉了  |