randlib: fix grand_clcg4.tst display 48/17948/3
Clément DAVID [Mon, 21 Mar 2016 15:59:58 +0000 (16:59 +0100)]
Change-Id: I3d114f80874c9dd13b546400b0c4e5a259a411e4

scilab/modules/randlib/tests/unit_tests/grand_clcg4.dia.ref
scilab/modules/randlib/tests/unit_tests/grand_clcg4.tst

index 5c02fe9..760f477 100644 (file)
@@ -5,7 +5,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
-grand('setgen','clcg4');
+grand("setgen","clcg4");
 // Low level test for grand
 //**********************************************************************
 //     A test program for the bottom level routines
@@ -13,20 +13,20 @@ grand('setgen','clcg4');
 //**********************************************************************
 NB       = 10
  NB  = 
-    10.
+   10.
 NR       = 1000
  NR  = 
-    1000.
+   1000.
 answer   = ones(NB,NR);
 genlst   = [1,5,10,20,32]
  genlst  = 
-    1.    5.    10.    20.    32.
+   1.   5.   10.   20.   32.
 nbad     = 0;
-str      = ['For five virtual generators of the 101\n' ..
-           +' This test generates '+string(NB)+' numbers then resets the block\n'..
-           +'      and does it again\n' ..
-           +' Any disagreements are reported -- there should be none'];
-mprintf(str)
+str      = ["For five virtual generators of the 101"
+" This test generates "+string(NB)+" numbers then resets the block"
+"      and does it again"
+" Any disagreements are reported -- there should be none"];
+mprintf(strcat(str, "\n"));
 For five virtual generators of the 101
  This test generates 10 numbers then resets the block
       and does it again
@@ -34,69 +34,68 @@ For five virtual generators of the 101
 //
 //     Set up Generators
 //
-grand('setall',12345,54321,6789,9876);
+grand("setall",12345,54321,6789,9876);
 //
 //     For a selected set of generators
 //
 for ixgen = 1:5
     igen = genlst(ixgen)
-    grand('setcgn',igen);
-    mprintf(' Testing generator '+string(igen)+'\n');
+    grand("setcgn",igen);
+    mprintf(" Testing generator "+string(igen)+"\n");
     //
     //     Use NB blocks
     //
-    grand('initgn',-1);
-    SD=grand('getsd');iseed1=SD(1);iseed2=SD(2);
+    grand("initgn",-1);
+    SD=grand("getsd");iseed1=SD(1);iseed2=SD(2);
     for iblock = 1:NB
         //     Generate NR numbers
-        answer(iblock,1:NR)= grand(1,NR,'lgi');
-        grand('initgn',1);
+        answer(iblock,1:NR)= grand(1,NR,"lgi");
+        grand("initgn",1);
     end
-    grand('initgn',-1);
+    grand("initgn",-1);
     //
     //     Do it again and compare answers
     //
-    SD=grand('getsd');iseed1=SD(1);iseed2=SD(2);
+    SD=grand("getsd");iseed1=SD(1);iseed2=SD(2);
     //
     //     Use NB blocks
     //
     for iblock = 1:NB
         //     Generate NR numbers
-        itmp = grand(1,NR,'lgi');
+        itmp = grand(1,NR,"lgi");
         if itmp<>answer(iblock,:) then
-            str=[' Disagreement on regeneration of numbers' ..
-                +' Block '+string(iblock)+' N within Block '];
+            str=[" Disagreement on regeneration of numbers" ..
+            +" Block "+string(iblock)+" N within Block "];
             mprintf(str);
         end
         if itmp<>answer(iblock,:) then bugmes();quit;end
-        grand('initgn',1);
+        grand("initgn",1);
     end
-    mprintf(' Finished testing generator '+string(igen)+'\n');
-    mprintf(' Test completed successfully\n');
-       
+    mprintf(" Finished testing generator "+string(igen)+"\n");
+    mprintf(" Test completed successfully\n");
 end
  igen  = 
-    1.
+   1.
  Testing generator 1
  Finished testing generator 1
  Test completed successfully
  igen  = 
-    5.
+   5.
  Testing generator 5
  Finished testing generator 5
  Test completed successfully
  igen  = 
-    10.
+   10.
  Testing generator 10
  Finished testing generator 10
  Test completed successfully
  igen  = 
-    20.
+   20.
  Testing generator 20
  Finished testing generator 20
  Test completed successfully
  igen  = 
-    32.
+   32.
  Testing generator 32
  Finished testing generator 32
  Test completed successfully
index 4b39a39..8946d9e 100644 (file)
@@ -6,7 +6,7 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
-grand('setgen','clcg4');
+grand("setgen","clcg4");
 
 // Low level test for grand
 
@@ -20,18 +20,17 @@ answer   = ones(NB,NR);
 genlst   = [1,5,10,20,32]
 nbad     = 0;
 
-str      = ['For five virtual generators of the 101\n' ..
-           +' This test generates '+string(NB)+' numbers then resets the block\n'..
-           +'      and does it again\n' ..
-           +' Any disagreements are reported -- there should be none'];
-
-mprintf(str)
+str      = ["For five virtual generators of the 101"
+" This test generates "+string(NB)+" numbers then resets the block"
+"      and does it again"
+" Any disagreements are reported -- there should be none"];
+mprintf(strcat(str, "\n"));
 
 //
 //     Set up Generators
 //
 
-grand('setall',12345,54321,6789,9876);
+grand("setall",12345,54321,6789,9876);
 
 //
 //     For a selected set of generators
@@ -39,41 +38,41 @@ grand('setall',12345,54321,6789,9876);
 
 for ixgen = 1:5
     igen = genlst(ixgen)
-    grand('setcgn',igen);
-    mprintf(' Testing generator '+string(igen)+'\n');
+    grand("setcgn",igen);
+    mprintf(" Testing generator "+string(igen)+"\n");
     //
     //     Use NB blocks
     //
-    grand('initgn',-1);
-    SD=grand('getsd');iseed1=SD(1);iseed2=SD(2);
+    grand("initgn",-1);
+    SD=grand("getsd");iseed1=SD(1);iseed2=SD(2);
     for iblock = 1:NB
         //     Generate NR numbers
-        answer(iblock,1:NR)= grand(1,NR,'lgi');
-        grand('initgn',1);
+        answer(iblock,1:NR)= grand(1,NR,"lgi");
+        grand("initgn",1);
     end
-    grand('initgn',-1);
+    grand("initgn",-1);
     //
     //     Do it again and compare answers
     //
-    SD=grand('getsd');iseed1=SD(1);iseed2=SD(2);
+    SD=grand("getsd");iseed1=SD(1);iseed2=SD(2);
     //
     //     Use NB blocks
     //
     for iblock = 1:NB
         //     Generate NR numbers
-        itmp = grand(1,NR,'lgi');
+        itmp = grand(1,NR,"lgi");
         if itmp<>answer(iblock,:) then
-            str=[' Disagreement on regeneration of numbers' ..
-                +' Block '+string(iblock)+' N within Block '];
+            str=[" Disagreement on regeneration of numbers" ..
+            +" Block "+string(iblock)+" N within Block "];
             mprintf(str);
         end
 
         if itmp<>answer(iblock,:) then pause,end
 
-        grand('initgn',1);
+        grand("initgn",1);
     end
 
-    mprintf(' Finished testing generator '+string(igen)+'\n');
-    mprintf(' Test completed successfully\n');
-       
+    mprintf(" Finished testing generator "+string(igen)+"\n");
+    mprintf(" Test completed successfully\n");
+
 end