/FILNAME,Structure ,1 /TITLE, Fatigue Analysis !进入前处理。 /PREP7 ET,1,PLANE82 !定义材料属性。 MPTEMP,,,,,,,, MPTEMP,1,0 MPDATA,EX,1,,2.06e5 MPDATA,PRXY,1,,0.3 !建立几何模型。 K,1,,,, K,2,,-100,, K,3,150,-60,, K,4,150,-45,, K,5,300,-30,, K,6,300,,, FLST,2,6,3 FITEM,2,1 FITEM,2,2 FITEM,2,3 FITEM,2,4 FITEM,2,5 FITEM,2,6 A,P51X ！以上几何模型完成。 !网格划分。 FLST,5,6,4,ORDE,2 FITEM,5,1 FITEM,5,-6 CM,_Y,LINE LSEL, , , ,P51X CM,_Y1,LINE CMSEL,,_Y LESIZE,_Y1,5, , , , , , ,1 !网格单元分配划分完成。 MSHAPE,0,2D MSHKEY,0 CM,_Y,AREA ASEL, , , , 1 CM,_Y1,AREA CHKMSH,'AREA' CMSEL,S,_Y AMESH,_Y1
！定义工作文件名。 ！定义工作文件标题。
!定义单元。 !定义材料属性。
！网格控制完成。
CMDELE,_Y CMDELE,_Y1 CMDELE,_Y2 !以上网格单元分配划分完成。 !施加约束。 FLST,2,1,4,ORDE,1 FITEM,2,1 /GO DL,P51X, ,ALL, FLST,2,1,4,ORDE,1 FITEM,2,6 /GO SFL,P51X,PRES,2, ！施加均布载荷。 FINISH /SOL /STATUS,SOLU SOLVE !求解。 /POST1 !输入 S-N 曲线。 FP,1,100,200,500,1000,1500,2000 FP,7,10000,15000,30000,60000,100000,150000 FP,13,200000,250000,300000,350000,400000,450000 FP,19,480000,500000 FP,21,250,240,230,220,210,200 FP,27,195,190,170,150,130,100 FP,33, 90, 80,60,50,30,25 FP,39,18,12 !定义节点号（参数化） 。 *SET,node_num,node(150,-45,0) !指定第一个应力位置。 FL,1,node_num,,,, !从数据库中提取应力值。 FSNODE,node_num,1,1, FS,node_num,1,2,1,0,0,0,0,0,0, ！存储节点应力。 FE,1,100000,2,even1 ！指定事件循环次数。