summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/tablor
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-03-19 16:39:05 +0000
committerKarl Berry <karl@freefriends.org>2009-03-19 16:39:05 +0000
commit44fd9c60eecdeb03f545d4c6199921b9ea71fa28 (patch)
tree9eb21522055866f281479507224108d5e46726f9 /Master/texmf-dist/tex/latex/tablor
parent81c39042d694d7088a131fc09460771775e73c4e (diff)
tablor update (17mar09)
git-svn-id: svn://tug.org/texlive/trunk@12434 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/tablor')
-rw-r--r--Master/texmf-dist/tex/latex/tablor/tablor-xetex.sty100
-rw-r--r--Master/texmf-dist/tex/latex/tablor/tablor.sty91
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:=" ";