summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/tablor
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-03-21 17:38:34 +0000
committerKarl Berry <karl@freefriends.org>2008-03-21 17:38:34 +0000
commit863fd221e0a76260801e4369a92f8612eb9ba1bc (patch)
tree21da4a94f553d7d3d1f5d0664014bad8a9aa439b /Master/texmf-dist/tex/latex/tablor
parentfbad46c95a0870250bacff1df845b93b00b67b4d (diff)
tablor update (19mar08)
git-svn-id: svn://tug.org/texlive/trunk@7062 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/tablor')
-rw-r--r--Master/texmf-dist/tex/latex/tablor/tablor.sty12
1 files changed, 7 insertions, 5 deletions
diff --git a/Master/texmf-dist/tex/latex/tablor/tablor.sty b/Master/texmf-dist/tex/latex/tablor/tablor.sty
index 065f6f236a4..726ed6f45a5 100644
--- a/Master/texmf-dist/tex/latex/tablor/tablor.sty
+++ b/Master/texmf-dist/tex/latex/tablor/tablor.sty
@@ -1,6 +1,6 @@
\NeedsTeXFormat{LaTeX2e}[1995/12/01]
-\ProvidesPackage{tablor}[28/02/2008 v1.8 la machine à créer des tableaux de signes et variations]
+\ProvidesPackage{tablor}[19/03/2008 v1.9 la machine à créer des tableaux de signes et variations]
% \copyleft Connan le Barbare \copyright
% avec l'efficace participation de Jean-Michel Boucart
@@ -1142,9 +1142,11 @@ 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);
l0:=" ";li:=" ";lr:=" ";
-if(nz==0) {l0:="val(btex $"+latex(D[0])+"$ etex);val(btex $"+latex(D[1])+"$ etex);";
+if(nz==0){l0:="val(btex $"+latex(D[0])+"$ etex);val(btex $"+latex(D[1])+"$ etex);";
li:=if(mini!=-infinity and f(mini)==0){"
valBarre(btex 0 etex);"}else{"
"}+
@@ -1163,10 +1165,10 @@ l0:=l0+"val(btex $"+latex(D[1])+"$ etex);";
li:= if(mini!=-infinity and f(mini)==0){"
valBarre(btex 0 etex);"}else{"
"}+
-if(f(Z[0]-0.01)>0){"plus;"}else{"moins;"}+if(simplifier(f(Z[0]))==0){"valBarre(btex 0 etex);"}else{"barre;"};
+if(f(Z[0]-0.01)>0){"plus;"}else{"moins;"}+"valBarre(btex 0 etex);";
-lm:=if(nz>=2){for(r:=0; r<=nz-2;r++){if(f((Z[r]+Z[r+1])*.5)>0){"plus;"}else{"moins;"}+
- if(simplifier(f(Z[r+1]))==0){"valBarre(btex 0 etex);"}else{"barre;"}
+lm:=if(nz>=2){for(r:=0; r<=nz-2;r++){lm:=lm+if(f((Z[r]+Z[r+1])*.5)>0){"plus;"}else{"moins;"}+
+ "valBarre(btex 0 etex);"
}}else{" "};
lf:=if(f(Z[nz-1]+1.0)>0){"plus;"}else{"moins;"}+if(maxi!=+infinity and f(maxi)==0){"valBarre(btex 0 etex);"}else{"