FINISH
/CLEAR
/PREP7							 
/TITLE, Pendel_12_09_2012_Auslenkung_5
ANTYPE, TRANS						 
NLGEOM, ON						
TRNOPT,FULL
/ESHAPE,1					 
ET, 1, BEAM188 
ET, 2, MASS21, , ,2
ET, 3, BEAM188
MP, EX, 1, 210E3 					
MP, DENS, 1, 7.85E-9 					
MP,NUXY, 1, 0.29,
SECTYPE,1,BEAM,CTUBE
SECDATA,9,11,8
MP,EX, 3, 999E13 					
MP, DENS, 3, 1E-13 					
MP,NUXY, 3, 0.29,
SECTYPE,3,BEAM,CSOLID
SECDATA,0.1,8,2
N, 1, 	0,	0,		0,	5
N, 2, 	0,	0,		-80,	5
N, 3, 	0,	0,		80,	5
N, 4,	40.96,	-468.21,	-55,	5
N, 5,	40.96,	-468.21,	0,	5
N, 6,	40.96,	-468.21,	55,	5
N, 7,	69.99,	-799.96,	-35,	5
N, 8,	69.99,	-799.96,	0,	5
N, 9,	69.99,	-799.96,	35,	5
N,10,	80.01,	-914.51,	-31,	5
N,11,	80.01,	-914.51,	31,	5
N,12,	87.12,	-996.2,		0,	5
TYPE, 2
R, 2, 6.8/1000						
REAL, 2						
E, 12 
TYPE, 2
R, 4, 0.6374/1000
REAL, 4
E, 5
MAT, 1
TYPE, 1 
SECNUM, 1
E, 2, 4 
E, 4, 7
E, 7, 10
E, 3, 6
E, 6, 9
E, 9, 11 
TYPE, 2
R, 5, 0.518/1000
REAL, 5
E, 8
MAT, 3
TYPE, 3
SECNUM, 3
E, 3, 1
E, 1, 2
E, 6, 5
E, 6, 4
E, 8, 9
E, 8, 7
E, 10,11
E, 10,12
E, 11,12
FINISH 
/SOLU 
ACEL, , 9810 
KBC, 1 
D, 1, UX, , , , , UY, UZ
TIME, 0.001						 
!D,ALL,ROTZ,-3.2305E-3			!Rotation -3.2305E-3 für Zeit 1E-3 entspricht geforderter Winkelgeschwindigkeit
D,ALL,OMGZ,-3.2305			!Rotationsgeschw. vorgeben -->schwingt durch mit dieser Vorgabe --> löschen von omgz wird nicht erkannt
NSUBST, 200 
OUTRES, , 1 
LSWRITE, 1 
TIME, 0.002						
!DDELE,ALL,ROTZ
DDELE,ALL,OMGZ
NSUBST, 100
OUTRES, , 1 
LSWRITE, 2 						
Time, 1.5
NSUBST, 300 
OUTRES, , 1 
LSWRITE, 3
LSSOLVE, 1, 3, 1 					
FINISH 
/POST26 
NSOL, 2, 12, U, X, UX_Knoten_12				 
NSOL, 3, 12, U, Y, UY_Knoten_12 				
!NSOL, 4, 12, VEL, X, VELX_Knoten_2			
PRVAR, 2, 3, 4						
/AXLAB, Y, VERSCHIEBUNG [mm]				 
/AXLAB, X, ZEIT [s]
PLVAR, 2,3,4						
FINISH