temp1=!replace x by ($x) in $fonc_m
temp1=!replace y by ($y) in $temp1
temp1=$[$temp1]

temp2=!replace x by ($x) in $cont
temp2=!replace y by ($y) in $temp2
temp2=$[$temp2]

!if $nsol=0
	!if $x=non and $y=non
 	diagnostics=good
	!else
	 diagnostics=bad
	!endif
!else
       x=$[$x]
       y=$[$y]
      !if $x=NaN or $y=NaN
      diagonstics=bad
      !else

	!if $temp1>=$z1 and $temp2 <= $mcont
 	diagnostics=good
	!else
	 diagnostics=bad
	!endif

      !endif
!endif
