单索找形 link180

K,1
K,2,120,-20
L,1,2 !
LESIZE,ALL,,,60,
LMESH,ALL
ALLSEL
D,1,ALL
D,2,ALL
D,ALL,UX
n1=nelem(30,1)
n2=nelem(30,2) !提取中间单元的节点号
ACEL,,10 !施加重力加速度
/POST1 !进入一般后处理
SET,LAST,LAST !读入最后一步分析数据
*GET, NFOR,ELEM,30,SMISC,1 !调出单元30 的轴力
COSREF=(NX(n2)-NX(n1))/DISTND(n1,n2) !计算余弦
NFOR=NFOR*ABS(COSREF) !计算跨中单元水平张力
ERR1=ABS(NFOR-9000)/9000 ! 计算当前索水平张力误差
FINISH
这个单索找形的命令中，ERR1=ABS(NFOR-9000)/9000中的9000是什么？