iodelay toolbox

Comment from Lucien Povy -- October 6, 2021, 06:06:50 PM    

Hello,
Problem with this toolbox for Scilab 6.1.? The macro "%rd_string" is not good for
new Scilab.
I propose a new version of this macro (%rd_string).
regards

// ====================================================================
// Copyright (C) - lucien.povy@free.fr. Carantec 2020.
// This file must be used under the terms of the GNU GPL v2.0 licence.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution.  The terms
// are also available at    
// https://www.gnu.org/licenses/licenses.en.html
// ====================================================================
// String output of iodelay systems matrices for scilab > 6.1.?
// ====================================================================
function txt = %rd_string(H)
  r = H.H; d = H.iodelay;
  [m,n] = size(r);
  Sr = string(r)(:);//for systems without delay.
  Sd = string(-d)(:);//now the delays.
  w = "*exp("+Sd+"*"+varn(r)+")";
  w(find(d==0)) = "";
  for j = 2:3:3*m*n-1
    Sr(j) = part("-",ones(1,length(Sr(j))));
  end
  Srl = []; Stxt = [];
  for i = 1:m*n
    Srl = [Srl;[Sr(3*(i-1)+1:3*i);blanks(length(Sr(3*i)))]];
    pw(i) = part("",1:length(w(i)));
    Stxt = [Stxt;[pw(i);w(i);pw(i);blanks(length(w(i)))]];
  end
  tx = Srl+Stxt;
  txt = matrix(tx,size(tx,"*")/n,n);
  txt = blanks(4)+txt;
endfunction