tablor update (17mar09)

git-svn-id: svn://tug.org/texlive/trunk@12434 c570f23f-e606-0410-a88d-b1316a301751

2 files changed, 50 insertions, 141 deletions

diff --git a/Master/texmf-dist/tex/latex/tablor/tablor-xetex.sty b/Master/texmf-dist/tex/latex/tablor/tablor-xetex.sty
index 482b6f7a360..f836d5061d1 100644
--- a/Master/texmf-dist/tex/latex/tablor/tablor-xetex.sty
+++ b/Master/texmf-dist/tex/latex/tablor/tablor-xetex.sty
@@ -1,5 +1,5 @@
 \NeedsTeXFormat{LaTeX2e}[1995/12/01]
-\ProvidesPackage{tablor-xetex}[07/03/2009 v4.04  la machine a  creer des
+\ProvidesPackage{tablor-xetex}[17/03/2009 v4.04-b  la machine a  creer des
 tableaux de signes et variations compatible xetex]
 
 % \copyleft Connan le Barbare (aka Guillaume Connan) \copyright
@@ -276,14 +276,11 @@ epstopdf $1.eps;
 
 
 
-
-
 %%
 %% Code giac/Xcas pour les Tableaux de Variations
 %%
 
 
-
 \begin{VerbatimOut}{XcasTV.cxx}
 TV(L,F,nom,nomv,f,ftt,trigo,nmr):={
 nl:=size(L);
@@ -337,14 +334,9 @@ nz:=size(Z);
                           fpour
   fsi;
 
-Z:=sort(Z); 
-nz:=size(Z);
- si Z[0]==Z[1] alors Z:=augment(Z[0],Z[2..nz-1]);nz:=nz-1; 
-     fsi;
-pour u de 1 jusque nz-2 faire 
-     si Z[u]==Z[u+1] alors Z:=augment(Z[0..u-1],Z[u+1..nz-1]);nz:=nz-1; 
-     fsi;
-fpour;
+
+Z:=sort([op(set[op(Z)])]);
+
 nz:=size(Z);
 l0:=" newLigneVariables(btex $"+nomv+"$ etex);";lp:=" "; lf:=" ";lsp:=" ";
 pour m de 0 jusque nz-1 faire l0:=l0+"val(btex $"+latex(Z[m])+"$ etex);
@@ -531,14 +523,9 @@ nz:=size(Z);
                           fpour
   fsi;
 
-Z:=sort(Z); 
-nz:=size(Z);
- si Z[0]==Z[1] alors Z:=augment(Z[0],Z[2..nz-1]);nz:=nz-1; 
-     fsi;
-pour u de 1 jusque nz-2 faire 
-     si Z[u]==Z[u+1] alors Z:=augment(Z[0..u-1],Z[u+1..nz-1]);nz:=nz-1; 
-     fsi;
-fpour;
+
+Z:=sort([op(set[op(Z)])]);
+
 nz:=size(Z);
 l0:=" newLigneVariables(btex $"+nomv+"$ etex);";lp:=" "; lf:=" ";lsp:=" ";
 pour m de 0 jusque nz-1 faire l0:=l0+"val(btex $"+latex(Z[m])+"$ etex);
@@ -673,6 +660,7 @@ fclose(sortie);
 
 \begin{VerbatimOut}{XcasTVZ.cxx}
 
+
 TVZ(L,F,FF,nom,nomv,f,ftt,trigo,nmr):={
 nl:=size(L);
 nf:=size(FF);
@@ -731,17 +719,9 @@ S:=solve(fp(x),x);
                         fpour
   fsi;
 
-Z:=sort(Z); 
-nz:=size(Z);
-
 
+Z:=sort([op(set[op(Z)])]);
 
- si Z[0]==Z[1] alors Z:=augment(Z[0],Z[2..nz-1]);nz:=nz-1; 
-     fsi;
-pour u de 1 jusque nz-2 faire 
-     si Z[u]==Z[u+1] alors Z:=augment(Z[0..u-1],Z[u+1..nz-1]);nz:=nz-1; 
-     fsi;
-fpour;
 nz:=size(Z);
 
 for(j:=0;j<nf;j++){
@@ -904,7 +884,6 @@ fclose(sortie);
 :;
 
 
-
 \end{VerbatimOut}
 
 
@@ -1140,14 +1119,11 @@ S:=solve(fp(x),x);
                           fpour
   fsi;
 
-Z:=sort(Z); 
-nz:=size(Z);
- si Z[0]==Z[1] alors Z:=augment(Z[0],Z[2..nz-1]);nz:=nz-1; 
-     fsi;
-pour u de 1 jusque nz-2 faire 
-     si Z[u]==Z[u+1] alors Z:=augment(Z[0..u-1],Z[u+1..nz-1]);nz:=nz-1; 
-     fsi;
-fpour;
+
+Z:=sort([op(set[op(Z)])]);
+
+
+
 nz:=size(Z);
 l0:=" newLigneVariables(btex $"+nomv+"$ etex);";lp:=" "; lf:=" ";lsp:=" ";
 
@@ -1349,7 +1325,6 @@ fclose(sortie);
 
 
 
-
 \end{VerbatimOut}
 
 
@@ -1415,14 +1390,11 @@ S:=solve(fp(x),x);
                           fpour
   fsi;
 
-Z:=sort(Z); 
-nz:=size(Z);
- si Z[0]==Z[1] alors Z:=augment(Z[0],Z[2..nz-1]);nz:=nz-1; 
-     fsi;
-pour u de 1 jusque nz-2 faire 
-     si Z[u]==Z[u+1] alors Z:=augment(Z[0..u-1],Z[u+1..nz-1]);nz:=nz-1; 
-     fsi;
-fpour;
+
+
+ Z:=sort([op(set[op(Z)])]);
+
+
 nz:=size(Z);
 l0:=" newLigneVariables(btex $"+nomv+"$ etex);";lp:=" "; lf:=" ";lsp:=" ";
 
@@ -1630,8 +1602,6 @@ fclose(sortie);
 
 
 
-
-
 %%
 %%
 %% Quand les solutions de f'(x)=0 ne sont pas formellement calculables
@@ -1903,7 +1873,6 @@ fclose(sortie);
 
 
 
-
 %%
 %% Code giac/Xcas pour les Tableaux de variations de courbes parametrees
 %%
@@ -2213,13 +2182,9 @@ Z:=sort(Z);
 nz:=size(Z);
 
 
+ Z:=sort([op(set[op(Z)])]);
 
 
-
-if(nz>2){pour u de 1 jusque nz-2 faire 
-     si Z[u]==Z[u+1] alors Z:=Z[0..u-1],Z[u+1..nz-1];nz:=nz-1;
-     fsi;
-fpour;};
 nz:=size(Z);
 
 if(nz==0){li:="";l0:="val(btex $"+latex(D[0])+"$ etex);val(btex $"+latex(D[1])+"$ etex);";
@@ -2403,12 +2368,10 @@ if(nz>2){pour u de 1 jusque nz-2 faire
 fpour;}
 
 
-Z:=sort(Z);
-nz:=size(Z);
-if(nz>2){pour u de 1 jusque nz-2 faire 
-     si Z[u]==Z[u+1] alors Z:=Z[0..u-1],Z[u+1..nz-1];nz:=nz-1;
-     fsi;
-fpour;};
+Z:=concat(Z,F);
+
+Z:=sort([op(set[op(Z)])]);
+
 nz:=size(Z);
 
 if(nz==0){li:="";l0:="val(btex $"+latex(D[0])+"$ etex);val(btex $"+latex(D[1])+"$ etex);";
@@ -2637,15 +2600,9 @@ else{pour j de 0 jusque size(S)-1 faire
                       fpour;
 
 Z:=concat([Z],F);
-Z:=sort(Z);
-nz:=size(Z);
-if(nz>2){pour u de 1 jusque nz-2 faire 
-     si Z[u]==Z[u+1] alors Z:=concat(Z[0..u-1],Z[u+1..nz-1]);nz:=nz-1;
-     fsi;
-fpour;}
 
-if(Z[0]==Z[1]){Z:=Z[1..nz-1];nz:=nz-1;}
-if(Z[nz-2]==Z[nz-1]){Z:=Z[0..nz-2];nz:=nz-1;}
+ Z:=sort([op(set[op(Z)])]);
+
 
 nz:=size(Z);
 l0:=" ";li:=" ";lr:=" "; 
@@ -2716,11 +2673,6 @@ fclose(sortie);
 
 
 %%$
-
-
-
-
-%%$
 %%
 %% traitement des fichiers produits par giac/xcas
 %%
diff --git a/Master/texmf-dist/tex/latex/tablor/tablor.sty b/Master/texmf-dist/tex/latex/tablor/tablor.sty
index 0c084de0fa0..d4aafbfcf0c 100644
--- a/Master/texmf-dist/tex/latex/tablor/tablor.sty
+++ b/Master/texmf-dist/tex/latex/tablor/tablor.sty
@@ -1,5 +1,5 @@
 \NeedsTeXFormat{LaTeX2e}[1995/12/01]
-\ProvidesPackage{tablor}[07/03/2009 v4.04 la machine a creer des tableaux de signes et variations]
+\ProvidesPackage{tablor}[17/03/2009 v4.04-b la machine a creer des tableaux de signes et variations]
 
 % \copyleft Connan le Barbare (aka Guillaume Connan) \copyright
 % This work may be distributed and/or mofified under the conditions
@@ -299,14 +299,9 @@ nz:=size(Z);
                           fpour
   fsi;
 
-Z:=sort(Z); 
-nz:=size(Z);
- si Z[0]==Z[1] alors Z:=augment(Z[0],Z[2..nz-1]);nz:=nz-1; 
-     fsi;
-pour u de 1 jusque nz-2 faire 
-     si Z[u]==Z[u+1] alors Z:=augment(Z[0..u-1],Z[u+1..nz-1]);nz:=nz-1; 
-     fsi;
-fpour;
+
+Z:=sort([op(set[op(Z)])]);
+
 nz:=size(Z);
 l0:=" newLigneVariables(btex $"+nomv+"$ etex);";lp:=" "; lf:=" ";lsp:=" ";
 pour m de 0 jusque nz-1 faire l0:=l0+"val(btex $"+latex(Z[m])+"$ etex);
@@ -493,14 +488,9 @@ nz:=size(Z);
                           fpour
   fsi;
 
-Z:=sort(Z); 
-nz:=size(Z);
- si Z[0]==Z[1] alors Z:=augment(Z[0],Z[2..nz-1]);nz:=nz-1; 
-     fsi;
-pour u de 1 jusque nz-2 faire 
-     si Z[u]==Z[u+1] alors Z:=augment(Z[0..u-1],Z[u+1..nz-1]);nz:=nz-1; 
-     fsi;
-fpour;
+
+Z:=sort([op(set[op(Z)])]);
+
 nz:=size(Z);
 l0:=" newLigneVariables(btex $"+nomv+"$ etex);";lp:=" "; lf:=" ";lsp:=" ";
 pour m de 0 jusque nz-1 faire l0:=l0+"val(btex $"+latex(Z[m])+"$ etex);
@@ -694,17 +684,9 @@ S:=solve(fp(x),x);
                         fpour
   fsi;
 
-Z:=sort(Z); 
-nz:=size(Z);
-
 
+Z:=sort([op(set[op(Z)])]);
 
- si Z[0]==Z[1] alors Z:=augment(Z[0],Z[2..nz-1]);nz:=nz-1; 
-     fsi;
-pour u de 1 jusque nz-2 faire 
-     si Z[u]==Z[u+1] alors Z:=augment(Z[0..u-1],Z[u+1..nz-1]);nz:=nz-1; 
-     fsi;
-fpour;
 nz:=size(Z);
 
 for(j:=0;j<nf;j++){
@@ -1102,14 +1084,11 @@ S:=solve(fp(x),x);
                           fpour
   fsi;
 
-Z:=sort(Z); 
-nz:=size(Z);
- si Z[0]==Z[1] alors Z:=augment(Z[0],Z[2..nz-1]);nz:=nz-1; 
-     fsi;
-pour u de 1 jusque nz-2 faire 
-     si Z[u]==Z[u+1] alors Z:=augment(Z[0..u-1],Z[u+1..nz-1]);nz:=nz-1; 
-     fsi;
-fpour;
+
+Z:=sort([op(set[op(Z)])]);
+
+
+
 nz:=size(Z);
 l0:=" newLigneVariables(btex $"+nomv+"$ etex);";lp:=" "; lf:=" ";lsp:=" ";
 
@@ -1376,14 +1355,11 @@ S:=solve(fp(x),x);
                           fpour
   fsi;
 
-Z:=sort(Z); 
-nz:=size(Z);
- si Z[0]==Z[1] alors Z:=augment(Z[0],Z[2..nz-1]);nz:=nz-1; 
-     fsi;
-pour u de 1 jusque nz-2 faire 
-     si Z[u]==Z[u+1] alors Z:=augment(Z[0..u-1],Z[u+1..nz-1]);nz:=nz-1; 
-     fsi;
-fpour;
+
+
+ Z:=sort([op(set[op(Z)])]);
+
+
 nz:=size(Z);
 l0:=" newLigneVariables(btex $"+nomv+"$ etex);";lp:=" "; lf:=" ";lsp:=" ";
 
@@ -2171,13 +2147,9 @@ Z:=sort(Z);
 nz:=size(Z);
 
 
+ Z:=sort([op(set[op(Z)])]);
 
 
-
-if(nz>2){pour u de 1 jusque nz-2 faire 
-     si Z[u]==Z[u+1] alors Z:=Z[0..u-1],Z[u+1..nz-1];nz:=nz-1;
-     fsi;
-fpour;};
 nz:=size(Z);
 
 if(nz==0){li:="";l0:="val(btex $"+latex(D[0])+"$ etex);val(btex $"+latex(D[1])+"$ etex);";
@@ -2353,20 +2325,11 @@ fpour;
 
 
 
-Z:=sort(Z); // on classe les zeros dans l'ordre croissant 
-nz:=size(Z);
-if(nz>2){pour u de 1 jusque nz-2 faire 
-     si Z[u]==Z[u+1] alors Z:=Z[0..u-1],Z[u+1..nz-1];nz:=nz-1; // pour les zeros en double
-     fsi;
-fpour;}
+Z:=concat(Z,F);
 
 
-Z:=sort(Z);
-nz:=size(Z);
-if(nz>2){pour u de 1 jusque nz-2 faire 
-     si Z[u]==Z[u+1] alors Z:=Z[0..u-1],Z[u+1..nz-1];nz:=nz-1;
-     fsi;
-fpour;};
+Z:=sort([op(set[op(Z)])]);
+
 nz:=size(Z);
 
 if(nz==0){li:="";l0:="val(btex $"+latex(D[0])+"$ etex);val(btex $"+latex(D[1])+"$ etex);";
@@ -2595,15 +2558,9 @@ else{pour j de 0 jusque size(S)-1 faire
                       fpour;
 
 Z:=concat([Z],F);
-Z:=sort(Z);
-nz:=size(Z);
-if(nz>2){pour u de 1 jusque nz-2 faire 
-     si Z[u]==Z[u+1] alors Z:=concat(Z[0..u-1],Z[u+1..nz-1]);nz:=nz-1;
-     fsi;
-fpour;}
 
-if(Z[0]==Z[1]){Z:=Z[1..nz-1];nz:=nz-1;}
-if(Z[nz-2]==Z[nz-1]){Z:=Z[0..nz-2];nz:=nz-1;}
+ Z:=sort([op(set[op(Z)])]);
+
 
 nz:=size(Z);
 l0:=" ";li:=" ";lr:=" ";