Wolfram Technology Guide: Load-on-Demand Curated Data  previous | next 
Analyze Financial Data and Time Series
Mathematica gives immediate access to large amounts of current and historical financial data--in immediately computable form.
In[1]:=

Click for copyable input
DateListPlot[

 FinancialData[#, "Jan. 1, 2004"] & /@ 

  FinancialData["NYSE:AA*", "Lookup"], Filling -> Axis, 

 Joined -> True]
Out[1]=