!Eigenresonanz Stab mit rundem Querschnitt
!3D
!für huepfendschof
!Schätzing, 17.11.2008
fini
/clear
*abbr,stab,/input,stab.txt

!----Parameter------
rad=20e-3    !Radius Stab
lang=120e-3  !Länge Stab

/prep7
et,1,solid186
mp,ex,1,210e9   !Stahl
mp,dens,1,7800

!----Geometrie------
!--wegen der Vernetzung vier Viertel---
cylind,,rad,0,lang,  0, 90
cylind,,rad,0,lang, 90,180
cylind,,rad,0,lang,180,270
cylind,,rad,0,lang,270,360
vglue,all  !Verkleben

!------Vernetzung-----
!esize,......   !für Netzdichte
vmesh,all

!--------Randbedingung----
nsel,s,loc,z,0
d,all,ux,0
d,all,uy,0
d,all,uz,0

allsel
!-----------Lösung-----------
/solu
antype,modal
modopt,lanb,10    !10 Schwingungsformen
mxpand,all
solve

!----Auswertung-----------------
/post1
/view,,1,2,2
set,first
pldi,1
anmode

/eof
!-----Untersuchung der nächsten Schwingungsformen----
!----Mode2------
set,1,2
pldi,1
anmode
!----Mode3------
set,1,3
pldi,1
anmode
!----Mode4------
set,1,4
pldi,1
anmode
!----Mode5------
set,1,5
pldi,1
anmode

/eof

set,next  $pldi,1 $anmode

!---Herausschreiben der Frequenzen---
*get,f1,mode,1,freq
*get,f2,mode,2,freq
*get,f3,mode,3,freq