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>