求助 悬臂梁的 地震分析。

Finish
/Clear,start
/Com,stuctural
/Filename,Analysis of Bridge,0
/PREP7
!!!国际单位（N，M，Kg）
!!!定义单元类型(Et--ITYPE)!!!
ET, 1, 82 !!!用以划分截面网格
ET, 2, Beam4 !!!竹材杆件
!!!!定义材料属性!!!!
MP, EX, 1, 1.0e10, !!!竹材
MP, DENS, 1, 950.0,
MP, NUXY, 1, 0.25,
!!!
MP, EX, 2, 1.0e10, !!!竹材
MP, DENS, 2, 950.0,
MP, NUXY, 2, 0.25,
!!!!!!!!!!!!!!!!!!!!
!!!塔杆件截面!!!SECTYPE--SECUM
!!!!!!!!!!!!!!!!!!!!
NumSection=10
*DIM, SectBridge, CHAR, NumSection
SectBridge(1) = 'Sect1', 'Sect2', 'Sect3', 'Sect4', 'Sect5', 'Sect6'
!!!!!!
*DIM, W, ,NumSection !!!宽
*DIM, T, ,NumSection !!!厚
W(1) = 0.1, 0.1, 0.1, 0.1, 0.1, 0.03 !!!宽b
T(1) = 0.1, 0.1, 0.1, 0.1, 0.1, 0.03 !!!厚t
!!!!!!
!!********* !!!!!!!上下弦1
Rectng, 0, T(1), 0, W(1)
!!!!!!!
Asel, all
NUMMRG,KP,,,LOW
LESIZE,ALL, , , 1, , , , ,1,
Amesh,all
SECWRITE, SectBridge(1), SECT, , 1
SECTYPE, 1, BEAM, MESH,
SECOFFSET, CENT, , ,
SECREAD, SectBridge(1), 'SECT', , MESH
Asel,all
Aclear,all
Adele,all,,,1
k,1,0,0,0
k,2,2,0,0
L, 1, 2
LATT, 1, 1, 2, , , , 1
/PREP7
Lsel, all
LESIZE, all, , , 1, , , , , 1
Lmesh,all
d,1,ALL,0
!---------------------------以上是模型一根悬臂梁!
!!!!!!!!!!!!1!!!瞬态地震做法!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
*DIM,accey,ARRAY,40,2,0, , ,
*CREATE,ansuitmp
*VREAD,accey(1,1),accey,txt,,JIK,2,40, , ,
(F4.2,F8.4)
*END
/INPUT,ansuitmp
FINISH
/SOL
ANTYPE,TRANS
NSUBST,1,,,1
OUTRES,ALL,1
*DO,i,1,40
TIME,0.01*i
ACEL,0,accey(i,2),0
ALLSEL,ALL
solve
*ENDDO
FINISH