一个施加载荷的例子，请大家帮忙修改

byb

编写的如下命令流，却无法收敛，请版主，大侠们帮忙修改修改～～～～谢谢～～～


finsih
/clear
BREADTH=341
LENGTH=-1000
B1=83
DEGREE=8
/prep7
BLC4,0,0,BREADTH,LENGTH  
MP,DENS,1,7800  
MP,EX,1,210e9   
MP,NUXY,1,0.3   
TB,BKIN,1,,,,   
TBDAT,1,235e6   
TBDAT,2,105e7
ET,1,SHELL181   
KEYOPT,1,1,0
KEYOPT,1,3,0
KEYOPT,1,8,0
KEYOPT,1,9,0
KEYOPT,1,10,0   
R,1,8, , , , , ,
!定义材料
LSEL,S,LOC,X,0  
LSEL,A,LOC,X,BREADTH
LESIZE,ALL,20
ALLSEL,ALL  
LSEL,S,LOC,z,0  
LSEL,A,LOC,z,LENGTH
LESIZE,ALL,20
AMESH,ALL
!划分网格
LSEL,S,LOC,X,0
DL,ALL,,SYMM
!施加对称载荷
ALLSEL,ALL   
wpoff,B1
NSEL,S,LOC,Y,0  
NSEL,R,LOC,X,0,B1
D,ALL,,,,,,ALL
!在全局坐标系下0～B1段施加约束
ALLSEL,ALL
NSEL,S,LOC,Y,0
NSEL,R,LOC,X,B1,BREADTH
CSWPLA,11,0,1,1,
CSYS,11,
*DEL,_FNCNAME   
*DEL,_FNCMTID   
*DEL,_FNCCSYS   
*SET,_FNCNAME,'XX'  
*SET,_FNCCSYS,11
! /INPUT,XX.func
*DIM,%_FNCNAME%,TABLE,6,5,2,,,,%_FNCCSYS%   
!   
! Begin of equation: {X}
*SET,%_FNCNAME%(0,0,1), 0.0, -999   
*SET,%_FNCNAME%(2,0,1), 0.0
*SET,%_FNCNAME%(3,0,1), 0.0
*SET,%_FNCNAME%(4,0,1), 0.0
*SET,%_FNCNAME%(5,0,1), 0.0
*SET,%_FNCNAME%(6,0,1), 0.0
*SET,%_FNCNAME%(0,1,1), 1.0, 99, 0, 1, 2, 0, 0  
*SET,%_FNCNAME%(0,2,1),   0
*SET,%_FNCNAME%(0,3,1),   1
*SET,%_FNCNAME%(0,4,1),   0
*SET,%_FNCNAME%(0,5,1),   0
! End of equation: {X}  
!   
! Begin of equation: (1-cos(DEGREE))*{X}
*SET,%_FNCNAME%(0,0,2), 1000, -999  
*SET,%_FNCNAME%(2,0,2), 0.0
*SET,%_FNCNAME%(3,0,2), 0.0
*SET,%_FNCNAME%(4,0,2), 0.0
*SET,%_FNCNAME%(5,0,2), 0.0
*SET,%_FNCNAME%(6,0,2), 0.0
*SET,%_FNCNAME%(0,1,2), 1.0, -1, 10, 8, 0, 0, 0
*SET,%_FNCNAME%(0,2,2), 0.0, -2, 0, 1, 0, 0, -1
*SET,%_FNCNAME%(0,3,2),   1, -3, 0, 1, -2, 2, -1
*SET,%_FNCNAME%(0,4,2), 0.0, -1, 0, 1, -3, 3, 2
*SET,%_FNCNAME%(0,5,2), 0.0, 99, 0, 1, -1, 0, 0
! End of equation: (1-cos(DEGREE))*{X}   
!-->
!建立(1-cos(DEGREE))*{X} 数组
*DEL,_FNCNAME   
*DEL,_FNCMTID   
*DEL,_FNCCSYS   
*SET,_FNCNAME,'ZZ'  
*SET,_FNCCSYS,11
! /INPUT,ZZ.func
*DIM,%_FNCNAME%,TABLE,6,3,2,,,,%_FNCCSYS%   
!   
! Begin of equation: {X}
*SET,%_FNCNAME%(0,0,1), 0.0, -999   
*SET,%_FNCNAME%(2,0,1), 0.0
*SET,%_FNCNAME%(3,0,1), 0.0
*SET,%_FNCNAME%(4,0,1), 0.0
*SET,%_FNCNAME%(5,0,1), 0.0
*SET,%_FNCNAME%(6,0,1), 0.0
*SET,%_FNCNAME%(0,1,1), 1.0, 99, 0, 1, 2, 0, 0  
*SET,%_FNCNAME%(0,2,1),   0
*SET,%_FNCNAME%(0,3,1),   1
! End of equation: {X}  
!   
! Begin of equation: sin(DEGREE)*{X}
*SET,%_FNCNAME%(0,0,2), 1000, -999  
*SET,%_FNCNAME%(2,0,2), 0.0
*SET,%_FNCNAME%(3,0,2), 0.0
*SET,%_FNCNAME%(4,0,2), 0.0
*SET,%_FNCNAME%(5,0,2), 0.0
*SET,%_FNCNAME%(6,0,2), 0.0
*SET,%_FNCNAME%(0,1,2), 1.0, -1, 9, 8, 0, 0, 0  
*SET,%_FNCNAME%(0,2,2), 0.0, -2, 0, 1, -1, 3, 2
*SET,%_FNCNAME%(0,3,2),   1, 99, 0, 1, -2, 0, 0
! End of equation: sin(DEGREE)*{X}   
!-->
!建立sin(DEGREE)*{X}  数组
D,ALL, , %XX% , , , ,UX, , , , ,   
D,ALL, , %ZZ% , , , ,UZ, , , , ,
!在B1～BREADTH段施加X方向的(1-cos(DEGREE))*{X} 位移载荷，施加Z方向的sin(DEGREE)*{X} 位移载荷
ALLSEL,ALL  
/REPLOT
FINISH
/SOLU
ANTYPE,0
NLGEOM,1
NSUBST,30,50,0  
AUTOTS,1
LNSRCH,1
PRED,ON,,ON
TIME,1  
!设置求解非线性选项
SOLVE