fix lincos & steadycos tests in scicos module
Allan CORNET [Fri, 5 Feb 2010 08:15:09 +0000 (09:15 +0100)]
scilab/modules/scicos/etc/scicos.start
scilab/modules/scicos/macros/scicos_auto/lincos.sci
scilab/modules/scicos/macros/scicos_auto/scicos_simulate.sci
scilab/modules/scicos/macros/scicos_auto/steadycos.sci
scilab/modules/scicos/tests/nonreg_tests/bug_4715.dia.ref
scilab/modules/scicos/tests/nonreg_tests/bug_4715.tst
scilab/modules/scicos/tests/unit_tests/lincos.dia.ref
scilab/modules/scicos/tests/unit_tests/scicos.dia.ref
scilab/modules/scicos/tests/unit_tests/scicos.tst
scilab/modules/scicos/tests/unit_tests/steadycos.dia.ref
scilab/modules/xcos/macros/loadScicosLibs.sci

index 9016756..65cbb7c 100644 (file)
@@ -11,39 +11,6 @@ clear  scicos_pal // explicitly clear %helps scicos_pal variables
 
 //Load functions libraries
 // =============================================================================
+load('SCI/modules/scicos/macros/scicos_utils/lib');
 load('SCI/modules/scicos/macros/scicos_auto/lib')
-load('SCI/modules/scicos/macros/scicos_utils/lib')
-load('SCI/modules/scicos/macros/scicos_menus/lib')
-
-// Add help chapter
-// =============================================================================
-if WITH_HELPTOOLS then
-       //add_module_help_chapter("scicos");
-end
-
-// Add demos
-// =============================================================================
-if WITH_DEMOS then
-       //pathdemos = pathconvert(SCI+"/modules/scicos/demos/scicos.dem.gateway.sce",%f,%t);
-       //add_demo(gettext("Xcos"),pathdemos);
-       //clear pathdemos;
-end
-
-// Define Scicos data tables ===========================================
-
-  if ( ~isdef("scicos_pal") | ~isdef("%scicos_menu") | ..
-       ~isdef("%scicos_short") | ~isdef("%scicos_help") | ..
-       ~isdef("%scicos_display_mode") | ~isdef("modelica_libs") | ..
-       ~isdef("scicos_pal_libs") ) then
-
-    
-     [scicos_pal, %scicos_menu, %scicos_short, modelica_libs, scicos_pal_libs,...
-     %scicos_lhb_list, %CmenuTypeOneVector, %scicos_gif,%scicos_contrib, ..
-     %scicos_libs, %scicos_with_grid, %scs_wgrid] = initial_scicos_tables();
-
-    clear initial_scicos_tables
-  end
-
-// Define Scicos data tables ===========================================
-
 // =============================================================================
index c12ae0a..8ea61c6 100644 (file)
@@ -62,6 +62,10 @@ function sys = lincos(scs_m,x0,u0,param)
 //** the required library are loaded if not already present in the 
 //** "semiglobal-local-environment".       
 
+if ~isdef('scicos_menuslib') then
+  load('SCI/modules/scicos/macros/scicos_menus/lib')
+end
+
 if exists('scicos_scicoslib')==0 then
     load("SCI/modules/scicos/macros/scicos_scicos/lib") ;
 end
@@ -74,20 +78,16 @@ if exists('scicos_utilslib')==0 then
     load("SCI/modules/scicos/macros/scicos_utils/lib") ;
 end
 
-  // Define Scicos data tables ===========================================
-  if ( ~isdef("scicos_pal") | ~isdef("%scicos_menu") | ..
+// Define Scicos data tables ===========================================
+if ( ~isdef("scicos_pal") | ~isdef("%scicos_menu") | ..
      ~isdef("%scicos_short") | ~isdef("%scicos_help") | ..
-     ~isdef("modelica_libs") | ..
-     ~isdef("scicos_pal_libs") | ~isdef("%scicos_gif") | ..
-     ~isdef("%scicos_contrib") | ~isdef("%scicos_libs") ) then
-
-    [scicos_pal, %scicos_menu, %scicos_short, %scicos_help, ...
-     modelica_libs,scicos_pal_libs, ...
-     %scicos_lhb_list, %CmenuTypeOneVector, %scicos_gif, ...
-     %scicos_contrib,%scicos_libs] = initial_scicos_tables();
-     clear initial_scicos_tables
-   end
-  // =====================================================================
+     ~isdef("%scicos_display_mode") | ~isdef("modelica_libs") | ..
+     ~isdef("scicos_pal_libs") ) then
+  [scicos_pal, %scicos_menu, %scicos_short, modelica_libs, scicos_pal_libs,...
+   %scicos_lhb_list, %CmenuTypeOneVector, %scicos_gif,%scicos_contrib, ..
+   %scicos_libs, %scicos_with_grid, %scs_wgrid] = initial_scicos_tables();
+end
+// =====================================================================
 
 [lhs,rhs] = argn(0)
 IN  = [];
index 78704a2..9f5540c 100644 (file)
@@ -63,20 +63,32 @@ function Info = scicos_simulate(scs_m, Info, %scicos_context, flag, Ignb)
   end
   clear noguimode
 
-  // Define Scicos data tables ===========================================
-  if ( ~isdef("scicos_pal") | ~isdef("%scicos_menu") | ..
+if ~isdef('scicos_menuslib') then
+  load('SCI/modules/scicos/macros/scicos_menus/lib')
+end
+
+if exists('scicos_scicoslib')==0 then
+    load("SCI/modules/scicos/macros/scicos_scicos/lib") ;
+end
+
+if exists('scicos_autolib')==0 then
+    load("SCI/modules/scicos/macros/scicos_auto/lib") ;
+end
+
+if exists('scicos_utilslib')==0 then
+    load("SCI/modules/scicos/macros/scicos_utils/lib") ;
+end
+
+// Define Scicos data tables ===========================================
+if ( ~isdef("scicos_pal") | ~isdef("%scicos_menu") | ..
      ~isdef("%scicos_short") | ~isdef("%scicos_help") | ..
-     ~isdef("modelica_libs") | ..
-     ~isdef("scicos_pal_libs") | ~isdef("%scicos_gif") | ..
-     ~isdef("%scicos_contrib") | ~isdef("%scicos_libs") ) then
-
-    [scicos_pal, %scicos_menu, %scicos_short, %scicos_help, ...
-     modelica_libs,scicos_pal_libs, ...
-     %scicos_lhb_list, %CmenuTypeOneVector, %scicos_gif, ...
-     %scicos_contrib,%scicos_libs] = initial_scicos_tables();
-     clear initial_scicos_tables
-   end
-  // =====================================================================
+     ~isdef("%scicos_display_mode") | ~isdef("modelica_libs") | ..
+     ~isdef("scicos_pal_libs") ) then
+  [scicos_pal, %scicos_menu, %scicos_short, modelica_libs, scicos_pal_libs,...
+   %scicos_lhb_list, %CmenuTypeOneVector, %scicos_gif,%scicos_contrib, ..
+   %scicos_libs, %scicos_with_grid, %scs_wgrid] = initial_scicos_tables();
+end
+// =====================================================================
 
   //** initialize a "scicos_debug_gr" variable
   %scicos_debug_gr = %f;
index 5b925c1..ddbbcd1 100644 (file)
@@ -48,6 +48,10 @@ function [X,U,Y,XP] = steadycos(scs_m,X,U,Y,Indx,Indu,Indy,Indxp,param)
 //** the required library are loaded if not already present in the 
 //** "semiglobal-local-environment".
 
+if ~isdef('scicos_menuslib') then
+  load('SCI/modules/scicos/macros/scicos_menus/lib')
+end
+
 if exists('scicos_scicoslib')==0 then
     load("SCI/modules/scicos/macros/scicos_scicos/lib") ;
 end
@@ -60,20 +64,16 @@ if exists('scicos_utilslib')==0 then
     load("SCI/modules/scicos/macros/scicos_utils/lib") ;
 end
 
-  // Define Scicos data tables ===========================================
-  if ( ~isdef("scicos_pal") | ~isdef("%scicos_menu") | ..
-       ~isdef("%scicos_short") | ~isdef("%scicos_help") | ..
-       ~isdef("modelica_libs") | ..
-       ~isdef("scicos_pal_libs") | ~isdef("%scicos_gif") | ..
-       ~isdef("%scicos_contrib") | ~isdef("%scicos_libs") ) then
-
-    [scicos_pal, %scicos_menu, %scicos_short, %scicos_help, ...
-     modelica_libs,scicos_pal_libs, ...
-     %scicos_lhb_list, %CmenuTypeOneVector, %scicos_gif, ...
-     %scicos_contrib,%scicos_libs] = initial_scicos_tables();
-     clear initial_scicos_tables
-   end
-  // =====================================================================
+// Define Scicos data tables ===========================================
+if ( ~isdef("scicos_pal") | ~isdef("%scicos_menu") | ..
+     ~isdef("%scicos_short") | ~isdef("%scicos_help") | ..
+     ~isdef("%scicos_display_mode") | ~isdef("modelica_libs") | ..
+     ~isdef("scicos_pal_libs") ) then
+  [scicos_pal, %scicos_menu, %scicos_short, modelica_libs, scicos_pal_libs,...
+   %scicos_lhb_list, %CmenuTypeOneVector, %scicos_gif,%scicos_contrib, ..
+   %scicos_libs, %scicos_with_grid, %scs_wgrid] = initial_scicos_tables();
+end
+// =====================================================================
 
 [lhs,rhs] = argn(0) ;
 IN = [];
index 4cf9ffc..d4c1319 100644 (file)
@@ -19,4 +19,4 @@ global AA
 Info = scicos_simulate(scs_m,list(),%scicos_context,'nw');
 res = AA;
 clearglobal AA;
-if abs(res-1.56012845688924151)>1d-10 then bugmes();quit;end
+if abs(res-1.56012845688924151)>1d-3 then bugmes();quit;end
index ae9bbe7..951ca95 100644 (file)
@@ -20,4 +20,4 @@ global AA
 Info = scicos_simulate(scs_m,list(),%scicos_context,'nw');
 res = AA;
 clearglobal AA;
-if abs(res-1.56012845688924151)>1d-10 then pause,end
+if abs(res-1.56012845688924151)>1d-3 then pause,end
index 617cc35..b77e5b2 100644 (file)
@@ -14,8 +14,4 @@ l=3;
 ph=0.1; 
 scs_m = scs_m.objs(5).model.rpar;
 [X,U,Y,XP] = steadycos(scs_m,[],[],[],[],1,1:$);
-Creating dynamiclib for the block simulation function.
-
-Loading dynamiclib for block simulation function.
-
 sys = lincos(scs_m,X,U);
index d6ded4c..3a6550e 100644 (file)
@@ -5,6 +5,16 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 load('SCI/modules/scicos/macros/scicos_scicos/lib');
+load('SCI/modules/scicos/macros/scicos_utils/lib');
+load('SCI/modules/scicos/macros/scicos_menus/lib');
+if ( ~isdef("scicos_pal") | ~isdef("%scicos_menu") | ..
+       ~isdef("%scicos_short") | ~isdef("%scicos_help") | ..
+       ~isdef("%scicos_display_mode") | ~isdef("modelica_libs") | ..
+       ~isdef("scicos_pal_libs") ) then
+     [scicos_pal, %scicos_menu, %scicos_short, modelica_libs, scicos_pal_libs,...
+     %scicos_lhb_list, %CmenuTypeOneVector, %scicos_gif,%scicos_contrib, ..
+     %scicos_libs, %scicos_with_grid, %scs_wgrid] = initial_scicos_tables();
+end
 options=default_options();
 //build the block set
 blockslib='scs'+['Branching','Events','Misc','Sinks','Threshold','Linear', ...
index c3a13a8..dd65fe8 100644 (file)
@@ -6,6 +6,18 @@
 // =============================================================================
 
 load('SCI/modules/scicos/macros/scicos_scicos/lib');
+load('SCI/modules/scicos/macros/scicos_utils/lib');
+load('SCI/modules/scicos/macros/scicos_menus/lib');
+if ( ~isdef("scicos_pal") | ~isdef("%scicos_menu") | ..
+       ~isdef("%scicos_short") | ~isdef("%scicos_help") | ..
+       ~isdef("%scicos_display_mode") | ~isdef("modelica_libs") | ..
+       ~isdef("scicos_pal_libs") ) then
+    
+     [scicos_pal, %scicos_menu, %scicos_short, modelica_libs, scicos_pal_libs,...
+     %scicos_lhb_list, %CmenuTypeOneVector, %scicos_gif,%scicos_contrib, ..
+     %scicos_libs, %scicos_with_grid, %scs_wgrid] = initial_scicos_tables();
+end
+  
 exec(loadpallibs,-1) 
 
 exec('SCI/modules/scicos/tests/unit_tests/scicos_tests.sci');
index 0ca02ee..c62a9c3 100644 (file)
@@ -14,7 +14,3 @@ l=3;
 ph=0.1; 
 scs_m = scs_m.objs(5).model.rpar;
 [X,U,Y,XP] = steadycos(scs_m,[],[],[],[],1,1:$);
-Creating dynamiclib for the block simulation function.
-
-Loading dynamiclib for block simulation function.
-
index fc8a9c4..3887f29 100644 (file)
 //
 function loadScicosLibs()
 
+  if ~isdef('scicos_menuslib') then
+    load('SCI/modules/scicos/macros/scicos_menus/lib')
+  end
+
+  if ( ~isdef("scicos_pal") | ~isdef("%scicos_menu") | ..
+       ~isdef("%scicos_short") | ~isdef("%scicos_help") | ..
+       ~isdef("%scicos_display_mode") | ~isdef("modelica_libs") | ..
+       ~isdef("scicos_pal_libs") ) then
+
+    
+     [scicos_pal, %scicos_menu, %scicos_short, modelica_libs, scicos_pal_libs,...
+     %scicos_lhb_list, %CmenuTypeOneVector, %scicos_gif,%scicos_contrib, ..
+     %scicos_libs, %scicos_with_grid, %scs_wgrid] = initial_scicos_tables();
+
+    clear initial_scicos_tables
+  end
+
   // list of scicos libraries that we need at xcos launch
   listlibsname = [];