wpcsys,-1,0
!cmsel,s,N_load,node !*get,Nnod,node,0,count !*Dim,Nodes,array,Nnod !*get,Nd,node,0,num,min !*do,I,1,Nnod,1 ! Nodes(I)=Nd
! F,Nd,FZ,-11000 !!!!!2000-20000 ! Nd=NDNEXT(Nd)
!*ENDDO !!SFTRAN !allsel,all !wpcsys,-1,0 ! !/sol
!cnvtol,f,,0.05,2 !定义收敛条件,使用缺省的VALUE !!nsubst,50 !定义子步数
!outres,all,all !输出每一子步的结果 !autots,1 !打开自动时间步控制 !lnsrch,1 !打开线性搜索
!ncnv,2 !如果不收敛时结束而不退出
!!neqit,50 !每一子步中方程的迭代次数限值 !pred,on !打开预测器 !
!ANTYPE,0 !NLGEOM,1
!NSUBST,100,0,0 !OUTRES,ERASE !OUTRES,ALL,LAST !AUTOTS,-1.0 !PSTRES,1 !TIME,20