地震位移谱作用下的板梁结构响应（自己照参考书做的练习）

wlldhyz

源程序贴出来共享，希望对作这方面的人有一点帮助：）
/PREP7  
*SET,T,0.002
*SET,S,1.2E-5   
*SET,IZZ,1.6E-11
*SET,IYY,0.9E-11
*SET,B,0.003
*SET,H,0.004
*SET,EX,2.2E11  
*SET,PRXY,0.3   
*SET,DENS,7800  
ET,1,SHELL63
ET,2,BEAM4  
R,1,T   
R,2,S,IZZ,IYY,B,H   
MP,EX,1,EX  
MP,PRXY,1,PRXY  
MP,DENS,1,DENS  
/RGB,INDEX,100,100,100, 0   
/RGB,INDEX, 80, 80, 80,13   
/RGB,INDEX, 60, 60, 60,14   
/RGB,INDEX, 0, 0, 0,15  
/REPLOT
/VIEW,1,-0.4,-0.65,0.62
/VUP,1,Y
/ANG,1,36   
/REPLOT
K,1
K,2,,,0.4   
K,3,,,0.8   
K,4,,,1.2   
L,1,2   
L,2,3   
L,3,4   
/AUTO,1
/REP,FAST   
/PNUM,KP,1  
/PNUM,LINE,1
/PNUM,AREA,1
/PNUM,VOLU,0
/PNUM,NODE,0
/PNUM,TABN,0
/PNUM,SVAL,0
/NUMBER,0   
!*  
/PNUM,ELEM,0
/REPLOT
!*  
TYPE,2  
MAT,1   
REAL,2  
ESYS,0  
LESIZE,ALL,,,6,1
LMESH,ALL   
/PNUM,KP,1  
/PNUM,LINE,1
/PNUM,AREA,1
/PNUM,VOLU,0
/PNUM,NODE,0
/PNUM,TABN,0
/PNUM,SVAL,0
/NUMBER,0   
/PNUM,ELEM,1
/REPLOT
LGEN,2,ALL,,,,0.4,,,0   
LGEN,2,ALL,,,0.4,,,,0   
LSEL,S,LOC,X,0.4
LGEN,2,ALL,,,0.4,,,,0   
ALLS
A,2,6,14,10
/REPLOT
TYPE,1  
MAT,1   
REAL,1  
ESYS,0  
ALLS
LSEL,S,,,19,22  
LESIZE,ALL,,,5,1
AMESH,1
ALLS
AGEN,2,1,,,0.4  
/REPLOT
GPLOT   
ASEL,S,,,1,2
AGEN,2,ALL,,,,,0.8  
ALLS
NUMMRG,ALL  
NUMCMP,ALL  
LSEL,S,,,1,18   
ESLL,S  
ALLS
FINI
/SOLU   
ANTYPE,MODAL
MODOPT,SUBSP,10
NSEL,S,LOC,Z
D,ALL ,,,,,,ALL
ALLS
SOLVE   
FINISH  
/SOLU   
ANTYPE,SPECTR   
SPOPT,SPRS,10,YES   
SVTYP,3
SED,,1  
FREQ,0.5,1.0,2.4,3.8,17,18,20,32
SV,1,1.0E-3,0.5E-3,0.8E-3,0.7E-3,1.0E-3,0.7E-3,0.8E-3,0.3E-3
SOLVE   
FINISH  
/SOLU   
ANTYPE,MODAL
EXPASS,ON   
MXPAND,10,,,YES,0.005   
SOLVE   
FINISH  
/SOLU   
ANTYPE,SPECTR   
SRSS,0.15,DISP  
SOLVE   
FINISH  
/POST1  
SET,LIST
SET,LAST
PLDISP,0
PLNSOL,U,Z  
PLNSOL,U,SUM
PLNSOL,S,EQV
PRNSOL,DOF  
FINI

hmyi

是个好帖子，顶一下，谢谢搂主

sl3913

好人，好铁！
能有点文字说明就太好了！

wanli132

谢谢楼主的好心分享，真是好东西啊！
向楼主学习！

zengzhan

请问一下，这个程序的题目是什么？
板梁结构是什么样子的，什么书上有这个例子呢

大荒山

好人啊，谢谢

cibeidelaohu

学习一下