# Konjunkturmodell von Samuelson

## Problembeschreibung

******************************************
Dokumentnummer: D1232
für Steiner-Weilharter IV HPT
******************************************

Gesucht ist ein Maxima-Programm, zur
Simulation des Konjunkturmodells von
Samuelson

## Problemlösung

EINGABE

n:read("Anzahl der Perioden");

y[0]:read("Volkseinkommen Periode 0");

y[1]:read("Volkseinkommen Periode 1");

a:read("Konsumneigung");

b:read("Investitionsfaktor");

c:read("Autonome Ausgaben");

VERARBEITUNG

f(i):=y[i]:a*y[i-1]+a*b*(y[i-1]-y[i-2])+c;

konjunktur:makelist(floor(f(i)*100+0.5)/100.0,i,2,n)$

konjunktur:append([y[0]],[y[1]],konjunktur)$

ERGEBNIS

konjunktur:transpose(konjunktur);