MathGroup Archive 2011

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

Search the Archive

Re: implicit surfaces from older version of Mathematica

  • To: mathgroup at smc.vnet.net
  • Subject: [mg119617] Re: implicit surfaces from older version of Mathematica
  • From: Roger Bagula <roger.bagula at gmail.com>
  • Date: Tue, 14 Jun 2011 06:13:50 -0400 (EDT)
  • References: <201106071047.GAA05975@smc.vnet.net> <isnllv$n7h$1@smc.vnet.net>

Heike Gramberg,
Thank you for your help.
I have done some further experiments using your forms.
I have trouble with edges of the surfaces,
 even when I get them connected right:
Clear[ x, y, z, f, g, FermiPlot,d,d,d1,m2]
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]
f[x_, y_, z_] = 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]
FermiPlot[energy_] :=
  ContourPlot3D[
   f[kx, ky, -kz], {kx, -Pi, Pi}, {ky, -Pi, Pi}, {kz, -Pi, Pi},
   PlotPoints -> 20, Contours -> {energy}, Boxed -> False,
   Axes -> False];
Row[Show[FermiPlot[0.000001], ViewPoint -> #,
    ImageSize -> 300] & /@ {{0, -0.045, 3.384}, {0.009, -3.331,
    0.597}, {-3.329, 0.088, 0.597}}]
(* decomposition matrix in Killing's vectors*)
d1 = {{1, -1, 0, 0, 0},
   {1, 0, -1, 0, 0},
   {0, 1, 0, -1, 0},
   {0, 0, 1, 0, -1},
   {0, 0, 0, 1, -1}};
(* Cartan Matrix:)
c = d1.Transpose[d1]

Roger Bagula


  • Prev by Date: Re: Front end - Error when saving file
  • Next by Date: Question with ToExpression
  • Previous by thread: Re: implicit surfaces from older version of Mathematica
  • Next by thread: Re: implicit surfaces from older version of Mathematica