H1 = 25			!Height of reflector top
H2 = 22.7		!Height of reflector arc top
H3 = -6			!Pressure loaded-area Height
H4 = 10			!Height of Emitter Surface
PR = 6000		!Magnitude of pressure

/PREP7   !**********************************************************************
!Define Material Properties

ET,1,SOLID45		!Elements
ET,2,30,,0		!Wall Contact Fluid Elements
ET,3,30,,1		!Free Fluid Elements
ET,4,130		!Absorbing Fluid Elements

MP,EX,1,71e6		!Youngs Modulus
MP,PRXY,1,0.33		!Poisson Ratiol
MP,DENS,1,2.77e-6	!Density Aluminium

MP,DENS,2,1.204e-9	!Density Fluid
MP,SONC,2,343.4e3	!Sonic Speed
!MP,MU,2,0.001		!Fluid Damping...

VDELE,2

VSEL,S,VOLU,,3		!Platte Elementzuweisung
VATT,1,,1


!Mesh Fluid		!Fluid Elementzuweisung
VSEL,S,VOLU,,1
VATT,2,,3		

ALLSEL
ESIZE,3			!Element Size
MSHKEY,0
MSHAPE,1,3d
VMESH,ALL		!Mesh Volume

!Assign Fluid-Structure Coupling for Emitter
NSEL,S,LOC,Z,H4
ESLN,S,0
ESEL,U,TYPE,,1
EMODIF,ALL,TYPE,2	!Wall Contact Fluid Elements
SF,ALL,FSI		!Set Connection
ALLSEL

/SOLU  !**********************************************************************

ANTYPE,Harmic		!Harmonic response analysis
HROPT,FULL		!Use Solution Method FULL

!DMPRAT,0.01		!Constant damping 1%


ASEL,S,LOC,Z,H3	

SFA,ALL,,PRES,PR	!Apply pressure on Area

ALLSEL			!Select all

HARFRQ,100,1000		!Frequenzband
NSUBST,2		!Number of substeps
KBC,1			!choose linear distribution

SOLVE			

/POST1  !**********************************************************************
/dscale,1,1
SET,,,1,,1000
PLNS,PRES