Turbo Toolbox/Turbo_Toolbox.iso/1989/04/extra/fun.pas

Pascal/Delphi Source File | 1989-01-25 | 428 b | 23 lines

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 ;