*HEADING
THREE - D VERIFICATION PROBLEM FOR SURFACE CONTACT IN ACOUSTICS.
STEADY STATE
*PREPRINT,MODEL=NO,HISTORY=YES
*NODE, Nset=ODB_NSET
*NGEN,NSET=NALL1
*NGEN,NSET=NALL2
*NFILL,NSET=NALL
NALL1,NALL2,2,500
*NGEN,NSET=NALL3
*ELEMENT,TYPE=AC3D15,ELSET=ALL_ELEMENTS
*ELGEN,ELSET=ALL_ELEMENTS
*ELSET,ELSET=LINER5
*NGEN,NSET=ALL_NODES
*NCOPY,OLDSET=ALL_NODES,NEWSET=ALL_NODES,SHIFT,CHANGENUMBER=10000
*ELEMENT,TYPE=AC3D4,ELSET=ALL_ELEMENTS
*ELGEN,ELSET=ALL_ELEMENTS
*elset,elset=liner4
*elset,elset=liner6
*MATERIAL,NAME=AIR
*DENSITY
1.293,
*ACOUSTIC MEDIUM,BULK MODULUS
*SOLID SECTION,MATERIAL=AIR,ELSET=ALL_ELEMENTS
*NSET,NSET=OUTPUT_NODES,GEN
*NSET,NSET=DRIVEN_NODES
***********************************************
*Elset,Elset=ODB_ESET
ALL_ELEMENTS,
*Nset, Nset=ODB_NSET,GENERATE
*************************************
*AMPLITUDE,NAME=SINE,DEFINITION=PERIODIC
1,628.0,0.0,0.0
0.0,1.0,0.0,0.0
***********************************************
*SURFACE,NAME=RIGHT
20,S2
19,S2
*SURFACE,NAME=LEFT
LINER4,S4
LINER6,S2
*TIE,NAME=LR
RIGHT,LEFT
***********************************************
*STEP
*STEADY STATE DYNAMIC,DIRECT
*IMPEDANCE
LINER5,I1
*BOUNDARY
DRIVEN_NODES,8,,1.
*OUTPUT,FIELD
*NODE OUTPUT
POR,
*NODE OUTPUT,NSET=ODB_NSET
POR,
*OUTPUT,HISTORY
*NODE OUTPUT,NSET=ODB_NSET
POR,
*END STEP
*************************************
*STEP
*FREQUENCY, eigensolver=lanczos, SIM=NO
10, ,60.0,100.00
*OUTPUT,FIELD
*NODE OUTPUT
POR,
*NODE OUTPUT,NSET=ODB_NSET
POR,
*ENDSTEP