Re: Tracing of Manipulate solutions
- To: mathgroup at smc.vnet.net
- Subject: [mg126912] Re: Tracing of Manipulate solutions
- From: Bob Hanlon <hanlonr357 at gmail.com>
- Date: Sun, 17 Jun 2012 03:58:00 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <201206151928.PAA29215@smc.vnet.net>
Manipulate[Show[Plot[Evaluate[
Table[Tooltip[k*x - k^2/2, k],
{k, -2, If[boolean, 2, c], 0.1}]],
{x, -3, 3},
PlotStyle -> Thin],
Plot[
Tooltip[c*x - c^2/2, c],
{x, -3, 3},
PlotStyle -> {Orange, Thick}],
Frame -> True,
Axes -> False,
PlotLabel -> "CLAIRAUT_c_discr_EQUN",
PlotRange -> {-3, 3}],
{{boolean, False, "Show All"},
{False, True}},
{c, -2, 2, 0.1,
Appearance -> "Labeled"}]
Bob Hanlon
On Jun 15, 2012, at 3:28 PM, Narasimham <mathma18 at hotmail.com> wrote:
> Is it possible to plot traces that remain for each c value that would
> enable viewing parabola envelope in the program below ? There is no
> snapshot " Tracer ON " button provided in the popdown menu. Cutting/
> pasting each frame is cumbersome to view the envelope.Cannot
> DynamicModules be somehow Manipulated to Show them together :) ? I
> am sure such feature would be useful if made available in the
> Manipulate menu. ( i.e., if not already available as a ready made
> program).
>
> Clairaut's Differential Equation of Wolfram Demonstrations Project is
> one case in point that I refer to.
>
> Manipulate[ Plot[{ c x - c^2/2 }, {x, -3, 3}, PlotStyle -> {Orange,
> Thick}, PlotLabel -> "CLAIRAUT_ c_discr_ EQUN " , AspectRatio ->
> Automatic, PlotRange -> {-3, 3}], {c, -2, 2, 0.1}]
>
> Narasimham GL
>
- References:
- Tracing of Manipulate solutions
- From: Narasimham <mathma18@hotmail.com>
- Tracing of Manipulate solutions