From 5c74e8bbbe565778ae975fbb5cced00f3bd02408 Mon Sep 17 00:00:00 2001 From: Manuel Pégourié-Gonnard Date: Sat, 17 May 2008 15:12:56 +0000 Subject: tablor v2.06 git-svn-id: svn://tug.org/texlive/trunk@8191 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/tablor/tablor.cfg | 10 - Master/texmf-dist/tex/latex/tablor/tablor.sty | 807 ++++++-------------------- 2 files changed, 174 insertions(+), 643 deletions(-) (limited to 'Master/texmf-dist/tex') 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 } - -% Dclaration des fontes utilises -% ================================ -% -% 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 crer des tableaux de signes et variations] +\ProvidesPackage{tablor}[16/05/2008 v2.06 la machine crer des tableaux de signes et variations] % \copyleft Connan le Barbare \copyright % avec l'efficace participation de Jean-Michel Boucart -%% Cre 16 environnements : + +%%%%% +% +% enteteMP.cfg : configuration de l'entte 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 +% +%%%%%% + + + + + + + + + + + + +%% Cre 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 intermdiares +% tableau avec valeurs intermdiares %\begin{TVI} %TVI([-1,+infinity],[-1],"f","x",x2/sqrt(x+1)-1,1,2,\tv) %\end{TVI} %%% -% tableau de variations avec f' sans zro formel +% tableau de variations avec f' sans zro 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 zro formel +% tableau de variations avec f' sans zro formel %\begin{TVIapp} % TVIapp([0,+infinity],[0],"g","x",ln(x)-x*exp(2-x),1,0,\tv) % \end{TVIapp} % % %%% -% et leurs pendants toils qui permet l'affichage intermdiaire du +% et leurs pendants toils qui permettent l'affichage intermdiaire du % fichier metapost pour le modifier % % @@ -63,7 +106,7 @@ %% extensions requises -%% Il faudra rajouter dans le prambule \usepackage{graphicx} si vous +%% Il faudra rajouter dans le prambule \usepackage{graphicx} si vous %% ne l'avez pas de base @@ -72,19 +115,29 @@ \RequirePackage{ifpdf} -% option xcas prsent - - -\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 extrieur pour la plateforme -%% et l'diteur +%% Dfinit 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 prsent + + +\newboolean{xcas}\setboolean{xcas}{false} +\DeclareOption{xcas}{\setboolean{xcas}{true}} + + +%% on configure tablor dans un fichier extrieur pour la plateforme +%% et l'diteur \IfFileExists{tablor.cfg}{\input{tablor.cfg}}%\typeout{pas de fichier tablor.cfg}} @@ -103,35 +156,20 @@ -%% En-tte 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 dpend du choix de l'utilisateur -%% Par dfaut, c'est le nom du fichier tex courant (\jobname) -%% Clt le fichier metapost contenant le rcapitulatif de tous les tableaux -%% Dfinit 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 dpend du choix de l'utilisateur +%% Par dfaut, c'est le nom du fichier tex courant (\jobname) +%% Clt le fichier metapost contenant le rcapitulatif 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 dfaut) -%% effectue quelques vrifications : +%% permet de donner un prefixe aux tableaux produits (\jobname par dfaut) +%% effectue quelques vrifications : \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 prsent... - {\immediate\write18{\rem \Tableaux.Tab.mp}}% le dtruire +{\IfFileExists{\Tableaux.Tab.mp}% Si Tableaux.mp est prsent... + {\immediate\write18{\rem \Tableaux.Tab.mp}}% le dtruire {}% - \immediate\write18{\cp -f tete.mp \Tableaux.Tab.mp}% Reconstituer l'entte de Tableaux.mp + \immediate\write18{\cp -f enteteMP.cfg \Tableaux.Tab.mp}% Reconstituer l'entte de Tableaux.mp } {\IfFileExists{\Tableaux.Tab.mp}% Sans l'option XCas, si % Tableaux.mp existe -{\immediate\write18{mpost -interaction=batchmode \Tableaux.Tab}}% l'excuter pour reconstituer les figures +{\immediate\write18{mpost -interaction=batchmode \Tableaux.Tab}}% l'excuter 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 prsents ) + % peuvent tre prsents ) }}% @@ -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 intermdiaires +%% Valeurs intermdiaires %% -\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 zros dans l'ordre croissant +Z:=sort(Z); // on classe les zros 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 zros en double + si Z[u]==Z[u+1] alors Z:=Z[0..u-1],Z[u+1..nz-1];nz:=nz-1; // pour les zros 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 prsent" +\ifthenelse{\boolean{xcas}}{% Avec l'option "XCas prsent" \executGiacmp{XCas#1.giac}% reconstituer le tableau % exporter le source mp - % puis lancer metapost pour crer + % puis lancer metapost pour crer % 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 oprations de fabrication +% Si non, lancement des oprations 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 ultrieure dans Tableaux.mp. + % inclusion ultrieure 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 cration du dernier. L'option + % et cration du dernier. L'option % pallie l'absence de end en fin de % fichier @@ -2131,33 +1753,24 @@ return(MetaL); %% %%% %%% -%%% les "giac" qui permettent d'excuter la commande rentre dans le fichier tex +%%% les "giac" qui permettent d'excuter la commande rentre dans le fichier tex %%% suivis des environnements qui permettront la saisie du code giac/xcas -%%% Les versions toiles permettent de modifier le code metapost produit initialement +%%% Les versions toiles 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}} -- cgit v1.2.3