Re: implicit surfaces from older version of Mathematica

*To*: mathgroup at smc.vnet.net*Subject*: [mg119784] Re: implicit surfaces from older version of Mathematica*From*: Roger Bagula <roger.bagula at gmail.com>*Date*: Wed, 22 Jun 2011 03:44:36 -0400 (EDT)*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

**References**:**implicit surfaces from older version of Mathematica***From:*Roger Bagula <roger.bagula@gmail.com>