中华钢结构论坛 China Structure Forum

标题: 使用单元生死法模拟输电线脱冰振动的问题 [打印本页]

作者: dongni00 时间: 2015-3-13 16:49 标题: 使用单元生死法模拟输电线脱冰振动的问题

/CLEAR
/FILNAME,DAOXIAN
/PREP7
L0=120
XH=20.0
AREA=7.016E-4
Q0=65
QF=10000
H0=9000
ENUM=60
ISTRAN=0.999
EM=H0/(AREA*ISTRAN)*SQRT(L0*L0+XH*XH)/L0
ET,1,LINK10
R,1,AREA,ISTRAN
MP,EX,1,EM
MP,PRXY,1,0.3
MP,DENS,1,Q0/AREA/(1-ISTRAN)
K,1
K,2,L0,-XH
L,1,2
LESIZE,ALL,,,ENUM
LMESH,ALL
D,NODE(0,0,0),ALL
D,NODE(L0,-XH,0),ALL
D,ALL,UX
ACEL,,1.0
FINISH
/SOLU
ANTYPE,0
NLGEOM,ON
NSUBST,20
OUTRES,ALL,ALL
SOLVE
FINISH
/PREP7
UPGEOM,1,LAST,LAST,DAOXIAN,RST
FINISH
FINISH
/PREP7
EM=7.89E10
ISTRAN=1.0E-6
MP,EX,1,EM
MP,DENS,1,Q0/AREA
R,1,AREA,ISTRAN
FINISH
/SOLU
DDELE,ALL,ALL
D,NODE(0,0,0),ALL
D,NODE(L0,-XH,0),ALL
ACEL,,1.0
SOLVE
FINISH
/PREP7
R,2,3.14E-4
MP,EX,2,10E7
MP,PRXY,2,0.3
MP,DENS,2,1.06
EGEN,2,0,3,58,,1,,1
/SOLU
ANTYPE,TRANS
OUTRES,ALL,ALL
NLGEOM,ON
NROPT,FULL
TIMINT,OFF
TIME,0.05
ACEL,,9.8
KBC,1
NSUBST,10
SOLVE
TIMINT,ON
DELTIM,1E-6
KBC,1
ESEL,S,REAL,,2
EKILL,ALL
ALLSEL,ALL
SOLVE
FINISH
/POST26
NSOL,2,30,U,Y
PLVAR,2
想在脱冰的瞬间杀死单元2来得到导线的跳跃高度时程，不知道代码哪里有问题，请各位大侠帮忙看看

作者: baodaoyangzhong 时间: 2015-4-10 17:28

问题后来解决了么？

欢迎光临中华钢结构论坛 China Structure Forum (http://bbs.okok.org/)