【求助】高手帮忙看下为什么不收敛

wanderingvoice

RADIUS=0.005
/PREP7
ET,1,182,1,,2
ET,2,169
ET,3,171
R,1
R,2,0,0,1,0.1
RMORE,0.1,0.01
MP,EX,1,2.1e11
MP,NUXY,1,0.3
MP,MU,1,0.15

TB,MISO,1,0,9   
TBPT,,3.8e-9,798
TBPT,,0.05,3567.5
TBPT,,0.1,5225
TBPT,,0.15,6532
TBPT,,0.2,7653
TBPT,,0.25,8654
TBPT,,0.3,9568
TBPT,,0.35,10415
TBPT,,0.4,11210
TBPT,,0.45,11961
TBPT,,0.5,12675.6
TBPT,,0.55,13358
TBPT,,0.6,14014
TBPT,,0.65,14645
TBPT,,0.7,15255



k,1,0.015
k,2,0.15
k,3,0.015,0.001
k,4,0.15,0.001
a,1,2,4,3
type,1
mat,1
LESIZE,1,,,700
LESIZE,3,,,700
LESIZE,2,,,8
LESIZE,4,,,8
AMESH,ALL
NUMMRG,ALL
ASEL,NONE
LSEL,NONE

WPAVE,0.105,0.006

ASEL,NONE
LSEL,NONE
CSWPLA,11,1      
K,20,RADIUS,180
K,21,RADIUS,-90
K,22,RADIUS,0
K,23,0,0
L,20,21
L,21,22
TYPE,2
REAL,2
LMESH,ALL
KMESH,23
KSEL,S,KP,,23
NSLK,S
*GET,N_LOAD,NODE,,NUM,MAX
ALLS

WPAVE,-1.05,-0.006
CSYS,0
NSEL,S,LOC,Y,0.001
TYPE,3
ESURF

NSEL,S,LOC,Y,0
D,ALL,UY
NSEL,s,LOC,X,0.015
D,ALL,UX
NSEL,ALL
FINISH
/SOLU
ANTYPE,STATIC
NLGEOM,ON
SOLC,ON
NSUBST,100,200,10
OUTRES,ALL,ALL
F,N_LOAD,FY,-5300
SOLVE
FINI