Re: plot of function of two variables
- To: mathgroup at smc.vnet.net
- Subject: [mg128409] Re: plot of function of two variables
- From: Bob Hanlon <hanlonr357 at gmail.com>
- Date: Sun, 14 Oct 2012 00:13:22 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-newout@smc.vnet.net
- Delivered-to: mathgroup-newsend@smc.vnet.net
- References: <20121013050359.784D168D7@smc.vnet.net>
$Version
"7.0 for Mac OS X x86 (64-bit) (November 11, 2008)"
Manipulate[
ContourPlot[(x - a)^2 + (y - b)^2 == r^2,
{x, a - r, a + r},
{y, b - r, b + r},
Frame -> False,
Axes -> True,
AxesLabel -> {"x", "y"},
PlotRange ->
{{-15.5, 15.5}, {-15.5, 15.5}}],
{{a, 0}, -5, 5, 1, Appearance -> "Labeled"},
{{b, 0}, -5, 5, 1, Appearance -> "Labeled"},
{{r, 5, "|r|"}, 1, 10, 1,
Appearance -> "Labeled"}]
Manipulate[
Plot[Evaluate[y /.
Solve[(x - a)^2 + (y - b)^2 == r^2, y]],
{x, a - r, a + r},
AspectRatio -> 1,
FrameLabel -> {"x", "y"},
PlotRange ->
{{-15.5, 15.5}, {-15.5, 15.5}}],
{{a, 0}, -5, 5, 1, Appearance -> "Labeled"},
{{b, 0}, -5, 5, 1, Appearance -> "Labeled"},
{{r, 5, "|r|"}, 1, 10, 1,
Appearance -> "Labeled"}]
Bob Hanlon
On Sat, Oct 13, 2012 at 1:03 AM, Miguel Aragon <aragon.miguel at gmail.com> wrote:
>
> I have a question about how to plot a function of two variable of the form
> (x-a)^2 + (y-b)^2 = r^2 with Mathematica v 7.0? Is it possible?
>
> Thank you,
>
> --
> Miguel Aragon
> aragon.miguel at gmail.com
>
>
- References:
- [no subject]
- From: Miguel Aragon <aragon.miguel@gmail.com>
- [no subject]