*HEADING
EC3fAFE4: EIGENVALUE ANALYSIS, ACOUSTIC ORGAN PIPE MODES  [AC3D15]
*NODE,nset=base
*Ncopy,old set=base,new set=top,change number=20,shift
*NGEN, Nset=ODB_NSET
*ELEMENT,TYPE=AC3D15,ELSET=EALL
*ELGEN,ELSET=EALL
*MATERIAL,NAME=AIR
*DENSITY
1.293,
*ACOUSTIC MEDIUM,BULK MODULUS
*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