fix some demos 04/19104/2
Antoine ELIAS [Mon, 13 Feb 2017 20:41:54 +0000 (21:41 +0100)]
Change-Id: I7fde6eba5d6e23cc12fd2c91b9bbe326458d617c

scilab/modules/differential_equations/demos/flow/blackhole.sci
scilab/modules/differential_equations/demos/flow/cylinder.sci
scilab/modules/differential_equations/demos/flow/sphere.sci
scilab/modules/differential_equations/demos/ode/ode_chstiff/ode_chstiff.dem.sce
scilab/modules/graphics/demos/2d_3d_plots/geom3d.dem.sce
scilab/modules/optimization/demos/icse/lqv.sce
scilab/modules/optimization/demos/icse/navet.sce
scilab/modules/optimization/demos/icse/seros.sce

index b084976..a3ccdf3 100644 (file)
@@ -64,7 +64,7 @@ function Y = calculate_traj(g_r, g_t, g_V, g_Vdir, t)
     Y0(3) = g_r*sin(g_t*%pi/180);      // y
     Y0(4) = g_V*sin(g_Vdir*%pi/180);   // v_y
 
-    Y     = ode("root", Y0, t(1), t, 1d-10, 1.D-10, list(traj, blackhole), 5, blackholelim); //traj d'ecoulement
+    Y     = ode("roots", Y0, t(1), t, 1d-10, 1.D-10, list(traj, blackhole), 5, blackholelim); //traj d'ecoulement
 
 endfunction
 
index 952c818..ba29664 100644 (file)
@@ -47,7 +47,7 @@ function Y = calculate_traj(g_x, g_y, g_V, g_Vdir, t, gravity, slope)
     Y0(2) = g_V*cos(g_Vdir*%pi/180);//v_x
     Y0(3) = g_y;//y
     Y0(4) = g_V*sin(g_Vdir*%pi/180);//v_y
-    Y     = ode("root", Y0, t(1), t, 1d-10, 1.D-10, list(traj, SlantedCylinder), 4, cyllim);//traj d'ecoulement
+    Y     = ode("roots", Y0, t(1), t, 1d-10, 1.D-10, list(traj, SlantedCylinder), 4, cyllim);//traj d'ecoulement
 endfunction
 
 // draw_bille
index 7888161..9999e20 100644 (file)
@@ -54,7 +54,7 @@ function Y = calculate_traj(g_r, g_t, g_V, g_Vdir, t)
     Y0(2) = g_V*cos(g_Vdir*%pi/180);  // v_x
     Y0(3) = g_r*sin(g_t*%pi/180);     // y
     Y0(4) = g_V*sin(g_Vdir*%pi/180);  // v_z
-    Y     = ode("root", Y0, t(1), t, 1d-10, 1.D-10, list(traj, sphere), 1, sphlim);//traj d'ecoulement
+    Y     = ode("roots", Y0, t(1), t, 1d-10, 1.D-10, list(traj, sphere), 1, sphlim);//traj d'ecoulement
 endfunction
 
 
index f73491e..09fbcf7 100644 (file)
@@ -40,7 +40,7 @@ function demo_ode_chstiff()
     deff("[y]=Surf(t,x)","y=[x(1)-1.e-4;x(3)-1.e-2]");
 
     // First root
-    [y,rd,w,iw] = ode("root",[1;0;0],0,t,rtol,atol,chem,2,Surf);rd;
+    [y,rd,w,iw] = ode("roots",[1;0;0],0,t,rtol,atol,chem,2,Surf);rd;
 
     while rd<>[] then
 
@@ -52,7 +52,7 @@ function demo_ode_chstiff()
         plot2d("ln", rd(1), (diag([1 10000 1])*y(:,ny))',style=[-3,-3,-3]);
 
         // Next root
-        [y,rd,w,iw]=ode("root",[1;0;0],rd(1),t(k+1:nt),rtol,atol,chem,2,Surf,w,iw);
+        [y,rd,w,iw]=ode("roots",[1;0;0],rd(1),t(k+1:nt),rtol,atol,chem,2,Surf,w,iw);
     end
 
 endfunction
index 2da47e0..0c67849 100644 (file)
@@ -4,6 +4,11 @@
 //
 // This file is released under the 3-clause BSD license. See COPYING-BSD.
 
+function str=mydisplay(h)
+    pt = h.data;
+    str = msprintf('The point\n (%0.2g,%0.2g,%0.2g)', pt(1), pt(2), pt(3))
+endfunction
+
 function demo_geom3d()
 
     my_handle             = scf(100001);
@@ -44,10 +49,6 @@ function demo_geom3d()
     param3d(0, 0, 0);
     e = gce();
     dt = datatipCreate(e, 0);
-    function str=mydisplay(h)
-        pt = h.data;
-        str = msprintf('The point\n (%0.2g,%0.2g,%0.2g)', pt(1), pt(2), pt(3))
-    endfunction
     datatipSetDisplay(dt,"mydisplay")
 
     a = gca();
index 098ee19..13fc4f4 100644 (file)
@@ -13,7 +13,8 @@
 
 function demo_lqv()
 
-    cd "SCI/modules/optimization/demos/icse/"
+    copyfile("SCI/modules/optimization/demos/icse/", "TMPDIR/icse");
+    cd("TMPDIR/icse");
 
     libn  = ilib_for_link("icsez0","icsez0.f",[],"f")
     nlink = link("./"+libn,"icsez0","f")
index b22e60a..cd6e320 100644 (file)
@@ -12,7 +12,8 @@
 
 function demo_navet()
 
-    cd "SCI/modules/optimization/demos/icse/"
+    copyfile("SCI/modules/optimization/demos/icse/", "TMPDIR/icse");
+    cd("TMPDIR/icse");
 
     libn  = ilib_for_link("icsenb", "icsenb.f",[], "f", "", "", "", "-L"+SCI+"/modules/optimization/.libs/ -lscioptimization")
     nlink = link("./"+libn, ["icsenb", "icsenf"], "f")
index c4391cb..e6197ad 100644 (file)
@@ -12,7 +12,8 @@
 
 function demo_seros()
 
-    cd "SCI/modules/optimization/demos/icse/"
+    copyfile("SCI/modules/optimization/demos/icse/", "TMPDIR/icse");
+    cd("TMPDIR/icse");
 
     libn  = ilib_for_link("icsest", "icsest.f", [], "f", "", "", "", "-L"+SCI+"/modules/optimization/.libs/ -lscioptimization");
     nlink = link("./"+libn, "icsest", "f");