RE: Graphing Hyperboloids
- To: mathgroup at smc.vnet.net
- Subject: [mg25590] RE: [mg25582] Graphing Hyperboloids
- From: "David Park" <djmp at earthlink.net>
- Date: Mon, 9 Oct 2000 21:43:30 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Andy,
Here is your equation for a hyperboloid of one sheet.
eqn = (x^2/16) + (y^2/4) - z^2 == 1;
To make a nice plot, it is much easier to work with cylindrical coordinates.
This converts the equation to cylindrical coordinates and solves for r as a
function of z and t (theta).
eqn /. {x -> r*Cos[t], y -> r*Sin[t]}
rsols = Simplify[Solve[%, r]]
-z^2 + 1/16*r^2*Cos[t]^2 + 1/4*r^2*Sin[t]^2 == 1
{{r -> -((4*Sqrt[2]*Sqrt[1 + z^2])/Sqrt[5 - 3*Cos[2*t]])},
{r -> (4*Sqrt[2]*Sqrt[1 + z^2])/Sqrt[5 - 3*Cos[2*t]]}}
We want the radius to be positive, so we use the second solution. This
parametrizes the sheet.
sheet1[z_, t_] = {r Cos[t], r Sin[t], z} /. rsols[[2]]
{(4*Sqrt[2]*Sqrt[1 + z^2]*Cos[t])/Sqrt[5 - 3*Cos[2*t]],
(4*Sqrt[2]*Sqrt[1 + z^2]*Sin[t])/Sqrt[5 - 3*Cos[2*t]], z}
This plots it.
ParametricPlot3D[Evaluate[sheet1[z, t]], {z, -3, 3}, {t, 0, 2*Pi},
PlotPoints -> {21, 41}, ImageSize -> 450,
ViewPoint -> {1.598, -2.555, 1.54}];
You could also use ImplicitPlot3D, but the above is much faster and nicer.
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
> -----Original Message-----
> From: Andy Sokol [mailto:asokol at fit.edu]
To: mathgroup at smc.vnet.net
>
> Hello at Math Group!
>
> Unfortunately, I am not very skilled with Mathematica, and have been
> assigned a few problems for Calculus 3. I'm been working on these for
> hours and I'm just absolutely stumped on the last two. None of my
> classmates have been able to solve it either, so I was searching for
> something to help me and I found you! This assignment is due tomorrow,
> and so I guess I'm kind of just keeping my fingers crossed that you guys
> may be reading this at 12:30 am.
>
> I really hope this is like a super-easy problem for you...
>
> The problems are:
>
> Graph the hyperboloid of one-sheet: (x^2 / 16) + (y^2 / 4) - z^2 = 1
>
> Graph the hyperboloid of "one-sheet" (it's written as one sheet on the
> page, but based on the equation I believe that's just a typo and it's of
> two-sheets): (x^2 / 16) - (y^2 / 4) - z^2 = 1
>
> Please please someone help me!!!
>
>
> Andy Sokol
> Florida Institute of Technology
> asokol at fit.edu
>