diff options
author | Karl Berry <karl@freefriends.org> | 2009-03-19 16:39:05 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2009-03-19 16:39:05 +0000 |
commit | 44fd9c60eecdeb03f545d4c6199921b9ea71fa28 (patch) | |
tree | 9eb21522055866f281479507224108d5e46726f9 /Master/texmf-dist/tex/latex/tablor/tablor.sty | |
parent | 81c39042d694d7088a131fc09460771775e73c4e (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/tablor.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/tablor/tablor.sty | 91 |
1 files changed, 24 insertions, 67 deletions
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:=" "; |