声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 1632|回复: 0

[综合讨论] 索单元找形后是处于悬链线状态吗?

[复制链接]
发表于 2011-9-8 10:26 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

x
最近使用LINK 10 索单元,对两端固定的悬挂导线进行找形。
我想请教下,在ANSYS中,导线找形是基于什么理论的?
因为我找到的初始位形跟悬链线理论计算的结果差距比较大,望大家指点迷津!
使用的命令流如下:

FINISH
/CLEAR
/FILNAME,EX820
/PREP7
! 1.定义儿何参数和荷载参数等,定义单元类型和材料性质
L0=1055  
AREA=6.336E-4
EM=10.094E10                              !定义几何参数、面积、弹性模量
Q0=26.999                           !定义索单位重量(N/m)和集中荷载(N)
H0=64280.2                               !定义自重作用下的水平张力(已知)
ERR0=1/1000
ENUM=100
ISTRAN=1.0051E-3                         !定义迭代条件,单元数目、初应变
ET,1,LINK10
R,1,AREA,ISTRAN                            !定义单元和实常数
MP,EX,1,EM
MP,PRXY,1,0.3                                !定义材料性质
MP,DENS,1,Q0/AREA                       !采用换算密度,且为N/m3单位
! 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
SSTIF,ON                       !定义静态求解、打开大变形与应力刚度选顶
NSUBST,20
OUTRES,ALL,ALL
SOLVE
FINISH                                     !定义子步数、输出结果、求解
/POST1
SET,LAST,LAST                   !进入后处理,选择最后荷载步的最后子步
*GET,NFOR,ELEM,ENUM/2,SMISC,1      !获得跨中单元的索力并计算其余弦
COSREF=(NX(NODE2)-NX(NODE1))/DISTND(NODE1,NODE2)
NFOR=NFOR*ABS(COSREF)       !计算跨中单元的水平张力(可用其他单元)
ERR1=ABS(NFOR-H0)/H0
FINISH                                   !计算当前索水平张力误差
/PREP7                                   !进人前处理,更新有限元模型
*IF,ERR1,LT,0.05,THEN                     !如果误差小于5%时
UPGEOM,0.1,LAST,LAST,EX820,RST
*ELSE                                    !模型更新系数采用较小数值
UPGEOM,1,LAST,LAST,EX820,RST
*ENDIF                                !否则模型更新系数采用较大数值
*IF,ERR1,LT,ERR0,EXIT
*ENDDO                                   !如满足迭代条件,退出循环
回复
分享到:

使用道具 举报

您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-11-26 08:58 , Processed in 0.062684 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表