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
>