tablor update (19mar08)

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

5 files changed, 178 insertions, 31 deletions

diff --git a/Master/texmf-dist/doc/latex/tablor/Figures.zip b/Master/texmf-dist/doc/latex/tablor/Figures.zip
index 4063f1cf6a9..9e1f9648f9b 100644
--- a/Master/texmf-dist/doc/latex/tablor/Figures.zip
+++ b/Master/texmf-dist/doc/latex/tablor/Figures.zip
diff --git a/Master/texmf-dist/doc/latex/tablor/tablor.html b/Master/texmf-dist/doc/latex/tablor/tablor.html
index 6e67fa4e93b..e26383d0ea4 100644
--- a/Master/texmf-dist/doc/latex/tablor/tablor.html
+++ b/Master/texmf-dist/doc/latex/tablor/tablor.html
@@ -83,7 +83,7 @@
     <pre>
 
 <span class="font-latex-sedate">\NeedsTeXFormat</span>{LaTeX2e}[1995/12/01]
-<span class="font-latex-sedate">\ProvidesPackage</span>{tablor}[28/02/2008 v1.8 la machine &#224; cr&#233;er des tableaux de signes et variations]
+<span class="font-latex-sedate">\ProvidesPackage</span>{<span class="flyspell-duplicate">tablor</span>}[19/03/2008 v1.9 la machine &#224; cr&#233;er des tableaux de signes et variations]
 
 <span class="comment-delimiter">% </span><span class="font-latex-sedate"><span class="comment">\copyleft</span></span><span class="comment"> Connan le Barbare </span><span class="font-latex-sedate"><span class="comment">\copyright</span></span><span class="comment">
 </span><span class="comment-delimiter">% </span><span class="comment">avec l'efficace participation de Jean-Michel Boucart
@@ -1198,7 +1198,7 @@ return(Meta);
 
 
 
-<span class="font-latex-sedate"><span class="keyword">\begin</span></span><span class="function-name">{VerbatimOut}</span>{<span class="flyspell-duplicate">XcasTSc</span>.cxx}
+<span class="font-latex-sedate"><span class="keyword">\begin</span></span><span class="function-name">{VerbatimOut}</span>{<span class="flyspell-duplicate">XcasTSc</span>.<span class="flyspell-duplicate">cxx</span>}
 TSc(g,D,nmr):={
 f:=unapply(g,x);
 Z:=NULL;
@@ -1207,10 +1207,10 @@ S:=resoudre(f(x),x);
 if(size(S)==0){
 l0:="val(btex <span class="font-latex-math">$"+latex(D[0])+"$</span> etex);val(btex <span class="font-latex-math">$"+latex(D[1])+"$</span> etex);";
 li:=if(mini!=-infinity and f(mini)==0){"
-                                valBarre(btex 0 etex);"}<span class="flyspell-duplicate">else</span>{"
+                                valBarre(btex 0 etex);"}else{"
                               "}+ 
-if(mini!=-<span class="flyspell-duplicate">infinity</span> or <span class="flyspell-duplicate">maxi</span>!=+<span class="flyspell-duplicate">infinity</span>){if(f((mini+<span class="flyspell-duplicate">maxi</span>)*0.5&gt;0)){"plus;"}<span class="flyspell-duplicate">else</span>{"moins;"}}<span class="flyspell-duplicate">else</span>{if(f(0)&gt;0){"plus;"}<span class="flyspell-duplicate">else</span>{"moins;"}};
-lf:=if(maxi!=+infinity and f(<span class="flyspell-duplicate">maxi</span>)==0){"
+if(mini!=-infinity or maxi!=+infinity){if(f((mini+maxi)*0.5&gt;0)){"plus;"}else{"moins;"}}else{if(f(0)&gt;0){"plus;"}else{"moins;"}};
+lf:=if(maxi!=+infinity and f(maxi)==0){"
                                 valBarre(btex 0 etex);"}else{"
                               "};
 }
@@ -1225,20 +1225,22 @@ if(nz&gt;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 <span class="font-latex-math">$"+latex(D[0])+"$</span> etex);val(btex <span class="font-latex-math">$"+latex(D[1])+"$</span> etex);";
+if(nz==0){l0:="val(btex <span class="font-latex-math">$"+latex(D[0])+"$</span> etex);val(btex <span class="font-latex-math">$"+latex(D[1])+"$</span> etex);";
 li:=if(mini!=-infinity and f(mini)==0){"
                                 valBarre(btex 0 etex);"}else{"
                               "}+ 
 if(f((mini+maxi)*0.5&gt;0)){"plus;"}else{"moins;"};
 lf:=if(maxi!=+infinity and f(maxi)==0){"
-                                valBarre(btex 0 etex);"}else{"
+                                valBarre(btex 0 etex);"}<span class="flyspell-duplicate">else</span>{"
                               "};
 
 }else{
 l0:="val(btex <span class="font-latex-math">$"+latex(D[0])+"$</span> etex);";li:=" ";
-pour m de 0 jusque nz-1 faire l0:=l0+"val(btex <span class="font-latex-math">$"+latex(Z[m])+"$</span> etex);
+pour m de 0 jusque nz-1 faire l0:=l0+"val(btex <span class="font-latex-math">$"+latex(Z[m])+"$</span> <span class="flyspell-duplicate">etex</span>);
 ";
 fpour; 
 l0:=l0+"val(btex <span class="font-latex-math">$"+latex(D[1])+"$</span> etex);";
@@ -1246,13 +1248,13 @@ l0:=l0+"val(btex <span class="font-latex-math">$"+latex(D[1])+"$</span> etex);";
 li:= if(mini!=-infinity and f(mini)==0){"
                                 valBarre(btex 0 etex);"}else{"
                               "}+ 
-if(f(Z[0]-0.01)&gt;0){"plus;"}else{"moins;"}+if(simplifier(f(Z[0]))==0){"valBarre(btex 0 etex);"}else{"barre;"};                               
+if(f(Z[0]-0.01)&gt;0){"plus;"}else{"moins;"}+"valBarre(btex 0 <span class="flyspell-duplicate">etex</span>);";                               
 
-lm:=if(nz&gt;=2){for(r:=0; r&lt;=nz-2;r++){if(f((Z[r]+Z[r+1])*.5)&gt;0){"plus;"}else{"moins;"}+
-                                      if(simplifier(f(Z[r+1]))==0){"valBarre(btex 0 etex);"}else{"barre;"} 
-                           }}else{" "}; 
+lm:=if(nz&gt;=2){for(r:=0; r&lt;=nz-2;r++){lm:=lm+if(f((Z[r]+Z[r+1])*.5)&gt;0){"plus;"}else{"moins;"}+
+                                      "valBarre(btex 0 <span class="flyspell-duplicate">etex</span>);" 
+                           }}<span class="flyspell-duplicate">else</span>{" "}; 
 
-lf:=if(f(Z[nz-1]+1.0)&gt;0){"plus;"}else{"moins;"}+if(maxi!=+infinity and f(maxi)==0){"valBarre(btex 0 etex);"}else{"
+lf:=if(f(Z[nz-1]+1.0)&gt;0){"plus;"}else{"moins;"}+if(maxi!=+infinity and f(maxi)==0){"valBarre(btex 0 etex);"}<span class="flyspell-duplicate">else</span>{"
                               "};
 }};  
 
@@ -1269,15 +1271,15 @@ MetaL:=" input tableauVariation;
 beginTableau("+nmr+")
 newLigneVariables(btex <span class="font-latex-math">$\\Mathbold{x}$</span> etex);
    "+l0+"
-newLigneSignes(btex <span class="font-latex-math">$\\hbox{\</span><span class="font-latex-bold"><span class="font-latex-math">\bf</span></span><span class="font-latex-math"> Signe de }\\atop{\\displaystyle \\Mathbold{"+latex(f(x))+"}}$</span> etex);"+
+<span class="flyspell-duplicate">newLigneSignes</span>(btex <span class="font-latex-math">$\\hbox{\</span><span class="font-latex-bold"><span class="font-latex-math">\bf</span></span><span class="font-latex-math"> Signe de }\\atop{\\displaystyle \\Mathbold{"+latex(f(x))+"}}$</span> etex);"+
                      li+lm+lf
                      +"
 endTableau;
-end"
+<span class="flyspell-duplicate">end</span>"
 ;
 
 
-MetaLfc:="
+<span class="flyspell-duplicate">MetaLfc</span>:="
 
 beginTableau("+nmr+")
 newLigneVariables(btex <span class="font-latex-math">$\\Mathbold{x}$</span> etex);
@@ -1285,7 +1287,7 @@ newLigneVariables(btex <span class="font-latex-math">$\\Mathbold{x}$</span> etex
 newLigneSignes(btex <span class="font-latex-math">$\\hbox{\</span><span class="font-latex-bold"><span class="font-latex-math">\bf</span></span><span class="font-latex-math"> Signe de }\\atop{\\displaystyle \\Mathbold{"+latex(f(x))+"}}$</span> etex);"+
                      li+lm+lf
                      +"
-endTableau;
+<span class="flyspell-duplicate">endTableau</span>;
 
 "
 ;
@@ -1300,7 +1302,7 @@ fclose(sortie);
 
 
 
-return(MetaL);
+<span class="flyspell-duplicate">return</span>(<span class="flyspell-duplicate">MetaL</span>);
  }:;
 <span class="font-latex-sedate"><span class="keyword">\end</span></span><span class="function-name">{VerbatimOut}</span>
 
@@ -1312,7 +1314,7 @@ return(MetaL);
 
 <span class="comment-delimiter">%%</span><span class="comment">
 </span><span class="comment-delimiter">%%</span><span class="comment">
-</span><span class="comment-delimiter">%% </span><span class="comment">traitement des fichiers produits par giac/xcas
+</span><span class="comment-delimiter">%% </span><span class="comment">traitement des fichiers produits par giac/</span><span class="comment"><span class="flyspell-duplicate">xcas</span></span><span class="comment">
 </span><span class="comment-delimiter">%%</span><span class="comment">
 </span><span class="comment-delimiter">%%</span><span class="comment">
 </span>
diff --git a/Master/texmf-dist/doc/latex/tablor/tablor.pdf b/Master/texmf-dist/doc/latex/tablor/tablor.pdf
index fb6fb954d59..b1975418732 100644
--- a/Master/texmf-dist/doc/latex/tablor/tablor.pdf
+++ b/Master/texmf-dist/doc/latex/tablor/tablor.pdf
diff --git a/Master/texmf-dist/doc/latex/tablor/tablor.tex b/Master/texmf-dist/doc/latex/tablor/tablor.tex
index b1d730707a7..211b1339708 100644
--- a/Master/texmf-dist/doc/latex/tablor/tablor.tex
+++ b/Master/texmf-dist/doc/latex/tablor/tablor.tex
@@ -2,7 +2,7 @@
 \usepackage[height=250mm,width=183mm]{geometry}
 \usepackage[upright]{fourier}
 \usepackage{preambule}
-\usepackage{tablor}
+\usepackage[xcas]{tablor}
 
 \usepackage[dvips,colorlinks=true,linkcolor=orange]{hyperref}
 
@@ -25,7 +25,7 @@ keywordstyle =\color{0.2white}\usefont{OT1}{cmtt}{b}{n},basicstyle=\ttfamily,com
 \author{Guillaume \textsc{Connan} \\ \href{http://gconnan.free.fr}{http://gconnan.free.fr}\\
 avec l'efficace participation de Jean-Michel \textsc{Boucart}}
 
-\date{28 février 2008 - Version 1.8}
+\date{19 mars 2008 - Version 1.9}
 
 \begin{document}
 
@@ -102,11 +102,15 @@ pour installer une nouvelle extension \LaTeX{}.
 
 \item il faut avoir à disposition l'extension \texttt{fancyvrb};
 
-\item pour ceux qui compilent avec \texttt{pdf\LaTeX{}}, il n'y a aucun problème car \texttt{tablor}
-  contient déjà ce qu'il faut~:
+\item pour ceux qui compilent avec \texttt{pdf\LaTeX{}}, il n'y a aucun problème et rien à faire car \texttt{tablor}
+  contient déjà ce qu'il faut pour s'adapter~:
     \verb+\ifpdf \DeclareGraphicsRule{*}{mps}{*}{} \fi+
 
-\item il faut installer le fichier \texttt{tablor.sty} dans son \texttt{texmf} personnel.
+\item il faut installer le fichier  \texttt{tablor.sty} dans son \texttt{texmf} personnel. Pour ceux
+  qui ont \Prog{MiKTeX} sous \Prog{windows}, il suffit d'aller le chercher dans les dépôts. Pour les
+  utilisateurs de  \Prog{Unix}, vous  devez savoir  comment faire... Par  commodité, vous  pouvez en
+  profiter pour  installer la  version \Prog{Unix}  de \emph{MiKTeX package  manager}. J'ai  fait un
+  petit script pour vous y aider ici : \href{http://gconnan.free.fr/?page=52}{http://gconnan.free.fr/?page=52}
 
 
 
@@ -180,7 +184,7 @@ Le préambule sera toujours~:
 \usepackage{graphicx}
 \usepackage[french]{babel}
 \usepackage[upright]{fourier}
-\usepackage[xcas,linux,emacs]{tablor} % options modifiables
+\usepackage[xcas]{tablor} % option modifiable
 \end{lstlisting}
 
 
@@ -680,7 +684,7 @@ automatiquement pour m'afficher le tableau voulu~:
 
 
 \begin{center}
-  \begin{TS*}{101}
+  \begin{TS*}{106}
     TS([3*x+2,5*x^2-1],[-50,50],\tv)
   \end{TS*}
 \end{center}
@@ -912,6 +916,145 @@ TSc((x-10)*(x+10),[-10,10],\tv)
 
 
 
+
+
+
+
+\begin{lstlisting}
+\begin{enumerate}
+\item 
+
+ Selon le tableau de variation de la fonction $f$
+    ci-dessous, on peut affirmer que \ldots
+     
+\begin{TV}
+        TV([-5,10],[],"f","x",(5/2)*x^2-2*x+12,0,\tv)
+\end{TV}
+
+\VF
+\begin{itemize}
+
+    \item[\ldots] 5 n'a pas d'antécédent \Rep
+    \item[\ldots] 5 n'a pas d'image \Rep
+    \item[\ldots] 5 a deux antécédents \Rep
+    \item[\ldots] 5 a une image supérieure à celle de $\sqrt{2}$\Rep
+  
+\end{itemize}
+
+
+
+\item Soit $f$ la fonction définie par $f~:~x\mapsto 3x^3-5x^2+2x-7$.  Les tableaux suivants peuvent
+  correspondre à $f$~:
+
+\VF
+
+  \begin{enumerate}
+
+
+ \item Tableau 1 \Rep
+
+\begin{TV*}{1001}M
+        TV([-20,20],[],"f","x",3*x^3-5*x^2+2*x-7,0,\tv)
+\end{TV*}
+
+\item Tableau 2 \Rep
+
+\begin{TV*}{1002}
+        TV([-20,20],[],"f","x",-3*x^3+5*x^2-2*x+7,0,\tv)
+\end{TV*}
+
+\item Tableau 3 \Rep
+
+\begin{TSc*}{1003}
+        TSc(-3*x^3+5*x^2-2*x+7,[-20,20],\tv)
+\end{TSc*}
+
+
+\item Tableau 4 \Rep
+
+\begin{TSc*}{1004}
+        TSc(3*x^3-5*x^2+2*x-7,[-20,20],\tv)
+\end{TSc*}
+
+
+\end{enumerate}
+
+\end{enumerate}
+
+\end{lstlisting}
+
+
+
+
+
+\begin{enumerate}
+\item 
+
+ Selon le tableau de variation de la fonction $f$
+    ci-dessous, on peut affirmer que \ldots
+     
+\begin{TV}
+        TV([-5,10],[],"f","x",(5/2)*x^2-2*x+12,0,\tv)
+\end{TV}
+
+\VF
+\begin{itemize}
+
+    \item[\ldots] 5 n'a pas d'antécédent \Rep
+    \item[\ldots] 5 n'a pas d'image \Rep
+    \item[\ldots] 5 a deux antécédents \Rep
+    \item[\ldots] 5 a une image supérieure à celle de $\sqrt{2}$\Rep
+  
+\end{itemize}
+
+
+
+\item Soit $f$ la fonction définie par $f~:~x\mapsto 3x^3-5x^2+2x-7$.  Les tableaux suivants peuvent-ils
+  correspondre à la fonction $f$~:
+
+\VF
+
+  \begin{enumerate}
+
+
+ \item Tableau 1 \Rep
+
+
+\begin{TV*}{102}
+        TV([-20,20],[],"f","x",3*x^3-5*x^2+2*x-7,0,\tv)
+\end{TV*}
+
+\item Tableau 2 \Rep
+
+\begin{TV*}{103}
+        TV([-20,20],[],"f","x",-3*x^3+5*x^2-2*x+7,0,\tv)
+\end{TV*}
+
+\item Tableau 3 \Rep
+
+\begin{TSc*}{104}
+        TSc(-3*x^3+5*x^2-2*x+7,[-20,20],\tv)
+\end{TSc*}
+
+
+\item Tableau 4 \Rep
+
+\begin{TSc*}{105}
+        TSc(3*x^3-5*x^2+2*x-7,[-20,20],\tv)
+\end{TSc*}
+
+
+\end{enumerate}
+
+\end{enumerate}
+
+
+
+
+
+
+
+
 \pagebreak
 
 \tableofcontents
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{"