[求助]ANSYS在算单条悬索的时候不能收敛。

本人才学习ANSYS不久，做一个单条悬索算承载力的模型，求哪位ANSYS高手帮我看看，不晓得就是收敛，也不晓得怎么改！
----------------------------------------------------------------------------------------------------------------------------------
! 123456 悬索直接迭代求解
FINISH$/CLEAR$/FILNAME,CABLE$/PREP7
! 1.定义几何参数和荷载参数等，定义单元类型和材料性质
L0=6$AREA=0.02945163$EM=7.89E10 !定义几何参数，面积，弹性模量
Q0=27.2856$QF=5880 !定义索的单位重量（N/m）和集中荷载（N）
H0=306.9 !定义自重作用下的水平张力（已知）
ERR0=1/1000$ENUM=30$ISTRAN=1.0E-6 !定义迭代条件，单元数目，初应变
ET,1,LINK10$R,1,AREA,ISTRAN !定义单元和实常数
MP,EX,1,EM$MP,PRXY,1,0.3 !定义材料性质
MP,DENS,1,Q0/AREA !采用换算密度，且为N/m^3单位
! 2.在弦线位置创建模型，施加约束和自重荷载
K,1$K,2,L0$L,1,2 !创建几何模型
LESIZE,ALL,,,ENUM$LMESH,ALL !生成有限元模型
D,NODE(0,0,0),ALL$D,NODE(L0,0,0),ALL !施加约束
NODE1=NELEM(ENUM/2,1) !获取中间单元的两个节点
NODE2=NELEM(ENUM/2,2) !
ACEL,,1.0$FINISH !施加值为1的加速度（自重）
PASS1=1
*DOWHILE,PASS1
/SOLU$ANTYPE,0$NLGEOM,ON$SSTIE,ON !定义静态求解、打开大变形与应力刚度选项
NSUBST,20$OUTRES,ALL,ALL,$SOLVE$FINI !定义子步数、输出结果、求解
/POST1$SET,LAST,LAST !进入后处理，选择最后荷载步的最后子步
*GET,NFOR,ELEM,ENUM/2,SMISC,1 !获得跨中单元的索力
ERR1=ABS(NFOR-H0)/H0$FINISH
/PREP7
*IF,ERR1,LT,0.05,THEN
UPGEOM,0.1,LAST,LAST,CABLE,RST$*ELSE
UPGEOM,1,LAST,LAST,CABLE,RST$*ENDIF
*IF,ERR1,LT,ERR0,EXIT$*ENDDO
! 3.获得初始状态索长、无应力索长等
/POST1$SET,LAST,LAST$PLESOL,SMISC,1
ETABLE,EPELT,LEPEL,1
S=0$DS=0
*DO,I,1,ENUM
*GET,ELENG,ELEM,I,LENG
*GET,EPEL,ELEM,I,ETAB,EPELT
S=S+ELENG$DS=DS+ELENG*EPEL
*ENDDO
S0=S-DS
! 4，求解外荷载作用下的内力和变形
/SOLU$NLGEOM,ON$NSUBST,20$OUTRES,ALL,ALL
F,NODE1,FY,-QF$SOLVE$FINISH
-------------------------------------------------------------------------------------------------------------
这是出现的结果：