Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

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

Search the Archive

2nd attempt at post with corrected code

  • To: mathgroup at smc.vnet.net
  • Subject: [mg69274] 2nd attempt at post with corrected code
  • From: "T Harris" <tdh1967 at bellsouth.net>
  • Date: Tue, 5 Sep 2006 05:30:36 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

Hello,

I have tried everything I know to get this code to look as it does in the 
notebook.  I can't do it.  However, once it is copied and pasted in a 
notebook, it works on my machine and looks like it originally did.  If it 
doesn't work for anyone else, thanks for the try.  I can't remove my last 
message.  This is my second attempt at this.  I am sorry others have tried 
and been unable to help because of missing code.  If it doesn't work now, 
thanks, and I won't try again to repost this.  There should be three parts 
to the code.  If there is any type of error, please forget about it. 
Thanks.

The two questions I had were (1) How do I find the planar area of the 
ellipsoid? and (2) How do I identify what plane it plots out on?

In[1222]:=
\!\(\(Clear[perpframe, r];\)\n
  \(r = Random[Real, {\[Pi]\/4, \[Pi]\/2}];\)\n
  \(s = Random[Real, {0, \[Pi]\/2}];\)\n
  \(\(t = Random[Real, {\(-\(\[Pi]\/2\)\), \[Pi]\/2}];\)\(\n\)
  \)\n
  \(Clear[perpframe];\)\n
  \(\({perpframe[1], perpframe[2],
        perpframe[3]} = {{Cos[r]\ Cos[t] - Cos[s]\ Sin[r]\ Sin[t],
          Cos[t]\ Sin[r] + Cos[r]\ Cos[s]\ Sin[t],
          Sin[s]\ Sin[t]}, {\(-Cos[s]\)\ Cos[t]\ Sin[r] - Cos[r]\ Sin[t],
          Cos[r]\ Cos[s]\ Cos[t] - Sin[r]\ Sin[t],
          Cos[t]\ Sin[s]}, {Sin[r]\ Sin[s], \(-Cos[r]\)\ Sin[s],
          Cos[s]}};\)\(\n\)
  \)\n
  \(ranger = 1.0;\)\n
  \(frameplot =
      Show[Table[
          Arrow[perpframe[k], Tail \[Rule] {0, 0, 0},
            VectorColor \[Rule] Indigo], {k, 1, 3}],
        Graphics3D[Text["\<perpframe[1]\>", 0.5\ perpframe[1]]],
        Graphics3D[Text["\<perpframe[2]\>", 0.5\ perpframe[2]]],
        Graphics3D[
          Text["\<perpframe[3]\>",
            0.5\ perpframe[3]]], \[IndentingNewLine]Axes3D[ranger],
        PlotRange \[Rule] {{\(-ranger\), ranger}, {\(-ranger\),
              ranger}, {\(-ranger\), ranger}}, Boxed \[Rule] False,
        Axes \[Rule] True, ViewPoint \[Rule] CMView,
        AxesLabel \[Rule] {"\<x\>", "\<y\>", "\<z\>"}];\)\)


In[1230]:=


{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];

In[1236]:=


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


  • Prev by Date: Re: Re: generalized foldlist problem - part 2
  • Next by Date: RE: Re: generalized foldlist problem - part 2
  • Previous by thread: Re: Using FullSimplify to check hand algebra
  • Next by thread: Re: 2nd attempt at post with corrected code