源程序贴出来共享,希望对作这方面的人有一点帮助:)
/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 |