**[**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**]**