| 1234567891011121314151617181920 |
- -- 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)
|
