[unix-history] / puman / bigger7.p

(*
 * Graphic representation of a function
 *    f(x) = exp(-x) * sin(2 * pi * x)
 *)
program graph1(output);
const
	d = 0.0625;   (* 1/16, 16 lines for interval [x, x+1] *)
	s = 32;       (* 32 character width for interval [x, x+1] *)
	h = 34;       (* Character position of x-axis *)
	c = 6.28138;  (* 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.
Commit	Line	Data
5bd13011 BJ	1	(*
	2	* Graphic representation of a function
	3	* f(x) = exp(-x) * sin(2 * pi * x)
	4	*)
	5	program graph1(output);
	6	const
	7	d = 0.0625; (* 1/16, 16 lines for interval [x, x+1] *)
	8	s = 32; (* 32 character width for interval [x, x+1] *)
	9	h = 34; (* Character position of x-axis *)
	10	c = 6.28138; (* 2 * pi *)
	11	lim = 32;
	12	var
	13	x, y: real;
	14	i, n: integer;
	15	begin
	16	for i := 0 to lim do begin
	17	x := d * i;
	18	y := exp(-x) * sin(c * x);
	19	n := round(s * y) + h;
	20	repeat
	21	write(' ');
	22	n := n - 1
	23	until n = 0;
	24	writeln('*')
	25	end
	26	end.