(*$I+****************************************************************

			GRAPHIC DEMO PROGRAM

     This program gives a graphic representation of a function
f(x) = exp(-x) * sin(2*pi*x).  I adapted it from Jensen, page 30.

written by CHARLIE FOSTER
Feb 1980

****************************************************************
*)

PROGRAM GRAPH1;

CONST
	D = 0.0625;	(* 1/16,16 LINES FOR INTERVAL [X,X+1] *)
	S = 32;		(* 32 CCHARACTER WIDTHS FOR INTERVAL [Y,Y+1] *)
	H = 34;		(* CHARACTER POSITION OF X-AXIS *)
	C = 6.28318;	(* 2*PI *)
      LIM = 32;
VAR
	X,Y : REAL;
	I,N : INTEGER;
BEGIN
	FOR I := 0 TO LIM DO
		BEGIN
		  X := D*I;
		  Y := EXP(-X)*SIN(C*X);
		  N := ROUND(S*Y)+H;
		REPEAT
		  WRITE(' ');
		  N := N-1;
		UNTIL
		  N = 0;
		  WRITELN('*')
		END
END.

.