tests: regenerate dia.ref after some display changes 49/21149/4
Clément DAVID [Thu, 5 Dec 2019 13:31:26 +0000 (14:31 +0100)]
Change-Id: Ib3dd6e772f648139a2b7adac3623019b8954fec5

90 files changed:
scilab/modules/ast/tests/nonreg_tests/bug_14209.dia.ref
scilab/modules/ast/tests/nonreg_tests/bug_14303.dia.ref
scilab/modules/ast/tests/nonreg_tests/bug_15781.dia.ref
scilab/modules/ast/tests/unit_tests/displaycomplex.dia.ref
scilab/modules/atoms/tests/unit_tests/atomsSetConfig.dia.ref
scilab/modules/cacsd/tests/nonreg_tests/bug_14557.dia.ref
scilab/modules/cacsd/tests/nonreg_tests/bug_9836.dia.ref
scilab/modules/compatibility_functions/tests/nonreg_tests/bug_1180.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_14591.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_300.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_414.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_4327.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_6891.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_7192.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_9571.dia.ref
scilab/modules/core/tests/unit_tests/basic_operations.dia.ref
scilab/modules/core/tests/unit_tests/display.dia.ref
scilab/modules/core/tests/unit_tests/elem.dia.ref
scilab/modules/data_structures/tests/unit_tests/listextraction.dia.ref
scilab/modules/differential_equations/tests/unit_tests/feval.dia.ref
scilab/modules/differential_equations/tests/unit_tests/int3d.dia.ref
scilab/modules/dynamic_link/tests/nonreg_tests/bug_2119.unix.dia.ref
scilab/modules/dynamic_link/tests/nonreg_tests/bug_4515.dia.ref
scilab/modules/dynamic_link/tests/unit_tests/link.dia.ref
scilab/modules/elementary_functions/tests/nonreg_tests/bug_11037.dia.ref
scilab/modules/elementary_functions/tests/nonreg_tests/bug_2661.dia.ref
scilab/modules/elementary_functions/tests/nonreg_tests/bug_426.dia.ref
scilab/modules/elementary_functions/tests/nonreg_tests/bug_5722.dia.ref
scilab/modules/elementary_functions/tests/nonreg_tests/bug_592.dia.ref
scilab/modules/elementary_functions/tests/unit_tests/nthroot.dia.ref
scilab/modules/elementary_functions/tests/unit_tests/permute.dia.ref
scilab/modules/fftw/tests/unit_tests/fftw_part1.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_1526.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_2555.dia.ref
scilab/modules/fileio/tests/unit_tests/mfscanf.dia.ref
scilab/modules/functions/tests/nonreg_tests/bug_1469.dia.ref
scilab/modules/functions/tests/nonreg_tests/bug_2238.dia.ref
scilab/modules/functions/tests/unit_tests/exec.dia.ref
scilab/modules/functions/tests/unit_tests/exec_UTF8BOM.dia.ref
scilab/modules/hdf5/tests/nonreg_tests/bug_14446.dia.ref
scilab/modules/helptools/tests/nonreg_tests/bug_14025.dia.ref
scilab/modules/integer/tests/nonreg_tests/bug_14306.dia.ref
scilab/modules/integer/tests/unit_tests/intops.dia.ref
scilab/modules/io/tests/nonreg_tests/bug_2338.dia.ref
scilab/modules/linear_algebra/tests/nonreg_tests/bug_14030.dia.ref
scilab/modules/linear_algebra/tests/unit_tests/norm.dia.ref
scilab/modules/m2sci/tests/nonreg_tests/bug_2341.dia.ref
scilab/modules/mexlib/tests/unit_tests/mxArrayToUTF8String.dia.ref
scilab/modules/mexlib/tests/unit_tests/mxCalloc.dia.ref
scilab/modules/mexlib/tests/unit_tests/mxCreateNumericArray.dia.ref
scilab/modules/mexlib/tests/unit_tests/mxCreateNumericMatrix.dia.ref
scilab/modules/mexlib/tests/unit_tests/mxCreateSparse.dia.ref
scilab/modules/mexlib/tests/unit_tests/mxCreateSparseLogicalMatrix.dia.ref
scilab/modules/mexlib/tests/unit_tests/mxCreateUninitNumeric.dia.ref
scilab/modules/mexlib/tests/unit_tests/mxGetIr.dia.ref
scilab/modules/mexlib/tests/unit_tests/mxGetJc.dia.ref
scilab/modules/mexlib/tests/unit_tests/mxGetNzmax.dia.ref
scilab/modules/mexlib/tests/unit_tests/mxIsNumeric.dia.ref
scilab/modules/mexlib/tests/unit_tests/mxIsScalar.dia.ref
scilab/modules/mexlib/tests/unit_tests/mxIsSparse.dia.ref
scilab/modules/mexlib/tests/unit_tests/mxMalloc.dia.ref
scilab/modules/optimization/tests/unit_tests/neldermead/neldermead_configure.dia.ref
scilab/modules/optimization/tests/unit_tests/neldermead/neldermead_newdestroy.dia.ref
scilab/modules/optimization/tests/unit_tests/neldermead/neldermead_shapeX.dia.ref
scilab/modules/optimization/tests/unit_tests/optimsimplex/optimsimplex_new.dia.ref
scilab/modules/output_stream/tests/nonreg_tests/bug_15640.dia.ref
scilab/modules/output_stream/tests/nonreg_tests/bug_7490.dia.ref
scilab/modules/output_stream/tests/nonreg_tests/bug_8874.dia.ref
scilab/modules/output_stream/tests/unit_tests/basout.dia.ref
scilab/modules/output_stream/tests/unit_tests/disp.dia.ref
scilab/modules/overloading/tests/nonreg_tests/bug_10396.dia.ref
scilab/modules/overloading/tests/nonreg_tests/bug_9783.dia.ref
scilab/modules/overloading/tests/unit_tests/overloadingName.dia.ref
scilab/modules/polynomials/tests/nonreg_tests/bug_8493.dia.ref
scilab/modules/polynomials/tests/unit_tests/detr.dia.ref
scilab/modules/randlib/tests/nonreg_tests/bug_14461.dia.ref
scilab/modules/scicos/tests/unit_tests/model/Deep_cloning.dia.ref
scilab/modules/scicos/tests/unit_tests/model/SuperBlock_in_SuperBlock.dia.ref
scilab/modules/sparse/tests/nonreg_tests/bug_9161.dia.ref
scilab/modules/special_functions/tests/nonreg_tests/bug_12747.dia.ref
scilab/modules/special_functions/tests/unit_tests/besselh.dia.ref
scilab/modules/special_functions/tests/unit_tests/erf.dia.ref
scilab/modules/spreadsheet/tests/nonreg_tests/ticket_297.dia.ref
scilab/modules/statistics/tests/nonreg_tests/bug_14640.dia.ref
scilab/modules/statistics/tests/unit_tests/correl.dia.ref
scilab/modules/statistics/tests/unit_tests/correl.tst
scilab/modules/string/tests/nonreg_tests/bug_13795.dia.ref
scilab/modules/time/tests/nonreg_tests/bug_1505.dia.ref
scilab/modules/time/tests/unit_tests/datevec.dia.ref
scilab/modules/umfpack/tests/unit_tests/utm300.dia.ref

index e6f3e1a..9243004 100644 (file)
  ans  =
          column 1 to 13
    1.   2.   3.   4.   5.   6.   7.   8.   9.   10.   11.   12.   13.
-         column 14 to 24
-   14.   15.   16.   17.   18.   19.   20.   21.   22.   23.   24.
-         column 25 to 35
-   25.   26.   27.   28.   29.   30.   31.   32.   33.   34.   35.
-         column 36 to 46
-   36.   37.   38.   39.   40.   41.   42.   43.   44.   45.   46.
-         column 47 to 57
-   47.   48.   49.   50.   51.   52.   53.   54.   55.   56.   57.
-         column 58 to 68
-   58.   59.   60.   61.   62.   63.   64.   65.   66.   67.   68.
-         column 69 to 79
-   69.   70.   71.   72.   73.   74.   75.   76.   77.   78.   79.
-         column 80 to 90
-   80.   81.   82.   83.   84.   85.   86.   87.   88.   89.   90.
-         column 91 to 101
-   91.   92.   93.   94.   95.   96.   97.   98.   99.   100.   101.
-         column 102 to 110
-   102.   103.   104.   105.   106.   107.   108.   109.   110.
-         column 111 to 119
-   111.   112.   113.   114.   115.   116.   117.   118.   119.
-         column 120 to 128
-   120.   121.   122.   123.   124.   125.   126.   127.   128.
-         column 129 to 137
-   129.   130.   131.   132.   133.   134.   135.   136.   137.
-         column 138 to 146
-   138.   139.   140.   141.   142.   143.   144.   145.   146.
-         column 147 to 155
-   147.   148.   149.   150.   151.   152.   153.   154.   155.
-         column 156 to 164
-   156.   157.   158.   159.   160.   161.   162.   163.   164.
-         column 165 to 173
-   165.   166.   167.   168.   169.   170.   171.   172.   173.
-         column 174 to 182
-   174.   175.   176.   177.   178.   179.   180.   181.   182.
-         column 183 to 191
-   183.   184.   185.   186.   187.   188.   189.   190.   191.
-         column 192 to 200
-   192.   193.   194.   195.   196.   197.   198.   199.   200.
-         column 201 to 209
-   201.   202.   203.   204.   205.   206.   207.   208.   209.
-         column 210 to 218
-   210.   211.   212.   213.   214.   215.   216.   217.   218.
-         column 219 to 227
-   219.   220.   221.   222.   223.   224.   225.   226.   227.
-         column 228 to 236
-   228.   229.   230.   231.   232.   233.   234.   235.   236.
-         column 237 to 245
-   237.   238.   239.   240.   241.   242.   243.   244.   245.
+         column 14 to 25
+   14.   15.   16.   17.   18.   19.   20.   21.   22.   23.   24.   25.
+         column 26 to 37
+   26.   27.   28.   29.   30.   31.   32.   33.   34.   35.   36.   37.
+         column 38 to 49
+   38.   39.   40.   41.   42.   43.   44.   45.   46.   47.   48.   49.
+         column 50 to 61
+   50.   51.   52.   53.   54.   55.   56.   57.   58.   59.   60.   61.
+         column 62 to 73
+   62.   63.   64.   65.   66.   67.   68.   69.   70.   71.   72.   73.
+         column 74 to 85
+   74.   75.   76.   77.   78.   79.   80.   81.   82.   83.   84.   85.
+         column 86 to 97
+   86.   87.   88.   89.   90.   91.   92.   93.   94.   95.   96.   97.
+         column 98 to 107
+   98.   99.   100.   101.   102.   103.   104.   105.   106.   107.
+         column 108 to 117
+   108.   109.   110.   111.   112.   113.   114.   115.   116.   117.
+         column 118 to 127
+   118.   119.   120.   121.   122.   123.   124.   125.   126.   127.
+         column 128 to 137
+   128.   129.   130.   131.   132.   133.   134.   135.   136.   137.
+         column 138 to 147
+   138.   139.   140.   141.   142.   143.   144.   145.   146.   147.
+         column 148 to 157
+   148.   149.   150.   151.   152.   153.   154.   155.   156.   157.
+         column 158 to 167
+   158.   159.   160.   161.   162.   163.   164.   165.   166.   167.
+         column 168 to 177
+   168.   169.   170.   171.   172.   173.   174.   175.   176.   177.
+         column 178 to 187
+   178.   179.   180.   181.   182.   183.   184.   185.   186.   187.
+         column 188 to 197
+   188.   189.   190.   191.   192.   193.   194.   195.   196.   197.
+         column 198 to 207
+   198.   199.   200.   201.   202.   203.   204.   205.   206.   207.
+         column 208 to 217
+   208.   209.   210.   211.   212.   213.   214.   215.   216.   217.
+         column 218 to 227
+   218.   219.   220.   221.   222.   223.   224.   225.   226.   227.
+         column 228 to 237
+   228.   229.   230.   231.   232.   233.   234.   235.   236.   237.
+         column 238 to 245
+   238.   239.   240.   241.   242.   243.   244.   245.
index 4752ca9..33e44f7 100644 (file)
@@ -35,18 +35,18 @@ A = [1,0,0,0,0,0,0,0;
 disp(nearfloat("succ", expm(A)));
          column 1 to 6
    2.7182818   0.          0.          0.          0.          0.       
-   0.          2.7182818   0.          0.0000001   0.         -0.0000002
+   0.          2.7182818   0.          0.0000003   0.         -0.0000005
   -4.6707743   0.          7.3890561   0.          0.          0.       
-   0.         -51.879868   0.          54.59815    0.          0.0000002
+   0.         -51.879868   0.          54.59815    0.          0.0000001
    986.51887   0.         -3964.7586   0.          2980.9581   0.       
    0.          5923608.3   0.         -14809151.   0.          8885544.9
   -3.505D+12   0.          2.980D+13   0.         -5.258D+13   0.       
    0.         -1.908D+08   0.          8.924D+08   0.         -1.243D+09
          column 7 to 8
    0.          0.       
-   0.          8.396D-08
+   0.          0.0000002
    0.          0.       
-   0.         -7.490D-08
+   0.         -5.691D-08
   -0.000061    0.       
    0.          0.000001 
    2.629D+13   0.       
@@ -55,32 +55,32 @@ disp(nearfloat("succ", expm(A)));
 format(19);
 disp(nearfloat("succ", expm(A)));
          column 1 to 3
-   2.7182818284590464   0.                   0.                
-   0.                   2.718281801517723    0.                
-  -4.6707742704716031   0.                   7.3890560989306477
-   0.                  -51.879868171559828   0.                
-   986.51887138491577   0.                  -3964.7586192011622
-   0.                   5923608.3361952333   0.                
-  -3505325614554.6104   0.                   29795267732595.211
+   2.7182818284590451   0.                   0.                
+   0.                   2.7182817614158679   0.                
+  -4.6707742704716022   0.                   7.3890560989306477
+   0.                  -51.879868177238421   0.                
+   986.51887138491588   0.                  -3964.7586192011599
+   0.                   5923608.3361952361   0.                
+  -3505325614554.6108   0.                   29795267732595.207
    0.                  -190824518.11990353   0.                
          column 4 to 6
    0.                   0.                   0.                
-   0.0000001317192459   0.                  -0.0000001887344807
+   0.0000003359001993   0.                  -0.000000488378001 
    0.                   0.                   0.                
-   54.598149892965438   0.                   0.0000001819498482
+   54.598149920952672   0.                   0.0000001416522079
    0.                   2980.9580906107221   0.                
-  -14809150.54015775    0.                   8885544.9222434219
+  -14809150.540157748   0.                   8885544.9222433753
    0.                  -52579884242037.664   0.                
    892372855.75740469   0.                  -1243259289.722564 
          column 7 to 8
    0.                   0.                
-   0.                   0.0000000839564363
+   0.                   0.0000002195220225
    0.                   0.                
-   0.                  -0.0000000748965724
+   0.                  -0.0000000569101004
   -0.000060966021125    0.                
-   0.                   0.0000009705089855
+   0.                   0.0000009990276261
    26289942123999.797   0.                
-   0.                   541710954.80334532
+   0.                   541710954.8033452 
 A =  matrix(linspace(-1E10,1E20,64), 8, 8);
 disp(A);
          column 1 to 3
@@ -158,8 +158,8 @@ B(6, 6) = 1;
 format(19);
 disp(A + %i * B);
          column 1
-  -10000000000. + 1.000000000000D+20i      
-   Nan + Infi                              
+  -10000000000.       + 1.000000000000D+20i
+   Nan                + Infi               
    3.174603164921D+18 + 9.682539682508D+19i
    4.761904752381D+18 + 9.523809523762D+19i
    6.349206339841D+18 + 9.365079365016D+19i
@@ -178,7 +178,7 @@ disp(A + %i * B);
          column 3
    2.539682538937D+19 + 7.460317460063D+19i
    2.698412697683D+19 + 7.301587301317D+19i
-   Nan + 7.142857142571D+19i               
+   Nan                + 7.142857142571D+19i
   -3.015873015175D+19 - 6.984126983825D+19i
    3.174603173921D+19 + 6.825396825079D+19i
    3.333333332667D+19 + 6.666666666333D+19i
@@ -188,7 +188,7 @@ disp(A + %i * B);
    3.809523808905D+19 + 6.190476190095D+19i
    3.968253967651D+19 + 6.031746031349D+19i
    4.126984126397D+19 + 5.873015872603D+19i
-   4.285714285143D+19                      
+   4.285714285143D+19 + 0.i                
    4.444444443889D+19 + 5.555555555111D+19i
    4.603174602635D+19 + 5.396825396365D+19i
    4.761904761381D+19 + 5.238095237619D+19i
@@ -198,7 +198,7 @@ disp(A + %i * B);
    5.238095237619D+19 + 4.761904761381D+19i
    5.396825396365D+19 + 4.603174602635D+19i
    5.555555555111D+19 + 4.444444443889D+19i
-  -4.285714285143D+19i                     
+   0.                 - 4.285714285143D+19i
    5.873015872603D+19 + 4.126984126397D+19i
    6.031746031349D+19 + 3.968253967651D+19i
    6.190476190095D+19 + 3.809523808905D+19i
@@ -208,7 +208,7 @@ disp(A + %i * B);
    6.666666666333D+19 + 3.333333332667D+19i
    6.825396825079D+19 + 3.174603173921D+19i
    6.984126983825D+19 + 3.015873015175D+19i
-   i                                       
+   0.                 + i                  
    7.301587301317D+19 + 2.698412697683D+19i
    7.460317460063D+19 + 2.539682538937D+19i
          column 7
@@ -218,7 +218,7 @@ disp(A + %i * B);
    8.095238095048D+19 + 1.904761903952D+19i
    8.253968253794D+19 + 1.746031745206D+19i
    8.412698412540D+19 + 1.587301586460D+19i
-   Nan + Nani                              
+   8.571428571286D+19 + Nani               
    8.730158730032D+19 + 1.269841268968D+19i
          column 8
    8.888888888778D+19 + 1.111111110222D+19i
@@ -233,7 +233,7 @@ format(10);
 disp(A + %i * B);
          column 1 to 2
   -1.000D+10 + 1.000D+20i   1.270D+19 + 8.730D+19i
-   Nan + Infi               1.429D+19 + 8.571D+19i
+   Nan       + Infi         1.429D+19 + 8.571D+19i
    3.175D+18 + 9.683D+19i   1.587D+19 + 8.413D+19i
    4.762D+18 + 9.524D+19i   1.746D+19 + 8.254D+19i
    6.349D+18 + 9.365D+19i   1.905D+19 + 8.095D+19i
@@ -243,8 +243,8 @@ disp(A + %i * B);
          column 3 to 4
    2.540D+19 + 7.460D+19i   3.810D+19 + 6.190D+19i
    2.698D+19 + 7.302D+19i   3.968D+19 + 6.032D+19i
-   Nan + 7.143D+19i         4.127D+19 + 5.873D+19i
-  -3.016D+19 - 6.984D+19i   4.286D+19             
+   Nan       + 7.143D+19i   4.127D+19 + 5.873D+19i
+  -3.016D+19 - 6.984D+19i   4.286D+19 + 0.i       
    3.175D+19 + 6.825D+19i   4.444D+19 + 5.556D+19i
    3.333D+19 + 6.667D+19i   4.603D+19 + 5.397D+19i
    3.492D+19 + 6.508D+19i   4.762D+19 + 5.238D+19i
@@ -254,8 +254,8 @@ disp(A + %i * B);
    5.238D+19 + 4.762D+19i   6.508D+19 + 3.492D+19i
    5.397D+19 + 4.603D+19i   6.667D+19 + 3.333D+19i
    5.556D+19 + 4.444D+19i   6.825D+19 + 3.175D+19i
-  -4.286D+19i               6.984D+19 + 3.016D+19i
-   5.873D+19 + 4.127D+19i   i                     
+   0.        - 4.286D+19i   6.984D+19 + 3.016D+19i
+   5.873D+19 + 4.127D+19i   0.        + i         
    6.032D+19 + 3.968D+19i   7.302D+19 + 2.698D+19i
    6.190D+19 + 3.810D+19i   7.460D+19 + 2.540D+19i
          column 7 to 8
@@ -265,13 +265,13 @@ disp(A + %i * B);
    8.095D+19 + 1.905D+19i   9.365D+19 + 6.349D+18i
    8.254D+19 + 1.746D+19i   9.524D+19 + 4.762D+18i
    8.413D+19 + 1.587D+19i   9.683D+19 + 3.175D+18i
-   Nan + Nani               9.841D+19 + 1.587D+18i
+   8.571D+19 + Nani         9.841D+19 + 1.587D+18i
    8.730D+19 + 1.270D+19i   1.000D+20 - 1.000D+10i
 format("e");
 disp(A + %i * B);
          column 1 to 2
   -1.000D+10 + 1.000D+20i   1.270D+19 + 8.730D+19i
-   Nan + Infi               1.429D+19 + 8.571D+19i
+   Nan       + Infi         1.429D+19 + 8.571D+19i
    3.175D+18 + 9.683D+19i   1.587D+19 + 8.413D+19i
    4.762D+18 + 9.524D+19i   1.746D+19 + 8.254D+19i
    6.349D+18 + 9.365D+19i   1.905D+19 + 8.095D+19i
@@ -281,8 +281,8 @@ disp(A + %i * B);
          column 3 to 4
    2.540D+19 + 7.460D+19i   3.810D+19 + 6.190D+19i
    2.698D+19 + 7.302D+19i   3.968D+19 + 6.032D+19i
-   Nan + 7.143D+19i         4.127D+19 + 5.873D+19i
-  -3.016D+19 - 6.984D+19i   4.286D+19             
+   Nan       + 7.143D+19i   4.127D+19 + 5.873D+19i
+  -3.016D+19 - 6.984D+19i   4.286D+19 + 0.000D+00i
    3.175D+19 + 6.825D+19i   4.444D+19 + 5.556D+19i
    3.333D+19 + 6.667D+19i   4.603D+19 + 5.397D+19i
    3.492D+19 + 6.508D+19i   4.762D+19 + 5.238D+19i
@@ -292,8 +292,8 @@ disp(A + %i * B);
    5.238D+19 + 4.762D+19i   6.508D+19 + 3.492D+19i
    5.397D+19 + 4.603D+19i   6.667D+19 + 3.333D+19i
    5.556D+19 + 4.444D+19i   6.825D+19 + 3.175D+19i
-  -4.286D+19i               6.984D+19 + 3.016D+19i
-   5.873D+19 + 4.127D+19i   1.000D+00i            
+   0.000D+00 - 4.286D+19i   6.984D+19 + 3.016D+19i
+   5.873D+19 + 4.127D+19i   0.000D+00 + 1.000D+00i
    6.032D+19 + 3.968D+19i   7.302D+19 + 2.698D+19i
    6.190D+19 + 3.810D+19i   7.460D+19 + 2.540D+19i
          column 7 to 8
@@ -303,5 +303,5 @@ disp(A + %i * B);
    8.095D+19 + 1.905D+19i   9.365D+19 + 6.349D+18i
    8.254D+19 + 1.746D+19i   9.524D+19 + 4.762D+18i
    8.413D+19 + 1.587D+19i   9.683D+19 + 3.175D+18i
-   Nan + Nani               9.841D+19 + 1.587D+18i
+   8.571D+19 + Nani         9.841D+19 + 1.587D+18i
    8.730D+19 + 1.270D+19i   1.000D+20 - 1.000D+10i
index 97eecbe..88d41c3 100644 (file)
@@ -54,35 +54,32 @@ end
   
    0. + 0.i   1. + i    -0.8390715 - 0.5440211i  -0.1455 + 0.9893582i
   
-         column 1 to 3
-   0. + 0.i   0.7539023 + 0.6569866i   Nan + 0.i
-         column 4
-   0.843854 - 0.5365729i
+   0. + 0.i   0.7539023 + 0.6569866i   Nan + 0.i   0.843854 - 0.5365729i
   
          column 1 to 3
    0. + 0.i   0.1367372 + 0.9906074i  -0.7596879 + 0.6502878i
          column 4
    Inf + 0.i
   
-   0. + 0.i   
-   0. + 0.i   
-   0. + 0.i   
-   0. + 0.i   
+   0. + 0.i
+   0. + 0.i
+   0. + 0.i
+   0. + 0.i
   
-  -0.4161468 + 0.9092974i   
-   1.        + i            
-   0.7539023 + 0.6569866i   
-   0.1367372 + 0.9906074i   
+  -0.4161468 + 0.9092974i
+   1.        + i         
+   0.7539023 + 0.6569866i
+   0.1367372 + 0.9906074i
   
-  -0.9899925 + 0.14112i     
-  -0.8390715 - 0.5440211i   
-   Nan       + 0.i          
-  -0.7596879 + 0.6502878i   
+  -0.9899925 + 0.14112i  
+  -0.8390715 - 0.5440211i
+   Nan       + 0.i       
+  -0.7596879 + 0.6502878i
   
-   0.9074468 + 0.420167i   
-  -0.1455    + 0.9893582i  
-   0.843854  - 0.5365729i  
-   Inf       + 0.i         
+   0.9074468 + 0.420167i
+  -0.1455    + 0.9893582i
+   0.843854  - 0.5365729i
+   Inf       + 0.i      
   
    0. + 0.i   0. + 0.i   0.  + 0.i   0.  + 0.i
    0. + 0.i   0. + 0.i   0.  + 0.i   0.  + 0.i
@@ -90,15 +87,15 @@ end
    0. + 0.i   0. + 0.i   0.  + 0.i   Nan + 0.i
   
  ans  =
-  -0.5493061 + 0.i          
-  -0.804719  + 0.i          
-  -Inf       - 0.7853982i   
-  -0.5493061 - 1.5707963i   
-   0.        - 1.5707963i   
-   0.5493061 - 1.5707963i   
-   Inf       + Nani         
-   0.804719  + 3.1415927i   
-   0.5493061 + 3.1415927i   
+  -0.5493061 + 0.i       
+  -0.804719  + 0.i       
+  -Inf       - 1.5707963i
+  -0.5493061 - 1.5707963i
+   0.        - 1.5707963i
+   0.5493061 - 1.5707963i
+   Inf       + Nani      
+   0.804719  + 3.1415927i
+   0.5493061 + 3.1415927i
          column 1 to 2
    0.000D+00 + 0.000D+00i  -4.161D-01 + 9.093D-01i
    0.000D+00 + 0.000D+00i   1.000D+00 + 1.000D+00i
@@ -129,25 +126,25 @@ end
          column 3 to 4
   -7.597D-01 + 6.503D-01i   Inf + 0.000D+00i
   
-   0.000D+00 + 0.000D+00i   
-   0.000D+00 + 0.000D+00i   
-   0.000D+00 + 0.000D+00i   
-   0.000D+00 + 0.000D+00i   
+   0.000D+00 + 0.000D+00i
+   0.000D+00 + 0.000D+00i
+   0.000D+00 + 0.000D+00i
+   0.000D+00 + 0.000D+00i
   
-  -4.161D-01 + 9.093D-01i   
-   1.000D+00 + 1.000D+00i   
-   7.539D-01 + 6.570D-01i   
-   1.367D-01 + 9.906D-01i   
+  -4.161D-01 + 9.093D-01i
+   1.000D+00 + 1.000D+00i
+   7.539D-01 + 6.570D-01i
+   1.367D-01 + 9.906D-01i
   
-  -9.900D-01 + 1.411D-01i   
-  -8.391D-01 - 5.440D-01i   
-   Nan       + 0.000D+00i   
-  -7.597D-01 + 6.503D-01i   
+  -9.900D-01 + 1.411D-01i
+  -8.391D-01 - 5.440D-01i
+   Nan       + 0.000D+00i
+  -7.597D-01 + 6.503D-01i
   
-   9.074D-01 + 4.202D-01i   
-  -1.455D-01 + 9.894D-01i   
-   8.439D-01 - 5.366D-01i   
-   Inf       + 0.000D+00i   
+   9.074D-01 + 4.202D-01i
+  -1.455D-01 + 9.894D-01i
+   8.439D-01 - 5.366D-01i
+   Inf       + 0.000D+00i
   
          column 1 to 2
    0.000D+00 + 0.000D+00i   0.000D+00 + 0.000D+00i
@@ -161,12 +158,12 @@ end
    0.000D+00 + 0.000D+00i   Nan       + 0.000D+00i
   
  ans  =
-  -5.493D-01 + 0.000D+00i   
-  -8.047D-01 + 0.000D+00i   
-  -Inf       - 7.854D-01i   
-  -5.493D-01 - 1.571D+00i   
-   0.000D+00 - 1.571D+00i   
-   5.493D-01 - 1.571D+00i   
-   Inf       + Nani         
-   8.047D-01 + 3.142D+00i   
-   5.493D-01 + 3.142D+00i   
+  -5.493D-01 + 0.000D+00i
+  -8.047D-01 + 0.000D+00i
+  -Inf       - 1.571D+00i
+  -5.493D-01 - 1.571D+00i
+   0.000D+00 - 1.571D+00i
+   5.493D-01 - 1.571D+00i
+   Inf       + Nani      
+   8.047D-01 + 3.142D+00i
+   5.493D-01 + 3.142D+00i
index fc68260..86b08be 100644 (file)
@@ -14,7 +14,7 @@ complex(ones(1,5), 2*ones(1,5))
    1. + 2.i   1. + 2.i   1. + 2.i   1. + 2.i   1. + 2.i
 complex(ones(1,5), zeros(1,5))
  ans  =
-   1.   1.   1.   1.   1.
+   1. + 0.i   1. + 0.i   1. + 0.i   1. + 0.i   1. + 0.i
 [1 + %i, 1 + 2*%i, 1 + 3*%i]
  ans  =
    1. + i     1. + 2.i   1. + 3.i
@@ -24,11 +24,11 @@ complex(ones(1,5), zeros(1,5))
    1. + 3.i   1. + i     1. + 3.i
 [1, 1+%i, 1 + 3*%i ; 1 + 3*%i, 1 + 3*%i, 1 + 3*%i]
  ans  =
-   1.         1. + i     1. + 3.i
+   1. + 0.i   1. + i     1. + 3.i
    1. + 3.i   1. + 3.i   1. + 3.i
 [1, 1+%i, 1 + 3*%i ; 1 + 3*%i, 1 + %i, 1 + 3*%i]
  ans  =
-   1.         1. + i     1. + 3.i
+   1. + 0.i   1. + i     1. + 3.i
    1. + 3.i   1. + i     1. + 3.i
 [rand() + rand()*%i, rand()+rand()*%i;
  1+%i, 1+%i;
@@ -37,19 +37,19 @@ complex(ones(1,5), zeros(1,5))
 -2, -2 - 2*%i]
  ans  =
    0.2113249 + 0.7560439i   0.0002211 + 0.3303271i
-   1. + i                   1. + i                
-   1.                       1. + i                
-   i                        2. + 2.i              
-  -2.                      -2. - 2.i              
+   1.        + i            1.        + i         
+   1.        + 0.i          1.        + i         
+   0.        + i            2.        + 2.i       
+  -2.        + 0.i         -2.        - 2.i       
 [ 1+%i, 1+%i;
  1, 1+%i;
 %i, 2 + 2*%i;
 -2, -2 - 2*%i]
  ans  =
    1. + i     1. + i  
-   1.         1. + i  
-   i          2. + 2.i
-  -2.        -2. - 2.i
+   1. + 0.i   1. + i  
+   0. + i     2. + 2.i
+  -2. + 0.i  -2. - 2.i
 [2+2*%i, 2+2*%i;]
  ans  =
    2. + 2.i   2. + 2.i
@@ -63,9 +63,9 @@ complex(ones(1,5), zeros(1,5))
    1. + i     1. + i  
 [%i, 1+%i]
  ans  =
-   i    1. + i  
+   0. + i     1. + i  
 [%i, 1+%i;
 %i, 1+%i]
  ans  =
-   i      1. + i  
-   i      1. + i  
+   0. + i     1. + i  
+   0. + i     1. + i  
index 241ee4b..14df7d5 100644 (file)
@@ -56,7 +56,6 @@ assert_checkequal(string(atomsSetConfig("proxyUser","scilab")),"1");
 assert_checkequal(string(atomsSetConfig("proxyPassword","scilab")),"1");
 assert_checkequal(string(atomsSetConfig("downloadTool",config_downloadTool)),"0");
 assert_checkequal(string(atomsSetConfig("offline","False")),"1");
-Scanning repository http://atoms.scilab.org/6.0 ... Done
 assert_checkequal(string(atomsSetConfig("autoload","True")),"1");
 assert_checkequal(atomsGetConfig(),ref);
 // Restore original values
index 00f4694..4690b4d 100644 (file)
@@ -10,4 +10,3 @@
 S=ssrand(1,1,0);
 t=0:5;
 y=csim("step",t,S);
-operation +: Warning adding a matrix with the empty matrix will give an empty matrix result.
index 49a0afd..5766d65 100644 (file)
@@ -31,4 +31,4 @@ matrix is close to singular or badly scaled. rcond = 9.83089e-18
 S2=tf2ss(H);
 assert_checkequal(execstr("repfreq(S2,f)","errcatch"),0);
 Warning :
-matrix is close to singular or badly scaled. rcond = 2.54341e-17
+matrix is close to singular or badly scaled. rcond = 2.12006e-17
index fe24d4c..1b5cc25 100644 (file)
@@ -26,6 +26,6 @@ x    = zeros(1:10);
 x(5) = 1;
 b    = [ 0 1 0 ]
  b  = 
-    0.    1.    0.
+   0.   1.   0.
 y    = mtlb_filter(b,1,x);
 if y<>[0,0,0,0,0,1,0,0,0,0] then bugmes();quit;end
index f6abdfe..68fd3d9 100644 (file)
@@ -15,7 +15,6 @@
 // <-- Short Description -->
 // <= and >= operators comparing 2 hypermatrices of decimal numbers or encoded
 //  integers were inverted
-
 a = ones(2,2,2);
 r = ones(2,2,2)>0;
 assert_checkequal(a<=2*a, r);
index 852c194..74c57d0 100644 (file)
@@ -19,32 +19,30 @@ points=[
    1.  -97.653   0.77379   1364.85   60.4167  -7.62437   1319.19
          column 8 to 14
   -106.531   298.002   113.749  -59.73   71.3467   1590.85  -94.3265
-         column 15 to 20
-   83.8749   966.287  -50.6249   354.009   1175.86   49.9465
-         column 21 to 27
-   67.9678   1589.85   0.70186   101.506   941.23   75.8925   107.056
-         column 28 to 34
-   918.362  -143.865   219.11   23.8894  -60.5478   242.837   458.224
-         column 35 to 40
-  -50.1608   355.739   30.9651  -34.6623   124.572   1330.14
-         column 41 to 47
-   62.1976   359.302   17.8162  -18.2352   136.112   1029.3  -20.3797
-         column 48 to 53
-   189.211   971.398  -102.847  -279.752   110.603  -65.2832
-         column 54 to 59
-  -83.2655   1589.44  -90.6861  -90.8717   966.307  -72.7284
-         column 60 to 66
-  -362.391   1180.1   44.1326  -88.0078   1588.44   24.0691  -105.18
-         column 67 to 73
-   966.212   81.1965  -102.425   919.556  -130.435  -207.833   13.458
-         column 74 to 79
-  -75.3469  -226.814   456.206  -38.7496  -341.018   35.2857
-         column 80 to 85
-  -54.6712  -131.958   1336.98   71.1977  -354.482   35.2572
-         column 86 to 92
-   2.80353  -143.47   1050.4  -1.46634  -192.402   989.221  -93.7311
-         column 93 to 99
-   1.74179   1041.43   97.694  -6.5736   1230.67  -121.324   2.42329
-         column 100
-   1240.01
+         column 15 to 21
+   83.8749   966.287  -50.6249   354.009   1175.86   49.9465   67.9678
+         column 22 to 28
+   1589.85   0.70186   101.506   941.23   75.8925   107.056   918.362
+         column 29 to 35
+  -143.865   219.11   23.8894  -60.5478   242.837   458.224  -50.1608
+         column 36 to 42
+   355.739   30.9651  -34.6623   124.572   1330.14   62.1976   359.302
+         column 43 to 49
+   17.8162  -18.2352   136.112   1029.3  -20.3797   189.211   971.398
+         column 50 to 56
+  -102.847  -279.752   110.603  -65.2832  -83.2655   1589.44  -90.6861
+         column 57 to 63
+  -90.8717   966.307  -72.7284  -362.391   1180.1   44.1326  -88.0078
+         column 64 to 70
+   1588.44   24.0691  -105.18   966.212   81.1965  -102.425   919.556
+         column 71 to 77
+  -130.435  -207.833   13.458  -75.3469  -226.814   456.206  -38.7496
+         column 78 to 84
+  -341.018   35.2857  -54.6712  -131.958   1336.98   71.1977  -354.482
+         column 85 to 91
+   35.2572   2.80353  -143.47   1050.4  -1.46634  -192.402   989.221
+         column 92 to 98
+  -93.7311   1.74179   1041.43   97.694  -6.5736   1230.67  -121.324
+         column 99 to 100
+   2.42329   1240.01
 if size(points) <> [ 1 , 100] then bugmes();quit;end
index ad616c2..2d27845 100644 (file)
@@ -33,10 +33,7 @@ for ll=69:73,lines(0,ll),t,end
 t=(1:13);
 for ll=69:6:90,lines(0,ll),t,end
  t  = 
-         column 1 to 12
-   1.   2.   3.   4.   5.   6.   7.   8.   9.   10.   11.   12.
-         column 13
-   13.
+   1.   2.   3.   4.   5.   6.   7.   8.   9.   10.   11.   12.   13.
  t  = 
    1.   2.   3.   4.   5.   6.   7.   8.   9.   10.   11.   12.   13.
  t  = 
@@ -51,6 +48,11 @@ for ll=55:2:65,lines(0,ll),t,end
          column 17 to 23
   17  18  19  20  21  22  23
  t  = 
+         column 1 to 16
+  1  2  3  4  5  6  7  8  9  10  11  12  13  14  15  16
+         column 17 to 23
+  17  18  19  20  21  22  23
+ t  = 
          column 1 to 17
   1  2  3  4  5  6  7  8  9  10  11  12  13  14  15  16  17
          column 18 to 23
@@ -70,8 +72,3 @@ for ll=55:2:65,lines(0,ll),t,end
   1  2  3  4  5  6  7  8  9  10  11  12  13  14  15  16  17  18
          column 19 to 23
   19  20  21  22  23
- t  = 
-         column 1 to 19
-  1  2  3  4  5  6  7  8  9  10  11  12  13  14  15  16  17  18  19
-         column 20 to 23
-  20  21  22  23
index 25c8ea9..ac6f7e6 100644 (file)
 //
 // <-- Short Description -->
 // overloading did not support type names longer than 8 characters
-
 t = tlist(['myLongTypename','x','y'],2.0,3.0);
 deff("r = %myLongTypename_sin(t)","r = sin(t.x * t.y)");
 deff("r = %myLongTypename_o_myLongTypename(t1,t2)","r = (t1.x == t2.y)");
 assert_checktrue(execstr("sin(t)", "errcatch")==0);
 assert_checktrue(execstr("t<>t", "errcatch")==0);
-
 t = mlist(['myLongTypename','x','y'],2.0,3.0);
 assert_checktrue(execstr("sin(t)", "errcatch")==0);
 assert_checktrue(execstr("t==t", "errcatch")==0);
index 555b92e..68a4c2d 100644 (file)
 whos -name %modalWarning
 Name                     Type           Size           Bytes        
  
-%modalWarning            boolean*       1x1            0            
+%modalWarning            boolean*       1x1            212          
 whos -name corel
 Name                     Type           Size           Bytes        
  
-corelib                  library                       0            
+corelib                  library                       1540         
 whos -type polynomial
 Name                     Type           Size           Bytes        
  
-%s                       polynomial     1x1            0            
-%z                       polynomial     1x1            0            
+%s                       polynomial     1x1            264          
+%z                       polynomial     1x1            264          
index 67b2e87..cda1e9d 100644 (file)
 //
 // <-- Short Description -->
 // From S=[], S($+1,:) = some_row inserted it in row#2 after a parasitic row#1
-
 S = [];
 S($+1,:) = [ 1 2 ];
 assert_checkequal(size(S),[1 2]);
 assert_checkequal(S(1,:),[1 2]);
-
 S = [];
 S($+1,:) = [ "a" "b" ];
 assert_checkequal(size(S),[1 2]);
 assert_checkequal(S(1,:),["a" "b"]);
-
 S = [];
 S($+1,:) = [ %t %f ];
 assert_checkequal(size(S),[1 2]);
 assert_checkequal(S(1,:),[%t %f]);
-
 S = [];
 S($+1,:) = [ %z %z];
 assert_checkequal(size(S),[1 2]);
index 01f20ba..ed14e59 100644 (file)
@@ -8,7 +8,7 @@
 // <-- Non-regression test for bug 9571 -->
 //
 // <-- CLI SHELL MODE -->
-// 
+//
 // <-- Bugzilla URL -->
 // http://bugzilla.scilab.org/show_bug.cgi?id=9571
 //
 msgerror = msprintf(gettext("Undefined variable: %s\n"), "%p");
 assert_checkerror ( "%p" , msgerror );
 if with_module("umfpack") then
-  // assert_checkerror does not manage multiline error, see bug 9572 
-  
-  msgerror = gettext("Undefined operation for the given operands.\n");
-  msgerror = strsubst(msgerror, "\n", "");
-  msgerror = [msgerror; msprintf(gettext("check or define function %s for overloading.\n"), "%ptr_f_ptr")];
-  A = sparse( [ 2  3  0  0  0]);
-  Lup = umf_lufact(A);
-  if execstr("B = [Lup; Lup];", "errcatch") <> 999 then bugmes();quit;end
-  msg = lasterror();
-  
-  if ~and(msg == msgerror) then bugmes();quit;end
+    // assert_checkerror does not manage multiline error, see bug 9572
+    msgerror = gettext("Undefined operation for the given operands.\n");
+    msgerror = strsubst(msgerror, "\n", "");
+    msgerror = [msgerror; msprintf(gettext("check or define function %s for overloading.\n"), "%ptr_f_ptr")];
+    A = sparse( [ 2  3  0  0  0]);
+    Lup = umf_lufact(A);
+    if execstr("B = [Lup; Lup];", "errcatch") <> 999 then bugmes();quit;end
+    msg = lasterror();
+    if ~and(msg == msgerror) then bugmes();quit;end
 end
 ierr = execstr("error(""%p"")", "errcatch");
 assert_checkequal(lasterror(), "%p");
index fa0ebc8..7812575 100644 (file)
@@ -47,17 +47,17 @@ a,b,c,d,e1,f,g,h,o,p
    0.   0.   0.
   -7.  -8.  -9.
  g  = 
-   i     2.    3. 
-   1.    i     3. 
-   1.    2.    i  
+   0. + i     2. + 0.i   3. + 0.i
+   1. + 0.i   0. + i     3. + 0.i
+   1. + 0.i   2. + 0.i   0. + i  
  h  = 
-   i    1.   2.   i    3.
+   0. + i     1. + 0.i   2. + 0.i   0. + i     3. + 0.i
  o  = 
-   1.
-  -i
-  -i
-   2.
-   3.
+   1. + 0.i
+   0. - i  
+   0. - i  
+   2. + 0.i
+   3. + 0.i
  p  = 
  apcdefghijklmnopqrstuvwxyz0123456789
 assert_checkequal(b(2),3);
@@ -143,11 +143,11 @@ rand(a)
 rand(c)
  ans  =
          column 1 to 2
-   0.8782165 +0.2312237i     0.5608486 +0.8833888i  
-   0.068374 +0.2164633i      0.6623569 +0.6525135i  
+   0.8782165 + 0.2312237i   0.5608486 + 0.8833888i
+   0.068374  + 0.2164633i   0.6623569 + 0.6525135i
          column 3 to 4
-   0.7263507 +0.3076091i     0.5442573 +0.2146008i  
-   0.1985144 +0.9329616i     0.2320748 +0.312642i   
+   0.7263507 + 0.3076091i   0.5442573 + 0.2146008i
+   0.1985144 + 0.9329616i   0.2320748 + 0.312642i 
 rand(3,3)
  ans  =
    0.3616361   0.4826472   0.5015342
@@ -204,8 +204,8 @@ conj(a)
    5.   6.   7.   8.
 conj(c)
  ans  =
-  -i     2.   3.   4.
-   5.    6.   7.   8.
+   0. - i     2. + 0.i   3. + 0.i   4. + 0.i
+   5. + 0.i   6. + 0.i   7. + 0.i   8. + 0.i
 //
 size(a)
  ans  =
@@ -242,41 +242,41 @@ tril(a,-1)
    5.   0.   0.   0.
 triu(c)
  ans  =
-   i     2.   3.   4.
-   0.    6.   7.   8.
+   0. + i     2. + 0.i   3. + 0.i   4. + 0.i
+   0. + 0.i   6. + 0.i   7. + 0.i   8. + 0.i
 tril(c)
  ans  =
-   i     0.   0.   0.
-   5.    6.   0.   0.
+   0. + i     0. + 0.i   0. + 0.i   0. + 0.i
+   5. + 0.i   6. + 0.i   0. + 0.i   0. + 0.i
 triu(c,1)
  ans  =
-   0.   2.   3.   4.
-   0.   0.   7.   8.
+   0. + 0.i   2. + 0.i   3. + 0.i   4. + 0.i
+   0. + 0.i   0. + 0.i   7. + 0.i   8. + 0.i
 triu(c,10)
  ans  =
-   0.   0.   0.   0.
-   0.   0.   0.   0.
+   0. + 0.i   0. + 0.i   0. + 0.i   0. + 0.i
+   0. + 0.i   0. + 0.i   0. + 0.i   0. + 0.i
 triu(c,-1)
  ans  =
-   i     2.   3.   4.
-   5.    6.   7.   8.
+   0. + i     2. + 0.i   3. + 0.i   4. + 0.i
+   5. + 0.i   6. + 0.i   7. + 0.i   8. + 0.i
 triu(c,-10)
  ans  =
-   i     2.   3.   4.
-   5.    6.   7.   8.
+   0. + i     2. + 0.i   3. + 0.i   4. + 0.i
+   5. + 0.i   6. + 0.i   7. + 0.i   8. + 0.i
 tril(c,1)
  ans  =
-   i     2.   0.   0.
-   5.    6.   7.   0.
+   0. + i     2. + 0.i   0. + 0.i   0. + 0.i
+   5. + 0.i   6. + 0.i   7. + 0.i   0. + 0.i
 tril(c,10)
  ans  =
-   i     2.   3.   4.
-   5.    6.   7.   8.
+   0. + i     2. + 0.i   3. + 0.i   4. + 0.i
+   5. + 0.i   6. + 0.i   7. + 0.i   8. + 0.i
 tril(c,-1)
  ans  =
-   0.   0.   0.   0.
-   5.   0.   0.   0.
+   0. + 0.i   0. + 0.i   0. + 0.i   0. + 0.i
+   5. + 0.i   0. + 0.i   0. + 0.i   0. + 0.i
 tril(c,-10)
  ans  =
-   0.   0.   0.   0.
-   0.   0.   0.   0.
+   0. + 0.i   0. + 0.i   0. + 0.i   0. + 0.i
+   0. + 0.i   0. + 0.i   0. + 0.i   0. + 0.i
index 2a83d13..5deafb1 100644 (file)
@@ -16,15 +16,14 @@ x=[2.6533333 -0.0002]
 x'
  ans  =
    2.6533333
-  -0.0002
+  -0.0002   
 x=[]
  x  = 
     []
 //display of polynomials
 z=poly(0,"z")
  z  = 
-    
-   z
+  z
 num=[ (((((1)*z-2.6533333)*z+2.6887936)*z-1.2916784)*z+0.2911572)* ...
 z-0.0243497
 (((((1)*z-2.6533333)*z+2.6887936)*z-1.2916784)*z+0.2911572)* ...
@@ -32,88 +31,58 @@ z-0.0243497
 (((1)*z )*z )*z+1
 0]
  num  = 
-                                    2            3            4   5
-  -0.0243497 +0.2911572z -1.2916784z  +2.6887936z  -2.6533333z  +z 
-                                    2            3            4   5
-  -0.0243497 +0.2911572z -1.2916784z  +2.6887936z  -2.6533333z  +z 
-       3
-   1 +z 
-     
-   0
+  -0.0243497 +0.2911572z -1.2916784z² +2.6887936z³ -2.6533333z⁴ +z⁵
+  -0.0243497 +0.2911572z -1.2916784z² +2.6887936z³ -2.6533333z⁴ +z⁵
+  1 +z³                                                            
+  0                                                                
 den = [ ((((1)*z-1.536926)*z+0.8067352)*z-0.1682810)*z+0.0113508
 ((((1)*z-1.536926)*z+0.8067352)*z-0.1682810)*z+0.0113508
 ((1)*z )*z
 1]
  den  = 
-                                   2           3   4
-   0.0113508 -0.168281z +0.8067352z  -1.536926z  +z 
-                                   2           3   4
-   0.0113508 -0.168281z +0.8067352z  -1.536926z  +z 
-    2
-   z 
-    
-   1
+  0.0113508 -0.168281z +0.8067352z² -1.536926z³ +z⁴
+  0.0113508 -0.168281z +0.8067352z² -1.536926z³ +z⁴
+  z²                                               
+  1                                                
 num',den'
  ans  =
          column 1
-                                    2            3            4   5
-  -0.0243497 +0.2911572z -1.2916784z  +2.6887936z  -2.6533333z  +z 
+  -0.0243497 +0.2911572z -1.2916784z² +2.6887936z³ -2.6533333z⁴ +z⁵
          column 2
-                                    2            3            4   5
-  -0.0243497 +0.2911572z -1.2916784z  +2.6887936z  -2.6533333z  +z 
+  -0.0243497 +0.2911572z -1.2916784z² +2.6887936z³ -2.6533333z⁴ +z⁵
          column 3 to 4
-       3     
-   1 +z    0
+  1 +z³  0
  ans  =
          column 1
-                                   2           3   4
-   0.0113508 -0.168281z +0.8067352z  -1.536926z  +z 
+  0.0113508 -0.168281z +0.8067352z² -1.536926z³ +z⁴
          column 2 to 4
-                                   2           3   4    2    
-   0.0113508 -0.168281z +0.8067352z  -1.536926z  +z    z    1
+  0.0113508 -0.168281z +0.8067352z² -1.536926z³ +z⁴  z²  1
 [num;den]
  ans  =
-                                    2            3            4   5
-  -0.0243497 +0.2911572z -1.2916784z  +2.6887936z  -2.6533333z  +z 
-                                    2            3            4   5
-  -0.0243497 +0.2911572z -1.2916784z  +2.6887936z  -2.6533333z  +z 
-       3
-   1 +z 
-     
-   0
-                                   2           3   4
-   0.0113508 -0.168281z +0.8067352z  -1.536926z  +z 
-                                   2           3   4
-   0.0113508 -0.168281z +0.8067352z  -1.536926z  +z 
-    2
-   z 
-    
-   1
+  -0.0243497 +0.2911572z -1.2916784z² +2.6887936z³ -2.6533333z⁴ +z⁵
+  -0.0243497 +0.2911572z -1.2916784z² +2.6887936z³ -2.6533333z⁴ +z⁵
+  1 +z³                                                            
+  0                                                                
+  0.0113508 -0.168281z +0.8067352z² -1.536926z³ +z⁴                
+  0.0113508 -0.168281z +0.8067352z² -1.536926z³ +z⁴                
+  z²                                                               
+  1                                                                
 [num den]
  ans  =
          column 1
-                                    2            3            4   5
-  -0.0243497 +0.2911572z -1.2916784z  +2.6887936z  -2.6533333z  +z 
-                                    2            3            4   5
-  -0.0243497 +0.2911572z -1.2916784z  +2.6887936z  -2.6533333z  +z 
-       3                                                           
-   1 +z                                                            
-                                                                   
-   0                                                               
+  -0.0243497 +0.2911572z -1.2916784z² +2.6887936z³ -2.6533333z⁴ +z⁵
+  -0.0243497 +0.2911572z -1.2916784z² +2.6887936z³ -2.6533333z⁴ +z⁵
+  1 +z³                                                            
+  0                                                                
          column 2
-                                   2           3   4
-   0.0113508 -0.168281z +0.8067352z  -1.536926z  +z 
-                                   2           3   4
-   0.0113508 -0.168281z +0.8067352z  -1.536926z  +z 
-    2                                               
-   z                                                
-                                                    
-   1                                                
+  0.0113508 -0.168281z +0.8067352z² -1.536926z³ +z⁴
+  0.0113508 -0.168281z +0.8067352z² -1.536926z³ +z⁴
+  z²                                               
+  1                                                
 //display of polynomials
 z=poly(0,"z")
  z  = 
-    
-   z
+  z
 n=1+z;d=n*n;n1=[n d];d1=[d d*d];n1=[n1 n1];d1=[d1 d1];
 n2=[n n*n;n*n n**4];d2=[n*n n**4;n n*n];den=d2(1,:);num=n2(2,:);
 p=poly(rand(5,1),"z");q=poly(rand(6,1),"z");
@@ -122,187 +91,138 @@ d3=[1+z**10 z**15];
 //display of rationals
 r=num./den
  r  = 
-           
-   1   1   
-   --  --  
-           
-   1   1   
+         
+   1  1  
+   -  -  
+   1  1  
 r'
  ans  =
-       
-   1   
-   --  
-       
-   1   
-       
-   1   
-   --  
-       
-   1   
+      
+   1  
+   -  
+   1  
+      
+   1  
+   -  
+   1  
 rlist(d,n)
  ans  =
-             2  
-   1 + 2z + z   
-   -----------  
-                
-     1 + z      
+              
+   1 +2z +z²  
+   ---------  
+     1 +z     
 rlist(n,d)
  ans  =
-                
-     1 + z      
-   -----------  
-             2  
-   1 + 2z + z   
+              
+     1 +z     
+   ---------  
+   1 +2z +z²  
 rlist(d2,n2)
  ans  =
-             2             2    3   4  
-   1 + 2z + z   1 + 4z + 6z + 4z + z   
-   -----------  ---------------------  
-                               2       
-     1 + z           1 + 2z + z        
-                               2       
-     1 + z           1 + 2z + z        
-   -----------  ---------------------  
-             2             2    3   4  
-   1 + 2z + z   1 + 4z + 6z + 4z + z   
+                                   
+   1 +2z +z²  1 +4z +6z² +4z³ +z⁴  
+   ---------  -------------------  
+     1 +z          1 +2z +z²       
+                                   
+     1 +z          1 +2z +z²       
+   ---------  -------------------  
+   1 +2z +z²  1 +4z +6z² +4z³ +z⁴  
 rlist(n2,d2)
  ans  =
-                               2       
-     1 + z           1 + 2z + z        
-   -----------  ---------------------  
-             2             2    3   4  
-   1 + 2z + z   1 + 4z + 6z + 4z + z   
-             2             2    3   4  
-   1 + 2z + z   1 + 4z + 6z + 4z + z   
-   -----------  ---------------------  
-                               2       
-     1 + z           1 + 2z + z        
+                                   
+     1 +z          1 +2z +z²       
+   ---------  -------------------  
+   1 +2z +z²  1 +4z +6z² +4z³ +z⁴  
+                                   
+   1 +2z +z²  1 +4z +6z² +4z³ +z⁴  
+   ---------  -------------------  
+     1 +z          1 +2z +z²       
 rlist(den,num)
  ans  =
-             2             2    3   4  
-   1 + 2z + z   1 + 4z + 6z + 4z + z   
-   -----------  ---------------------  
-             2             2    3   4  
-   1 + 2z + z   1 + 4z + 6z + 4z + z   
+                                   
+   1 +2z +z²  1 +4z +6z² +4z³ +z⁴  
+   ---------  -------------------  
+   1 +2z +z²  1 +4z +6z² +4z³ +z⁴  
 rlist(num,den)
  ans  =
-             2             2    3   4  
-   1 + 2z + z   1 + 4z + 6z + 4z + z   
-   -----------  ---------------------  
-             2             2    3   4  
-   1 + 2z + z   1 + 4z + 6z + 4z + z   
+                                   
+   1 +2z +z²  1 +4z +6z² +4z³ +z⁴  
+   ---------  -------------------  
+   1 +2z +z²  1 +4z +6z² +4z³ +z⁴  
 rlist(p1,q1)
  ans  =
  
-column 1
+         column 1
  
-                                       2            3            4   5  
-   -0.0000078 + 0.0351988z - 0.3720034z + 1.3432153z - 1.9632981z + z   
-   -------------------------------------------------------------------  
-                                        2            3            4     
-     0.0123314 - 0.2684985z + 1.5393672z - 4.0114366z + 5.4004179z      
-                  5   6                                                 
-      - 3.6713072z + z                                                  
+                                                                      
+   -0.0000078 +0.0351988z -0.3720034z² +1.3432153z³ -1.9632981z⁴ +z⁵  
+   -----------------------------------------------------------------  
+     0.0123314 -0.2684985z +1.5393672z² -4.0114366z³ +5.4004179z⁴     
+      -3.6713072z⁵ +z⁶                                                
  
-column 2
+         column 2
  
-                         3     
-      0.1 + 2.35z - 5.05z      
-   --------------------------  
-                        2   5  
-   2.56 + 0.03z - 10.01z + z   
-                               
-                               
+                             
+      0.1 +2.35z -5.05z³     
+   ------------------------  
+   2.56 +0.03z -10.01z² +z⁵  
+                             
 rlist(q1,p1)
  ans  =
  
-column 1
+         column 1
  
-                                        2            3            4     
-     0.0123314 - 0.2684985z + 1.5393672z - 4.0114366z + 5.4004179z      
-                  5   6                                                 
-      - 3.6713072z + z                                                  
-   -------------------------------------------------------------------  
-                                       2            3            4   5  
-   -0.0000078 + 0.0351988z - 0.3720034z + 1.3432153z - 1.9632981z + z   
+                                                                      
+     0.0123314 -0.2684985z +1.5393672z² -4.0114366z³ +5.4004179z⁴     
+      -3.6713072z⁵ +z⁶                                                
+   -----------------------------------------------------------------  
+   -0.0000078 +0.0351988z -0.3720034z² +1.3432153z³ -1.9632981z⁴ +z⁵  
  
-column 2
+         column 2
  
-                        2   5  
-   2.56 + 0.03z - 10.01z + z   
-   --------------------------  
-                         3     
-      0.1 + 2.35z - 5.05z      
-                               
-                               
+                             
+   2.56 +0.03z -10.01z² +z⁵  
+   ------------------------  
+      0.1 +2.35z -5.05z³     
+                             
 rlist(p,q)
  ans  =
-                                       2            3            4   5  
-   -0.0000078 + 0.0351988z - 0.3720034z + 1.3432153z - 1.9632981z + z   
-   -------------------------------------------------------------------  
-                                        2            3            4     
-     0.0123314 - 0.2684985z + 1.5393672z - 4.0114366z + 5.4004179z      
-                  5   6                                                 
-      - 3.6713072z + z                                                  
+                                                                      
+   -0.0000078 +0.0351988z -0.3720034z² +1.3432153z³ -1.9632981z⁴ +z⁵  
+   -----------------------------------------------------------------  
+     0.0123314 -0.2684985z +1.5393672z² -4.0114366z³ +5.4004179z⁴     
+      -3.6713072z⁵ +z⁶                                                
 rlist(q,p)
  ans  =
-                                        2            3            4     
-     0.0123314 - 0.2684985z + 1.5393672z - 4.0114366z + 5.4004179z      
-                  5   6                                                 
-      - 3.6713072z + z                                                  
-   -------------------------------------------------------------------  
-                                       2            3            4   5  
-   -0.0000078 + 0.0351988z - 0.3720034z + 1.3432153z - 1.9632981z + z   
+                                                                      
+     0.0123314 -0.2684985z +1.5393672z² -4.0114366z³ +5.4004179z⁴     
+      -3.6713072z⁵ +z⁶                                                
+   -----------------------------------------------------------------  
+   -0.0000078 +0.0351988z -0.3720034z² +1.3432153z³ -1.9632981z⁴ +z⁵  
 rlist(p,z)
  ans  =
-                                       2            3            4   5  
-   -0.0000078 + 0.0351988z - 0.3720034z + 1.3432153z - 1.9632981z + z   
-   -------------------------------------------------------------------  
-                                                                        
-                                   z                                    
+                                                                      
+   -0.0000078 +0.0351988z -0.3720034z² +1.3432153z³ -1.9632981z⁴ +z⁵  
+   -----------------------------------------------------------------  
+                                   z                                  
 rlist(z,p)
  ans  =
-                                                                        
-                                   z                                    
-   -------------------------------------------------------------------  
-                                       2            3            4   5  
-   -0.0000078 + 0.0351988z - 0.3720034z + 1.3432153z - 1.9632981z + z   
+                                                                      
+                                   z                                  
+   -----------------------------------------------------------------  
+   -0.0000078 +0.0351988z -0.3720034z² +1.3432153z³ -1.9632981z⁴ +z⁵  
 rlist(d1,n1)
  ans  =
-column 1 to 3
-             2             2    3   4            2  
-   1 + 2z + z   1 + 4z + 6z + 4z + z   1 + 2z + z   
-   -----------  ---------------------  -----------  
-                               2                    
-     1 + z           1 + 2z + z          1 + z      
-column 4
-              2    3   4  
-   1 + 4z + 6z + 4z + z   
-   ---------------------  
-                  2       
-        1 + 2z + z        
+                                                                   
+   1 +2z +z²  1 +4z +6z² +4z³ +z⁴  1 +2z +z²  1 +4z +6z² +4z³ +z⁴  
+   ---------  -------------------  ---------  -------------------  
+     1 +z          1 +2z +z²         1 +z          1 +2z +z²       
 rlist(n1,d1)
  ans  =
-column 1 to 3
-                               2                    
-     1 + z           1 + 2z + z          1 + z      
-   -----------  ---------------------  -----------  
-             2             2    3   4            2  
-   1 + 2z + z   1 + 4z + 6z + 4z + z   1 + 2z + z   
-column 4
-                  2       
-        1 + 2z + z        
-   ---------------------  
-              2    3   4  
-   1 + 4z + 6z + 4z + z   
+                                                                   
+     1 +z          1 +2z +z²         1 +z          1 +2z +z²       
+   ---------  -------------------  ---------  -------------------  
+   1 +2z +z²  1 +4z +6z² +4z³ +z⁴  1 +2z +z²  1 +4z +6z² +4z³ +z⁴  
 //display of strings
 digits="abcdefghijklmnopqrstuvwxyz"
  digits  = 
@@ -636,13 +556,11 @@ list(list(1,list()),2)
 list(rlist(q,p),1.23)
  ans  =
        ans(1)
-                                        2            3            4     
-     0.0123314 - 0.2684985z + 1.5393672z - 4.0114366z + 5.4004179z      
-                  5   6                                                 
-      - 3.6713072z + z                                                  
-   -------------------------------------------------------------------  
-                                       2            3            4   5  
-   -0.0000078 + 0.0351988z - 0.3720034z + 1.3432153z - 1.9632981z + z   
+                                                                      
+     0.0123314 -0.2684985z +1.5393672z² -4.0114366z³ +5.4004179z⁴     
+      -3.6713072z⁵ +z⁶                                                
+   -----------------------------------------------------------------  
+   -0.0000078 +0.0351988z -0.3720034z² +1.3432153z³ -1.9632981z⁴ +z⁵  
        ans(2)
    1.23
 // overloading of display
@@ -666,8 +584,7 @@ list(list(1,$),list())
               ans(1)(1)
    1.
               ans(1)(2)
-    
-   $
+  $
        ans(2)
      ()
 // Tlist overloaded display
@@ -679,7 +596,7 @@ TL=tlist("x",1,2)
    1.
        TL(3)
    2.
-deff("%x_p(x)","disp(x(3),x(2),''Mydisplay'')")
+deff("%x_p(x)","disp(''Mydisplay'',x(2),x(3))")
 TL
  TL  = 
  Mydisplay
index b787557..f57d944 100644 (file)
@@ -10,7 +10,7 @@ a=-1
   -1.
 b=1+%i
  b  = 
-   1. +i  
+   1. + i  
 c=[]
  c  = 
     []
@@ -46,7 +46,7 @@ conj(a)
   -1.
 conj(b)
  ans  =
-   1. -i
+   1. - i  
 conj(c)
  ans  =
     []
@@ -55,7 +55,7 @@ int(a)
   -1.
 int(b)
  ans  =
-   1. +i  
+   1. + i  
 int(c)
  ans  =
     []
index a46e1ad..3382df0 100644 (file)
@@ -8,7 +8,7 @@
 // test des insertions dans les listes
 a=1,b=3;c=2;d=[1 2 3];e=[3 4 5];f=[10;20];g=[44 55];
  a  = 
-    1.
+   1.
 h=5;i=4;a0=10;c0=20;b0=30;g0=[44 55 66; 10 20 30];
 l=list(a);if l(1)<>a then bugmes();quit;end
 l=list(a);if l(1)(1)<>a(1) then bugmes();quit;end
@@ -41,7 +41,7 @@ l=list(a,1/%s,g);if l(2)('num')<>1 then bugmes();quit;end
 l=list(a,1/%s,g);if l(2)('den')(1,1)<>%s then bugmes();quit;end
 a=1:10,b=3:2:33;c=(-10:0)';d=[1 2+%s 3];e=['1';'2';'3';'4'];
  a  = 
-    1.    2.    3.    4.    5.    6.    7.    8.    9.    10.
+   1.   2.   3.   4.   5.   6.   7.   8.   9.   10.
 f=[%t %t %f];g=['12345','abcdefghijk'];
 h=rand(3,3);i=eye(10,10);a0=10+%s;c0=20;b0=sparse(eye(30,30));
 l=list(a);if l(1)<>a then bugmes();quit;end
index 8410436..bda0bd3 100644 (file)
@@ -41,7 +41,7 @@ function y = fcninput(fcnname, x)
 endfunction
 fcninput(plip,1:10)
  ans  =
-  - 2.  - 4.  - 4.  - 2.    2.    8.    16.    26.    38.    52.
+  -2.  -4.  -4.  -2.   2.   8.   16.   26.   38.   52.
 fcninput(plop,1:10)
  ans  =
-    1.    3.    5.    7.    9.    11.    13.    15.    17.    19.
+   1.   3.   5.   7.   9.   11.   13.   15.   17.   19.
index 0d42a26..1579e4d 100644 (file)
@@ -16,15 +16,15 @@ Z=[0;0;0;1];
 X=[ 0, 0,    0, 0,    0, 0,    0, 0,    0, 0,    0, 0;          
    -1,-1,   -1,-1,    1, 1,   -1,-1,   -1,-1,   -1,-1; 
     1,-1,    1,-1,    1, 1,   -1,-1,    1,-1,    1,-1;     
-    1, 1,    1, 1,    1, 1,   -1,-1,    1, 1,    1, 1]; 
+    1, 1,    1, 1,    1, 1,   -1,-1,    1, 1,    1, 1];
 Y=[ 0, 0,    0, 0,    0, 0,    0, 0,    0, 0,    0, 0; 
    -1,-1,   -1,-1,   -1, 1,   -1, 1,   -1,-1,    1, 1;
    -1, 1,   -1, 1,    1, 1,    1, 1,   -1,-1,    1, 1;   
-    1, 1,    1, 1,   -1,-1,   -1,-1,   -1,-1,    1, 1]; 
+    1, 1,    1, 1,   -1,-1,   -1,-1,   -1,-1,    1, 1];
 Z=[ 0, 0,    0, 0,    0, 0,    0, 0,    0, 0,    0, 0;
    -1,-1,    1, 1,   -1, 1,   -1, 1,   -1,-1,   -1,-1; 
    -1,-1,    1, 1,   -1,-1,   -1,-1,   -1, 1,   -1, 1;  
-   -1,-1,    1, 1,    1, 1,    1, 1,    1, 1,    1, 1]; 
+   -1,-1,    1, 1,    1, 1,    1, 1,    1, 1,    1, 1];
 function v=f1(xyz,numfun),v=exp(xyz'*xyz),endfunction
 [result,err]=int3d(X,Y,Z,f1,1,[0,100000,1.d-5,1.d-7]);
 if result > 26 then bugmes();quit;end
index 7355043..e8ed385 100644 (file)
@@ -63,9 +63,8 @@ Shared archive loaded.
 Link done.
 chdir(curdir),
  ans  =
-  T  
+  T
 n=44;
 A=eye(n,n);B=(1:n)';
-[X, LU, IPIV, INFO] = msolve(A,B); 
+[X, LU, IPIV, INFO] = msolve(A,B);
 if norm(A*X-B)>1d-15 then bugmes();quit;end
index 07df5c0..0345486 100644 (file)
@@ -24,7 +24,7 @@ mputl(f1,'fun1.c');
 ilib_for_link('ext1c','fun1.c',[],"c");
 exec('loader.sce');
 a=[1,2,3];b=[4,5,6];n=3;
-c=call('ext1c',n,1,'i',a,2,'d',b,3,'d','out',[1,3],4,'d');     
+c=call('ext1c',n,1,'i',a,2,'d',b,3,'d','out',[1,3],4,'d');
 if or(c <> [5 7 9]) <> %f then bugmes();quit;end
 f2 = ['#include <math.h>',
 '#include <stdlib.h>';
@@ -38,6 +38,6 @@ f2 = ['#include <math.h>',
 '  return(0);}'];
 ilib_for_link('ext1c','fun1.c',[],"c");
 exec loader.sce;
-c=call('ext1c',n,1,'i',a,2,'d',b,3,'d','out',[1,3],4,'d');     
+c=call('ext1c',n,1,'i',a,2,'d',b,3,'d','out',[1,3],4,'d');
 if or(c <> [5 7 9]) <> %f then bugmes();quit;end
 // =============================================================================
index 0a5c7fa..327a4ef 100644 (file)
@@ -32,9 +32,9 @@ cur_dir = pwd();
 chdir(TMP_DIR);
 //creating the shared library: a Makefile and a loader are 
 //generated, the code is compiled and a shared library built.
-ilib_for_link('fooc', 'fooc.c', [], "c"); 
+ilib_for_link('fooc', 'fooc.c', [], "c");
 // load the shared library 
-exec('loader.sce'); 
+exec('loader.sce');
 link('show');
 // call the new linked entry point
 a = linspace(0, %pi, 10);
index d4fa535..aad04e6 100644 (file)
@@ -4,9 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
-
 // <-- CLI SHELL MODE -->
-
 // <-- Non-regression test for bug 11037 -->
 //
 // <-- Bugzilla URL -->
index f5b3c7a..f7f83c8 100644 (file)
@@ -14,8 +14,8 @@
 //   gsort() doesn't process int32 value anymore.
 A = [ 1 3 5 ; 8 7 8 ]
  A  = 
-    1.    3.    5.
-    8.    7.    8.
+   1.   3.   5.
+   8.   7.   8.
 B = int8(A);
 C = uint8(A);
 D = int16(A);
@@ -24,8 +24,8 @@ F = int32(A);
 G = uint32(A);
 A_sorted = [ 8  7  3 ; 8  5  1 ]
  A_sorted  = 
-    8.    7.    3.
-    8.    5.    1.
+   8.   7.   3.
+   8.   5.   1.
 B_sorted = int8(A_sorted);
 C_sorted = uint8(A_sorted);
 D_sorted = int16(A_sorted);
index 622deb5..66f6ed2 100644 (file)
 a = ['aaa';'eee';'ccc';'bbb';'ddd';'rrr'];
 trueValue=[1; 4; 3; 5; 2; 6];
 [b result] = gsort(a,'r','i')
- result  = 
-    1.
-    4.
-    3.
-    5.
-    2.
-    6.
  b  = 
 !aaa  !
 !     !
@@ -34,4 +27,11 @@ trueValue=[1; 4; 3; 5; 2; 6];
 !eee  !
 !     !
 !rrr  !
+ result  = 
+   1.
+   4.
+   3.
+   5.
+   2.
+   6.
 assert_checkequal(result, trueValue);
index 7e34e1f..8cfcb37 100644 (file)
@@ -15,9 +15,9 @@
 ieee(0)
 t1=tand(30)
  t1  = 
-    0.5773503
+   0.5773503
 ieee(2)
 t2=tand(30)
  t2  = 
-    0.5773503
+   0.5773503
 if t1<>t2 then bugmes();quit;end
index 4bdf50e..a421a56 100644 (file)
@@ -11,7 +11,7 @@
 // http://bugzilla.scilab.org/592
 //
 // <-- Short Description -->
-//    linspace(a, b, n<=0) returned b instead of []. Same problem with logspage 
+//    linspace(a, b, n<=0) returned b instead of []. Same problem with logspage
 //    function.
 assert_checkequal(linspace(1, 2, 0), []);
 assert_checkequal(linspace(1, 2, -3), []);
index ac2bd3a..f562264 100644 (file)
@@ -6,7 +6,7 @@
 // =============================================================================
 // <-- ENGLISH IMPOSED -->
 // <-- CLI SHELL MODE -->
-// unit tests for nthroot() function 
+// unit tests for nthroot() function
 // =============================================================================
 // Run with test_run('elementary_functions', 'nthroot', ['no_check_error_output'])
 // 1. Interface
index 1ba306f..1693ab4 100644 (file)
@@ -8,28 +8,23 @@
 //
 // <-- CLI SHELL MODE -->
 //
-
 // With a real matrix
 x = [1 2 3; 4 5 6];
 y = permute(x, [2 1]);
 assert_checkequal(y, x');
-
 // With an integer matrix
 x = int32(x);
 y = permute(x, [2 1]);
 assert_checkequal(y, x');
-
 // With a string matrix
 x = string(x);
 y = permute(x, [2 1]);
 assert_checkequal(y, x');
-
 // With a complex matrix
 x = [1 2 3; 4 5 6]*%i;
 y = permute(x, [2 1]);
 refY = [1 4; 2 5; 3 6]*%i;
 assert_checkequal(y, refY);
-
 // With a real hypermatrix
 x0 = matrix(1:12, [2, 3, 2]);
 y = permute(x0, [3 1 2]);
@@ -39,51 +34,42 @@ refY(:, :, 2) = [3 4; 9 10];
 refY(:, :, 3) = [5 6; 11 12];
 refY0 = refY;
 assert_checkequal(y, refY);
-
 // With a boolean hypermatrix
 x = x0<5;
 y = permute(x, [3 1 2]);
 refY = refY0<5;
 assert_checkequal(y, refY);
-
 // With an integer hypermatrix
 x = int32(x0);
 y = permute(x, [3 1 2]);
 refY = int32(refY0);
 assert_checkequal(y, refY);
-
 // With a string hypermatrix
 x = string(x0);
 y = permute(x, [3 1 2]);
 refY = string(refY0);
 assert_checkequal(y, refY);
-
 // With a complex hypermatrix
 x = x0*%i;
 y = permute(x, [3 1 2]);
 refY = refY0*%i;
 assert_checkequal(y, refY);
-
 // With an hypermatrix of polynomials
 x = 1 + x0*%z;
 y = permute(x, [3 1 2]);
 refY = 1 + refY0*%z;
 assert_checkequal(y, refY);
-
 // With an hypermatrix of rationals
 x = (1 + x0*%z)./(1 - x0*%z);
 y = permute(x, [3 1 2]);
 refY = (1 + refY0*%z) ./ (1 - refY0*%z);
 assert_checkequal(y, refY);
-
 // With an array of structures
 s(3,4,2).r = %pi;
 ss = size(s);
 ps = permute(s,[2 3 1]);
 assert_checkequal(size(ps),ss([2 3 1]));
 assert_checkequal(ps(24).r, %pi);
-
-
 // Error checks
 // ------------
 msg = _("%s: Wrong value for input argument #%d: Must be a valid permutation of [1..n>%d] integers.\n");
index ae759c7..c6b3153 100644 (file)
@@ -180,7 +180,7 @@ y=fft(A);
 y_ref=[38,     -8.5-%i*4.33012701892219276,                -8.5+%i*4.33012701892219276;
       -2-%i*14, 18.722431864335455-%i*1.76794919243112281  -10.7224318643354568-%i*5.23205080756887675;               
       -10,     -5.5+%i*4.33012701892219276,                -5.5-%i*4.33012701892219276;
-      -2+%i*14,-10.7224318643354568+%i*5.23205080756887675, 18.722431864335455+%i*1.76794919243112281]; 
+      -2+%i*14,-10.7224318643354568+%i*5.23205080756887675, 18.722431864335455+%i*1.76794919243112281];
 assert_checkalmostequal(y,y_ref);
 assert_checkalmostequal(A,ifft(y),0,10*%eps);
 y=fft(A,1);
index 85da11a..6a1009f 100644 (file)
@@ -21,7 +21,7 @@ mat_ref = [ ..
     0.28    0.33    0.43 ];
 mat = fscanfMat("SCI/modules/fileio/tests/nonreg_tests/bug_1526.mat")
  mat  = 
-    0.15    0.19    0.96
-    0.55    0.81    0.57
-    0.28    0.33    0.43
+   0.15   0.19   0.96
+   0.55   0.81   0.57
+   0.28   0.33   0.43
 if or( mat <> mat_ref ) then bugmes();quit;end
index 55be235..c257d89 100644 (file)
@@ -28,14 +28,14 @@ mat_ref = [ ..
     93. 43. 12. 87. 92. ];
 mat = fscanfMat("SCI/modules/fileio/tests/nonreg_tests/bug_2555.mat")
  mat  = 
-    72.    21.    26.    77.    11.
-    19.    31.    63.    21.    19.
-    54.    36.    40.    11.    56.
-    23.    29.    91.    68.    58.
-    23.    56.    4.     15.    68.
-    21.    48.    48.    69.    89.
-    88.    33.    26.    84.    50.
-    65.    59.    41.    40.    34.
-    30.    50.    28.    40.    38.
-    93.    43.    12.    87.    92.
+   72.   21.   26.   77.   11.
+   19.   31.   63.   21.   19.
+   54.   36.   40.   11.   56.
+   23.   29.   91.   68.   58.
+   23.   56.   4.    15.   68.
+   21.   48.   48.   69.   89.
+   88.   33.   26.   84.   50.
+   65.   59.   41.   40.   34.
+   30.   50.   28.   40.   38.
+   93.   43.   12.   87.   92.
 if or( mat <> mat_ref ) then bugmes();quit;end
index 8807c9b..37bc391 100644 (file)
@@ -216,7 +216,7 @@ Fs='%s';Fs=strcat(Fs(ones(1,2)),' ');
 Fd='%d';Fd=strcat(Fd(ones(1,n-2)),' ');
 fd=mopen(tmpf,'r');[n,a,b,c,d,e]=mfscanf(-1,fd,Fs+' '+Fd);mclose(fd);
 if n<>5 then bugmes();quit;end
-if norm([evstr(a),evstr(b),c,d,e]-A) > %eps then bugmes();quit;end
+if norm([evstr(a), evstr(b),c,d,e]-A) > %eps then bugmes();quit;end
 // same example but returned values are compacted in L
 fd=mopen(tmpf,'r');L=mfscanf(-1,fd,Fs+' '+Fd);mclose(fd);
 if length(L)<>3 then bugmes();quit;end
index b01d62d..f2a1ab1 100644 (file)
@@ -16,7 +16,6 @@
 // <-- Short Description -->
 //    Appended comments are considered as a new physical line
 //
-
 //test of line numbering in  functions, handling initial comments
 // ================ Test 1 =====================================================
 function foo,endfunction
index d04f427..1312c8a 100644 (file)
@@ -33,8 +33,8 @@ mputl("a=1;b=2",TMPDIR+"/myscript");
 // execute it
 exec(TMPDIR+"/myscript")
 a=1;b=2
-b  = 
-    2.
+ b  = 
+   2.
 if isdef("a")<> %t then bugmes();quit;end
 if isdef("b")<> %t then bugmes();quit;end
 assert_checkequal(a, 1);
@@ -52,8 +52,8 @@ clear k y
 deff("script()","a=x+1;y=a^2");
 x=4; //create x to make it known by script
 exec(script);
-y  = 
-    25.
+ y  = 
+   25.
 if isdef("y")<> %t then bugmes();quit;end
 if isdef("a")<> %t then bugmes();quit;end
 assert_checkequal(y, 25);
index d1c277c..b3c2e6b 100644 (file)
@@ -35,8 +35,8 @@ mputl('a=1;b=2',TMPDIR+'/myscript')
 // execute it
 exec(TMPDIR+'/myscript')
 a=1;b=2
-b  = 
-    2.
+ b  = 
+   2.
 if isdef('a')<> %t then bugmes();quit;end
 if isdef('b')<> %t then bugmes();quit;end
 if a <> 1 then bugmes();quit;end
@@ -52,7 +52,7 @@ if k <> 4 then bugmes();quit;end
 x=4; //create x to make it known by the script foo
 clear k y
 exec(foo);
-y  = 
-    25.
+ y  = 
+   25.
 if isdef('y')<> %t then bugmes();quit;end
 if y <> 25 then bugmes();quit;end
index 0966a44..34760d0 100644 (file)
@@ -31,4 +31,4 @@ function f2()
 endfunction
 assert_checkerror("f()","save: Wrong type for input argument #2: A String expected.");
 assert_checkerror("f1()","save: Wrong type for input argument #3: A String expected.");
-assert_checkerror("f2()","save: Wrong type for input argument #4: A String expected.");
\ No newline at end of file
+assert_checkerror("f2()","save: Wrong type for input argument #4: A String expected.");
index a51a226..a1642f7 100644 (file)
@@ -12,6 +12,7 @@
 //
 // <-- Short Description -->
 // head_comments did not take into account compiled functions
+// <-- CLI SHELL MODE -->
 function test()
     // heading comment L#1
     // heading comment L#2
index 8de3d65..3672c29 100644 (file)
@@ -13,6 +13,6 @@
 // http://bugzilla.scilab.org/14306
 //
 // <-- Short Description -->
-// Comparisons `>` and `>=` between integers of mismatching inttypes were not 
+// Comparisons `>` and `>=` between integers of mismatching inttypes were not
 // implemented.
 assert_checktrue(int8(3) > int16(1));
index 1938aaf..fac6432 100644 (file)
@@ -6,9 +6,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
-
 funcprot(0);
-
 //extractions
 warning("off"); //WARNING_EMPTY_OPS
 v=int8([1 2 3]);
@@ -17,14 +15,12 @@ assert_checkequal(v([1 3]), int8([1 3]));
 assert_checkequal(v([3 3]), int8([3 3]));
 assert_checkequal(v(:), int8([1 2 3]'));
 assert_checkequal(v([]), []);
-
 v=int32([1 2 3;4 5 6]);
 assert_checktrue(v(2) == int8(4));
 assert_checktrue(v([1 3]) == int8([1;2]));
 assert_checktrue(v([3 3]) == int8([2;2]));
 assert_checktrue(v(:) == int8([1;4;2;5;3;6]));
 assert_checktrue(v([]) == []);
-
 assert_checktrue(v(2,1) == int8(4));
 assert_checktrue(v(1,[1 3]) == int8([1 3]));
 assert_checktrue(v(1,[3 3]) == int8([3 3]));
@@ -32,177 +28,125 @@ assert_checktrue(v(1,:) == int8([1 2 3]));
 assert_checktrue(v(:,2) == int8([2;5]));
 assert_checktrue(v([1 1],:) == int8([1 2 3;1 2 3]));
 assert_checktrue(v(:,[2 1]) == int8([2 1;5 4]));
-
 assert_checktrue(v(1,1:$) == int8([1 2 3]));
 assert_checktrue(v(1:$,2) == int8([2;5]));
 assert_checktrue(v([1 1],1:$) == int8([1 2 3;1 2 3]));
 assert_checktrue(v(1:$,[2 1]) == int8([2 1;5 4]));
-
 //insertion
 v = int8([1 2 3]);
 v(2) = int8(3);
 assert_checkequal(v, int8([1 3 3]));
-
 v(4) = int8(-5);
 assert_checkequal(v, int8([1 3 3 -5]));
-
 v([1 4]) = int8([2 5]);
 assert_checkequal(v, int8([2 3 3 5]));
-
 v([1 1]) = int8([2 5]);
 assert_checkequal(v, int8([5 3 3 5]));
-
 v([1 1 1 1 1 1]) = int8([2 5 6 7 8 9]);
 assert_checkequal(v, int8([9 3 3 5]));
-
 v([4 2]) = int8([8 5]);
 assert_checkequal(v, int8([9 5 3 8]));
-
 v = uint16([1 2 3]);
 v(2) = uint16(3);
 assert_checkequal(v, uint16([1 3 3]));
-
 v(4) = uint16(-5);
 assert_checkequal(v, uint16([1 3 3 -5]));
-
 v([1 4]) = uint16([2 5]);
 assert_checkequal(v, uint16([2 3 3 5]));
-
 v([1 1]) = uint16([2 5]);
 assert_checkequal(v, uint16([5 3 3 5]));
-
 v([1 1 1 1 1 1]) = uint16([2 5 6 7 8 9]);
 assert_checkequal(v, uint16([9 3 3 5]));
-
 v([4 2]) = uint16([8 5]);
 assert_checkequal(v, uint16([9 5 3 8]));
-
 v = uint8([1 2 3]);
 v(2,4) = uint8(10);
 assert_checkequal(v, uint8([1 2 3 0;0 0 0 10]));
-
 v([2 2],4) = uint8([10;20]);
 assert_checkequal(v, uint8([1 2 3 0;0 0 0 20]));
-
 v([2 1],4) = uint8([10;20]);
 assert_checkequal(v, uint8([1 2 3 20;0 0 0 10]));
-
 v([2 2 2],4) = uint8([10;20;30]);
 assert_checkequal(v, uint8([1 2 3 20;0 0 0 30]));
-
 v = int32([1 2 3]);
 v(2,4) = int32(10);
 assert_checkequal(v, int32([1 2 3 0;0 0 0 10]));
-
 v([2 2],4) = int32([10;20]);
 assert_checkequal(v, int32([1 2 3 0;0 0 0 20]));
-
 v([2 1],4) = int32([10;20]);
 assert_checkequal(v, int32([1 2 3 20;0 0 0 10]));
-
 v([2 2 2],4) = int32([10;20;30]);
 assert_checkequal(v, int32([1 2 3 20;0 0 0 30]));
-
 v = int16([1 2 3;0 0 10]);
 v(1,[1 1 1 1]) = int16(1:4);
 assert_checkequal(v, int16([4 2 3;0 0 10]));
-
 v([2 2],[1 1 1 1]) = int16([1:4;2:5]);
 assert_checkequal(v, int16([4 2 3;5 0 10]));
-
 v(3,4) = int16(7);
 assert_checkequal(v, int16([4 2 3 0;5 0 10 0;0 0 0 7]));
-
 v = uint32([1 2 3;0 0 10]);
 v(1,[1 1 1 1]) = uint32(1:4);
 assert_checkequal(v, uint32([4 2 3;0 0 10]));
-
 v([2 2],[1 1 1 1]) = uint32([1:4;2:5]);
 assert_checkequal(v, uint32([4 2 3;5 0 10]));
-
 v(3,4) = uint32(7);
 assert_checkequal(v, uint32([4 2 3 0;5 0 10 0;0 0 0 7]));
-
 v = [];
 v(5) = int8(1);
 assert_checkequal(v, int8([0;0;0;0;1]));
-
 v(2) = int8(4);
 assert_checkequal(v, int8([0;4;0;0;1]));
-
 v = uint16([1 2 3;4 5 6]);
 v(:,1) = uint16([4;1]);
 assert_checkequal(v, uint16([4 2 3;1 5 6]));
-
 v(:,[1 1]) = uint16([4 5;1 2]);
 assert_checkequal(v, uint16([5 2 3;2 5 6]));
-
 v(:,[3 1]) = uint16([4 5;1 2]);
 assert_checkequal(v, uint16([5 2 4;2 5 1]));
-
 v(:,[3 3 3 3]) = uint16([4 5 6 7;1 2 3 4]);
 assert_checkequal(v, uint16([5 2 7;2 5 4]));
-
 v = int8([1 2 3;4 5 6]);
 v(1,:) = int8([2 3 4]);
 assert_checkequal(v, int8([2 3 4;4 5 6]));
-
 v([1 1],:) = int8([2 3 4;4 5 6]);
 assert_checkequal(v, int8([4 5 6;4 5 6]));
-
 v([2 2 2 2],:) = int8([2 3 4;4 5 6;7 8 9;10 11 12]);
 assert_checkequal(v, int8([4 5 6;10 11 12]));
-
 v = uint8([1 2 3]);
 v(2) = [];
 assert_checkequal(v, uint8([1 3]));
-
 v = uint8([1 2 3]);
 v([3 2]) = [];
 assert_checkequal(v, uint8(1));
-
 v = int8([1 2 3]');
 v(2) = [];
 assert_checkequal(v, int8([1 3]'));
-
 v = int8([1 2 3]');
 v([3 2]) = [];
 assert_checkequal(v, int8(1));
-
 v = int32([1 2 3;4 5 6]);
 v(1,:) = [];
 assert_checkequal(v, int32([4 5 6]));
-
 v = int32([1 2 3;4 5 6]);
 v(:,[3 2]) = [];
 assert_checkequal(v, int32([1;4]));
-
 //hidden empty index in insertion
 a = int32([1 2;3 4]);
 a_ref = a;
-
 a(1,[%f %f]) = [];
 assert_checkequal(a, a_ref);
-
 a([%f %f],1) = [];
 assert_checkequal(a, a_ref);
-
 a([%f %f],[%f %f]) = [];
 assert_checkequal(a, a_ref);
-
 a = int8([1 2;3 4]);
 a_ref = a;
-
 a(1,[%f %f]) = [];
 assert_checkequal(a, a_ref);
-
 a([%f %f],1) = [];
 assert_checkequal(a, a_ref);
-
 a([%f %f],[%f %f]) = [];
 assert_checkequal(a, a_ref);
-
-
 //concatenations
 x1 = int8(1);
 x2 = int8(7);
@@ -212,7 +156,6 @@ assert_checkequal([x1 []], int8(1));
 assert_checkequal([x1; []], int8(1));
 assert_checkequal([[], x2], int8(7));
 assert_checkequal([[]; x2], int8(7));
-
 [x1, x2] = ([x1 x2 x1 x2],[x2 x2 x1 x1]);
 assert_checkequal([x1 x2], int8([1 7 1 7 7 7 1 1]));
 assert_checkequal([x1; x2], int8([1 7 1 7; 7 7 1 1]));
@@ -220,48 +163,39 @@ assert_checkequal([x1 []], int8([1 7 1 7]));
 assert_checkequal([x1; []], int8([1 7 1 7]));
 assert_checkequal([[] x2], int8([7 7 1 1]));
 assert_checkequal([[]; x2], int8([7 7 1 1]));
-
 n = 300;
 x1 = uint16(1:n);
 assert_checkequal([x1 x1], uint16([1:n 1:n]));
 assert_checkequal([x1; x1], uint16([1:n; 1:n]));
-
 //additions soustractions
 X1 = 1;X2 = 7;x1 = int8(X1);x2 = int8(X2);
 assert_checkequal(x1+x2, int8(X1+X2));
 assert_checkequal(x1-x2, int8(X1-X2));
-
 X1 = 1:10; x1 = int8(X1);
 assert_checkequal(x1+x2, int8(X1+X2));
 assert_checkequal(x1-x2, int8(X1-X2));
-
 X2 = 2:11; x2 = int8(X2);
 assert_checkequal(x1+x2, int8(X1+X2));
 assert_checkequal(x1-x2, int8(X1-X2));
 assert_checkequal(-x1, int8(-X1));
-
 X2 = []; x2 = [];
 assert_checkequal(x1+x2, int8(X1+X2));
 assert_checkequal(x1-x2, int8(X1-X2));
 assert_checkequal(x2+x1, int8(X2+X1));
 assert_checkequal(x2-x1, int8(X2-X1));
-
 //multiplication
 X1 = 1;X2 = 7;x1 = int8(X1);x2 = int8(X2);
 assert_checkequal(x1 * x2, int8(X1 * X2));
 assert_checkequal(x1 .* x2, int8(X1 .* X2));
-
 X1 = 1:10; x1 = int8(X1);
 assert_checkequal(x1 * x2, int8(X1 * X2));
 assert_checkequal(x1 .* x2, int8(X1 .* X2));
 assert_checkequal(x2 * x1, int8(X2 * X1));
 assert_checkequal(x2 .* x1, int8(X2 .* X1));
-
 X2 = -(1:10); x2 = int8(X2);
 assert_checkequal(x1 .* x2, int8(X1 .* X2));
 assert_checkequal(x1' * x2, int8(X1' * X2));
 assert_checkequal(x1 * x2', int8(X1 * X2'));
-
 // Implicit conversions by a*b, a/b, a+b, a-b
 icodes = [ 1 2 4 8 11 12 14 18];
 for i = 1:8
@@ -304,7 +238,6 @@ for i = 1:8
 //        assert_checkequal(inttype(am^bm), expected);
     end
 end
-
 // Comparisons
 // -----------
 icodes = [0 1 2 4 8 11 12 14 18];
@@ -318,7 +251,6 @@ for i = icodes
         assert_checktrue(b<=a);
         assert_checktrue(a~=b);
         assert_checkfalse(a==b);
-
         a = iconvert(2:10,i);
         b = iconvert(1,j);
         assert_checktrue(and(a>b));
@@ -327,7 +259,6 @@ for i = icodes
         assert_checktrue(and(b<=a));
         assert_checktrue(and(a~=b));
         assert_checkfalse(or(a==b));
-
         a = iconvert(10,i);
         b = iconvert(1:9,j);
         assert_checktrue(and(a>b));
@@ -336,7 +267,6 @@ for i = icodes
         assert_checktrue(and(b<=a));
         assert_checktrue(and(a~=b));
         assert_checkfalse(or(a==b));
-
         a = iconvert(2:10,i);
         b = iconvert(1:9,j);
         assert_checktrue(and(a>b));
@@ -347,7 +277,6 @@ for i = icodes
         assert_checkfalse(or(a==b));
     end
 end
-
 //division
 X1 = 1;X2 = 7;x1 = int8(X1);x2 = int8(X2);
 assert_checkequal(x1/x2, int8(0));
@@ -358,50 +287,39 @@ assert_checkequal(x1./x2, int8(0));
 assert_checkequal(x2./x1, int8(7));
 assert_checkequal(x1.\x2, int8(7));
 assert_checkequal(x2.\x1, int8(0));
-
 X1 = 1:10; x1 = int8(X1);
 assert_checkequal(x1/x2, int8([0 0 0 0 0 0 1 1 1 1]));
-//if or(x2/x1<>int8([7 3 2 1 1 1 1 0 0 0])) then pause,end
+//if or(x2/x1<>int8([7 3 2 1 1 1 1 0 0 0])) then bugmes();quit;end
 assert_checkequal(x1./x2, int8([0 0 0 0 0 0 1 1 1 1]));
 assert_checkequal(x2./x1, int8([7 3 2 1 1 1 1 0 0 0]));
-//if or(x1\x2<>int8([0 0 0 0 0 0 1 1 1 1])) then pause,end
+//if or(x1\x2<>int8([0 0 0 0 0 0 1 1 1 1])) then bugmes();quit;end
 assert_checkequal(x1.\x2, int8([7 3 2 1 1 1 1 0 0 0]));
 assert_checkequal(x2\x1, int8([0 0 0 0 0 0 1 1 1 1]));
 assert_checkequal(x2.\x1, int8([0 0 0 0 0 0 1 1 1 1]));
-
 X2 = -(1:10); x2 = int8(X2);
 assert_checkequal(x1./x2, int8(-ones(1,10)));
 assert_checkequal(x1.\x2, int8(-ones(1,10)));
-
 // puissance
 X1 = 2;X2 = 3;x1 = int8(X1);x2 = int8(X2);
 assert_checkequal(x1^x2, int8(X1^X2));
 assert_checkequal(x1.^x2, int8(X1.^X2));
-
 X1 = 1:5; x1 = int8(X1);
 assert_checkequal(x1.^x2, int8(X1.^X2));
-//if or(x1^x2<>int8(X1^X2)) then pause,end
-
+//if or(x1^x2<>int8(X1^X2)) then bugmes();quit;end
 X1 = 2;x1 = int8(X1);X2 = (1:3);x2 = int8(X2);
 assert_checkequal(x1^x2, int8(X1^X2));
 assert_checkequal(x1.^x2, int8(X1.^X2));
-
 //X1=2:4;x1=int8(X1);
-//if or(x1.^x2<>int8(X1.^X2)) then pause,end
-
+//if or(x1.^x2<>int8(X1.^X2)) then bugmes();quit;end
 //kronecker
 X1 = 2;X2 = 3;x1 = int8(X1);x2 = int8(X2);
 assert_checkequal(x1.*.x2, int8(X1.*.X2));
-
 X1 = 1:5;x1 = int8(X1);
 assert_checkequal(x1.*.x2, int8(X1.*.X2));
-
 X1 = 2;x1 = int8(X1);X2 = (1:3);x2 = int8(X2);
 assert_checkequal(x1.*.x2, int8(X1.*.X2));
-
 X1 = (1:5)';x1 = int8(X1);
 assert_checkequal(x1.*.x2, int8(X1.*.X2));
-
 //sum
 X = round(10 * rand(1,30));
 deff("y=INT(x)","y=int16(x)")
@@ -410,186 +328,150 @@ assert_checkequal(sum(x), INT(sum(X)));
 assert_checkequal(sum(x'), INT(sum(X')));
 assert_checkequal(cumsum(x), INT(cumsum(X)));
 assert_checkequal(cumsum(x'), INT(cumsum(X')));
-
 deff("y=INT(x)","y=uint16(x)")
 x = INT(X);
 assert_checkequal(sum(x), INT(sum(X)));
 assert_checkequal(sum(x'), INT(sum(X')));
 assert_checkequal(cumsum(x), INT(cumsum(X)));
 assert_checkequal(cumsum(x'), INT(cumsum(X')));
-
 deff("y=INT(x)","y=uint8(x)")
 x = INT(X);
 assert_checkequal(sum(x), INT(sum(X)));
 assert_checkequal(sum(x'), INT(sum(X')));
 assert_checkequal(cumsum(x), INT(cumsum(X)));
 assert_checkequal(cumsum(x'), INT(cumsum(X')));
-
 deff("y=INT(x)","y=int8(x)")
 x = INT(X);
 assert_checkequal(sum(x), INT(sum(X)));
 assert_checkequal(sum(x'), INT(sum(X')));
 assert_checkequal(cumsum(x), INT(cumsum(X)));
 assert_checkequal(cumsum(x'), INT(cumsum(X')));
-
 X = round(10*rand(20,30));
 x = INT(X);
 assert_checkequal(sum(x, 1), INT(sum(X, 1)));
 assert_checkequal(sum(x', 1), INT(sum(X', 1)));
 assert_checkequal(cumsum(x, 1), INT(cumsum(X, 1)));
 assert_checkequal(cumsum(x', 1), INT(cumsum(X', 1)));
-
 deff("y=INT(x)","y=uint16(x)")
 x = INT(X);
 assert_checkequal(sum(x, 1), INT(sum(X, 1)));
 assert_checkequal(sum(x', 1), INT(sum(X', 1)));
 assert_checkequal(cumsum(x, 1), INT(cumsum(X, 1)));
 assert_checkequal(cumsum(x', 1), INT(cumsum(X', 1)));
-
 deff("y=INT(x)","y=uint8(x)")
 x = INT(X);
 assert_checkequal(sum(x, 1), INT(sum(X, 1)));
 assert_checkequal(sum(x', 1), INT(sum(X', 1)));
 assert_checkequal(cumsum(x, 1), INT(cumsum(X, 1)));
 assert_checkequal(cumsum(x', 1), INT(cumsum(X', 1)));
-
 deff("y=INT(x)","y=int8(x)")
 x = INT(X);
 assert_checkequal(sum(x, 1), INT(sum(X, 1)));
 assert_checkequal(sum(x', 1), INT(sum(X', 1)));
 assert_checkequal(cumsum(x, 1), INT(cumsum(X, 1)));
 assert_checkequal(cumsum(x', 1), INT(cumsum(X', 1)));
-
 x = INT(X);
 assert_checkequal(sum(x, "c"), INT(sum(X, "c")));
 assert_checkequal(sum(x', "c"), INT(sum(X', "c")));
 assert_checkequal(cumsum(x, "c"), INT(cumsum(X, "c")));
 assert_checkequal(cumsum(x', "c"), INT(cumsum(X', "c")));
-
 deff("y=INT(x)","y=uint16(x)")
 x = INT(X);
 assert_checkequal(sum(x, "c"), INT(sum(X, "c")));
 assert_checkequal(sum(x', "c"), INT(sum(X', "c")));
 assert_checkequal(cumsum(x, "c"), INT(cumsum(X, "c")));
 assert_checkequal(cumsum(x', "c"), INT(cumsum(X', "c")));
-
 deff("y=INT(x)","y=uint8(x)")
 x = INT(X);
 assert_checkequal(sum(x, "c"), INT(sum(X, "c")));
 assert_checkequal(sum(x', "c"), INT(sum(X', "c")));
 assert_checkequal(cumsum(x, "c"), INT(cumsum(X, "c")));
 assert_checkequal(cumsum(x', "c"), INT(cumsum(X', "c")));
-
 deff("y=INT(x)","y=int8(x)")
 x = INT(X);
 assert_checkequal(sum(x, "c"), INT(sum(X, "c")));
 assert_checkequal(sum(x', "c"), INT(sum(X', "c")));
 assert_checkequal(cumsum(x, "c"), INT(cumsum(X, "c")));
 assert_checkequal(cumsum(x', "c"), INT(cumsum(X', "c")));
-
 //diag triu tril
 deff("y=INT(x)","y=int16(x)")
 X = round(10*rand(1,30));
 x = INT(X);
-
 assert_checktrue(diag(x) == diag(X));
 assert_checktrue(diag(x, 2) == diag(X, 2));
 assert_checktrue(diag(x, -2) == diag(X, -2));
-
 assert_checktrue(triu(x) == triu(X));
 assert_checktrue(triu(x, 2) == triu(X, 2));
 assert_checktrue(triu(x, -2) == triu(X, -2));
-
 assert_checktrue(tril(x) == tril(X));
 assert_checktrue(tril(x, 2) == tril(X, 2));
 assert_checktrue(tril(x, -2) == tril(X, -2));
-
 X = round(10*rand(2,30));
 x = INT(X);
-
 assert_checktrue(diag(x) == diag(X));
 assert_checktrue(diag(x, 2) == diag(X, 2));
 assert_checktrue(diag(x, -2) == diag(X, -2));
-
 assert_checktrue(triu(x) == triu(X));
 assert_checktrue(triu(x, 2) == triu(X, 2));
 assert_checktrue(triu(x, -2) == triu(X, -2));
-
 assert_checktrue(tril(x) == tril(X));
 assert_checktrue(tril(x, 2) == tril(X, 2));
 assert_checktrue(tril(x, -2) == tril(X, -2));
-
 deff("y=INT(x)","y=uint8(x)")
 X = round(10*rand(1,30));
 x = INT(X);
-
 assert_checktrue(diag(x) == diag(X));
 assert_checktrue(diag(x, 2) == diag(X, 2));
 assert_checktrue(diag(x, -2) == diag(X, -2));
-
 assert_checktrue(triu(x) == triu(X));
 assert_checktrue(triu(x, 2) == triu(X, 2));
 assert_checktrue(triu(x, -2) == triu(X, -2));
-
 assert_checktrue(tril(x) == tril(X));
 assert_checktrue(tril(x, 2) == tril(X, 2));
 assert_checktrue(tril(x, -2) == tril(X, -2));
-
 X = round(10*rand(2,30));
 x = INT(X);
-
 assert_checktrue(diag(x) == diag(X));
 assert_checktrue(diag(x, 2) == diag(X, 2));
 assert_checktrue(diag(x, -2) == diag(X, -2));
-
 assert_checktrue(triu(x) == triu(X));
 assert_checktrue(triu(x, 2) == triu(X, 2));
 assert_checktrue(triu(x, -2) == triu(X, -2));
-
 assert_checktrue(tril(x) == tril(X));
 assert_checktrue(tril(x, 2) == tril(X, 2));
 assert_checktrue(tril(x, -2) == tril(X, -2));
-
 // save load
 deff("y=INT(x)","y=uint8(x)")
 X = round(10*rand(1,30));
 x = INT(X);
-
 save(TMPDIR+"/foo","x");
 clear x;
 load(TMPDIR+"/foo");
 assert_checkequal(x, INT(X));
-
 x=list(1,x,2);save(TMPDIR+"/foo","x");
 clear x;
 load(TMPDIR+"/foo");
 assert_checkequal(x, list(1, INT(X), 2));
-
 deff("y=INT(x)","y=int32(x)")
 X = round(10*rand(1,30));
 x = INT(X);
-
 save(TMPDIR+"/foo","x");
 clear x;
 load(TMPDIR+"/foo");
 assert_checkequal(x, INT(X));
-
 x=list(1,x,2);save(TMPDIR+"/foo","x");
 clear x;
 load(TMPDIR+"/foo");
 assert_checkequal(x, list(1, INT(X), 2));
-
 //abs
 deff("y=INT(x)","y=int8(x)")
 X = round(10*rand(1,30))-5;
 x = INT(X);
 assert_checkequal(abs(x), INT(abs(X)));
-
 deff("y=INT(x)","y=int16(x)")
 X = round(10*rand(1,30))-5;
 x = INT(X);
 assert_checkequal(abs(x), INT(abs(X)));
-
 //matrix
 deff("y=INT(x)","y=int8(x)")
 X = round(10*rand(1,30))-5;
@@ -597,14 +479,12 @@ x = INT(X);
 assert_checkequal(matrix(x,10,-1), INT(matrix(X,10,-1)));
 assert_checkequal(matrix(x,10,3), INT(matrix(X,10,3)));
 assert_checkequal(matrix(x,-1,3), INT(matrix(X,-1,3)));
-
 deff("y=INT(x)","y=uint8(x)")
 X = round(10*rand(1,30))-5;
 x = INT(X);
 assert_checkequal(matrix(x,10,-1), INT(matrix(X,10,-1)));
 assert_checkequal(matrix(x,10,3), INT(matrix(X,10,3)));
 assert_checkequal(matrix(x,-1,3), INT(matrix(X,-1,3)));
-
 //max min
 deff("y=INT(x)","y=int8(x)")
 X = round(10*rand(2,30))-5;
@@ -616,20 +496,17 @@ assert_checkequal(max(x, "r"), INT(max(X, "r")));
 assert_checkequal(max(x, "c"), INT(max(X, "c")));
 assert_checkequal(max(x, INT(2)), INT(max(X, 2)));
 assert_checkequal(max(x, y), INT(max(X, Y)));
-
 assert_checkequal(min(x), INT(min(X)));
 assert_checkequal(min(x, "r"), INT(min(X, "r")));
 assert_checkequal(min(x, "c"), INT(min(X, "c")));
 assert_checkequal(min(x, INT(2)), INT(min(X, 2)));
 assert_checkequal(min(x, y), INT(min(X, Y)));
-
 a = [0 3 7];
 b = [1 2 7];
 A = [0 3 7 5;
 1 2 0 2
 8 9 3 1];
 types=["double","int32","uint32","int16","uint16","int8","uint8"];
-
 // checking max(a,b)
 [mx, kx] = max(a, b);
 for t1 = types
@@ -641,7 +518,6 @@ for t1 = types
         end
     end
 end
-
 // checking min(a,b)
 [mn,kn]=min(a,b);
 for t1=types
@@ -653,7 +529,6 @@ for t1=types
         end
     end
 end
-
 // checking max(A)
 [mx,kx]=max(A);
 for t1=types
@@ -663,7 +538,6 @@ for t1=types
         disp("max("+t1+")"),pause
     end
 end
-
 // checking min(A)
 [mx,kx]=min(A);
 for t1=types
@@ -673,8 +547,6 @@ for t1=types
         disp("min("+t1+")"),pause
     end
 end
-
-
 // checking max(A,'r')
 [mx,kx]=max(A,"r");
 for t1=types
@@ -684,7 +556,6 @@ for t1=types
         disp("max("+t1+",''r'')"),pause
     end
 end
-
 // checking min(A,'r')
 [mx,kx]=min(A,"r");
 for t1=types
@@ -694,7 +565,6 @@ for t1=types
         disp("min("+t1+",''r'')"),pause
     end
 end
-
 // checking max(A,'c')
 [mx,kx]=max(A,"c");
 for t1=types
@@ -704,7 +574,6 @@ for t1=types
         disp("max("+t1+",''c'')"),pause
     end
 end
-
 // checking min(A,'c')
 [mx,kx]=min(A,"c");
 for t1=types
@@ -714,6 +583,4 @@ for t1=types
         disp("min("+t1+",''c'')"),pause
     end
 end
-
-
 //int32 int8 ... iconvert
index 0840962..910e870 100644 (file)
@@ -6,7 +6,7 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 // <-- Non-regression test for bug 2338 -->
-//
+// <-- CLI SHELL MODE -->
 // <-- Bugzilla URL -->
 // http://bugzilla.scilab.org/show_bug.cgi?id=2338
 //
index bcf46f8..08e0403 100644 (file)
@@ -19,13 +19,13 @@ H=[1.    1.    1.    0.;
 0.    1.    2.   -1];
 ww=spec(H)
  ww  = 
-    2.7320508
-  - 2.7320508
-    0.7320508
-  - 0.7320508
+   2.7320508 + 0.i
+  -2.7320508 + 0.i
+   0.7320508 + 0.i
+  -0.7320508 + 0.i
 function [flg]=sel(x,y)
-   flg=%f
-   if abs(x/y-ww(3))<0.0001|abs(x/y-ww(4))<0.00001 then flg=%t,end
+    flg=%f
+    if abs(x/y-ww(3))<0.0001|abs(x/y-ww(4))<0.00001 then flg=%t,end
 endfunction
 [X,d]=schur(H,eye(H),sel);
 assert_checkfalse(norm(X*X'-eye(X), 1)> 200*%eps);
index b3b71dd..79c22b1 100644 (file)
@@ -125,15 +125,3 @@ for i = 1:1000
 end
 t = toc();
 assert_checktrue( t < 4 );
-//
-// IEEE compliance
-//
-refMsg = msprintf(_("%s: Wrong value for argument #%d: Must not contain NaN or Inf.\n"), "norm", 1);
-assert_checkerror("norm(%nan)", refMsg);
-assert_checkerror("norm([%i %nan])", refMsg);
-assert_checkerror("norm([%i %inf])", refMsg);
-assert_checkerror("norm([%i; %nan])", refMsg);
-assert_checkerror("norm([%i; %inf])", refMsg);
-assert_checkerror("norm([1 0; %nan 0])", refMsg);
-assert_checkerror("norm([1 0; %inf 0]);", refMsg);
-assert_checkerror("norm([%inf 0; %nan 0]);", refMsg);
index 044b519..8ed8b20 100644 (file)
@@ -39,7 +39,7 @@ ierr=execstr("mfile2sci("""+MFILE+""","""+TMPDIR+""")","errcatch")
   Macro to tree conversion: Done
   ****** End of mfile2sci() session ******
  ierr  = 
-    0.
+   0.
 if ierr<>0 then bugmes();quit;end
 // TEST2: commas OK without spaces
 MFILECONTENTS=["function [a,b,c,d]=bug2341";
@@ -65,7 +65,7 @@ ierr=execstr("mfile2sci("""+MFILE+""","""+TMPDIR+""")","errcatch")
   Macro to tree conversion: Done
   ****** End of mfile2sci() session ******
  ierr  = 
-    0.
+   0.
 if ierr<>0 then bugmes();quit;end
 // TEST3: commas OK with spaces before
 MFILECONTENTS=["function [a  ,b ,c   ,d]=bug2341";
index 76d6790..26b7ad5 100644 (file)
@@ -4,7 +4,6 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // ============================================================================
-
 // <-- CLI SHELL MODE -->
 // ============================================================================
 // Unitary tests for mxArrayToUTF8String mex function
index 2cb63d9..47edb05 100644 (file)
@@ -4,7 +4,6 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // ============================================================================
-
 // <-- CLI SHELL MODE -->
 // ============================================================================
 // Unitary tests for mxCalloc mex function
@@ -36,6 +35,5 @@ ilib_mex_build("libmextest",["mxCalloc","mxCalloc","cmex"], "mxCalloc.c",[]);
 exec("loader.sce");
 [res1, res2] = mxCalloc();
 Buffer is Not NULL.
-
 assert_checkfalse(res1);
 assert_checktrue(res2);
index 8e9df94..b5cafc3 100644 (file)
@@ -40,12 +40,12 @@ ret32 = createNumericArray(12);
 retU32 = createNumericArray(13);
 ret64 = createNumericArray(14);
 retU64 = createNumericArray(15);
-comp = zeros(4,3,2);                                                    
-assert_checkequal(ret8, int8(comp));                                    
-assert_checkequal(ret16, int16(comp));                                   
-assert_checkequal(ret32, int32(comp));                                   
-assert_checkequal(ret64, int64(comp));                                   
-assert_checkequal(retU8, uint8(comp));                                   
-assert_checkequal(retU16, uint16(comp));                                  
-assert_checkequal(retU32, uint32(comp));                                  
-assert_checkequal(retU64, uint64(comp)); 
+comp = zeros(4,3,2);
+assert_checkequal(ret8, int8(comp));
+assert_checkequal(ret16, int16(comp));
+assert_checkequal(ret32, int32(comp));
+assert_checkequal(ret64, int64(comp));
+assert_checkequal(retU8, uint8(comp));
+assert_checkequal(retU16, uint16(comp));
+assert_checkequal(retU32, uint32(comp));
+assert_checkequal(retU64, uint64(comp));
index 8e518eb..132310b 100644 (file)
@@ -4,7 +4,6 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // ============================================================================
-
 // <-- CLI SHELL MODE -->
 // ============================================================================
 // Unitary tests for mxCreateNumericMatrix mex function
@@ -37,7 +36,7 @@ exec("loader.sce");
 [n2, m2] = size(b);
 assert_checkequal([n1, m1], [2, 3]);
 assert_checkequal([n2, m2], [4, 5]);
-comp1 = zeros(2,3);                                                         
-comp2 = zeros(4,5);                                                         
-assert_checkequal(a, int8(comp1));                                      
+comp1 = zeros(2,3);
+comp2 = zeros(4,5);
+assert_checkequal(a, int8(comp1));
 assert_checkequal(b, int8(comp2));
index 483f0a9..f475a86 100644 (file)
@@ -4,7 +4,6 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // ============================================================================
-
 // <-- CLI SHELL MODE -->
 // ============================================================================
 // Unitary tests for mxCreateSparse mex function
index d0caa13..17a1ed6 100644 (file)
@@ -4,7 +4,6 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // ============================================================================
-
 // <-- CLI SHELL MODE -->
 // ============================================================================
 // Unitary tests for mxCreateSparseLogicalMatrix mex function
index 7ad0378..7da05b9 100644 (file)
@@ -4,7 +4,6 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // ============================================================================
-
 // <-- CLI SHELL MODE -->
 // ============================================================================
 // Unitary tests for mxCreateUninitNumericArray and mxCreateUninitNumericMatrix mex functions
index cd9a743..324126c 100644 (file)
@@ -4,7 +4,6 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // ============================================================================
-
 // <-- CLI SHELL MODE -->
 // ============================================================================
 // Unitary tests for mxGetIr mex function
index e4b3dcd..1688acb 100644 (file)
@@ -4,7 +4,6 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // ============================================================================
-
 // <-- CLI SHELL MODE -->
 // ============================================================================
 // Unitary tests for mxGetJc mex function
index b77da3b..49ef664 100644 (file)
@@ -4,7 +4,6 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // ============================================================================
-
 // <-- CLI SHELL MODE -->
 // ============================================================================
 // Unitary tests for mxGetNzmax mex function
index 0ebf4c2..ffbc630 100644 (file)
@@ -4,7 +4,6 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // ============================================================================
-
 // <-- CLI SHELL MODE -->
 // ============================================================================
 // Unitary tests for mxIsNumeric mex function
index 82e5bac..5f0f491 100644 (file)
@@ -4,12 +4,10 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // ============================================================================
-
 // <-- CLI SHELL MODE -->
 // ============================================================================
 // Unitary tests for mxIsScalar mex function
 // ============================================================================
-
 cd(TMPDIR);
 ilib_verbose(0);
 ieee(2);
@@ -22,7 +20,6 @@ mputl(["#include ""mex.h""";
 "}"],"mexisScalar.c");
 ilib_mex_build("libmextest",["isScalar","mexisScalar","cmex"], "mexisScalar.c",[]);
 exec("loader.sce");
-
 assert_checktrue(isScalar([1]));
 assert_checktrue(isScalar(1/0));
 assert_checktrue(isScalar(9));
index 283f384..44abd0a 100644 (file)
@@ -4,7 +4,6 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // ============================================================================
-
 // <-- CLI SHELL MODE -->
 // ============================================================================
 // Unitary tests for mxIsSparse mex function
index b7f3bc9..ed7ba7d 100644 (file)
@@ -4,7 +4,6 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // ============================================================================
-
 // <-- CLI SHELL MODE -->
 // ============================================================================
 // Unitary tests for mxMalloc mex function
@@ -35,6 +34,5 @@ ilib_mex_build("libmextest",["mxMalloc","mxMalloc","cmex"], "mxMalloc.c",[]);
 exec("loader.sce");
 [res1, res2] = mxMalloc();
 Buffer is Not NULL.
-
 assert_checkfalse(res1);
 assert_checktrue(res2);
index 457b1c3..a612ec5 100644 (file)
@@ -158,7 +158,7 @@ nm = neldermead_destroy(nm);
 // Check the display system
 nm = neldermead_new ();
 nm
-nm  = 
+ nm  = 
 Nelder-Mead Object:
 ======================
 Simplex0 Method : axes
index d921546..0656bee 100644 (file)
@@ -141,7 +141,7 @@ assert_checkequal ( typeof(str) , "string" )
  ans  =
   T
 nm
-nm  = 
+ nm  = 
 Nelder-Mead Object:
 ======================
 Simplex0 Method : axes
@@ -355,7 +355,7 @@ assert_checkequal ( typeof(str) , "string" )
  ans  =
   T
 nm
-nm  = 
+ nm  = 
 Nelder-Mead Object:
 ======================
 Simplex0 Method : axes
index d646828..83a7720 100644 (file)
@@ -132,44 +132,44 @@ nm = neldermead_search(nm, "off");
    0.575
    0.575
    0.575
-  -1.3
+  -1.3  
    0.575
    0.575
    0.575
-  -1.3
+  -1.3  
    0.4125
    0.4125
    0.4125
-  -0.65
+  -0.65  
    0.8121875
    0.8121875
   -1.0628125
-  -0.37375
+  -0.37375  
    0.8121875
    0.8121875
   -1.0628125
-  -0.37375
+  -0.37375  
    0.5826562
    0.5826562
   -0.4798437
-  -0.268125
+  -0.268125 
    1.1472148
   -0.7277852
   -0.0387227
   -0.5279219
-   0.823002
-  -0.239498
+   0.823002 
+  -0.239498 
   -0.0277793
   -0.3787266
-   0.823002
-  -0.239498
+   0.823002 
+  -0.239498 
   -0.0277793
   -0.3787266
-  -0.254559
+  -0.254559 
    0.4345035
   -0.0546958
   -0.7456896
-  -0.254559
+  -0.254559 
    0.4345035
   -0.0546958
   -0.7456896
@@ -186,11 +186,11 @@ nm = neldermead_search(nm, "off");
    0.4480337
   -0.5576654
   -0.1944957
-  -0.497797
+  -0.497797 
   -0.3260538
   -0.1221969
   -0.1944957
-  -0.497797
+  -0.497797 
   -0.3260538
   -0.1221969
   -1.3132094
@@ -213,15 +213,15 @@ nm = neldermead_search(nm, "off");
   -0.8806538
    0.1675844
    0.3819016
-  -0.196745
-  -0.508979
+  -0.196745 
+  -0.508979 
    0.1047661
    0.0632345
-   0.712283
+   0.712283 
   -0.7522959
    0.0708243
    0.0898673
-   0.712283
+   0.712283 
   -0.7522959
    0.0708243
    0.0898673
index 064805b..c2e5c97 100644 (file)
@@ -133,7 +133,7 @@ string(s1)
 !                       !
 !fv: 5-by-1 matrix      !
 s1
-s1  = 
+ s1  = 
 Optim Simplex Object:
 =====================
 nbve: 5
@@ -151,7 +151,7 @@ coords = [
 ];
 s1 = optimsimplex_new ( coords );
 s1
-s1  = 
+ s1  = 
 Optim Simplex Object:
 =====================
 nbve: 5
index 95ef834..13fd27d 100644 (file)
@@ -42,11 +42,11 @@ exp(%i*%pi*X)
   -1. + 3.674D-16i   1. - 4.899D-16i
 exp(%i*%pi*X/2)
  ans  =
-   i                -1. + 1.225D-16i
+   0.        + i    -1. + 1.225D-16i
   -1.837D-16 - i     1. - 2.449D-16i
 exp(%i*%pi*X/4)
  ans  =
-   0.7071068 + 0.7071068i   i              
+   0.7071068 + 0.7071068i   0. + i         
   -0.7071068 + 0.7071068i  -1. + 1.225D-16i
 X=[1 20;300 4000]
  X  = 
index bcb734c..41e2b71 100644 (file)
 // %inf had not always same display
 A = %inf;
 A
-A  = 
-    Inf
+ A  = 
+   Inf
 format('e', 8);
 A
-A  = 
-    Inf
+ A  = 
+   Inf
 format('e', 16);
 A
-A  = 
-    Inf
+ A  = 
+   Inf
index 4749bba..921b718 100644 (file)
@@ -32,7 +32,7 @@ assert_checkequal(string(A),["-1+%i*Inf","1+%i*Nan","Inf+%i*Nan","Nan+%i*Nan";"1
 //Check display
 complex(0,%inf)
  ans  =
-   Infi 
+   0. + Infi
 complex(1,%inf)
  ans  =
    1. + Infi
@@ -54,7 +54,7 @@ complex(%nan,%nan)
 A
  A  = 
   -1. + Infi   1. + Nani   Inf + Nani   Nan + Nani
-   1.          2.          3.           4.        
+   1. + 0.i    2. + 0.i    3.  + 0.i    4.  + 0.i 
 As
  As  = 
 (  2,  4) sparse matrix
@@ -62,18 +62,13 @@ As
 (  1,  2)        1. + Nani
 (  1,  3)        Inf + Nani
 (  1,  4)        Nan + Nani
-(  2,  1)        1.
-(  2,  2)        2.
-(  2,  3)        3.
-(  2,  4)        4.
+(  2,  1)        1. + 0.i
+(  2,  2)        2. + 0.i
+(  2,  3)        3. + 0.i
+(  2,  4)        4. + 0.i
 P
  P  = 
-Real part
-             2      3
-  -1 +s +Infs  +Nans 
-Imaginary part
-                  2      3
-   Inf +Nans +Nans  +Nans 
+  -1+Infi +(1+Nani)s +(Inf+Nani)s² -(Nan+Nani)s³
 format("e")
 // Check string
 assert_checkequal(string(complex(0,%inf)),"%i*Inf");
@@ -88,7 +83,7 @@ assert_checkequal(string(A),["-1.000D+00+%i*Inf","1.000D+00+%i*Nan","Inf+%i*Nan"
 //Check display
 complex(0,%inf)
  ans  =
-   Infi        
+   0.000D+00 + Infi
 complex(1,%inf)
  ans  =
    1.000D+00 + Infi
@@ -109,8 +104,12 @@ complex(%nan,%nan)
    Nan + Nani
 A
  A  = 
-  -1.000D+00 + Infi   1.000D+00 + Nani   Inf + Nani   Nan + Nani
-   1.000D+00          2.000D+00          3.000D+00    4.000D+00 
+         column 1 to 2
+  -1.000D+00 + Infi         1.000D+00 + Nani      
+   1.000D+00 + 0.000D+00i   2.000D+00 + 0.000D+00i
+         column 3 to 4
+   Inf       + Nani         Nan       + Nani      
+   3.000D+00 + 0.000D+00i   4.000D+00 + 0.000D+00i
 As
  As  = 
 (  2,  4) sparse matrix
@@ -118,15 +117,10 @@ As
 (  1,  2)        1.000D+00 + Nani
 (  1,  3)        Inf + Nani
 (  1,  4)        Nan + Nani
-(  2,  1)        1.000D+00
-(  2,  2)        2.000D+00
-(  2,  3)        3.000D+00
-(  2,  4)        4.000D+00
+(  2,  1)        1.000D+00 + 0.000D+00i
+(  2,  2)        2.000D+00 + 0.000D+00i
+(  2,  3)        3.000D+00 + 0.000D+00i
+(  2,  4)        4.000D+00 + 0.000D+00i
 P
  P  = 
-Real part
-                              2      3
-  -1.000D+00 +1.000D+00s +Infs  +Nans 
-Imaginary part
-                  2      3
-   Inf +Nans +Nans  +Nans 
+  -1D+00+Infi +(1D+00+Nani)s +(Inf+Nani)s² -(Nan+Nani)s³
index 599f129..ccb02a8 100644 (file)
@@ -19,19 +19,19 @@ q=[]
  ans  =
          column 1 to 13
    1.   2.   3.   4.   5.   6.   7.   8.   9.   10.   11.   12.   13.
-         column 14 to 24
-   14.   15.   16.   17.   18.   19.   20.   21.   22.   23.   24.
-         column 25 to 35
-   25.   26.   27.   28.   29.   30.   31.   32.   33.   34.   35.
-         column 36 to 46
-   36.   37.   38.   39.   40.   41.   42.   43.   44.   45.   46.
-         column 47 to 57
-   47.   48.   49.   50.   51.   52.   53.   54.   55.   56.   57.
-         column 58 to 68
-   58.   59.   60.   61.   62.   63.   64.   65.   66.   67.   68.
-         column 69 to 79
-   69.   70.   71.   72.   73.   74.   75.   76.   77.   78.   79.
-         column 80 to 90
-   80.   81.   82.   83.   84.   85.   86.   87.   88.   89.   90.
-         column 91 to 100
-   91.   92.   93.   94.   95.   96.   97.   98.   99.   100.
+         column 14 to 25
+   14.   15.   16.   17.   18.   19.   20.   21.   22.   23.   24.   25.
+         column 26 to 37
+   26.   27.   28.   29.   30.   31.   32.   33.   34.   35.   36.   37.
+         column 38 to 49
+   38.   39.   40.   41.   42.   43.   44.   45.   46.   47.   48.   49.
+         column 50 to 61
+   50.   51.   52.   53.   54.   55.   56.   57.   58.   59.   60.   61.
+         column 62 to 73
+   62.   63.   64.   65.   66.   67.   68.   69.   70.   71.   72.   73.
+         column 74 to 85
+   74.   75.   76.   77.   78.   79.   80.   81.   82.   83.   84.   85.
+         column 86 to 97
+   86.   87.   88.   89.   90.   91.   92.   93.   94.   95.   96.   97.
+         column 98 to 100
+   98.   99.   100.
index 058ef62..86a53f6 100644 (file)
@@ -15,8 +15,8 @@ disp("disp test :","høyesterettsjustitiarius");
  høyesterettsjustitiarius
 deff('[]=%t_p(l)','disp(l(2),l(3))');
 disp(tlist('t',1,2));
-    1.
-    2.
+   1.
+   2.
 text=[ "中文測試"; "азеазеясдвклгхклмвцмзер"; ..
  "ድቅስድቅስግጅክልውሽችክልዝ"; ..
 "すべての人間は、生まれながらにして自由であり、かつ、尊厳と権利と について平等である。人間は、理性と良心とを授けられており、互いに同 胞の精神をもって行動しなければならない。"; ..
index 089eb47..c6c4a36 100644 (file)
@@ -17,8 +17,8 @@ a.toto = zeros(1,100000);
 a.titi = zeros(1,100000);
 tic();
 a
-a  = 
-  toto: [1x100000 constant]
-  titi: [1x100000 constant]
+ a  = 
+   toto: [1x100000 constant]
+   titi: [1x100000 constant]
 timeSpent=toc();
 assert_checktrue(timeSpent<1);
index 8d2d496..cb83602 100644 (file)
@@ -39,13 +39,13 @@ q1 = new([91,93])
        q1(1)
 !X  x  !
        q1(2)
-    91.    93.
+   91.   93.
 q2 = new([10,20,30,40])
  q2  = 
        q2(1)
 !X  x  !
        q2(2)
-    10.    20.    30.    40.
+   10.   20.   30.   40.
 q2([1,3]) = q1;
 q2_ref = new([91 20 93 40]);
 assert_checkequal(q2,q2_ref);
index 22d8106..d550071 100644 (file)
@@ -66,7 +66,7 @@ end
 M = mlist("unknown");
 if typeof(M) <> "unknown" then bugmes();quit;end
 M
-M  = 
+ M  = 
  Calling %unknown_p...
 M(1)
  Calling %unknown_e...
index 082cda8..edb0e13 100644 (file)
@@ -4,9 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
-
 // <-- CLI SHELL MODE -->
-
 // <-- Non-regression test for bug 8493 -->
 //
 // <-- Bugzilla URL -->
 // <-- Short Description -->
 // Dividing p1./p2 with p1 or/and p2 complex-encoded polynomials with null
 // real or imaginary parts for both p1 and p2 prevented some simplifications
-
 z = %z;
 // With scalar polynomials
 assert_checkequal(((1+0*%i)*z^2+z^3+z^4) ./ z^2, rlist(1+z+z^2, 1));
 assert_checkequal(((1+0*%i)*z^2+z^3+z^4) / z^2, rlist(1+z+z^2, 1));
 assert_checkequal((%i*z^2+%i*z^3+%i*z^4) ./ (%i*z^2), rlist(1+z+z^2, 1));
 assert_checkequal((%i*z^2+%i*z^3+%i*z^4) / (%i*z^2), rlist(1+z+z^2, 1));
-
 // With matrices of polynomials
 p1 = ((1+0*%i)*z^2+z^3+z^4); p1 = [p1 p1];
 r = rlist(1+z+z^2, 1); r = [r r];
index d0d5f74..5d5233c 100644 (file)
@@ -5,7 +5,7 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 // <-- CLI SHELL MODE -->
-// unit tests for detr function 
+// unit tests for detr function
 // =============================================================================
 assert_checkfalse(execstr("detr()"   ,"errcatch") == 0);
 refMsg = msprintf(_("%s: Wrong number of input argument: %d expected.\n"), "detr", 1);
index 90f6aef..6f37d08 100644 (file)
 // =============================================================================
 n = 200;
 P = [0.1 0.3 0.2 0.01 0.09 0.3 ; ...
-     0.2 0.1 0.1 0.5  0.05 0.05; ...
-     0   0   0.2 0.3  0.4  0.1 ; ...
-     0.4 0   0.1 0.05 0.05 0.4 ; ...
-     0.1 0.1 0.1 0.3  0.2  0.2 ; ...
-     0.2 0.2 0.1 0.1  0.2  0.2];
+0.2 0.1 0.1 0.5  0.05 0.05; ...
+0   0   0.2 0.3  0.4  0.1 ; ...
+0.4 0   0.1 0.05 0.05 0.4 ; ...
+0.1 0.1 0.1 0.3  0.2  0.2 ; ...
+0.2 0.2 0.1 0.1  0.2  0.2];
 x0 = [1:3];
 a=grand(n, "markov", P, x0);
 assert_checkequal(size(a), [3 200]);
index 847146a..31c444a 100644 (file)
@@ -497,72 +497,13 @@ Xcos trace:   propertyUpdated( 20 , LINK , SOURCE_PORT ) : NO_CHANGES
 Xcos trace:   propertyUpdated( 20 , LINK , DESTINATION_PORT ) : NO_CHANGES
 Xcos debug:   propertyUpdated( 19 , PORT , CONNECTED_SIGNALS ) : SUCCESS
 Xcos debug:   propertyUpdated( 18 , PORT , CONNECTED_SIGNALS ) : SUCCESS
-<<<<<<< HEAD
-Xcos debug:   propertyUpdated( 17 , PORT , CONNECTED_SIGNALS ) : SUCCESS
-Xcos debug:   propertyUpdated( 15 , BLOCK , CHILDREN ) : SUCCESS
-Xcos trace:   objectReferenced( 15 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 15 , BLOCK ) : 2
-Xcos debug:   propertyUpdated( 15 , BLOCK , PARENT_DIAGRAM ) : SUCCESS
-Xcos trace:   propertyUpdated( 15 , BLOCK , PARENT_BLOCK ) : NO_CHANGES
-Xcos trace:   objectUnreferenced( 15 , BLOCK ) : 1
-Xcos debug:   propertyUpdated( 14 , DIAGRAM , CHILDREN ) : SUCCESS
-Xcos trace:   objectUnreferenced( 15 , BLOCK ) : 0
-scs_m.objs(1).model.rpar // Checking 'sb' elements
-Xcos trace:   objectReferenced( 15 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 15 , BLOCK ) : 2
-Xcos trace:   objectReferenced( 15 , BLOCK ) : 3
-Xcos trace:   objectUnreferenced( 15 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 15 , BLOCK ) : 1
- ans  =
-Xcos trace:   objectReferenced( 15 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 15 , BLOCK ) : 1
-wpar = [600,450,0,0,600,450]
-title = ["";""]
-tol = [0.000001,0.000001,1.000D-10,100001,0,1,0]
-tf = 30
-context = []
-void1 = []
-options = tlist(["scsopt","3D","Background","Link","ID","Cmap"],list(%t,33),[8,1],[1,5],list([4,1,10,1],[4,1,2,1]),[0.8,0.8,0.8])
-void2 = []
-void3 = []
-doc = list()
-Xcos trace:   objectReferenced( 16 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 19 , LINK ) : 1
-1     
-Xcos trace:   objectUnreferenced( 16 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 19 , LINK ) : 0
-scs_m.objs(1).model.rpar.objs // "
-Xcos trace:   objectReferenced( 15 , BLOCK ) : 2
-Xcos trace:   objectReferenced( 15 , BLOCK ) : 3
-Xcos trace:   objectReferenced( 15 , BLOCK ) : 4
-Xcos trace:   objectUnreferenced( 15 , BLOCK ) : 3
-Xcos trace:   objectUnreferenced( 15 , BLOCK ) : 2
-=======
 Xcos debug:   propertyUpdated( 16 , BLOCK , CHILDREN ) : SUCCESS
->>>>>>> origin/6.0
 Xcos trace:   objectReferenced( 16 , BLOCK ) : 1
 Xcos debug:   propertyUpdated( 16 , BLOCK , PARENT_DIAGRAM ) : SUCCESS
 Xcos trace:   propertyUpdated( 16 , BLOCK , PARENT_BLOCK ) : NO_CHANGES
 Xcos debug:   propertyUpdated( 15 , DIAGRAM , CHILDREN ) : SUCCESS
 Xcos trace:   objectUnreferenced( 16 , BLOCK ) : 0
-<<<<<<< HEAD
-Xcos trace:   objectUnreferenced( 19 , LINK ) : 0
- ans  =
-Xcos trace:   objectReferenced( 15 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 15 , BLOCK ) : 1
-wpar = [600,450,0,0,600,450]
-title = ["";""]
-tol = [0.000001,0.000001,1.000D-10,100001,0,1,0]
-tf = 30
-context = []
-void1 = []
-options = tlist(["scsopt","3D","Background","Link","ID","Cmap"],list(%t,33),[8,1],[1,5],list([4,1,10,1],[4,1,2,1]),[0.8,0.8,0.8])
-void2 = []
-void3 = []
-doc = list()
-=======
 assert_checkequal(scs_m.objs(1).model.rpar.objs(1).graphics.pout, 2);
->>>>>>> origin/6.0
 Xcos trace:   objectReferenced( 16 , BLOCK ) : 1
 Xcos trace:   objectReferenced( 16 , BLOCK ) : 2
 Xcos trace:   objectReferenced( 16 , BLOCK ) : 3
@@ -1597,769 +1538,6 @@ Xcos trace:   objectUnreferenced( 51 , BLOCK ) : 0
 Xcos trace:   objectUnreferenced( 52 , BLOCK ) : 0
 Xcos trace:   objectUnreferenced( 56 , BLOCK ) : 0
 Xcos trace:   objectUnreferenced( 60 , LINK ) : 0
-<<<<<<< HEAD
-Xcos trace:   objectUnreferenced( 43 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 47 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 51 , LINK ) : 0
-Xcos trace:   objectReferenced( 21 , DIAGRAM ) : 1
-Xcos trace:   objectUnreferenced( 21 , DIAGRAM ) : 0
-Xcos trace:   objectReferenced( 20 , BLOCK ) : 3
-Xcos debug:   propertyUpdated( 20 , BLOCK , DESCRIPTION ) : SUCCESS
-Xcos trace:   propertyUpdated( 20 , BLOCK , CONTEXT ) : NO_CHANGES
-Xcos trace:   objectUnreferenced( 20 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 20 , BLOCK ) : 1
-Xcos trace:   propertyUpdated( 20 , BLOCK , IPAR ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 20 , BLOCK , OPAR ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 20 , BLOCK , SIM_BLOCKTYPE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 20 , BLOCK , SIM_DEP_UT ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 20 , BLOCK , DESCRIPTION ) : SUCCESS
-Xcos trace:   propertyUpdated( 20 , BLOCK , NZCROSS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 20 , BLOCK , NMODE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 20 , BLOCK , EQUATIONS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 20 , BLOCK , UID ) : NO_CHANGES
-Xcos trace:   objectUnreferenced( 20 , BLOCK ) : 0
-// Main diagram
-scs_m = scicos_diagram();
-Xcos info:    objectCreated( 61 , DIAGRAM )
-Xcos trace:   objectReferenced( 61 , DIAGRAM ) : 1
-Xcos trace:   propertyUpdated( 61 , DIAGRAM , TITLE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 61 , DIAGRAM , PATH ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 61 , DIAGRAM , PROPERTIES ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 61 , DIAGRAM , PROPERTIES ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 61 , DIAGRAM , CONTEXT ) : NO_CHANGES
-Xcos trace:   objectUnreferenced( 61 , DIAGRAM ) : 0
-Xcos trace:   propertyUpdated( 61 , DIAGRAM , CHILDREN ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 61 , DIAGRAM , VERSION_NUMBER ) : SUCCESS
-scs_m.objs(1) = sb;
-Xcos info:    objectCreated( 62 , BLOCK )
-Xcos info:    objectCloned( 20 , 62 , BLOCK )
-Xcos trace:   propertyUpdated( 62 , BLOCK , SIM_FUNCTION_API ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 62 , BLOCK , DESCRIPTION ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 62 , BLOCK , INTERFACE_FUNCTION ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 62 , BLOCK , SIM_FUNCTION_NAME ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 62 , BLOCK , SIM_BLOCKTYPE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 62 , BLOCK , UID ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 62 , BLOCK , STYLE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 62 , BLOCK , GEOMETRY ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 62 , BLOCK , EXPRS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 62 , BLOCK , STATE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 62 , BLOCK , DSTATE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 62 , BLOCK , ODSTATE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 62 , BLOCK , RPAR ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 62 , BLOCK , OPAR ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 62 , BLOCK , EQUATIONS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 62 , BLOCK , SIM_DEP_UT ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 62 , BLOCK , NZCROSS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 62 , BLOCK , NMODE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 62 , BLOCK , IPAR ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 62 , BLOCK , COLOR ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 62 , BLOCK , CONTEXT ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 62 , BLOCK , PARENT_DIAGRAM ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 62 , BLOCK , INPUTS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 62 , BLOCK , OUTPUTS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 62 , BLOCK , EVENT_INPUTS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 62 , BLOCK , EVENT_OUTPUTS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 62 , BLOCK , PARENT_BLOCK ) : NO_CHANGES
-Xcos info:    objectCreated( 63 , BLOCK )
-Xcos info:    objectCloned( 52 , 63 , BLOCK )
-Xcos debug:   propertyUpdated( 63 , BLOCK , SIM_FUNCTION_API ) : SUCCESS
-Xcos trace:   propertyUpdated( 63 , BLOCK , DESCRIPTION ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 63 , BLOCK , INTERFACE_FUNCTION ) : SUCCESS
-Xcos debug:   propertyUpdated( 63 , BLOCK , SIM_FUNCTION_NAME ) : SUCCESS
-Xcos trace:   propertyUpdated( 63 , BLOCK , SIM_BLOCKTYPE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 63 , BLOCK , UID ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 63 , BLOCK , STYLE ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 63 , BLOCK , GEOMETRY ) : SUCCESS
-Xcos debug:   propertyUpdated( 63 , BLOCK , EXPRS ) : SUCCESS
-Xcos trace:   propertyUpdated( 63 , BLOCK , STATE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 63 , BLOCK , DSTATE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 63 , BLOCK , ODSTATE ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 63 , BLOCK , RPAR ) : SUCCESS
-Xcos trace:   propertyUpdated( 63 , BLOCK , OPAR ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 63 , BLOCK , EQUATIONS ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 63 , BLOCK , SIM_DEP_UT ) : SUCCESS
-Xcos trace:   propertyUpdated( 63 , BLOCK , NZCROSS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 63 , BLOCK , NMODE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 63 , BLOCK , IPAR ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 63 , BLOCK , COLOR ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 63 , BLOCK , CONTEXT ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 63 , BLOCK , PARENT_DIAGRAM ) : NO_CHANGES
-Xcos info:    objectCreated( 64 , PORT )
-Xcos info:    objectCloned( 53 , 64 , PORT )
-Xcos trace:   propertyUpdated( 64 , PORT , FIRING ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 64 , PORT , PORT_KIND ) : SUCCESS
-Xcos trace:   propertyUpdated( 64 , PORT , IMPLICIT ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 64 , PORT , UID ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 64 , PORT , STYLE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 64 , PORT , LABEL ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 64 , PORT , DATATYPE ) : SUCCESS
-Xcos debug:   propertyUpdated( 64 , PORT , SOURCE_BLOCK ) : SUCCESS
-Xcos trace:   propertyUpdated( 64 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos info:    objectCreated( 65 , PORT )
-Xcos info:    objectCloned( 54 , 65 , PORT )
-Xcos trace:   propertyUpdated( 65 , PORT , FIRING ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 65 , PORT , PORT_KIND ) : SUCCESS
-Xcos trace:   propertyUpdated( 65 , PORT , IMPLICIT ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 65 , PORT , UID ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 65 , PORT , STYLE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 65 , PORT , LABEL ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 65 , PORT , DATATYPE ) : SUCCESS
-Xcos debug:   propertyUpdated( 65 , PORT , SOURCE_BLOCK ) : SUCCESS
-Xcos trace:   propertyUpdated( 65 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 63 , BLOCK , INPUTS ) : SUCCESS
-Xcos info:    objectCreated( 66 , PORT )
-Xcos info:    objectCloned( 55 , 66 , PORT )
-Xcos trace:   propertyUpdated( 66 , PORT , FIRING ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 66 , PORT , PORT_KIND ) : SUCCESS
-Xcos trace:   propertyUpdated( 66 , PORT , IMPLICIT ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 66 , PORT , UID ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 66 , PORT , STYLE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 66 , PORT , LABEL ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 66 , PORT , DATATYPE ) : SUCCESS
-Xcos debug:   propertyUpdated( 66 , PORT , SOURCE_BLOCK ) : SUCCESS
-Xcos trace:   propertyUpdated( 66 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 63 , BLOCK , OUTPUTS ) : SUCCESS
-Xcos trace:   propertyUpdated( 63 , BLOCK , EVENT_INPUTS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 63 , BLOCK , EVENT_OUTPUTS ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 63 , BLOCK , PARENT_BLOCK ) : SUCCESS
-Xcos trace:   propertyUpdated( 66 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 64 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 65 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 63 , BLOCK , CHILDREN ) : NO_CHANGES
-Xcos info:    objectCreated( 67 , BLOCK )
-Xcos info:    objectCloned( 56 , 67 , BLOCK )
-Xcos debug:   propertyUpdated( 67 , BLOCK , SIM_FUNCTION_API ) : SUCCESS
-Xcos trace:   propertyUpdated( 67 , BLOCK , DESCRIPTION ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 67 , BLOCK , INTERFACE_FUNCTION ) : SUCCESS
-Xcos debug:   propertyUpdated( 67 , BLOCK , SIM_FUNCTION_NAME ) : SUCCESS
-Xcos trace:   propertyUpdated( 67 , BLOCK , SIM_BLOCKTYPE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 67 , BLOCK , UID ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 67 , BLOCK , STYLE ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 67 , BLOCK , GEOMETRY ) : SUCCESS
-Xcos debug:   propertyUpdated( 67 , BLOCK , EXPRS ) : SUCCESS
-Xcos trace:   propertyUpdated( 67 , BLOCK , STATE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 67 , BLOCK , DSTATE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 67 , BLOCK , ODSTATE ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 67 , BLOCK , RPAR ) : SUCCESS
-Xcos trace:   propertyUpdated( 67 , BLOCK , OPAR ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 67 , BLOCK , EQUATIONS ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 67 , BLOCK , SIM_DEP_UT ) : SUCCESS
-Xcos trace:   propertyUpdated( 67 , BLOCK , NZCROSS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 67 , BLOCK , NMODE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 67 , BLOCK , IPAR ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 67 , BLOCK , COLOR ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 67 , BLOCK , CONTEXT ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 67 , BLOCK , PARENT_DIAGRAM ) : NO_CHANGES
-Xcos info:    objectCreated( 68 , PORT )
-Xcos info:    objectCloned( 57 , 68 , PORT )
-Xcos trace:   propertyUpdated( 68 , PORT , FIRING ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 68 , PORT , PORT_KIND ) : SUCCESS
-Xcos trace:   propertyUpdated( 68 , PORT , IMPLICIT ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 68 , PORT , UID ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 68 , PORT , STYLE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 68 , PORT , LABEL ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 68 , PORT , DATATYPE ) : SUCCESS
-Xcos debug:   propertyUpdated( 68 , PORT , SOURCE_BLOCK ) : SUCCESS
-Xcos trace:   propertyUpdated( 68 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos info:    objectCreated( 69 , PORT )
-Xcos info:    objectCloned( 58 , 69 , PORT )
-Xcos trace:   propertyUpdated( 69 , PORT , FIRING ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 69 , PORT , PORT_KIND ) : SUCCESS
-Xcos trace:   propertyUpdated( 69 , PORT , IMPLICIT ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 69 , PORT , UID ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 69 , PORT , STYLE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 69 , PORT , LABEL ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 69 , PORT , DATATYPE ) : SUCCESS
-Xcos debug:   propertyUpdated( 69 , PORT , SOURCE_BLOCK ) : SUCCESS
-Xcos trace:   propertyUpdated( 69 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 67 , BLOCK , INPUTS ) : SUCCESS
-Xcos info:    objectCreated( 70 , PORT )
-Xcos info:    objectCloned( 59 , 70 , PORT )
-Xcos trace:   propertyUpdated( 70 , PORT , FIRING ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 70 , PORT , PORT_KIND ) : SUCCESS
-Xcos trace:   propertyUpdated( 70 , PORT , IMPLICIT ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 70 , PORT , UID ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 70 , PORT , STYLE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 70 , PORT , LABEL ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 70 , PORT , DATATYPE ) : SUCCESS
-Xcos debug:   propertyUpdated( 70 , PORT , SOURCE_BLOCK ) : SUCCESS
-Xcos trace:   propertyUpdated( 70 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 67 , BLOCK , OUTPUTS ) : SUCCESS
-Xcos trace:   propertyUpdated( 67 , BLOCK , EVENT_INPUTS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 67 , BLOCK , EVENT_OUTPUTS ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 67 , BLOCK , PARENT_BLOCK ) : SUCCESS
-Xcos trace:   propertyUpdated( 70 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 65 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 68 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 69 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 64 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 66 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 67 , BLOCK , CHILDREN ) : NO_CHANGES
-Xcos info:    objectCreated( 71 , LINK )
-Xcos info:    objectCloned( 60 , 71 , LINK )
-Xcos trace:   propertyUpdated( 71 , LINK , COLOR ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 71 , LINK , KIND ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 71 , LINK , DESCRIPTION ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 71 , LINK , UID ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 71 , LINK , STYLE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 71 , LINK , CONTROL_POINTS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 71 , LINK , THICK ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 71 , LINK , PARENT_DIAGRAM ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 71 , LINK , PARENT_BLOCK ) : SUCCESS
-Xcos debug:   propertyUpdated( 71 , LINK , SOURCE_PORT ) : SUCCESS
-Xcos debug:   propertyUpdated( 71 , LINK , DESTINATION_PORT ) : SUCCESS
-Xcos trace:   propertyUpdated( 70 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 65 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 68 , PORT , CONNECTED_SIGNALS ) : SUCCESS
-Xcos trace:   propertyUpdated( 71 , LINK , SOURCE_PORT ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 71 , LINK , DESTINATION_PORT ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 69 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 64 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 66 , PORT , CONNECTED_SIGNALS ) : SUCCESS
-Xcos debug:   propertyUpdated( 62 , BLOCK , CHILDREN ) : SUCCESS
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 2
-Xcos debug:   propertyUpdated( 62 , BLOCK , PARENT_DIAGRAM ) : SUCCESS
-Xcos trace:   propertyUpdated( 62 , BLOCK , PARENT_BLOCK ) : NO_CHANGES
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 1
-Xcos debug:   propertyUpdated( 61 , DIAGRAM , CHILDREN ) : SUCCESS
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 0
-scs_m.objs(1).model.rpar // Checking 'sb' elements
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 3
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 1
- ans  =
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 1
-wpar = [600,450,0,0,600,450]
-title = ["";""]
-tol = [0.000001,0.000001,1.000D-10,100001,0,1,0]
-tf = 30
-context = []
-void1 = []
-options = tlist(["scsopt","3D","Background","Link","ID","Cmap"],list(%t,33),[8,1],[1,5],list([4,1,10,1],[4,1,2,1]),[0.8,0.8,0.8])
-void2 = []
-void3 = []
-doc = list()
-Xcos trace:   objectReferenced( 63 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 67 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 71 , LINK ) : 1
-1     BIGSOM_f
-2     BIGSOM_f
-Xcos trace:   objectUnreferenced( 63 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 67 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 71 , LINK ) : 0
-scs_m.objs(1).model.rpar.objs // "
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 3
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 4
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 3
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectReferenced( 63 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 67 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 71 , LINK ) : 1
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 1
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 0
- ans  =
-       ans(1)
-GUI     : BIGSOM_f
-Graphics: 
-Xcos trace:   objectReferenced( 63 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 63 , BLOCK ) : 1
-          orig = [0,0]
-          sz = [2,3]
-          exprs = "[1;1]"
-          pin = [0;0]
-          pout = 3
-          pein = []
-          peout = []
-          gr_i = []
-          id = ""
-          in_implicit = ["E";"E"]
-          out_implicit = "E"
-          in_style = ["";""]
-          out_style = ""
-          in_label = ["";""]
-          out_label = ""
-          style = ""
-Model   : 
-Xcos trace:   objectReferenced( 63 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 63 , BLOCK ) : 1
-          sum type: 2
-          in = [-1;-1]
-          in2 = [1;1]
-          intyp = [1;1]
-          out = -1
-          out2 = 1
-          outtyp = 1
-          evtin = []
-          evtout = []
-          state = []
-          dstate = []
-          odstate = list()
-          rpar = [1;1]
-          ipar = []
-          opar = list()
-          blocktype = "c"
-          firing = []
-          dep_ut = [%t,%f]
-          label = ""
-          nzcross = 0
-          nmode = 0
-          equations = list()
-          uid = ""
-       ans(2)
-GUI     : BIGSOM_f
-Graphics: 
-Xcos trace:   objectReferenced( 67 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 67 , BLOCK ) : 1
-          orig = [0,0]
-          sz = [2,3]
-          exprs = "[1;1]"
-          pin = [3;0]
-          pout = 0
-          pein = []
-          peout = []
-          gr_i = []
-          id = ""
-          in_implicit = ["E";"E"]
-          out_implicit = "E"
-          in_style = ["";""]
-          out_style = ""
-          in_label = ["";""]
-          out_label = ""
-          style = ""
-Model   : 
-Xcos trace:   objectReferenced( 67 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 67 , BLOCK ) : 1
-          sum type: 2
-          in = [-1;-1]
-          in2 = [1;1]
-          intyp = [1;1]
-          out = -1
-          out2 = 1
-          outtyp = 1
-          evtin = []
-          evtout = []
-          state = []
-          dstate = []
-          odstate = list()
-          rpar = [1;1]
-          ipar = []
-          opar = list()
-          blocktype = "c"
-          firing = []
-          dep_ut = [%t,%f]
-          label = ""
-          nzcross = 0
-          nmode = 0
-          equations = list()
-          uid = ""
-       ans(3)
-Link    :
-          xx: []
-          yy: []
-          id: 
-          thick: 0 0
-          ct: 1 1
-          from: 1 1 0
-          to: 2 1 1
-l = list(1); l(1) = scs_m; // Cloning 'scs_m'
-Xcos info:    objectDeleted( 30 , LINK )
-l(1).objs(1).model.rpar
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 3
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 1
-Xcos trace:   objectUnreferenced( 63 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 67 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 71 , LINK ) : 0
- ans  =
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 1
-wpar = [600,450,0,0,600,450]
-title = ["";""]
-tol = [0.000001,0.000001,1.000D-10,100001,0,1,0]
-tf = 30
-context = []
-void1 = []
-options = tlist(["scsopt","3D","Background","Link","ID","Cmap"],list(%t,33),[8,1],[1,5],list([4,1,10,1],[4,1,2,1]),[0.8,0.8,0.8])
-void2 = []
-void3 = []
-doc = list()
-Xcos trace:   objectReferenced( 63 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 67 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 71 , LINK ) : 1
-1     BIGSOM_f
-2     BIGSOM_f
-Xcos trace:   objectUnreferenced( 63 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 67 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 71 , LINK ) : 0
-l(1).objs(1).model.rpar.objs
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 3
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 4
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 3
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectReferenced( 63 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 67 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 71 , LINK ) : 1
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 1
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 0
- ans  =
-       ans(1)
-GUI     : BIGSOM_f
-Graphics: 
-Xcos trace:   objectReferenced( 63 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 63 , BLOCK ) : 1
-          orig = [0,0]
-          sz = [2,3]
-          exprs = "[1;1]"
-          pin = [0;0]
-          pout = 3
-          pein = []
-          peout = []
-          gr_i = []
-          id = ""
-          in_implicit = ["E";"E"]
-          out_implicit = "E"
-          in_style = ["";""]
-          out_style = ""
-          in_label = ["";""]
-          out_label = ""
-          style = ""
-Model   : 
-Xcos trace:   objectReferenced( 63 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 63 , BLOCK ) : 1
-          sum type: 2
-          in = [-1;-1]
-          in2 = [1;1]
-          intyp = [1;1]
-          out = -1
-          out2 = 1
-          outtyp = 1
-          evtin = []
-          evtout = []
-          state = []
-          dstate = []
-          odstate = list()
-          rpar = [1;1]
-          ipar = []
-          opar = list()
-          blocktype = "c"
-          firing = []
-          dep_ut = [%t,%f]
-          label = ""
-          nzcross = 0
-          nmode = 0
-          equations = list()
-          uid = ""
-       ans(2)
-GUI     : BIGSOM_f
-Graphics: 
-Xcos trace:   objectReferenced( 67 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 67 , BLOCK ) : 1
-          orig = [0,0]
-          sz = [2,3]
-          exprs = "[1;1]"
-          pin = [3;0]
-          pout = 0
-          pein = []
-          peout = []
-          gr_i = []
-          id = ""
-          in_implicit = ["E";"E"]
-          out_implicit = "E"
-          in_style = ["";""]
-          out_style = ""
-          in_label = ["";""]
-          out_label = ""
-          style = ""
-Model   : 
-Xcos trace:   objectReferenced( 67 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 67 , BLOCK ) : 1
-          sum type: 2
-          in = [-1;-1]
-          in2 = [1;1]
-          intyp = [1;1]
-          out = -1
-          out2 = 1
-          outtyp = 1
-          evtin = []
-          evtout = []
-          state = []
-          dstate = []
-          odstate = list()
-          rpar = [1;1]
-          ipar = []
-          opar = list()
-          blocktype = "c"
-          firing = []
-          dep_ut = [%t,%f]
-          label = ""
-          nzcross = 0
-          nmode = 0
-          equations = list()
-          uid = ""
-       ans(3)
-Link    :
-          xx: []
-          yy: []
-          id: 
-          thick: 0 0
-          ct: 1 1
-          from: 1 1 0
-          to: 2 1 1
-assert_checkequal(size(l(1).objs(1).model.rpar.objs), 3);
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 3
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 63 , BLOCK ) : 2
-Xcos trace:   objectReferenced( 67 , BLOCK ) : 2
-Xcos trace:   objectReferenced( 71 , LINK ) : 2
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 63 , BLOCK ) : 1
-Xcos trace:   objectUnreferenced( 67 , BLOCK ) : 1
-Xcos trace:   objectUnreferenced( 71 , LINK ) : 1
-Xcos trace:   objectUnreferenced( 63 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 67 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 71 , LINK ) : 0
-// Check connections
-assert_checkequal(l(1).objs(1).model.rpar.objs(1).graphics.pout,   3);
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 3
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 63 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 67 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 71 , LINK ) : 1
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 67 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 71 , LINK ) : 0
-Xcos trace:   objectReferenced( 63 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 63 , BLOCK ) : 1
-Xcos trace:   objectUnreferenced( 63 , BLOCK ) : 0
-assert_checkequal(l(1).objs(1).model.rpar.objs(2).graphics.pin(1), 3);
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 3
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 63 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 67 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 71 , LINK ) : 1
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 63 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 71 , LINK ) : 0
-Xcos trace:   objectReferenced( 67 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 67 , BLOCK ) : 1
-Xcos trace:   objectUnreferenced( 67 , BLOCK ) : 0
-assert_checkequal(l(1).objs(1).model.rpar.objs(3).from, [1 1 0]);
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 3
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 63 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 67 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 71 , LINK ) : 1
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 63 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 67 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 71 , LINK ) : 0
-assert_checkequal(l(1).objs(1).model.rpar.objs(3).from, [1 1 0]);
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 3
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 63 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 67 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 71 , LINK ) : 1
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 63 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 67 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 71 , LINK ) : 0
-assert_checkequal(l(1).objs(1).model.rpar.objs(3).to,   [2 1 1]);
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 3
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 63 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 67 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 71 , LINK ) : 1
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 63 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 67 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 71 , LINK ) : 0
-// Clone a second time
-l2 = list(1); l2(1) = l(1); // Cloning 'l(1)', which is 'scs_m's clone
-l2(1).objs(1).model.rpar
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 3
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 1
- ans  =
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 1
-wpar = [600,450,0,0,600,450]
-title = ["";""]
-tol = [0.000001,0.000001,1.000D-10,100001,0,1,0]
-tf = 30
-context = []
-void1 = []
-options = tlist(["scsopt","3D","Background","Link","ID","Cmap"],list(%t,33),[8,1],[1,5],list([4,1,10,1],[4,1,2,1]),[0.8,0.8,0.8])
-void2 = []
-void3 = []
-doc = list()
-Xcos trace:   objectReferenced( 63 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 67 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 71 , LINK ) : 1
-1     BIGSOM_f
-2     BIGSOM_f
-Xcos trace:   objectUnreferenced( 63 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 67 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 71 , LINK ) : 0
-l2(1).objs(1).model.rpar.objs
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 3
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 4
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 3
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectReferenced( 63 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 67 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 71 , LINK ) : 1
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 1
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 0
- ans  =
-       ans(1)
-GUI     : BIGSOM_f
-Graphics: 
-Xcos trace:   objectReferenced( 63 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 63 , BLOCK ) : 1
-          orig = [0,0]
-          sz = [2,3]
-          exprs = "[1;1]"
-          pin = [0;0]
-          pout = 3
-          pein = []
-          peout = []
-          gr_i = []
-          id = ""
-          in_implicit = ["E";"E"]
-          out_implicit = "E"
-          in_style = ["";""]
-          out_style = ""
-          in_label = ["";""]
-          out_label = ""
-          style = ""
-Model   : 
-Xcos trace:   objectReferenced( 63 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 63 , BLOCK ) : 1
-          sum type: 2
-          in = [-1;-1]
-          in2 = [1;1]
-          intyp = [1;1]
-          out = -1
-          out2 = 1
-          outtyp = 1
-          evtin = []
-          evtout = []
-          state = []
-          dstate = []
-          odstate = list()
-          rpar = [1;1]
-          ipar = []
-          opar = list()
-          blocktype = "c"
-          firing = []
-          dep_ut = [%t,%f]
-          label = ""
-          nzcross = 0
-          nmode = 0
-          equations = list()
-          uid = ""
-       ans(2)
-GUI     : BIGSOM_f
-Graphics: 
-Xcos trace:   objectReferenced( 67 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 67 , BLOCK ) : 1
-          orig = [0,0]
-          sz = [2,3]
-          exprs = "[1;1]"
-          pin = [3;0]
-          pout = 0
-          pein = []
-          peout = []
-          gr_i = []
-          id = ""
-          in_implicit = ["E";"E"]
-          out_implicit = "E"
-          in_style = ["";""]
-          out_style = ""
-          in_label = ["";""]
-          out_label = ""
-          style = ""
-Model   : 
-Xcos trace:   objectReferenced( 67 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 67 , BLOCK ) : 1
-          sum type: 2
-          in = [-1;-1]
-          in2 = [1;1]
-          intyp = [1;1]
-          out = -1
-          out2 = 1
-          outtyp = 1
-          evtin = []
-          evtout = []
-          state = []
-          dstate = []
-          odstate = list()
-          rpar = [1;1]
-          ipar = []
-          opar = list()
-          blocktype = "c"
-          firing = []
-          dep_ut = [%t,%f]
-          label = ""
-          nzcross = 0
-          nmode = 0
-          equations = list()
-          uid = ""
-       ans(3)
-Link    :
-          xx: []
-          yy: []
-          id: 
-          thick: 0 0
-          ct: 1 1
-          from: 1 1 0
-          to: 2 1 1
-assert_checkequal(size(l2(1).objs(1).model.rpar.objs), 3);
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectReferenced( 62 , BLOCK ) : 3
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 63 , BLOCK ) : 2
-Xcos trace:   objectReferenced( 67 , BLOCK ) : 2
-Xcos trace:   objectReferenced( 71 , LINK ) : 2
-Xcos trace:   objectUnreferenced( 62 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 63 , BLOCK ) : 1
-Xcos trace:   objectUnreferenced( 67 , BLOCK ) : 1
-Xcos trace:   objectUnreferenced( 71 , LINK ) : 1
-Xcos trace:   objectUnreferenced( 63 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 67 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 71 , LINK ) : 0
-=======
 l = list(1); l(1) = scs_m; // Cloning 'scs_m'
 Xcos info:    objectDeleted( 31 , LINK )
 // Check connections
@@ -2451,7 +1629,6 @@ Xcos trace:   objectUnreferenced( 56 , BLOCK ) : 0
 Xcos trace:   objectUnreferenced( 60 , LINK ) : 0
 // Clone a second time
 l2 = list(1); l2(1) = l(1); // Cloning 'l(1)', which is 'scs_m's clone
->>>>>>> origin/6.0
 // Check connections
 assert_checkequal(l2(1).objs(1).model.rpar.objs(1).graphics.pin, [0 ; 0]);
 Xcos trace:   objectReferenced( 51 , BLOCK ) : 1
@@ -3344,321 +2521,7 @@ Xcos trace:   propertyUpdated( 81 , BLOCK , EVENT_INPUTS ) : NO_CHANGES
 Xcos trace:   propertyUpdated( 81 , BLOCK , EVENT_OUTPUTS ) : NO_CHANGES
 Xcos info:    objectDeleted( 82 , PORT )
 Xcos info:    objectDeleted( 81 , BLOCK )
-<<<<<<< HEAD
-Xcos info:    objectDeleted( 72 , DIAGRAM )
-scs_m = scicos_diagram();
-Xcos info:    objectCreated( 90 , DIAGRAM )
-Xcos trace:   objectReferenced( 90 , DIAGRAM ) : 1
-Xcos trace:   propertyUpdated( 90 , DIAGRAM , TITLE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 90 , DIAGRAM , PATH ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 90 , DIAGRAM , PROPERTIES ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 90 , DIAGRAM , PROPERTIES ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 90 , DIAGRAM , CONTEXT ) : NO_CHANGES
-Xcos trace:   objectUnreferenced( 90 , DIAGRAM ) : 0
-Xcos trace:   propertyUpdated( 90 , DIAGRAM , CHILDREN ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 90 , DIAGRAM , VERSION_NUMBER ) : SUCCESS
-scs_m.objs(1) = sb;
-Xcos info:    objectCreated( 91 , BLOCK )
-Xcos info:    objectCloned( 83 , 91 , BLOCK )
-Xcos trace:   propertyUpdated( 91 , BLOCK , SIM_FUNCTION_API ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 91 , BLOCK , DESCRIPTION ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 91 , BLOCK , INTERFACE_FUNCTION ) : SUCCESS
-Xcos debug:   propertyUpdated( 91 , BLOCK , SIM_FUNCTION_NAME ) : SUCCESS
-Xcos debug:   propertyUpdated( 91 , BLOCK , SIM_BLOCKTYPE ) : SUCCESS
-Xcos trace:   propertyUpdated( 91 , BLOCK , UID ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 91 , BLOCK , STYLE ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 91 , BLOCK , GEOMETRY ) : SUCCESS
-Xcos trace:   propertyUpdated( 91 , BLOCK , EXPRS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 91 , BLOCK , STATE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 91 , BLOCK , DSTATE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 91 , BLOCK , ODSTATE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 91 , BLOCK , RPAR ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 91 , BLOCK , OPAR ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 91 , BLOCK , EQUATIONS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 91 , BLOCK , SIM_DEP_UT ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 91 , BLOCK , NZCROSS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 91 , BLOCK , NMODE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 91 , BLOCK , IPAR ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 91 , BLOCK , COLOR ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 91 , BLOCK , CONTEXT ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 91 , BLOCK , PARENT_DIAGRAM ) : NO_CHANGES
-Xcos info:    objectCreated( 92 , PORT )
-Xcos info:    objectCloned( 84 , 92 , PORT )
-Xcos trace:   propertyUpdated( 92 , PORT , FIRING ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 92 , PORT , PORT_KIND ) : SUCCESS
-Xcos trace:   propertyUpdated( 92 , PORT , IMPLICIT ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 92 , PORT , UID ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 92 , PORT , STYLE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 92 , PORT , LABEL ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 92 , PORT , DATATYPE ) : SUCCESS
-Xcos debug:   propertyUpdated( 92 , PORT , SOURCE_BLOCK ) : SUCCESS
-Xcos trace:   propertyUpdated( 92 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 91 , BLOCK , INPUTS ) : SUCCESS
-Xcos info:    objectCreated( 93 , PORT )
-Xcos info:    objectCloned( 85 , 93 , PORT )
-Xcos trace:   propertyUpdated( 93 , PORT , FIRING ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 93 , PORT , PORT_KIND ) : SUCCESS
-Xcos trace:   propertyUpdated( 93 , PORT , IMPLICIT ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 93 , PORT , UID ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 93 , PORT , STYLE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 93 , PORT , LABEL ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 93 , PORT , DATATYPE ) : SUCCESS
-Xcos debug:   propertyUpdated( 93 , PORT , SOURCE_BLOCK ) : SUCCESS
-Xcos trace:   propertyUpdated( 93 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 91 , BLOCK , OUTPUTS ) : SUCCESS
-Xcos trace:   propertyUpdated( 91 , BLOCK , EVENT_INPUTS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 91 , BLOCK , EVENT_OUTPUTS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 91 , BLOCK , PARENT_BLOCK ) : NO_CHANGES
-Xcos info:    objectCreated( 94 , BLOCK )
-Xcos info:    objectCloned( 86 , 94 , BLOCK )
-Xcos trace:   propertyUpdated( 94 , BLOCK , SIM_FUNCTION_API ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 94 , BLOCK , DESCRIPTION ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 94 , BLOCK , INTERFACE_FUNCTION ) : SUCCESS
-Xcos debug:   propertyUpdated( 94 , BLOCK , SIM_FUNCTION_NAME ) : SUCCESS
-Xcos trace:   propertyUpdated( 94 , BLOCK , SIM_BLOCKTYPE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 94 , BLOCK , UID ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 94 , BLOCK , STYLE ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 94 , BLOCK , GEOMETRY ) : SUCCESS
-Xcos debug:   propertyUpdated( 94 , BLOCK , EXPRS ) : SUCCESS
-Xcos trace:   propertyUpdated( 94 , BLOCK , STATE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 94 , BLOCK , DSTATE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 94 , BLOCK , ODSTATE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 94 , BLOCK , RPAR ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 94 , BLOCK , OPAR ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 94 , BLOCK , EQUATIONS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 94 , BLOCK , SIM_DEP_UT ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 94 , BLOCK , NZCROSS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 94 , BLOCK , NMODE ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 94 , BLOCK , IPAR ) : SUCCESS
-Xcos trace:   propertyUpdated( 94 , BLOCK , COLOR ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 94 , BLOCK , CONTEXT ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 94 , BLOCK , PARENT_DIAGRAM ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 94 , BLOCK , INPUTS ) : NO_CHANGES
-Xcos info:    objectCreated( 95 , PORT )
-Xcos info:    objectCloned( 87 , 95 , PORT )
-Xcos trace:   propertyUpdated( 95 , PORT , FIRING ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 95 , PORT , PORT_KIND ) : SUCCESS
-Xcos trace:   propertyUpdated( 95 , PORT , IMPLICIT ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 95 , PORT , UID ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 95 , PORT , STYLE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 95 , PORT , LABEL ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 95 , PORT , DATATYPE ) : SUCCESS
-Xcos debug:   propertyUpdated( 95 , PORT , SOURCE_BLOCK ) : SUCCESS
-Xcos trace:   propertyUpdated( 95 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 94 , BLOCK , OUTPUTS ) : SUCCESS
-Xcos trace:   propertyUpdated( 94 , BLOCK , EVENT_INPUTS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 94 , BLOCK , EVENT_OUTPUTS ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 94 , BLOCK , PARENT_BLOCK ) : SUCCESS
-Xcos trace:   propertyUpdated( 93 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 95 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 92 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 94 , BLOCK , CHILDREN ) : NO_CHANGES
-Xcos info:    objectCreated( 96 , BLOCK )
-Xcos info:    objectCloned( 88 , 96 , BLOCK )
-Xcos trace:   propertyUpdated( 96 , BLOCK , SIM_FUNCTION_API ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 96 , BLOCK , DESCRIPTION ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 96 , BLOCK , INTERFACE_FUNCTION ) : SUCCESS
-Xcos debug:   propertyUpdated( 96 , BLOCK , SIM_FUNCTION_NAME ) : SUCCESS
-Xcos trace:   propertyUpdated( 96 , BLOCK , SIM_BLOCKTYPE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 96 , BLOCK , UID ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 96 , BLOCK , STYLE ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 96 , BLOCK , GEOMETRY ) : SUCCESS
-Xcos debug:   propertyUpdated( 96 , BLOCK , EXPRS ) : SUCCESS
-Xcos trace:   propertyUpdated( 96 , BLOCK , STATE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 96 , BLOCK , DSTATE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 96 , BLOCK , ODSTATE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 96 , BLOCK , RPAR ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 96 , BLOCK , OPAR ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 96 , BLOCK , EQUATIONS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 96 , BLOCK , SIM_DEP_UT ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 96 , BLOCK , NZCROSS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 96 , BLOCK , NMODE ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 96 , BLOCK , IPAR ) : SUCCESS
-Xcos trace:   propertyUpdated( 96 , BLOCK , COLOR ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 96 , BLOCK , CONTEXT ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 96 , BLOCK , PARENT_DIAGRAM ) : NO_CHANGES
-Xcos info:    objectCreated( 97 , PORT )
-Xcos info:    objectCloned( 89 , 97 , PORT )
-Xcos trace:   propertyUpdated( 97 , PORT , FIRING ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 97 , PORT , PORT_KIND ) : SUCCESS
-Xcos trace:   propertyUpdated( 97 , PORT , IMPLICIT ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 97 , PORT , UID ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 97 , PORT , STYLE ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 97 , PORT , LABEL ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 97 , PORT , DATATYPE ) : SUCCESS
-Xcos debug:   propertyUpdated( 97 , PORT , SOURCE_BLOCK ) : SUCCESS
-Xcos trace:   propertyUpdated( 97 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 96 , BLOCK , INPUTS ) : SUCCESS
-Xcos trace:   propertyUpdated( 96 , BLOCK , OUTPUTS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 96 , BLOCK , EVENT_INPUTS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 96 , BLOCK , EVENT_OUTPUTS ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 96 , BLOCK , PARENT_BLOCK ) : SUCCESS
-Xcos trace:   propertyUpdated( 97 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 92 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 95 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 93 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 96 , BLOCK , CHILDREN ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 97 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 92 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 95 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos trace:   propertyUpdated( 93 , PORT , CONNECTED_SIGNALS ) : NO_CHANGES
-Xcos debug:   propertyUpdated( 91 , BLOCK , CHILDREN ) : SUCCESS
-Xcos trace:   objectReferenced( 91 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 91 , BLOCK ) : 2
-Xcos debug:   propertyUpdated( 91 , BLOCK , PARENT_DIAGRAM ) : SUCCESS
-Xcos trace:   propertyUpdated( 91 , BLOCK , PARENT_BLOCK ) : NO_CHANGES
-Xcos trace:   objectUnreferenced( 91 , BLOCK ) : 1
-Xcos debug:   propertyUpdated( 90 , DIAGRAM , CHILDREN ) : SUCCESS
-Xcos trace:   objectUnreferenced( 91 , BLOCK ) : 0
-l = list(1); l(1) = scs_m; // Cloning 'scs_m'
-l(1).objs(1).model.rpar
-Xcos trace:   objectReferenced( 91 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 91 , BLOCK ) : 2
-Xcos trace:   objectReferenced( 91 , BLOCK ) : 3
-Xcos trace:   objectUnreferenced( 91 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 91 , BLOCK ) : 1
- ans  =
-Xcos trace:   objectReferenced( 91 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 91 , BLOCK ) : 1
-wpar = [600,450,0,0,600,450]
-title = ["";""]
-tol = [0.000001,0.000001,1.000D-10,100001,0,1,0]
-tf = 30
-context = []
-void1 = []
-options = tlist(["scsopt","3D","Background","Link","ID","Cmap"],list(%t,33),[8,1],[1,5],list([4,1,10,1],[4,1,2,1]),[0.8,0.8,0.8])
-void2 = []
-void3 = []
-doc = list()
-Xcos trace:   objectReferenced( 94 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 96 , BLOCK ) : 1
-1     IN_f
-2     OUT_f
-Xcos trace:   objectUnreferenced( 94 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 96 , BLOCK ) : 0
-l(1).objs(1).model.rpar.objs
-Xcos trace:   objectReferenced( 91 , BLOCK ) : 2
-Xcos trace:   objectReferenced( 91 , BLOCK ) : 3
-Xcos trace:   objectReferenced( 91 , BLOCK ) : 4
-Xcos trace:   objectUnreferenced( 91 , BLOCK ) : 3
-Xcos trace:   objectUnreferenced( 91 , BLOCK ) : 2
-Xcos trace:   objectReferenced( 94 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 96 , BLOCK ) : 1
-Xcos trace:   objectUnreferenced( 91 , BLOCK ) : 1
-Xcos trace:   objectUnreferenced( 91 , BLOCK ) : 0
- ans  =
-       ans(1)
-GUI     : IN_f
-Graphics: 
-Xcos trace:   objectReferenced( 94 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 94 , BLOCK ) : 1
-          orig = [40,40]
-          sz = [20,20]
-          exprs = "1"
-          pin = []
-          pout = 0
-          pein = []
-          peout = []
-          gr_i = []
-          id = ""
-          in_implicit = []
-          out_implicit = "E"
-          in_style = ""
-          out_style = ""
-          in_label = ""
-          out_label = ""
-          style = ""
-Model   : 
-Xcos trace:   objectReferenced( 94 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 94 , BLOCK ) : 1
-          input type: 0
-          in = []
-          in2 = []
-          intyp = 1
-          out = -1
-          out2 = -2
-          outtyp = -1
-          evtin = []
-          evtout = []
-          state = []
-          dstate = []
-          odstate = list()
-          rpar = []
-          ipar = 1
-          opar = list()
-          blocktype = "c"
-          firing = []
-          dep_ut = [%f,%f]
-          label = ""
-          nzcross = 0
-          nmode = 0
-          equations = list()
-          uid = ""
-       ans(2)
-GUI     : OUT_f
-Graphics: 
-Xcos trace:   objectReferenced( 96 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 96 , BLOCK ) : 1
-          orig = [240,40]
-          sz = [20,20]
-          exprs = "1"
-          pin = 0
-          pout = []
-          pein = []
-          peout = []
-          gr_i = []
-          id = ""
-          in_implicit = "E"
-          out_implicit = []
-          in_style = ""
-          out_style = ""
-          in_label = ""
-          out_label = ""
-          style = ""
-Model   : 
-Xcos trace:   objectReferenced( 96 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 96 , BLOCK ) : 1
-          output type: 0
-          in = -1
-          in2 = -2
-          intyp = -1
-          out = []
-          out2 = []
-          outtyp = 1
-          evtin = []
-          evtout = []
-          state = []
-          dstate = []
-          odstate = list()
-          rpar = []
-          ipar = 1
-          opar = list()
-          blocktype = "c"
-          firing = []
-          dep_ut = [%f,%f]
-          label = ""
-          nzcross = 0
-          nmode = 0
-          equations = list()
-          uid = ""
-assert_checkequal(size(l(1).objs(1).model.rpar.objs), 2); // Blocks "IN_f" and "OUT_f"
-Xcos trace:   objectReferenced( 91 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 91 , BLOCK ) : 2
-Xcos trace:   objectReferenced( 91 , BLOCK ) : 3
-Xcos trace:   objectUnreferenced( 91 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 91 , BLOCK ) : 1
-Xcos trace:   objectReferenced( 94 , BLOCK ) : 2
-Xcos trace:   objectReferenced( 96 , BLOCK ) : 2
-Xcos trace:   objectUnreferenced( 91 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 94 , BLOCK ) : 1
-Xcos trace:   objectUnreferenced( 96 , BLOCK ) : 1
-Xcos trace:   objectUnreferenced( 94 , BLOCK ) : 0
-Xcos trace:   objectUnreferenced( 96 , BLOCK ) : 0
-// Check that all the model items are freed
-clear
-=======
 Xcos debug:   propertyUpdated( 78 , BLOCK , CHILDREN ) : SUCCESS
->>>>>>> origin/6.0
 Xcos debug:   propertyUpdated( 83 , BLOCK , INPUTS ) : SUCCESS
 Xcos trace:   propertyUpdated( 83 , BLOCK , OUTPUTS ) : NO_CHANGES
 Xcos trace:   propertyUpdated( 83 , BLOCK , EVENT_INPUTS ) : NO_CHANGES
index 033e2d9..ef9f26a 100644 (file)
@@ -238,7 +238,7 @@ evtout = []
 state = []
 dstate = []
 odstate = list()
-rpar = mlist(["diagram","props","objs","version","contrib"],tlist(["params","wpar","title","tol","tf","context","void1","options","void2","void3","doc"],[6,45,0,0,6,45],["Quat_Conj";""],[0.000001,0.000001,1.000D-10,100001,0,1,0],1,[],[],tlist(["scsopt","3D","Background","Link","ID","Cmap"],list(%t,33),[8,1],[1,5],list([4,1,1,1],[4,1,2,1]),[0.8,0.8,0.8]),[],[],list()),list(mlist(["Link","xx","yy","id","thick","ct","from","to"],[],[],"",[0,0],[1,1],[2,1,0],[3,1,1])),"",list())
+rpar = mlist(["diagram","props","objs","version","contrib"],tlist(["params","wpar","title","tol","tf","context","void1","options","void2","void3","doc"],[600,450,0,0,600,450],["Quat_Conj";""],[0.000001,0.000001,1.000D-10,100001,0,1,0],30,[],[],tlist(["scsopt","3D","Background","Link","ID","Cmap"],list(%t,33),[8,1],[1,5],list([4,1,10,1],[4,1,2,1]),[0.8,0.8,0.8]),[],[],list()),list(mlist(["Link","xx","yy","id","thick","ct","from","to"],[],[],"",[0,0],[1,1],[2,1,0],[3,1,1])),"",list())
 ipar = []
 opar = list()
 blocktype = "h"
index 858ab90..c2e2d20 100644 (file)
@@ -4,7 +4,6 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
-
 // <-- CLI SHELL MODE -->
 // <-- Non-regression test for bug 9161 -->
 //
 //
 // <-- Short Description -->
 //  Wrong insertions in sparse when repeated index
-
 A = sparse(33);
 B = sparse([1 0 3]');
 ind = [1 1 1];
 A(ind) = B;
 assert_checkequal(A, sparse(3));
-
 A = sparse([33 -10]);
 ind = [2 1 2];
 A(ind) = B;
index d24c69d..7b38e6e 100644 (file)
@@ -19,7 +19,7 @@ assert_checkequal(res, 0);
 res = legendre(0, 0:2, [1 -1]);
 expected = [1 1;0 0;0 0]
  expected  = 
-    1.    1.
-    0.    0.
-    0.    0.
+   1.   1.
+   0.   0.
+   0.   0.
 assert_checkequal(res, expected);
index 70cba21..270e491 100644 (file)
@@ -107,7 +107,7 @@ y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[];
 x=[-7.29999999999999982
- 8.40000000000000036];
+8.40000000000000036];
 yref=[];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
@@ -198,34 +198,34 @@ alpha=[0];
 x=[3
 4
 5];
-yref=[-0.260051954901933502+0.376850010012790504*%i 
--0.397149809863847292-0.0169407393250650198*%i 
+yref=[-0.260051954901933502+0.376850010012790504*%i
+-0.397149809863847292-0.0169407393250650198*%i
 -0.177596771314338348-0.308517625249033867*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[-0.260051954901933502-0.376850010012790504*%i 
--0.397149809863847292+0.0169407393250650198*%i 
+yref=[-0.260051954901933502-0.376850010012790504*%i
+-0.397149809863847292+0.0169407393250650198*%i
 -0.177596771314338348+0.308517625249033867*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.31063056052955762-0.336380148284720293*%i 
-0.272415233538270574-0.289490760923486856*%i 
+yref=[ 0.31063056052955762-0.336380148284720293*%i
+0.272415233538270574-0.289490760923486856*%i
 0.245467551730485706-0.257816638947182653*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[0];
 x=[-7.29999999999999982
- 8.40000000000000036];
-yref=[-0.288216947635014376+0.0627738863740376352*%i 
+8.40000000000000036];
+yref=[-0.288216947635014376+0.0627738863740376352*%i
 0.0691572616569851861+0.266221867363905018*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.864650842905043127-0.0627738863740379682*%i 
+yref=[ 0.864650842905043127-0.0627738863740379682*%i
 0.0691572616569851861-0.266221867363905018*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[-0.205009668070646411-0.212086316654584245*%i 
- 0.191600335830164975-0.197347715498268128*%i ];
+yref=[-0.205009668070646411-0.212086316654584245*%i
+0.191600335830164975-0.197347715498268128*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[0];
@@ -309,33 +309,33 @@ alpha=[1];
 x=[3
 4
 5];
-yref=[ 0.339058958525936538+0.324674424791800087*%i 
--0.0660433280235491887+0.397925710557099965*%i 
- -0.327579137591465286+0.147863143391226859*%i ];
+yref=[ 0.339058958525936538+0.324674424791800087*%i
+-0.0660433280235491887+0.397925710557099965*%i
+-0.327579137591465286+0.147863143391226859*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.339058958525936538-0.324674424791800087*%i 
--0.0660433280235491887-0.397925710557099965*%i 
- -0.327579137591465286-0.147863143391226859*%i ];
+yref=[ 0.339058958525936538-0.324674424791800087*%i
+-0.0660433280235491887-0.397925710557099965*%i
+-0.327579137591465286-0.147863143391226859*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[-0.289847767402387269-0.369273247341898037*%i 
--0.257982370633597746-0.310083357729930509*%i 
+yref=[-0.289847767402387269-0.369273247341898037*%i
+-0.257982370633597746-0.310083357729930509*%i
 -0.234711371607197739-0.272180404505854456*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[1];
 x=[-7.29999999999999982
- 8.40000000000000036];
-yref=[0.0825704304932578653+0.284594371868072016*%i 
- 0.270786268276835496-0.0534845083974161278*%i ];
+8.40000000000000036];
+yref=[0.0825704304932578653+0.284594371868072016*%i
+0.270786268276835496-0.0534845083974161278*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[-0.247711291479773887-0.284594371868071905*%i 
- 0.270786268276835496+0.0534845083974161278*%i ];
+yref=[-0.247711291479773887-0.284594371868071905*%i
+0.270786268276835496+0.0534845083974161278*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[-0.198591028778410006+0.219939618485522376*%i 
+yref=[-0.198591028778410006+0.219939618485522376*%i
 -0.186324039282828008-0.203639750812897008*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
@@ -409,33 +409,33 @@ alpha=[1 2 3];
 x=[3
 4
 5];
-yref=[ 0.339058958525936538+0.324674424791800087*%i 0.486091260585891194-0.16040039348492377*%i 0.309062722255251721-0.538541616105031817*%i 
--0.0660433280235491887+0.397925710557099965*%i 0.36412814585207276+0.215903594603615023*%i 0.430171473875621879-0.182022115953484942*%i 
- -0.327579137591465286+0.147863143391226859*%i 0.0465651162777521929+0.367662882605524655*%i 0.364831230613667068+0.146267162693192898*%i ];
+yref=[ 0.339058958525936538+0.324674424791800087*%i 0.486091260585891194-0.16040039348492377*%i 0.309062722255251721-0.538541616105031817*%i
+-0.0660433280235491887+0.397925710557099965*%i 0.36412814585207276+0.215903594603615023*%i 0.430171473875621879-0.182022115953484942*%i
+-0.327579137591465286+0.147863143391226859*%i 0.0465651162777521929+0.367662882605524655*%i 0.364831230613667068+0.146267162693192898*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.339058958525936538-0.324674424791800087*%i 0.486091260585891194+0.16040039348492377*%i 0.309062722255251721+0.538541616105031817*%i 
--0.0660433280235491887-0.397925710557099965*%i 0.36412814585207276-0.215903594603615023*%i 0.430171473875621879+0.182022115953484942*%i 
- -0.327579137591465286-0.147863143391226859*%i 0.0465651162777521929-0.367662882605524655*%i 0.364831230613667068-0.146267162693192898*%i ];
+yref=[ 0.339058958525936538-0.324674424791800087*%i 0.486091260585891194+0.16040039348492377*%i 0.309062722255251721+0.538541616105031817*%i
+-0.0660433280235491887-0.397925710557099965*%i 0.36412814585207276-0.215903594603615023*%i 0.430171473875621879+0.182022115953484942*%i
+-0.327579137591465286-0.147863143391226859*%i 0.0465651162777521929-0.367662882605524655*%i 0.364831230613667068-0.146267162693192898*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[-0.289847767402387269-0.369273247341898037*%i -0.503862405464482466+0.0901979833901215833*%i -0.381968773216922741+0.489537225195393555*%i 
--0.257982370633597746-0.310083357729930509*%i -0.401406418855069447+0.134449082058521546*%i -0.143424048221471756+0.444532439788452083*%i 
+yref=[-0.289847767402387269-0.369273247341898037*%i -0.503862405464482466+0.0901979833901215833*%i -0.381968773216922741+0.489537225195393555*%i
+-0.257982370633597746-0.310083357729930509*%i -0.401406418855069447+0.134449082058521546*%i -0.143424048221471756+0.444532439788452083*%i
 -0.234711371607197739-0.272180404505854456*%i -0.339352100373364829+0.148944477144840853*%i -0.0367703086914941552+0.391335986221727217*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[1 2 3];
 x=[-7.29999999999999982
- 8.40000000000000036];
-yref=[0.0825704304932578653+0.284594371868072016*%i 0.265594911883436868-0.140744947159810785*%i -0.228101889059524665-0.207473852876394915*%i 
- 0.270786268276835496-0.0534845083974161278*%i -0.00468434063869100758-0.278956274125194581*%i -0.273016906676212145-0.0793518126145812824*%i ];
+8.40000000000000036];
+yref=[0.0825704304932578653+0.284594371868072016*%i 0.265594911883436868-0.140744947159810785*%i -0.228101889059524665-0.207473852876394915*%i
+0.270786268276835496-0.0534845083974161278*%i -0.00468434063869100758-0.278956274125194581*%i -0.273016906676212145-0.0793518126145812824*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[-0.247711291479773887-0.284594371868071905*%i -0.796784735650310605+0.140744947159811146*%i 0.684305667178574106+0.207473852876394582*%i 
- 0.270786268276835496+0.0534845083974161278*%i -0.00468434063869100758+0.278956274125194581*%i -0.273016906676212145+0.0793518126145812824*%i ];
+yref=[-0.247711291479773887-0.284594371868071905*%i -0.796784735650310605+0.140744947159811146*%i 0.684305667178574106+0.207473852876394582*%i
+0.270786268276835496+0.0534845083974161278*%i -0.00468434063869100758+0.278956274125194581*%i -0.273016906676212145+0.0793518126145812824*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[-0.198591028778410006+0.219939618485522376*%i 0.259418169105827268+0.15182888693252336*%i 0.056444086802614292-0.303133529133480351*%i 
+yref=[-0.198591028778410006+0.219939618485522376*%i 0.259418169105827268+0.15182888693252336*%i 0.056444086802614292-0.303133529133480351*%i
 -0.186324039282828008-0.203639750812897008*%i -0.235963202326076427+0.148862060542816449*%i 0.0739606096037440097+0.274526446309476313*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
@@ -498,33 +498,33 @@ alpha=[1.19999999999999996 2.20000000000000018 3.20000000000000018];
 x=[3
 4
 5];
-yref=[ 0.412044162415464765+0.236105148830688782*%i 0.463422297657139992-0.249464037123650451*%i 0.267641874148340619-0.601985736612042799*%i 
-0.0388438196375475442+0.404200660729673644*%i 0.406986020132752646+0.137707238974328822*%i 0.408840802508480261-0.25272269785791196*%i 
+yref=[ 0.412044162415464765+0.236105148830688782*%i 0.463422297657139992-0.249464037123650451*%i 0.267641874148340619-0.601985736612042799*%i
+0.0388438196375475442+0.404200660729673644*%i 0.406986020132752646+0.137707238974328822*%i 0.408840802508480261-0.25272269785791196*%i
 -0.277293686932808758+0.231079618553641175*%i 0.130302183508562208+0.350580558421466015*%i 0.391959608420343553+0.0774312728572489062*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.412044162415464765-0.236105148830688782*%i 0.463422297657139992+0.249464037123650451*%i 0.267641874148340619+0.601985736612042799*%i 
-0.0388438196375475442-0.404200660729673644*%i 0.406986020132752646-0.137707238974328822*%i 0.408840802508480261+0.25272269785791196*%i 
+yref=[ 0.412044162415464765-0.236105148830688782*%i 0.463422297657139992+0.249464037123650451*%i 0.267641874148340619+0.601985736612042799*%i
+0.0388438196375475442-0.404200660729673644*%i 0.406986020132752646-0.137707238974328822*%i 0.408840802508480261+0.25272269785791196*%i
 -0.277293686932808758-0.231079618553641175*%i 0.130302183508562208-0.350580558421466015*%i 0.391959608420343553-0.0774312728572489062*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[-0.374601468553362349-0.291890001272204935*%i -0.493988964367443439+0.181569366543571309*%i -0.349915679185554551+0.558191738869442844*%i 
--0.331290083561390059-0.234806083805821214*%i -0.370240997918180659+0.217996577289598981*%i -0.075975014148608605+0.474602318824380143*%i 
- -0.3002455888615011-0.200355097995776388*%i -0.299218405550633115+0.224396374190722392*%i 0.0369333919769440355+0.397823907283612055*%i ];
+yref=[-0.374601468553362349-0.291890001272204935*%i -0.493988964367443439+0.181569366543571309*%i -0.349915679185554551+0.558191738869442844*%i
+-0.331290083561390059-0.234806083805821214*%i -0.370240997918180659+0.217996577289598981*%i -0.075975014148608605+0.474602318824380143*%i
+-0.3002455888615011-0.200355097995776388*%i -0.299218405550633115+0.224396374190722392*%i 0.0369333919769440355+0.397823907283612055*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[1.19999999999999996 2.20000000000000018 3.20000000000000018];
 x=[-7.29999999999999982
- 8.40000000000000036];
-yref=[0.174095089182458529+0.240546076055273117*%i 0.197117350906682559-0.228566945221770845*%i -0.29290554726319884-0.10277969811338393*%i 
+8.40000000000000036];
+yref=[0.174095089182458529+0.240546076055273117*%i 0.197117350906682559-0.228566945221770845*%i -0.29290554726319884-0.10277969811338393*%i
 0.244808700524773382-0.12841584805211595*%i -0.0775662890440067115-0.268892924189574611*%i -0.285438661452586284-0.0124328265233755314*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ -0.173215606457922-0.239907094453251313*%i -0.672527395792539839-0.116838670628740482*%i 0.578574584743836495+0.310330402777423575*%i 
+yref=[ -0.173215606457922-0.239907094453251313*%i -0.672527395792539839-0.116838670628740482*%i 0.578574584743836495+0.310330402777423575*%i
 0.244808700524773382+0.12841584805211595*%i -0.0775662890440067115+0.268892924189574611*%i -0.285438661452586284+0.0124328265233755314*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[-0.112981679720558184+0.274602721819283191*%i 0.29808070707952472+0.0473918826746817651*%i -0.0666834039986073102-0.303167692198543615*%i 
+yref=[-0.112981679720558184+0.274602721819283191*%i 0.29808070707952472+0.0473918826746817651*%i -0.0666834039986073102-0.303167692198543615*%i
 -0.236870424138133084-0.142528355256746092*%i -0.189516305562587112+0.205921110625372272*%i 0.1375999783672541+0.250391794155750469*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
@@ -564,56 +564,56 @@ alpha=[0
 1
 2];
 x=[9.99999999999999955e-08];
-yref=[ 0.999999999999997446-10.3349026794206473*%i 
-5.03898043091051198e-08-6366197.72367634624*%i 
+yref=[ 0.999999999999997446-10.3349026794206473*%i
+5.03898043091051198e-08-6366197.72367634624*%i
 1.27222187258540667e-15-127323954473516.594*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.999999999999997446+10.3349026794206473*%i 
-5.03898043091051198e-08+6366197.72367634624*%i 
+yref=[ 0.999999999999997446+10.3349026794206473*%i
+5.03898043091051198e-08+6366197.72367634624*%i
 1.27222187258540667e-15+127323954473516.594*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.999998966509724529-10.3349027794205952*%i 
--0.636619721977829234-6366197.72367631458*%i 
- -12732395.4473516364-127323954473515.953*%i ];
+yref=[ 0.999998966509724529-10.3349027794205952*%i
+-0.636619721977829234-6366197.72367631458*%i
+-12732395.4473516364-127323954473515.953*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[0
 1
 2];
 x=[1];
-yref=[0.765197686557966383+0.0882569642156769973*%i 
-0.440050585744933553-0.781212821300288907*%i 
+yref=[0.765197686557966383+0.0882569642156769973*%i
+0.440050585744933553-0.781212821300288907*%i
 0.114903484931900571-1.65068260681625478*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[0.765197686557966383-0.0882569642156769973*%i 
-0.440050585744933553+0.781212821300288907*%i 
+yref=[0.765197686557966383-0.0882569642156769973*%i
+0.440050585744933553+0.781212821300288907*%i
 0.114903484931900571+1.65068260681625478*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.487703749086956295-0.596206209606004012*%i 
--0.419607575907496144-0.792380888474382039*%i 
- -1.32691890090194864-0.988555567342760066*%i ];
+yref=[ 0.487703749086956295-0.596206209606004012*%i
+-0.419607575907496144-0.792380888474382039*%i
+-1.32691890090194864-0.988555567342760066*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[0
 1
 2];
 x=[3 4 5];
-yref=[-0.260051954901933502+0.376850010012790504*%i 0.339058958525936538+0.324674424791800087*%i 0.486091260585891194-0.160400393484923798*%i 
--0.397149809863847292-0.0169407393250650198*%i -0.066043328023549161+0.397925710557099965*%i 0.36412814585207276+0.215903594603614996*%i 
+yref=[-0.260051954901933502+0.376850010012790504*%i 0.339058958525936538+0.324674424791800087*%i 0.486091260585891194-0.160400393484923798*%i
+-0.397149809863847292-0.0169407393250650198*%i -0.066043328023549161+0.397925710557099965*%i 0.36412814585207276+0.215903594603614996*%i
 -0.177596771314338348-0.308517625249033867*%i -0.327579137591465286+0.147863143391226887*%i 0.0465651162777522137+0.367662882605524655*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[-0.260051954901933502-0.376850010012790504*%i 0.339058958525936538-0.324674424791800087*%i 0.486091260585891194+0.160400393484923798*%i 
--0.397149809863847292+0.0169407393250650198*%i -0.066043328023549161-0.397925710557099965*%i 0.36412814585207276-0.215903594603614996*%i 
+yref=[-0.260051954901933502-0.376850010012790504*%i 0.339058958525936538-0.324674424791800087*%i 0.486091260585891194+0.160400393484923798*%i
+-0.397149809863847292+0.0169407393250650198*%i -0.066043328023549161-0.397925710557099965*%i 0.36412814585207276-0.215903594603614996*%i
 -0.177596771314338348+0.308517625249033867*%i -0.327579137591465286-0.147863143391226887*%i 0.0465651162777522137-0.367662882605524655*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.31063056052955762-0.336380148284720293*%i -0.289847767402387269-0.369273247341898037*%i -0.503862405464482466+0.090197983390121611*%i 
-0.272415233538270574-0.289490760923486856*%i -0.257982370633597746-0.310083357729930509*%i -0.401406418855069447+0.134449082058521574*%i 
+yref=[ 0.31063056052955762-0.336380148284720293*%i -0.289847767402387269-0.369273247341898037*%i -0.503862405464482466+0.090197983390121611*%i
+0.272415233538270574-0.289490760923486856*%i -0.257982370633597746-0.310083357729930509*%i -0.401406418855069447+0.134449082058521574*%i
 0.245467551730485706-0.257816638947182653*%i -0.234711371607197766-0.272180404505854456*%i -0.339352100373364829+0.148944477144840881*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
@@ -621,16 +621,16 @@ alpha=[0
 1
 2];
 x=[-7.29999999999999982 8.40000000000000036];
-yref=[-0.288216947635014376+0.0627738863740376352*%i 0.0825704304932578792+0.284594371868072016*%i 0.265594911883436868-0.140744947159810813*%i 
+yref=[-0.288216947635014376+0.0627738863740376352*%i 0.0825704304932578792+0.284594371868072016*%i 0.265594911883436868-0.140744947159810813*%i
 0.0691572616569851861+0.266221867363905018*%i 0.270786268276835496-0.0534845083974161417*%i -0.00468434063869102493-0.278956274125194581*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.864650842905043127-0.0627738863740379682*%i -0.24771129147977386-0.284594371868071905*%i -0.796784735650310605+0.14074494715981109*%i 
+yref=[ 0.864650842905043127-0.0627738863740379682*%i -0.24771129147977386-0.284594371868071905*%i -0.796784735650310605+0.14074494715981109*%i
 0.0691572616569851861-0.266221867363905018*%i 0.270786268276835496+0.0534845083974161417*%i -0.00468434063869102493+0.278956274125194581*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[-0.205009668070646411-0.212086316654584245*%i -0.198591028778410006+0.219939618485522376*%i 0.259418169105827268+0.151828886932523333*%i 
- 0.191600335830164975-0.197347715498268128*%i -0.186324039282828008-0.203639750812897008*%i -0.235963202326076427+0.148862060542816477*%i ];
+yref=[-0.205009668070646411-0.212086316654584245*%i -0.198591028778410006+0.219939618485522376*%i 0.259418169105827268+0.151828886932523333*%i
+0.191600335830164975-0.197347715498268128*%i -0.186324039282828008-0.203639750812897008*%i -0.235963202326076427+0.148862060542816477*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[0
@@ -639,18 +639,18 @@ alpha=[0
 x=[3
 4
 5];
-yref=[ -0.260051954901933502+0.376850010012790504*%i 
--0.0660433280235491887+0.397925710557099965*%i 
- 0.0465651162777522137+0.367662882605524655*%i ];
+yref=[ -0.260051954901933502+0.376850010012790504*%i
+-0.0660433280235491887+0.397925710557099965*%i
+0.0465651162777522137+0.367662882605524655*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ -0.260051954901933502-0.376850010012790504*%i 
--0.0660433280235491887-0.397925710557099965*%i 
- 0.0465651162777522137-0.367662882605524655*%i ];
+yref=[ -0.260051954901933502-0.376850010012790504*%i
+-0.0660433280235491887-0.397925710557099965*%i
+0.0465651162777522137-0.367662882605524655*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.31063056052955762-0.336380148284720293*%i 
--0.257982370633597746-0.310083357729930509*%i 
+yref=[ 0.31063056052955762-0.336380148284720293*%i
+-0.257982370633597746-0.310083357729930509*%i
 -0.339352100373364829+0.148944477144840881*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
@@ -658,21 +658,21 @@ alpha=[0
 1
 2];
 x=[-7.29999999999999982+0.0200000000000000004*%i 8.40000000000000036+0.0200000000000000004*%i ];
-yref=[-0.282580089296005532+0.0611426719248229084*%i 0.0805588566675057294+0.279108983487138917*%i 0.260718835711755859-0.13767078042426989*%i 
+yref=[-0.282580089296005532+0.0611426719248229084*%i 0.0805588566675057294+0.279108983487138917*%i 0.260718835711755859-0.13767078042426989*%i
 0.0680949286455164587+0.260860299794333839*%i 0.265388401248268402-0.0527501414166842847*%i -0.00493747580632844518-0.273570232162209104*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.859124750279884219-0.0578395374887053712*%i -0.245747300872034974-0.268032077903665344*%i -0.791998414023906472+0.131456891260273934*%i 
+yref=[ 0.859124750279884219-0.0578395374887053712*%i -0.245747300872034974-0.268032077903665344*%i -0.791998414023906472+0.131456891260273934*%i
 0.0702343630487119036-0.271692474123097438*%i 0.276292676347178967+0.05422698542193536*%i -0.00442002466557511048+0.284446960322645992*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[-0.204710539394216295-0.212355593630163458*%i -0.198923241476530482+0.219693383394633845*%i 0.259374551315559143+0.152315389993061961*%i 
- 0.191359168939230689-0.197567749205550591*%i -0.186588090699604608-0.203436398574806665*%i -0.235899979077726946+0.149236560997593054*%i ];
+yref=[-0.204710539394216295-0.212355593630163458*%i -0.198923241476530482+0.219693383394633845*%i 0.259374551315559143+0.152315389993061961*%i
+0.191359168939230689-0.197567749205550591*%i -0.186588090699604608-0.203436398574806665*%i -0.235899979077726946+0.149236560997593054*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[0.0200000000000000004
- 1.02000000000000002
- 2.02000000000000002];
+1.02000000000000002
+2.02000000000000002];
 x=[];
 yref=[];
 y=besselh(alpha,x);
@@ -684,8 +684,8 @@ yref=[];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[0.0200000000000000004
- 1.02000000000000002
- 2.02000000000000002];
+1.02000000000000002
+2.02000000000000002];
 x=[0];
 yref=[%nan
 %nan
@@ -703,113 +703,113 @@ yref=[%nan
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[0.0200000000000000004
- 1.02000000000000002
- 2.02000000000000002];
+1.02000000000000002
+2.02000000000000002];
 x=[9.99999999999999955e-08];
-yref=[ 0.722522753107867954-10.5435018262277929*%i 
-3.59141267836093903e-08-8811068.85048608482*%i 
- 0.0009765625-179745804549905.625*%i ];
+yref=[ 0.722522753107867954-10.5435018262277929*%i
+3.59141267836093903e-08-8811068.85048608482*%i
+0.0009765625-179745804549905.625*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.722522753107867954+10.5435018262277929*%i 
-3.59141267836093903e-08+8811068.85048608482*%i 
- 0.0009765625+179745804549905.625*%i ];
+yref=[ 0.722522753107867954+10.5435018262277929*%i
+3.59141267836093903e-08+8811068.85048608482*%i
+0.0009765625+179745804549905.625*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.722521698757681685-10.5435018984800166*%i 
--0.881106849177740514-8811068.85048604198*%i 
- -17974580.4541015625-179745804549904.75*%i ];
+yref=[ 0.722521698757681685-10.5435018984800166*%i
+-0.881106849177740514-8811068.85048604198*%i
+-17974580.4541015625-179745804549904.75*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[0.0200000000000000004
- 1.02000000000000002
- 2.02000000000000002];
+1.02000000000000002
+2.02000000000000002];
 x=[1];
-yref=[0.767624213200681527+0.0643040307807657419*%i 
-0.430847058235354241-0.793245652497184595*%i 
+yref=[0.767624213200681527+0.0643040307807657419*%i
+0.430847058235354241-0.793245652497184595*%i
 0.111303785599441013-1.68252516187502232*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[0.767624213200681527-0.0643040307807657419*%i 
-0.430847058235354241+0.793245652497184595*%i 
+yref=[0.767624213200681527-0.0643040307807657419*%i
+0.430847058235354241+0.793245652497184595*%i
 0.111303785599441013+1.68252516187502232*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.468859108540752967-0.61118988653690054*%i 
--0.434705541360321801-0.791137753558994627*%i 
- -1.3556584129158098-1.00273113072344833*%i ];
+yref=[ 0.468859108540752967-0.61118988653690054*%i
+-0.434705541360321801-0.791137753558994627*%i
+-1.3556584129158098-1.00273113072344833*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[0.0200000000000000004
- 1.02000000000000002
- 2.02000000000000002];
+1.02000000000000002
+2.02000000000000002];
 x=[3 4 5];
-yref=[-0.248113342531625036+0.384820425921874987*%i 0.34741032197772298+0.316452158174697407*%i 0.484352361476476645-0.169632958363080733*%i 
--0.397488017750936229-0.00447693217669133808*%i -0.0555197528009769292+0.399776541248366868*%i 0.369172943822437927+0.208362968213358424*%i 
+yref=[-0.248113342531625036+0.384820425921874987*%i 0.34741032197772298+0.316452158174697407*%i 0.484352361476476645-0.169632958363080733*%i
+-0.397488017750936229-0.00447693217669133808*%i -0.0555197528009769292+0.399776541248366868*%i 0.369172943822437927+0.208362968213358424*%i
 -0.187188738237360874-0.302795423995985136*%i -0.323527150348925874+0.15685459545204769*%i 0.055189660894999118+0.366792098940420641*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[-0.248113342531625036-0.384820425921874987*%i 0.34741032197772298-0.316452158174697407*%i 0.484352361476476645+0.169632958363080733*%i 
--0.397488017750936229+0.00447693217669133808*%i -0.0555197528009769292-0.399776541248366868*%i 0.369172943822437927-0.208362968213358424*%i 
+yref=[-0.248113342531625036-0.384820425921874987*%i 0.34741032197772298-0.316452158174697407*%i 0.484352361476476645+0.169632958363080733*%i
+-0.397488017750936229+0.00447693217669133808*%i -0.0555197528009769292-0.399776541248366868*%i 0.369172943822437927-0.208362968213358424*%i
 -0.187188738237360874+0.302795423995985136*%i -0.323527150348925874-0.15685459545204769*%i 0.055189660894999118-0.366792098940420641*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[0.299936209020461475-0.345955577303420303*%i -0.299275880887315104-0.36231180956354514*%i -0.503443808023835704+0.0995835468002096852*%i 
-0.263203660615266066-0.297893605530577366*%i -0.266261751732053742-0.303328873416572331*%i -0.398997153998613463+0.143195880088125477*%i 
+yref=[0.299936209020461475-0.345955577303420303*%i -0.299275880887315104-0.36231180956354514*%i -0.503443808023835704+0.0995835468002096852*%i
+0.263203660615266066-0.297893605530577366*%i -0.266261751732053742-0.303328873416572331*%i -0.398997153998613463+0.143195880088125477*%i
 0.237259515744153937-0.265391436758334764*%i -0.242184097696100997-0.265744320636297771*%i -0.336070627604163175+0.156967753938725224*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[0.0200000000000000004
- 1.02000000000000002
- 2.02000000000000002];
+1.02000000000000002
+2.02000000000000002];
 x=[-7.29999999999999982 8.40000000000000036];
-yref=[ -0.2861015270808977+0.07180391829547704*%i 0.0922605432719850876+0.281660571010428407*%i 0.260319128687082679-0.150514543618939234*%i 
+yref=[ -0.2861015270808977+0.07180391829547704*%i 0.0922605432719850876+0.281660571010428407*%i 0.260319128687082679-0.150514543618939234*%i
 0.0774792372615422525+0.26392041753001122*%i 0.269158266698861615-0.0613287659781691918*%i -0.0121122296346758626-0.278814546410423747*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.865048002509834491-0.0353796934361930923*%i -0.240752697743061989-0.291002905498753572*%i -0.797769166428211829+0.116701053328995441*%i 
+yref=[ 0.865048002509834491-0.0353796934361930923*%i -0.240752697743061989-0.291002905498753572*%i -0.797769166428211829+0.116701053328995441*%i
 0.0774792372615422525-0.26392041753001122*%i 0.269158266698861615+0.0613287659781691918*%i -0.0121122296346758626+0.278814546410423747*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[-0.211576262708756763-0.205536788772230028*%i -0.190998266617662588+0.226637038578893113*%i 0.26495112077725419+0.14220260264881332*%i 
- 0.185312011803817039-0.203264549976300057*%i -0.192182330497776832-0.198175028480340659*%i -0.231984863496134286+0.155136328773931631*%i ];
+yref=[-0.211576262708756763-0.205536788772230028*%i -0.190998266617662588+0.226637038578893113*%i 0.26495112077725419+0.14220260264881332*%i
+0.185312011803817039-0.203264549976300057*%i -0.192182330497776832-0.198175028480340659*%i -0.231984863496134286+0.155136328773931631*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[0.0200000000000000004
- 1.02000000000000002
- 2.02000000000000002];
+1.02000000000000002
+2.02000000000000002];
 x=[3
 4
 5];
-yref=[ -0.248113342531625036+0.384820425921874987*%i 
--0.0555197528009769431+0.399776541248366868*%i 
- 0.0551896608949991249+0.366792098940420641*%i ];
+yref=[ -0.248113342531625036+0.384820425921874987*%i
+-0.0555197528009769431+0.399776541248366868*%i
+0.0551896608949991249+0.366792098940420641*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ -0.248113342531625036-0.384820425921874987*%i 
--0.0555197528009769431-0.399776541248366868*%i 
- 0.0551896608949991249-0.366792098940420641*%i ];
+yref=[ -0.248113342531625036-0.384820425921874987*%i
+-0.0555197528009769431-0.399776541248366868*%i
+0.0551896608949991249-0.366792098940420641*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.299936209020461475-0.345955577303420303*%i 
--0.266261751732053742-0.303328873416572331*%i 
+yref=[ 0.299936209020461475-0.345955577303420303*%i
+-0.266261751732053742-0.303328873416572331*%i
 -0.336070627604163175+0.156967753938725224*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[0.0200000000000000004
- 1.02000000000000002
- 2.02000000000000002];
+1.02000000000000002
+2.02000000000000002];
 x=[-7.29999999999999982+0.0200000000000000004*%i 8.40000000000000036+0.0200000000000000004*%i ];
-yref=[-0.280518747912432531+0.0699962983078473294*%i 0.0900627485375180697+0.276248225205322884*%i 0.255562216836810185-0.147262806532555718*%i 
+yref=[-0.280518747912432531+0.0699962983078473294*%i 0.0900627485375180697+0.276248225205322884*%i 0.255562216836810185-0.147262806532555718*%i
 0.0762491476344531877+0.258594841647395546*%i 0.263784667726966349-0.0604384587417038308*%i -0.0122224672719179299-0.273425197533148701*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.859392120978805685-0.0306266274001191323*%i -0.239301736230959433-0.274428712544276476*%i -0.792729368128768042+0.107498932694273241*%i 
+yref=[ 0.859392120978805685-0.0306266274001191323*%i -0.239301736230959433-0.274428712544276476*%i -0.792729368128768042+0.107498932694273241*%i
 0.0787275103035753876-0.269354514879212581*%i 0.274640078092432294+0.0622303207195611732*%i -0.0119936004153480373+0.284308702506610222*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[-0.211285760234088904-0.205815354225449693*%i -0.191340413986076152+0.226403734315470978*%i 0.264929169130263764+0.142693333701389785*%i 
- 0.185064066088280632-0.203476918530006629*%i -0.192441625422114404-0.197965053817515446*%i -0.231914093404297944+0.155511238858410061*%i ];
+yref=[-0.211285760234088904-0.205815354225449693*%i -0.191340413986076152+0.226403734315470978*%i 0.264929169130263764+0.142693333701389785*%i
+0.185064066088280632-0.203476918530006629*%i -0.192441625422114404-0.197965053817515446*%i -0.231914093404297944+0.155511238858410061*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[-1];
@@ -882,33 +882,33 @@ alpha=[-1];
 x=[3
 4
 5];
-yref=[-0.339058958525936538-0.324674424791800087*%i 
-0.0660433280235491887-0.397925710557099965*%i 
- 0.327579137591465286-0.147863143391226859*%i ];
+yref=[-0.339058958525936538-0.324674424791800087*%i
+0.0660433280235491887-0.397925710557099965*%i
+0.327579137591465286-0.147863143391226859*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[-0.339058958525936538+0.324674424791800087*%i 
-0.0660433280235491887+0.397925710557099965*%i 
- 0.327579137591465286+0.147863143391226859*%i ];
+yref=[-0.339058958525936538+0.324674424791800087*%i
+0.0660433280235491887+0.397925710557099965*%i
+0.327579137591465286+0.147863143391226859*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[0.289847767402387269+0.369273247341898037*%i 
-0.257982370633597746+0.310083357729930509*%i 
+yref=[0.289847767402387269+0.369273247341898037*%i
+0.257982370633597746+0.310083357729930509*%i
 0.234711371607197739+0.272180404505854456*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[-1];
 x=[-7.29999999999999982
- 8.40000000000000036];
-yref=[-0.0825704304932578653-0.284594371868072016*%i 
- -0.270786268276835496+0.0534845083974161278*%i ];
+8.40000000000000036];
+yref=[-0.0825704304932578653-0.284594371868072016*%i
+-0.270786268276835496+0.0534845083974161278*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.247711291479773887+0.284594371868071905*%i 
+yref=[ 0.247711291479773887+0.284594371868071905*%i
 -0.270786268276835496-0.0534845083974161278*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[0.198591028778410006-0.219939618485522376*%i 
+yref=[0.198591028778410006-0.219939618485522376*%i
 0.186324039282828008+0.203639750812897008*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
@@ -953,102 +953,102 @@ if testresult() then bugmes();quit;end
 alpha=[ -1
 -1.5];
 x=[9.99999999999999955e-08];
-yref=[-5.03898043091051198e-08+6366197.72367634624*%i 
- -25231325220.2017288-1.0872797214348254e-06*%i ];
+yref=[-5.03898043091051198e-08+6366197.72367634624*%i
+-25231325220.2017288-1.0872797214348254e-06*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[-5.03898043091051198e-08-6366197.72367634624*%i 
- -25231325220.2017288+1.0872797214348254e-06*%i ];
+yref=[-5.03898043091051198e-08-6366197.72367634624*%i
+-25231325220.2017288+1.0872797214348254e-06*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[0.636619721977829234+6366197.72367631458*%i 
+yref=[0.636619721977829234+6366197.72367631458*%i
 -25231325220.2016029+2523.1325234030769*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[ -1
 -1.5];
 x=[1];
-yref=[-0.440050585744933553+0.781212821300288907*%i 
- -1.10249557516017949-0.240297839123426921*%i ];
+yref=[-0.440050585744933553+0.781212821300288907*%i
+-1.10249557516017949-0.240297839123426921*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[-0.440050585744933553-0.781212821300288907*%i 
- -1.10249557516017949+0.240297839123426921*%i ];
+yref=[-0.440050585744933553-0.781212821300288907*%i
+-1.10249557516017949+0.240297839123426921*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.419607575907496144+0.792380888474382039*%i 
+yref=[ 0.419607575907496144+0.792380888474382039*%i
 -0.797884560802865517+0.797884560802865628*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[ -1
 -1.5];
 x=[3 4 5];
-yref=[-0.339058958525936538-0.324674424791800087*%i 0.0870080907208351517-0.477718215087091835*%i 
-0.0660433280235491887-0.397925710557099965*%i 0.367112032460934101-0.185285948354268981*%i 
- 0.327579137591465286-0.147863143391226859*%i 0.3219244429611402+0.169651306144740777*%i ];
+yref=[-0.339058958525936538-0.324674424791800087*%i 0.0870080907208351517-0.477718215087091835*%i
+0.0660433280235491887-0.397925710557099965*%i 0.367112032460934101-0.185285948354268981*%i
+0.327579137591465286-0.147863143391226859*%i 0.3219244429611402+0.169651306144740777*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[-0.339058958525936538+0.324674424791800087*%i 0.0870080907208351517+0.477718215087091835*%i 
-0.0660433280235491887+0.397925710557099965*%i 0.367112032460934101+0.185285948354268981*%i 
- 0.327579137591465286+0.147863143391226859*%i 0.3219244429611402-0.169651306144740777*%i ];
+yref=[-0.339058958525936538+0.324674424791800087*%i 0.0870080907208351517+0.477718215087091835*%i
+0.0660433280235491887+0.397925710557099965*%i 0.367112032460934101+0.185285948354268981*%i
+0.327579137591465286+0.147863143391226859*%i 0.3219244429611402-0.169651306144740777*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[0.289847767402387269+0.369273247341898037*%i -0.153552955320593432+0.460658865961780795*%i 
-0.257982370633597746+0.310083357729930509*%i -0.099735570100358148+0.398942280401432703*%i 
+yref=[0.289847767402387269+0.369273247341898037*%i -0.153552955320593432+0.460658865961780795*%i
+0.257982370633597746+0.310083357729930509*%i -0.099735570100358148+0.398942280401432703*%i
 0.234711371607197739+0.272180404505854456*%i -0.0713649646461108761+0.356824823230554311*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[ -1
 -1.5];
 x=[-7.29999999999999982 8.40000000000000036];
-yref=[-0.0825704304932578653-0.284594371868072016*%i 0.120953010973630551-0.272424375376841443*%i 
- -0.270786268276835496+0.0534845083974161278*%i -0.218249100772301557-0.170966347821113224*%i ];
+yref=[-0.0825704304932578653-0.284594371868072016*%i 0.120953010973630551-0.272424375376841443*%i
+-0.270786268276835496+0.0534845083974161278*%i -0.218249100772301557-0.170966347821113224*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.247711291479773887+0.284594371868071905*%i -0.12095301097362865-0.27242437537684111*%i 
+yref=[ 0.247711291479773887+0.284594371868071905*%i -0.12095301097362865-0.27242437537684111*%i
 -0.270786268276835496-0.0534845083974161278*%i -0.218249100772301557+0.170966347821113224*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[0.198591028778410006-0.219939618485522376*%i 0.295310324905105781-0.0404534691650830225*%i 
+yref=[0.198591028778410006-0.219939618485522376*%i 0.295310324905105781-0.0404534691650830225*%i
 0.186324039282828008+0.203639750812897008*%i -0.0327733723655391565+0.275296327870529045*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[ -1
 -1.5];
 x=[-7.29999999999999982
- 8.40000000000000036];
-yref=[-0.0825704304932578653-0.284594371868072016*%i 
- -0.218249100772301557-0.170966347821113224*%i ];
+8.40000000000000036];
+yref=[-0.0825704304932578653-0.284594371868072016*%i
+-0.218249100772301557-0.170966347821113224*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.247711291479773887+0.284594371868071905*%i 
+yref=[ 0.247711291479773887+0.284594371868071905*%i
 -0.218249100772301557+0.170966347821113224*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.198591028778410006-0.219939618485522376*%i 
+yref=[ 0.198591028778410006-0.219939618485522376*%i
 -0.0327733723655391565+0.275296327870529045*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[ -1
 -1.5];
 x=[-7.29999999999999982+0.0200000000000000004*%i 8.40000000000000036+0.0200000000000000004*%i ];
-yref=[-0.0805588566675057155-0.279108983487138917*%i 0.118980970251344659-0.266959004819083301*%i 
- -0.265388401248268402+0.0527501414166842708*%i -0.214192031331076199-0.167365441205606091*%i ];
+yref=[-0.0805588566675057155-0.279108983487138917*%i 0.118980970251344659-0.266959004819083301*%i
+-0.265388401248268402+0.0527501414166842708*%i -0.214192031331076199-0.167365441205606091*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.245747300872035002+0.268032077903665344*%i -0.122956267664942304-0.277999563638954672*%i 
+yref=[ 0.245747300872035002+0.268032077903665344*%i -0.122956267664942304-0.277999563638954672*%i
 -0.276292676347178967-0.0542269854219353462*%i -0.222382024788788296+0.174643212333444514*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[0.198923241476530482-0.219693383394633845*%i 0.295475738987752923-0.040048367037329724*%i 
+yref=[0.198923241476530482-0.219693383394633845*%i 0.295475738987752923-0.040048367037329724*%i
 0.186588090699604608+0.203436398574806665*%i -0.032445291449234602+0.275412789424954285*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[-3
 -2
 -1
- 0
- 1];
+0
+1];
 x=[];
 yref=[];
 y=besselh(alpha,x);
@@ -1062,8 +1062,8 @@ if testresult() then bugmes();quit;end
 alpha=[-3
 -2
 -1
- 0
- 1];
+0
+1];
 x=[0];
 yref=[%nan
 %nan
@@ -1089,118 +1089,118 @@ if testresult() then bugmes();quit;end
 alpha=[-3
 -2
 -1
- 0
- 1];
+0
+1];
 x=[9.99999999999999955e-08];
-yref=[ -311843.447284119495+5.09295817894065707e+21*%i 
- 1.27222187258540667e-15-127323954473516.594*%i 
--5.03898043091051198e-08+6366197.72367634624*%i 
- 0.999999999999997446-10.3349026794206473*%i 
- 5.03898043091051198e-08-6366197.72367634624*%i ];
+yref=[ -311843.447284119495+5.09295817894065707e+21*%i
+1.27222187258540667e-15-127323954473516.594*%i
+-5.03898043091051198e-08+6366197.72367634624*%i
+0.999999999999997446-10.3349026794206473*%i
+5.03898043091051198e-08-6366197.72367634624*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ -311843.447284119495-5.09295817894065707e+21*%i 
- 1.27222187258540667e-15+127323954473516.594*%i 
--5.03898043091051198e-08-6366197.72367634624*%i 
- 0.999999999999997446+10.3349026794206473*%i 
- 5.03898043091051198e-08+6366197.72367634624*%i ];
+yref=[ -311843.447284119495-5.09295817894065707e+21*%i
+1.27222187258540667e-15+127323954473516.594*%i
+-5.03898043091051198e-08-6366197.72367634624*%i
+0.999999999999997446+10.3349026794206473*%i
+5.03898043091051198e-08+6366197.72367634624*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[ 509295817582221.438+5.09295817894063191e+21*%i 
- -12732395.4473516364-127323954473515.953*%i 
- 0.636619721977829234+6366197.72367631458*%i 
- 0.999998966509724529-10.3349027794205952*%i 
+yref=[ 509295817582221.438+5.09295817894063191e+21*%i
+-12732395.4473516364-127323954473515.953*%i
+0.636619721977829234+6366197.72367631458*%i
+0.999998966509724529-10.3349027794205952*%i
 -0.636619721977829234-6366197.72367631458*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[-3
 -2
 -1
- 0
- 1];
+0
+1];
 x=[1];
-yref=[-0.0195633539826691495+5.82151760596473089*%i 
- 0.114903484931900571-1.65068260681625478*%i 
- -0.440050585744933553+0.781212821300288907*%i 
- 0.765197686557966383+0.0882569642156769973*%i 
- 0.440050585744933553-0.781212821300288907*%i ];
+yref=[-0.0195633539826691495+5.82151760596473089*%i
+0.114903484931900571-1.65068260681625478*%i
+-0.440050585744933553+0.781212821300288907*%i
+0.765197686557966383+0.0882569642156769973*%i
+0.440050585744933553-0.781212821300288907*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[-0.0195633539826691495-5.82151760596473089*%i 
- 0.114903484931900571+1.65068260681625478*%i 
- -0.440050585744933553-0.781212821300288907*%i 
- 0.765197686557966383-0.0882569642156769973*%i 
- 0.440050585744933553+0.781212821300288907*%i ];
+yref=[-0.0195633539826691495-5.82151760596473089*%i
+0.114903484931900571+1.65068260681625478*%i
+-0.440050585744933553-0.781212821300288907*%i
+0.765197686557966383-0.0882569642156769973*%i
+0.440050585744933553+0.781212821300288907*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[ 4.88806802770029858+3.16184138089665856*%i 
- -1.32691890090194864-0.988555567342760066*%i 
- 0.419607575907496144+0.792380888474382039*%i 
- 0.487703749086956295-0.596206209606004012*%i 
+yref=[ 4.88806802770029858+3.16184138089665856*%i
+-1.32691890090194864-0.988555567342760066*%i
+0.419607575907496144+0.792380888474382039*%i
+0.487703749086956295-0.596206209606004012*%i
 -0.419607575907496144-0.792380888474382039*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[-3
 -2
 -1
- 0
- 1];
+0
+1];
 x=[3 4 5];
-yref=[-0.309062722255251721+0.538541616105031817*%i 0.486091260585891194-0.160400393484923798*%i -0.339058958525936538-0.324674424791800087*%i -0.260051954901933502+0.376850010012790504*%i 0.339058958525936538+0.324674424791800087*%i 
--0.430171473875621879+0.182022115953484942*%i 0.36412814585207276+0.215903594603614996*%i 0.0660433280235491887-0.397925710557099965*%i -0.397149809863847292-0.0169407393250650198*%i -0.0660433280235491887+0.397925710557099965*%i 
+yref=[-0.309062722255251721+0.538541616105031817*%i 0.486091260585891194-0.160400393484923798*%i -0.339058958525936538-0.324674424791800087*%i -0.260051954901933502+0.376850010012790504*%i 0.339058958525936538+0.324674424791800087*%i
+-0.430171473875621879+0.182022115953484942*%i 0.36412814585207276+0.215903594603614996*%i 0.0660433280235491887-0.397925710557099965*%i -0.397149809863847292-0.0169407393250650198*%i -0.0660433280235491887+0.397925710557099965*%i
 -0.364831230613667068-0.146267162693192898*%i 0.0465651162777522137+0.367662882605524655*%i 0.327579137591465286-0.147863143391226859*%i -0.177596771314338348-0.308517625249033867*%i -0.327579137591465286+0.147863143391226859*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[-0.309062722255251721-0.538541616105031817*%i 0.486091260585891194+0.160400393484923798*%i -0.339058958525936538+0.324674424791800087*%i -0.260051954901933502-0.376850010012790504*%i 0.339058958525936538-0.324674424791800087*%i 
--0.430171473875621879-0.182022115953484942*%i 0.36412814585207276-0.215903594603614996*%i 0.0660433280235491887+0.397925710557099965*%i -0.397149809863847292+0.0169407393250650198*%i -0.0660433280235491887-0.397925710557099965*%i 
+yref=[-0.309062722255251721-0.538541616105031817*%i 0.486091260585891194+0.160400393484923798*%i -0.339058958525936538+0.324674424791800087*%i -0.260051954901933502-0.376850010012790504*%i 0.339058958525936538-0.324674424791800087*%i
+-0.430171473875621879-0.182022115953484942*%i 0.36412814585207276-0.215903594603614996*%i 0.0660433280235491887+0.397925710557099965*%i -0.397149809863847292+0.0169407393250650198*%i -0.0660433280235491887-0.397925710557099965*%i
 -0.364831230613667068+0.146267162693192898*%i 0.0465651162777522137-0.367662882605524655*%i 0.327579137591465286+0.147863143391226859*%i -0.177596771314338348+0.308517625249033867*%i -0.327579137591465286-0.147863143391226859*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.381968773216922741-0.489537225195393555*%i -0.503862405464482466+0.090197983390121611*%i 0.289847767402387269+0.369273247341898037*%i 0.31063056052955762-0.336380148284720293*%i -0.289847767402387269-0.369273247341898037*%i 
- 0.143424048221471756-0.444532439788452083*%i -0.401406418855069447+0.134449082058521574*%i 0.257982370633597746+0.310083357729930509*%i 0.272415233538270574-0.289490760923486856*%i -0.257982370633597746-0.310083357729930509*%i 
+yref=[ 0.381968773216922741-0.489537225195393555*%i -0.503862405464482466+0.090197983390121611*%i 0.289847767402387269+0.369273247341898037*%i 0.31063056052955762-0.336380148284720293*%i -0.289847767402387269-0.369273247341898037*%i
+0.143424048221471756-0.444532439788452083*%i -0.401406418855069447+0.134449082058521574*%i 0.257982370633597746+0.310083357729930509*%i 0.272415233538270574-0.289490760923486856*%i -0.257982370633597746-0.310083357729930509*%i
 0.0367703086914941552-0.391335986221727217*%i -0.339352100373364829+0.148944477144840881*%i 0.234711371607197739+0.272180404505854456*%i 0.245467551730485706-0.257816638947182653*%i -0.234711371607197739-0.272180404505854456*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[-3
 -2
 -1
- 0
- 1];
+0
+1];
 x=[-7.29999999999999982 8.40000000000000036];
-yref=[0.228101889059524665+0.207473852876394915*%i 0.265594911883436868-0.140744947159810813*%i -0.0825704304932578653-0.284594371868072016*%i -0.288216947635014376+0.0627738863740376352*%i 0.0825704304932578653+0.284594371868072016*%i 
+yref=[0.228101889059524665+0.207473852876394915*%i 0.265594911883436868-0.140744947159810813*%i -0.0825704304932578653-0.284594371868072016*%i -0.288216947635014376+0.0627738863740376352*%i 0.0825704304932578653+0.284594371868072016*%i
 0.273016906676212145+0.0793518126145812824*%i -0.00468434063869102493-0.278956274125194581*%i -0.270786268276835496+0.0534845083974161278*%i 0.0691572616569851861+0.266221867363905018*%i 0.270786268276835496-0.0534845083974161278*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[-0.684305667178574106-0.207473852876394582*%i -0.796784735650310605+0.14074494715981109*%i 0.247711291479773887+0.284594371868071905*%i 0.864650842905043127-0.0627738863740379682*%i -0.247711291479773887-0.284594371868071905*%i 
- 0.273016906676212145-0.0793518126145812824*%i -0.00468434063869102493+0.278956274125194581*%i -0.270786268276835496-0.0534845083974161278*%i 0.0691572616569851861-0.266221867363905018*%i 0.270786268276835496+0.0534845083974161278*%i ];
+yref=[-0.684305667178574106-0.207473852876394582*%i -0.796784735650310605+0.14074494715981109*%i 0.247711291479773887+0.284594371868071905*%i 0.864650842905043127-0.0627738863740379682*%i -0.247711291479773887-0.284594371868071905*%i
+0.273016906676212145-0.0793518126145812824*%i -0.00468434063869102493+0.278956274125194581*%i -0.270786268276835496-0.0534845083974161278*%i 0.0691572616569851861-0.266221867363905018*%i 0.270786268276835496+0.0534845083974161278*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[ -0.056444086802614292+0.303133529133480351*%i 0.259418169105827268+0.151828886932523333*%i 0.198591028778410006-0.219939618485522376*%i -0.205009668070646411-0.212086316654584245*%i -0.198591028778410006+0.219939618485522376*%i 
+yref=[ -0.056444086802614292+0.303133529133480351*%i 0.259418169105827268+0.151828886932523333*%i 0.198591028778410006-0.219939618485522376*%i -0.205009668070646411-0.212086316654584245*%i -0.198591028778410006+0.219939618485522376*%i
 -0.0739606096037440097-0.274526446309476313*%i -0.235963202326076427+0.148862060542816477*%i 0.186324039282828008+0.203639750812897008*%i 0.191600335830164975-0.197347715498268128*%i -0.186324039282828008-0.203639750812897008*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[-3
 -2
 -1
- 0
- 1];
+0
+1];
 x=[-7.29999999999999982+0.0200000000000000004*%i 8.40000000000000036+0.0200000000000000004*%i ];
-yref=[0.223624092905500088+0.204064898970382769*%i 0.260718835711755859-0.13767078042426989*%i -0.0805588566675057155-0.279108983487138917*%i -0.282580089296005532+0.0611426719248229084*%i 0.0805588566675057155+0.279108983487138917*%i 
+yref=[0.223624092905500088+0.204064898970382769*%i 0.260718835711755859-0.13767078042426989*%i -0.0805588566675057155-0.279108983487138917*%i -0.282580089296005532+0.0611426719248229084*%i 0.0805588566675057155+0.279108983487138917*%i
 0.268049735447983994+0.077515061198177887*%i -0.00493747580632844518-0.273570232162209104*%i -0.265388401248268402+0.0527501414166842708*%i 0.0680949286455164587+0.260860299794333839*%i 0.265388401248268402-0.0527501414166842708*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[-0.679913121372516915-0.197190400008995986*%i -0.791998414023906472+0.131456891260273934*%i 0.245747300872035002+0.268032077903665344*%i 0.859124750279884219-0.0578395374887053712*%i -0.245747300872035002-0.268032077903665344*%i 
- 0.278074937671342448-0.0812281915443821972*%i -0.00442002466557511048+0.284446960322645992*%i -0.276292676347178967-0.0542269854219353462*%i 0.0702343630487119036-0.271692474123097438*%i 0.276292676347178967+0.0542269854219353462*%i ];
+yref=[-0.679913121372516915-0.197190400008995986*%i -0.791998414023906472+0.131456891260273934*%i 0.245747300872035002+0.268032077903665344*%i 0.859124750279884219-0.0578395374887053712*%i -0.245747300872035002-0.268032077903665344*%i
+0.278074937671342448-0.0812281915443821972*%i -0.00442002466557511048+0.284446960322645992*%i -0.276292676347178967-0.0542269854219353462*%i 0.0702343630487119036-0.271692474123097438*%i 0.276292676347178967+0.0542269854219353462*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[-0.0570299235953570793+0.303542619878177933*%i 0.259374551315559143+0.152315389993061961*%i 0.198923241476530482-0.219693383394633845*%i -0.204710539394216295-0.212355593630163458*%i -0.198923241476530482+0.219693383394633845*%i 
+yref=[-0.0570299235953570793+0.303542619878177933*%i 0.259374551315559143+0.152315389993061961*%i 0.198923241476530482-0.219693383394633845*%i -0.204710539394216295-0.212355593630163458*%i -0.198923241476530482+0.219693383394633845*%i
 -0.0744246056267901385-0.274768483538119612*%i -0.235899979077726946+0.149236560997593054*%i 0.186588090699604608+0.203436398574806665*%i 0.191359168939230689-0.197567749205550591*%i -0.186588090699604608-0.203436398574806665*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[-2
 -1
- 0
- 1];
+0
+1];
 x=[];
 yref=[];
 y=besselh(alpha,x);
@@ -1213,8 +1213,8 @@ y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[-2
 -1
- 0
- 1];
+0
+1];
 x=[0];
 yref=[%nan
 %nan
@@ -1236,108 +1236,108 @@ y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[-2
 -1
- 0
- 1];
+0
+1];
 x=[9.99999999999999955e-08];
-yref=[ 1.27222187258540667e-15-127323954473516.594*%i 
--5.03898043091051198e-08+6366197.72367634624*%i 
- 0.999999999999997446-10.3349026794206473*%i 
- 5.03898043091051198e-08-6366197.72367634624*%i ];
+yref=[ 1.27222187258540667e-15-127323954473516.594*%i
+-5.03898043091051198e-08+6366197.72367634624*%i
+0.999999999999997446-10.3349026794206473*%i
+5.03898043091051198e-08-6366197.72367634624*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ 1.27222187258540667e-15+127323954473516.594*%i 
--5.03898043091051198e-08-6366197.72367634624*%i 
- 0.999999999999997446+10.3349026794206473*%i 
- 5.03898043091051198e-08+6366197.72367634624*%i ];
+yref=[ 1.27222187258540667e-15+127323954473516.594*%i
+-5.03898043091051198e-08-6366197.72367634624*%i
+0.999999999999997446+10.3349026794206473*%i
+5.03898043091051198e-08+6366197.72367634624*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[ -12732395.4473516364-127323954473515.953*%i 
- 0.636619721977829234+6366197.72367631458*%i 
- 0.999998966509724529-10.3349027794205952*%i 
+yref=[ -12732395.4473516364-127323954473515.953*%i
+0.636619721977829234+6366197.72367631458*%i
+0.999998966509724529-10.3349027794205952*%i
 -0.636619721977829234-6366197.72367631458*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[-2
 -1
- 0
- 1];
+0
+1];
 x=[1];
-yref=[ 0.114903484931900571-1.65068260681625478*%i 
--0.440050585744933553+0.781212821300288907*%i 
- 0.765197686557966383+0.0882569642156769973*%i 
- 0.440050585744933553-0.781212821300288907*%i ];
+yref=[ 0.114903484931900571-1.65068260681625478*%i
+-0.440050585744933553+0.781212821300288907*%i
+0.765197686557966383+0.0882569642156769973*%i
+0.440050585744933553-0.781212821300288907*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.114903484931900571+1.65068260681625478*%i 
--0.440050585744933553-0.781212821300288907*%i 
- 0.765197686557966383-0.0882569642156769973*%i 
- 0.440050585744933553+0.781212821300288907*%i ];
+yref=[ 0.114903484931900571+1.65068260681625478*%i
+-0.440050585744933553-0.781212821300288907*%i
+0.765197686557966383-0.0882569642156769973*%i
+0.440050585744933553+0.781212821300288907*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[ -1.32691890090194864-0.988555567342760066*%i 
- 0.419607575907496144+0.792380888474382039*%i 
- 0.487703749086956295-0.596206209606004012*%i 
+yref=[ -1.32691890090194864-0.988555567342760066*%i
+0.419607575907496144+0.792380888474382039*%i
+0.487703749086956295-0.596206209606004012*%i
 -0.419607575907496144-0.792380888474382039*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[-2
 -1
- 0
- 1];
+0
+1];
 x=[3 4 5];
-yref=[ 0.486091260585891194-0.160400393484923798*%i -0.339058958525936538-0.324674424791800087*%i -0.260051954901933502+0.376850010012790504*%i 0.339058958525936538+0.324674424791800087*%i 
- 0.36412814585207276+0.215903594603614996*%i 0.0660433280235491887-0.397925710557099965*%i -0.397149809863847292-0.0169407393250650198*%i -0.0660433280235491887+0.397925710557099965*%i 
+yref=[ 0.486091260585891194-0.160400393484923798*%i -0.339058958525936538-0.324674424791800087*%i -0.260051954901933502+0.376850010012790504*%i 0.339058958525936538+0.324674424791800087*%i
+0.36412814585207276+0.215903594603614996*%i 0.0660433280235491887-0.397925710557099965*%i -0.397149809863847292-0.0169407393250650198*%i -0.0660433280235491887+0.397925710557099965*%i
 0.0465651162777522137+0.367662882605524655*%i 0.327579137591465286-0.147863143391226859*%i -0.177596771314338348-0.308517625249033867*%i -0.327579137591465286+0.147863143391226859*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.486091260585891194+0.160400393484923798*%i -0.339058958525936538+0.324674424791800087*%i -0.260051954901933502-0.376850010012790504*%i 0.339058958525936538-0.324674424791800087*%i 
- 0.36412814585207276-0.215903594603614996*%i 0.0660433280235491887+0.397925710557099965*%i -0.397149809863847292+0.0169407393250650198*%i -0.0660433280235491887-0.397925710557099965*%i 
+yref=[ 0.486091260585891194+0.160400393484923798*%i -0.339058958525936538+0.324674424791800087*%i -0.260051954901933502-0.376850010012790504*%i 0.339058958525936538-0.324674424791800087*%i
+0.36412814585207276-0.215903594603614996*%i 0.0660433280235491887+0.397925710557099965*%i -0.397149809863847292+0.0169407393250650198*%i -0.0660433280235491887-0.397925710557099965*%i
 0.0465651162777522137-0.367662882605524655*%i 0.327579137591465286+0.147863143391226859*%i -0.177596771314338348+0.308517625249033867*%i -0.327579137591465286-0.147863143391226859*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[-0.503862405464482466+0.090197983390121611*%i 0.289847767402387269+0.369273247341898037*%i 0.31063056052955762-0.336380148284720293*%i -0.289847767402387269-0.369273247341898037*%i 
--0.401406418855069447+0.134449082058521574*%i 0.257982370633597746+0.310083357729930509*%i 0.272415233538270574-0.289490760923486856*%i -0.257982370633597746-0.310083357729930509*%i 
+yref=[-0.503862405464482466+0.090197983390121611*%i 0.289847767402387269+0.369273247341898037*%i 0.31063056052955762-0.336380148284720293*%i -0.289847767402387269-0.369273247341898037*%i
+-0.401406418855069447+0.134449082058521574*%i 0.257982370633597746+0.310083357729930509*%i 0.272415233538270574-0.289490760923486856*%i -0.257982370633597746-0.310083357729930509*%i
 -0.339352100373364829+0.148944477144840881*%i 0.234711371607197739+0.272180404505854456*%i 0.245467551730485706-0.257816638947182653*%i -0.234711371607197739-0.272180404505854456*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[-2
 -1
- 0
- 1];
+0
+1];
 x=[-7.29999999999999982 8.40000000000000036];
-yref=[ 0.265594911883436868-0.140744947159810813*%i -0.0825704304932578653-0.284594371868072016*%i -0.288216947635014376+0.0627738863740376352*%i 0.0825704304932578653+0.284594371868072016*%i 
+yref=[ 0.265594911883436868-0.140744947159810813*%i -0.0825704304932578653-0.284594371868072016*%i -0.288216947635014376+0.0627738863740376352*%i 0.0825704304932578653+0.284594371868072016*%i
 -0.00468434063869102493-0.278956274125194581*%i -0.270786268276835496+0.0534845083974161278*%i 0.0691572616569851861+0.266221867363905018*%i 0.270786268276835496-0.0534845083974161278*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ -0.796784735650310605+0.14074494715981109*%i 0.247711291479773887+0.284594371868071905*%i 0.864650842905043127-0.0627738863740379682*%i -0.247711291479773887-0.284594371868071905*%i 
+yref=[ -0.796784735650310605+0.14074494715981109*%i 0.247711291479773887+0.284594371868071905*%i 0.864650842905043127-0.0627738863740379682*%i -0.247711291479773887-0.284594371868071905*%i
 -0.00468434063869102493+0.278956274125194581*%i -0.270786268276835496-0.0534845083974161278*%i 0.0691572616569851861-0.266221867363905018*%i 0.270786268276835496+0.0534845083974161278*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.259418169105827268+0.151828886932523333*%i 0.198591028778410006-0.219939618485522376*%i -0.205009668070646411-0.212086316654584245*%i -0.198591028778410006+0.219939618485522376*%i 
+yref=[ 0.259418169105827268+0.151828886932523333*%i 0.198591028778410006-0.219939618485522376*%i -0.205009668070646411-0.212086316654584245*%i -0.198591028778410006+0.219939618485522376*%i
 -0.235963202326076427+0.148862060542816477*%i 0.186324039282828008+0.203639750812897008*%i 0.191600335830164975-0.197347715498268128*%i -0.186324039282828008-0.203639750812897008*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[-2
 -1
- 0
- 1];
+0
+1];
 x=[-7.29999999999999982+0.0200000000000000004*%i 8.40000000000000036+0.0200000000000000004*%i ];
-yref=[ 0.260718835711755859-0.13767078042426989*%i -0.0805588566675057155-0.279108983487138917*%i -0.282580089296005532+0.0611426719248229084*%i 0.0805588566675057155+0.279108983487138917*%i 
+yref=[ 0.260718835711755859-0.13767078042426989*%i -0.0805588566675057155-0.279108983487138917*%i -0.282580089296005532+0.0611426719248229084*%i 0.0805588566675057155+0.279108983487138917*%i
 -0.00493747580632844518-0.273570232162209104*%i -0.265388401248268402+0.0527501414166842708*%i 0.0680949286455164587+0.260860299794333839*%i 0.265388401248268402-0.0527501414166842708*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ -0.791998414023906472+0.131456891260273934*%i 0.245747300872035002+0.268032077903665344*%i 0.859124750279884219-0.0578395374887053712*%i -0.245747300872035002-0.268032077903665344*%i 
+yref=[ -0.791998414023906472+0.131456891260273934*%i 0.245747300872035002+0.268032077903665344*%i 0.859124750279884219-0.0578395374887053712*%i -0.245747300872035002-0.268032077903665344*%i
 -0.00442002466557511048+0.284446960322645992*%i -0.276292676347178967-0.0542269854219353462*%i 0.0702343630487119036-0.271692474123097438*%i 0.276292676347178967+0.0542269854219353462*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.259374551315559143+0.152315389993061961*%i 0.198923241476530482-0.219693383394633845*%i -0.204710539394216295-0.212355593630163458*%i -0.198923241476530482+0.219693383394633845*%i 
+yref=[ 0.259374551315559143+0.152315389993061961*%i 0.198923241476530482-0.219693383394633845*%i -0.204710539394216295-0.212355593630163458*%i -0.198923241476530482+0.219693383394633845*%i
 -0.235899979077726946+0.149236560997593054*%i 0.186588090699604608+0.203436398574806665*%i 0.191359168939230689-0.197567749205550591*%i -0.186588090699604608-0.203436398574806665*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[ -1.30000000000000004
 -0.300000000000000044
- 0.699999999999999956
- 1.69999999999999996];
+0.699999999999999956
+1.69999999999999996];
 x=[];
 yref=[];
 y=besselh(alpha,x);
@@ -1350,8 +1350,8 @@ y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[ -1.30000000000000004
 -0.300000000000000044
- 0.699999999999999956
- 1.69999999999999996];
+0.699999999999999956
+1.69999999999999996];
 x=[0];
 yref=[%nan
 %nan
@@ -1373,109 +1373,109 @@ y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[ -1.30000000000000004
 -0.300000000000000044
- 0.699999999999999956
- 1.69999999999999996];
+0.699999999999999956
+1.69999999999999996];
 x=[9.99999999999999955e-08];
-yref=[ -716418914.617646098+520508809.337161541*%i 
- 119.403152436272933-86.7425820843251927*%i 
-8.52879747981205583e-06-53316.8312102425552*%i 
- 0.0001220703125-746435636856.653198*%i ];
+yref=[ -716418914.617646098+520508809.337161541*%i
+119.403152436272933-86.7425820843251927*%i
+8.52879747981205583e-06-53316.8312102425552*%i
+0.0001220703125-746435636856.653198*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ -716418914.617646098-520508809.337161541*%i 
- 119.403152436272933+86.7425820843251927*%i 
-8.52879747981205583e-06+53316.8312102425552*%i 
- 0.0001220703125+746435636856.653198*%i ];
+yref=[ -716418914.617646098-520508809.337161541*%i
+119.403152436272933+86.7425820843251927*%i
+8.52879747981205583e-06+53316.8312102425552*%i
+0.0001220703125+746435636856.653198*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[ -716418862.566761613+520508880.979050338*%i 
- 119.403143762014125-86.7425940246399847*%i 
--0.00532315432428731583-53316.8312102422933*%i 
- -74643.5635986328125-746435636856.649536*%i ];
+yref=[ -716418862.566761613+520508880.979050338*%i
+119.403143762014125-86.7425940246399847*%i
+-0.00532315432428731583-53316.8312102422933*%i
+-74643.5635986328125-746435636856.649536*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[ -1.30000000000000004
 -0.300000000000000044
- 0.699999999999999956
- 1.69999999999999996];
+0.699999999999999956
+1.69999999999999996];
 x=[1];
-yref=[-0.96267128684022385+0.314183689901754326*%i 
-0.633870726369384796+0.454431262899762989*%i 
-0.582348851018592462-0.586842447641611864*%i 
+yref=[-0.96267128684022385+0.314183689901754326*%i
+0.633870726369384796+0.454431262899762989*%i
+0.582348851018592462-0.586842447641611864*%i
 0.181417665056644584-1.27601068959802011*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[-0.96267128684022385-0.314183689901754326*%i 
-0.633870726369384796-0.454431262899762989*%i 
-0.582348851018592462+0.586842447641611864*%i 
+yref=[-0.96267128684022385-0.314183689901754326*%i
+0.633870726369384796-0.454431262899762989*%i
+0.582348851018592462+0.586842447641611864*%i
 0.181417665056644584+1.27601068959802011*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[-0.255757057120614473+0.97981412790380662*%i 
- 0.7248725373994509-0.287853565155630209*%i 
--0.179166465319056278-0.807101988810427939*%i 
+yref=[-0.255757057120614473+0.97981412790380662*%i
+0.7248725373994509-0.287853565155630209*%i
+-0.179166465319056278-0.807101988810427939*%i
 -0.975705588846130234-0.842089219178969395*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[ -1.30000000000000004
 -0.300000000000000044
- 0.699999999999999956
- 1.69999999999999996];
+0.699999999999999956
+1.69999999999999996];
 x=[3 4 5];
-yref=[-0.106536302179580572-0.46608061111318333*%i -0.406752056449066923+0.212390924829804678*%i 0.187886713469393868+0.423602426147222433*%i 0.494432522734784108-0.014709792627767504*%i 
- 0.268869311811565981-0.306380088504755344*%i -0.344459534063007222-0.19942551345146825*%i -0.21720038170211492+0.336293915522475506*%i 0.268439400467266942+0.317128383884334675*%i 
- 0.35944584577841987+0.0416545814756734967*%i -0.0150494093195696621-0.355966921924183777*%i -0.3576399166600715+0.00106144915522857208*%i -0.0850897673452503944+0.356264127687647869*%i ];
+yref=[-0.106536302179580572-0.46608061111318333*%i -0.406752056449066923+0.212390924829804678*%i 0.187886713469393868+0.423602426147222433*%i 0.494432522734784108-0.014709792627767504*%i
+0.268869311811565981-0.306380088504755344*%i -0.344459534063007222-0.19942551345146825*%i -0.21720038170211492+0.336293915522475506*%i 0.268439400467266942+0.317128383884334675*%i
+0.35944584577841987+0.0416545814756734967*%i -0.0150494093195696621-0.355966921924183777*%i -0.3576399166600715+0.00106144915522857208*%i -0.0850897673452503944+0.356264127687647869*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[-0.106536302179580572+0.46608061111318333*%i -0.406752056449066923-0.212390924829804678*%i 0.187886713469393868-0.423602426147222433*%i 0.494432522734784108+0.014709792627767504*%i 
- 0.268869311811565981+0.306380088504755344*%i -0.344459534063007222+0.19942551345146825*%i -0.21720038170211492-0.336293915522475506*%i 0.268439400467266942-0.317128383884334675*%i 
- 0.35944584577841987-0.0416545814756734967*%i -0.0150494093195696621+0.355966921924183777*%i -0.3576399166600715-0.00106144915522857208*%i -0.0850897673452503944-0.356264127687647869*%i ];
+yref=[-0.106536302179580572+0.46608061111318333*%i -0.406752056449066923-0.212390924829804678*%i 0.187886713469393868-0.423602426147222433*%i 0.494432522734784108+0.014709792627767504*%i
+0.268869311811565981+0.306380088504755344*%i -0.344459534063007222+0.19942551345146825*%i -0.21720038170211492-0.336293915522475506*%i 0.268439400467266942-0.317128383884334675*%i
+0.35944584577841987-0.0416545814756734967*%i -0.0150494093195696621+0.355966921924183777*%i -0.3576399166600715-0.00106144915522857208*%i -0.0850897673452503944-0.356264127687647869*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[0.0396968401765022405+0.476450711635252655*%i 0.432654092885201846-0.152864568443076054*%i -0.126227658753542527-0.4458777979466374*%i -0.491560333636854974-0.0552117372653547489*%i 
-0.0561245049814432517+0.403744356501480606*%i 0.376079503294072581-0.130334620206487478*%i -0.112536430475554117-0.384194163470507555*%i -0.415467253960516536-0.0041333370081901577*%i 
+yref=[0.0396968401765022405+0.476450711635252655*%i 0.432654092885201846-0.152864568443076054*%i -0.126227658753542527-0.4458777979466374*%i -0.491560333636854974-0.0552117372653547489*%i
+0.0561245049814432517+0.403744356501480606*%i 0.376079503294072581-0.130334620206487478*%i -0.112536430475554117-0.384194163470507555*%i -0.415467253960516536-0.0041333370081901577*%i
 0.0620176048412275638+0.356497176559695039*%i 0.337076374072698137-0.115405598941508536*%i -0.102466769729951307-0.342648504686714039*%i -0.365767069597084549+0.0194640176292286138*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[ -1.30000000000000004
 -0.300000000000000044
- 0.699999999999999956
- 1.69999999999999996];
+0.699999999999999956
+1.69999999999999996];
 x=[-7.29999999999999982 8.40000000000000036];
-yref=[0.0420367120856716403-0.294296885430083921*%i -0.285871190821628263-0.0732023688316385257*%i -0.0655329743449836188+0.288280252375428703*%i 0.298439158504227919+0.0179157450884056269*%i 
+yref=[0.0420367120856716403-0.294296885430083921*%i -0.285871190821628263-0.0732023688316385257*%i -0.0655329743449836188+0.288280252375428703*%i 0.298439158504227919+0.0179157450884056269*%i
 -0.262892922068786006-0.086280619148427995*%i -0.0606892109991265527+0.268366926287592067*%i 0.267227865711580748+0.0671115529850285913*%i 0.105227188617723372-0.257181667456753915*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.208809604864427539-0.0509634500368111726*%i 0.553022915362730627-0.294500434849446491*%i -0.163355666615431105+0.0267579348437040482*%i -0.521694431354299826+0.289368776112292503*%i 
+yref=[ 0.208809604864427539-0.0509634500368111726*%i 0.553022915362730627-0.294500434849446491*%i -0.163355666615431105+0.0267579348437040482*%i -0.521694431354299826+0.289368776112292503*%i
 -0.262892922068786006+0.086280619148427995*%i -0.0606892109991265527-0.268366926287592067*%i 0.267227865711580748-0.0671115529850285913*%i 0.105227188617723372+0.257181667456753915*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.272395417839566834-0.119073415491575602*%i -0.0881364311870380251-0.281625449918773474*%i -0.279639508074117915+0.0959261182379777672*%i 0.141765925886183919+0.263228660119709246*%i 
+yref=[ 0.272395417839566834-0.119073415491575602*%i -0.0881364311870380251-0.281625449918773474*%i -0.279639508074117915+0.0959261182379777672*%i 0.141765925886183919+0.263228660119709246*%i
 0.0627819887644752439+0.269472550738063421*%i 0.260861300871524204-0.0874949665087225992*%i -0.081414938826726943-0.263222910273154698*%i -0.274430457342645373+0.0436244814631968347*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[ -1.30000000000000004
 -0.300000000000000044
- 0.699999999999999956
- 1.69999999999999996];
+0.699999999999999956
+1.69999999999999996];
 x=[-7.29999999999999982+0.0200000000000000004*%i 8.40000000000000036+0.0200000000000000004*%i ];
-yref=[0.0416209715612942399-0.288486935012754131*%i -0.28010358610171443-0.0721332902155140676*%i -0.0646267682459302079+0.282495141853438825*%i 0.292646097237778458+0.017990502767282146*%i 
+yref=[0.0416209715612942399-0.288486935012754131*%i -0.28010358610171443-0.0721332902155140676*%i -0.0646267682459302079+0.282495141853438825*%i 0.292646097237778458+0.017990502767282146*%i
 -0.257841240101032931-0.0842758673723411206*%i -0.0591735817167325096+0.26311716547420122*%i 0.262023152985124297+0.0654718271887456127*%i 0.102869840386841327-0.252309232987196319*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.203155336114940382-0.0612984986078191629*%i 0.553905555294752938-0.290836180966331459*%i -0.157563702980964282+0.0375190635506771827*%i -0.523668372270335358+0.283723585718319904*%i 
+yref=[ 0.203155336114940382-0.0612984986078191629*%i 0.553905555294752938-0.290836180966331459*%i -0.157563702980964282+0.0375190635506771827*%i -0.523668372270335358+0.283723585718319904*%i
 -0.268042418096517854+0.0883312018516905356*%i -0.0622417085009255161-0.273720247940547168*%i 0.272534780013686639-0.0687904516700227342*%i 0.107636616697512302+0.262147089547452361*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.272634230972951086-0.118721332047866335*%i -0.087748953311749589-0.281736812085001009*%i -0.279782977722092485+0.095545296131978083*%i 0.141455761678950437+0.263560198603161933*%i 
+yref=[ 0.272634230972951086-0.118721332047866335*%i -0.087748953311749589-0.281736812085001009*%i -0.279782977722092485+0.095545296131978083*%i 0.141455761678950437+0.263560198603161933*%i
 0.0631218629428649258+0.269449807661711782*%i 0.26075102821782209-0.0878026901637817547*%i -0.0817318984576275442-0.263133877327358878*%i -0.274477351685756932+0.0439797256650979601*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[ -2.29999999999999982
- -1.30000000000000004
+-1.30000000000000004
 -0.300000000000000044
- 0.699999999999999956
- 1.69999999999999996];
+0.699999999999999956
+1.69999999999999996];
 x=[];
 yref=[];
 y=besselh(alpha,x);
@@ -1487,10 +1487,10 @@ yref=[];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[ -2.29999999999999982
- -1.30000000000000004
+-1.30000000000000004
 -0.300000000000000044
- 0.699999999999999956
- 1.69999999999999996];
+0.699999999999999956
+1.69999999999999996];
 x=[0];
 yref=[%nan
 %nan
@@ -1514,113 +1514,113 @@ yref=[%nan
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[ -2.29999999999999982
- -1.30000000000000004
+-1.30000000000000004
 -0.300000000000000044
- 0.699999999999999956
- 1.69999999999999996];
+0.699999999999999956
+1.69999999999999996];
 x=[9.99999999999999955e-08];
-yref=[ 18626891780058596-13533229042766080*%i 
- -716418914.617646098+520508809.337161541*%i 
- 119.403152436272933-86.7425820843251927*%i 
-8.52879747981205583e-06-53316.8312102425552*%i 
- 0.0001220703125-746435636856.653198*%i ];
+yref=[ 18626891780058596-13533229042766080*%i
+-716418914.617646098+520508809.337161541*%i
+119.403152436272933-86.7425820843251927*%i
+8.52879747981205583e-06-53316.8312102425552*%i
+0.0001220703125-746435636856.653198*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ 18626891780058596+13533229042766080*%i 
- -716418914.617646098-520508809.337161541*%i 
- 119.403152436272933+86.7425820843251927*%i 
-8.52879747981205583e-06+53316.8312102425552*%i 
- 0.0001220703125+746435636856.653198*%i ];
+yref=[ 18626891780058596+13533229042766080*%i
+-716418914.617646098-520508809.337161541*%i
+119.403152436272933+86.7425820843251927*%i
+8.52879747981205583e-06+53316.8312102425552*%i
+0.0001220703125+746435636856.653198*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[ 18626890426735600-13533230905455192*%i 
- -716418862.566761613+520508880.979050338*%i 
- 119.403143762014125-86.7425940246399847*%i 
--0.00532315432428731583-53316.8312102422933*%i 
- -74643.5635986328125-746435636856.649536*%i ];
+yref=[ 18626890426735600-13533230905455192*%i
+-716418862.566761613+520508880.979050338*%i
+119.403143762014125-86.7425940246399847*%i
+-0.00532315432428731583-53316.8312102422933*%i
+-74643.5635986328125-746435636856.649536*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[ -2.29999999999999982
- -1.30000000000000004
+-1.30000000000000004
 -0.300000000000000044
- 0.699999999999999956
- 1.69999999999999996];
+0.699999999999999956
+1.69999999999999996];
 x=[1];
-yref=[ 1.86907461941519504-1.2713088566443258*%i 
--0.96267128684022385+0.314183689901754326*%i 
-0.633870726369384796+0.454431262899762989*%i 
-0.582348851018592462-0.586842447641611864*%i 
+yref=[ 1.86907461941519504-1.2713088566443258*%i
+-0.96267128684022385+0.314183689901754326*%i
+0.633870726369384796+0.454431262899762989*%i
+0.582348851018592462-0.586842447641611864*%i
 0.181417665056644584-1.27601068959802011*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ 1.86907461941519504+1.2713088566443258*%i 
--0.96267128684022385-0.314183689901754326*%i 
-0.633870726369384796-0.454431262899762989*%i 
-0.582348851018592462+0.586842447641611864*%i 
+yref=[ 1.86907461941519504+1.2713088566443258*%i
+-0.96267128684022385-0.314183689901754326*%i
+0.633870726369384796-0.454431262899762989*%i
+0.582348851018592462+0.586842447641611864*%i
 0.181417665056644584+1.27601068959802011*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[-0.0599041888858562466-2.2596631673942662*%i 
- -0.255757057120614473+0.97981412790380662*%i 
- 0.7248725373994509-0.287853565155630209*%i 
- -0.179166465319056278-0.807101988810427939*%i 
- -0.975705588846130234-0.842089219178969395*%i ];
+yref=[-0.0599041888858562466-2.2596631673942662*%i
+-0.255757057120614473+0.97981412790380662*%i
+0.7248725373994509-0.287853565155630209*%i
+-0.179166465319056278-0.807101988810427939*%i
+-0.975705588846130234-0.842089219178969395*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[ -2.29999999999999982
- -1.30000000000000004
+-1.30000000000000004
 -0.300000000000000044
- 0.699999999999999956
- 1.69999999999999996];
+0.699999999999999956
+1.69999999999999996];
 x=[3 4 5];
-yref=[ 0.499083518338036936+0.191545604801620417*%i -0.106536302179580572-0.46608061111318333*%i -0.406752056449066923+0.212390924829804678*%i 0.187886713469393868+0.423602426147222433*%i 0.494432522734784108-0.014709792627767504*%i 
- 0.169694481385489565+0.398572570979558949*%i 0.268869311811565981-0.306380088504755344*%i -0.344459534063007222-0.19942551345146825*%i -0.21720038170211492+0.336293915522475506*%i 0.268439400467266942+0.317128383884334675*%i 
+yref=[ 0.499083518338036936+0.191545604801620417*%i -0.106536302179580572-0.46608061111318333*%i -0.406752056449066923+0.212390924829804678*%i 0.187886713469393868+0.423602426147222433*%i 0.494432522734784108-0.014709792627767504*%i
+0.169694481385489565+0.398572570979558949*%i 0.268869311811565981-0.306380088504755344*%i -0.344459534063007222-0.19942551345146825*%i -0.21720038170211492+0.336293915522475506*%i 0.268439400467266942+0.317128383884334675*%i
 -0.171862430485208495+0.334306539556833759*%i 0.35944584577841987+0.0416545814756734967*%i -0.0150494093195696621-0.355966921924183777*%i -0.3576399166600715+0.00106144915522857208*%i -0.0850897673452503944+0.356264127687647869*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.499083518338036936-0.191545604801620417*%i -0.106536302179580572+0.46608061111318333*%i -0.406752056449066923-0.212390924829804678*%i 0.187886713469393868-0.423602426147222433*%i 0.494432522734784108+0.014709792627767504*%i 
- 0.169694481385489565-0.398572570979558949*%i 0.268869311811565981+0.306380088504755344*%i -0.344459534063007222+0.19942551345146825*%i -0.21720038170211492-0.336293915522475506*%i 0.268439400467266942-0.317128383884334675*%i 
+yref=[ 0.499083518338036936-0.191545604801620417*%i -0.106536302179580572+0.46608061111318333*%i -0.406752056449066923-0.212390924829804678*%i 0.187886713469393868-0.423602426147222433*%i 0.494432522734784108+0.014709792627767504*%i
+0.169694481385489565-0.398572570979558949*%i 0.268869311811565981+0.306380088504755344*%i -0.344459534063007222+0.19942551345146825*%i -0.21720038170211492-0.336293915522475506*%i 0.268439400467266942-0.317128383884334675*%i
 -0.171862430485208495-0.334306539556833759*%i 0.35944584577841987-0.0416545814756734967*%i -0.0150494093195696621+0.355966921924183777*%i -0.3576399166600715-0.00106144915522857208*%i -0.0850897673452503944-0.356264127687647869*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[-0.467058021038170568-0.260059381640809106*%i 0.0396968401765022405+0.476450711635252655*%i 0.432654092885201846-0.152864568443076054*%i -0.126227658753542527-0.4458777979466374*%i -0.491560333636854974-0.0552117372653547489*%i 
--0.412560431532010941-0.132099211519474513*%i 0.0561245049814432517+0.403744356501480606*%i 0.376079503294072581-0.130334620206487478*%i -0.112536430475554117-0.384194163470507555*%i -0.415467253960516536-0.0041333370081901577*%i 
+yref=[-0.467058021038170568-0.260059381640809106*%i 0.0396968401765022405+0.476450711635252655*%i 0.432654092885201846-0.152864568443076054*%i -0.126227658753542527-0.4458777979466374*%i -0.491560333636854974-0.0552117372653547489*%i
+-0.412560431532010941-0.132099211519474513*%i 0.0561245049814432517+0.403744356501480606*%i 0.376079503294072581-0.130334620206487478*%i -0.112536430475554117-0.384194163470507555*%i -0.415467253960516536-0.0041333370081901577*%i
 -0.369325528590136676-0.069972932869532628*%i 0.0620176048412275638+0.356497176559695039*%i 0.337076374072698137-0.115405598941508536*%i -0.102466769729951307-0.342648504686714039*%i -0.365767069597084549+0.0194640176292286138*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[ -2.29999999999999982
- -1.30000000000000004
+-1.30000000000000004
 -0.300000000000000044
- 0.699999999999999956
- 1.69999999999999996];
+0.699999999999999956
+1.69999999999999996];
 x=[-7.29999999999999982 8.40000000000000036];
-yref=[0.300843170468579835-0.0316156999516793158*%i 0.0420367120856716403-0.294296885430083921*%i -0.285871190821628263-0.0732023688316385257*%i -0.0655329743449836188+0.288280252375428703*%i 0.298439158504227919+0.0179157450884056269*%i 
+yref=[0.300843170468579835-0.0316156999516793158*%i 0.0420367120856716403-0.294296885430083921*%i -0.285871190821628263-0.0732023688316385257*%i -0.0655329743449836188+0.288280252375428703*%i 0.298439158504227919+0.0179157450884056269*%i
 0.142060829734702965-0.241661020360697809*%i -0.262892922068786006-0.086280619148427995*%i -0.0606892109991265527+0.268366926287592067*%i 0.267227865711580748+0.0671115529850285913*%i 0.105227188617723372-0.257181667456753915*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[-0.478652371164440149+0.276349069082910681*%i 0.208809604864427539-0.0509634500368111726*%i 0.553022915362730627-0.294500434849446491*%i -0.163355666615431105+0.0267579348437040482*%i -0.521694431354299826+0.289368776112292503*%i 
- 0.142060829734702965+0.241661020360697809*%i -0.262892922068786006+0.086280619148427995*%i -0.0606892109991265527-0.268366926287592067*%i 0.267227865711580748-0.0671115529850285913*%i 0.105227188617723372+0.257181667456753915*%i ];
+yref=[-0.478652371164440149+0.276349069082910681*%i 0.208809604864427539-0.0509634500368111726*%i 0.553022915362730627-0.294500434849446491*%i -0.163355666615431105+0.0267579348437040482*%i -0.521694431354299826+0.289368776112292503*%i
+0.142060829734702965+0.241661020360697809*%i -0.262892922068786006+0.086280619148427995*%i -0.0606892109991265527-0.268366926287592067*%i 0.267227865711580748-0.0671115529850285913*%i 0.105227188617723372+0.257181667456753915*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.185153977266883929+0.239215740291636808*%i 0.272395417839566834-0.119073415491575602*%i -0.0881364311870380251-0.281625449918773474*%i -0.279639508074117915+0.0959261182379777672*%i 0.141765925886183919+0.263228660119709246*%i 
+yref=[ 0.185153977266883929+0.239215740291636808*%i 0.272395417839566834-0.119073415491575602*%i -0.0881364311870380251-0.281625449918773474*%i -0.279639508074117915+0.0959261182379777672*%i 0.141765925886183919+0.263228660119709246*%i
 -0.280293821203385529+0.00408679604217940251*%i 0.0627819887644752439+0.269472550738063421*%i 0.260861300871524204-0.0874949665087225992*%i -0.081414938826726943-0.263222910273154698*%i -0.274430457342645373+0.0436244814631968347*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
 alpha=[ -2.29999999999999982
- -1.30000000000000004
+-1.30000000000000004
 -0.300000000000000044
- 0.699999999999999956
- 1.69999999999999996];
+0.699999999999999956
+1.69999999999999996];
 x=[-7.29999999999999982+0.0200000000000000004*%i 8.40000000000000036+0.0200000000000000004*%i ];
-yref=[0.295208883882440876-0.0305740967814102649*%i 0.0416209715612942399-0.288486935012754131*%i -0.28010358610171443-0.0721332902155140676*%i -0.0646267682459302079+0.282495141853438825*%i 0.292646097237778458+0.017990502767282146*%i 
+yref=[0.295208883882440876-0.0305740967814102649*%i 0.0416209715612942399-0.288486935012754131*%i -0.28010358610171443-0.0721332902155140676*%i -0.0646267682459302079+0.282495141853438825*%i 0.292646097237778458+0.017990502767282146*%i
 0.139043239894831056-0.237221943806996016*%i -0.257841240101032931-0.0842758673723411206*%i -0.0591735817167325096+0.26311716547420122*%i 0.262023152985124297+0.0654718271887456127*%i 0.102869840386841327-0.252309232987196319*%i ];
 y=besselh(alpha,x);
 if testresult() then bugmes();quit;end
-yref=[-0.481489589165971232+0.269202238903625657*%i 0.203155336114940382-0.0612984986078191629*%i 0.553905555294752938-0.290836180966331459*%i -0.157563702980964282+0.0375190635506771827*%i -0.523668372270335358+0.283723585718319904*%i 
- 0.145141652219097028+0.246182257025218565*%i -0.268042418096517854+0.0883312018516905356*%i -0.0622417085009255161-0.273720247940547168*%i 0.272534780013686639-0.0687904516700227342*%i 0.107636616697512302+0.262147089547452361*%i ];
+yref=[-0.481489589165971232+0.269202238903625657*%i 0.203155336114940382-0.0612984986078191629*%i 0.553905555294752938-0.290836180966331459*%i -0.157563702980964282+0.0375190635506771827*%i -0.523668372270335358+0.283723585718319904*%i
+0.145141652219097028+0.246182257025218565*%i -0.268042418096517854+0.0883312018516905356*%i -0.0622417085009255161-0.273720247940547168*%i 0.272534780013686639-0.0687904516700227342*%i 0.107636616697512302+0.262147089547452361*%i ];
 y=besselh(alpha,2,x);
 if testresult() then bugmes();quit;end
-yref=[ 0.184966673823006966+0.239718851959764251*%i 0.272634230972951086-0.118721332047866335*%i -0.087748953311749589-0.281736812085001009*%i -0.279782977722092485+0.095545296131978083*%i 0.141455761678950437+0.263560198603161933*%i 
+yref=[ 0.184966673823006966+0.239718851959764251*%i 0.272634230972951086-0.118721332047866335*%i -0.087748953311749589-0.281736812085001009*%i -0.279782977722092485+0.095545296131978083*%i 0.141455761678950437+0.263560198603161933*%i
 -0.280487209938313775+0.00444855012972955599*%i 0.0631218629428649258+0.269449807661711782*%i 0.26075102821782209-0.0878026901637817547*%i -0.0817318984576275442-0.263133877327358878*%i -0.274477351685756932+0.0439797256650979601*%i ];
 y=besselh(alpha,1,x,1);
 if testresult() then bugmes();quit;end
index 91120fc..f28cc24 100644 (file)
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 function [x,y]=erf_ref()
-//reference Yr=erf(X) generee par Maple
-//pm:=array(1..1001):x:=-5:
-//for k from 1  to 1001 do
-//pm[k]:=evalf[24](erf(x)):
-//x:=x+0.01:end do;
-  x=-5:0.01:5;
-  y=[-0.999999999998462540205572
-     -0.999999999998297733894900
-     -0.999999999998115631480261
-     -0.999999999997914458007001
-     -0.999999999997692260661541
-     -0.999999999997446891397149
-     -0.999999999997175987908301
-     -0.999999999996876952801260
-     -0.999999999996546930794861
-     -0.999999999996182783770717
-     -0.999999999995781063475994
-     -0.999999999995337981664472
-     -0.999999999994849377442675
-     -0.999999999994310681567322
-     -0.999999999993716877418075
-     -0.999999999993062458345374
-     -0.999999999992341381066975
-     -0.999999999991547014758366
-     -0.999999999990672085451468
-     -0.999999999989708615322670
-     -0.999999999988647856415078
-     -0.999999999987480218300757
-     -0.999999999986195189146334
-     -0.999999999984781249599477
-     -0.999999999983225778864110
-     -0.999999999981514952278515
-     -0.999999999979633629652374
-     -0.999999999977565233555991
-     -0.999999999975291616686970
-     -0.999999999972792917366275
-     -0.999999999970047402136203
-     -0.999999999967031294347156
-     -0.999999999963718587527495
-     -0.999999999960080842230859
-     -0.999999999956086964947412
-     -0.999999999951702967549089
-     -0.999999999946891705613252
-     -0.999999999941612593833703
-     -0.999999999935821296581860
-     -0.999999999929469391523360
-     -0.999999999922504004025582
-     -0.999999999914867409908580
-     -0.999999999906496603894840
-     -0.999999999897322830900966
-     -0.999999999887271077085832
-     -0.999999999876259517323697
-     -0.999999999864198915505960
-     -0.999999999850991973790366
-     -0.999999999836532626610029
-     -0.999999999820705274925103
-     -0.999999999803383955845711
-     -0.999999999784431442373954
-     -0.999999999763698267603729
-     -0.999999999741021667277623
-     -0.999999999716224434128131
-     -0.999999999689113676923764
-     -0.999999999659479476596644
-     -0.999999999627093431244556
-     -0.999999999591707081174197
-     -0.999999999553050204480830
-     -0.999999999510828972939411
-     -0.999999999464723957210342
-     -0.999999999414387969535759
-     -0.999999999359443731215952
-     -0.999999999299481351206210
-     -0.999999999234055601157792
-     -0.999999999162682971138542
-     -0.999999999084838489103913
-     -0.999999998999952285943071
-     -0.999999998907405886591731
-     -0.999999998806528206277959
-     -0.999999998696591229443244
-     -0.999999998576805347252390
-     -0.999999998446314327865434
-     -0.999999998304189891785759
-     -0.999999998149425862613257
-     -0.999999997980931861411821
-     -0.999999997797526510638154
-     -0.999999997597930111164948
-     -0.999999997380756753356393
-     -0.999999997144505820407811
-     -0.999999996887552839233372
-     -0.999999996608139631065173
-     -0.999999996304363710601733
-     -0.999999995974166879001692
-     -0.999999995615322952246180
-     -0.999999995225424562376994
-     -0.999999994801868964843021
-     -0.999999994341842780638679
-     -0.999999993842305597079599
-     -0.999999993299972345915102
-     -0.999999992711294372006456
-     -0.999999992072439099985541
-     -0.999999991379268200130508
-     -0.999999990627314148132540
-     -0.999999989811755066458970
-     -0.999999988927387727619661
-     -0.999999987968598591791738
-     -0.999999986929332742926881
-     -0.999999985803060578628974
-     -0.999999984582742099719981
-     -0.999999983260788635479157
-     -0.999999981829021830014495
-     -0.999999980278629704073472
-     -0.999999978600119594788978
-     -0.999999976783267763350693
-     -0.999999974817065447355071
-     -0.999999972689661120580137
-     -0.999999970388298708114035
-     -0.999999967899251489096719
-     -0.999999965207751402768258
-     -0.999999962297913456009131
-     -0.999999959152654912059634
-     -0.999999955753608920567185
-     -0.999999952081032228479841
-     -0.999999948113706589527419
-     -0.999999943828833467051722
-     -0.999999939201921600705774
-     -0.999999934206666981977303
-     -0.999999928814824756540487
-     -0.999999922996072543035871
-     -0.999999916717864627952817
-     -0.999999909945276464770342
-     -0.999999902640838872326778
-     -0.999999894764361292459493
-     -0.999999886272743430203347
-     -0.999999877119774561178120
-     -0.999999867255919750145400
-     -0.999999856628092181986012
-     -0.999999845179410761448597
-     -0.999999832848942090853798
-     -0.999999819571425885409310
-     -0.999999805276982833797809
-     -0.999999789890803857138683
-     -0.999999773332819662188394
-     -0.999999755517349424622676
-     -0.999999736352727375323111
-     -0.999999715740905996653838
-     -0.999999693577034466641037
-     -0.999999669749010916634964
-     -0.999999644137006992314701
-     -0.999999616612963128659530
-     -0.999999587040052866624547
-     -0.999999555272114452585247
-     -0.999999521153047871016725
-     -0.999999484516175366204968
-     -0.999999445183563409904602
-     -0.999999402965303968610622
-     -0.999999357658752816349255
-     -0.999999309047722526460751
-     -0.999999256901627658587254
-     -0.999999200974579534832405
-     -0.999999141004427871663589
-     -0.999999076711746401418634
-     -0.999999007798759479089598
-     -0.999998933948206526218906
-     -0.999998854822141014087435
-     -0.999998770060660532728832
-     -0.999998679280564330496742
-     -0.999998582073934540768369
-     -0.999998478006637137714638
-     -0.999998366616738481729930
-     -0.999998247412833126918517
-     -0.999998119872278367806604
-     -0.999997983439330800015059
-     -0.999997837523179959816750
-     -0.999997681495873890143584
-     -0.999997514690131255533768
-     -0.999997336397034395554135
-     -0.999997145863597465233101
-     -0.999996942290203561838538
-     -0.999996724827904479777092
-     -0.999996492575576469327953
-     -0.999996244576925100210857
-     -0.999995979817332047487635
-     -0.999995697220536324878170
-     -0.999995395645142189112255
-     -0.999995073880945628324028
-     -0.999994730645071027620088
-     -0.999994364577909275721057
-     -0.999993974238848237905028
-     -0.999993558101786172297790
-     -0.999993114550418308799710
-     -0.999992641873286442566995
-     -0.999992138258581016945169
-     -0.999991601788684784070191
-     -0.999991030434446735009890
-     -0.999990422049174585335565
-     -0.999989774362333686430315
-     -0.999989084972939807716761
-     -0.999988351342632800403966
-     -0.999987570788417709415870
-     -0.999986740475059447000171
-     -0.999985857407116679281056
-     -0.999984918420600105892450
-     -0.999983920174239833019164
-     -0.999982859140346051919802
-     -0.999981731595246738576625
-     -0.999980533609285585815045
-     -0.999979261036362867394040
-     -0.999977909503001414558627
-     -0.999976474396919359773184
-     -0.999974950855090770264459
-     -0.999973333751274756079605
-     -0.999971617682993094132439
-     -0.999969796957935861737626
-     -0.999967865579774021028779
-     -0.999965817233357340078774
-     -0.999963645269275478192029
-     -0.999961342687759502470105
-     -0.999958902121900541164316
-     -0.999956315820161717373451
-     -0.999953575628158945224767
-     -0.999950672969685610748981
-     -0.999947598826955602236751
-     -0.999944343720038601012541
-     -0.999940897685460994406321
-     -0.999937250253945229426789
-     -0.999933390427259889483441
-     -0.999929306654152248770470
-     -0.999924986805334540975777
-     -0.999920418147494672237463
-     -0.999915587316301614224693
-     -0.999910480288375233419033
-     -0.999905082352189848729210
-     -0.999899378077880363163096
-     -0.999893351285919388145981
-     -0.999886985014633373018311
-     -0.999880261486525369137321
-     -0.999873162073371699777589
-     -0.999865667260059475670860
-     -0.999857756607131593604098
-     -0.999849408712005584127087
-     -0.999840601168832436289035
-     -0.999831310526961324669729
-     -0.999821512247975999096039
-     -0.999811180661268472697860
-     -0.999800288918115561773568
-     -0.999788808944223793772524
-     -0.999776711390708210081766
-     -0.999763965583470650796009
-     -0.999750539470943221871744
-     -0.999736399570162813678909
-     -0.999721510911142766670001
-     -0.999705836979508067426713
-     -0.999689339657360809492885
-     -0.999671979162343070964282
-     -0.999653713984864847611602
-     -0.999634500823465239215587
-     -0.999614294518275720661921
-     -0.999593047982555041060436
-     -0.999570712132266086606323
-     -0.999547235813665918980236
-     -0.999522565728881163674247
-     -0.999496646359441974605568
-     -0.999469419887748945596554
-     -0.999440826116448578590456
-     -0.999410802385694255639232
-     -0.999379283488271099505731
-     -0.999346201582564648884856
-     -0.999311486103354921430255
-     -0.999275063670419193575791
-     -0.999236857994928693095374
-     -0.999196789783626380902110
-     -0.999154776640775095111632
-     -0.999110732967867545150889
-     -0.999064569861091978842036
-     -0.999016195006549802974103
-     -0.998965512573224019809696
-     -0.998912423103700050040183
-     -0.998856823402643348534653
-     -0.998798606423041184302075
-     -0.998737661150219051712021
-     -0.998673872483645407328131
-     -0.998607121116541786642636
-     -0.998537283413318848302089
-     -0.998464231284862520615845
-     -0.998387832061698186549948
-     -0.998307948365064739107359
-     -0.998224437975934368814823
-     -0.998137153702018108556548
-     -0.998045943242801457529124
-     -0.997950649052658834678793
-     -0.997851108202100171372239
-     -0.997747152237207641699493
-     -0.997638607037325344858751
-     -0.997525292671069695356701
-     -0.997407023250733340776017
-     -0.997283606785160610778704
-     -0.997154845031177801648948
-     -0.997020533343667014496115
-     -0.996880460524377788338765
-     -0.996734408669576397404104
-     -0.996582153016638410456033
-     -0.996423461789695933775340
-     -0.996258096044456873132539
-     -0.996085809512319547895015
-     -0.995906348443912066070672
-     -0.995719451452192015978668
-     -0.995524849355248241312063
-     -0.995322265018952734162069
-     -0.995111413199616997238347
-     -0.994892000386813583757223
-     -0.994663724646529912575485
-     -0.994426275464827868000969
-     -0.994179333592189118776836
-     -0.993922570888732519066544
-     -0.993655650170496375504198
-     -0.993378225056984767759469
-     -0.993089939820183484438217
-     -0.992790429235257469948358
-     -0.992479318433147959270642
-     -0.992156222755293694076721
-     -0.991820747610706752658708
-     -0.991472488335639574649461
-     -0.991111030056085706155210
-     -0.990735947553362618000491
-     -0.990346805133030645297762
-     -0.989943156497407646205095
-     -0.989524544621944366953582
-     -0.989090501635730714183733
-     -0.988640548706408159263284
-     -0.988174195929768317289394
-     -0.987690942224322340437041
-     -0.987190275231130125566791
-     -0.986671671219182443772211
-     -0.986134594996632938939331
-     -0.985578499828180497431188
-     -0.985002827358905745666562
-     -0.984407007544868370574912
-     -0.983790458590774563626243
-     -0.983152586895026146341339
-     -0.982492787002464827943096
-     -0.981810441565126558280198
-     -0.981104921311322055650339
-     -0.980375585023360294162452
-     -0.979621779524232013515387
-     -0.978842839673570150500483
-     -0.978038088373203471420329
-     -0.977206836582618593554779
-     -0.976348383344644007774283
-     -0.975462015821667639794134
-     -0.974547009342696901235481
-     -0.973602627461567070965916
-     -0.972628122026600200033799
-     -0.971622733262012538372566
-     -0.970585689861363727448927
-     -0.969516209093335679948252
-     -0.968413496920123165931304
-     -0.967276748128711635913826
-     -0.966105146475310727066976
-     -0.964897864843204212102907
-     -0.963654065414268855166142
-     -0.962372899854405729886811
-     -0.961053509513118027313721
-     -0.959695025637459232377443
-     -0.958296569600564774513511
-     -0.956857253144968859850497
-     -0.955376178640896168788291
-     -0.953852439359705454847226
-     -0.952285119762648810516483
-     -0.950673295805096476827758
-     -0.949016035256362570111835
-     -0.947312398035251987699776
-     -0.945561436561433041323207
-     -0.943762196122724061065830
-     -0.941913715258365323657307
-     -0.940015026158330197754595
-     -0.938065155078711378050909
-     -0.936063122773199513379509
-     -0.934007944940652436603893
-     -0.931898632688733592554243
-     -0.929734193013578152514172
-     -0.927513629295424719100128
-     -0.925235941810129484510736
-     -0.922900128256458230136523
-     -0.920505184299029669863949
-     -0.918050104126761367892733
-     -0.915533881026646830667193
-     -0.912955507972669409081356
-     -0.910313978229635380238406
-     -0.907608285971685037790485
-     -0.904837426915216837567545
-     -0.902000398965935653353894
-     -0.899096202879712030000041
-     -0.896123842936915012419506
-     -0.893082327629856715369185
-     -0.889970670362962317254718
-     -0.886787890165254649549837
-     -0.883533012414718050732089
-     -0.880205069574081699771868
-     -0.876803101937538279856830
-     -0.873326158387889589649984
-     -0.869773297163586659132690
-     -0.866143586635108082774537
-     -0.862436106090096697765226
-     -0.858649946526651453191925
-     -0.854784211454148381612389
-     -0.850838017700942042052444
-     -0.846810496228276697886304
-     -0.842700792949714869341221
-     -0.838508069555369803579790
-     -0.834231504340207880514292
-     -0.829870293035667064651115
-     -0.825423649643818267103596
-     -0.820890807273277941907934
-     -0.816271018976062450999077
-     -0.811563558584557736234438
-     -0.806767721547761677691787
-     -0.801882825765941237429626
-     -0.796908212422832128518725
-     -0.791843246814495351087002
-     -0.786687319173932540042657
-     -0.781439845490550711651092
-     -0.776100268323556715663465
-     -0.770668057608352532380083
-     -0.765142711454994534663544
-     -0.759523756937772996814901
-     -0.753810750874962507155164
-     -0.748003280597789559230994
-     -0.742100964707660486167111
-     -0.736103453820691090374864
-     -0.730010431298578831244359
-     -0.723821613964859289254273
-     -0.717536752805590846718625
-     -0.711155633653515131598938
-     -0.704678077854745777673723
-     -0.698103942917044475821896
-     -0.691433123138751138842000
-     -0.684665550217444285287115
-     -0.677801193837418472975629
-     -0.670840062235077784356887
-     -0.663782202741357985424868
-     -0.656627702300305046439084
-     -0.649376687962954222750275
-     -0.642029327355671841292946
-     -0.634585829122141313859706
-     -0.627046443338195690464736
-     -0.619411461898721260562292
-     -0.611681218875880289504687
-     -0.603856090847925922562622
-     -0.595936497197908576518189
-     -0.587922900381600743987037
-     -0.579815806163996030236782
-     -0.571615763823768395668684
-     -0.563323366325108955991688
-     -0.554939250456390260497539
-     -0.546464096935141688222533
-     -0.537898630478854431106614
-     -0.529243619841170429010070
-     -0.520499877813046537682747
-     -0.511668261188523099211697
-     -0.502749670694764894533266
-     -0.493745050886082136517092
-     -0.484655390001679655026703
-     -0.475481719786923675319682
-     -0.466225115277957539319705
-     -0.456886694549540304987442
-     -0.447467618426025319819411
-     -0.437969090155439536373130
-     -0.428392355046668455103604
-     -0.418738700069796075759558
-     -0.409009453419694044918239
-     -0.399205984042999234582144
-     -0.389329701128664204753628
-     -0.379382053562310320297300
-     -0.369364529344658637204124
-     -0.359278654974358972988254
-     -0.349125994795582757315695
-     -0.338908150310790248699499
-     -0.328626759459127427638914
-     -0.318283495860952262338992
-     -0.307880068029034016649000
-     -0.297418218547012757893882
-     -0.286899723215749152048332
-     -0.276326390168236932985068
-     -0.265700058953792029795712
-     -0.255022599592273160770179
-     -0.244295911599128684869262
-     -0.233521922982103572925263
-     -0.222702589210478454140139
-     -0.211839892157749742936947
-     -0.200935839018695792648413
-     -0.189992461201808793395082
-     -0.179011813198105671155184
-     -0.167995971427363494770210
-     -0.156947033062855800871902
-     -0.145867114835695749082958
-     -0.134758351819920069295014
-     -0.123622896199474309769839
-     -0.112462916018284892203275
-     -0.101280593914626883352498
-     -0.0900781258410181607233922
-     -0.0788577197708907433569970
-     -0.0676215943933084420794315
-     -0.0563719777970166238312711
-     -0.0451111061451247520897491
-     -0.0338412223417354333022167
-     -0.0225645746918449442243659
-     -0.0112834155558496169159095
-     0.
-     0.0112834155558496169159095
-     0.0225645746918449442243659
-     0.0338412223417354333022167
-     0.0451111061451247520897491
-     0.0563719777970166238312711
-     0.0676215943933084420794315
-     0.0788577197708907433569970
-     0.0900781258410181607233922
-     0.101280593914626883352498
-     0.112462916018284892203275
-     0.123622896199474309769839
-     0.134758351819920069295014
-     0.145867114835695749082958
-     0.156947033062855800871902
-     0.167995971427363494770210
-     0.179011813198105671155184
-     0.189992461201808793395082
-     0.200935839018695792648413
-     0.211839892157749742936947
-     0.222702589210478454140139
-     0.233521922982103572925263
-     0.244295911599128684869262
-     0.255022599592273160770179
-     0.265700058953792029795712
-     0.276326390168236932985068
-     0.286899723215749152048332
-     0.297418218547012757893882
-     0.307880068029034016649000
-     0.318283495860952262338992
-     0.328626759459127427638914
-     0.338908150310790248699499
-     0.349125994795582757315695
-     0.359278654974358972988254
-     0.369364529344658637204124
-     0.379382053562310320297300
-     0.389329701128664204753628
-     0.399205984042999234582144
-     0.409009453419694044918239
-     0.418738700069796075759558
-     0.428392355046668455103604
-     0.437969090155439536373130
-     0.447467618426025319819411
-     0.456886694549540304987442
-     0.466225115277957539319705
-     0.475481719786923675319682
-     0.484655390001679655026703
-     0.493745050886082136517092
-     0.502749670694764894533266
-     0.511668261188523099211697
-     0.520499877813046537682747
-     0.529243619841170429010070
-     0.537898630478854431106614
-     0.546464096935141688222533
-     0.554939250456390260497539
-     0.563323366325108955991688
-     0.571615763823768395668684
-     0.579815806163996030236782
-     0.587922900381600743987037
-     0.595936497197908576518189
-     0.603856090847925922562622
-     0.611681218875880289504687
-     0.619411461898721260562292
-     0.627046443338195690464736
-     0.634585829122141313859706
-     0.642029327355671841292946
-     0.649376687962954222750275
-     0.656627702300305046439084
-     0.663782202741357985424868
-     0.670840062235077784356887
-     0.677801193837418472975629
-     0.684665550217444285287115
-     0.691433123138751138842000
-     0.698103942917044475821896
-     0.704678077854745777673723
-     0.711155633653515131598938
-     0.717536752805590846718625
-     0.723821613964859289254273
-     0.730010431298578831244359
-     0.736103453820691090374864
-     0.742100964707660486167111
-     0.748003280597789559230994
-     0.753810750874962507155164
-     0.759523756937772996814901
-     0.765142711454994534663544
-     0.770668057608352532380083
-     0.776100268323556715663465
-     0.781439845490550711651092
-     0.786687319173932540042657
-     0.791843246814495351087002
-     0.796908212422832128518725
-     0.801882825765941237429626
-     0.806767721547761677691787
-     0.811563558584557736234438
-     0.816271018976062450999077
-     0.820890807273277941907934
-     0.825423649643818267103596
-     0.829870293035667064651115
-     0.834231504340207880514292
-     0.838508069555369803579790
-     0.842700792949714869341221
-     0.846810496228276697886304
-     0.850838017700942042052444
-     0.854784211454148381612389
-     0.858649946526651453191925
-     0.862436106090096697765226
-     0.866143586635108082774537
-     0.869773297163586659132690
-     0.873326158387889589649984
-     0.876803101937538279856830
-     0.880205069574081699771868
-     0.883533012414718050732089
-     0.886787890165254649549837
-     0.889970670362962317254718
-     0.893082327629856715369185
-     0.896123842936915012419506
-     0.899096202879712030000041
-     0.902000398965935653353894
-     0.904837426915216837567545
-     0.907608285971685037790485
-     0.910313978229635380238406
-     0.912955507972669409081356
-     0.915533881026646830667193
-     0.918050104126761367892733
-     0.920505184299029669863949
-     0.922900128256458230136523
-     0.925235941810129484510736
-     0.927513629295424719100128
-     0.929734193013578152514172
-     0.931898632688733592554243
-     0.934007944940652436603893
-     0.936063122773199513379509
-     0.938065155078711378050909
-     0.940015026158330197754595
-     0.941913715258365323657307
-     0.943762196122724061065830
-     0.945561436561433041323207
-     0.947312398035251987699776
-     0.949016035256362570111835
-     0.950673295805096476827758
-     0.952285119762648810516483
-     0.953852439359705454847226
-     0.955376178640896168788291
-     0.956857253144968859850497
-     0.958296569600564774513511
-     0.959695025637459232377443
-     0.961053509513118027313721
-     0.962372899854405729886811
-     0.963654065414268855166142
-     0.964897864843204212102907
-     0.966105146475310727066976
-     0.967276748128711635913826
-     0.968413496920123165931304
-     0.969516209093335679948252
-     0.970585689861363727448927
-     0.971622733262012538372566
-     0.972628122026600200033799
-     0.973602627461567070965916
-     0.974547009342696901235481
-     0.975462015821667639794134
-     0.976348383344644007774283
-     0.977206836582618593554779
-     0.978038088373203471420329
-     0.978842839673570150500483
-     0.979621779524232013515387
-     0.980375585023360294162452
-     0.981104921311322055650339
-     0.981810441565126558280198
-     0.982492787002464827943096
-     0.983152586895026146341339
-     0.983790458590774563626243
-     0.984407007544868370574912
-     0.985002827358905745666562
-     0.985578499828180497431188
-     0.986134594996632938939331
-     0.986671671219182443772211
-     0.987190275231130125566791
-     0.987690942224322340437041
-     0.988174195929768317289394
-     0.988640548706408159263284
-     0.989090501635730714183733
-     0.989524544621944366953582
-     0.989943156497407646205095
-     0.990346805133030645297762
-     0.990735947553362618000491
-     0.991111030056085706155210
-     0.991472488335639574649461
-     0.991820747610706752658708
-     0.992156222755293694076721
-     0.992479318433147959270642
-     0.992790429235257469948358
-     0.993089939820183484438217
-     0.993378225056984767759469
-     0.993655650170496375504198
-     0.993922570888732519066544
-     0.994179333592189118776836
-     0.994426275464827868000969
-     0.994663724646529912575485
-     0.994892000386813583757223
-     0.995111413199616997238347
-     0.995322265018952734162069
-     0.995524849355248241312063
-     0.995719451452192015978668
-     0.995906348443912066070672
-     0.996085809512319547895015
-     0.996258096044456873132539
-     0.996423461789695933775340
-     0.996582153016638410456033
-     0.996734408669576397404104
-     0.996880460524377788338765
-     0.997020533343667014496115
-     0.997154845031177801648948
-     0.997283606785160610778704
-     0.997407023250733340776017
-     0.997525292671069695356701
-     0.997638607037325344858751
-     0.997747152237207641699493
-     0.997851108202100171372239
-     0.997950649052658834678793
-     0.998045943242801457529124
-     0.998137153702018108556548
-     0.998224437975934368814823
-     0.998307948365064739107359
-     0.998387832061698186549948
-     0.998464231284862520615845
-     0.998537283413318848302089
-     0.998607121116541786642636
-     0.998673872483645407328131
-     0.998737661150219051712021
-     0.998798606423041184302075
-     0.998856823402643348534653
-     0.998912423103700050040183
-     0.998965512573224019809696
-     0.999016195006549802974103
-     0.999064569861091978842036
-     0.999110732967867545150889
-     0.999154776640775095111632
-     0.999196789783626380902110
-     0.999236857994928693095374
-     0.999275063670419193575791
-     0.999311486103354921430255
-     0.999346201582564648884856
-     0.999379283488271099505731
-     0.999410802385694255639232
-     0.999440826116448578590456
-     0.999469419887748945596554
-     0.999496646359441974605568
-     0.999522565728881163674247
-     0.999547235813665918980236
-     0.999570712132266086606323
-     0.999593047982555041060436
-     0.999614294518275720661921
-     0.999634500823465239215587
-     0.999653713984864847611602
-     0.999671979162343070964282
-     0.999689339657360809492885
-     0.999705836979508067426713
-     0.999721510911142766670001
-     0.999736399570162813678909
-     0.999750539470943221871744
-     0.999763965583470650796009
-     0.999776711390708210081766
-     0.999788808944223793772524
-     0.999800288918115561773568
-     0.999811180661268472697860
-     0.999821512247975999096039
-     0.999831310526961324669729
-     0.999840601168832436289035
-     0.999849408712005584127087
-     0.999857756607131593604098
-     0.999865667260059475670860
-     0.999873162073371699777589
-     0.999880261486525369137321
-     0.999886985014633373018311
-     0.999893351285919388145981
-     0.999899378077880363163096
-     0.999905082352189848729210
-     0.999910480288375233419033
-     0.999915587316301614224693
-     0.999920418147494672237463
-     0.999924986805334540975777
-     0.999929306654152248770470
-     0.999933390427259889483441
-     0.999937250253945229426789
-     0.999940897685460994406321
-     0.999944343720038601012541
-     0.999947598826955602236751
-     0.999950672969685610748981
-     0.999953575628158945224767
-     0.999956315820161717373451
-     0.999958902121900541164316
-     0.999961342687759502470105
-     0.999963645269275478192029
-     0.999965817233357340078774
-     0.999967865579774021028779
-     0.999969796957935861737626
-     0.999971617682993094132439
-     0.999973333751274756079605
-     0.999974950855090770264459
-     0.999976474396919359773184
-     0.999977909503001414558627
-     0.999979261036362867394040
-     0.999980533609285585815045
-     0.999981731595246738576625
-     0.999982859140346051919802
-     0.999983920174239833019164
-     0.999984918420600105892450
-     0.999985857407116679281056
-     0.999986740475059447000171
-     0.999987570788417709415870
-     0.999988351342632800403966
-     0.999989084972939807716761
-     0.999989774362333686430315
-     0.999990422049174585335565
-     0.999991030434446735009890
-     0.999991601788684784070191
-     0.999992138258581016945169
-     0.999992641873286442566995
-     0.999993114550418308799710
-     0.999993558101786172297790
-     0.999993974238848237905028
-     0.999994364577909275721057
-     0.999994730645071027620088
-     0.999995073880945628324028
-     0.999995395645142189112255
-     0.999995697220536324878170
-     0.999995979817332047487635
-     0.999996244576925100210857
-     0.999996492575576469327953
-     0.999996724827904479777092
-     0.999996942290203561838538
-     0.999997145863597465233101
-     0.999997336397034395554135
-     0.999997514690131255533768
-     0.999997681495873890143584
-     0.999997837523179959816750
-     0.999997983439330800015059
-     0.999998119872278367806604
-     0.999998247412833126918517
-     0.999998366616738481729930
-     0.999998478006637137714638
-     0.999998582073934540768369
-     0.999998679280564330496742
-     0.999998770060660532728832
-     0.999998854822141014087435
-     0.999998933948206526218906
-     0.999999007798759479089598
-     0.999999076711746401418634
-     0.999999141004427871663589
-     0.999999200974579534832405
-     0.999999256901627658587254
-     0.999999309047722526460751
-     0.999999357658752816349255
-     0.999999402965303968610622
-     0.999999445183563409904602
-     0.999999484516175366204968
-     0.999999521153047871016725
-     0.999999555272114452585247
-     0.999999587040052866624547
-     0.999999616612963128659530
-     0.999999644137006992314701
-     0.999999669749010916634964
-     0.999999693577034466641037
-     0.999999715740905996653838
-     0.999999736352727375323111
-     0.999999755517349424622676
-     0.999999773332819662188394
-     0.999999789890803857138683
-     0.999999805276982833797809
-     0.999999819571425885409310
-     0.999999832848942090853798
-     0.999999845179410761448597
-     0.999999856628092181986012
-     0.999999867255919750145400
-     0.999999877119774561178120
-     0.999999886272743430203347
-     0.999999894764361292459493
-     0.999999902640838872326778
-     0.999999909945276464770342
-     0.999999916717864627952817
-     0.999999922996072543035871
-     0.999999928814824756540487
-     0.999999934206666981977303
-     0.999999939201921600705774
-     0.999999943828833467051722
-     0.999999948113706589527419
-     0.999999952081032228479841
-     0.999999955753608920567185
-     0.999999959152654912059634
-     0.999999962297913456009131
-     0.999999965207751402768258
-     0.999999967899251489096719
-     0.999999970388298708114035
-     0.999999972689661120580137
-     0.999999974817065447355071
-     0.999999976783267763350693
-     0.999999978600119594788978
-     0.999999980278629704073472
-     0.999999981829021830014495
-     0.999999983260788635479157
-     0.999999984582742099719981
-     0.999999985803060578628974
-     0.999999986929332742926881
-     0.999999987968598591791738
-     0.999999988927387727619661
-     0.999999989811755066458970
-     0.999999990627314148132540
-     0.999999991379268200130508
-     0.999999992072439099985541
-     0.999999992711294372006456
-     0.999999993299972345915102
-     0.999999993842305597079599
-     0.999999994341842780638679
-     0.999999994801868964843021
-     0.999999995225424562376994
-     0.999999995615322952246180
-     0.999999995974166879001692
-     0.999999996304363710601733
-     0.999999996608139631065173
-     0.999999996887552839233372
-     0.999999997144505820407811
-     0.999999997380756753356393
-     0.999999997597930111164948
-     0.999999997797526510638154
-     0.999999997980931861411821
-     0.999999998149425862613257
-     0.999999998304189891785759
-     0.999999998446314327865434
-     0.999999998576805347252390
-     0.999999998696591229443244
-     0.999999998806528206277959
-     0.999999998907405886591731
-     0.999999998999952285943071
-     0.999999999084838489103913
-     0.999999999162682971138542
-     0.999999999234055601157792
-     0.999999999299481351206210
-     0.999999999359443731215952
-     0.999999999414387969535759
-     0.999999999464723957210342
-     0.999999999510828972939411
-     0.999999999553050204480830
-     0.999999999591707081174197
-     0.999999999627093431244556
-     0.999999999659479476596644
-     0.999999999689113676923764
-     0.999999999716224434128131
-     0.999999999741021667277623
-     0.999999999763698267603729
-     0.999999999784431442373954
-     0.999999999803383955845711
-     0.999999999820705274925103
-     0.999999999836532626610029
-     0.999999999850991973790366
-     0.999999999864198915505960
-     0.999999999876259517323697
-     0.999999999887271077085832
-     0.999999999897322830900966
-     0.999999999906496603894840
-     0.999999999914867409908580
-     0.999999999922504004025582
-     0.999999999929469391523360
-     0.999999999935821296581860
-     0.999999999941612593833703
-     0.999999999946891705613252
-     0.999999999951702967549089
-     0.999999999956086964947412
-     0.999999999960080842230859
-     0.999999999963718587527495
-     0.999999999967031294347156
-     0.999999999970047402136203
-     0.999999999972792917366275
-     0.999999999975291616686970
-     0.999999999977565233555991
-     0.999999999979633629652374
-     0.999999999981514952278515
-     0.999999999983225778864110
-     0.999999999984781249599477
-     0.999999999986195189146334
-     0.999999999987480218300757
-     0.999999999988647856415078
-     0.999999999989708615322670
-     0.999999999990672085451468
-     0.999999999991547014758366
-     0.999999999992341381066975
-     0.999999999993062458345374
-     0.999999999993716877418075
-     0.999999999994310681567322
-     0.999999999994849377442675
-     0.999999999995337981664472
-     0.999999999995781063475994
-     0.999999999996182783770717
-     0.999999999996546930794861
-     0.999999999996876952801260
-     0.999999999997175987908301
-     0.999999999997446891397149
-     0.999999999997692260661541
-     0.999999999997914458007001
-     0.999999999998115631480261
-     0.999999999998297733894900
-     0.999999999998462540205572]';
+    //reference Yr=erf(X) generee par Maple
+    //pm:=array(1..1001):x:=-5:
+    //for k from 1  to 1001 do
+    //pm[k]:=evalf[24](erf(x)):
+    //x:=x+0.01:end do;
+    x=-5:0.01:5;
+    y=[-0.999999999998462540205572
+    -0.999999999998297733894900
+    -0.999999999998115631480261
+    -0.999999999997914458007001
+    -0.999999999997692260661541
+    -0.999999999997446891397149
+    -0.999999999997175987908301
+    -0.999999999996876952801260
+    -0.999999999996546930794861
+    -0.999999999996182783770717
+    -0.999999999995781063475994
+    -0.999999999995337981664472
+    -0.999999999994849377442675
+    -0.999999999994310681567322
+    -0.999999999993716877418075
+    -0.999999999993062458345374
+    -0.999999999992341381066975
+    -0.999999999991547014758366
+    -0.999999999990672085451468
+    -0.999999999989708615322670
+    -0.999999999988647856415078
+    -0.999999999987480218300757
+    -0.999999999986195189146334
+    -0.999999999984781249599477
+    -0.999999999983225778864110
+    -0.999999999981514952278515
+    -0.999999999979633629652374
+    -0.999999999977565233555991
+    -0.999999999975291616686970
+    -0.999999999972792917366275
+    -0.999999999970047402136203
+    -0.999999999967031294347156
+    -0.999999999963718587527495
+    -0.999999999960080842230859
+    -0.999999999956086964947412
+    -0.999999999951702967549089
+    -0.999999999946891705613252
+    -0.999999999941612593833703
+    -0.999999999935821296581860
+    -0.999999999929469391523360
+    -0.999999999922504004025582
+    -0.999999999914867409908580
+    -0.999999999906496603894840
+    -0.999999999897322830900966
+    -0.999999999887271077085832
+    -0.999999999876259517323697
+    -0.999999999864198915505960
+    -0.999999999850991973790366
+    -0.999999999836532626610029
+    -0.999999999820705274925103
+    -0.999999999803383955845711
+    -0.999999999784431442373954
+    -0.999999999763698267603729
+    -0.999999999741021667277623
+    -0.999999999716224434128131
+    -0.999999999689113676923764
+    -0.999999999659479476596644
+    -0.999999999627093431244556
+    -0.999999999591707081174197
+    -0.999999999553050204480830
+    -0.999999999510828972939411
+    -0.999999999464723957210342
+    -0.999999999414387969535759
+    -0.999999999359443731215952
+    -0.999999999299481351206210
+    -0.999999999234055601157792
+    -0.999999999162682971138542
+    -0.999999999084838489103913
+    -0.999999998999952285943071
+    -0.999999998907405886591731
+    -0.999999998806528206277959
+    -0.999999998696591229443244
+    -0.999999998576805347252390
+    -0.999999998446314327865434
+    -0.999999998304189891785759
+    -0.999999998149425862613257
+    -0.999999997980931861411821
+    -0.999999997797526510638154
+    -0.999999997597930111164948
+    -0.999999997380756753356393
+    -0.999999997144505820407811
+    -0.999999996887552839233372
+    -0.999999996608139631065173
+    -0.999999996304363710601733
+    -0.999999995974166879001692
+    -0.999999995615322952246180
+    -0.999999995225424562376994
+    -0.999999994801868964843021
+    -0.999999994341842780638679
+    -0.999999993842305597079599
+    -0.999999993299972345915102
+    -0.999999992711294372006456
+    -0.999999992072439099985541
+    -0.999999991379268200130508
+    -0.999999990627314148132540
+    -0.999999989811755066458970
+    -0.999999988927387727619661
+    -0.999999987968598591791738
+    -0.999999986929332742926881
+    -0.999999985803060578628974
+    -0.999999984582742099719981
+    -0.999999983260788635479157
+    -0.999999981829021830014495
+    -0.999999980278629704073472
+    -0.999999978600119594788978
+    -0.999999976783267763350693
+    -0.999999974817065447355071
+    -0.999999972689661120580137
+    -0.999999970388298708114035
+    -0.999999967899251489096719
+    -0.999999965207751402768258
+    -0.999999962297913456009131
+    -0.999999959152654912059634
+    -0.999999955753608920567185
+    -0.999999952081032228479841
+    -0.999999948113706589527419
+    -0.999999943828833467051722
+    -0.999999939201921600705774
+    -0.999999934206666981977303
+    -0.999999928814824756540487
+    -0.999999922996072543035871
+    -0.999999916717864627952817
+    -0.999999909945276464770342
+    -0.999999902640838872326778
+    -0.999999894764361292459493
+    -0.999999886272743430203347
+    -0.999999877119774561178120
+    -0.999999867255919750145400
+    -0.999999856628092181986012
+    -0.999999845179410761448597
+    -0.999999832848942090853798
+    -0.999999819571425885409310
+    -0.999999805276982833797809
+    -0.999999789890803857138683
+    -0.999999773332819662188394
+    -0.999999755517349424622676
+    -0.999999736352727375323111
+    -0.999999715740905996653838
+    -0.999999693577034466641037
+    -0.999999669749010916634964
+    -0.999999644137006992314701
+    -0.999999616612963128659530
+    -0.999999587040052866624547
+    -0.999999555272114452585247
+    -0.999999521153047871016725
+    -0.999999484516175366204968
+    -0.999999445183563409904602
+    -0.999999402965303968610622
+    -0.999999357658752816349255
+    -0.999999309047722526460751
+    -0.999999256901627658587254
+    -0.999999200974579534832405
+    -0.999999141004427871663589
+    -0.999999076711746401418634
+    -0.999999007798759479089598
+    -0.999998933948206526218906
+    -0.999998854822141014087435
+    -0.999998770060660532728832
+    -0.999998679280564330496742
+    -0.999998582073934540768369
+    -0.999998478006637137714638
+    -0.999998366616738481729930
+    -0.999998247412833126918517
+    -0.999998119872278367806604
+    -0.999997983439330800015059
+    -0.999997837523179959816750
+    -0.999997681495873890143584
+    -0.999997514690131255533768
+    -0.999997336397034395554135
+    -0.999997145863597465233101
+    -0.999996942290203561838538
+    -0.999996724827904479777092
+    -0.999996492575576469327953
+    -0.999996244576925100210857
+    -0.999995979817332047487635
+    -0.999995697220536324878170
+    -0.999995395645142189112255
+    -0.999995073880945628324028
+    -0.999994730645071027620088
+    -0.999994364577909275721057
+    -0.999993974238848237905028
+    -0.999993558101786172297790
+    -0.999993114550418308799710
+    -0.999992641873286442566995
+    -0.999992138258581016945169
+    -0.999991601788684784070191
+    -0.999991030434446735009890
+    -0.999990422049174585335565
+    -0.999989774362333686430315
+    -0.999989084972939807716761
+    -0.999988351342632800403966
+    -0.999987570788417709415870
+    -0.999986740475059447000171
+    -0.999985857407116679281056
+    -0.999984918420600105892450
+    -0.999983920174239833019164
+    -0.999982859140346051919802
+    -0.999981731595246738576625
+    -0.999980533609285585815045
+    -0.999979261036362867394040
+    -0.999977909503001414558627
+    -0.999976474396919359773184
+    -0.999974950855090770264459
+    -0.999973333751274756079605
+    -0.999971617682993094132439
+    -0.999969796957935861737626
+    -0.999967865579774021028779
+    -0.999965817233357340078774
+    -0.999963645269275478192029
+    -0.999961342687759502470105
+    -0.999958902121900541164316
+    -0.999956315820161717373451
+    -0.999953575628158945224767
+    -0.999950672969685610748981
+    -0.999947598826955602236751
+    -0.999944343720038601012541
+    -0.999940897685460994406321
+    -0.999937250253945229426789
+    -0.999933390427259889483441
+    -0.999929306654152248770470
+    -0.999924986805334540975777
+    -0.999920418147494672237463
+    -0.999915587316301614224693
+    -0.999910480288375233419033
+    -0.999905082352189848729210
+    -0.999899378077880363163096
+    -0.999893351285919388145981
+    -0.999886985014633373018311
+    -0.999880261486525369137321
+    -0.999873162073371699777589
+    -0.999865667260059475670860
+    -0.999857756607131593604098
+    -0.999849408712005584127087
+    -0.999840601168832436289035
+    -0.999831310526961324669729
+    -0.999821512247975999096039
+    -0.999811180661268472697860
+    -0.999800288918115561773568
+    -0.999788808944223793772524
+    -0.999776711390708210081766
+    -0.999763965583470650796009
+    -0.999750539470943221871744
+    -0.999736399570162813678909
+    -0.999721510911142766670001
+    -0.999705836979508067426713
+    -0.999689339657360809492885
+    -0.999671979162343070964282
+    -0.999653713984864847611602
+    -0.999634500823465239215587
+    -0.999614294518275720661921
+    -0.999593047982555041060436
+    -0.999570712132266086606323
+    -0.999547235813665918980236
+    -0.999522565728881163674247
+    -0.999496646359441974605568
+    -0.999469419887748945596554
+    -0.999440826116448578590456
+    -0.999410802385694255639232
+    -0.999379283488271099505731
+    -0.999346201582564648884856
+    -0.999311486103354921430255
+    -0.999275063670419193575791
+    -0.999236857994928693095374
+    -0.999196789783626380902110
+    -0.999154776640775095111632
+    -0.999110732967867545150889
+    -0.999064569861091978842036
+    -0.999016195006549802974103
+    -0.998965512573224019809696
+    -0.998912423103700050040183
+    -0.998856823402643348534653
+    -0.998798606423041184302075
+    -0.998737661150219051712021
+    -0.998673872483645407328131
+    -0.998607121116541786642636
+    -0.998537283413318848302089
+    -0.998464231284862520615845
+    -0.998387832061698186549948
+    -0.998307948365064739107359
+    -0.998224437975934368814823
+    -0.998137153702018108556548
+    -0.998045943242801457529124
+    -0.997950649052658834678793
+    -0.997851108202100171372239
+    -0.997747152237207641699493
+    -0.997638607037325344858751
+    -0.997525292671069695356701
+    -0.997407023250733340776017
+    -0.997283606785160610778704
+    -0.997154845031177801648948
+    -0.997020533343667014496115
+    -0.996880460524377788338765
+    -0.996734408669576397404104
+    -0.996582153016638410456033
+    -0.996423461789695933775340
+    -0.996258096044456873132539
+    -0.996085809512319547895015
+    -0.995906348443912066070672
+    -0.995719451452192015978668
+    -0.995524849355248241312063
+    -0.995322265018952734162069
+    -0.995111413199616997238347
+    -0.994892000386813583757223
+    -0.994663724646529912575485
+    -0.994426275464827868000969
+    -0.994179333592189118776836
+    -0.993922570888732519066544
+    -0.993655650170496375504198
+    -0.993378225056984767759469
+    -0.993089939820183484438217
+    -0.992790429235257469948358
+    -0.992479318433147959270642
+    -0.992156222755293694076721
+    -0.991820747610706752658708
+    -0.991472488335639574649461
+    -0.991111030056085706155210
+    -0.990735947553362618000491
+    -0.990346805133030645297762
+    -0.989943156497407646205095
+    -0.989524544621944366953582
+    -0.989090501635730714183733
+    -0.988640548706408159263284
+    -0.988174195929768317289394
+    -0.987690942224322340437041
+    -0.987190275231130125566791
+    -0.986671671219182443772211
+    -0.986134594996632938939331
+    -0.985578499828180497431188
+    -0.985002827358905745666562
+    -0.984407007544868370574912
+    -0.983790458590774563626243
+    -0.983152586895026146341339
+    -0.982492787002464827943096
+    -0.981810441565126558280198
+    -0.981104921311322055650339
+    -0.980375585023360294162452
+    -0.979621779524232013515387
+    -0.978842839673570150500483
+    -0.978038088373203471420329
+    -0.977206836582618593554779
+    -0.976348383344644007774283
+    -0.975462015821667639794134
+    -0.974547009342696901235481
+    -0.973602627461567070965916
+    -0.972628122026600200033799
+    -0.971622733262012538372566
+    -0.970585689861363727448927
+    -0.969516209093335679948252
+    -0.968413496920123165931304
+    -0.967276748128711635913826
+    -0.966105146475310727066976
+    -0.964897864843204212102907
+    -0.963654065414268855166142
+    -0.962372899854405729886811
+    -0.961053509513118027313721
+    -0.959695025637459232377443
+    -0.958296569600564774513511
+    -0.956857253144968859850497
+    -0.955376178640896168788291
+    -0.953852439359705454847226
+    -0.952285119762648810516483
+    -0.950673295805096476827758
+    -0.949016035256362570111835
+    -0.947312398035251987699776
+    -0.945561436561433041323207
+    -0.943762196122724061065830
+    -0.941913715258365323657307
+    -0.940015026158330197754595
+    -0.938065155078711378050909
+    -0.936063122773199513379509
+    -0.934007944940652436603893
+    -0.931898632688733592554243
+    -0.929734193013578152514172
+    -0.927513629295424719100128
+    -0.925235941810129484510736
+    -0.922900128256458230136523
+    -0.920505184299029669863949
+    -0.918050104126761367892733
+    -0.915533881026646830667193
+    -0.912955507972669409081356
+    -0.910313978229635380238406
+    -0.907608285971685037790485
+    -0.904837426915216837567545
+    -0.902000398965935653353894
+    -0.899096202879712030000041
+    -0.896123842936915012419506
+    -0.893082327629856715369185
+    -0.889970670362962317254718
+    -0.886787890165254649549837
+    -0.883533012414718050732089
+    -0.880205069574081699771868
+    -0.876803101937538279856830
+    -0.873326158387889589649984
+    -0.869773297163586659132690
+    -0.866143586635108082774537
+    -0.862436106090096697765226
+    -0.858649946526651453191925
+    -0.854784211454148381612389
+    -0.850838017700942042052444
+    -0.846810496228276697886304
+    -0.842700792949714869341221
+    -0.838508069555369803579790
+    -0.834231504340207880514292
+    -0.829870293035667064651115
+    -0.825423649643818267103596
+    -0.820890807273277941907934
+    -0.816271018976062450999077
+    -0.811563558584557736234438
+    -0.806767721547761677691787
+    -0.801882825765941237429626
+    -0.796908212422832128518725
+    -0.791843246814495351087002
+    -0.786687319173932540042657
+    -0.781439845490550711651092
+    -0.776100268323556715663465
+    -0.770668057608352532380083
+    -0.765142711454994534663544
+    -0.759523756937772996814901
+    -0.753810750874962507155164
+    -0.748003280597789559230994
+    -0.742100964707660486167111
+    -0.736103453820691090374864
+    -0.730010431298578831244359
+    -0.723821613964859289254273
+    -0.717536752805590846718625
+    -0.711155633653515131598938
+    -0.704678077854745777673723
+    -0.698103942917044475821896
+    -0.691433123138751138842000
+    -0.684665550217444285287115
+    -0.677801193837418472975629
+    -0.670840062235077784356887
+    -0.663782202741357985424868
+    -0.656627702300305046439084
+    -0.649376687962954222750275
+    -0.642029327355671841292946
+    -0.634585829122141313859706
+    -0.627046443338195690464736
+    -0.619411461898721260562292
+    -0.611681218875880289504687
+    -0.603856090847925922562622
+    -0.595936497197908576518189
+    -0.587922900381600743987037
+    -0.579815806163996030236782
+    -0.571615763823768395668684
+    -0.563323366325108955991688
+    -0.554939250456390260497539
+    -0.546464096935141688222533
+    -0.537898630478854431106614
+    -0.529243619841170429010070
+    -0.520499877813046537682747
+    -0.511668261188523099211697
+    -0.502749670694764894533266
+    -0.493745050886082136517092
+    -0.484655390001679655026703
+    -0.475481719786923675319682
+    -0.466225115277957539319705
+    -0.456886694549540304987442
+    -0.447467618426025319819411
+    -0.437969090155439536373130
+    -0.428392355046668455103604
+    -0.418738700069796075759558
+    -0.409009453419694044918239
+    -0.399205984042999234582144
+    -0.389329701128664204753628
+    -0.379382053562310320297300
+    -0.369364529344658637204124
+    -0.359278654974358972988254
+    -0.349125994795582757315695
+    -0.338908150310790248699499
+    -0.328626759459127427638914
+    -0.318283495860952262338992
+    -0.307880068029034016649000
+    -0.297418218547012757893882
+    -0.286899723215749152048332
+    -0.276326390168236932985068
+    -0.265700058953792029795712
+    -0.255022599592273160770179
+    -0.244295911599128684869262
+    -0.233521922982103572925263
+    -0.222702589210478454140139
+    -0.211839892157749742936947
+    -0.200935839018695792648413
+    -0.189992461201808793395082
+    -0.179011813198105671155184
+    -0.167995971427363494770210
+    -0.156947033062855800871902
+    -0.145867114835695749082958
+    -0.134758351819920069295014
+    -0.123622896199474309769839
+    -0.112462916018284892203275
+    -0.101280593914626883352498
+    -0.0900781258410181607233922
+    -0.0788577197708907433569970
+    -0.0676215943933084420794315
+    -0.0563719777970166238312711
+    -0.0451111061451247520897491
+    -0.0338412223417354333022167
+    -0.0225645746918449442243659
+    -0.0112834155558496169159095
+    0.
+    0.0112834155558496169159095
+    0.0225645746918449442243659
+    0.0338412223417354333022167
+    0.0451111061451247520897491
+    0.0563719777970166238312711
+    0.0676215943933084420794315
+    0.0788577197708907433569970
+    0.0900781258410181607233922
+    0.101280593914626883352498
+    0.112462916018284892203275
+    0.123622896199474309769839
+    0.134758351819920069295014
+    0.145867114835695749082958
+    0.156947033062855800871902
+    0.167995971427363494770210
+    0.179011813198105671155184
+    0.189992461201808793395082
+    0.200935839018695792648413
+    0.211839892157749742936947
+    0.222702589210478454140139
+    0.233521922982103572925263
+    0.244295911599128684869262
+    0.255022599592273160770179
+    0.265700058953792029795712
+    0.276326390168236932985068
+    0.286899723215749152048332
+    0.297418218547012757893882
+    0.307880068029034016649000
+    0.318283495860952262338992
+    0.328626759459127427638914
+    0.338908150310790248699499
+    0.349125994795582757315695
+    0.359278654974358972988254
+    0.369364529344658637204124
+    0.379382053562310320297300
+    0.389329701128664204753628
+    0.399205984042999234582144
+    0.409009453419694044918239
+    0.418738700069796075759558
+    0.428392355046668455103604
+    0.437969090155439536373130
+    0.447467618426025319819411
+    0.456886694549540304987442
+    0.466225115277957539319705
+    0.475481719786923675319682
+    0.484655390001679655026703
+    0.493745050886082136517092
+    0.502749670694764894533266
+    0.511668261188523099211697
+    0.520499877813046537682747
+    0.529243619841170429010070
+    0.537898630478854431106614
+    0.546464096935141688222533
+    0.554939250456390260497539
+    0.563323366325108955991688
+    0.571615763823768395668684
+    0.579815806163996030236782
+    0.587922900381600743987037
+    0.595936497197908576518189
+    0.603856090847925922562622
+    0.611681218875880289504687
+    0.619411461898721260562292
+    0.627046443338195690464736
+    0.634585829122141313859706
+    0.642029327355671841292946
+    0.649376687962954222750275
+    0.656627702300305046439084
+    0.663782202741357985424868
+    0.670840062235077784356887
+    0.677801193837418472975629
+    0.684665550217444285287115
+    0.691433123138751138842000
+    0.698103942917044475821896
+    0.704678077854745777673723
+    0.711155633653515131598938
+    0.717536752805590846718625
+    0.723821613964859289254273
+    0.730010431298578831244359
+    0.736103453820691090374864
+    0.742100964707660486167111
+    0.748003280597789559230994
+    0.753810750874962507155164
+    0.759523756937772996814901
+    0.765142711454994534663544
+    0.770668057608352532380083
+    0.776100268323556715663465
+    0.781439845490550711651092
+    0.786687319173932540042657
+    0.791843246814495351087002
+    0.796908212422832128518725
+    0.801882825765941237429626
+    0.806767721547761677691787
+    0.811563558584557736234438
+    0.816271018976062450999077
+    0.820890807273277941907934
+    0.825423649643818267103596
+    0.829870293035667064651115
+    0.834231504340207880514292
+    0.838508069555369803579790
+    0.842700792949714869341221
+    0.846810496228276697886304
+    0.850838017700942042052444
+    0.854784211454148381612389
+    0.858649946526651453191925
+    0.862436106090096697765226
+    0.866143586635108082774537
+    0.869773297163586659132690
+    0.873326158387889589649984
+    0.876803101937538279856830
+    0.880205069574081699771868
+    0.883533012414718050732089
+    0.886787890165254649549837
+    0.889970670362962317254718
+    0.893082327629856715369185
+    0.896123842936915012419506
+    0.899096202879712030000041
+    0.902000398965935653353894
+    0.904837426915216837567545
+    0.907608285971685037790485
+    0.910313978229635380238406
+    0.912955507972669409081356
+    0.915533881026646830667193
+    0.918050104126761367892733
+    0.920505184299029669863949
+    0.922900128256458230136523
+    0.925235941810129484510736
+    0.927513629295424719100128
+    0.929734193013578152514172
+    0.931898632688733592554243
+    0.934007944940652436603893
+    0.936063122773199513379509
+    0.938065155078711378050909
+    0.940015026158330197754595
+    0.941913715258365323657307
+    0.943762196122724061065830
+    0.945561436561433041323207
+    0.947312398035251987699776
+    0.949016035256362570111835
+    0.950673295805096476827758
+    0.952285119762648810516483
+    0.953852439359705454847226
+    0.955376178640896168788291
+    0.956857253144968859850497
+    0.958296569600564774513511
+    0.959695025637459232377443
+    0.961053509513118027313721
+    0.962372899854405729886811
+    0.963654065414268855166142
+    0.964897864843204212102907
+    0.966105146475310727066976
+    0.967276748128711635913826
+    0.968413496920123165931304
+    0.969516209093335679948252
+    0.970585689861363727448927
+    0.971622733262012538372566
+    0.972628122026600200033799
+    0.973602627461567070965916
+    0.974547009342696901235481
+    0.975462015821667639794134
+    0.976348383344644007774283
+    0.977206836582618593554779
+    0.978038088373203471420329
+    0.978842839673570150500483
+    0.979621779524232013515387
+    0.980375585023360294162452
+    0.981104921311322055650339
+    0.981810441565126558280198
+    0.982492787002464827943096
+    0.983152586895026146341339
+    0.983790458590774563626243
+    0.984407007544868370574912
+    0.985002827358905745666562
+    0.985578499828180497431188
+    0.986134594996632938939331
+    0.986671671219182443772211
+    0.987190275231130125566791
+    0.987690942224322340437041
+    0.988174195929768317289394
+    0.988640548706408159263284
+    0.989090501635730714183733
+    0.989524544621944366953582
+    0.989943156497407646205095
+    0.990346805133030645297762
+    0.990735947553362618000491
+    0.991111030056085706155210
+    0.991472488335639574649461
+    0.991820747610706752658708
+    0.992156222755293694076721
+    0.992479318433147959270642
+    0.992790429235257469948358
+    0.993089939820183484438217
+    0.993378225056984767759469
+    0.993655650170496375504198
+    0.993922570888732519066544
+    0.994179333592189118776836
+    0.994426275464827868000969
+    0.994663724646529912575485
+    0.994892000386813583757223
+    0.995111413199616997238347
+    0.995322265018952734162069
+    0.995524849355248241312063
+    0.995719451452192015978668
+    0.995906348443912066070672
+    0.996085809512319547895015
+    0.996258096044456873132539
+    0.996423461789695933775340
+    0.996582153016638410456033
+    0.996734408669576397404104
+    0.996880460524377788338765
+    0.997020533343667014496115
+    0.997154845031177801648948
+    0.997283606785160610778704
+    0.997407023250733340776017
+    0.997525292671069695356701
+    0.997638607037325344858751
+    0.997747152237207641699493
+    0.997851108202100171372239
+    0.997950649052658834678793
+    0.998045943242801457529124
+    0.998137153702018108556548
+    0.998224437975934368814823
+    0.998307948365064739107359
+    0.998387832061698186549948
+    0.998464231284862520615845
+    0.998537283413318848302089
+    0.998607121116541786642636
+    0.998673872483645407328131
+    0.998737661150219051712021
+    0.998798606423041184302075
+    0.998856823402643348534653
+    0.998912423103700050040183
+    0.998965512573224019809696
+    0.999016195006549802974103
+    0.999064569861091978842036
+    0.999110732967867545150889
+    0.999154776640775095111632
+    0.999196789783626380902110
+    0.999236857994928693095374
+    0.999275063670419193575791
+    0.999311486103354921430255
+    0.999346201582564648884856
+    0.999379283488271099505731
+    0.999410802385694255639232
+    0.999440826116448578590456
+    0.999469419887748945596554
+    0.999496646359441974605568
+    0.999522565728881163674247
+    0.999547235813665918980236
+    0.999570712132266086606323
+    0.999593047982555041060436
+    0.999614294518275720661921
+    0.999634500823465239215587
+    0.999653713984864847611602
+    0.999671979162343070964282
+    0.999689339657360809492885
+    0.999705836979508067426713
+    0.999721510911142766670001
+    0.999736399570162813678909
+    0.999750539470943221871744
+    0.999763965583470650796009
+    0.999776711390708210081766
+    0.999788808944223793772524
+    0.999800288918115561773568
+    0.999811180661268472697860
+    0.999821512247975999096039
+    0.999831310526961324669729
+    0.999840601168832436289035
+    0.999849408712005584127087
+    0.999857756607131593604098
+    0.999865667260059475670860
+    0.999873162073371699777589
+    0.999880261486525369137321
+    0.999886985014633373018311
+    0.999893351285919388145981
+    0.999899378077880363163096
+    0.999905082352189848729210
+    0.999910480288375233419033
+    0.999915587316301614224693
+    0.999920418147494672237463
+    0.999924986805334540975777
+    0.999929306654152248770470
+    0.999933390427259889483441
+    0.999937250253945229426789
+    0.999940897685460994406321
+    0.999944343720038601012541
+    0.999947598826955602236751
+    0.999950672969685610748981
+    0.999953575628158945224767
+    0.999956315820161717373451
+    0.999958902121900541164316
+    0.999961342687759502470105
+    0.999963645269275478192029
+    0.999965817233357340078774
+    0.999967865579774021028779
+    0.999969796957935861737626
+    0.999971617682993094132439
+    0.999973333751274756079605
+    0.999974950855090770264459
+    0.999976474396919359773184
+    0.999977909503001414558627
+    0.999979261036362867394040
+    0.999980533609285585815045
+    0.999981731595246738576625
+    0.999982859140346051919802
+    0.999983920174239833019164
+    0.999984918420600105892450
+    0.999985857407116679281056
+    0.999986740475059447000171
+    0.999987570788417709415870
+    0.999988351342632800403966
+    0.999989084972939807716761
+    0.999989774362333686430315
+    0.999990422049174585335565
+    0.999991030434446735009890
+    0.999991601788684784070191
+    0.999992138258581016945169
+    0.999992641873286442566995
+    0.999993114550418308799710
+    0.999993558101786172297790
+    0.999993974238848237905028
+    0.999994364577909275721057
+    0.999994730645071027620088
+    0.999995073880945628324028
+    0.999995395645142189112255
+    0.999995697220536324878170
+    0.999995979817332047487635
+    0.999996244576925100210857
+    0.999996492575576469327953
+    0.999996724827904479777092
+    0.999996942290203561838538
+    0.999997145863597465233101
+    0.999997336397034395554135
+    0.999997514690131255533768
+    0.999997681495873890143584
+    0.999997837523179959816750
+    0.999997983439330800015059
+    0.999998119872278367806604
+    0.999998247412833126918517
+    0.999998366616738481729930
+    0.999998478006637137714638
+    0.999998582073934540768369
+    0.999998679280564330496742
+    0.999998770060660532728832
+    0.999998854822141014087435
+    0.999998933948206526218906
+    0.999999007798759479089598
+    0.999999076711746401418634
+    0.999999141004427871663589
+    0.999999200974579534832405
+    0.999999256901627658587254
+    0.999999309047722526460751
+    0.999999357658752816349255
+    0.999999402965303968610622
+    0.999999445183563409904602
+    0.999999484516175366204968
+    0.999999521153047871016725
+    0.999999555272114452585247
+    0.999999587040052866624547
+    0.999999616612963128659530
+    0.999999644137006992314701
+    0.999999669749010916634964
+    0.999999693577034466641037
+    0.999999715740905996653838
+    0.999999736352727375323111
+    0.999999755517349424622676
+    0.999999773332819662188394
+    0.999999789890803857138683
+    0.999999805276982833797809
+    0.999999819571425885409310
+    0.999999832848942090853798
+    0.999999845179410761448597
+    0.999999856628092181986012
+    0.999999867255919750145400
+    0.999999877119774561178120
+    0.999999886272743430203347
+    0.999999894764361292459493
+    0.999999902640838872326778
+    0.999999909945276464770342
+    0.999999916717864627952817
+    0.999999