test_porsche.m

function OK = test_porsche
% function OK = test_porsche
%
% Test of the porsche_model
%
% runs the basic functions of the porsche_model:
% sets the model, creates detailed and reduced data and does a reduced and
% detailed simulation
%
% Oliver Zeeb, 22.01.2012

OK=0;

fprintf('Setting the model...');
model=porsche_model;
fprintf('\n...model --> ok! \n')
fprintf('\ngenerating model_data...');
model_data=gen_model_data(model);
fprintf('...model_data --> ok! \n')
if model.compute_output_functional == 1
    fprintf(['\n \n! for computing the output_functional please be sure to use \n'...
        '!\n'...
        '! sim_data.s = model.output_functional(model,model_data,sim_data.uh);\n'...
        '! (line 27 in lin_stat_detailed_simulation.m),\n'...
        '!\n'...
        '! instead of \n'...
        '!\n'...
        '! v = model.operators_output(model,model_data);\n'...
        '! sim_data.s = (v(:)'') * sim_data.uh.dofs;\n'...
        '! (lines 29-30 in lin_stat_detailed_simulation.m)!\n'])
end
fprintf('\ndoing a detailed simulation...');
sim_data=detailed_simulation(model,model_data);
fprintf('\n...detailed_simulation --> ok! \n')
fprintf('\ngenerating detailed_data...');
detailed_data=gen_detailed_data(model,model_data);
fprintf('\n...detailed_data --> ok! \n')
fprintf('\ngenerating reduced_data...');
reduced_data=gen_reduced_data(model,detailed_data);
fprintf('\n...reduced_data --> ok! \n')
fprintf('\ndoing a reduced simulation');
rb_sim_data=rb_simulation(model,reduced_data);
fprintf('\n...rb_simulation --> ok! \n')
fprintf('\nrb_reconstruction...');
rb_sim_data=rb_reconstruction(model,detailed_data,rb_sim_data);
fprintf('\n...rb_reconstruction --> ok! \n')

fprintf('\nall tests okay!!!');
OK=1;