Option FEM Frequency Fluid Return
Import Mesh Format NASTRAN File femaxi.DAT Return
AxiSymmetry Return
Set 1 Name "inlet"
Face 54
Return
Set 2 Name "outlet"
Face 59
Return
Material Fluid
Name 'air'
Sound 3.4000e+002 Rho 1.2250e+000
Elements All
Return
Boundary Velocity Real -1 Imag 0
Faces Set 1
Return
Boundary Admittance Real 2.401e-3 Imag 0
Faces Set 2
Return
Solve Frequency 50 To 3000 LinStep 50 Return
Combine
Read Node 11 Pressure Return
Amplitude
Read Node 1 Pressure Return
Read Node 1 Velocity Vector 0 1 0 Return
Constant Real 416.5 Imag 0
Multiply
Add
Constant Real 2 Imag 0
Divide
Amplitude
Divide
Log10
Constant Real 20 Imag 0
Multiply
Write Table 1 name tl Return
Return
BEM:
Import Mesh Format NASTRAN File BEM.DAT Return
Check Mesh Merge Return
Material Fluid
Name 'air'
Sound Real 3.4000e+02 Rho Real 1.2250e+00
Return
Boundary Velocity Real 1 Imag 0
Elements X=0.06
Return
Boundary Impedance Real 416.5 Imag 0
Elements X=-0.06
Return
SOLVE
Frequency 50 to 3000 linstep 50
return
import point format nastran file point.dat return
postrocess
points all
frequency 50 to 3000 linstep 50
Near 2
Far 5
Quadrature 2 2 1
Save Results Step 1
Return
Return
combine
read point 176 pressure return
amplitude
read point 92 pressure return
amplitude
divide
amplitude
log10
constant real 20 imag 0
multiply
return