FINISH
/CLEAR , START
/FILNAME , testarea
/TITLE , Testarea
/PREP7

! ---------- Modell -----------------------------------------------
MP , EX   , 1 , 2.1e11
MP , NUXY , 1 , 0.3
MP , DENS , 1 , 7850

RECTNG , -1/2 , 1/2 , -1/2 , 1/2

ET , 1 , SHELL181
SECTYPE , 1 , SHELL
SECDATA , 0.001 , 1 , , 
ESIZE , 0.02
MSHAPE ,0,2D
MSHKEY ,1
AMESH  , ALL				

NSEL , S , LOC , X , -1/2
NSEL , A , LOC , X ,  1/2
NSEL , A , LOC , Y , -1/2
NSEL , A , LOC , Y ,  1/2
CM , boundary_nodes , NODE

NSEL , S , LOC , X , -0.1 , 0.1
NSEL , R , LOC , Y , -0.1 , 0.1
CM , mid_nodes , NODE

NSEL , S , LOC , X , 0
NSEL , R , LOC , Y , 0
*VGET , mid_list , NODE , 0 , NLIST
mid_node = mid_list(1)

! ----- Vorverformung statisch nichtlinear ---------------------------------------------
/SOLU
ANTYPE , STATIC
NLGEOM , ON

NSEL , S , NODE , , boundary_nodes
D , ALL , ALL

NSEL , S , NODE , , mid_node
F , mid_node , FZ , -100

NSUBST , 1
SSTIF , ON
EMATWRITE , YES		
ALLSEL , ALL
SOLVE

FINISH

! ----- Vorausgehende Modalanalyse -----------------------------------------
/SOLU 
ANTYPE , MODAL
MODOPT , LANB , 30
MXPAND , , , , YES

UPCOORD , 1 , ON
PSTRES , ON

NSEL , S , NODE , , boundary_nodes
D , ALL , ALL

NSEL , S , NODE , , mid_node
FDELE , mid_node , ALL

NSEL , S , NODE , , mid_nodes
SF , ALL , PRES , 1e4

ALLSEL , ALL
PSOLVE , EIGLANB

!    ! --------- Expansion der Eigenformen
!    FINISH
!    /SOLU
!    EXPASS , ON
!    PSOLVE , EIGEXP

! ----- Harmonische Analyse ------------------------------------------------
FINISH
/SOLU
ANTYPE , HARMIC

HROPT , MSUP , 30   
NSUB , 4			
OUTRES , ALL , ALL 	

HARF , 4 , 8 ,
KBC , 1

NSEL , S , NODE , , mid_nodes
SFDELE , ALL , PRES
LVSCALE , 1 

ALLSEL , ALL
SOLVE

FINISH

! ----- Postprozessor --------------------------------------------------------
/POST26					
FILE , , RFRQ			
NSOL , 2 , mid_node , U , Z

PLCPLX , 0
PLVAR , 2				

! ----- Expansion Pass für reduzierte Modalanalyse
/SOLU 
EXPASS , ON
NUMEXP , ALL ,  ,  , YES

SOLVE
FINISH

/POST1 					
SET , , , , 0 , 5 		
PLNSOL , U , SUM