test_matlab_convdiff.m

Go to the documentation of this file.

function OK = test_matlab_convdiff
% function performing a test of the elementary convdiff_model
% routines. In particular simulation without diffusion must be
% 10 times faster!!
% returns 1, if test is OK, 0 otherwise

% Bernard Haasdonk 21.7.2009

OK = 1;

model      = convdiff_model([]);
model_data = gen_model_data(model);
% without diffusion:
model = model.set_mu(model, [1,0,0]);
tic;
detailed_simulation(model,model_data);
t1 = toc;
% with diffusion
model = model.set_mu(model, [1, 0, 5e-8]);
tic;
detailed_simulation(model,model_data);
t2 = toc;

if t2/t1<3
  error('no! diffusion computation should be 10-20 times faster !!')
  OK = 0;
end;


%| \docupdate