tablor update (2feb08)

git-svn-id: svn://tug.org/texlive/trunk@6500 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 115 insertions, 2 deletions

diff --git a/Master/texmf-dist/tex/latex/tablor/tablor.sty b/Master/texmf-dist/tex/latex/tablor/tablor.sty
index 19fe60c171b..e6e687caf78 100644
--- a/Master/texmf-dist/tex/latex/tablor/tablor.sty
+++ b/Master/texmf-dist/tex/latex/tablor/tablor.sty
@@ -1,12 +1,12 @@
 
 \NeedsTeXFormat{LaTeX2e}[1995/12/01]
 \ProvidesPackage{tablor}
-              [23/01/2008 v1.4
+              [02/02/2008 v1.5
  la machine à créer des tableaux de signes et variations]
 
 
 
-%% Crée 5 environnements :
+%% Crée 10 environnements :
 %% tableau de signes de 2 facteurs affines
 % \begin{TSa}
 % TSa(-2,3,-1,5,\tv);
@@ -32,6 +32,14 @@
 %TVI([-1,+infinity],[-1],"f","x",x2/sqrt(x+1)-1,1,2,\tv)
 %\end{TVI}
 %%%
+%
+% et leurs pendants étoilés qui permet l'affichage intermédiaire du 
+% fichier metapost pour le modifier
+%
+%
+%
+%
+
 
 
 
@@ -93,6 +101,7 @@ pour m de 0 jusque nz-1 faire l0:=l0+"val(btex $"+latex(Z[m])+"$ etex);
 lsi:="
 newLigneSignes(btex $\\hbox{ Signe de }\\atop{\\displaystyle "+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;"+
                                                          if(sign(fp((Z[0]+10^(-5))))==1){"plus;"}else{"moins;"} }}
  
@@ -246,6 +255,7 @@ TestS:=(sign(evalf(LL[0]-ao))==sign(evalf(LL[1]-ao))) or (sign(evalf(LL[0]-ao))=
 lsi:="
 newLigneSignes(btex $\\hbox{ Signe de }\\atop{\\displaystyle "+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{" "}; 
 
@@ -882,6 +892,13 @@ fclose(Sortie);
 }
 
 
+
+
+
+
+
+
+
 \begin{VerbatimOut}{XCasQ.giac}
 maple_mode(0);
 read("XcasTabSignQ.cxx");
@@ -912,6 +929,28 @@ fclose(Sortie);
 
 
 
+\newenvironment{TSq*}
+{\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\£µ]{XCasQ.user}}
+{\end{VerbatimOut}
+           \executGiacmp{XCasQ.giac}
+
+
+
+
+\immediate\write18{texmaker XCasmpQ.mp}
+
+   \immediate\write18{mpost  XCasmpQ}
+
+\begin{center}
+  \includegraphics{XCasmpQ.\theTVn}
+\end{center}
+\stepcounter{TVn}
+}
+
+
+
+
+
 \begin{VerbatimOut}{XCasL.giac}
 maple_mode(0);
 read("XcasTabSignL.cxx");
@@ -940,6 +979,28 @@ fclose(Sortie);
 \stepcounter{TVn}
 }
 
+
+
+\newenvironment{TS*}
+{\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\£µ]{XCasL.user}}
+{\end{VerbatimOut}
+           \executGiacmp{XCasL.giac}
+
+\immediate\write18{texmaker XCasmpL.mp}
+
+   \immediate\write18{mpost  XCasmpL}
+
+\begin{center}
+  \includegraphics{XCasmpL.\theTVn}
+\end{center}
+\stepcounter{TVn}
+}
+
+
+
+
+
+
 \begin{VerbatimOut}{XCasTSc.giac}
 maple_mode(0);
 read("XcasTSc.cxx");
@@ -955,6 +1016,27 @@ fprint(Sortie,Unquoted,Resultat);
 fclose(Sortie);
 \end{VerbatimOut}
 
+\newenvironment{TSc*}
+{\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\£µ]{XCasTSc.user}}
+{\end{VerbatimOut}
+           \executGiacmp{XCasTSc.giac}
+
+\immediate\write18{texmaker XCasmpTSc.mp}
+
+
+   \immediate\write18{mpost  XCasmpTSc}
+
+\begin{center}
+  \includegraphics{XCasmpTSc.\theTVn}
+\end{center}
+\stepcounter{TVn}
+}
+
+
+
+
+
+
 \newenvironment{TSc}
 {\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\£µ]{XCasTSc.user}}
 {\end{VerbatimOut}
@@ -973,6 +1055,7 @@ fclose(Sortie);
 
 
 
+
 \begin{VerbatimOut}{XCasTV.giac}
 maple_mode(0);
 read("XcasTV.cxx");
@@ -1002,6 +1085,22 @@ fclose(Sortie);
 
 
 
+\newenvironment{TV*}%
+{\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\£µ]{XCasTV.user}}%
+{\end{VerbatimOut}%
+           \executGiacmp{XCasTV.giac}
+
+\immediate\write18{texmaker XCasmpTV.mp}
+
+   \immediate\write18{mpost  XCasmpTV}
+\begin{center}
+  \includegraphics{XCasmpTV.\theTVn}
+\end{center}
+\stepcounter{TVn}
+}
+
+
+
 \begin{VerbatimOut}{XCasTVI.giac}
 maple_mode(0);
 read("XcasTVI.cxx");
@@ -1029,7 +1128,21 @@ fclose(Sortie);
 \stepcounter{TVn}
 }
 
+\newenvironment{TVI*}%
+{\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\£µ]{XCasTVI.user}}%
+{\end{VerbatimOut}% 
+ \executGiacmp{XCasTVI.giac}
+
+
+\immediate\write18{texmaker XCasmpTVI.mp}
+
+ \immediate\write18{mpost  XCasmpTVI}
+\begin{center}
+  \includegraphics{XCasmpTVI.\theTVn}
+\end{center}
 
+\stepcounter{TVn}
+}