|
@@ -0,0 +1,20 @@
|
|
|
|
|
+-- Exercise 3.8
|
|
|
|
|
+-- George C. Privon
|
|
|
|
|
+-- 2023-09-05
|
|
|
|
|
+
|
|
|
|
|
+-- Add type signatures to code definitions
|
|
|
|
|
+
|
|
|
|
|
+circleRadius :: Double
|
|
|
|
|
+circleRadius = 3.5
|
|
|
|
|
+
|
|
|
|
|
+cot :: Double -> Double
|
|
|
|
|
+cot x = 1 / tan x
|
|
|
|
|
+
|
|
|
|
|
+fe :: Double -> Double
|
|
|
|
|
+fe epsilon = epsilon * tan (epsilon * pi / 2)
|
|
|
|
|
+
|
|
|
|
|
+fo :: Double -> Double
|
|
|
|
|
+fo epsilon = -epsilon * cot (epsilon * pi / 2)
|
|
|
|
|
+
|
|
|
|
|
+g :: Double -> Double -> Double
|
|
|
|
|
+g nu epsilon = sqrt (nu**2 - epsilon**2)
|
