porsche_circle_x3opt_y3opt_r10_get_Hes_Lag.m

function [hes_Lag, Delta_Hes_Lag]=porsche_circle_x3opt_y3opt_r10_get_Hes_Lag(model, data, l_eq)
%function [hes_Lag, Delta_Hes_Lag]=porsche_box_constr_get_Hes_Lag(model, data, l_eq)
%
% This function calculates the Hessian of the Lagrange-function either with
% detailed or reduced data according to model.optimimzation.opt_mode.
% The corresponding data (model_data or reduced_data) must be passed to
% this function. 
%
% input:
% - model
% - data: model_data or reduced_data, according to model.optimization.opt_mode
% - l_eq: vector of the lagrange-multipliers.
%
% Oliver Zeeb, 31.05.11

if(model.verbose>=8)
    disp('entered porsche_get_Hes_Lag')
end

Delta_Hes_Lag = 0;
%disp('in porsche_circle_get_Hes_Lag: Fehlerschätzer Delta_Hes_Lag noch nicht implementiert')


hessian_J = model.optimization.get_Hessian(model, data);


hessian_H_j = model.optimization.get_Hessian_eq_constr(model, data);
hessian_H_sum = lincomb_sequence(hessian_H_j, l_eq);

hes_Lag = hessian_J + hessian_H_sum;