*HEADING
TWO - D VERIFICATION PROBLEM FOR *TIE IN ACOUSTIC-ACOUSTIC CONTACT
TRANSIENT.
*PREPRINT,ECHO=YES,MODEL=YES,HISTORY=YES
**SUBDOMAIN1, TRIANGULAR REGION OF AC2D6 ELEMENTS
*NODE
1,0,0
13,1,0
1201,0,1
1213,1,1
*NGEN,NSET=RIGHT1
13,1213,100
*NGEN,NSET=LEFT1
1,1201,100
*NSET,NSET=ENDS,GENERATE
201,1001,200
*NSET,NSET=MIDSIDES,GENERATE
101,1101,200
*NFILL,NSET=D1
LEFT1,RIGHT1,12,1
*ELEMENT,TYPE=AC2D6
1, 1,3,201, 2,102,101
2, 3,203,201, 103,202,102
*ELGEN,ELSET=SD1
1,6,200,2
2,5,200,2
1,6,2,100
2,5,2,100
*ELGEN,ELSET=SD1
101,5,200,2
102,4,200,2
201,4,200,2
202,3,200,2
301,3,200,2
302,2,200,2
401,2,200,2
**SUBDOMAIN2, TRIANGULAR REGION OF AC2D3 ELEMENTS
*NODE
31,1,0
32,1.06,0
1731,1,1
1732,1.06,1
14,0,0
1714,0,1
*NGEN,NSET=RIGHT2
31,1731,100
*NGEN,NSET=LEFT2
14,1714,100
*NGEN
32,1732,100
*NFILL,NSET=D2
LEFT2,RIGHT2,17,1
*ELEMENT,TYPE=AC2D3
31,31,131,130
32,131,230,130
64,32,132,131
65,31,32,131
*ELGEN,ELSET=SD2
31,17,100,2
32,16,100,2
65,17,100,2
64,17,100,2
*ELGEN,ELSET=SD2
63,17,-1,100
62,16,-1,100
*ELGEN,ELSET=SD2
163,16,-100,-2
162,15,-100,-2
263,15,-100,-2
262,14,-100,-2
363,14,-100,-2
362,13,-100,-2
463,13,-100,-2
462,12,-100,-2
563,12,-100,-2
562,11,-100,-2
663,11,-100,-2
662,10,-100,-2
763,10,-100,-2
762,9,-100,-2
863,9,-100,-2
862,8,-100,-2
963,8,-100,-2
962,7,-100,-2
1063,7,-100,-2
1062,6,-100,-2
1163,6,-100,-2
1162,5,-100,-2
1263,5,-100,-2
1262,4,-100,-2
1363,4,-100,-2
1362,3,-100,-2
1463,3,-100,-2
1462,2,-100,-2
1563,2,-100,-2
**SUBDOMAIN 3, RECTANGULAR REGION OF AC2D4 ELEMENTS
*NODE
2001,1.06,0
2041,4,0
3301,1.06,1
3341,4,1
*NGEN,NSET=LEFT3
2001,3301,100
*NGEN,NSET=RIGHT3
2041,3341,100
*NFILL,NSET=D3
LEFT3,RIGHT3,40,1
*ELEMENT,TYPE=AC2D4
2001,2001,2002,2102,2101
*ELGEN,ELSET=SD3
2001,13,100,100,   40,1,1
**SUBDOMAIN 4, REGION OF AC2D8 ELEMENTS
*NODE
4000,4,0
4010,5,0
4600,4,0.65
4610,5,0.5
*NGEN,NSET=LEFT4
4000,4600,100
*NGEN,NSET=RIGHT4
4010,4610,100
*NFILL,NSET=D4
LEFT4,RIGHT4,10,1
*ELEMENT,TYPE=AC2D8
4000, 4000,4002,4202,4200,   4001,4102,4201,4100
*ELGEN,ELSET=SD4
4000,5,2,1,3,200,5
**SUBDOMAIN 5, REGION OF AC2D4 ELEMENTS
*NODE
5000,4,0.65
5013,5,0.50
5700,4,1
5713,5,1
*NGEN,NSET=LEFT5
5000,5700,100
*NGEN,NSET=RIGHT5
5013,5713,100
*NFILL,NSET=D5
LEFT5,RIGHT5,13,1
*ELEMENT,TYPE=AC2D4
5000, 5000,5001,5101,5100
*ELGEN,ELSET=SD5
5000,13,1,1,7,100,13
***************************************
**SUBDOMAIN 6, REGION OF AC2D4 ELEMENTS
*NODE
6000,0,1.2
6066,5,1.2
6100,0,1.28
6166,5,1.28
*NGEN,NSET=D6
6000,6066,1
6100,6166,1
*ELEMENT,TYPE=AC2D4
6000, 6000,6001,6101,6100
*ELGEN,ELSET=SD6
6000,66,1,
*NSET,NSET=OUTPUT_NODES,GENERATE
1,20000,1
*************************************
**SURFACES
*ELSET,ELSET=S1R
11,109,207,305,403,501
*ELSET,ELSET=S2L,GENERATE
31,1663,102
*ELSET,ELSET=S2R,GENERATE
64,96,2
*SURFACE,NAME=S1
S1R,S2
*SURFACE,NAME=S2L
S2L,S3
*SURFACE,NAME=S2R
S2R,S1
*ELSET,ELSET=S3L,GENERATE
2001,3201,100
*SURFACE,NAME=S3L
S3L,S4
*************************************
*ELSET,ELSET=S3R4,GENERATE
2040,2740,100
*ELSET,ELSET=S3R5,GENERATE
2940,3240,100
*SURFACE ,NAME=S3R4
S3R4,S2
*SURFACE ,NAME=S3R5
S3R5,S2
*************************************
*ELSET,ELSET=S4L
4000,4005,4010
*SURFACE ,NAME=S4L
S4L,S4
*************************************
*ELSET,ELSET=S5B,GENERATE
5000,5012,1
*SURFACE ,NAME=S5B
S5B,S1
*ELSET,ELSET=S5L,GENERATE
5013,5078,13
*SURFACE ,NAME=S5L
S5L,S4
*ELSET,ELSET=S4U,GENERATE
4010,4014,1
*SURFACE ,NAME=S4U
S4U,S3
*ELSET,ELSET=OPEN,GENERATE
5012,5090,13
4004,4014,5
*SURFACE ,NAME=OPEN
OPEN,S2
*************************************
*SOLID SECTION,MATERIAL=AIR,ELSET=SD1
1.
*SOLID SECTION,MATERIAL=AIR,ELSET=SD2
1.
*SOLID SECTION,MATERIAL=AIR,ELSET=SD3
1.
*SOLID SECTION,MATERIAL=AIR,ELSET=SD4
1.
*SOLID SECTION,MATERIAL=AIR,ELSET=SD5
1.
*SOLID SECTION,MATERIAL=AIR,ELSET=SD6
1.
*MATERIAL,NAME=AIR
*DENSITY
 1.21,
*ACOUSTIC MEDIUM,BULK MODULUS
 0.1424E6,
*************************************
*TIE,NAME=NONE
S2R,S3L
*TIE,NAME=NONE2
S2L,S1
S5L,S3R5
S3R4,S4L
S5B,S4U
*************************************
*AMPLITUDE,NAME=CONSTANT,DEFINITION=TABULAR
0.0,1.0,400.0,1.0
*************************************
*AMPLITUDE,NAME=SINE,DEFINITION=PERIODIC
1,628.0,0.0,0.0
0.0,1.0,0.0,0.0
*************************************
*STEP,INC=1000
*DYNAMIC,DIRECT
4.e-4,1.2e-2,
*CLOAD,AMPLITUDE=SINE
1,8,-0.25
1201,8,-0.25
MIDSIDES,8,-1.0
ENDS,8,-0.50
6000,8,-0.36
6100,8,-0.36
*SIMPEDANCE
OPEN,
*IMPEDANCE
6065,I2
*OUTPUT,FIELD
*NODE OUTPUT
POR,
*NODE OUTPUT,NSET=OUTPUT_NODES
POR,
*OUTPUT,HISTORY
*NODE OUTPUT,NSET=OUTPUT_NODES
POR,
*ENDSTEP