clear;
warning('off','all');
format long
bet    = 0.99; 
sig    = 1;
ome    = 0.75;
eeta   = 3;
del_x  = 0.5;
del_pi = 1.5;
gam    = (sig + eeta) * (1-ome) * (1-ome*bet) / ome;
istar  = 0;
zet    = 0.5; % Erinnerungsparameter
pphi   = 8; % Rationalit?tsparameter
noise  = 0.2; % White Noise Prozess 
alp_1= 1;
alp_2= 0.5;
alp_3= 0.1;

del0=[del_pi del_x];
%options=[0 1E-3 0 0 0 0];
[delopt,minloss,exitflag,output]=fminunc(@Dynamik_Grundmodell,del0)
res=DGMplot(delopt);
Plot_Grundmodell(res);
%fmin(res);