home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / math.swg / 0048_Test of CALCULUS Unit.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-11-02  |  1.0 KB  |  35 lines
  1. { LOU DUCHEZ }
  2. program mathtest;
  3. uses
  4.   calculus;
  5.  
  6. var
  7.   answer : real;
  8.  
  9. {$F+} { WARNING!  YOU NEED "FAR" FUNCTIONS! }
  10. function y(x : real) : real;
  11. begin
  12.   y := 2 * sqrt(4 - x * x);
  13. end;
  14. {$F-}
  15.  
  16. begin
  17.   Writeln;
  18.   Writeln('Function: y = 2 * (4 - x^2)^(1/2) (i.e., Circle Radius 2)');
  19.   Writeln;
  20.  
  21. { Calc operations here are: }
  22.  
  23. { Integrate function from -2 to 2, in increments of 0.001. A half circle. }
  24. { However since equation multiplies it by 2, then we get area of full circle }
  25. { Get slope of function at 0 by evaluating points 0.01 away from each other. }
  26. { Find extremum of function, starting at 0.4, initially looking at points
  27.   0.1 on either side of 0.4, and not stopping until we have two x-values
  28.   within 0.001 of each other. }
  29.  
  30.   answer := integral(-2, 2, 0.001, @y);    writeln('Integ: ', answer:13:9);
  31.   answer := derivative(1, 0.001, @y);      writeln('Deriv: ', answer:13:9);
  32.   answer := extremum(0.4, 0.1, 0.001, @y); writeln('Extrm: ', answer:13:9);
  33.   Writeln(4*Pi:0:6);
  34. end.
  35.