home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / printer / laser.arc / SINC.PAS < prev    next >
Pascal/Delphi Source File  |  1988-03-27  |  694b  |  27 lines
  1. Program Sine;
  2. {This program creates a sample file for the plotting programs.}
  3.  
  4. Var
  5.   File_var:    Text;
  6.   I:           Integer;
  7.   J:           Integer;
  8.   Scale:       Real;
  9.   Sine_point:  Real;
  10.  
  11. Begin
  12.   Assign(File_var, 'Sinc.dat');
  13.   Rewrite(File_var);
  14.   Scale := 2.0 * pi / 20.0;
  15.   Writeln(File_var, 41); {number of lines in the data}
  16.   Writeln(File_var, 41); {number of points in each line}
  17.   For I:=-20 to 20 do
  18.   For J:=-20 to 20 do
  19.   Begin
  20.     Sine_point := Sqrt(Sqr(1.0*I) + Sqr(1.0*J))*Scale;
  21.     If Abs(Sine_point) < 0.0000001 then
  22.       Writeln(File_var, 1.0)
  23.     Else
  24.       Writeln(File_var, Sqr(Sin(Sine_point)/Sine_point));
  25.   End;
  26.   Close(File_var);
  27. End.