大位移引起的收敛问题.docVIP

【讨论】问题悬赏解答——课题之三（大位移引起的收敛问题）出了点问题，重新编辑了以下，如下： fini /clear /config,nres,5000 /prep7 et,1,beam23,,1,,1,,2 r,1,0.025 mp,ex,1,2790 mp,nuxy,,0.42 tb,biso,1 tbdata,1,23,0 K,1,0,0,0? ?K,2,0,0.4,0 k,3,0,3.6,0 l,1,2 l,2,3 lesize,1,,,200 lesize,2,,,400 lmesh,all /solu d,1,ux d,1,uy d,1,rotz d,2,rotz nlgeom,on nsubst,120 outres,all,all time,1 f,2,fx,-0.0006 solve time,2 f,2,fx,0 solve time,3 d,202,rotz ddele,2,rotz solve DELTAX=0.05??TNUM=3.4/DELTAX??*DO,I,1,TNUM????TIME,I+3????XX=DELTAX*I????YY=1-XX*XX/(3.4*3.4)????*IF,YY,LT,1E-6,THEN??????YY=0????*ENDIF??