home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sonderh1 / symmetry.inc < prev    next >
Text File  |  1988-02-01  |  1KB  |  41 lines
  1. (*****************************************************************************)
  2. (*                             SYMMETRY.INC                                  *)
  3. (*                                                                           *)
  4. (*                 Überprüfung der Symmetrieeigenschaften von f              *)
  5. (*****************************************************************************)
  6.  
  7. Procedure CheckSymmetry;
  8.  
  9.    Var Achse,Punkt :Boolean;
  10.  
  11.    Procedure Check (Var Achse,Punkt :Boolean);
  12.  
  13.       Var i :Integer;
  14.           x :Real;
  15.  
  16.       Begin
  17.       Punkt := true;
  18.       Achse := true;
  19.       x := 0;
  20.       For i:=1 to NoPoints do
  21.          Begin
  22.          x := x + d;
  23.          Punkt := Punkt and (abs(fn(x,0)+fn(-x,0)) < eps);
  24.          Achse := Achse and (abs(fn(x,0)-fn(-x,0)) < eps);
  25.          End
  26.       End;
  27.  
  28.  
  29.    Begin
  30.    ClrScr;
  31.    WriteLn ('Symmetrieüberprüfung:'); WriteLn;
  32.    Check (Achse, Punkt);
  33.    If Punkt then
  34.       WriteLn ('Die Funktion ist punktsymmetrisch zum Ursprung');
  35.    If Achse then
  36.       WriteLn ('Die Funktion ist achsensymmetrisch zur y-Achse');
  37.    If not (Punkt or Achse) then
  38.       WriteLn ('Die Funktion ist nicht symmetrisch');
  39.    WriteLn
  40.    End;
  41.