If you want to start the study of macro-econophysics, economics, finance, physics, statistics, and mathematics, through analysis of real data, Mathematica is a useful tool. Mathematica provides data and tools. We list a few useful commands for finance here.
In[1]:= SetDirectory[NotebookDirectory[]]
In[2]:= FinancialData[“Classes”]
In[3]:= FinancialData[“Exchanges”]
In[4]:= FinancialData[“NYSE*”]
In[5]:= Take[FinancialData[“NYSE*”], 20]
In[6]:= Take[FinancialData[“NASDAQ*”], 20]
In[7]:= Take[FinancialData[“∧*”], 20]
In[8]:= FinancialData[“NASDAQ:AAPL”, “Properties”]
In[9]:= FinancialData[“NASDAQ:AAPL”, “Name”]
In[10]:= FinancialData[“AAPL”, “Exchange”]
In[11]:= FinancialData[“∧DJI”, “Name”]
In[12]:= FinancialData[“SP500”, “Name”]
In[13]:= FinancialData[“∧GSPC”, “Name”]
In[14]:= FinancialData[“NASDAQ:AAPL”, “OHLCV”]
In[15]:= Take[FinancialData[“NASDAQ:AAPL”, “OHLCV”,All],20]
In[16]:= DateListPlot[FinancialData[“NASDAQ:AAPL”, All], PlotRange -> All]
In[17]:= Export[“Apple.csv”, FinancialData[“NASDAQ:AAPL”, “OHLCV”, All]]
In[18]:= DateListPlot[FinancialData[“NASDAQ:AAPL”, “Return”, All], PlotRange -> All]
In[19]:= data = FinancialData[“NASDAQ:AAPL”, “OHLCV”, All]; logret = Table[fdata[[i, 1]], Log[data[[i, 2, 4]]/data[[i, 2, 1]]]g, fi, Length[data]g]; Take[logret, 20] DateListPlot[logret, PlotRange -> All]
In[20]:= data = FinancialData[“NYSE:*“]; Take[data, 10] n = Length[data]
In[21]:= For[i = 1, i < 4, i++, Export[StringReplace[data[[i]], “NYSE:” -> ““] <> ”.csv”, FinancialData[data[[i]], “OHLCV”, All]]]
In[22]:= For[i = 1, i < n + 1, i++, Export[StringReplace[data[[i]], “NYSE:” -> ““] <> ”.csv”, FinancialData[data[[i]], “OHLCV”, All]]]
Many tools for network analysis and visualization are available today. Readers are able to find them using a web search. Here we list a limited number of them based on a somewhat biased selection.