remove ref to quapro & linpro
[scilab.git] / scilab / modules / optimization / tests / nonreg_tests / bug_2330.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2007-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 // <-- Non-regression test for bug 2330 -->
8 //
9 // <-- Bugzilla URL -->
10 // http://bugzilla.scilab.org/show_bug.cgi?id=2330
11 //
12 // <-- Short Description -->
13 //    datafit does not work equivalently on WinXP and Linux. With a given dataset and
14 //    same routines centered on datafit function, it works perfectly on Linux and
15 //    partially (some data are fitted some others not) on WinXP.
16 //build the data to fit
17 //---------------------
18 function Xcalc=biexp(p,t)
19   Xcalc=p(1).*exp(-p(2).*t)+p(3).*exp(-p(4).*t)+p(5);
20 endfunction;
21 t=(0:100:36000)';
22 p=[0.1;0.0001;0.2;0.0002;0.3];
23 X=biexp(p,t);
24 //try to fit the data
25 //-------------------
26 //the error function
27 function e=myerf(p,X,t),e=X-biexp(p,t),endfunction
28 // the initial point
29 p0=[0.01;0.001;0.01;0.001;0.1];
30 //call datafit
31 [pr,err]=datafit(list(myerf,t),X,p0);
32 if err>=5d-4 then bugmes();quit;end