bug 11079 fixed: tlist(['r','num','den','dt'] replaced by rlist 04/7104/2
Allan CORNET [Wed, 9 May 2012 11:45:05 +0000 (13:45 +0200)]
Change-Id: I3451dc3c6d3810366cd067d4be7e252fa0575402

24 files changed:
scilab/modules/core/tests/unit_tests/macro.dia.ref
scilab/modules/core/tests/unit_tests/macro.tst
scilab/modules/data_structures/help/en_US/tlist.xml
scilab/modules/data_structures/help/fr_FR/tlist.xml
scilab/modules/data_structures/help/ja_JP/tlist.xml
scilab/modules/data_structures/help/pt_BR/tlist.xml
scilab/modules/elementary_functions/help/en_US/signalprocessing/syslin.xml
scilab/modules/elementary_functions/help/fr_FR/signalprocessing/syslin.xml
scilab/modules/elementary_functions/help/ja_JP/signalprocessing/syslin.xml
scilab/modules/elementary_functions/help/pt_BR/signalprocessing/syslin.xml
scilab/modules/elementary_functions/help/ru_RU/signalprocessing/syslin.xml
scilab/modules/overloading/macros/%p_d_p.sci
scilab/modules/overloading/macros/%p_j_s.sci
scilab/modules/overloading/macros/%p_l_p.sci
scilab/modules/overloading/macros/%p_l_s.sci
scilab/modules/overloading/macros/%p_p_s.sci
scilab/modules/overloading/macros/%p_q_p.sci
scilab/modules/overloading/macros/%p_q_s.sci
scilab/modules/overloading/macros/%p_r_p.sci
scilab/modules/polynomials/help/en_US/rational.xml
scilab/modules/polynomials/help/fr_FR/rational.xml
scilab/modules/polynomials/help/ja_JP/rational.xml
scilab/modules/polynomials/help/pt_BR/rational.xml
scilab/modules/polynomials/help/ru_RU/rational.xml

index 2347b46..7381838 100644 (file)
@@ -523,25 +523,25 @@ deff('[f]=%p_r_p(p1,p2)',['[l,c]=size(p2);';
                         'if l*c <>1 then f=p1*invr(p2),return,end;';
                         '[l,c]=size(p1);';
                         '[p1 p2]=simp(p1,p2*ones(l,c));';
-                        'f=tlist([''r'',''num'',''den'',''dt''],p1,p2,[]);'],'n')
+                        'f=rlist(p1,p2,[]);'],'n')
 horn=horner;
 h=1/s;
-if cplist(h,tlist(['r','num','den','dt'],1,s,[]))==0 then bugmes();quit;end
+if cplist(h,rlist(1,s,[]))==0 then bugmes();quit;end
 h1=(z-1)/(z+1);
 hrn=horner(h,h1);
-if cplist(hrn , tlist(['r','num','den','dt'],z+1,z-1,[]))==0 then bugmes();quit;end
+if cplist(hrn , rlist(z+1,z-1,[]))==0 then bugmes();quit;end
 //
 hrn=horner(h,h1);
-if cplist(hrn , tlist(['r','num','den','dt'],z+1,z-1,[]))==0 then bugmes();quit;end
+if cplist(hrn , rlist(z+1,z-1,[]))==0 then bugmes();quit;end
 //
 h=1/s;
-if cplist(h,tlist(['r','num','den','dt'],1,s,[]))==0 then bugmes();quit;end
+if cplist(h,rlist(1,s,[]))==0 then bugmes();quit;end
 h1=(z-1)/(z+1);
 hrn=horn(h,h1);
-if cplist(hrn , tlist(['r','num','den','dt'],z+1,z-1,[]))==0 then bugmes();quit;end
+if cplist(hrn , rlist(z+1,z-1,[]))==0 then bugmes();quit;end
 //
 hrn=horn(h,h1);
-if cplist(hrn , tlist(['r','num','den','dt'],z+1,z-1,[]))==0 then bugmes();quit;end
+if cplist(hrn , rlist(z+1,z-1,[]))==0 then bugmes();quit;end
 //
 //
 //
index f5fd184..5a8879a 100644 (file)
@@ -495,28 +495,28 @@ deff('[f]=%p_r_p(p1,p2)',['[l,c]=size(p2);';
                         'if l*c <>1 then f=p1*invr(p2),return,end;';
                         '[l,c]=size(p1);';
                         '[p1 p2]=simp(p1,p2*ones(l,c));';
-                        'f=tlist([''r'',''num'',''den'',''dt''],p1,p2,[]);'],'n')
+                        'f=rlist(p1,p2,[]);'],'n')
  
  
  
 horn=horner;
 h=1/s;
-if cplist(h,tlist(['r','num','den','dt'],1,s,[]))==0 then pause,end
+if cplist(h,rlist(1,s,[]))==0 then pause,end
 h1=(z-1)/(z+1);
 hrn=horner(h,h1);
-if cplist(hrn , tlist(['r','num','den','dt'],z+1,z-1,[]))==0 then pause,end
+if cplist(hrn , rlist(z+1,z-1,[]))==0 then pause,end
 //
 hrn=horner(h,h1);
-if cplist(hrn , tlist(['r','num','den','dt'],z+1,z-1,[]))==0 then pause,end
+if cplist(hrn , rlist(z+1,z-1,[]))==0 then pause,end
 //
 h=1/s;
-if cplist(h,tlist(['r','num','den','dt'],1,s,[]))==0 then pause,end
+if cplist(h,rlist(1,s,[]))==0 then pause,end
 h1=(z-1)/(z+1);
 hrn=horn(h,h1);
-if cplist(hrn , tlist(['r','num','den','dt'],z+1,z-1,[]))==0 then pause,end
+if cplist(hrn , rlist(z+1,z-1,[]))==0 then pause,end
 //
 hrn=horn(h,h1);
-if cplist(hrn , tlist(['r','num','den','dt'],z+1,z-1,[]))==0 then pause,end
+if cplist(hrn , rlist(z+1,z-1,[]))==0 then pause,end
 //
 //
 //
index ce435e6..2cb264b 100644 (file)
@@ -96,7 +96,7 @@
     </para>
     <para>
       A rational matrix <literal>H</literal> is represented by the <literal>typed-list</literal>
-      <literal>H=tlist(['r';'num';'den';'dt'],Num,Den,[])</literal> where <literal>Num</literal> and <literal>Den</literal> are two
+      <literal>H=rlist(Num,Den,[])</literal> where <literal>Num</literal> and <literal>Den</literal> are two
       polynomial matrices and a  (e.g. continuous time) linear system with
       transfer matrix <literal>H</literal> maybe created by <literal>syslin('c',H)</literal>.
     </para>
index 7a9083e..c989a60 100644 (file)
@@ -86,7 +86,7 @@
     </para>
     <para>
       Une matrice rationnelle <literal>H</literal> est représentée par la tlist
-      <literal>H=tlist(['r';'num';'den';'dt'],Num,Den,[])</literal> où <literal>Num</literal> et <literal>Den</literal> sont deux
+      <literal>H=rlist(Num,Den,[])</literal> où <literal>Num</literal> et <literal>Den</literal> sont deux
       matrices polynomiales et un système dynamique linéaire (en temps continu) peut être créé sous la forme d'une
       matrice de transfert <literal>H</literal> par <literal>syslin('c',H)</literal>.
     </para>
index 79260e2..68d463d 100644 (file)
     </para>
     <para>
       有理行列 <literal>H</literal> は<literal>型付リスト</literal>
-      <literal>H=tlist(['r';'num';'den';'dt'],Num,Den,[])</literal>
+      <literal>H=rlist(Num,Den,[])</literal>
       により表されます.
       ただし,<literal>Num</literal> および <literal>Den</literal>
       は多項式行列です.
index 62345f9..798f158 100644 (file)
     <para>
       Uma matriz de razões de polinômios <literal>H</literal> é
       representada por um <literal>typed-list</literal>
-      <literal>H=tlist(['r';'num';'den';'dt'],Num,Den,[])</literal> onde
+      <literal>H=rlist(Num,Den,[])</literal> onde
       <literal>Num</literal> e <literal>Den</literal> são duas matrizes de
       polinômios e um sistema linear (ex.: de tempo contínuo) com matriz de
       transferência <literal>H</literal> possivelmente criada por
index 21d77ea..0329316 100644 (file)
@@ -105,8 +105,8 @@ sl=syslin(dom,N,D)
 sl=syslin(dom,H)
  ]]></programlisting>
     <para>The output of <literal>syslin</literal> is a list of the following
-    form : <literal>sl=tlist(['r','num','den','dt'],N,D,dom)</literal> or
-    <literal>sl=tlist(['r','num','den','dt'],H(2),H(3),dom)</literal>.</para>
+    form : <literal>sl = rlist(N,D,dom)</literal> or
+    <literal>sl=rlist(H(2),H(3),dom)</literal>.</para>
     <para>Linear systems defined as <literal>syslin</literal> can be
     manipulated as usual matrices (concatenation, extraction, transpose,
     multiplication, etc) both in state-space or transfer
index 5ea0f92..fbffca7 100644 (file)
@@ -112,8 +112,8 @@ sl=syslin(dom,H)
  ]]></programlisting>
     <para>
       La sortie de <literal>syslin</literal> est une liste de la forme :
-      <literal>sl=tlist(['r','num','den','dt'],N,D,dom)</literal> ou
-      <literal>sl=tlist(['r','num','den','dt'],H(2),H(3),dom)</literal>.
+      <literal>sl=rlist(N,D,dom)</literal> ou
+      <literal>sl=rlist(H(2),H(3),dom)</literal>.
     </para>
     <para>Les systèmes linéaires obtenus en sortie de
       <literal>syslin</literal> peuvent être manipulés comme des matrices
index 34e7faa..b655973 100644 (file)
@@ -125,8 +125,8 @@ sl=syslin(dom,H)
  ]]></programlisting>
     <para>
       <literal>syslin</literal> の出力は以下の形式のリストとなります :
-      <literal>sl=tlist(['r','num','den','dt'],N,D,dom)</literal> または
-      <literal>sl=tlist(['r','num','den','dt'],H(2),H(3),dom)</literal>.
+      <literal>sl=rlist(N,D,dom)</literal> または
+      <literal>sl=rlist(H(2),H(3),dom)</literal>.
     </para>
     <para>
       <literal>syslin</literal> で定義された線形システムは
index 7bac9a9..41c46ed 100644 (file)
@@ -103,8 +103,8 @@ sl=syslin(dom,N,D)
 sl=syslin(dom,H)
  ]]></programlisting>
     <para>A saída de <literal>syslin</literal> é uma lista da seguinte forma:
-    <literal>sl=tlist(['r','num','den','dt'],N,D,dom)</literal> ou
-    <literal>sl=tlist(['r','num','den','dt'],H(2),H(3),dom)</literal>.</para>
+    <literal>sl=rlist(N,D,dom)</literal> ou
+    <literal>sl=rlist(H(2),H(3),dom)</literal>.</para>
     <para>Sistemas lineares definidos como <literal>syslin</literal> podem ser
     manipulados como matrizes usuais (concatenação, extração, transposição,
     multiplicação, etc.) ambos em estado-espaço ou representação de
index 3bc50d1..97f96d1 100644 (file)
@@ -115,8 +115,8 @@ sl=syslin(dom,N,D)
 sl=syslin(dom,H)
  ]]></programlisting>
     <para>
-      Выход <literal>syslin</literal> является списком следующей формы: <literal>sl=tlist(['r','num','den','dt'],N,D,dom)</literal> или
-      <literal>sl=tlist(['r','num','den','dt'],H(2),H(3),dom)</literal>.
+      Выход <literal>syslin</literal> является списком следующей формы: <literal>sl=rlist(,N,D,dom)</literal> или
+      <literal>sl=rlist(H(2),H(3),dom)</literal>.
     </para>
     <para>
       Линейные системы, определённые как <literal>syslin</literal>, могут управляться как обычные матрицы (конкатенация, извлечение, перестановка, умножение и т. д.) как в виде пространства состояний, так и в передаточном виде.
index 9ef6fa5..d069d00 100644 (file)
@@ -17,5 +17,5 @@ elseif size(p2,'*')==1 then
   p2=p2*ones(p1)
 end
 [p1,p2]=simp(p1,p2);
-f=tlist(['r','num','den','dt'],p1,p2,[])
+f=rlist(p1,p2,[])
 endfunction
index a031c95..12b0ab1 100644 (file)
@@ -20,7 +20,7 @@ if ms==1&ns==1 then
     if or(abs(coeff(p(:)))*ones(max(degree(p))+1,1)==0) then
       error(27)
     end
-    f=tlist(['r','num','den','dt'],ones(p),p.^(-s),[])
+    f=rlist(ones(p),p.^(-s),[])
   else // this case is in fact hard coded
     f=p.^s
   end
@@ -33,7 +33,7 @@ elseif m==1&n==1 then // Element wise exponentiation p.^s with p "scalar"
   p=1/p
   num(kn)=p(2).^(-s(kn))
   den(kn)=p(3).^(-s(kn))
-  f=tlist(['r','num','den','dt'],num,den,[])
+  f=rlist(num,den,[])
 elseif ms==m&ns==n then  // Element wise exponentiation
   p=p(:);s=s(:);
   kp=find(s>=0)
@@ -46,7 +46,7 @@ elseif ms==m&ns==n then  // Element wise exponentiation
   end
   num(kn)=ones(p(kn))
   den(kn)=p(kn).^(-s(kn))
-  f=tlist(['r','num','den','dt'],matrix(num,n,m),matrix(den,n,m),[])
+  f = rlist(matrix(num,n,m),matrix(den,n,m),[])
 else
   error(30)
 end
index a2610e6..cfe3816 100644 (file)
@@ -14,5 +14,5 @@ function f=%p_l_p(p2,p1)
 if l*c <>1 then f=invr(p2)*p1,return,end
 [l,c]=size(p1)
 [p1,p2]=simp(p1,p2*ones(l,c))
-f=tlist(['r','num','den','dt'],p1,p2,[])
+f = rlist(p1,p2,[])
 endfunction
index bee2fd5..68b48ca 100644 (file)
@@ -17,9 +17,9 @@ else
   [l,c]=size(m)
   if m<>[] then m=m+poly(0,varn(p),'c'),end
   if mp==-1&l*c==1|l==-1 then
-    f=tlist(['r','num','den','dt'],m,p*eye(),[])
+    f = rlist(m,p*eye(),[])
   else
-    f=tlist(['r','num','den','dt'],m,p*ones(l,c),[])
+    f = rlist(m,p*ones(l,c),[])
   end
 end
 endfunction
index 101f46a..0dca61d 100644 (file)
@@ -21,7 +21,7 @@ if ms==1&ns==1 then
       if or(abs(coeff(p(:)))*ones(max(degree(p))+1,1)==0) then
        error(27)
       end
-      f=tlist(['r','num','den','dt'],ones(p),p.^(-s),[])
+      f = rlist(ones(p),p.^(-s),[])
     else // this case is in fact hard coded
       f=p.^s
     end
@@ -49,7 +49,7 @@ elseif ms==1|ns==1 then // Element wise exponentiation f.^s with f "scalar"
     error(27)
   end
   den(kn)=p.^(-s(kn))
-  f=tlist(['r','num','den','dt'],num,den,[])
+  f = rlist(num,den,[])
 else
   error(43)
 end
index 362dcce..bcc2c9f 100644 (file)
@@ -17,5 +17,5 @@ elseif size(p2,'*')==1 then
   p2=p2*ones(p1)
 end
 [p1,p2]=simp(p1,p2)
-f=tlist(['r','num','den','dt'],p2,p1,[])
+f = rlist(p2,p1,[])
 endfunction
index e8cb14f..1457929 100644 (file)
@@ -16,5 +16,5 @@ if size(p1,'*')==1 then
 elseif size(p2,'*')==1 then
   p2=p2*ones(p1)
 end
-f=tlist(['r','num','den','dt'],p2,p1,[])
+f = rlist(p2,p1,[])
 endfunction
index 00f6ab7..23a81b9 100644 (file)
@@ -17,5 +17,5 @@ function f=%p_r_p(p1,p2)
 if l*c <>1 then f=p1*invr(p2),return,end
 [l,c]=size(p1)
 [p1 p2]=simp(p1,p2*ones(l,c))
-f=tlist(['r','num','den','dt'],p1,p2,[])
+f=rlist(p1,p2,[])
 endfunction
index 1cbf7cd..521ab76 100644 (file)
@@ -17,7 +17,7 @@
       e.g. <literal>[r11,r12;r21,r22]</literal> is a 2x2 matrix where <literal>rij</literal> are 
       1x1 rationals.
       A rational matrix can also be defined as above as a list
-      <literal>tlist(['r','num','den','dt'],num,den,[])</literal> with <literal>num</literal> and <literal>den</literal> polynomial matrices.
+      <literal>rlist(num,den,[])</literal> with <literal>num</literal> and <literal>den</literal> polynomial matrices.
     </para>
   </refsection>
   <refsection>
@@ -27,7 +27,7 @@ s=poly(0,'s');
 W=[1/s,1/(s+1)]
 W'*W
 Num=[s,s+2;1,s];Den=[s*s,s;s,s*s];
-tlist(['r','num','den','dt'],Num,Den,[])
+rlist(Num,Den,[])
 H=Num./Den
 syslin('c',Num,Den)
 syslin('c',H)
index deba2d4..febe8aa 100644 (file)
@@ -12,7 +12,7 @@
     <para>
       Une fraction rationnelle <literal>r</literal> est le quotient de deux polynômes <literal>r=num/den</literal>.
       La représentation interne d'une fraction rationnelle est une liste :
-      <literal>r=tlist('['r','num','den','dt'],num,den,[])</literal> est identique à <literal>r=num/den</literal>.
+      <literal>r=rlist(num,den,[])</literal> est identique à <literal>r=num/den</literal>.
       Une matrice de fractions rationnelles peut être définie en utilisant la syntaxe habituelle :
       <literal>[r11,r12;r21,r22]</literal> est une matrice 2x2 ou les <literal>rij</literal> sont des fractions rationnelles.
       Une matrice de fractions rationnelles peut aussi être définie comme précédemment : <literal>tlist(['r','num','den','dt'],num,den,[])</literal> avec <literal>num</literal> et <literal>den</literal> deux matrices polynomiales.
@@ -25,7 +25,7 @@ s=poly(0,'s');
 W=[1/s,1/(s+1)]
 W'*W
 Num=[s,s+2;1,s];Den=[s*s,s;s,s*s];
-tlist(['r','num','den','dt'],Num,Den,[])
+rlist(Num,Den,[])
 H=Num./Den
 syslin('c',Num,Den)
 syslin('c',H)
index 8a76cf3..29d70ea 100644 (file)
@@ -19,7 +19,7 @@
       ただし, <literal>rij</literal> は 1x1 有理数です.
       有理行列は,
       <literal>num</literal> および <literal>den</literal>を多項式行列として
-      リスト<literal>tlist(['r','num','den','dt'],num,den,[])</literal>により
+      リスト<literal>rlist(num,den,[])</literal>により
       定義することも可能です.
     </para>
   </refsection>
@@ -30,7 +30,7 @@ s=poly(0,'s');
 W=[1/s,1/(s+1)]
 W'*W
 Num=[s,s+2;1,s];Den=[s*s,s;s,s*s];
-tlist(['r','num','den','dt'],Num,Den,[])
+rlist(Num,Den,[])
 H=Num./Den
 syslin('c',Num,Den)
 syslin('c',H)
index 5db31a4..c4168f5 100644 (file)
@@ -13,7 +13,7 @@
       Um razão de polinômios <literal>r</literal> é um quociente entre
       dois polinômios <literal>r=num/den</literal>. A representação interna de
       uma razão de polinômios é uma lista.
-      <literal>r=tlist('['r','num','den','dt'],num,den,[])</literal> é o mesmo
+      <literal>r = rlist(num,den,[])</literal> é o mesmo
       que <literal>r=num/den</literal>. Uma matriz de razões de polinômios pode
       ser definida pela sintaxe usual, por exemplo:
       <literal>[r11,r12;r21,r22]</literal> ié uma matriz 2x2 onde
@@ -31,7 +31,7 @@ s=poly(0,'s');
 W=[1/s,1/(s+1)]
 W'*W
 Num=[s,s+2;1,s];Den=[s*s,s;s,s*s];
-tlist(['r','num','den','dt'],Num,Den,[])
+rlist(Num,Den,[])
 H=Num./Den
 syslin('c',Num,Den)
 syslin('c',H)
index c2c0283..6acf9a9 100644 (file)
@@ -12,7 +12,7 @@
     <para>
       Рациональное число <literal>r</literal> является частным двух полиномов <literal>r=num/den</literal>.
       Внутреннее представление рационального число является списком.      
-      <literal>r=tlist('['r','num','den','dt'],num,den,[])</literal> -- это то же самое, что и <literal>r=num/den</literal>.
+      <literal>r=rlist(num,den,[])</literal> -- это то же самое, что и <literal>r=num/den</literal>.
       Матрица рациональных чисел может быть определена обычным синтаксисом, 
       например, <literal>[r11,r12;r21,r22]</literal> является матрицей размером 2x2, где <literal>rij</literal> -- рациональные
       числа размером 1x1.
@@ -27,7 +27,7 @@ s=poly(0,'s');
 W=[1/s,1/(s+1)]
 W'*W
 Num=[s,s+2;1,s];Den=[s*s,s;s,s*s];
-tlist(['r','num','den','dt'],Num,Den,[])
+rlist(Num,Den,[])
 H=Num./Den
 syslin('c',Num,Den)
 syslin('c',H)