Bugfix: empty echo statement

This commit is contained in:
Andreas Rumpf 2010-03-20 01:07:34 +01:00
commit c5d8a5c1da
5 changed files with 19 additions and 23 deletions

View file

@ -97,7 +97,7 @@ proc sqrt*(z: TComplex): TComplex =
w = sqrt(y) * sqrt(0.5 * (r + sqrt(1.0 + r * r)))
if z.re >= 0.0:
result.re = w
result.im = z.im / (w * 2)
result.im = z.im / (w * 2.0)
else:
if z.im >= 0.0: result.im = w
else: result.im = -w