blob: 66f04ac8f0062cc03b9bd22b6a60125302969f13 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
implementation module EllipsOmtrek
import StdEnv
Start = ( perimeter pr (4.0,3.0) // approximated perimeter of ellipse with radii 4.0 and 3.0
, perimeter pr (4.0,4.0) // approximated perimeter of circle with radius 4.0
, 2.0 * pi * 4.0 // perimeter of circle with radius 4.0
)
where pr = 0.0001
/* perimeter precision (r1,r2) approximates the perimeter of an ellipse with radii r1 and r2 given
the requested precision.
All arguments must be positive Reals.
*/
perimeter :: Real (Real,Real) -> Real
perimeter precision (r1,r2) ...
|
