[Back to MATH SWAG index] [Back to Main SWAG index] [Original]

    { LOU DUCHEZ }
    program mathtest;
    uses
      calculus;

    var
      answer : real;

    {$F+} { WARNING!  YOU NEED "FAR" FUNCTIONS! }
    function y(x : real) : real;
    begin
      y := 2 * sqrt(4 - x * x);
    end;
    {$F-}

    begin
      Writeln;
      Writeln('Function: y = 2 * (4 - x^2)^(1/2) (i.e., Circle Radius 2)');
      Writeln;

    { Calc operations here are: }

    { Integrate function from -2 to 2, in increments of 0.001. A half circle. }
    { However since equation multiplies it by 2, then we get area of full circle }
    { Get slope of function at 0 by evaluating points 0.01 away from each other. }
    { Find extremum of function, starting at 0.4, initially looking at points
      0.1 on either side of 0.4, and not stopping until we have two x-values
      within 0.001 of each other. }

      answer := integral(-2, 2, 0.001, @y);    writeln('Integ: ', answer:13:9);
      answer := derivative(1, 0.001, @y);      writeln('Deriv: ', answer:13:9);
      answer := extremum(0.4, 0.1, 0.001, @y); writeln('Extrm: ', answer:13:9);
      Writeln(4*Pi:0:6);
    end.

[Back to MATH SWAG index] [Back to Main SWAG index] [Original]