Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

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>