! Piezo-Material: PKG 11 Stelko (Pseudo Werte)
! Si Einheiten

FINISH
/clear,start,ans

/TITLE,Tune_Piezo


/PREP7
/UNITS,SI

!--------------------------------------------------------------------
!	Parameter

Spannung=-90

!--------------------------------------------------------------------
!       Element-Typen und Materialeigenschaften



! Piezo		Material 1	PKG11Pseudo
! Elementtyp
!-------------------------------------------
ET,1,SOLID5  !98
KEYOPT,1,1,3			! DOF: UX,UY,UZ,VOLT
!Materialeigenschaften Piezo:
!--------------------------------------------------------------------------
GSV=2                           ! GSV wird in Piezo.txt benötigt
!	Dielektrizitätskonstante
!	konstanter relativer Dehnung, S=konst
MP,PERX,1,1
MP,PERY,1,1
MP,PERZ,1,3200

!	Piezoelektrische Matrix
TB,PIEZ,1
TBDATA,3,-22.01*GSV
TBDATA,6,-28.66*GSV
TBDATA,9,21.66*GSV
TBDATA,14,0*GSV
TBDATA,16,0*GSV

!	Steifigkeitsmatrix
!	E=konst
TB,ANEL,1
TBDATA,1,6.29e10,1.90e10,2.28e10
TBDATA,7,6.29e10,1.75e10
TBDATA,12,5.26e10
TBDATA,16,2.42e10
TBDATA,19,3.79e10
TBDATA,21,3.79e10






ET,3,SOLID5!98
KEYOPT,3,1,3 ! DOF: UX,UZ,UY,Volt ;  3,1,9 für DOF: Volt
!Materialeigenschaften Leiter:
!------------------------------------------------------------------------
!/COM,ANSYS RELEASE 10.0    UP20050718       14:12:46    04/11/2006
MPTEMP
MPTEMP,     1, 0.0000000E+00,
MPDATA,EX  ,       3,   1, 0.0000000E+00,
MPTEMP
MPTEMP,     1, 0.0000000E+00,
MPDATA,RSVX,       3,   1, 0.1000000E+06,
MPTEMP
MPTEMP,     1, 0.0000000E+00,
MPDATA,PRXY,       3,   1, 0.0000000E+00,





!--------------------------------------------------------------------
!	Geometrie
!--------------------------------------------------------------------

! Abmaße Piezo
!--------------

l_pzt=3e-3			! Laenge Piezo=2*Poly
b_pzt=5e-3			! Breite Belag s.o.
h_pzt=900e-6
!Abmaße Leiter = Abmaße Piezo


!	Volume - Piezo Teil1
Block,0,l_pzt,0,b_pzt,0,h_pzt

!       Volumen - Metallkontakt
Block,0,l_pzt,0,b_pzt,h_pzt,h_pzt+h_pzt





VGLUE,all
numcmp,volu
!------------------------------------------------------------------------
!Material zuordnen
!------------------------------------------------------------------------
!Körper1 (Piezo) Material
ALLSEL
VSEL,s,,,1
VATT,1,,1

!Körper2 (Leiter)
ALLSEL
VSEL,s,,,2
VATT,3,,1

!--------------------------------------------------------------------
! Gitter
!--------------------------------------------------------------------

ALLSEL

!/eof

MSHKEY,1		! mapped mesh
VMESH,ALL
FINISH



!--------------------------------------------------------------------
! Randbedingungen
!--------------------------------------------------------------------

! Verschiebung = 0
!-----------------

ALLSEL
NSEL,s,LOC,y,0
D,ALL,UX,0
D,ALL,UY,0
D,ALL,UZ,0



!Oberseite der metallplatte wird geerdet
ALLSEL
asel,s,area,,8
nsla,s
D,ALL,VOLT,0

!Am Piezoende wird gezogen
ALLSEL
asel,s,area,,4
nsla,s
D,all,Uy,2e-5

!-----------------------------------------------------------------------
!Lösen
!-----------------------------------------------------------------------
/SOLU
ANTYPE,static,new


ALLSEL
SOLVE

FINISH
/post1
/dscale,1,10
plnsol,volt
finish

/POST1
SET,first

/eof