MathGroup Archive 2006

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

Search the Archive

RE: how to identify plane and measuring planar area

  • To: mathgroup at smc.vnet.net
  • Subject: [mg69256] RE: [mg69224] how to identify plane and measuring planar area
  • From: "David Park" <djmp at earthlink.net>
  • Date: Sun, 3 Sep 2006 23:47:05 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

Your code won't evaluate because we don't know what perpframe is. Is it some
kind of police procedure?

David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/

From: T Harris [mailto:tdh1967 at bellsouth.net]
To: mathgroup at smc.vnet.net


I am taking linear algebra and I have questions about the following code.
Can someone run it and help me here?  These are the two questions --> (1)
How do I measure the planar area of this flat thing?  (2)  What plane does
this ellipsoid plot out on?

What would I do in any case like this in the future to determine the plane?
Thanks for any help you can give.

In[566]:=
{xstretch,ystretch,zstretch} = {1.5,0.8,0};
ranger=1.5;
{slow,shigh} = {0,Pi};
{tlow,thigh} = {0,2 Pi};

hungellipsoidplot =
  ParametricPlot3D[  xstretch   Sin[s]  Cos[t]  perpframe[1] +
                     ystretch  Sin[s] Sin[t]  perpframe[2] +
                     zstretch  Cos[s]perpframe[3], {s,slow,shigh},{t,tlow,
      thigh},

    PlotRange->{{-ranger,ranger},{-ranger,ranger},{-ranger,ranger}},
              Axes->True,AxesLabel->{"x","y","z"},
              Boxed->False,ViewPoint->CMView,DisplayFunction->Identity];

setup =Show[hungellipsoidplot,frameplot,Axes3D[ranger],
      DisplayFunction->$DisplayFunction];



Show[setup, ViewPoint -> 12 perpframe[1]];



  • Prev by Date: Books on learning mathematics with Mathematica
  • Next by Date: Re: Why doesn't Mathematica solve this simple differential equation?
  • Previous by thread: Re: how to identify plane and measuring planar area
  • Next by thread: Why doesn't Mathematica solve this simple differential equation?