diff options
| author | Karl Berry <karl@freefriends.org> | 2008-03-21 17:38:34 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2008-03-21 17:38:34 +0000 |
| commit | 863fd221e0a76260801e4369a92f8612eb9ba1bc (patch) | |
| tree | 21da4a94f553d7d3d1f5d0664014bad8a9aa439b /Master/texmf-dist/tex | |
| parent | fbad46c95a0870250bacff1df845b93b00b67b4d (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')
| -rw-r--r-- | Master/texmf-dist/tex/latex/tablor/tablor.sty | 12 |
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{" |