Finish
/clear
/prep7
ET,1,4
ET,2,21
MP,EX,1,1
MP,DENS,1,0
MP,PRXY,1,0.2
R,1,2e11,2.1e12,1.8e13,10,10,10,
RMORE,0,9.84e11,1,1
R,2,200000,200000,200000,4.5e7
R,3,100000,100000,100000,,2.25e7
TYPE,1
MAT,1
REAL,1
*DO,i,1,31
N,i,(i-1)*10,0,0
*ENDDO
*DO,i,1,30
EN,i,i,i+1
*ENDDO
TYPE,2
REAL,3
EN,31,1
EN,61,31
REAL,2
*DO,i,32,60
EN,i,i-30
*ENDDO
D,1,UX,0
D,1,UY,0
D,1,UZ,0
D,1,ROTX,0
D,31,UY,0
D,31,UZ,0
D,31,ROTX,0
/SOLU
ANTYPE,MODAL
MODOPT,LANB,10
SOLVE
|