*HEADING
EC3fAFE4: EIGENVALUE ANALYSIS, ACOUSTIC ORGAN PIPE MODES  [AC3D15]
*NODE,nset=base
1,0.,0.,0.
101,1.,0.,0.
201,1.,0.,-1.
301,0.5,0,0.
401,1.,0.,-0.5
501,0.5,0.,-0.5
*Ncopy,old set=base,new set=top,change number=20,shift
0,165.8,0.

*NGEN, Nset=ODB_NSET
1,21
101,121
201,221
301,321
401,421
501,521
*ELEMENT,TYPE=AC3D15,ELSET=EALL
1,1,101,201,3,103,203,301,401,501,303,403,503,2,102,202
*ELGEN,ELSET=EALL
1,10,2,1
*MATERIAL,NAME=AIR
*DENSITY
1.293, 
*ACOUSTIC MEDIUM,BULK MODULUS
1.42176E5, 
*SOLID SECTION,MATERIAL=AIR,ELSET=EALL
**
** Sets added by addodb
**
*Elset,Elset=ODB_ESET
EALL,
**
**
*Nset, Nset=ODB_NSET
base, 20, ODB_NSET
**
**
*STEP
 OPEN/OPEN CONDITION
*FREQUENCY,EIGENSOLVER=AMS
14,,2000.,10.0,4.0,3.0
*OUTPUT,FIELD,FREQUENCY=0
*BOUNDARY
base,8
top,8
*NODE PRINT
POR,PPOR
*OUTPUT,HISTORY,freq=0
*MODAL OUTPUT,VARIABLE=ALL
*END STEP
*************************
*STEP
 OPEN/CLOSED CONDITION
*FREQUENCY,EIGENSOLVER=AMS
14,,2000.,10.0,4.0,3.0
*OUTPUT,FIELD,FREQUENCY=0
*BOUNDARY
base,8
*NODE PRINT
POR,PPOR
*OUTPUT,HISTORY,freq=0
*MODAL OUTPUT,VARIABLE=ALL
*END STEP