Services & ResourcesWolfram ForumsMathGroup Archive

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

vertical line tied to slider

• To: mathgroup at smc.vnet.net
• Subject: [mg129185] vertical line tied to slider
• From: Joe <design at rcn.com>
• Date: Thu, 20 Dec 2012 03:21:37 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: l-mathgroup@wolfram.com
• Delivered-to: mathgroup-newout@smc.vnet.net
• Delivered-to: mathgroup-newsend@smc.vnet.net

This ParametricPlot is supposed to create a vertical line that moves with the slider. Other curves, sliders, Grids, etc. have been removed (while retaining problem) to simplify analysis.  

I have another application where the ParametricPlot of a vertical line works perfectly with a slider.  The one difference that may be significant is that this Show includes a DateListPlot whereas the other uses a Plot.

Basically, I am looking for the simplest vertical line that will track the slider.

I have tried everything I can think of.  A solution or any ideas will be appreciated......  Thank you...

design at rcn.com
Gaithersburg, MD

Manipulate[
 curve := {3320, 3540, 3913, 4296, 4592, 4829, 5035, 5803, 7545, 3320, 3540,
   3913, 4296, 4592, 4829, 5035, 5803, 7545, 4829, 5035, 5803, 6000};
 Column[{
   Show[
    DateListPlot[
     {Tooltip[curve, "Curve"] 
      }, {2001},
     PlotStyle -> {{AbsoluteThickness[3], Black}},
     AspectRatio -> 1/2,
     BaseStyle -> {FontWeight -> "Bold", FontSize -> 12, Purple},
     GridLines -> {{"2005", "2010", "2015", "2020"}, Range[0, 8000, 1000]},
     GridLinesStyle -> Directive[Orange, Dashed],
     Joined -> True,
     PlotRange -> {{"2001", "2022"}, {0, 8000}},
     ImageSize -> {800, 400},
     Frame -> True,
     FrameLabel -> {YEAR, BILLIONS}
     ],          (* DateListPlot *)
    ParametricPlot[
     Tooltip[{{n}, {year, n}}], {n, 0, 8000},
     PlotStyle -> {{Orange, AbsoluteThickness[4]}}
     ]            (* ParametricPlot *) 
    ]            (* Show Box *)
   }],         (* Column Box*)
 {{year, 2001,"Year\n\n\n\n"}, 2001, 2022, 1, ControlPlacement -> Left, 
  Appearance -> {"Open", Small}},
 Button[Reset, {year = 2001, default = False} &],
 TrackedSymbols -> All
 ]           (* Manipulate Box*)

• Follow-Ups:
  • Re: vertical line tied to slider
    • From: Bob Hanlon <hanlonr357@gmail.com>