home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / plotter / driver.pas next >
Encoding:
Pascal/Delphi Source File  |  1988-02-18  |  919 b   |  37 lines
  1. program test;
  2. { this is a sample driver for the routines in plotlib. }
  3.  
  4. uses plotlib;
  5.  
  6. var  i, x, y, theta : integer;
  7.      outstring : vecstring;
  8.      chstr : linestring;
  9.      ch : char;
  10.      plotstuff : datablock;
  11.  
  12.  
  13.  
  14. begin
  15.    with plotstuff do
  16.    begin
  17.       writeln ('Generating points to plot' );
  18.       npoints := 201;
  19.       for i := 1 to npoints do
  20.         begin                                            { fill the arrays }
  21.           xdata [ i ] := ( i ) * 0.01 ;
  22.           ydata [ i ] := 6000.0 + 4000.0 * sin( 8.0 * pi * xdata[i]) + 2000.0 * cos( 12.0 * pi * xdata [i] );
  23.         end;
  24.  
  25. {      pick a plotting format }
  26.  
  27.        logplot ( plotstuff,'Time','Voltage' );
  28.  
  29. {      semilogplot ( plotstuff,'Time','Voltage' );     }
  30.  
  31. {      linearplot ( plotstuff,'Time','Volts',true, false ); }
  32.  
  33.    end;
  34.  
  35.       close ( aux );                { a nice gesture but not required }
  36. end.
  37.