Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > comp.soft-sys.math.mathematica > #3238
| From | Roger Bagula <roger.bagula@gmail.com> |
|---|---|
| Newsgroups | comp.soft-sys.math.mathematica |
| Subject | Re: implicit surfaces from older version of Mathematica |
| Date | 2011-06-22 07:43 +0000 |
| Organization | Steven M. Christensen and Associates, Inc and MathTensor, Inc. |
| Message-ID | <its6f4$5uq$1@smc.vnet.net> (permalink) |
| References | <201106071047.GAA05975@smc.vnet.net> <isnllv$n7h$1@smc.vnet.net> <itejvd$s3f$1@smc.vnet.net> |
Folium substitution: the x and y are used as
folium variables.
x = 3*t/(1 + t^3); y = 3*t^2/(1 + t^3);
d = (1 + t^3)*{{z, -x, 0, 0},
{x, 0, -y, 0},
{0, -y, 0, z},
{0, 0, -z, t1}};
m2 = d.Transpose[d]
f[t_, t1_, z_] = ExpandAll[Det[m2]*Tr[m2] - 1]
ContourPlot3D[
f[kx, ky, -kz], {kx, -Pi, Pi}, {ky, -Pi, Pi}, {kz, -Pi, Pi},
PlotPoints -> 30, Contours -> {0.000001}, Boxed -> False,
Axes -> False, Mesh -> False]
This works but only slowly.
Roger Bagula
Back to comp.soft-sys.math.mathematica | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll 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