MathGroup Archive 2001

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

Search the Archive

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)