Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.soft-sys.math.mathematica > #3136

Re: implicit surfaces from older version of Mathematica

Show all headers | View raw

Heike Gramberg
Thanks.
If you put in a Mesh->False,
you get a pretty surface:
d = {{z, -x, 0, 0, 0}, {x, 0, -y, 0, 0}, {0, y, 0, -z, 0}, {0, 0, z,
    0, -y}, {0, 0, 0, y, -x}};
m2 = d.Transpose[d]
ContourPlot3D[
 Evaluate[(Det[d] Sqrt[Tr[m2]] /. z -> -kz)], {x, -Pi, Pi}, {y, -Pi,
  Pi}, {kz, -Pi, Pi}, PlotPoints -> 15, MaxRecursion -> 1,
 Contours -> {-1, 1}, Boxed -> False, Axes -> False, Mesh -> False]
The anti-diagonal I associate with space and the diagonal Killing
vectors with time.
So making time constant:
d = {{1, -x, 0, 0, 0}, {x, 0, -y, 0, 0}, {0, y, 0, -z, 0}, {0, 0, z,
    0, -y}, {0, 0, 0, y, -1}};
m2 = d.Transpose[d]
ContourPlot3D[
 Evaluate[(Det[d] Sqrt[Tr[m2]] /. z -> -kz)], {x, -Pi, Pi}, {y, -Pi,
  Pi}, {kz, -Pi, Pi}, PlotPoints -> 15, MaxRecursion -> 1,
 Contours -> {-1, 1}, Boxed -> False, Axes -> False, Mesh -> False]
Gives a surface with a four fold/ C4rotation axis.
Roger Bagula

Back to comp.soft-sys.math.mathematica | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread

Thread

Re: implicit surfaces from older version of Mathematica Heike Gramberg <heike.gramberg@gmail.com> - 2011-06-08 11:16 +0000
  Re: implicit surfaces from older version of Mathematica Roger Bagula <roger.bagula@gmail.com> - 2011-06-14 10:13 +0000
  Re: implicit surfaces from older version of Mathematica Heike Gramberg <heike.gramberg@gmail.com> - 2011-06-15 11:21 +0000
  Re: implicit surfaces from older version of Mathematica Roger Bagula <roger.bagula@gmail.com> - 2011-06-17 04:08 +0000
    Re: implicit surfaces from older version of Mathematica Roger Bagula <roger.bagula@gmail.com> - 2011-06-22 07:43 +0000
    Re: implicit surfaces from older version of Mathematica Roger Bagula <roger.bagula@gmail.com> - 2011-06-22 07:57 +0000

csiph-web