RE: Plotting a circle...
- To: mathgroup at smc.vnet.net
- Subject: [mg37722] RE: [mg37678] Plotting a circle...
- From: "David Park" <djmp at earthlink.net>
- Date: Sat, 9 Nov 2002 00:30:48 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Daniel,
There are a number of ways.
1) Use ImplicitPlot
Needs["Graphics`ImplicitPlot`"]
ImplicitPlot[x^2 + (y - 1)^2 == 1, {x, -1, 1}];
2) Parametrize the circle and use ParametricPlot
circlecurve[center : {_, _}][t_] := {Cos[t], Sin[t]} + center
ParametricPlot[Evaluate[circlecurve[{0, 1}][t]], {t, 0, 2Pi},
AspectRatio -> Automatic];
3) Use the Circle graphics primitive
Show[Graphics[{Circle[{0, 1}, 1]}],
Axes -> True,
AspectRatio -> Automatic];
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
From: Daniel Stone [mailto:daniel.stone at cheerful.com]
To: mathgroup at smc.vnet.net
Hi,
I want to plot the function x^2 + (y-1)^2 == 1
How do I do this.
Thanks in advance.
Dan