nsel,r,loc,y,(h/2) cp,1,uy,all nsel,all esel,all fini /solu
nsel,s,loc,x,rpl nsel,r,loc,y,0 d,all,uy
nsel,s,loc,x,0 d,all,ux nsel,all
outres,all,all fini
/prep7
mp,ex,1,exx mp,nuxy,1,0.325
tb,mkin,1 tbtemp,,strain
tbdata,,stn1,stn2,stn3,stn4 tbtemp,,
tbdata,,sts1,sts2,sts3,sts4 fini /solu pred,on outres,all,all nsubst,1 time,1e-6 f,3,fy,0 lswrite
autots,on nsubst,10 time,1
f,3,fy,-6000 lswrite
time,2 f,3,fy,750 lswrite
time,3
f,3,fy,-6000 lswrite
lssolve,1,4 fini
/post1 set,2 /dscal,1,1 pldisp,2 fini
第11页
/post26
nsol,2,2,u,y,uy2 rforce,3,1,f,y,ry1 add,2,2,,,uy2,,,-1 /grid,1
/axlab,x,deflection [mm] /axlab,y,force [n] xval,2 plvar,3 prvar,2,3 fini
第12页