Commit 30a1a03f authored by simonm's avatar simonm
Browse files

[project @ 1999-02-03 16:53:16 by simonm]

Fix accidental defaulting to Integer in magnitude.
parent 46dfa530
......@@ -71,7 +71,7 @@ polar z = (magnitude z, phase z)
magnitude :: (RealFloat a) => Complex a -> a
magnitude (x:+y) = scaleFloat k
(sqrt ((scaleFloat mk x)^2 + (scaleFloat mk y)^2))
(sqrt ((scaleFloat mk x)^(2::Int) + (scaleFloat mk y)^(2::Int)))
where k = max (exponent x) (exponent y)
mk = - k
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment