/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
dmprat=0.05
nlgeom,on



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=7
TIME,0.0065
f,1944,FZ,8
kbc,1
nsubst,100,100,5
solve

!!!Kraft F=0
time,0.008
f,1944,FZ,0
kbc,1
nsubst,100,100,5

solve


time,10
f,1944,FZ,0
allsel,all
solve




/post26
   nsol,2,1944,u,z,Uz_at_node_1944
   FILLDATA,3,,,,0.,1600/20      !auf 20kHz "strecken"
   RESP,4,3,2,1
   
   xvar,1
   /axlab,x,Time [s]
   /axlab,y,DOF Amplitude [mm]
   plvar,2
   *ask,p,Proceed?   
   
   xvar,3	
   /axlab,x,Frequency [Hz]
   /axlab,y,DOF Amplitude
   plvar,4
   *ask,p,Proceed?
   
   /GROPT,LOGY,ON
   plvar,4
   
finish