*HEADING
Substructure generataion of a loudspeaker
**
** Node defintion for Air
**
*PREPRINT,MODEL=YES,HISTORY=YES
*NODE,NSET=FRONT
*NODE,NSET=REAR
**
*NFILL,NSET=AIR
FRONT,REAR,3,10
**
*NODE
**
** ELEMENT DEFINTION FOR AIR
**
*ELEMENT,TYPE=AC3D8
*ELGEN,ELSET=AIR
**
*ELEMENT,TYPE=AC3D6,ELSET=AIR
**
**
**
*SOLID SECTION,ELSET=AIR,MAT=ACOUSTIC
*MATERIAL,NAME=ACOUSTIC
*DENSITY
1.115
*ACOUSTIC MEDIUM,BULK MODULUS
**
** SURFACE DEFINITIONS
**
*ELSET,ELSET=AIR_FRONT
*SURFACE,NAME=AIR_FRONT
AIR_FRONT,S3
*ELSET,ELSET=AIR_REAR_PLANE,GEN
*ELSET,ELSET=AIR_REAR_CONE,GEN
*SURFACE, NAME=AIR_REAR
AIR_REAR_PLANE,S5
AIR_REAR_CONE,S1
*ELSET,ELSET=AIR_LEFT,GEN
*SURFACE, NAME=AIR_LEFT
AIR_LEFT,S6
*ELSET,ELSET=AIR_RIGHT,GEN
*SURFACE, NAME=AIR_RIGHT
AIR_RIGHT, S4
*ELSET,ELSET=AIR_TOP,GEN
*SURFACE, NAME=AIR_TOP
AIR_TOP,S2
*ELSET,ELSET=AIR_BOT,GEN
*SURFACE, NAME=AIR_BOT
AIR_BOT,S1
*ELSET,ELSET=AIR_CONE,GEN
*SURFACE, NAME=AIR_CONE
AIR_CONE,S2
**
**
** NODE DEFINITION FOR BOX AND CONE
**
*NCOPY,OLDSET=AIR,CHANGE NUMBER=1000,SHIFT,NEW SET=BOX
**
** ELEMENT DEFINITION FOR CONE
**
*ELEMENT,TYPE=S3R,ELSET=CONE
**
*SHELL SECTION,ELSET=CONE,MAT=POLYETHYLENE
0.1E-3
*MATERIAL,NAME=POLYETHYLENE
*ELASTIC
3.400E9,0.3
*DENSITY
450
**
** ELEMENT DEFINITION FOR BOX
**
*ELEMENT,TYPE=S4R,ELSET=FRONT
**
*ELCOPY,ELEMENT SHIFT=20,OLDSET=FRONT,SHIFTNODES=30,NEWSET=REAR
*ELCOPY,ELEMENT SHIFT=20,OLDSET=CONE,SHIFTNODES=30,NEWSET=REAR
**
*NODE
**
*ELEMENT,TYPE=S4R
*ELGEN,ELSET=LEFT
*ELEMENT,TYPE=S4R
*ELGEN,ELSET=RIGHT
*ELEMENT,TYPE=S4R
*ELGEN,ELSET=TOP
*ELEMENT,TYPE=S4R
*ELGEN,ELSET=BOT
*ELSET,ELSET=BOX
FRONT,REAR,LEFT,RIGHT,TOP,BOT
*SHELL SECTION,ELSET=BOX,MAT=WOOD
0.015
*MATERIAL,NAME=WOOD
*ELASTIC
11.61E9,0.3
*DENSITY
562
**
**
** SURFACE DEFINITION FOR THE BOX AND CONE
**
*SURFACE, NAME=BOX_FRONT
FRONT,SPOS
*SURFACE, NAME=BOX_REAR
REAR,SNEG
*SURFACE, NAME=BOX_RIGHT
RIGHT,SPOS
*SURFACE, NAME=BOX_LEFT
LEFT,SPOS
*SURFACE, NAME=BOX_TOP
TOP,SPOS
*SURFACE, NAME=BOX_BOT
BOT,SPOS
*SURFACE, NAME=CONE
CONE,SPOS
**
** CONTACT DEFINITION
**
*TIE, NAME=COUPLED
AIR_FRONT,BOX_FRONT
AIR_REAR,BOX_REAR
AIR_LEFT,BOX_LEFT
AIR_RIGHT,BOX_RIGHT
AIR_TOP,BOX_TOP
AIR_BOT,BOX_BOT
*TIE, NAME=COUPLEDCONE, TYPE=SURFACE TO SURFACE
AIR_CONE,CONE
**
** BOUNDARY CONDITIONS
**
*NSET,NSET=CORNERS,unsorted
*NSET,NSET=MID,unsorted
*NSET,NSET=CONECENTER
*NSET,NSET=AIR-CONECENTER
**
**------------------------------------------------
*STEP,NAME=COUPLED-FREQUENCY 150 EIGENMODES
*FREQUENCY,EIGENSOLVER=LANCZOS,norm=mass
150,
*BOUNDARY
MID,1,3,0
*OUTPUT,FIELD,freq=0
*END STEP
**------------------------------------------------
*step
*substructure generate,type=z1,overwrite,libr=speaker,
recovery matrix=no, mass matrix=yes
*substructure load case,name=load1083
*cload
1083,2,1.0
*retained nodal dofs,sorted=no
MID,1,3
**
**
*retained eigenmodes,generate
**
**
*substructure matrix output, stiffness=yes,file=speaker,
mass=yes, recovery=no,sload=yes
*end step
**------------------------------------------------