{************************************************}
{                                                }
{        Examples of Functions                   }
{        FUN.INC                                 }
{                                                }
{************************************************}

Function F1 (X, Y : Real) : Real;
Begin
 F1 := Exp (- Sqr (X) - Sqr (Y))
End;

Function F2 (X, Y : Real) : Real;
Begin
 F2 := Exp (- Abs (X) - Abs (Y))
End;

Function F3 (X, Y : Real) : Real;
Begin
 F3:=Cos(Sqr(X)+Sqr(Y))/(1+Sqr(X)+Sqr(Y))
End;

Function F4 (X, Y : Real) : Real;
Begin
 F4:=Abs(Cos(Sqr(X)+Sqr(Y)))/(1+Sqr(X)+Sqr(Y))
End;