scilab/modules/statistics/tests/nonreg_tests/bug_3640.tst

   1 // =============================================================================
   2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3 // Copyright (C) 2008 - DIGITEO - Allan CORNET
   4 //
   5 //  This file is distributed under the same license as the Scilab package.
   6 // =============================================================================
   7
   8 // <-- Non-regression test for bug 3640 -->
   9 //
  10 // <-- Bugzilla URL -->
  11 // http://bugzilla.scilab.org/show_bug.cgi?id=3640
  12 //
  13 // <-- Short Description -->
  14 // Calculating the mean value in the 3rd dimension "mean(A,3)", gives an error for input matrices of a certain size
  15
  16
  17 test = rand(150,1,165);
  18 ierr = execstr('r = mean(test,3);','errcatch');
  19 if ierr <> 0 then pause,end
  20 if size(r) <> [1 150] then pause,end
  21
  22 test = rand(150,1,166);
  23 ierr = execstr('r = mean(test,3);','errcatch');
  24 if ierr <> 0 then pause,end
  25 if size(r) <> [1 150] then pause,end
  26
  27 test = rand(1000,1,165);
  28 ierr = execstr('r = mean(test,3);','errcatch');
  29 if ierr <> 0 then pause,end
  30 if size(r) <> [1 1000] then pause,end
  31
  32 test = rand(1000,1,166);
  33 ierr = execstr('r = mean(test,3);','errcatch');
  34 if ierr <> 0 then pause,end
  35 if size(r) <> [1 1000] then pause,end
  36
  37 test = rand(250,1,165);
  38 ierr = execstr('r = mean(test,3);','errcatch');
  39 if ierr <> 0 then pause,end
  40 if size(r) <> [1 250] then pause,end
  41
  42 test = rand(250,1,166);
  43 ierr = execstr('r = mean(test,3);','errcatch');
  44 if ierr <> 0 then pause,end
  45 if size(r) <> [1 250] then pause,end