Wolfram Data Repository

Immediate Computable Access to Curated Contributed Data

Samuelson Economic Model

Source Notebook

Samuelson economic model

Examples

Basic Examples (2) 

Retrieve the model:

In[1]:=
ResourceData[\!\(\* TagBox["\"\<Samuelson Economic Model\>\"", #& , BoxID -> "ResourceTag-Samuelson Economic Model-Input", AutoDelete->True]\)]
Out[1]=

The annotation:

In[2]:=
ResourceData[\!\(\* TagBox["\"\<Samuelson Economic Model\>\"", #& , BoxID -> "ResourceTag-Samuelson Economic Model-Input", AutoDelete->True]\), "Annotation"]
Out[2]=

Scope & Additional Elements (4) 

Available content elements:

In[3]:=
\!\(\* TagBox[ RowBox[{"ResourceObject", "[", "\"\<Samuelson Economic Model\>\"", "]"}], #& , BoxID -> "ResourceTag-Samuelson Economic Model-Input", AutoDelete->True]\)["ContentElements"]
Out[3]=

The available model types:

In[4]:=
ResourceData[\!\(\* TagBox["\"\<Samuelson Economic Model\>\"", #& , BoxID -> "ResourceTag-Samuelson Economic Model-Input", AutoDelete->True]\), "AvailableModelTypes"]
Out[4]=

The operating point:

In[5]:=
ResourceData[\!\(\* TagBox["\"\<Samuelson Economic Model\>\"", #& , BoxID -> "ResourceTag-Samuelson Economic Model-Input", AutoDelete->True]\), "OperatingPoint"]
Out[5]=

The transfer-function model:

In[6]:=
ResourceData[\!\(\* TagBox["\"\<Samuelson Economic Model\>\"", #& , BoxID -> "ResourceTag-Samuelson Economic Model-Input", AutoDelete->True]\), "TransferFunctionModel"]
Out[6]=

Analysis (3) 

The numerical model:

In[7]:=
ssm = ResourceData[\!\(\* TagBox["\"\<Samuelson Economic Model\>\"", #& , BoxID -> "ResourceTag-Samuelson Economic Model-Input", AutoDelete->True]\)] /. ResourceData[\!\(\* TagBox["\"\<Samuelson Economic Model\>\"", #& , BoxID -> "ResourceTag-Samuelson Economic Model-Input", AutoDelete->True]\), "Parameters"]
Out[7]=

Seasonal variations in government spending, consumption, and investment:

In[8]:=
inpSig = Table[{2 + Sin[2 \[Pi] k/12], 10 + 2 Sin[2 \[Pi] k/25], 1 + 0.5 Sin[2 \[Pi] k/15] }, {k, 1, 100}]\[Transpose];
In[9]:=
ListStepPlot[%, PlotRange -> All, PlotLegends -> {"\[ScriptCapitalG]\[ScriptCapitalE]", "\!\(\*SubscriptBox[\(\[ScriptCapitalC]\[ScriptCapitalS]\), \(a\)]\)", "\!\(\*SubscriptBox[\(\[ScriptCapitalI]\[ScriptCapitalV]\), \(a\)]\)"}]
Out[9]=

A plot of the resulting national income variation:

In[10]:=
OutputResponse[ssm, inpSig]; ListStepPlot[%, PlotRange -> All]
Out[11]=

Suba Thomas, "Samuelson Economic Model" from the Wolfram Data Repository (2025)  

Data Resource History

  • Date Created:

Source Metadata

  • Citation:
    • P. A. Samuelson, "Interactions between the Multiplier Analysis and the Principle of Acceleration", The Review of Economics and Statistics, vol. 21, no. 2, pp. 75–78, 1939.

Publisher Information

  • Prepared for the Wolfram Data Repository By: Maher Kuzbari, Suba Thomas
  • Publisher of Record: Suba Thomas