home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol022 / graph1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1984-04-29  |  811 b   |  40 lines
  1.  
  2. (*$I+****************************************************************
  3.  
  4.             GRAPHIC DEMO PROGRAM
  5.  
  6.      This program gives a graphic representation of a function
  7. f(x) = exp(-x) * sin(2*pi*x).  I adapted it from Jensen, page 30.
  8.  
  9. written by CHARLIE FOSTER
  10. Feb 1980
  11.  
  12. ****************************************************************
  13. *)
  14.  
  15. PROGRAM GRAPH1;
  16.  
  17. CONST
  18.     D = 0.0625;    (* 1/16,16 LINES FOR INTERVAL [X,X+1] *)
  19.     S = 32;        (* 32 CCHARACTER WIDTHS FOR INTERVAL [Y,Y+1] *)
  20.     H = 34;        (* CHARACTER POSITION OF X-AXIS *)
  21.     C = 6.28318;    (* 2*PI *)
  22.       LIM = 32;
  23. VAR
  24.     X,Y : REAL;
  25.     I,N : INTEGER;
  26. BEGIN
  27.     FOR I := 0 TO LIM DO
  28.         BEGIN
  29.           X := D*I;
  30.           Y := EXP(-X)*SIN(C*X);
  31.           N := ROUND(S*Y)+H;
  32.         REPEAT
  33.           WRITE(' ');
  34.           N := N-1;
  35.         UNTIL
  36.           N = 0;
  37.           WRITELN('*')
  38.         END
  39. END.
  40.