Re: Graphing Level Sets
- To: mathgroup at smc.vnet.net
- Subject: [mg27461] Re: [mg27447] Graphing Level Sets
- From: BobHanlon at aol.com
- Date: Mon, 26 Feb 2001 01:29:27 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Needs["Graphics`Graphics`"];
Needs["Graphics`ImplicitPlot`"];
f[x, y] := x^2 * y^2;
DisplayTogether[
Table[ImplicitPlot[f[x, y] == k, {x, -2.5, 2.5},
PlotStyle -> Hue[1/(k-1/2)]], {k, 5}],
PlotRange -> {-2.5, 2.5}];
DisplayTogether[
Table[Plot[Evaluate[y /.Solve[f[x, y] == k, y]], {x, -2.5, 2.5},
PlotStyle -> Hue[1/(k-1/2)]], {k, 5}],
AspectRatio -> Automatic, PlotRange -> {-2.5, 2.5}];
Bob Hanlon
In a message dated 2001/2/25 9:10:58 PM, hearts121 at deleteme.hotmail.com
writes:
>I'm new to Mathmatica and I'm trying to graph the level sets of a
>function in 3 variables. For example:
>
>Given function: f(x,y)=(x^2)(y^2)
>I want to graph the functions:
>
>1 = (x^2)(y^2)
>2 = (x^2)(y^2)
>3 = (x^2)(y^2)
>4 = (x^2)(y^2)
>5 = (x^2)(y^2)
>