
% Einlesen der Problemdaten
Daten_Preisabsatzfunktion;

% Setzen der Modellfunktion g(x1,x2;a) = x1 + x2 * a
% Bedeutung der Variablen (Modellparameter)
% x(1) = Offset
% x(2) = Steigung
g = @(x,a) Preisabsatzfunktion_Modellfunktion(x,a);

% Setzen einer Startschaetzung
x0 = [20;-1];

% % Ueberpruefen der Modellfunktion
% g(x0,a)

% Setzen der Optionen fuer das Optimierungsverfahren
options = optimset('Algorithm','Levenberg-Marquardt','Diagnostics','on','Display','iter-detailed');

% Aufruf des Optimierungsverfahrens
[xstar,resnorm,residual,exitflag,output,lambda,jacobian] = lsqcurvefit(g,x0,a,S,[],[],options);


