*HEADING
: MODEL CHANGE ACOUSTICS TESTS  [ACIN3D8]
*PREPRINT,ECHO=YES,MODEL=YES,HISTORY=YES
*restart,write
*NODE, Nset=ODB_NSET
**"BACK"
1,      10.0, 1.0, -1.0
41  ,   20.0, 2.0, -2.0
1001,   10.0,-1.0, -1.0
1041,   20.0,-2.0, -2.0
**"FRONT"
2001,   10.0, 1.0,  1.0
2041,   20.0, 2.0,  2.0
3001,   10.0,-1.0,  1.0
3041,   20.0,-2.0,  2.0
**
4001,   10.0, 1.0,  0.0
4041,   20.0, 2.0,  0.0
5001,   10.0,-1.0,  0.0
5041,   20.0,-2.0,  0.0
6041,   20.0, 0.0,  0.0
*NGEN,NSET=NALL1
1,41
2001,2041
*NGEN,NSET=NALL2
1001,1041
3001,3041
*NGEN,NSET=NALL3
4001,4041
5001,5041
*NFILL,NSET=ALL_NODES
NALL1,NALL2,2,500
*ELEMENT,TYPE=AC3D20,ELSET=ALL_ELEMENTS
1,1,1001,1005,5,2001,3001,3005,2005,501,1003,505,3,2501,3003,2505,
2003,4001,5001,5005,4005
*ELEMENT,TYPE=ACIN3D8,ELSET=ALL_ELEMENTS
11, 41,2041,3041,1041,   4041,2541,5041,541
*ELGEN,ELSET=ALL_ELEMENTS
1,10,4,1
*ELSET,ELSET=SECOND,GENERATE
9,12
*MATERIAL,NAME=AIR
*DENSITY
1.293, 
*ACOUSTIC MEDIUM,BULK MODULUS
1.42176E5, 
*SOLID SECTION,MATERIAL=AIR,ELSET=ALL_ELEMENTS
1., 0.,0.,0.
*NSET,NSET=QA_TEST,GEN
1,21
*NSET,NSET=DRIV
1,1001,2001,3001, 4001,2501,5001,541
**************************************
*Elset,Elset=ODB_ESET
SECOND, ALL_ELEMENTS
**
**
*Nset, Nset=ODB_NSET
ODB_NSET, ALL_NODES, QA_TEST, DRIV
**
**
*STEP
SECTOR USING INFINITE ELEMENT
*STEADY STATE DYNAMIC,DIRECT
1.,10.0,2
*BOUNDARY
DRIV,8,,1.
*NODE PRINT,NSET=QA_TEST
POR,
*ENERGYPRINT
*OUTPUT,FIELD
*ELEMENTOUTPUT
ENER,INTEN,ELEN
*NODE OUTPUT
POR,
*OUTPUT,HISTORY
*NODE OUTPUT,NSET=QA_TEST
POR,
*ENDSTEP
**************************************
*STEP
DUMMY STEP TO EXECUTE CHANGE OF MODEL
*STATIC
1,1
*MODEL CHANGE,REMOVE
SECOND,
*OUTPUT,FIELD,VAR=PRESELECT
*ENDSTEP
**************************************
*STEP
SHORTENED SECTOR USING IMPEDANCE
*STEADY STATE DYNAMIC,DIRECT
1.,10.0,2
*IMPEDANCE,OP=NEW, NON=SPHE
5,I5,18.0
*BOUNDARY
DRIV,8,,1.
*NODE PRINT,NSET=QA_TEST
POR,
*ENERGYPRINT
*OUTPUT,FIELD
*ELEMENTOUTPUT
ENER,INTEN,ELEN
*NODE OUTPUT
POR,
*OUTPUT,HISTORY
*NODE OUTPUT,NSET=QA_TEST
POR,
*ENDSTEP