*HEADING
  RACKET AND BALL IMPACT
********************
**
**  Strings.
**
********************
*PREPRINT,MODEL=YES,HISTORY=YES,CONTACT=YES
*NODE
**  Bottom curve.
**  Left side curve.
**  Right side curve.
**  Top curve.
**  Rectangular portion.
*NGEN,NSET=N200
*NGEN,NSET=N500
*NGEN,NSET=N1900
*NGEN
*NFILL,NSET=STRINGS
N200,N500,3,100
N500,N1900,14,100
*NGEN,NSET=STRINGS,LINE=P
*NSET,NSET=MIDPLANE,GEN
*NSET,NSET=MIDPLANE
**
*ELEMENT,TYPE=T3D2,ELSET=STRINGS
*ELGEN,ELSET=STRINGS
*SOLID SECTION,ELSET=STRINGS,MATERIAL=STRING
**  Diameter of strings is 0.1 in.
7.854E-3,
**
*NSET, NSET=NCONTACT, GENERATE
********************
**
**  Frame.
**
********************
*NCOPY,CHANGE NUMBER=10000,OLD SET=MIDPLANE,SHIFT,
NEW SET=FRONT
*NCOPY,CHANGE NUMBER=20000,OLD SET=MIDPLANE,SHIFT,
NEW SET=BACK
*NODE
*ELEMENT,TYPE=R3D4,ELSET=FRAME
**
*ELGEN,ELSET=FRAME
*NODE,NSET=SPHERE,INPUT=tennis_ef1.inp
*NSET,NSET=REFNODE
**
*ELEMENT,TYPE=S4R,ELSET=SPHERE,
INPUT=tennis_ef2.inp
*SHELL SECTION,ELSET=SPHERE,MATERIAL=RUBBER
.2,3
*SURFACE, TYPE=ELEMENT, NAME=CAVSURF
SPHERE, SNEG
**
*PHYSICAL CONSTANTS, ABSOLUTE ZERO=-273.16, UNIVERSAL GAS CONSTANT=73.562
*FLUID CAVITY, NAME=BALL, REF NODE=30001, SURFACE=CAVSURF, BEHAVIOR=GAS, AMBIENT=14.7
*FLUID BEHAVIOR, NAME=GAS
*MOLECULAR WEIGHT
*CAPACITY, TYPE=TABULAR
********************
**
** Material definitions.
**
********************
*MATERIAL,NAME=RUBBER
*DENSITY
1.E-4,
*HYPERELASTIC,N=1
100.,25.,1.E-4
*MATERIAL,NAME=STRING
**  Nylon type 6 general purpose.
*DENSITY
1.07E-4,
*ELASTIC
1.E6,
********************
**
** Initial conditions, boundary conditions.
**
********************
*INITIAL CONDITIONS,TYPE=STRESS
**  Tension in strings is 10 lb.
STRINGS,1273.
SPHERE,22.5,22.5
*INITIAL CONDITIONS,TYPE=VELOCITY
**  Initial velocity of ball is 22 fps at a
**  15 degree angle of attack.
SPHERE, 1, 68.3
SPHERE, 2, 0.
SPHERE, 3,-255.
*BOUNDARY
10000,1,6
*INITIAL CONDITIONS,TYPE=FLUID PRESSURE
30001,6.
**
*RESTART,WRITE,NUM=30
********************
**
*SURFACE,TYPE=ELEMENT,NAME=SPHERE
SPHERE,SPOS
*SURFACE,TYPE=NODE,NAME=STRINGS
 NCONTACT,
*SURFACE INTERACTION,NAME=SPH_STRING
*FRICTION
 0.1,
*RIGID BODY,ELSET=FRAME,REF NODE=10000
*STEP
*DYNAMIC,EXPLICIT
,15.E-3
********************
**
** Contact definitions.
**
********************
*CONTACT
*CONTACT INCLUSIONS
SPHERE,STRINGS
*CONTACT PROPERTY ASSIGNMENT
 SPHERE,STRINGS,SPH_STRING
********************
**
** Output requests.
**
********************
*FILE OUTPUT, NUM=2, TIMEMARKS=YES
*EL FILE
 ELEN,
 S,LE,ERV
*NODE FILE
 U,V
**
** Change number interval to 6 for Viewer Figures
**
*OUTPUT,FIELD,OP=NEW,NUMBER INTERVAL=5,
TIMEMARKS=NO
*ELEMENT OUTPUT
 S,
*NODE OUTPUT
 U,
*OUTPUT,HISTORY,OP=NEW,TIME INTERVAL=3.E-5
*ENERGY OUTPUT
ALLAE,ALLIE,ALLKE,ALLFD,ALLPD,ALLSE,ALLVD,ALLWK,ETOTAL
*NODE OUTPUT,NSET=REFNODE
PCAV,CVOL
********************************************
*END STEP