FINISH
/CLEAR
/config,nproc,2


/PREP7

ET,1,SOLID98			!solid98
KEYOPT,1,1,3			!nastaveni solidu98
KEYOPT,1,3,0
KEYOPT,1,5,2

ET,2,SOLID186   		!prvek solid186 
KEYOPT,2,2,0			!nastaveni solidu186
KEYOPT,2,6,0
KEYOPT,2,10,0  


MPTEMP,,,,,,,,  			!kov
MPTEMP,1,0  
MPDATA,EX,2,,2.1e11 
MPDATA,PRXY,2,,0.3  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,DENS,2,,7850 


	
yd1=0				!x-ova souradnice kraje desky			Deska
yd2=0.045			!x-ova souradnice konce desky
xd1=0.0005			!y-ova souradnice kraje desky
xd2=-0.0005			!y-ova souradnice konce desky
zd1a=0.01			!z-ova souradnice 1. kraje desky
zd1b=-0.01			!z-ova souradnice 2. kraje desky
zd2a=0.005			!z-ova souradnice 1. konce desky
zd2b=-0.005			!z-ova souradnice 2. konce desky

yk1=yd2				!x-ova souradnice kraje kladiva			Kladivo
yk2=yk1+0.011			!x-ova souradnice konce kladiva
xk1=0.010			!y-ova souradnice kraje kladiva
xk2=-0.010			!y-ova souradnice konce kladiva
zk1=0.010			!z-ova souradnice kraje kladiva
zk2=-0.010			!z-ova souradnice konce kladiva

yz1=-0.005			!x-ova souradnice kraje zakladny		zakladna
yz2=0				!x-ova souradnice konce zakladny
xz1=-0.0005			!y-ova souradnice kraje zakladny
xz2=0.0005			!y-ova souradnice konce zakladny
zz1=-0.01			!z-ova souradnice kraje zakladny
zz2=0.01			!z-ova souradnice konce zakladny

ypa1=yd1+0.001			!x-ova souradnice kraje pieza_a			piezo
ypa2=0.035			!x-ova souradnice konce pieza_a
xpa1=xd1			!y-ova souradnice kraje	pieza_a
xpa2=xd1+0.0005			!y-ova souradnice konce pieza_a
zpa1=0.005			!z-ova souradnice kraje pieza_a
zpa2=-0.005			!z-ova souradnice konce pieza_a

ypb1=yd1+0.001			!x-ova souradnice kraje pieza_b
ypb2=0.035			!x-ova souradnice konce pieza_b
xpb1=xd2			!y-ova souradnice kraje	pieza_b
xpb2=xd2-0.0005			!y-ova souradnice konce pieza_b


K, ,xd1,yd1,zd1a,  		!deska
K, ,xd2,yd1,zd1a, 
K, ,xd1,yd1,zd1b,
K, ,xd2,yd1,zd1b, 
K, ,xd1,yd2,zd2a,
K, ,xd2,yd2,zd2a, 
K, ,xd1,yd2,zd2b,
K, ,xd2,yd2,zd2b,  



BLOCK,xk1,xk2,yk1,yk2,zk1,zk2,   !kladivo

BLOCK,xz1,xz2,yz1,yz2,zz1,zz2,   !zakladna  

V,       1,       2,       6,       5,       3,       4,       8,       7  	 !tvorba objemu kovu

!BLOCK,xpa1,xpa2,ypa1,ypa2,zpa1,zpa2,     					 !tvorba objemu krystalu

!BLOCK,xpb1,xpb2,ypb1,ypb2,zpa1,zpa2,    					 !tvorba objemu krystalu


FLST,2,2,6,ORDE,2   
FITEM,2,2   
FITEM,2,-3  
VADD,P51X   
FLST,2,2,6,ORDE,2   
FITEM,2,1   
FITEM,2,4   
VADD,P51X   






CM,_Y,VOLU  
VSEL, , , ,       1 			!vyber objemu
CM,_Y1,VOLU 
CMSEL,S,_Y  
!*  
CMSEL,S,_Y1 
VATT,       2, ,   2,       0   	!prirazeni materialu
CMSEL,S,_Y  
CMDELE,_Y   
CMDELE,_Y1  


 
CM,_Y,VOLU  				!mesh
VSEL, , , ,       2 
CM,_Y1,VOLU 
CMSEL,S,_Y  
!*  
CMSEL,S,_Y1 
VATT,       2, ,   2,       0   
CMSEL,S,_Y  
CMDELE,_Y   
CMDELE,_Y1  
!*  
MSHAPE,1,3D 
MSHKEY,0
!*  
CM,_Y,VOLU  
VSEL, , , ,       2 
CM,_Y1,VOLU 
CHKMSH,'VOLU'   
CMSEL,S,_Y  
!*  
VMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  



FLST,2,3,5,ORDE,3   
FITEM,2,9   
FITEM,2,11  
FITEM,2,-12 
!*  
/GO 
DA,P51X,ALL,



/SOL
!*  
ANTYPE,2
!*  
MSAVE,0 
!*  
MODOPT,LANB,10  
EQSLV,SPAR  
MXPAND,10, , ,1 
LUMPM,0 
PSTRES,0
!*  
MODOPT,LANB,10,0,10000, ,OFF 
/STATUS,SOLU

SOLVE   
FINISH 
