plot3d: function not defined everywhere in the plotting range

On 8/13/10, claudio botarelli <claudio.botarelli at gmail.com> wrote:

> wxplot3d(log(x),[x,-3,3],[y,-3,3]);
> and
> wxcontour_plot(log(x),[x,-3,3],[y,-3,3]);
> produce outputs congruent but not consistent.

Those functions call plot3d, which does not respect the
plot_realpart plot option (which is false by default).
I;ve attached a patch to make plot3d respect plot_realpart,
which I'll commit if there aren't any objections.

plot_realpart is kind of a hack ... I've played
my part in perpetuating it but maybe it wouldn't hurt
to reconsider.

best,

Robert Dodier

PS.
Index: plot.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/plot.lisp,v
retrieving revision 1.161
diff -u -r1.161 plot.lisp
--- plot.lisp   20 Jun 2010 04:49:24 -0000      1.161
+++ plot.lisp   13 Aug 2010 15:00:16 -0000
@@ -1813,6 +1813,7 @@
      lvars trans xrange yrange *original-points*
      functions exprn domain tem ($plot_options $plot_options)
      ($in_netmath $in_netmath) features
+     (*plot-realpart* *plot-realpart*)
      gnuplot-term gnuplot-out-file file titles (output-file "")
      (usage (intl:gettext
 "plot3d: Usage.
@@ -1947,6 +1948,7 @@
   ;; parse the options given to plot3d
   (setq features (plot-options-parser options features))
   (setq tem ($get_plot_option '$transform_xy 2))
+  (setq *plot-realpart* ($get_plot_option '$plot_realpart 2))

   ;; set up the labels for the axes
   (when (or (null (getf features :box)) (first (getf features :box)))