[Maxima-commits] Maxima, A Computer Algebra System branch master updated. 4d4399a09e36440e213d13b5251ae073e1ba5781

[Dieter K. <cra...@us...>]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Maxima, A Computer Algebra System".

The branch, master has been updated
       via  4d4399a09e36440e213d13b5251ae073e1ba5781 (commit)
      from  d50f93ab988a3d1879cec3531e9013142fa9b689 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 4d4399a09e36440e213d13b5251ae073e1ba5781
Author: crategus <cra...@us...>
Date:   Wed Oct 26 20:22:41 2011 +0200

    Correcting the function maybe-realpart.
    
    Related bug report:
    3151302 Wrong plotting of functions based on spherical harmonics

diff --git a/src/plot.lisp b/src/plot.lisp
index eb8bdc5..e275758 100644
--- a/src/plot.lisp
+++ b/src/plot.lisp
@@ -85,15 +85,15 @@ sin(y)*(10.0+6*cos(x)),
      "set size 1.5, 1.5;set term postscript eps enhanced color solid 24")
     ((mlist) $plot_realpart nil)))
 
-;; $plot_realpart option is false by default but *plot-realpart* is true because coerce-float-fun
-;; is used outside of plot package too.
+;; $plot_realpart option is false by default but *plot-realpart* is true
+;; because coerce-float-fun is used outside of plot package too.
 (defvar *plot-realpart* t)
 
 (defun maybe-realpart (x)
   (if *plot-realpart*
       ($realpart x)
-      (if (eq 0 ($imagpart x))
-          x
+      (if (zerop1 ($imagpart x))
+          ($realpart x)
           nil)))
 
 (defvar *missing-data-indicator* "NaN")

-----------------------------------------------------------------------

Summary of changes:
 src/plot.lisp |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)


hooks/post-receive
-- 
Maxima, A Computer Algebra System