Re: ParamatricPlot(3D)

• To: mathgroup at smc.vnet.net
• Subject: [mg27213] Re: [mg27172] ParamatricPlot(3D)
• From: BobHanlon at aol.com
• Date: Mon, 12 Feb 2001 03:20:52 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

```Needs["Graphics`Graphics`"];

Needs["Graphics`ImplicitPlot`"];

DisplayTogether[
Table[Plot[Evaluate[Y /. Solve[X^2+Y^2==Z^2, Y]], {X, -Z, Z},
PlotStyle -> Hue[1/Z], AspectRatio -> 1], {Z, 3}]];

DisplayTogether[
Table[ParametricPlot[{Z*Cos[t], Z*Sin[t]}, {t, 0, 2Pi},
PlotStyle -> Hue[1/Z], AspectRatio ->1], {Z, 3}]];

DisplayTogether[
Table[ImplicitPlot[X^2+Y^2==Z^2, {X, -Z, Z},
PlotStyle -> Hue[1/Z]], {Z, 3}]];

Bob Hanlon

In a message dated 2001/2/9 3:19:46 AM, bombsigh at netvision.net.il writes:

>Can anyone help me to plot the following function into Mathematica?
>
>X^2+Y^2=1
>
>Or
>
>X^2+Y^2=Z^2 This comes from X^n+Y^n=Z^n
>

```

• Prev by Date: RotateShape[Cuboid...
• Next by Date: RE: Using Different Kinds of Characters With Do?
• Previous by thread: Re: ParamatricPlot(3D)
• Next by thread: Re: ParamatricPlot(3D)