Re: Re: axes for Plot3D
- To: mathgroup at smc.vnet.net
- Subject: [mg60893] Re: [mg60872] Re: axes for Plot3D
- From: "David Park" <djmp at earthlink.net>
- Date: Sun, 2 Oct 2005 01:54:44 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Thomas,
One possible way to do this is with the DrawGraphics package from my web
site.
Needs["DrawGraphics`DrawingMaster`"]
Draw3DItems[
{Draw3D[Evaluate[Sin[x y] /. x -> -x], {x, -Pi, Pi}, {y, -Pi, Pi}]},
Axes -> True,
Ticks -> {CustomTicks[-# &, {-2, 2, 2, 5}], Automatic, Automatic},
ImageSize -> 450];
The rule reverses x in the plot and the first argument of CustomTicks,
-#&, reverses the scale on the x axis.
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
From: grimey [mailto:tfgeyer at yahoo.com]
To: mathgroup at smc.vnet.net
Thank you, but it's not what I'm looking for, that's just determining
where the axes should be drawn.
Perhaps I explained it badly:
I want to draw
Plot3D[Sin[x y],{x,-Pi,Pi},{y,-Pi,Pi}] but in a way that it looks like
I draw
Plot3D[Sin[-x y]],{x,-Pi,Pi},{y,-Pi,Pi}]], so that the positive x-axis
and the negative x-axis are switched, it should start with "+Pi" (left
side in default ViewPoint) and end with "-Pi" (right side in default
ViewPoint), but it should still show "Sin[x y]". Just one axis is
rotated for 180 degree.
Of course it's not Sin[x y] that I want to plot, that is just an
example. I have a 3D-plot where the most important things can be seen
in one corner that you don't get to see in the front simply by changing
the ViewPoint, you somehow have to invert one axis of the plot.
Thank you.
Thomas Geyer