Test tag renamed for something more explicit
[scilab.git] / scilab / modules / optimization / tests / nonreg_tests / bug_2330.tst
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
8 // <-- CLI SHELL MODE -->
9
10 // <-- Non-regression test for bug 2330 -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/show_bug.cgi?id=2330
14 //
15 // <-- Short Description -->
16 //    datafit does not work equivalently on WinXP and Linux. With a given dataset and
17 //    same routines centered on datafit function, it works perfectly on Linux and
18 //    partially (some data are fitted some others not) on WinXP.
19
20 //build the data to fit
21 //---------------------
22 function Xcalc=biexp(p,t)
23   Xcalc=p(1).*exp(-p(2).*t)+p(3).*exp(-p(4).*t)+p(5);
24 endfunction;
25 t=(0:100:36000)'; 
26 p=[0.1;0.0001;0.2;0.0002;0.3];
27 X=biexp(p,t);
28
29 //try to fit the data
30 //-------------------
31 //the error function
32 function e=myerf(p,X,t),e=X-biexp(p,t),endfunction
33 // the initial point
34 p0=[0.01;0.001;0.01;0.001;0.1];
35 //call datafit
36 [pr,err]=datafit(list(myerf,t),X,p0);
37 if err>=5d-4 then pause,end