From 806118c270bcbba9a03291c433c3e7abcb3da6e3 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 8 Nov 2008 00:56:43 +0000 Subject: tablor update (7nov08) git-svn-id: svn://tug.org/texlive/trunk@11218 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/tex/latex/tablor/tablor-xetex.sty | 34 ++++++++++++---------- 1 file changed, 18 insertions(+), 16 deletions(-) (limited to 'Master/texmf-dist/tex/latex/tablor/tablor-xetex.sty') diff --git a/Master/texmf-dist/tex/latex/tablor/tablor-xetex.sty b/Master/texmf-dist/tex/latex/tablor/tablor-xetex.sty index 21605a4d10b..556d6981f73 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}[24/10/2008 v4.02 la machine a creer des +\ProvidesPackage{tablor-xetex}[07/11/2008 v4.02 la machine a creer des tableaux de signes et variations compatible xetex] % \copyleft Connan le Barbare (aka Guillaume Connan) \copyright @@ -275,6 +275,7 @@ epstopdf $1.eps; %% + \begin{VerbatimOut}{XcasTV.cxx} TV(L,F,nom,nomv,f,ftt,trigo,nmr):={ nl:=size(L); @@ -453,6 +454,12 @@ fclose(sortie); + + + +%%%% + + % % % TVPC : pour les fonctions prolongeables par continuité. @@ -650,11 +657,6 @@ fclose(sortie); - - - - - %% %% %% TV avec une zone interdite : on rajoute comme argument la liste des intervalles interdits @@ -1173,8 +1175,8 @@ TestS:=(sign(evalf(LL[0]-ao))==sign(evalf(LL[1]-ao))) or (sign(evalf(LL[0]-ao))= 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;"+ - if(sign(fp(10^(-10)+Z[0]))==1){"plus;"}else{"moins;"} }}+if(TestS==0){"valBarre(btex$ $ etex);"+ if(sign(fp(10^(-10)+Z[0]))==1){"plus;"}else{"moins;"}}else{" "}; + if(sign(fp((Z[0]+10^(-3))))==1){"plus;"}else{"moins;"}}else{"nonDefBarre;"+ + if(sign(fp(10^(-3)+Z[0]))==1){"plus;"}else{"moins;"} }}+if(TestS==0){"valBarre(btex$ $ etex);"+ if(sign(fp(10^(-3)+Z[0]))==1){"plus;"}else{"moins;"}}else{" "}; @@ -1423,8 +1425,8 @@ TestS:=(sign(evalf(LL[0]-ao))==sign(evalf(LL[1]-ao))) or (sign(evalf(LL[0]-ao))= 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;"+ - if(sign(fp(10^(-10)+Z[0]))==1){"plus;"}else{"moins;"} }}+if(TestS==0){"valBarre(btex$ $ etex);"+ if(sign(fp(10^(-10)+Z[0]))==1){"plus;"}else{"moins;"}}else{" "}; + if(sign(fp((Z[0]+10^(-3))))==1){"plus;"}else{"moins;"}}else{"nonDefBarre;"+ + if(sign(fp(10^(-3)+Z[0]))==1){"plus;"}else{"moins;"} }}+if(TestS==0){"valBarre(btex$ $ etex);"+ if(sign(fp(10^(-3)+Z[0]))==1){"plus;"}else{"moins;"}}else{" "}; @@ -2345,7 +2347,10 @@ li:= if(mini!=-infinity and f(mini)==0){" "}else{"nonDefBarre;"} } -lm:=if(nz>2){for(r:=0; r0){"plus;"}else{"moins;"}+ +lm:=if(nz>2){for(r:=0; r0){"plus;"}else{"moins;"} +}else{if(f((Z[r]+Z[r+1])*.5)>0){"plus;"}else{"moins;"}} ++ if(member(Z[r+1],F)==0){"valBarre(btex 0 etex);"}else{"nonDefBarre;"} }}else{" "}; @@ -2375,21 +2380,18 @@ endTableau; sortie:=fopen("XCasmpfc.mp"); fprint(sortie,Unquoted,MetaLfc); fclose(sortie); - }:; -\end{VerbatimOut} - - +\end{VerbatimOut} -%%$ +%%$ -- cgit v1.2.3