! ANSYS振型叠加计算及工况组合例子
! Example for load cases and models combination in ANSYS
! 作者：陆新征，清华大学土木系
! Author: Lu Xinzheng Dept. Civil Engrg. of Tsinghua University

/PREP7
!*
ET,1,PLANE42
!*
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,30e9
MPDATA,PRXY,1,,.2
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,1,,2500
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DAMP,1,,.05
K,1,,,,
K,2,5,,,
K,3,5,.5,,
K,4,0,0.5,,
A,1,2,3,4
ESIZE,0.25,0,
MSHAPE,0,2D
MSHKEY,0
!*
!*
AMESH,ALL
!*
FINISH
/SOLU
!*
ANTYPE,2
!*
MODOPT,LANB,6
EQSLV,SPAR
MXPAND,0, , ,0
LUMPM,0
PSTRES,0
!*
MODOPT,LANB,6,0,0, ,OFF
FLST,2,1,4,ORDE,1
FITEM,2,4
!*
/GO
DL,P51X, ,ALL,
SAVE
/STATUS,SOLU
/REPLOT,RESIZE
SOLVE
FINISH
/POST1
PLDISP,0
SET,LIST
SET,,, ,,, ,1
/REPLOT
PLDISP,0
FINISH
/SOLU
EXPASS,1
MXPAND,6,0,0,0,0.001,
/STATUS,SOLU
SOLVE
FINISH
/POST1
/EFACE,1
AVPRIN,0, ,
!*
PLNSOL,S,X,0,1
SET,LIST
SET,,, ,,, ,3
/EFACE,1
AVPRIN,0, ,
!*
PLNSOL,S,X,0,1
FINISH
/SOLU
!*
ANTYPE,8
SPOPT,SPRS,6,0
DMPRAT,0,
MDAMP,1,.05, , , , , ,
!*
SVTYP,2,1,
SED,0,1,0,
ROCK,0,0,0,0,0,0,
!*
!*
FREQ,0.00001,100,0,0,0,0,0,0,0
!*
SV,0.05,1*50,1*50,
!*
/STATUS,SOLU
SOLVE
FINISH
/POST1
/INPUT,'lcase','mcom',,, 0
PLDISP,0
/EFACE,1
AVPRIN,0, ,
!*
PLNSOL,S,X,0,1
AVPRIN,0, ,
!*
PLESOL,S,X,0,1
LCWRITE,1, , ,
FINISH
/SOLU
!*
ANTYPE,0
ACEL,9.8,0,0,
/STATUS,SOLU
/REPLOT,RESIZE
SOLVE
FINISH
/POST1
PLDISP,2
LCWRITE,2, , ,
LCASE,1,
/REPLOT