|
|
本人刚接触索寞结构及APDL找形,最近尝试对在找形论文中经常出现的一例子进行找形,进过反复调试,还是有很多错误,现求助于索膜结构中的高手们,忘不吝赐教,你的每一句话,也许对我都是莫大的帮助.....
!马鞍形膜面找形分析
!鞍形膜面找形2010/3/26
finish
/clear
/prep7
EM1=1.6E11 !索的弹性模量
A1=49/10000 !索的面积
ISTRAN=0.999 !索的应变
EM2=8e8/100000 !膜的虚拟弹性模量
H=2 !节点提升高度
T=1/1000 !膜厚
BOS=0.3 !泊松比
SIG0=3000 !膜的预应力
F=30000 !索的预应力
REF=1.0 !热膨胀系数
DETT=-(1-BOS)*SIG0/(EM2*REF) !降低温度
ET,1,LINK10
ET,2,SHELL41
MP,EX,1,EM1
MP,PRXY,1,BOS
MP,EX,2,EM2
MP,PRXY,2,BOS
MP,ALPX,2,REF
R,1,A1,ISTRAN
R,2,T
K,1,-8,0,0$K,2,8,0,0
K,3,0,8,0$K,4,0,-8,0
L,1,4$L,4,2
L,2,3$L,3,1
A,1,4,2,3 !
LATT,1,1,1
AATT,2,2,2
DK,1,UX,,,,,UY,UZ !在关键点上定义约束条件。
DK,2,UX,,,,,UY,UZ
DK,3,UX,,,,,UY,UZ
DK,4,UX,,,,,UY,UZ
DK,1,UZ,H
DK,2,UZ,H
DK,3,UZ,-H
DK,4,UZ,-H
lesize,all,,,20
lsel,all
ASEL,ALL
mshape,1 !指定单元为三角形单元
mshkey,1 !指定映射网格划分
amesh,all
TREF,0
ASEL,ALL
BFA,ALL,TEMP,DETT !温度荷载
!第一次找形分析
/solu !保存模型及求解数据
antype,0 !申明分析类型。0表示静力分析
nlgeom,on !打开大变形
sstif,on !打开应力刚度选项
nsubst,15 !子步数
outres,all,all
KBC,0
time,1
solve
finish
!有形.............
!更新坐标
/prep7
upcoord,1 !更新所有节点坐标
finish
!多次迭代
*do,i,1,5
/prep7
EM1=1.6E11 !索的真实弹性模量
EM2=8E8 !膜的真实弹性模量
MP,EX,1,EM1
MP,EX,2,EM2
F=2E4
A1=49/10000
ISTRAN=F/A1*EM1 !索的应变量
R,1,A1,ISTRAN
R,2,T
DETT=-(1-BOS)*SIG0/(EM2*REF)
/solu
DK,1,UX,,,,,UY,UZ !在关键点上定义约束条件。
DK,2,UX,,,,,UY,UZ
DK,3,UX,,,,,UY,UZ
DK,4,UX,,,,,UY,UZ
TREF,0 !参考温度0°
BFA,ALL,TEMP,DETT
ASEL,ALL
solve
finish
/prep7
upcoord,1
finish
*enddo
|