home *** CD-ROM | disk | FTP | other *** search
/ Esprit de Apple Corps / EDAC-2.iso / Graphics / Apps / Programs / MathGraphics / Samples / GenData.p next >
Encoding:
Text File  |  1993-11-30  |  569 b   |  32 lines
  1. {
  2.   GenData
  3.  
  4.   sample program to illustrate the generation of paired values
  5.   for MathGraphics
  6. }
  7. {$keep 'GenData'}
  8. program GenData;
  9.  
  10. var f:text;
  11.     i:integer;
  12.     a: array[1..2] of double;
  13.  
  14. begin
  15.   rewrite(f,'Lissajou.txt');
  16.   writeln(f,'201 / number of paired values');
  17.   for i := 0 to 200 do
  18.     begin
  19.       a[1] := sin(i/40+1)*50;
  20.       a[2] := cos(i/4); 
  21.       writeln(f,a[1],' ',a[2]);
  22.     end;
  23.   close(f);
  24.   rewrite(f,'Spiral.txt');
  25.   writeln(f,'50 / number of paired values');
  26.   for i := 1 to 50 do
  27.     begin
  28.       writeln(f,i,' ',i);
  29.     end;
  30.   close(f);
  31. end.
  32.