*HEADING
EC34EFDF: DLOAD, DECHARGE, AND TEMPERATURE FOR PIEZO. ELEMENTS  [C3D4E]
*PREPRINT,ECHO=YES,HISTORY=NO,MODEL=NO
*NODE,NSET=ALL_NODES_IN_MODEL
1    , 0.        , 0.        , 0.
2    , 7.        , 0.        , 0.
3    , 7.        , 0.        , -7.
4    , 0.        , 0.        , -7.
5    , 0.        , 7.        , 0.
6    , 7.        , 7.        , 0.
7    , 7.        , 7.        , -7.
8    , 0.        , 7.        , -7.
*NSET,NSET=NS1
1,4,5,8
*NSET,NSET=NS2
1,2,3,4
*NSET,NSET=NS3
1,2,5,6
*ELEMENT,TYPE=C3D4E,ELSET=ALL_ELEMENTS
 1, 4,3,8,1
 2, 1,3,6,2
 3, 3,7,8,6
 4, 1,6,8,5
 5, 1,6,3,8
**local orientation matching global system 
*ORIENTATION,NAME=RECT
 1.0, 0.0, 0.0, 0.0, 1.0, 0.0
 1, 0.0
*SOLID SECTION,MATERIAL=ELMAT, ELSET=ALL_ELEMENTS,ORIENT=RECT
*MATERIAL,NAME=ELMAT
*ELASTIC
 3.E6,0.3
*PIEZOELECTRIC
 15.08,-5.207,-5.207,0.,0.,0.,0.,0.
 0.,12.710,0.,0.,0.,0.,0.,0.,
 12.710,0.
*DIELECTRIC,TYPE=ANISO
 5.872E-9,0.,6.752E-9,0.,0.,6.752E-9
*EXPANSION
 .0001, 
*DENSITY
 10.0, 
*INITIAL CONDITIONS,TYPE=TEMPERATURE
 ALL_NODES_IN_MODEL,-10.
*BOUNDARY
 ALL_NODES_IN_MODEL,1,3
 ALL_NODES_IN_MODEL,9
*STEP,PERTURBATION
*STATIC
*DLOAD
 ALL_ELEMENTS,BX,3000.
*EL PRINT
 LOADS,
*NODE PRINT
 RF, 
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 ALL_ELEMENTS,BY,3000.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 ALL_ELEMENTS,BZ,3000.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 ALL_ELEMENTS,GRAV,300.,1.,0.,0.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 ALL_ELEMENTS,CENT,300.,-1000.,3.5,-3.5,0.,1.,0.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 ALL_ELEMENTS,CENTRIF,30.,-1000,3.5,-3.5,0.,1.,0.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 1,P1,3000.
 3,P1,3000.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 2,P4,3000.
 4,P2,3000.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 1,P2,3000.
 2,P2,3000.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 2,P3,3000.
 3,P2,3000.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 3,P3,3000.
 4,P3,3000.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 1,P4,3000.
 4,P4,3000.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 1,HP1,3000.,0.,-7.
 3,HP1,3000.,0.,-7.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 2,HP4,3000.,0.,-7.
 4,HP2,3000.,0.,-7.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 1,HP2,3000.,0.,-7.
 2,HP2,3000.,0.,-7.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 2,HP3,3000.,0.,-7.
 3,HP2,3000.,0.,-7.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 3,HP3,3000.,0.,-7.
 4,HP3,3000.,0.,-7.
*END STEP
*STEP,PERTURBATION
*STATIC
*DLOAD
 1,HP4,3000.,0.,-7.
 4,HP4,3000.,0.,-7.
*END STEP
*STEP,PERTURBATION
*STATIC
*DECHARGE
ALL_ELEMENTS,EBF,3000.
*EL PRINT
 CHRGS,
*NODE PRINT
RCHG, 
*END STEP
*STEP,PERTURBATION
*STATIC
*DECHARGE
 1,ES1,3000.
 3,ES1,3000.
*END STEP
*STEP,PERTURBATION
*STATIC
*DECHARGE
 2,ES4,3000.
 4,ES2,3000.
*END STEP
*STEP,PERTURBATION
*STATIC
*DECHARGE
 1,ES2,3000.
 2,ES2,3000.
*END STEP
*STEP,PERTURBATION
*STATIC
*DECHARGE
 2,ES3,3000.
 3,ES2,3000.
*END STEP
*STEP,PERTURBATION
*STATIC
*DECHARGE
 3,ES3,3000.
 4,ES3,3000.
*END STEP
*STEP,PERTURBATION
*STATIC
*DECHARGE
 1,ES4,3000.
 4,ES4,3000.
*END STEP
*STEP,PERTURBATION
*STATIC
*TEMPERATURE
 ALL_NODES_IN_MODEL,40.
*EL PRINT
 S, 
*NODE PRINT
 RF, 
*END STEP
*STEP,PERTURBATION
*STATIC
*BOUNDARY,OP=NEW
 NS1,1
 NS2,2
 NS3,3
 ALL_NODES_IN_MODEL,9
*TEMPERATURE,OP=MOD
 ALL_NODES_IN_MODEL,40.
*EL PRINT,FREQ=0
*NODE PRINT
 U, 
*END STEP