!Balken mit BEAM188-Elementen 
!Bsp fuer Campbell-Diagramm



/PREP7

/UNITS,SI		![kg],[m],[s],[K]



!! Materialeigenschaften 


MP,EX,1,2.1E11		!Elastizitätsmodul in x-Richtung [N/m^2]
MP,NUXY,1,0.3		!Querkontraktionszahl xy-Richtung
MP,DENS,1,7800		!Dichte [kg/m^3]


!! Erstellung der Geometrie

! Definition der geometrischen Parameter [mm]

dw=0.01			!Durchmesser der Welle
lw=0.3			!Laenge der Welle

ds=0.1			!Durchmesser der Scheibe
ls=0.05			!Dicke der Scheibe


!! Elementtyp und Geometrie
 
ET,1,BEAM188


!Welle

SECTYPE,1,BEAM,CSOLID
SECDATA,dw/2,32

!Scheibe

SECTYPE,2,BEAM,CTUBE
SECDATA,dw/2,ds/2,32


N,1,0
N,7,lw

FILL,1,7


!! Elementierung

ESIZE5
TYPE,1
SECN,1			!Welle 
E,1,2
E,2,3
E,3,4
SECN,2			!Scheibe
E,4,5
SECN,1			!Welle
E,5,6
E,6,7



!! Loesungsabschnitt

/SOLU
ANTY,MODAL
MODOPT,QRDAMP,8,,,ON		!Untersuchungen der 8 Moden jeweils in xy- und xz-Ebene	


NSEL,S,LOC,x,0		!Knoten am linken Rand (0) auswaehlen für Fesselung - Festlager
D,ALL,UX
D,ALL,UY
D,ALL,UZ
NSEL,S,LOC,X,lw		!Knoten am rechten Rand (lw) auswaehlen fuer Fesselung - Loslager
D,ALL,UY
D,ALL,UZ


CORIOLIS,ON,,,ON

OMEGA,0.

MXPAND,8

ALLS
SOLVE

OMEGA,30000.

MXPAND,8

!ALLS
SOLVE

FINISH


!!Postprocessor

/POST1

PLCAMP,ON

SET,LIST

!plcamp,on,1,rpm,1