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