Revisions to Make a time IntervalSlider

added 43 characters in body

Source Link

edited Apr 1, 2015 at 22:53

42.3k
3
37
106

In version 10.1, try this:

  Manipulate[
        TimelinePlot[
           {Interval[{ToString[a]ToString[myBegin], ToString[b]ToString[myEnd]}] -> "My range"},
            PlotRange -> {DateObject[{1940}], DateObject[{2020}]},
         Ticks -> All
               {DateRange["1940", "2020", Quantity[5, "Years"]]}
  ],
 {{amyBegin, 1950, "Begin"}, 1950, 2014, 1},
 {{bmyEnd, 1960, "End"}, amyBegin, 2015, 1}]

In version 10.1, try this:

  Manipulate[
        TimelinePlot[
           {Interval[{ToString[a], ToString[b]}] -> "My range"},
            PlotRange -> {DateObject[{1940}], DateObject[{2020}]},
         Ticks -> All
                    ],
 {{a, 1950, "Begin"}, 1950, 2014, 1},
 {{b, 1960, "End"}, a, 2015, 1}]

In version 10.1, try this:

Manipulate[
   TimelinePlot[
       {Interval[{ToString[myBegin], ToString[myEnd]}] -> "My range"},
       PlotRange -> {DateObject[{1940}], DateObject[{2020}]},
     Ticks -> {DateRange["1940", "2020", Quantity[5, "Years"]]}
  ],
 {{myBegin, 1950, "Begin"}, 1950, 2014, 1},
 {{myEnd, 1960, "End"}, myBegin, 2015, 1}]

added 81 characters in body

Source Link

edited Apr 1, 2015 at 22:45

David G. Stork

42.3k
3
37
106

In version 10.1, try this:

  Manipulate[
        TimelinePlot[
           {Interval[{ToString[a], ToString[b]}] -> "My range"},
            PlotRange -> {"1940"DateObject[{1940}], "2020"DateObject[{2020}]},
  ],       Ticks -> All
                    ],
 {{a, 1950, "Begin"}, 1950, 20152014, 1},
   {{b, 1960, "End"}, 1960a, 2015, 1}]

In version 10.1, try this:

 Manipulate[
     TimelinePlot[
         Interval[{ToString[a], ToString[b]}] -> "My range",
  PlotRange -> {"1940", "2020"}
  ],
   {{a, 1950, "Begin"}, 1950, 2015, 1},
   {{b, 1960, "End"}, 1960, 2015, 1}]

In version 10.1, try this:

  Manipulate[
        TimelinePlot[
           {Interval[{ToString[a], ToString[b]}] -> "My range"},
            PlotRange -> {DateObject[{1940}], DateObject[{2020}]},
         Ticks -> All
                    ],
 {{a, 1950, "Begin"}, 1950, 2014, 1},
 {{b, 1960, "End"}, a, 2015, 1}]

Source Link

created Apr 1, 2015 at 22:26

David G. Stork

42.3k
3
37
106

In version 10.1, try this:

 Manipulate[
     TimelinePlot[
         Interval[{ToString[a], ToString[b]}] -> "My range",
  PlotRange -> {"1940", "2020"}
  ],
   {{a, 1950, "Begin"}, 1950, 2015, 1},
   {{b, 1960, "End"}, 1960, 2015, 1}]

Stack Exchange Network

Return to Answer