tablor v2.06

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

2 files changed, 174 insertions, 643 deletions

diff --git a/Master/texmf-dist/tex/latex/tablor/tablor.cfg b/Master/texmf-dist/tex/latex/tablor/tablor.cfg
index 9565de82c81..ddb9ea4080c 100644
--- a/Master/texmf-dist/tex/latex/tablor/tablor.cfg
+++ b/Master/texmf-dist/tex/latex/tablor/tablor.cfg
@@ -23,13 +23,3 @@
 
 \newcommand{\editeur}{kile }
 
-
-% D�claration des fontes utilis�es
-% ================================
-%
-% Remplacez "fourier" par la fonte qui vous convient pour les maths
-% (lmodern, mathpazo, etc.)
-
-
-\newcommand{\fonte}{usepackage{fourier}}
-
diff --git a/Master/texmf-dist/tex/latex/tablor/tablor.sty b/Master/texmf-dist/tex/latex/tablor/tablor.sty
index a62c439f72c..27edc93e6b5 100644
--- a/Master/texmf-dist/tex/latex/tablor/tablor.sty
+++ b/Master/texmf-dist/tex/latex/tablor/tablor.sty
@@ -1,12 +1,55 @@
-
 \NeedsTeXFormat{LaTeX2e}[1995/12/01]
-\ProvidesPackage{tablor}[14/05/2008 v2.05 la machine � cr�er des tableaux de signes et variations]
+\ProvidesPackage{tablor}[16/05/2008 v2.06 la machine �� cr��er des tableaux de signes et variations]
 
 % \copyleft Connan le Barbare \copyright
 % avec l'efficace participation de Jean-Michel Boucart
 
 
-%% Cr�e 16 environnements :
+
+%%%%%
+%
+% enteteMP.cfg : configuration de l'ent��te MetaPOST
+% �� modifier si besoin
+%
+%%%%%
+
+\RequirePackage{filecontents}
+
+
+
+\begin{filecontents*}{enteteMP.cfg}
+input tableauVariation;
+verbatimtex
+%&latex
+\documentclass{article}
+\usepackage[upright]{fourier} % ou mathpazo, lmodern, etc. ou rien !
+\usepackage{amsmath}
+\renewcommand\mbox[1]{ #1 } % pour les mbox intempestifs de xcas
+\renewcommand\cdot{ } % idem pour les cdot
+\begin{document}
+etex 
+\end{filecontents*}
+
+
+
+%%%%%
+%
+% FIN de enteteMP.cfg
+%
+%%%%%%
+
+
+
+
+
+
+
+
+
+
+
+
+%% Cr��e 16 environnements :
 %% tableau de signes de 2 facteurs affines
 % \begin{TSa}
 % TSa(-2,3,-1,5,\tv);
@@ -34,25 +77,25 @@
 % \end{TVZ}
 %
 %
-% tableau avec valeurs interm�diares
+% tableau avec valeurs interm��diares
 %\begin{TVI}
 %TVI([-1,+infinity],[-1],"f","x",x2/sqrt(x+1)-1,1,2,\tv)
 %\end{TVI}
 %%%
-% tableau de variations avec f' sans z�ro formel
+% tableau de variations avec f' sans z��ro formel
 %\begin{TVapp}
 % TVapp([0,+infinity],[0],"g","x",ln(x)-x*exp(2-x),1,\tv)
 % \end{TVapp}
 %
 %
-% tableau de variations avec f' sans z�ro formel
+% tableau de variations avec f' sans z��ro formel
 %\begin{TVIapp}
 % TVIapp([0,+infinity],[0],"g","x",ln(x)-x*exp(2-x),1,0,\tv)
 % \end{TVIapp}
 %
 %
 %%%
-% et leurs pendants �toil�s qui permet l'affichage interm�diaire du 
+% et leurs pendants ��toil��s qui permettent l'affichage interm��diaire du 
 % fichier metapost pour le modifier
 %
 %
@@ -63,7 +106,7 @@
 
 
 %% extensions requises
-%% Il faudra rajouter dans le pr�ambule \usepackage{graphicx} si vous 
+%% Il faudra rajouter dans le pr��ambule \usepackage{graphicx} si vous 
 %% ne l'avez pas de base 
 
 
@@ -72,19 +115,29 @@
 \RequirePackage{ifpdf}
 
 
-% option xcas pr�sent 
-
-
-\newboolean{xcas}\setboolean{xcas}{false}
-\DeclareOption{xcas}{\setboolean{xcas}{true}}
 
 %% Initialisation du choix d'OS
 \newboolean{windows}\setboolean{windows}{false}
 
 
 
-%% on configure  tablor  dans un fichier ext�rieur pour la plateforme
-%% et l'�diteur
+%% D��finit des commandes disque selon l'OS utilis��
+\ifthenelse{\boolean{windows}}%
+    {\newcommand{\rem}{DEL } \newcommand{\cat}{TYPE }
+      \newcommand{\cp}{COPY }}%
+    {\newcommand{\rem}{rm }\newcommand{\cat}{cat }
+      \newcommand{\cp}{cp }}
+
+
+% option xcas pr��sent 
+
+
+\newboolean{xcas}\setboolean{xcas}{false}
+\DeclareOption{xcas}{\setboolean{xcas}{true}}
+
+
+%% on configure  tablor  dans un fichier ext��rieur pour la plateforme
+%% et l'��diteur
 
 \IfFileExists{tablor.cfg}{\input{tablor.cfg}}%\typeout{pas de fichier tablor.cfg}}
 
@@ -103,35 +156,20 @@
 
 
 
-%% En-t�te pour le fichier metapost contenant les codes 
-%% de tous les tableaux produits
-
- \begin{VerbatimOut}[commandchars=?WW]{tete.mp}
-  input tableauVariation;
-  verbatimtex
-%&latex
-     \documentclass{article}
-     \?fonte
-     \usepackage{amsmath}
-     \newcommand{\Mathbold}[1]{\mbox{\boldmath$#1$\unboldmath}}
-     \begin{document}
-     etex 
+%% Pour clore les fichiers metapost 
 
-  \end{VerbatimOut}
 
+\begin{VerbatimOut}{queue.mp}
+  
+end
 
+  \end{VerbatimOut}
 
-%% Nettoie les fichiers log dont le nom d�pend du choix de l'utilisateur
-%% Par d�faut, c'est le nom du fichier tex courant (\jobname)
-%% Cl�t le fichier metapost contenant le r�capitulatif de tous les tableaux
 
 
-%% D�finit des commandes disque selon l'OS utilis�
-\ifthenelse{\boolean{windows}}%
-    {\newcommand{\rem}{DEL } \newcommand{\cat}{TYPE }
-      \newcommand{\cp}{COPY }}%
-    {\newcommand{\rem}{rm }\newcommand{\cat}{cat }
-      \newcommand{\cp}{cp }}
+%% Nettoie les fichiers log dont le nom d��pend du choix de l'utilisateur
+%% Par d��faut, c'est le nom du fichier tex courant (\jobname)
+%% Cl��t le fichier metapost contenant le r��capitulatif de tous les tableaux
 
 
 
@@ -144,7 +182,7 @@
 
 
 %% Donne comme prefixe aux tableaux le prefixe courant
-%% Peut-�tre modifi� par \initablor
+%% Peut-��tre modifi�� par \initablor
 
 \newcommand{\Tableaux}{\jobname}
 
@@ -158,25 +196,25 @@
 
 
 
-%% permet de donner un prefixe aux tableaux produits (\jobname par d�faut)
-%% effectue quelques v�rifications :
+%% permet de donner un prefixe aux tableaux produits (\jobname par d��faut)
+%% effectue quelques v��rifications :
 
 
 \newcommand{\initablor}[1][\jobname]{%
 \renewcommand{\Tableaux}{#1}%     Arret du nom des tableaux
 \setcounter{TVn}{0}%     Initialisation du compteur de tableaux.
 \ifthenelse{\boolean{xcas}}%    Avec l'option XCas
-{\IfFileExists{\Tableaux.Tab.mp}%      Si Tableaux.mp est pr�sent...
-        {\immediate\write18{\rem \Tableaux.Tab.mp}}%  le d�truire
+{\IfFileExists{\Tableaux.Tab.mp}%      Si Tableaux.mp est pr��sent...
+        {\immediate\write18{\rem \Tableaux.Tab.mp}}%  le d��truire
         {}%   
- \immediate\write18{\cp -f tete.mp \Tableaux.Tab.mp}% Reconstituer l'ent�te de Tableaux.mp
+ \immediate\write18{\cp -f enteteMP.cfg \Tableaux.Tab.mp}% Reconstituer l'ent��te de Tableaux.mp
 } 
 {\IfFileExists{\Tableaux.Tab.mp}%      Sans l'option XCas, si
                                 %      Tableaux.mp existe
-{\immediate\write18{mpost -interaction=batchmode \Tableaux.Tab}}% l'ex�cuter pour reconstituer les figures
+{\immediate\write18{mpost -interaction=batchmode \Tableaux.Tab}}% l'ex��cuter pour reconstituer les figures
 {\PackageWarning{tablor}{Pas de source metapost pour creer les tableaux.}}% sinon message d'erreur
                                 % (mais pas d'arret car les tableaux
-                                % peuvent �tre pr�sents )
+                                % peuvent ��tre pr��sents )
 }}%
 
 
@@ -207,7 +245,7 @@
 %%
 
 
-\begin{VerbatimOut}[commandchars=?WW]{XcasTV.cxx}
+\begin{VerbatimOut}{XcasTV.cxx}
 TV(L,F,nom,nomv,f,ftt,nmr):={
 nl:=size(L);
 f:=unapply(f,x);
@@ -252,7 +290,7 @@ lsf:=if(member(Z[nz-1],F)==0){""}else{"nomDefBarre;
 "}
 lm0:=limite(f(x),x=Z[0],1)==-infinity;
      li:="
-newLigneVariations(btex $\\hbox{\\bf Variations de }\\atop{\\displaystyle \\Mathbold{"+nom+"}}$ etex);"+
+newLigneVariations(btex $\\hbox{  Variations de }\\atop{\\displaystyle  {"+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"}+
@@ -276,64 +314,6 @@ lnz:=limite(f(x),x=Z[nz-1],-1)==-infinity;
 "};    
     
 
-intro:="input tableauVariation;
-           verbatimtex
-%&latex
- \\documentclass{article}
- \\?fonte
- \\usepackage{amsmath}
- \\newcommand{\\Mathbold}[1]{\\mbox{\\boldmath$#1$\\unboldmath}}
- \\begin{document}
- etex;
-
-"
-  
-
-MetaL:=if(ftt==2){if(nz>2){intro+"beginTableau("+nmr+")"+
-        l0+lsi+lsp+lsf+"
-endTableau;
-end
-";}else{
-intro+"beginTableau("+nmr+")"+
-        l0+
-lsi+lsf+"
-endTableau;
-end";
-}
-}else{ if(ftt==0){if(nz>2){intro+"beginTableau("+nmr+")"+
-        l0+
-li+
-lp+
-lf
-+"
-endTableau;
-end";}else{intro+"beginTableau("+nmr+")"+
-        l0+
-li+
-lf
-+"
-endTableau;
-end";}}else{
-if(nz>2){intro+"beginTableau("+nmr+")"+
-        l0+
-lsi+lsp+lsf+
-li+
-lp+
-lf
-+"
-endTableau;
-end";}else{intro+"beginTableau("+nmr+")"+
-        l0+
-lsi+lsf+
-li+
-lf
-+"
-endTableau;
-end";}
-}}
-
-
-
 MetaLfc:=if(ftt==2){if(nz>2){"
 
 beginTableau("+nmr+")"+
@@ -390,7 +370,6 @@ fprint(sortie,Unquoted,MetaLfc);
 fclose(sortie);
 
 
-return(MetaL);
  }:;
 
 \end{VerbatimOut}
@@ -402,7 +381,7 @@ return(MetaL);
 %% par exemple, pour sqrt(x^2-1) : TVZ([-infinity,100],[],[[-1,1]],"f","x",sqrt(x^2-1),1,1)
 %%
 
-\begin{VerbatimOut}[commandchars=?WW]{XcasTVZ.cxx}
+\begin{VerbatimOut}{XcasTVZ.cxx}
 
 
 TVZ(L,F,FF,nom,nomv,f,ftt,nmr):={
@@ -491,7 +470,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{\\bf Variations de }\\atop{\\displaystyle \\Mathbold{"+nom+"}}$ etex);"+
+newLigneVariations(btex $\\hbox{  Variations de }\\atop{\\displaystyle  {"+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"}+
@@ -546,64 +525,6 @@ lnz:=limite(f(x),x=Z[nz-1],-1)==-infinity;
 "};    
     
 
-intro:="input tableauVariation;
-           verbatimtex
-%&latex
- \\documentclass{article}
- \\?fonte
- \\usepackage{amsmath}
- \\newcommand{\\Mathbold}[1]{\\mbox{\\boldmath$#1$\\unboldmath}}
- \\begin{document}
- etex;
-
-"
-  
-
-MetaL:=if(ftt==2){if(nz>2){intro+"beginTableau("+nmr+")"+
-        l0+lsi+lsp+lsf+"
-endTableau;
-end
-";}else{
-intro+"beginTableau("+nmr+")"+
-        l0+
-lsi+lsf+"
-endTableau;
-end";
-}
-}else{ if(ftt==0){if(nz>2){intro+"beginTableau("+nmr+")"+
-        l0+
-li+
-lp+
-lf
-+"
-endTableau;
-end";}else{intro+"beginTableau("+nmr+")"+
-        l0+
-li+
-lf
-+"
-endTableau;
-end";}}else{
-if(nz>2){intro+"beginTableau("+nmr+")"+
-        l0+
-lsi+lsp+lsf+
-li+
-lp+
-lf
-+"
-endTableau;
-end";}else{intro+"beginTableau("+nmr+")"+
-        l0+
-lsi+lsf+
-li+
-lf
-+"
-endTableau;
-end";}
-}}
-
-
-
 MetaLfc:=if(ftt==2){if(nz>2){"
 
 beginTableau("+nmr+")"+
@@ -659,8 +580,6 @@ sortie:=fopen("XCasmpfc.mp");
 fprint(sortie,Unquoted,MetaLfc);
 fclose(sortie);
 
-
-return(MetaL);
  }
 :;
 
@@ -675,7 +594,7 @@ return(MetaL);
 
 
 
-\begin{VerbatimOut}[commandchars=?WW]{XcasTVapp.cxx}
+\begin{VerbatimOut}{XcasTVapp.cxx}
 
 
 
@@ -746,7 +665,7 @@ lsf:=if(member(Z[nz-1],F)==0){""}else{"nomDefBarre;
 "}
 lm0:=limite(f(x),x=Z[0],1)==-infinity;
      li:="
-newLigneVariations(btex $\\hbox{\\bf Variations de }\\atop{\\displaystyle \\Mathbold{"+nom+"}}$ etex);"+
+newLigneVariations(btex $\\hbox{  Variations de }\\atop{\\displaystyle  {"+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"}+
@@ -768,61 +687,6 @@ lnz:=limite(f(x),x=Z[nz-1],-1)==-infinity;
 "};    
     
 
-intro:="input tableauVariation;
-           verbatimtex
-%&latex
- \\documentclass{article}
-  \\?fonte
- \\usepackage{amsmath}
- \\newcommand{\\Mathbold}[1]{\\mbox{\\boldmath$#1$\\unboldmath}}
- \\begin{document}
- etex;
-
-"
-  
-
-MetaL:=if(ftt==2){if(nz>2){intro+"beginTableau("+nmr+")"+
-        l0+lsi+lsp+lsf+"
-endTableau;
-end
-";}else{
-intro+"beginTableau("+nmr+")"+
-        l0+
-lsi+lsf+"
-endTableau;
-end";
-}
-}else{ if(ftt==0){if(nz>2){intro+"beginTableau("+nmr+")"+
-        l0+
-li+
-lp+
-lf
-+"
-endTableau;
-end";}else{intro+"beginTableau("+nmr+")"+
-        l0+
-li+
-lf
-+"
-endTableau;
-end";}}else{
-if(nz>2){intro+"beginTableau("+nmr+")"+
-        l0+
-lsi+lsp+lsf+
-li+
-lp+
-lf
-+"
-endTableau;
-end";}else{intro+"beginTableau("+nmr+")"+
-        l0+
-lsi+lsf+
-li+
-lf
-+"
-endTableau;
-end";}
-}}
 
 
 
@@ -882,7 +746,6 @@ fprint(sortie,Unquoted,MetaLfc);
 fclose(sortie);
 
 
-return(MetaL);
  }:;
 
 
@@ -901,14 +764,14 @@ return(MetaL);
 
 %%
 %% Code giac/Xcas pour les Tableaux de Variations avec 
-%% Valeurs interm�diaires
+%% Valeurs interm��diaires
 %%
 
 
 
 
 
-\begin{VerbatimOut}[commandchars=?WW]{XcasTVI.cxx}
+\begin{VerbatimOut}{XcasTVI.cxx}
 
 
 TVI(L,F,nom,nomv,f,ftt,ao,nmr):={
@@ -996,7 +859,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{\\bf Variations de }\\atop{\\displaystyle \\Mathbold{"+nom+"}}$ etex);
+newLigneVariations(btex $\\hbox{  Variations de }\\atop{\\displaystyle  {"+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{" "}; 
@@ -1043,63 +906,6 @@ lnz:=limite(f(x),x=Z[nz-1],-1)==-infinity;
     
 
 
-intro:="
-input tableauVariation;
-verbatimtex
-%&latex
- \\documentclass{article}
-  \\?fonte
- \\usepackage{amsmath}
- \\newcommand{\\Mathbold}[1]{\\mbox{\\boldmath$#1$\\unboldmath}}
- \\begin{document}
- etex;
-
-";
-  
-
-MetaL:= if(ftt==2){if(nz>2){intro+"beginTableau("+nmr+")"+
-        l0+lsi+lsp+lsf+"
-endTableau;
-end";}else{
-intro+"beginTableau("+nmr+")"+
-        l0+
-lsi+lsf+"
-endTableau;
-end";
-}
-}else{
-if(ftt==0){if(nz>2){intro+"beginTableau("+nmr+")"+
-        l0+
-li+
-lp+
-lf
-+"
-endTableau;
-end";}else{intro+"beginTableau("+nmr+")"+
-        l0+
-li+
-lf
-+"
-endTableau;
-end";}}else{
-if(nz>2){intro+"beginTableau("+nmr+")"+
-        l0+
-lsi+lsp+lsf+
-li+
-lp+
-lf
-+"
-endTableau;
-end";}else{intro+"beginTableau("+nmr+")"+
-        l0+
-lsi+lsf+
-li+
-lf
-+"
-endTableau;
-end";}
-}};
-
 
 MetaLfc:= if(ftt==2){if(nz>2){"beginTableau("+nmr+")"+
         l0+lsi+lsp+lsf+"
@@ -1156,7 +962,6 @@ fprint(sortie,Unquoted,MetaLfc);
 fclose(sortie);
 
 
-return(MetaL);
  }:;
 
 
@@ -1177,7 +982,7 @@ return(MetaL);
 
 
 
-\begin{VerbatimOut}[commandchars=?WW]{XcasTVIapp.cxx}
+\begin{VerbatimOut}{XcasTVIapp.cxx}
 
 
 TVIapp(L,F,nom,nomv,f,ftt,ao,nmr):={
@@ -1286,7 +1091,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{\\bf Variations de }\\atop{\\displaystyle \\Mathbold{"+nom+"}}$ etex);
+newLigneVariations(btex $\\hbox{  Variations  de}\\atop{\\displaystyle  {"+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{" "}; 
@@ -1333,63 +1138,6 @@ lnz:=limite(f(x),x=Z[nz-1],-1)==-infinity;
     
 
 
-intro:="
-input tableauVariation;
-verbatimtex
-%&latex
- \\documentclass{article}
-  \\?fonte
- \\usepackage{amsmath}
- \\newcommand{\\Mathbold}[1]{\\mbox{\\boldmath$#1$\\unboldmath}}
- \\begin{document}
- etex;
-
-";
-  
-
-MetaL:= if(ftt==2){if(nz>2){intro+"beginTableau("+nmr+")"+
-        l0+lsi+lsp+lsf+"
-endTableau;
-end";}else{
-intro+"beginTableau("+nmr+")"+
-        l0+
-lsi+lsf+"
-endTableau;
-end";
-}
-}else{
-if(ftt==0){if(nz>2){intro+"beginTableau("+nmr+")"+
-        l0+
-li+
-lp+
-lf
-+"
-endTableau;
-end";}else{intro+"beginTableau("+nmr+")"+
-        l0+
-li+
-lf
-+"
-endTableau;
-end";}}else{
-if(nz>2){intro+"beginTableau("+nmr+")"+
-        l0+
-lsi+lsp+lsf+
-li+
-lp+
-lf
-+"
-endTableau;
-end";}else{intro+"beginTableau("+nmr+")"+
-        l0+
-lsi+lsf+
-li+
-lf
-+"
-endTableau;
-end";}
-}};
-
 
 MetaLfc:= if(ftt==2){if(nz>2){"beginTableau("+nmr+")"+
         l0+lsi+lsp+lsf+"
@@ -1446,7 +1194,6 @@ fprint(sortie,Unquoted,MetaLfc);
 fclose(sortie);
 
 
-return(MetaL);
  }:;
 
 
@@ -1472,7 +1219,7 @@ return(MetaL);
 
 
 
-\begin{VerbatimOut}[commandchars=?WW]{XcasTabSignL.cxx}
+\begin{VerbatimOut}{XcasTabSignL.cxx}
 
 
 TS(L,D,nmr):={
@@ -1499,7 +1246,7 @@ 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{\\bf Signe de }\\atop{\\displaystyle \\Mathbold{"+latex(L[p](x))+"}}$ etex);"+
+newLigneSignes(btex $\\hbox{  Signe de }\\atop{\\displaystyle  {"+latex(L[p](x))+"}}$ etex);"+
 if(mini!=-infinity and L[p](mini)==0){"
                                 valBarre(btex 0 etex);"}else{"
                               "}+ 
@@ -1510,37 +1257,12 @@ if(L[p]((mini+maxi)*0.5>0)){"plus;"}else{"moins;"}+if(maxi!=+infinity and L[p](m
 }
            lf:=if(product(L[s]((mini+maxi)*.5),s,0,n-1)>0){"plus;"}else{"moins;"};
 
-MetaL:=" input tableauVariation;
-           verbatimtex
-%&latex
- \\documentclass{article}
-  \\?fonte
- \\usepackage{amsmath}
- \\newcommand{\\Mathbold}[1]{\\mbox{\\boldmath$#1$\\unboldmath}}
- \\begin{document}
- etex;
-
-beginTableau("+nmr+")
-newLigneVariables(btex $\\Mathbold{x}$ etex);
-   "+l0+li+
-    "
- newLigneSignes(btex $\\hbox{\\bf Signe du }\\atop{{\\bf produit}}$ etex);"+
-               if(mini!=-infinity and product(L[s](mini),s,0,n-1)==0){"
-                                valBarre(btex 0 etex);"}else{"
-                              "}+  lf+
-                               if(maxi!=+infinity and product(L[s](maxi),s,0,n-1)==0){"
-                                valBarre(btex 0 etex);"}else{"
-                              "}+"
-endTableau;
-end"
-;
-
 
 MetaLfc:="    beginTableau("+nmr+")
-newLigneVariables(btex $\\Mathbold{x}$ etex);
+newLigneVariables(btex $ {x}$ etex);
    "+l0+li+
     "
- newLigneSignes(btex $\\hbox{\\bf Signe du }\\atop{{\\bf produit}}$ etex);"+
+ newLigneSignes(btex $\\hbox{  Signe du }\\atop{{\\displaystyle   produit}}$ etex);"+
                if(mini!=-infinity and product(L[s](mini),s,0,n-1)==0){"
                                 valBarre(btex 0 etex);"}else{"
                               "}+  lf+
@@ -1561,7 +1283,7 @@ l0:=l0+"val(btex $"+latex(D[1])+"$ etex);";
 
 for(p:=0;p<=n-1;p++){lp:="";                                     
      li:=li+"
-newLigneSignes(btex $\\hbox{\\bf Signe de }\\atop{\\displaystyle \\Mathbold{"+latex(L[p](x))+"}}$ etex);"+
+newLigneSignes(btex $\\hbox{  Signe de }\\atop{\\displaystyle  {"+latex(L[p](x))+"}}$ etex);"+
            if(mini!=-infinity and L[p](mini)==0){"
                                 valBarre(btex 0 etex);"}else{"
                               "}+ 
@@ -1585,41 +1307,13 @@ pour t de 0 jusque nz-2 faire
                            lr:=lr+if(product(L[s]((Z[t]+Z[t+1])*.5),s,0,n-1)>0){"plus;"}else{"moins;"}+"valBarre(btex 0 etex);"                    
                          fpour
 
-MetaL:=" input tableauVariation;
-           verbatimtex
-%&latex
- \\documentclass{article}
-  \\?fonte
- \\usepackage{amsmath}
- \\newcommand{\\Mathbold}[1]{\\mbox{\\boldmath$#1$\\unboldmath}}
- \\begin{document}
- etex;
-          beginTableau("+nmr+")
-newLigneVariables(btex $\\Mathbold{x}$ etex);
-   "+l0+
-                     li
-                     +
-    "
- newLigneSignes(btex $\\hbox{\\bf Signe du }\\atop{{\\bf produit}}$ etex);"+
-               if(mini!=-infinity and product(L[s](mini),s,0,n-1)==0){"
-                                valBarre(btex 0 etex);"}else{"
-                              "}+  
-                         if(product(L[s](Z[0]-0.01),s,0,n-1)>0){"plus;"}else{"moins;"}+"valBarre(btex 0 etex);"+
-                         lr+
-                         if(product(L[s](Z[nz-1]+0.01),s,0,n-1)>0){"plus;"}else{"moins;"}+
-                               if(maxi!=+infinity and product(L[s](maxi),s,0,n-1)==0){"
-                                valBarre(btex 0 etex);"}else{"
-                              "}+"
-endTableau;
-end"
-;
 MetaLfc:="  beginTableau("+nmr+")
-newLigneVariables(btex $\\Mathbold{x}$ etex);
+newLigneVariables(btex $ {x}$ etex);
    "+l0+
                      li
                      +
     "
- newLigneSignes(btex $\\hbox{\\bf Signe du }\\atop{{\\bf produit}}$ etex);"+
+ newLigneSignes(btex $\\hbox{  Signe du }\\atop{{\\displaystyle \\rm   produit}}$ etex);"+
                if(mini!=-infinity and product(L[s](mini),s,0,n-1)==0){"
                                 valBarre(btex 0 etex);"}else{"
                               "}+  
@@ -1636,7 +1330,7 @@ endTableau;
 sortie:=fopen("XCasmpfc.mp");
 fprint(sortie,Unquoted,MetaLfc);
 fclose(sortie);
-return(MetaL);
+
  }:;
 
 \end{VerbatimOut}
@@ -1650,7 +1344,7 @@ return(MetaL);
 
 
 
-\begin{VerbatimOut}[commandchars=?WW]{XcasTabSignQ.cxx}
+\begin{VerbatimOut}{XcasTabSignQ.cxx}
 TSq(nomf,L,Fo,D,nmr):={
 L:=apply(f->unapply(f,x),L);
 Fo:=apply(f->unapply(f,x),Fo);
@@ -1682,10 +1376,10 @@ fpour;
 
 
 
-Z:=sort(Z); // on classe les z�ros dans l'ordre croissant 
+Z:=sort(Z); // on classe les z��ros 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 z�ros en double
+     si Z[u]==Z[u+1] alors Z:=Z[0..u-1],Z[u+1..nz-1];nz:=nz-1; // pour les z��ros en double
      fsi;
 fpour;}
 
@@ -1700,7 +1394,7 @@ 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{\\bf Signe de }\\atop{\\displaystyle \\Mathbold{"+latex(L[p](x))+"}}$ etex);"+
+newLigneSignes(btex $\\hbox{  Signe de }\\atop{\\displaystyle  {"+latex(L[p](x))+"}}$ etex);"+
 if(mini!=-infinity and L[p](mini)==0){"
                                 valBarre(btex 0 etex);"}else{"
                               "}+ 
@@ -1711,40 +1405,15 @@ if(L[p]((mini+maxi)*0.5>0)){"plus;"}else{"moins;"}+if(maxi!=+infinity and L[p](m
 }
            lf:=if(product(L[s]((mini+maxi)*.5),s,0,n-1)>0){"plus;"}else{"moins;"};
 
-MetaL:=" input tableauVariation;
-           verbatimtex
-%&latex
- \\documentclass{article}
-  \\?fonte
- \\usepackage{amsmath}
- \\newcommand{\\Mathbold}[1]{\\mbox{\\boldmath$#1$\\unboldmath}}
- \\begin{document}
- etex;
-
-beginTableau("+nmr+")
-newLigneVariables(btex $\\Mathbold{x}$ etex);
-   "+l0+li+
-    "
- newLigneSignes(btex $\\hbox{\\bf Signe }\\atop{{\\bf  de "+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+
-                               if(member(maxi,FF)==0){if(maxi!=+infinity and product(L[s](maxi),s,0,n-1)==0){"
-                                valBarre(btex 0 etex);"}else{"
-                              "}}else{"nonDefBarre;"}+"
-endTableau;
-end"
-;
-
 
 
 
 MetaLfc:=" 
 beginTableau("+nmr+")
-newLigneVariables(btex $\\Mathbold{x}$ etex);
+newLigneVariables(btex $ {x}$ etex);
    "+l0+li+
     "
- newLigneSignes(btex $\\hbox{\\bf Signe }\\atop{{\\bf  de "+nomf+"(x)}}$ etex);"+
+ newLigneSignes(btex $\\hbox{  Signe }\\atop{{\\displaystyle   de "+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+
@@ -1770,7 +1439,7 @@ l0:=l0+"val(btex $"+latex(D[1])+"$ etex);";
 
 for(p:=0;p<=n-1;p++){lp:="";                                     
      li:=li+"
-newLigneSignes(btex $\\hbox{\\bf Signe de }\\atop{\\displaystyle \\Mathbold{"+latex(L[p](x))+"}}$ etex);"+
+newLigneSignes(btex $\\hbox{  Signe de }\\atop{\\displaystyle  {"+latex(L[p](x))+"}}$ etex);"+
            if(mini!=-infinity and L[p](mini)==0){"
                                 valBarre(btex 0 etex);"}else{"
                               "}+ 
@@ -1795,46 +1464,17 @@ pour t de 0 jusque nz-2 faire
                                       if(member(Z[t+1],FF)==0){"valBarre(btex 0 etex);"}else{ "nonDefBarre;"}                   
                          fpour
 
-MetaL:=" input tableauVariation;
-verbatimtex
-%&latex
- \\documentclass{article}
-  \\?fonte
- \\usepackage{amsmath}
- \\newcommand{\\Mathbold}[1]{\\mbox{\\boldmath$#1$\\unboldmath}}
- \\begin{document}
- etex;
-          beginTableau("+nmr+")
-newLigneVariables(btex $\\Mathbold{x}$ etex);
-   "+l0+
-                     li
-                     +
-    "
- newLigneSignes(btex $\\hbox{\\bf Signe de}\\atop{{\\bf "+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;"}+  
-                         if(product(L[s](Z[0]-0.01),s,0,n-1)>0){"plus;"}else{"moins;"}+
-                         if(member(Z[0],FF)==0){"valBarre(btex 0 etex);"}else{ "nonDefBarre;"}+
-                         lr+
-                         if(product(L[s](Z[nz-1]+0.01),s,0,n-1)>0){"plus;"}else{"moins;"}+
-                               if(member(maxi,FF)==0){if(maxi!=+infinity and product(L[s](maxi),s,0,n-1)==0){"
-                                valBarre(btex 0 etex);"}else{" "}}else{"nonDefBarre;"}+"
-endTableau;
-end"
-;
-
 
 
 
 MetaLfc:="
 beginTableau("+nmr+")
-newLigneVariables(btex $\\Mathbold{x}$ etex);
+newLigneVariables(btex $ {x}$ etex);
    "+l0+
                      li
                      +
     "
- newLigneSignes(btex $\\hbox{\\bf Signe de}\\atop{{\\bf "+nomf+"(x)}}$ etex);"+
+ newLigneSignes(btex $\\hbox{  Signe de}\\atop{{\\displaystyle   "+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;"}+  
@@ -1862,7 +1502,6 @@ fclose(sortie);
 
 
 
-return(MetaL);
  }:;
 
 \end{VerbatimOut}
@@ -1877,27 +1516,19 @@ return(MetaL);
 
 
 
-\begin{VerbatimOut}[commandchars=?WW]{XcasTabSign.cxx}
+\begin{VerbatimOut}{XcasTabSigna.cxx}
 TSa(a,b,c,d,nmr):={
 zA:=resoudre(a*x+b=0,x)[0];
 zB:=resoudre(c*x+d=0,x)[0];
 zmin:=min(zA,zB);
 zmax:=max(zA,zB);
-  Meta:= " input tableauVariation;
-           verbatimtex
-%&latex
- \\documentclass{article}
-  \\?fonte
- \\usepackage{amsmath}
- \\newcommand{\\Mathbold}[1]{\\mbox{\\boldmath$#1$\\unboldmath}}
- \\begin{document}
- etex;
+  Meta:= " 
           beginTableau("+nmr+")
-   newLigneVariables(btex $\\Mathbold{x}$ etex);
+   newLigneVariables(btex $ {x}$ etex);
    val(btex $-\\infty$ etex);val(btex $"+latex(zmin)+"$ etex);
 val(btex $"+latex(zmax)+"$etex);
 val(btex $+\\infty$ etex); 
-   newLigneSignes(btex $\\hbox{\\bf Signe de }\\atop{\\displaystyle \\Mathbold{"+if(a==1){"x+"}else{if(a==-1){"-x+"}else{a+"x+"}}+b+"}}$ etex);"
+   newLigneSignes(btex $\\hbox{  Signe de }\\atop{\\displaystyle  {"+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}
@@ -1905,7 +1536,7 @@ val(btex $+\\infty$ etex);
                                  if(zmin==zA){"barre;"}else{"valBarre(btex 0 etex);"}+
                                  if(a>0){"plus;"}else{"moins;"}
      +" 
-newLigneSignes(btex $\\hbox{\\bf Signe de }\\atop{\\displaystyle \\Mathbold{"+if(c==1){"x+"}else{if(c==-1){"-x+"}else{c+"x+"}}+d+"}}$ etex);"
+newLigneSignes(btex $\\hbox{  Signe de }\\atop{\\displaystyle  {"+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}
@@ -1914,16 +1545,23 @@ newLigneSignes(btex $\\hbox{\\bf Signe de }\\atop{\\displaystyle \\Mathbold{"+if
                                  if(c>0){"plus;"}else{"moins;"}  
      
    +" 
-newLigneSignes(btex $\\hbox{\\bf Signe de }\\atop{\\displaystyle \\Mathbold{("+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);"
+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);"
         +   si a*c>0 alors plus; sinon moins;fsi+";"+
                                  "valBarre(btex 0 etex);"+
                                  si a*c>0 alors moins; sinon plus;fsi+";"+
                                  "valBarre(btex 0 etex);"+
                                  si a*c>0 alors plus; sinon moins;fsi+";"+"
 endTableau;
-end"
+"
 ;
-return(Meta);
+
+
+
+sortie:=fopen("XCasmpfc.mp");
+fprint(sortie,Unquoted,Meta);
+fclose(sortie);
+
+
  }:;
 \end{VerbatimOut}
 
@@ -1939,7 +1577,7 @@ return(Meta);
 
 
 
-\begin{VerbatimOut}[commandchars=?WW]{XcasTSc.cxx}
+\begin{VerbatimOut}{XcasTSc.cxx}
 TSc(g,D,nmr):={
 f:=unapply(g,x);
 Z:=NULL;
@@ -2000,32 +1638,14 @@ lf:=if(f(Z[nz-1]+1.0)>0){"plus;"}else{"moins;"}+if(maxi!=+infinity and f(maxi)==
 }};  
 
 
-MetaL:=" input tableauVariation;
-           verbatimtex
-%&latex
- \\documentclass{article}
-  \\?fonte
- \\usepackage{amsmath}
- \\newcommand{\\Mathbold}[1]{\\mbox{\\boldmath$#1$\\unboldmath}}
- \\begin{document}
- etex;
-beginTableau("+nmr+")
-newLigneVariables(btex $\\Mathbold{x}$ etex);
-   "+l0+"
-newLigneSignes(btex $\\hbox{\\bf Signe de }\\atop{\\displaystyle \\Mathbold{"+latex(f(x))+"}}$ etex);"+
-                     li+lm+lf
-                     +"
-endTableau;
-end"
-;
 
 
 MetaLfc:="
 
 beginTableau("+nmr+")
-newLigneVariables(btex $\\Mathbold{x}$ etex);
+newLigneVariables(btex $\\displaystyle  {x}$ etex);
    "+l0+"
-newLigneSignes(btex $\\hbox{\\bf Signe de }\\atop{\\displaystyle \\Mathbold{"+latex(f(x))+"}}$ etex);"+
+newLigneSignes(btex $\\hbox{  Signe de }\\atop{\\displaystyle  {"+latex(f(x))+"}}$ etex);"+
                      li+lm+lf
                      +"
 endTableau;
@@ -2042,8 +1662,6 @@ fclose(sortie);
 
 
 
-
-return(MetaL);
  }:;
 \end{VerbatimOut}
 
@@ -2064,13 +1682,17 @@ return(MetaL);
 
 
 \newcommand{\dresse}[1]{%
-\ifthenelse{\boolean{xcas}}{%        Avec l'option "XCas pr�sent"
+\ifthenelse{\boolean{xcas}}{%        Avec l'option "XCas pr��sent"
          \executGiacmp{XCas#1.giac}% reconstituer le tableau
                                    % exporter le source mp
-                                   % puis lancer metapost pour cr�er
+                                   % puis lancer metapost pour cr��er
                                    % l'image du tableau
          \immediate\write18{\cat XCasmpfc.mp >> \Tableaux.Tab.mp}
-         \immediate\write18{mpost -interaction=batchmode -jobname=\Tableaux.Tab  XCasmp#1}}%
+         \immediate\write18{\cat enteteMP.cfg >> \Tableaux.Tab#1.mp}
+         \immediate\write18{\cat XCasmpfc.mp >> \Tableaux.Tab#1.mp}
+         \immediate\write18{\cat queue.mp >> \Tableaux.Tab#1.mp}
+         \immediate\write18{mpost -interaction=batchmode -jobname=\Tableaux.Tab \Tableaux.Tab#1}
+          \immediate\write18{\rem \Tableaux.Tab#1.mp}   }%
          {% sinon, si le tableau est absent, alerte.
          \IfFileExists{\Tableaux.Tab.\theTVn}{}{% 
          \PackageError{tablor}{Tableau absent non
@@ -2085,8 +1707,8 @@ return(MetaL);
 
 
 %%
-%% traitement des fichiers produits par giac/xcas avec possibilit�
-%% de modifier le fichier metapost (environnement �toil�))
+%% traitement des fichiers produits par giac/xcas avec possibilit��
+%% de modifier le fichier metapost (environnement ��toil��))
 %%
 
 
@@ -2095,22 +1717,22 @@ return(MetaL);
 \IfFileExists{\Tableaux.Tab.\theTVn}{% Test sur l'existence du tableau
 % Si oui, inclusion du fichier source de sauvegarde mp dans Tableaux
 \immediate\write18{\cat TSav-\theTVn.mp >> \Tableaux.Tab.mp}}
-% Si  non,  lancement des op�rations de fabrication 
+% Si  non,  lancement des op��rations de fabrication 
 {\executGiacmp{XCas#1.giac}% 
 \immediate\write18{\editeur XCasmpfc.mp}
 
-  % Modification avec l'�diteur choisi
+  % Modification avec l'��diteur choisi
 
 \immediate\write18{\cp -f XCasmpfc.mp TSav-\theTVn.mp}   % Sauvegarde du 
                                  % source mp sur le disque pour une
-                                 % inclusion ult�rieure dans Tableaux.mp. 
+                                 % inclusion ult��rieure dans Tableaux.mp. 
 \immediate\write18{\cat XCasmpfc.mp >> \Tableaux.Tab.mp}} % Inclusion du
                                                      % source dans le
                                                      % fichier
                                                      % Tableaux 
 
 \immediate\write18{mpost -interaction=batchmode \Tableaux.Tab}% Reconstitution des tableaux
-                                % et cr�ation du dernier. L'option
+                                % et cr��ation du dernier. L'option
                                 % pallie l'absence de end en fin de
                                 % fichier 
 
@@ -2131,33 +1753,24 @@ return(MetaL);
 %%
 %%%
 %%%
-%%% les "giac" qui permettent d'ex�cuter la commande rentr�e dans le fichier tex
+%%% les "giac" qui permettent d'ex��cuter la commande rentr��e dans le fichier tex
 %%% suivis des environnements qui permettront la saisie du code giac/xcas
-%%% Les versions �toil�es permettent de modifier le code metapost produit initialement
+%%% Les versions ��toil��es permettent de modifier le code metapost produit initialement
 %%%
 
 
 
 
-\begin{VerbatimOut}{XCas.giac}
+\begin{VerbatimOut}{XCasa.giac}
 maple_mode(0);
-read("XcasTabSign.cxx");
-Sortie:=fopen("XCasmp.mp");
-vect.xcas.user := read("XCas.user");
-vxo := vect.xcas.user;
-dim.vxo := dim(vxo);
-nbr.line.vxo := dim.vxo;
-Resultat:=cat(" "); 
-rslt := vxo[0]; RslT:=cat(rslt);
-Resultat:=cat(Resultat,RslT);
-fprint(Sortie,Unquoted,Resultat);
-fclose(Sortie);
+read("XcasTabSigna.cxx");
+read("XCasa.user");
 \end{VerbatimOut}
 
 \newenvironment{TSa}
-{\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\WW]{XCas.user}}
+{\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\??]{XCasa.user}}
 {\end{VerbatimOut}
-          \dresse{}
+          \dresse{a}
 }
 
 
@@ -2171,20 +1784,11 @@ fclose(Sortie);
 \begin{VerbatimOut}{XCasQ.giac}
 maple_mode(0);
 read("XcasTabSignQ.cxx");
-Sortie:=fopen("XCasmpQ.mp");
-vect.xcas.user := read("XCasQ.user");
-vxo := vect.xcas.user;
-dim.vxo := dim(vxo);
-nbr.line.vxo := dim.vxo;
-Resultat:=cat(" "); 
-rslt := vxo[0]; RslT:=cat(rslt);
-Resultat:=cat(Resultat,RslT);
-fprint(Sortie,Unquoted,Resultat);
-fclose(Sortie);
+read("XCasQ.user");
 \end{VerbatimOut}
 
 \newenvironment{TSq}%
-{\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\WW]{XCasQ.user}}
+{\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\??]{XCasQ.user}}
 {\end{VerbatimOut}\dresse{Q}}
 
 
@@ -2192,50 +1796,32 @@ fclose(Sortie);
 \newenvironment{TSq*}[1]%
 {\setcounter{TVnbis}{\theTVn}
 \setcounter{TVn}{#1}
-\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\WW]{XCasQ.user}}
+\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\??]{XCasQ.user}}
 {\end{VerbatimOut}\dressetoile{Q}}
 
 
 \begin{VerbatimOut}{XCasL.giac}
 maple_mode(0);
 read("XcasTabSignL.cxx");
-Sortie:=fopen("XCasmpL.mp");
-vect.xcas.user := read("XCasL.user");
-vxo := vect.xcas.user;
-dim.vxo := dim(vxo);
-nbr.line.vxo := dim.vxo;
-Resultat:=cat(" "); 
-rslt := vxo[0]; RslT:=cat(rslt);
-Resultat:=cat(Resultat,RslT);
-fprint(Sortie,Unquoted,Resultat);
-fclose(Sortie);
+read("XCasL.user");
 \end{VerbatimOut}
 
 \newenvironment{TS}%
-{\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\WW]{XCasL.user}}
+{\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\??]{XCasL.user}}
 {\end{VerbatimOut}\dresse{L}}
 
 
 \newenvironment{TS*}[1]
 {\setcounter{TVnbis}{\theTVn}
 \setcounter{TVn}{#1}
-\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\WW]{XCasL.user}}
+\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\??]{XCasL.user}}
 {\end{VerbatimOut}\dressetoile{L}}
 
 
 \begin{VerbatimOut}{XCasTSc.giac}
 maple_mode(0);
 read("XcasTSc.cxx");
-Sortie:=fopen("XCasmpTSc.mp");
-vect.xcas.user := read("XCasTSc.user");
-vxo := vect.xcas.user;
-dim.vxo := dim(vxo);
-nbr.line.vxo := dim.vxo;
-Resultat:=cat(" "); 
-rslt := vxo[0]; RslT:=cat(rslt);
-Resultat:=cat(Resultat,RslT);
-fprint(Sortie,Unquoted,Resultat);
-fclose(Sortie);
+read("XCasTSc.user");
 \end{VerbatimOut}
 
 
@@ -2244,39 +1830,30 @@ fclose(Sortie);
 \newenvironment{TSc*}[1]%
 {\setcounter{TVnbis}{\theTVn}
 \setcounter{TVn}{#1}
-\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\WW]{XCasTSc.user}}
+\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\??]{XCasTSc.user}}
 {\end{VerbatimOut}\dressetoile{TSc}}
 
 
 \newenvironment{TSc}%
-{\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\WW]{XCasTSc.user}}
+{\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\??]{XCasTSc.user}}
 {\end{VerbatimOut}\dresse{TSc}}
 
 
 \begin{VerbatimOut}{XCasTV.giac}
 maple_mode(0);
 read("XcasTV.cxx");
-Sortie:=fopen("XCasmpTV.mp");
-vect.xcas.user := read("XCasTV.user");
-vxo := vect.xcas.user;
-dim.vxo := dim(vxo);
-nbr.line.vxo := dim.vxo;
-Resultat:=cat(" "); 
-rslt := vxo[0]; RslT:=cat(rslt);
-Resultat:=cat(Resultat,RslT);
-fprint(Sortie,Unquoted,Resultat);
-fclose(Sortie);
+read("XCasTV.user");
 \end{VerbatimOut}
 
 \newenvironment{TV}%
-{\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\WW]{XCasTV.user}}%
+{\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\??]{XCasTV.user}}%
 {\end{VerbatimOut}
 \dresse{TV}}
 
 \newenvironment{TV*}[1]{%
 \setcounter{TVnbis}{\theTVn}
 \setcounter{TVn}{#1}
-\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\WW]{XCasTV.user}}%
+\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\??]{XCasTV.user}}%
 {\end{VerbatimOut}\dressetoile{TV}}
 
 
@@ -2292,27 +1869,18 @@ fclose(Sortie);
 \begin{VerbatimOut}{XCasTVZ.giac}
 maple_mode(0);
 read("XcasTVZ.cxx");
-Sortie:=fopen("XCasmpTVZ.mp");
-vect.xcas.user := read("XCasTVZ.user");
-vxo := vect.xcas.user;
-dim.vxo := dim(vxo);
-nbr.line.vxo := dim.vxo;
-Resultat:=cat(" "); 
-rslt := vxo[0]; RslT:=cat(rslt);
-Resultat:=cat(Resultat,RslT);
-fprint(Sortie,Unquoted,Resultat);
-fclose(Sortie);
+read("XCasTVZ.user");
 \end{VerbatimOut}
 
 \newenvironment{TVZ}%
-{\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\WW]{XCasTVZ.user}}%
+{\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\??]{XCasTVZ.user}}%
 {\end{VerbatimOut}
 \dresse{TVZ}}
 
 \newenvironment{TVZ*}[1]{%
 \setcounter{TVnbis}{\theTVn}
 \setcounter{TVn}{#1}
-\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\WW]{XCasTVZ.user}}%
+\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\??]{XCasTVZ.user}}%
 {\end{VerbatimOut}\dressetoile{TVZ}}
 
 
@@ -2327,27 +1895,18 @@ fclose(Sortie);
 \begin{VerbatimOut}{XCasTVapp.giac}
 maple_mode(0);
 read("XcasTVapp.cxx");
-Sortie:=fopen("XCasmpTVapp.mp");
-vect.xcas.user := read("XCasTVapp.user");
-vxo := vect.xcas.user;
-dim.vxo := dim(vxo);
-nbr.line.vxo := dim.vxo;
-Resultat:=cat(" "); 
-rslt := vxo[0]; RslT:=cat(rslt);
-Resultat:=cat(Resultat,RslT);
-fprint(Sortie,Unquoted,Resultat);
-fclose(Sortie);
+read("XCasTVapp.user");
 \end{VerbatimOut}
 
 \newenvironment{TVapp}%
-{\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\WW]{XCasTVapp.user}}%
+{\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\??]{XCasTVapp.user}}%
 {\end{VerbatimOut}
 \dresse{TVapp}}
 
 \newenvironment{TVapp*}[1]{%
 \setcounter{TVnbis}{\theTVn}
 \setcounter{TVn}{#1}
-\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\WW]{XCasTVapp.user}}%
+\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\??]{XCasTVapp.user}}%
 {\end{VerbatimOut}\dressetoile{TVapp}}
 
 
@@ -2363,27 +1922,18 @@ fclose(Sortie);
 \begin{VerbatimOut}{XCasTVI.giac}
 maple_mode(0);
 read("XcasTVI.cxx");
-Sortie:=fopen("XCasmpTVI.mp");
-vect.xcas.user := read("XCasTVI.user");
-vxo := vect.xcas.user;
-dim.vxo := dim(vxo);
-nbr.line.vxo := dim.vxo;
-Resultat:=cat(" "); 
-rslt := vxo[0]; RslT:=cat(rslt);
-Resultat:=cat(Resultat,RslT);
-fprint(Sortie,Unquoted,Resultat);
-fclose(Sortie);
+read("XCasTVI.user");
 \end{VerbatimOut}
 
 \newenvironment{TVI}%
-{\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\WW]{XCasTVI.user}}%
+{\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\??]{XCasTVI.user}}%
 {\end{VerbatimOut}\dresse{TVI}}
 
 
 \newenvironment{TVI*}[1]%
 {\setcounter{TVnbis}{\theTVn}
 \setcounter{TVn}{#1}
-\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\WW]{XCasTVI.user}}%
+\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\??]{XCasTVI.user}}%
 {\end{VerbatimOut}\dressetoile{TVI}}
 
 
@@ -2394,27 +1944,18 @@ fclose(Sortie);
 \begin{VerbatimOut}{XCasTVIapp.giac}
 maple_mode(0);
 read("XcasTVIapp.cxx");
-Sortie:=fopen("XCasmpTVIapp.mp");
-vect.xcas.user := read("XCasTVIapp.user");
-vxo := vect.xcas.user;
-dim.vxo := dim(vxo);
-nbr.line.vxo := dim.vxo;
-Resultat:=cat(" "); 
-rslt := vxo[0]; RslT:=cat(rslt);
-Resultat:=cat(Resultat,RslT);
-fprint(Sortie,Unquoted,Resultat);
-fclose(Sortie);
+read("XCasTVIapp.user");
 \end{VerbatimOut}
 
 \newenvironment{TVIapp}%
-{\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\WW]{XCasTVIapp.user}}%
+{\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\??]{XCasTVIapp.user}}%
 {\end{VerbatimOut}\dresse{TVIapp}}
 
 
 \newenvironment{TVIapp*}[1]%
 {\setcounter{TVnbis}{\theTVn}
 \setcounter{TVn}{#1}
-\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\WW]{XCasTVIapp.user}}%
+\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\??]{XCasTVIapp.user}}%
 {\end{VerbatimOut}\dressetoile{TVIapp}}