*HEADING
DUCT_ACIN2D3 [AC2D8]
*PREPRINT,MODEL=NO,HISTORY=NO
*NODE, NSET=ODB_NSET
1, 
41,,10.
1001,1., 0, 0,   0,1,0
1041,1.,10.,0,   0,1,0
*NGEN,NSET=NALL1
1,41
*NGEN,NSET=NALL2
1001,1041
*NFILL,NSET=NALL
NALL1,NALL2,2,500
*ELEMENT,TYPE=AC2D8,ELSET=EALL
1,1,1001,1005,5,501,1003,505,3
*ELGEN,ELSET=EALL
1,10,4,1
*ELSET,ELSET=LINER3
10,
*********************************
*NCOPY,CHANGENUMBER=5000,OLDSET=NALL,NEWSET=INF,SHIFT
2,0,0,
1,0,0, 0,1,0, 0
*ELCOPY,ELEMENTSHIFT=5000,OLDSET=EALL,NEWSET=INF,SHIFTNODES=5000
*ELEMENT,TYPE=ACIN2D3,ELSET=INF
601,5041,6041,5541
*********************************
*MATERIAL,NAME=AIR320
*DENSITY
1.25, 
*ACOUSTIC MEDIUM,BULK MODULUS
1.28E5, 
*SOLID SECTION,MATERIAL=AIR320,ELSET=EALL
*SOLIDSECTION,MATERIAL=AIR320,ELSET=INF
1.0, 2.5, -100.0
*NSET,NSET=QA_TEST,GEN
1,41,4
5001,5041,4
541,541
5541,5541
1041,1041
6041,6041
*NSET,NSET=DRIV
1,501,1001
5001,5501,6001
*AMPLITUDE,DEFINITION=PERIO,NAME=COSINE
1,10.00,0.0,0.0
0.0,1.0,
***************************************
*STEP
*STEADY STATE DYNAMIC,DIRECT
1.,10.0,2
*CLOAD
DRIV,8,1.
*IMPEDANCE,OP=NEW
LINER3,I3
*NODE PRINT,NSET=QA_TEST
POR,
*OUTPUT,FIELD
*NODE OUTPUT
POR,
*OUTPUT,HISTORY
*NODE OUTPUT,NSET=QA_TEST
POR,
*END STEP
***************************************
*STEP,INC=200
*DYNAMIC,DIRECT
1.0e-5,1.0e-3
*CLOAD,OP=NEW,AMPLITUDE=COSINE
DRIV,8,1.0
*IMPEDANCE,OP=NEW
LINER3,I3
*NODE PRINT,NSET=QA_TEST,FREQ=40
POR,
*OUTPUT,FIELD,FREQUENCY=40
*NODE OUTPUT
POR,
*OUTPUT,HISTORY,OP=NEW,FREQ=40
*NODE OUTPUT,NSET=QA_TEST
POR,
*END STEP