九、扳手
fini /cle
/filname,spanner,1 /prep7
et,1,plane42 et,2,solid45 mp,ex,1,2e11 MP,prxy,1,0.3
RPR4,6,0,0,0.01 k,7
k,8,,,0.05 k,9,,0.1,0.05 lstr,7,8 lstr,8,9
LFILLT,7,8,0.015 lstr,1,4 ASBL,1,10 mshkey,1,2d mshape,0 lsel,s,,,1,3,1 LESIZE,all,,,3 alls
lsel,s,,,7,9,1 lesize,all,0.01 alls
AMESH,2,3 asel,s,loc,z,0
VDRAG,all,,,,,,7,9,8 alls
ACLEAR,2,3,1 eplot,all fini /sol DA,2,all DA,3,all
ksel,s,,,24,29,1 FK,all,fx,100 ksel,all solve
!在工作平面上生成一个规则多边形面或棱柱体． !THETA：从工作平面X轴到多边形面或棱柱体顶点生成第一个关
键点的角度，单位为度．
!ACLEAR，NA1，NA2，NINC（清除面单元网格） !RPR4, NSIDES, XCENTER, YCENTER, RADIUS, THETA, DEPTH fini /post1 pldisp,2
PLNSOL,s,eqv !显示模型外表面各点的结果
!eqv即von mises stress,为第四强度理论的当量应力 wpoffs,,,0.02
/type,1,sect !利用切片图可以显示模型内部各点的结果 !/TYPE，WN，Type（定义显示类型） /cplane,1 !/CPLANE，KEY（定义切平面） /replot Fini
习题9.3、轧机机架
fini /cle
/filname,machine bracket,1 /prep7
et,1,plane42 et,2,solid45 mp,ex,1,2e11 MP,prxy,1,0.3 k,1 k,2,1
k,3,1.6,1.8 k,4,2.25,1.8 k,5,2.25,2.2 k,6,1.8,2.2 k,7,1.6,2.4 k,8,1.6,7.3 k,9,0,7.3 k,10,0,1.01 k,11,0.4,1.01 k,12,0.4,1.99 k,13,0.65,1.99 k,14,0.65,6.29 k,15,0,6.29 k,16,0.15,6.29 k,17,0.15,1.01
LSTR, 1, LSTR, 2, LSTR, 3, LSTR, 4, LSTR, 5, LSTR, 6, LSTR, 7, LSTR, 8, LSTR, 9, LSTR, 15, LSTR, 16, LSTR, 14, LSTR, 13, LSTR, 12, LSTR, 11, LSTR, 17, LSTR, 10, 2 3 4 5 6 7 8 9 15 16 14 13 12 11 10 1
17 LFILLT,1,2,0.29 LFILLT,7,8,0.6 LFILLT,11,12,0.1 LFILLT,12,13,0.1 LFILLT,14,15,0.1 al,all
arSYM,X,all, , , ,0,0 !Arsym,ncomp,na1,na2,ninc,kinc,noelem,imove !复制一组面积，对称于轴ncomp；kinc为每次复制时面积号码的增加量。 aadd,all
k,100,0,0,0.65 lstr,1,100 mshkey,0,2d mshape,0 smrtsize,1 amesh,all
VDRAG,all,,,,,,9 fini /sol da,3,uz da,42,uz asel,s,,,22,23 asel,a,,,32,33 SFA,all,,pres,1e7 alls solve /post1
plnsol,s,eqv,2