home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 10 / titel / hcdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-07-26  |  1.1 KB  |  33 lines
  1. (* ------------------------------------------------- *)
  2. (*                    HCDEMO.PAS                     *)
  3. (* ------------------------------------------------- *)
  4. PROGRAM HCDemo;
  5.  
  6. USES PGraph, HardCopyBib, Graph;
  7.  
  8. VAR
  9.   x, y           : Vektor;
  10.   i, n           : WORD;
  11.   x1, x2, y1, y2 : REAL;
  12. BEGIN
  13.   n := 100;
  14.   x1 := -2 * Pi;  x2 := 2 * Pi;
  15.   y1 := -2.5;     y2 := +2.5;             { Datensatz }
  16.   FOR i := 1 TO n DO BEGIN
  17.     x[i] := x1 + (i-1) * (x2-x1) / (n-1);
  18.     y[i] := Sin(1.7 * x[i]) + 2.5 * Cos(0.8 * x[i]);
  19.   END;
  20.   HardcopyOn;       { Methode 1:  Hardcopy aktivieren }
  21.   Geraet := Drucker;                { Grafik erzeugen }
  22.   OpenGraphik;
  23.   GraphikWindow(70, GetMaxX-20, 45, GetMaxY-20);
  24.   Uscale(x1, x2, y1, y2, TRUE, TRUE, 5);
  25.   XAxis(x1, x2, 'x', SmallFont, 5); Xgrid(0);
  26.   YAxis(y1, y2, 'y', SmallFont, 5); Ygrid(0);
  27.   Curve(x, y, n, SolidLn, NormWidth, 15);
  28.   TestHardcopy;    { Methode 2:  Hardcopy mit *-Taste }
  29.   CloseGraphik;
  30.   HardCopyOff;    { Methode 1:  Hardcopy deaktivieren }
  31. END.
  32. (* ------------------------------------------------- *)
  33. (*               Ende von HCDEMO.PAS                 *)