Optimization tests: fix warning 12/16412/1
Paul Bignier [Mon, 27 Apr 2015 15:01:12 +0000 (17:01 +0200)]
Change-Id: I00f8e81ac97755b6a14f2d070087ba06c0619da7

scilab/modules/optimization/tests/nonreg_tests/bug_9537.dia.ref
scilab/modules/optimization/tests/nonreg_tests/bug_9537.tst

index bc07c4f..b13ea50 100644 (file)
@@ -101,6 +101,8 @@ End of Optimization
 Maximum Area =0.667053 (expected = 0.677981)
 // Now redefine largesmallpolygon() without transposing x0 in neldermead_configure(nm,"-x0",x0');
 // and check that we get the same result as before.
+prot = funcprot();
+funcprot(0);
 function [A,r,t] = findlargestpolygon (nv)
     // Finds the largest smallest polygon with nv vertices
     // A : a 1-by-1 matrix of doubles, the area
@@ -146,8 +148,7 @@ function [A,r,t] = findlargestpolygon (nv)
     t = xopt(nv+1:$)
     nm = neldermead_destroy(nm)
 endfunction
-Warning : redefining function: findlargestpolygon      . Use funcprot(0) to avoid this message
-
+funcprot(prot);
 nv = 6;
 rand("seed" , 0);
 [A,r,t] = findlargestpolygon (nv);
index 552ae41..56c61a3 100644 (file)
@@ -23,6 +23,8 @@ exec("SCI/modules/optimization/demos/neldermead/polygon.sce", -1);
 
 // Now redefine largesmallpolygon() without transposing x0 in neldermead_configure(nm,"-x0",x0');
 // and check that we get the same result as before.
+prot = funcprot();
+funcprot(0);
 function [A,r,t] = findlargestpolygon (nv)
     // Finds the largest smallest polygon with nv vertices
     // A : a 1-by-1 matrix of doubles, the area
@@ -68,7 +70,7 @@ function [A,r,t] = findlargestpolygon (nv)
     t = xopt(nv+1:$)
     nm = neldermead_destroy(nm)
 endfunction
-
+funcprot(prot);
 
 nv = 6;
 rand("seed" , 0);