5-2.txt

是用apdl语言编的

/TITLE,TRUSS
/PREP7
ET,1,BEAM4
ET,2,LINK8
ET,3,SHELL63
R,1,3,0.25,2.25,3,1,,-0.0001,1
R,2,3,0.25,2.25,3,1,,,1
R,3,2,1/6,2/3,2,1,,,2/3
R,4,1
R,5,1,-1.5E-4
R,6,0.3
MP,EX,1,35E10
MP,DENS,1,3000
MP,PRXY,1,1/6
MP,EX,2,21E10
MP,DENS,2,3500
MP,PRXY,2,0.3
MP,EX,3,3.5E10
MP,DENS,3,2500
MP,PRXY,3,1/6
MP,EX,4,3.5E10
MP,DENS,4,2500
MP,PRXY,4,1/6
!>>>>>>>>>>>>>>>>>>>>>
N,1,0,-5,0
NGEN,4,1,1,,,12
N,5,0,-5,12
NGEN,3,1,5,,,12
NSYM,Y,7,ALL
TYPE,1
REAL,1
MAT,1
E,1,2
E,2,3
E,3,4
E,8,9
E,9,10
E,10,11
TYPE,1
REAL,2
MAT,1
E,5,6
E,6,7
E,12,13
E,13,14
E,5,12
E,6,13
E,7,14
TYPE,1
REAL,3
MAT,2
E,7,4
E,14,11
TYPE,2
REAL,4
MAT,3
E,5,2
E,2,7
E,12,9
E,9,14
TYPE,2
REAL,5
MAT,3
E,5,1
E,6,2
E,7,3
E,12,8
E,13,9
E,14,10
TYPE,3
REAL,6
MAT,4
E,1,2,9,8
E,2,3,10,9
E,3,4,11,10
NSYM,X,14,ALL
ESYM,,14,ALL
NUMMRG,ALL
NUMCMP,ALL
SAVE
/SOLU
D,17,UX
D,17,UY
D,17,UZ
D,22,UX
D,22,UY
D,22,UZ
D,4,UY
D,4,UZ
D,11,UY
D,11,UZ
ACEL,,,10
F,1,FZ,-10000
F,8,FZ,-10000
SAVE
SOLVE
!>>>>>>>>>>>>>>>>>>>>
/POST1
PLVECT,U
PRNSOL,U,Z
PRESOL,ELEM
FINISH
SAVE