1 -- Copyright (c) 2000 Galois Connections, Inc. 2 -- All rights reserved. This software is distributed as 3 -- free software under the license in the file "LICENSE", 4 -- which is included in the distribution. 5 6 module Primitives where 7 8 rad2deg :: Double -> Double 9 -- never enteredrad2deg r = r * 180 / pi 10 11 deg2rad :: Double -> Double 12 -- entered 2 timesdeg2rad d = d * pi / 180 13 14 addi :: Int -> Int -> Int 15 -- never enteredaddi = (+) 16 17 addf :: Double -> Double -> Double 18 -- never enteredaddf = (+) 19 20 acosD :: Double -> Double 21 -- never enteredacosD x = acos x * 180 / pi 22 23 asinD :: Double -> Double 24 -- never enteredasinD x = asin x * 180 / pi