*HEADING ABAQUS/Explicit:SUBMODEL [AC3D4] ********************************************** ** The speed of sound c=sqrt(K/rho)=330m/s ** The pressure wave will reach teh bottom nodes ** (and it will drive the pressure wave farther) ** in about t=8.0/c=0.024 sec ********************************************** *PARAMETER f=25.0 T=1.0/f out_hist=T/100 omega=2*3.14159*f ****************** *NODE,NSET=BOT 1,0.0,8.5 101,0.5,8.5 201,1.0,8.5 1001,0.0,8.5,0.5 1101,0.5,8.5,0.5 1201,1.0,8.5,0.5 2001,0.0,8.5,1.0 2101,0.5,8.5,1.0 2201,1.0,8.5,1.0 *NODE,NSET=TOP 7,0.0,10.0 107,0.5,10. 207,1.0,10. 1007,0.0,10.0,0.5 1107,0.5,10.0,0.5 1207,1.0,10.0,0.5 2007,0.0,10.0,1.0 2107,0.5,10.0,1.0 2207,1.0,10.0,1.0 *NSET,NSET=QA_TEST TOP,BOT *NFILL,NSET=ALL BOT,TOP,6,1 *NSET,NSET=RECRD 1,2,3,4,5,6,7 *ELSET,ELSET=LINER1 35,135,735,835 *ELSET,ELSET=LINER2 36,136,736,836 *ELEMENT,TYPE=AC3D4,ELSET=EALL 1, 1, 101, 102, 1001 2, 101, 102, 1001, 1101 3, 102, 1001, 1101, 1102 4, 1, 102, 2, 1001 5, 102, 2, 1001, 1102 6, 2, 1001, 1102, 1002 *ELGEN,ELSET=EALL 1,6,1,6, 2,100,100,2,1000,700 2,6,1,6,2,100,100,2,1000,700 3,6,1,6,2,100,100,2,1000,700 4,6,1,6,2,100,100,2,1000,700 5,6,1,6,2,100,100,2,1000,700 6,6,1,6,2,100,100,2,1000,700 *MATERIAL,NAME=AIR *DENSITY 1.293, *ACOUSTIC MEDIUM,BULK MODULUS 1.42176E5, *SOLID SECTION,MATERIAL=AIR,ELSET=EALL *SUBMODEL,EXT=0.025 BOT, *AMPLITUDE,NAME=SINE,DEF=PERIODIC 1,,0.0,0.0 0,1,0,0 *STEP *DYNAMIC,EXPLICIT , *IMPEDANCE LINER1,I2 LINER2,I4 *BOUNDARY,SUBMODEL,STEP=1 BOT,8,8 ********************* *FILE OUTPUT,NUM=1 *NODE FILE POR, ********************* *OUTPUT,FIELD,NUM=1 *NODE OUTPUT,NSET=QA_TEST POR, ********************* *OUTPUT,FIELD,NUM=4 *NODE OUTPUT POR, ********************* *OUTPUT,HISTORY,TIME INTERVAL= *NODE OUTPUT,NSET=ALL POR, ********************* *END STEP