MathGroup Archive 2011

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: implicit surfaces from older version of Mathematica


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


  • Prev by Date: Re: random financial portfolios
  • Next by Date: Re: pairing values from a list
  • Previous by thread: Re: implicit surfaces from older version of Mathematica
  • Next by thread: Front end - Error when saving file