/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来得到导线的跳跃高度时程，不知道代码哪里有问题，请各位大侠帮忙看看
|
