Tag Info

New answers tagged

2

data = FinancialData["IBM", "Jan. 1, 2014"]; Manipulate[ Block[ {x = DatePlus[data[[1, 1]], t]}, DateListPlot[ data , Epilog -> Line[ { {x, Min@data[[All, 2]]} , {x, Max@data[[All, 2]]} }] ] ], {t, 0, QuantityMagnitude@ DateDifference[First@First@data, First@Last@data]}]



Top 50 recent answers are included