scilab/modules/ast/tests/nonreg_tests/bug_15781.tst

   1 // Copyright (C) 2019 - Stéphane MOTTELET
   2 //
   3 //  This file is distributed under the same license as the Scilab package.
   4 // =============================================================================
   5 //
   6 // <-- CLI SHELL MODE -->
   7 //
   8 // <-- Non-regression test for bug 15781 -->
   9 //
  10 // <-- Bugzilla URL -->
  11 // http://bugzilla.scilab.org/15781
  12 //
  13 // <-- Short Description -->
  14 // display of complex matrix is ugly.
  15
  16 n=4
  17
  18 a=testmatrix("magic",4);
  19
  20 for f = ["v","e"]
  21     format(f)
  22     x=complex(cos(a),sin(a));
  23     x(3,3)=%nan;
  24     x(4,4)=%inf;
  25     x(2,1:2)=1+%i;
  26     x(:,1)=0;
  27     disp(x)
  28
  29     for i=1:n
  30         disp(x(i,:))
  31         disp(" ")
  32     end
  33
  34     for i=1:n
  35         disp(x(:,i))
  36         disp(" ")
  37     end
  38
  39     x=x-x;
  40
  41     disp(x)
  42     disp(" ")
  43
  44     acoth(-2:0.5:2).'
  45 end
  46
  47 format("v")
  48
  49 a= [0,0,%i*0.6795197,0.7161007+%i*0.3997826,0
  50 0,%i*0.977002,0,0,0
  51 0,0.2629713,0,0,0.4505416
  52 0,%i*0.8173032,0.529842,0,%i*0.8558751
  53 0,0,0,0.7481516,%i*0.2598704
  54 0,0.3402197+%i*0.3631865,0,0,0
  55 0,%i*0.8686947,%i*0.0844358,0.9883794,0
  56 0,0,0,0,0
  57 0,0.6540791,0.6892145+%i*0.3462334,0,0
  58 0,0,0,0,0.7204935]