Parent Directory | Revision Log | Patch
revision 1.6 by camm, Sun Sep 18 02:46:35 2005 UTC | revision 1.7 by camm, Tue Nov 1 12:15:39 2005 UTC | |
---|---|---|
# | Line 80 | Line 80 |
80 | ||
81 | ||
82 | (defun phase (x) | (defun phase (x) |
83 | (atan (imagpart x) (realpart x))) | (if (= 0 x) 0.0 |
84 | (atan (imagpart x) (realpart x)))) | |
85 | ||
86 | (defun signum (x) (if (zerop x) x (/ x (abs x)))) | (defun signum (x) (if (zerop x) x (/ x (abs x)))) |
87 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |