FUNCTION ID *Operation(matvar*IncrAdvancedFunID+22)
  NAME "Compressive_function for *MatProp(Material_Prototype) material"
  TYPE "CCMultiLinearFunction" REMOVE_ALL 
*Set Var hlaska=0
	xvalues *\
*for(i=1;i<=MatProp(Compressive_function,Int);i=i+2)
   *MatProp(Compressive_function,*i,Real) *\
*Set Var hodnota = MatProp(Compressive_function,*i,Real)
*If(hodnota>0)
*Set Var hlaska = 1
*EndIf      
*End
*If(*hlaska>0)
*MessageBox error: Function for Compressive_function has positive  value(s).
*EndIf  

	yvalues *\
*for(i=2;i<=MatProp(Compressive_function,INT);i=i+2)
   *MatProp(Compressive_function,*i) *\
*End

