Return to bigger7.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / share / doc / ps1 / 04.pascal

Annotation of 43BSDReno/share/doc/ps1/04.pascal/bigger7.p, revision 1.1

1.1     ! root        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.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.