save,pre_mod,db
/prep7
/COM, Units SI! (m, kg, s, N ...)
/COM,
/COM, CONSTITUTIVE MATRICES FOR PZT-5A (POLAR AXIS ALONG Y)
/COM,
/COM, [c11 c13 c12 0 0 0 ] [ 0 0 0 0 e15 0] [ ep11 0 0 ]
/COM, [c13 c33 c13 0 0 0 ] [ 0 0 0 e15 0 0] [ 0 ep33 0 ]
/COM, [c12 c13 c11 0 0 0 ] [ e31 e31 e33 0 0 0] [ 0 0 ep11 ]
/COM, [ 0 0 0 c44 0 0 ] 
/COM, [ 0 0 0 0 c44 0 ] 
/COM, [ 0 0 0 0 0 c66] 
/COM,
MP,PERX,10,1730 ! RELATIVE PERMITTIVITY 
MP,PERY,10,1730
MP,PERZ,10,1700
TB,ANEL,10 ! ANISOTROPIC ELASTIC STIFFNESS
TBDA,1,121E9,75.2E9,75.4E9 ! c11,c13,c12
TBDA,7,111E9,75.2E9 ! c33,c13
TBDA,12,121E9 ! c11
TBDA,16,21.1E9 ! c44
TBDA,19,21.1E9 ! c44
TBDA,21,22.6E9 ! c66
TB,PIEZ,10 ! PIEZOELECTRIC STRESS COEFFICIENTS
TBDA,2,-5.4 ! e31
TBDA,5,15.8 ! e33
TBDA,8,-5.4 ! e31
TBDA,10,12.3 ! e15
TBDA,15,12.3 ! e15
et,10,plane223,1001,,1 !
cmsel,s,Piezo ! Piezoelement auswählen
emodif,all,type,10 ! Materialeigenschaften übergeben
emodif,all,mat,10 ! Materialeigenschaften übergeben
emodif,all,esys,12 ! Materialeigenschaften übergeben
alls
allsel,all
outres,all,all
finish
/solu