Re: Oblique coordinates from cartesian coordinates

*To*: mathgroup at smc.vnet.net*Subject*: [mg119933] Re: Oblique coordinates from cartesian coordinates*From*: Scott Centoni <scentoni at hotmail.com>*Date*: Thu, 30 Jun 2011 06:31:01 -0400 (EDT)

Hi Paco, The Graphics or Graphics3D primitives are generally located in the first element of the result from Plot or Plot3D. Try this: Graphics3D[{GeometricTransformation[ A[[1]], {{{.8, .5, .5}, {0, .8, .5}, {0, 0, .8}}, {.5, .5, 0}}]}] If you want to see the contents of A rather than plotting it, look at List@@A. Scott Centoni > Oblique coordinates from cartesian coordinates > > To: mathgroup at smc.vnet.net > Subject: Oblique coordinates from cartesian coordinates > From: Francisco Miguel Morales Sanchez <fmiguel.morales at gm.uca.es> > Date: Thu, 2 Jun 2011 07:15:34 -0400 (EDT) > Hello: > 3D plots and contourplots are generated authomatically in a cartesian > base with x > and y axes having 90 degrees between them but I would like this axis > to appear as if it was 60=BA. > > I found that a 3D object can be presented with a > different "aparent angle" by using oblique coordinates with "Affine" > or "Geometric Transformation", for example: > > gr = {Cuboid[], AbsolutePointSize[10], Opacity[1], {Magenta, Point[{0, > 0, 0}]}, {Green, Point[{1, 1, 1}]}}; > > Graphics3D[{{Opacity[.35], Blue, gr}, > GeometricTransformation[{Opacity[.85], Red, > gr}, {{{.8, .5, .5}, {0, .8, .5}, {0, 0, .8}}, {.5, .5, 0}}]}, > Boxed -> False] > > > MY QUESTION IS: Why can I not make the same procedure for a Plot3D or > a ContourPlot? Following the same way I get not output. This is an > example of waht I say: > > A=Plot3D[Sin[x + y^2], {x, 0, 1}, {y, 0, 1}]; > Graphics3D[{GeometricTransformation[A, {{{.8, .5, .5}, {0, .8, .5}, > {0, 0, .8}}, {.5, .5, 0}}]}] > > I WOULD BE VERY GRATEFUL IF YOU COULD HELP ME!, THANKS IN ADVANCE. > Paco >