/PREP7  

!!!Elementtyp 

ET,1,SOLID92



!!!Materaileigenschaften

MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,210000 
MPDATA,PRXY,1,,0.3  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,DENS,1,,7.85E-9  




!!!Modellbildung

BLOCK,0,440,0,40,0,2,   




!!!Meshen

ESIZE,5,0,  
MSHKEY,0
MSHAPE,1,3d 
CM,_Y,VOLU  
VSEL, , , ,       1 
CM,_Y1,VOLU 
CHKMSH,'VOLU'   
CMSEL,S,_Y  


VMESH,_Y1   


CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  






!!! Modalanalyse

ANTYPE,2
MODOPT,LANB,10  
EQSLV,SPAR  
MXPAND,10, , ,0 
LUMPM,0 
PSTRES,0
MODOPT,LANB,10,0,1600, ,OFF 
   
FLST,2,1,5,ORDE,1   
FITEM,2,5   
!*  
/GO 
DA,P51X,ALL,0   

FINISH  
SOLVE   
FINISH  
/POST1  
SET,LIST

finish






!!! Transientanalyse

/SOLU
antype,trans
trnopt,full  
eqslv,sparse
nlgeom,on

betad,0.03

outres,erase
outres,all,none
outres,nsol,all
outres,rsol,all
outres,nload,all
outres,strs,all
outres,epel,all
outres,eppl,all
outres,v,all
outres,a,all





!!!Impulskraft

!!!!Kraft F=4
TIME,0.0065
f,1944,FZ, 4
kbc,0
nsubst,20,20,10
solve

!!!Kraft F=0
time,0.008
f,1944,FZ,0
kbc,1
nsubst,20,20,10

solve


time,.25
f,1944,FZ,0
allsel,all
solve