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)
>

```

• Prev by Date: Re: What is the difference between z[x_]:= D[y[x],x] and z[x_]:=y'[x]?
• Next by Date: RE: Graphing Level Sets
• Previous by thread: "just a bug" !; Mathematica 4
• Next by thread: RE: Graphing Level Sets