diff options
author | Karl Berry <karl@freefriends.org> | 2008-05-25 01:07:41 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-05-25 01:07:41 +0000 |
commit | 742b94f2b9f9e1ac6251bb36a49b421c628333da (patch) | |
tree | 1dcc9f89d1d531b5310f987b5fa39241d06cc5f4 /Master/texmf-dist/tex/latex/tablor | |
parent | 14ef1a1bfbf2eb04c32ab038c4916e18d485156e (diff) |
tablor update (23may08)
git-svn-id: svn://tug.org/texlive/trunk@8337 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/tablor')
-rw-r--r-- | Master/texmf-dist/tex/latex/tablor/tablor.cfg | 70 | ||||
-rw-r--r-- | Master/texmf-dist/tex/latex/tablor/tablor.sty | 82 |
2 files changed, 104 insertions, 48 deletions
diff --git a/Master/texmf-dist/tex/latex/tablor/tablor.cfg b/Master/texmf-dist/tex/latex/tablor/tablor.cfg index b48574d2385..6bb248629fc 100644 --- a/Master/texmf-dist/tex/latex/tablor/tablor.cfg +++ b/Master/texmf-dist/tex/latex/tablor/tablor.cfg @@ -46,3 +46,73 @@ etex + + + + + + + + +%================================= +%IV - 1ère colonne +%================================= +% +%permet de configurer les termes dans la première colonne des +%tableaux : "signe de" ou "sign of" ou "" etc. +% + + + +\begin{VerbatimOut}{config.cxx} + +// POUR LES TV, TVI,TVZ,TVapp,TSq,TSa +// pour la ligne signe +lsic:=" +newLigneSignes(btex $\\hbox{ Signe de }\\atop{\\displaystyle "; + +// POUR LES TV, TVI,TVZ,TVapp +// pour la ligne variation +lvic:=" +newLigneVariations(btex $\\hbox{ Variations de }\\atop{\\displaystyle "; + +\end{VerbatimOut} + + + +%% you may prefer + +% \begin{VerbatimOut}{config.cxx} + +% // FOR TV, TVI,TVZ,TVapp,TSq,TSa +% // for the signs +% lsic:=" +% newLigneSignes(btex $\\hbox{ Sign of }\\atop{\\displaystyle "; + +% // POUR LES TV, TVI,TVZ,TVapp +% // for the variations +% lvic:=" +% newLigneVariations(btex $\\hbox{ Variations of }\\atop{\\displaystyle "; + +%\end{VerbatimOut} + + + +%% ou si vous préférez que ni signe ni variation n'apparaissent + + + +% \begin{VerbatimOut}{config.cxx} + +% // POUR LES TV, TVI,TVZ,TVapp,TSq,TSa +% // pour la ligne signe +% lsic:=" +% newLigneSignes(btex ${\\displaystyle "; + +% // POUR LES TV, TVI,TVZ,TVapp +% // pour la ligne variation +% lvic:=" +% newLigneVariations(btex ${\\displaystyle "; + +% \end{VerbatimOut} + diff --git a/Master/texmf-dist/tex/latex/tablor/tablor.sty b/Master/texmf-dist/tex/latex/tablor/tablor.sty index 8a607fa7279..cc970ee84b5 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}[18/05/2008 v2.07 la machine à créer des tableaux de signes et variations] +\ProvidesPackage{tablor}[22/05/2008 v2.08 la machine à créer 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 @@ -18,7 +18,7 @@ % %%%%%% Pour des tableaux de plus de 2 facteurs % % \begin{TS} -% TS([-2*x+3,x^2-1,x^2+1,x-1,x^2-2],[a,b],\tv); +% TS("P",[-2*x+3,x^2-1,x^2+1,x-1,x^2-2],[a,b],\tv); % \end{TS} % % pour les tableaux de signes avec quotient @@ -243,8 +243,7 @@ pour m de 0 jusque nz-1 faire l0:=l0+"val(btex $"+latex(Z[m])+"$ etex); k0:= evalf(limite(f(x),x=Z[0],1))> evalf(limite(f(x),x=Z[1],-1)); kz:=evalf(limite(f(x),x=Z[nz-1],-1))> evalf(limite(f(x),x=Z[nz-2],1)); -lsi:=" -newLigneSignes(btex $\\hbox{ Signe de }\\atop{\\displaystyle "+nom+"'("+nomv+")}$ etex);"+ +lsi:=lsic+nom+"'("+nomv+")}$ etex);"+ if(Z[0]==-infinity){if(sign(evalf(fp(if(Z[1]==+infinity){0}else{Z[1]-10^(-5)})))==1){"plus;"}else{"moins;"}}else{if(member(Z[0],F)==0){ if(fp(Z[0])==0){"valBarre(btex 0 etex);"}else{" "}+ if(sign(fp(Z[0]+10^(-5)))==1){"plus;"}else{"moins;"}}else{"nonDefBarre;"+ @@ -258,8 +257,7 @@ if(nz>2){ for(r:=1; r<=nz-2;r++){ ksp:=evalf(fp(Z[r]+0.01))>0; lsf:=if(member(Z[nz-1],F)==0){""}else{"nomDefBarre; "} lm0:=limite(f(x),x=Z[0],1)==-infinity; - li:=" -newLigneVariations(btex $\\hbox{ Variations de }\\atop{\\displaystyle {"+nom+"}}$ etex);"+ + li:=lvic+nom+"}$ etex);"+ if(member(Z[0],F)==0){"valPos(btex $"+if(lm0==1){"-\\infty"}else{latex(simplifier(limite(f(x),x=Z[0],1)))}+"$ etex,"} else{"nonDefBarre;limDroite(btex $"+if(lm0==1){"-\\infty"}else{latex(simplifier(limite(f(x),x=Z[0],1)))}+"$ etex,"}+ if(k0==1){"1"}else{"0"}+ @@ -414,8 +412,7 @@ pour m de 0 jusque nz-1 faire l0:=l0+"val(btex $"+latex(Z[m])+"$ etex); k0:= evalf(limite(f(x),x=Z[0],1))> evalf(limite(f(x),x=Z[1],-1)); kz:=evalf(limite(f(x),x=Z[nz-1],-1))> evalf(limite(f(x),x=Z[nz-2],1)); -lsi:=" -newLigneSignes(btex $\\hbox{ Signe de }\\atop{\\displaystyle "+nom+"'("+nomv+")}$ etex);"+ +lsi:=lsic+nom+"'("+nomv+")}$ etex);"+ if(member(Z[0],IMIN)!=0){"debutNonDef;"}else{if(Z[0]==-infinity){if(sign(evalf(fp(if(Z[1]==+infinity){0}else{Z[1]-10^(-5)})))==1){"plus;"}else{"moins;"}}else{if(member(Z[0],F)==0){ if(fp(Z[0])==0){"valBarre(btex 0 etex);"}else{" "}+ if(sign(fp(Z[0]+10^(-5)))==1){"plus;"}else{"moins;"}}else{"nonDefBarre;"+ @@ -438,8 +435,7 @@ lsf:=if(member(Z[0],IMAX)!=0){"finNonDef;"}else{if(member(Z[nz-1],F)==0){""}else lm0:=limite(f(x),x=Z[0],1)==-infinity; - li:=" -newLigneVariations(btex $\\hbox{ Variations de }\\atop{\\displaystyle {"+nom+"}}$ etex);"+ + li:=lvic +nom+"}$ etex);"+ if(member(Z[0],F)==0){"valPos(btex $"+if(lm0==1){"-\\infty"}else{latex(simplifier(limite(f(x),x=Z[0],1)))}+"$ etex,"} else{"nonDefBarre;limDroite(btex $"+if(lm0==1){"-\\infty"}else{latex(simplifier(limite(f(x),x=Z[0],1)))}+"$ etex,"}+ if(k0==1){"1"}else{"0"}+ @@ -618,8 +614,7 @@ pour m de 0 jusque nz-1 faire l0:=l0+"val(btex $"+latex(Z[m])+"$ etex); k0:= evalf(limite(f(x),x=Z[0],1))> evalf(limite(f(x),x=Z[1],-1)); kz:=evalf(limite(f(x),x=Z[nz-1],-1))> evalf(limite(f(x),x=Z[nz-2],1)); -lsi:=" -newLigneSignes(btex $\\hbox{ Signe de }\\atop{\\displaystyle "+nom+"'("+nomv+")}$ etex);"+ +lsi:=lsic+nom+"'("+nomv+")}$ etex);"+ if(Z[0]==-infinity){if(sign(evalf(fp(if(Z[1]==+infinity){0}else{Z[1]-10^(-5)})))==1){"plus;"}else{"moins;"}}else{if(member(Z[0],F)==0){ if(fp(Z[0])==0){"valBarre(btex 0 etex);"}else{" "}+ if(sign(fp(Z[0]+10^(-5)))==1){"plus;"}else{"moins;"}}else{"nonDefBarre;"+ @@ -633,8 +628,7 @@ if(nz>2){ for(r:=1; r<=nz-2;r++){ ksp:=evalf(fp(Z[r]+0.01))>0; lsf:=if(member(Z[nz-1],F)==0){""}else{"nomDefBarre; "} lm0:=limite(f(x),x=Z[0],1)==-infinity; - li:=" -newLigneVariations(btex $\\hbox{ Variations de }\\atop{\\displaystyle {"+nom+"}}$ etex);"+ + li:=lvic+nom+"}$ etex);"+ if(member(Z[0],F)==0){"valPos(btex $"+if(lm0==1){"-\\infty"}else{latex(simplifier(limite(f(x),x=Z[0],1)))}+"$ etex,"} else{"nonDefBarre;limDroite(btex $"+if(lm0==1){"-\\infty"}else{latex(simplifier(limite(f(x),x=Z[0],1)))}+"$ etex,"}+ if(k0==1){"1"}else{"0"}+ @@ -794,8 +788,7 @@ TestS:=(sign(evalf(LL[0]-ao))==sign(evalf(LL[1]-ao))) or (sign(evalf(LL[0]-ao))= k0:= evalf(limite(f(x),x=Z[0],1))> evalf(limite(f(x),x=Z[1],-1)); kz:=evalf(limite(f(x),x=Z[nz-1],-1))> evalf(limite(f(x),x=Z[nz-2],1)); -lsi:=" -newLigneSignes(btex $\\hbox{ Signe de }\\atop{\\displaystyle "+nom+"'("+nomv+")}$ etex);"+ +lsi:=lsic+nom+"'("+nomv+")}$ etex);"+ if(Z[0]==-infinity){if(sign(evalf(fp(if(Z[1]==+infinity){0}else{Z[1]-10^(-5)})))==1){"plus;"}else{"moins;"}}else{if(member(Z[0],F)==0){ if(fp(Z[0])==0){"valBarre(btex 0 etex);"}else{" "}+ if(sign(fp((Z[0]+10^(-10))))==1){"plus;"}else{"moins;"}}else{"nonDefBarre;"+ @@ -827,8 +820,7 @@ lm0:=limite(f(x),x=Z[0],1)==-infinity; TestS:=(sign(evalf(LL[0]-ao))==sign(evalf(LL[1]-ao))) or (sign(evalf(LL[0]-ao))==0.0) or (sign(evalf(LL[1]-ao))==0.0); - li:=" -newLigneVariations(btex $\\hbox{ Variations de }\\atop{\\displaystyle {"+nom+"}}$ etex); + li:=lvic+nom+"}$ etex); "+ if(member(Z[0],F)==0){"valPos(btex $"+if(lm0==1){"-\\infty"}else{latex(simplifier(limite(f(x),x=Z[0],1)))}+"$ etex,"} else{"nonDefBarre;limDroite(btex $"+if(lm0==1){"-\\infty"}else{latex(simplifier(limite(f(x),x=Z[0],1)))}+"$ etex,"}+ if(k0==1){"1);"}else{"0);"}+if(TestS==0){"valPos(btex $ "+ao+" $ etex,0.5);"}else{" "}; @@ -1026,8 +1018,7 @@ TestS:=(sign(evalf(LL[0]-ao))==sign(evalf(LL[1]-ao))) or (sign(evalf(LL[0]-ao))= k0:= evalf(limite(f(x),x=Z[0],1))> evalf(limite(f(x),x=Z[1],-1)); kz:=evalf(limite(f(x),x=Z[nz-1],-1))> evalf(limite(f(x),x=Z[nz-2],1)); -lsi:=" -newLigneSignes(btex $\\hbox{ Signe de }\\atop{\\displaystyle "+nom+"'("+nomv+")}$ etex);"+ +lsi:=lsic+nom+"'("+nomv+")}$ etex);"+ if(Z[0]==-infinity){if(sign(evalf(fp(if(Z[1]==+infinity){0}else{Z[1]-10^(-5)})))==1){"plus;"}else{"moins;"}}else{if(member(Z[0],F)==0){ if(fp(Z[0])==0){"valBarre(btex 0 etex);"}else{" "}+ if(sign(fp((Z[0]+10^(-10))))==1){"plus;"}else{"moins;"}}else{"nonDefBarre;"+ @@ -1059,8 +1050,7 @@ lm0:=limite(f(x),x=Z[0],1)==-infinity; TestS:=(sign(evalf(LL[0]-ao))==sign(evalf(LL[1]-ao))) or (sign(evalf(LL[0]-ao))==0.0) or (sign(evalf(LL[1]-ao))==0.0); - li:=" -newLigneVariations(btex $\\hbox{ Variations de}\\atop{\\displaystyle {"+nom+"}}$ etex); + li:=lvic+nom+"}$ etex); "+ if(member(Z[0],F)==0){"valPos(btex $"+if(lm0==1){"-\\infty"}else{latex(simplifier(limite(f(x),x=Z[0],1)))}+"$ etex,"} else{"nonDefBarre;limDroite(btex $"+if(lm0==1){"-\\infty"}else{latex(simplifier(limite(f(x),x=Z[0],1)))}+"$ etex,"}+ if(k0==1){"1);"}else{"0);"}+if(TestS==0){"valPos(btex $ "+ao+" $ etex,0.5);"}else{" "}; @@ -1191,7 +1181,7 @@ fclose(sortie); \begin{VerbatimOut}{XcasTabSignL.cxx} -TS(L,D,nmr):={ +TS(nomf,L,D,nmr):={ L:=apply(f->unapply(f,x),L) n:=size(L); Z:=NULL; @@ -1214,8 +1204,7 @@ fpour;}; nz:=size(Z); if(nz==0){li:="";l0:="val(btex $"+latex(D[0])+"$ etex);val(btex $"+latex(D[1])+"$ etex);"; - for(p:=0;p<=n-1;p++){li:=li+" -newLigneSignes(btex $\\hbox{ Signe de }\\atop{\\displaystyle {"+latex(L[p](x))+"}}$ etex);"+ + for(p:=0;p<=n-1;p++){li:=li+lsic+latex(L[p](x))+"}$ etex);"+ if(mini!=-infinity and L[p](mini)==0){" valBarre(btex 0 etex);"}else{" "}+ @@ -1229,9 +1218,7 @@ if(L[p]((mini+maxi)*0.5>0)){"plus;"}else{"moins;"}+if(maxi!=+infinity and L[p](m MetaLfc:=" beginTableau("+nmr+") newLigneVariables(btex $ {x}$ etex); - "+l0+li+ - " - newLigneSignes(btex $\\hbox{ Signe du }\\atop{{\\displaystyle produit}}$ etex);"+ + "+l0+li+ lsic+nomf+"(x)}$ etex);"+ if(mini!=-infinity and product(L[s](mini),s,0,n-1)==0){" valBarre(btex 0 etex);"}else{" "}+ lf+ @@ -1251,8 +1238,7 @@ l0:=l0+"val(btex $"+latex(D[1])+"$ etex);"; for(p:=0;p<=n-1;p++){lp:=""; - li:=li+" -newLigneSignes(btex $\\hbox{ Signe de }\\atop{\\displaystyle {"+latex(L[p](x))+"}}$ etex);"+ + li:=li+lsic+latex(L[p](x))+"}$ etex);"+ if(mini!=-infinity and L[p](mini)==0){" valBarre(btex 0 etex);"}else{" "}+ @@ -1280,9 +1266,7 @@ MetaLfc:=" beginTableau("+nmr+") newLigneVariables(btex $ {x}$ etex); "+l0+ li - + - " - newLigneSignes(btex $\\hbox{ Signe du }\\atop{{\\displaystyle \\rm produit}}$ etex);"+ + + lsic+nomf+"(x)}$ etex);"+ if(mini!=-infinity and product(L[s](mini),s,0,n-1)==0){" valBarre(btex 0 etex);"}else{" "}+ @@ -1362,8 +1346,7 @@ fpour;}; nz:=size(Z); if(nz==0){li:="";l0:="val(btex $"+latex(D[0])+"$ etex);val(btex $"+latex(D[1])+"$ etex);"; - for(p:=0;p<=n-1;p++){li:=li+" -newLigneSignes(btex $\\hbox{ Signe de }\\atop{\\displaystyle {"+latex(L[p](x))+"}}$ etex);"+ + for(p:=0;p<=n-1;p++){li:=li+lsic+latex(L[p](x))+"}$ etex);"+ if(mini!=-infinity and L[p](mini)==0){" valBarre(btex 0 etex);"}else{" "}+ @@ -1381,8 +1364,7 @@ MetaLfc:=" beginTableau("+nmr+") newLigneVariables(btex $ {x}$ etex); "+l0+li+ - " - newLigneSignes(btex $\\hbox{ Signe }\\atop{{\\displaystyle de "+nomf+"(x)}}$ etex);"+ + lsic+nomf+"(x)}$ etex);"+ if(member(mini,FF)==0){if(mini!=-infinity and product(L[s](mini),s,0,n-1)==0){" valBarre(btex 0 etex);"}else{" "}}else{"nonDefBarre;"}+ lf+ @@ -1407,8 +1389,7 @@ l0:=l0+"val(btex $"+latex(D[1])+"$ etex);"; for(p:=0;p<=n-1;p++){lp:=""; - li:=li+" -newLigneSignes(btex $\\hbox{ Signe de }\\atop{\\displaystyle {"+latex(L[p](x))+"}}$ etex);"+ + li:=li+lsic+latex(L[p](x))+"}$ etex);"+ if(mini!=-infinity and L[p](mini)==0){" valBarre(btex 0 etex);"}else{" "}+ @@ -1442,8 +1423,7 @@ newLigneVariables(btex $ {x}$ etex); "+l0+ li + - " - newLigneSignes(btex $\\hbox{ Signe de}\\atop{{\\displaystyle "+nomf+"(x)}}$ etex);"+ + lsic+nomf+"(x)}$ etex);"+ if(member(mini,FF)==0){if(mini!=-infinity and product(L[s](mini),s,0,n-1)==0){" valBarre(btex 0 etex);"}else{" "}}else{"nonDefBarre;"}+ @@ -1497,15 +1477,14 @@ zmax:=max(zA,zB); val(btex $-\\infty$ etex);val(btex $"+latex(zmin)+"$ etex); val(btex $"+latex(zmax)+"$etex); val(btex $+\\infty$ etex); - newLigneSignes(btex $\\hbox{ Signe de }\\atop{\\displaystyle {"+if(a==1){"x+"}else{if(a==-1){"-x+"}else{a+"x+"}}+b+"}}$ etex);" + "+lsic+if(a==1){"x+"}else{if(a==-1){"-x+"}else{a+"x+"}}+b+"}$ etex);" + if(a>0){"moins;"}else{"plus;"}+ if(zmin==zA){"valBarre(btex 0 etex);"}else{"barre;"}+ if(zmin==zA){si a>0 alors "plus;"; sinon "moins;";fsi} else{si a>0 alors "moins;"; sinon "plus;"; fsi}+ if(zmin==zA){"barre;"}else{"valBarre(btex 0 etex);"}+ if(a>0){"plus;"}else{"moins;"} - +" -newLigneSignes(btex $\\hbox{ Signe de }\\atop{\\displaystyle {"+if(c==1){"x+"}else{if(c==-1){"-x+"}else{c+"x+"}}+d+"}}$ etex);" + +lsic+if(c==1){"x+"}else{if(c==-1){"-x+"}else{c+"x+"}}+d+"}$ etex);" + if(c>0){"moins"}else{"plus"}+";"+ if(zmin==zB){"valBarre(btex 0 etex);"}else{"barre;"}+ if(zmin==zB){si c>0 alors "plus;"; sinon "moins;";fsi} @@ -1513,8 +1492,7 @@ newLigneSignes(btex $\\hbox{ Signe de }\\atop{\\displaystyle {"+if(c==1){"x+"} if(zmin==zB){"barre;"}else{"valBarre(btex 0 etex);"}+ if(c>0){"plus;"}else{"moins;"} - +" -newLigneSignes(btex $\\hbox{ Signe de }\\atop{\\displaystyle {("+if(a==1){"x+"}else{if(a==-1){"-x+"}else{a+"x+"}}+b+")("+if(c==1){"x+"}else{if(c==-1){"-x+"}else{c+"x+"}}+d+")}}$ etex);" + +lsic+"{("+if(a==1){"x+"}else{if(a==-1){"-x+"}else{a+"x+"}}+b+")("+if(c==1){"x+"}else{if(c==-1){"-x+"}else{c+"x+"}}+d+")}}$ etex);" + si a*c>0 alors plus; sinon moins;fsi+";"+ "valBarre(btex 0 etex);"+ si a*c>0 alors moins; sinon plus;fsi+";"+ @@ -1613,8 +1591,7 @@ MetaLfc:=" beginTableau("+nmr+") newLigneVariables(btex $\\displaystyle {x}$ etex); - "+l0+" -newLigneSignes(btex $\\hbox{ Signe de }\\atop{\\displaystyle {"+latex(f(x))+"}}$ etex);"+ + "+l0+lsic+latex(f(x))+"}$ etex);"+ li+lm+lf +" endTableau; @@ -1732,6 +1709,7 @@ fclose(sortie); \begin{VerbatimOut}{XCasa.giac} maple_mode(0); +read("config.cxx"); read("XcasTabSigna.cxx"); read("XCasa.user"); \end{VerbatimOut} @@ -1752,6 +1730,7 @@ read("XCasa.user"); \begin{VerbatimOut}{XCasQ.giac} maple_mode(0); +read("config.cxx"); read("XcasTabSignQ.cxx"); read("XCasQ.user"); \end{VerbatimOut} @@ -1771,6 +1750,7 @@ read("XCasQ.user"); \begin{VerbatimOut}{XCasL.giac} maple_mode(0); +read("config.cxx"); read("XcasTabSignL.cxx"); read("XCasL.user"); \end{VerbatimOut} @@ -1789,6 +1769,7 @@ read("XCasL.user"); \begin{VerbatimOut}{XCasTSc.giac} maple_mode(0); +read("config.cxx"); read("XcasTSc.cxx"); read("XCasTSc.user"); \end{VerbatimOut} @@ -1810,6 +1791,7 @@ read("XCasTSc.user"); \begin{VerbatimOut}{XCasTV.giac} maple_mode(0); +read("config.cxx"); read("XcasTV.cxx"); read("XCasTV.user"); \end{VerbatimOut} @@ -1837,6 +1819,7 @@ read("XCasTV.user"); \begin{VerbatimOut}{XCasTVZ.giac} maple_mode(0); +read("config.cxx"); read("XcasTVZ.cxx"); read("XCasTVZ.user"); \end{VerbatimOut} @@ -1863,6 +1846,7 @@ read("XCasTVZ.user"); \begin{VerbatimOut}{XCasTVapp.giac} maple_mode(0); +read("config.cxx"); read("XcasTVapp.cxx"); read("XCasTVapp.user"); \end{VerbatimOut} @@ -1890,6 +1874,7 @@ read("XCasTVapp.user"); \begin{VerbatimOut}{XCasTVI.giac} maple_mode(0); +read("config.cxx"); read("XcasTVI.cxx"); read("XCasTVI.user"); \end{VerbatimOut} @@ -1912,6 +1897,7 @@ read("XCasTVI.user"); \begin{VerbatimOut}{XCasTVIapp.giac} maple_mode(0); +read("config.cxx"); read("XcasTVIapp.cxx"); read("XCasTVIapp.user"); \end{VerbatimOut} |