Re: to get all parametric plots/line traces

*To*: mathgroup at smc.vnet.net*Subject*: [mg114270] Re: to get all parametric plots/line traces*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Mon, 29 Nov 2010 06:09:06 -0500 (EST)

Manipulate[ContourPlot[ Evaluate[Table[ (1 - lam) (x^2 + y^2 - x y - 1) + lam (x^2 + y^2 + x y - 1) == 0, {lam, -2, 2, N[d]}]], {x, -2, 2}, {y, -2, 2}, GridLines -> Automatic, Mesh -> {200, 200}], {{d, 1/2, "step size for lam"}, {1/4, 1/3, 1/2, 1}}] Manipulate[del = N[d]; Manipulate[ ContourPlot3D[ (1 - lam) (x^2 + y^2 - x y - 1) + lam (x^2 + y^2 + x y - 1) == 0, {x, -2, 2}, {y, -2, 2}, {lam, -2, lamMax}, AxesLabel -> {"x", "y", "lam"}, PlotRange -> {{-2.05, 2.05}, {-2.05, 2.05}, {-2.05, 2.05}}], {{lamMax, 0}, -2 + del, 2, del, Appearance -> "Labeled"}, Paneled -> False], {{d, 1/2, "step size for lam"}, {1/4, 1/3, 1/2, 1}}] Bob Hanlon ---- Narasimham <mathma18 at hotmail.com> wrote: ============= How to get plot of family of curves, instead of being able to view only one plot a at any point of time? Animate[ContourPlot[(1 - lam) (x^2 + y^2 - x y - 1) + lam (x^2 + y^2 + x y - 1) == 0, {x, -2, 2}, {y, -2, 2}, GridLines -> Automatic, Mesh -> {200, 200}], {lam, -2, 2, .25}]