diff options
-rw-r--r-- | Master/texmf-dist/doc/latex/tablor/README | 1 | ||||
-rw-r--r-- | Master/texmf-dist/doc/latex/tablor/tablor.html | 506 | ||||
-rw-r--r-- | Master/texmf-dist/doc/latex/tablor/tablor.pdf | bin | 268849 -> 267818 bytes | |||
-rw-r--r-- | Master/texmf-dist/doc/latex/tablor/tablor.tex | 59 | ||||
-rw-r--r-- | Master/texmf-dist/tex/latex/tablor/tablor.cfg | 26 | ||||
-rw-r--r-- | Master/texmf-dist/tex/latex/tablor/tablor.sty | 134 |
6 files changed, 364 insertions, 362 deletions
diff --git a/Master/texmf-dist/doc/latex/tablor/README b/Master/texmf-dist/doc/latex/tablor/README index 0831da6cb96..fdca3aea0e7 100644 --- a/Master/texmf-dist/doc/latex/tablor/README +++ b/Master/texmf-dist/doc/latex/tablor/README @@ -24,3 +24,4 @@ The non-french users need to comment out every " \usepackage[upright]{fourier} " +Just put tablor.sty and tablor.cfg into /texmf/tex/latex/tablor/
\ No newline at end of file diff --git a/Master/texmf-dist/doc/latex/tablor/tablor.html b/Master/texmf-dist/doc/latex/tablor/tablor.html index 928dc35faa2..6e67fa4e93b 100644 --- a/Master/texmf-dist/doc/latex/tablor/tablor.html +++ b/Master/texmf-dist/doc/latex/tablor/tablor.html @@ -1,5 +1,5 @@ <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN"> -<!-- Created by htmlize-1.27 in css mode. --> +<!-- Created by htmlize-1.34 in css mode. --> <html> <head> <title>tablor.sty</title> @@ -8,12 +8,18 @@ body { color: #f5deb3; background-color: #000000; + font-weight: bold; } .comment { /* font-lock-comment-face */ color: #ffd700; background-color: #525252; } + .comment-delimiter { + /* font-lock-comment-delimiter-face */ + color: #ffd700; + background-color: #525252; + } .constant { /* font-lock-constant-face */ color: #9932cc; @@ -25,15 +31,10 @@ font-weight: bold; text-decoration: underline; } - .flyspell-incorrect { - /* flyspell-incorrect-face */ - color: #ff4500; - font-weight: bold; - text-decoration: underline; - } .font-latex-bold { /* font-latex-bold-face */ color: #6b8e23; + font-weight: bold; } .font-latex-math { /* font-latex-math-face */ @@ -44,10 +45,13 @@ color: #d3d3d3; } .font-latex-subscript { + /* font-latex-subscript-face */ + font-size: 80%; } .font-latex-warning { /* font-latex-warning-face */ color: #ff0000; + font-weight: bold; } .function-name { /* font-lock-function-name-face */ @@ -79,160 +83,143 @@ <pre> <span class="font-latex-sedate">\NeedsTeXFormat</span>{LaTeX2e}[1995/12/01] -<span class="font-latex-sedate">\ProvidesPackage</span>{tablor}[19/02/2008 v1.7 la machine à créer des tableaux de signes et variations] +<span class="font-latex-sedate">\ProvidesPackage</span>{tablor}[28/02/2008 v1.8 la machine à créer des tableaux de signes et variations] -<span class="comment">% </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"> -% avec l'efficace participation de Jean-Michel </span><span class="comment"><span class="flyspell-incorrect">Boucart</span></span><span class="comment"> +<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 </span> -<span class="comment">%% Crée 10 environnements : -%% tableau de signes de 2 facteurs affines -% </span><span class="font-latex-sedate"><span class="comment">\begin</span></span><span class="comment">{TSa} -% TSa(-2,3,-1,5,</span><span class="font-latex-sedate"><span class="comment">\tv</span></span><span class="comment">); -% </span><span class="font-latex-sedate"><span class="comment">\end</span></span><span class="comment">{TSa} -% %%%%%% Pour des tableaux de plus de 2 facteurs -% -% </span><span class="font-latex-sedate"><span class="comment">\begin</span></span><span class="comment">{TS} -% TS([-2*x+3,x^</span><span class="comment">2</span><span class="comment">-1,x^</span><span class="comment">2</span><span class="comment">+1,x-1,x^</span><span class="comment">2</span><span class="comment">-2],[a,b],</span><span class="font-latex-sedate"><span class="comment">\tv</span></span><span class="comment">); -% </span><span class="font-latex-sedate"><span class="comment">\end</span></span><span class="comment">{TS} -% -% pour les tableaux de signes avec quotient -%</span><span class="font-latex-sedate"><span class="comment">\begin</span></span><span class="comment">{TSq} -%TSq("Q",[-2*x+3,-4*x+5],[x^</span><span class="comment">2</span><span class="comment">-16,x-2],[a,b],</span><span class="font-latex-sedate"><span class="comment">\tv</span></span><span class="comment">) -%%</span><span class="font-latex-sedate"><span class="comment">\end</span></span><span class="comment">{TSq} -% un tableau de variation : -% -% </span><span class="font-latex-sedate"><span class="comment">\begin</span></span><span class="comment">{TV} -% TV([0,+infinity],[0],"h","x",ln(x)-(ln(x))^</span><span class="comment">2</span><span class="comment">,1,</span><span class="font-latex-sedate"><span class="comment">\tv</span></span><span class="comment">) -% </span><span class="font-latex-sedate"><span class="comment">\end</span></span><span class="comment">{TV} -% -% tableau avec valeurs </span><span class="comment"><span class="flyspell-incorrect">intermédiares</span></span><span class="comment"> -%</span><span class="font-latex-sedate"><span class="comment">\begin</span></span><span class="comment">{TVI} -%TVI([-1,+infinity],[-1],"f","x",x2/sqrt(x+1)-1,1,2,</span><span class="font-latex-sedate"><span class="comment">\tv</span></span><span class="comment">) -%</span><span class="font-latex-sedate"><span class="comment">\end</span></span><span class="comment">{TVI} -%%% -% -% et leurs pendants étoilés qui permet l'affichage intermédiaire du -% fichier metapost pour le modifier -% -% -% -% +<span class="comment-delimiter">%% </span><span class="comment">Crée 10 environnements : +</span><span class="comment-delimiter">%% </span><span class="comment">tableau de signes de 2 facteurs affines +</span><span class="comment-delimiter">% </span><span class="font-latex-sedate"><span class="comment">\begin</span></span><span class="comment">{TSa} +</span><span class="comment-delimiter">% </span><span class="comment">TSa(-2,3,-1,5,</span><span class="font-latex-sedate"><span class="comment">\tv</span></span><span class="comment">); +</span><span class="comment-delimiter">% </span><span class="font-latex-sedate"><span class="comment">\end</span></span><span class="comment">{TSa} +</span><span class="comment-delimiter">% </span><span class="comment">%%%%%% Pour des tableaux de plus de 2 facteurs +</span><span class="comment-delimiter">%</span><span class="comment"> +</span><span class="comment-delimiter">% </span><span class="font-latex-sedate"><span class="comment">\begin</span></span><span class="comment">{TS} +</span><span class="comment-delimiter">% </span><span class="comment">TS([-2*x+3,x^2-1,x^2+1,x-1,x^2-2],[a,b],</span><span class="font-latex-sedate"><span class="comment">\tv</span></span><span class="comment">); +</span><span class="comment-delimiter">% </span><span class="font-latex-sedate"><span class="comment">\end</span></span><span class="comment">{TS} +</span><span class="comment-delimiter">%</span><span class="comment"> +</span><span class="comment-delimiter">% </span><span class="comment">pour les tableaux de signes avec quotient +</span><span class="comment-delimiter">%</span><span class="font-latex-sedate"><span class="comment">\begin</span></span><span class="comment">{TSq} +</span><span class="comment-delimiter">%</span><span class="comment">TSq("Q",[-2*x+3,-4*x+5],[x^2-16,x-2],[a,b],</span><span class="font-latex-sedate"><span class="comment">\tv</span></span><span class="comment">) +</span><span class="comment-delimiter">%%</span><span class="font-latex-sedate"><span class="comment">\end</span></span><span class="comment">{TSq} +</span><span class="comment-delimiter">% </span><span class="comment">un tableau de variation : +</span><span class="comment-delimiter">%</span><span class="comment"> +</span><span class="comment-delimiter">% </span><span class="font-latex-sedate"><span class="comment">\begin</span></span><span class="comment">{TV} +</span><span class="comment-delimiter">% </span><span class="comment">TV([0,+infinity],[0],"h","x",ln(x)-(ln(x))^2,1,</span><span class="font-latex-sedate"><span class="comment">\tv</span></span><span class="comment">) +</span><span class="comment-delimiter">% </span><span class="font-latex-sedate"><span class="comment">\end</span></span><span class="comment">{TV} +</span><span class="comment-delimiter">%</span><span class="comment"> +</span><span class="comment-delimiter">% </span><span class="comment">tableau avec valeurs intermédiares +</span><span class="comment-delimiter">%</span><span class="font-latex-sedate"><span class="comment">\begin</span></span><span class="comment">{TVI} +</span><span class="comment-delimiter">%</span><span class="comment">TVI([-1,+infinity],[-1],"f","x",x2/sqrt(x+1)-1,1,2,</span><span class="font-latex-sedate"><span class="comment">\tv</span></span><span class="comment">) +</span><span class="comment-delimiter">%</span><span class="font-latex-sedate"><span class="comment">\end</span></span><span class="comment">{TVI} +</span><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">et leurs pendants étoilés qui permet l'affichage intermédiaire du +</span><span class="comment-delimiter">% </span><span class="comment">fichier metapost pour le modifier +</span><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"> +</span><span class="comment-delimiter">%</span><span class="comment"> </span> -<span class="comment">%% extensions requises -%% Il faudra rajouter dans le préambule </span><span class="font-latex-sedate"><span class="comment">\usepackage</span></span><span class="comment">{graphicx} si vous -%% ne l'avez pas de base +<span class="comment-delimiter">%% </span><span class="comment">extensions requises +</span><span class="comment-delimiter">%% </span><span class="comment">Il faudra rajouter dans le préambule </span><span class="font-latex-sedate"><span class="comment">\usepackage</span></span><span class="comment">{graphicx} si vous +</span><span class="comment-delimiter">%% </span><span class="comment">ne l'avez pas de base </span> <span class="font-latex-sedate">\RequirePackage</span>{ifthen} <span class="font-latex-sedate">\RequirePackage</span>{fancyvrb} -<span class="font-latex-sedate">\RequirePackage</span>{<span class="flyspell-duplicate">ifpdf</span>} +<span class="font-latex-sedate">\RequirePackage</span>{ifpdf} + -<span class="comment">%% liste des options : os et éditeur rapide +<span class="comment-delimiter">% </span><span class="comment">option xcas présent </span> <span class="font-latex-sedate">\newboolean</span>{xcas}<span class="font-latex-sedate">\setboolean</span>{xcas}{false} -<span class="font-latex-sedate">\newboolean</span>{linux}<span class="font-latex-sedate">\setboolean</span>{linux}{false} -<span class="font-latex-sedate">\newboolean</span>{windows}<span class="font-latex-sedate">\setboolean</span>{windows}{<span class="flyspell-duplicate">false</span>} -<span class="font-latex-sedate">\newboolean</span>{macosx}<span class="font-latex-sedate">\setboolean</span>{macosx}{<span class="flyspell-duplicate">false</span>} -<span class="font-latex-sedate">\newboolean</span>{emacs}<span class="font-latex-sedate">\setboolean</span>{emacs}{false} -<span class="font-latex-sedate">\newboolean</span>{xemacs}<span class="font-latex-sedate">\setboolean</span>{xemacs}{false} -<span class="font-latex-sedate">\newboolean</span>{texmaker}<span class="font-latex-sedate">\setboolean</span>{texmaker}{<span class="flyspell-duplicate">false</span>} -<span class="font-latex-sedate">\newboolean</span>{vi}<span class="font-latex-sedate">\setboolean</span>{vi}{false} -<span class="font-latex-sedate">\newboolean</span>{winshell}<span class="font-latex-sedate">\setboolean</span>{winshell}{<span class="flyspell-duplicate">false</span>} -<span class="font-latex-sedate">\newboolean</span>{notepad}<span class="font-latex-sedate">\setboolean</span>{notepad}{<span class="flyspell-duplicate">false</span>} -<span class="font-latex-sedate">\newboolean</span>{vim}<span class="font-latex-sedate">\setboolean</span>{vim}{false} -<span class="font-latex-sedate">\newboolean</span>{kate}<span class="font-latex-sedate">\setboolean</span>{kate}{<span class="flyspell-duplicate">false</span>} -<span class="font-latex-sedate">\newboolean</span>{gedit}<span class="font-latex-sedate">\setboolean</span>{gedit}{<span class="flyspell-duplicate">false</span>} -<span class="font-latex-sedate">\newboolean</span>{<span class="flyspell-duplicate">textmate</span>}<span class="font-latex-sedate">\setboolean</span>{<span class="flyspell-duplicate">textmate</span>}{<span class="flyspell-duplicate">false</span>} -<span class="font-latex-sedate">\newboolean</span>{<span class="flyspell-duplicate">texshop</span>}<span class="font-latex-sedate">\setboolean</span>{<span class="flyspell-duplicate">texshop</span>}{<span class="flyspell-duplicate">false</span>} - -<span class="font-latex-sedate">\DeclareOption</span>{xcas}{<span class="font-latex-sedate">\setboolean</span>{xcas}{<span class="flyspell-duplicate">true</span>}} -<span class="font-latex-sedate">\DeclareOption</span>{linux}{<span class="font-latex-sedate">\setboolean</span>{linux}{<span class="flyspell-duplicate">true</span>}} -<span class="font-latex-sedate">\DeclareOption</span>{windows}{<span class="font-latex-sedate">\setboolean</span>{windows}{true}} -<span class="font-latex-sedate">\DeclareOption</span>{mac}{<span class="font-latex-sedate">\setboolean</span>{macosx}{true}} -<span class="font-latex-sedate">\DeclareOption</span>{emacs}{<span class="font-latex-sedate">\setboolean</span>{emacs}{<span class="flyspell-duplicate">true</span>}} -<span class="font-latex-sedate">\DeclareOption</span>{xemacs}{<span class="font-latex-sedate">\setboolean</span>{xemacs}{true}} -<span class="font-latex-sedate">\DeclareOption</span>{<span class="flyspell-duplicate">texmaker</span>}{<span class="font-latex-sedate">\setboolean</span>{texmaker}{<span class="flyspell-duplicate">true</span>}} -<span class="font-latex-sedate">\DeclareOption</span>{vi}{<span class="font-latex-sedate">\setboolean</span>{vi}{<span class="flyspell-duplicate">true</span>}} -<span class="font-latex-sedate">\DeclareOption</span>{winshell}{<span class="font-latex-sedate">\setboolean</span>{winshell}{true}} -<span class="font-latex-sedate">\DeclareOption</span>{notepad}{<span class="font-latex-sedate">\setboolean</span>{notepad}{true}} -<span class="font-latex-sedate">\DeclareOption</span>{vim}{<span class="font-latex-sedate">\setboolean</span>{vim}{<span class="flyspell-duplicate">true</span>}} -<span class="font-latex-sedate">\DeclareOption</span>{<span class="flyspell-duplicate">kate</span>}{<span class="font-latex-sedate">\setboolean</span>{<span class="flyspell-duplicate">kate</span>}{<span class="flyspell-duplicate">true</span>}} -<span class="font-latex-sedate">\DeclareOption</span>{gedit}{<span class="font-latex-sedate">\setboolean</span>{gedit}{<span class="flyspell-duplicate">true</span>}} -<span class="font-latex-sedate">\DeclareOption</span>{<span class="flyspell-duplicate">textmate</span>}{<span class="font-latex-sedate">\setboolean</span>{<span class="flyspell-incorrect">textmate</span>}{<span class="flyspell-duplicate">true</span>}} -<span class="font-latex-sedate">\DeclareOption</span>{<span class="flyspell-duplicate">texshop</span>}{<span class="font-latex-sedate">\setboolean</span>{<span class="flyspell-incorrect">texshop</span>}{<span class="flyspell-duplicate">true</span>}} - - -<span class="comment">%% on peut configurer tablor dans un fichier extérieur -</span> -<span class="font-latex-sedate">\IfFileExists</span>{tablor.cfg}{<span class="font-latex-sedate"><span class="keyword">\input</span></span><span class="constant">{tablor.cfg}</span>}{<span class="font-latex-sedate">\typeout</span>{pas de fichier tablor.<span class="flyspell-duplicate">cfg</span>}} +<span class="font-latex-sedate">\DeclareOption</span>{xcas}{<span class="font-latex-sedate">\setboolean</span>{xcas}{true}} + +<span class="comment-delimiter">%% </span><span class="comment">Initialisation du choix d'OS +</span><span class="font-latex-sedate">\newboolean</span>{windows}<span class="font-latex-sedate">\setboolean</span>{windows}{false} -<span class="font-latex-sedate">\ProcessOptions</span>\relax -<span class="comment">%% pour ceux compilant via </span><span class="comment"><span class="flyspell-incorrect">pdflatex</span></span><span class="comment"> +<span class="comment-delimiter">%% </span><span class="comment">on configure tablor dans un fichier extérieur pour la plateforme +</span><span class="comment-delimiter">%% </span><span class="comment">et l'éditeur +</span> +<span class="font-latex-sedate">\IfFileExists</span>{tablor.cfg}{<span class="font-latex-sedate"><span class="keyword">\input</span></span><span class="constant">{tablor.cfg}</span>}<span class="comment">%</span><span class="font-latex-sedate"><span class="comment">\typeout</span></span><span class="comment">{pas de fichier tablor.cfg}} +</span> +<span class="font-latex-sedate">\ProcessOptions</span><span class="font-latex-sedate">\relax</span> + +<span class="comment-delimiter">%% </span><span class="comment">pour ceux compilant via pdflatex </span> <span class="font-latex-sedate">\ifpdf</span> -<span class="font-latex-sedate">\DeclareGraphicsRule</span>{*}{<span class="flyspell-incorrect">mps</span>}{*}{} +<span class="font-latex-sedate">\DeclareGraphicsRule</span>{*}{mps}{*}{} <span class="font-latex-sedate">\fi</span> -<span class="comment">%% pour nettoyer les fichiers auxiliaires +<span class="comment-delimiter">%% </span><span class="comment">pour nettoyer les fichiers auxiliaires </span> -<span class="font-latex-sedate">\AtEndDocument</span>{<span class="font-latex-sedate">\ifthenelse</span>{<span class="font-latex-sedate">\boolean</span>{<span class="flyspell-duplicate">windows</span>}}<span class="comment">% -</span>{<span class="font-latex-sedate">\immediate</span>\write18{DEL tete.* *.user XCas*.* Xcas*.* *.<span class="flyspell-duplicate">mpx</span>} } <span class="comment">% -</span>{<span class="font-latex-sedate">\immediate</span>\write18{rm tete.* *.user XCas* Xcas* *.<span class="flyspell-duplicate">mpx</span>} }} +<span class="font-latex-sedate">\AtEndDocument</span>{<span class="font-latex-sedate">\immediate</span><span class="font-latex-sedate">\write</span>18{<span class="font-latex-sedate">\rem</span> tete.* *.user XCas* Xcas* *.mpx}} -<span class="comment">%% En-tête pour le fichier metapost contenant les codes -%% de tous les tableaux produits +<span class="comment-delimiter">%% </span><span class="comment">En-tête pour le fichier metapost contenant les codes +</span><span class="comment-delimiter">%% </span><span class="comment">de tous les tableaux produits </span> <span class="font-latex-sedate"><span class="keyword">\begin</span></span><span class="function-name">{VerbatimOut}</span>{tete.mp} input tableauVariation; - <span class="flyspell-duplicate">verbatimtex</span> -<span class="comment">%&latex + verbatimtex +<span class="comment-delimiter">%</span><span class="comment">&latex </span> <span class="font-latex-sedate"><span class="keyword">\documentclass</span></span><span class="function-name">{article}</span> <span class="font-latex-sedate"><span class="keyword">\usepackage</span></span><span class="variable-name">[upright]</span><span class="function-name">{fourier}</span> <span class="font-latex-sedate"><span class="keyword">\usepackage</span></span><span class="function-name">{amsmath}</span> <span class="font-latex-sedate"><span class="keyword">\newcommand</span></span><span class="function-name">{</span><span class="font-latex-sedate"><span class="function-name">\Mathbold</span></span><span class="function-name">}</span>[1]{<span class="font-latex-sedate"><span class="keyword">\mbox</span></span><span class="function-name">{</span><span class="font-latex-sedate"><span class="function-name">\boldmath</span></span><span class="function-name"><span class="font-latex-math">$#1$</span></span><span class="font-latex-sedate"><span class="function-name">\unboldmath</span></span><span class="function-name">}</span>} <span class="font-latex-sedate"><span class="keyword">\begin</span></span><span class="function-name">{document}</span> - <span class="flyspell-duplicate">etex</span> + etex <span class="font-latex-sedate"><span class="keyword">\end</span></span><span class="function-name">{VerbatimOut}</span> -<span class="comment">%% 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 (</span><span class="font-latex-sedate"><span class="comment">\jobname</span></span><span class="comment">) -%% Clôt le fichier metapost contenant le récapitulatif de tous les tableaux +<span class="comment-delimiter">%% </span><span class="comment">Nettoie les fichiers log dont le nom dépend du choix de l'utilisateur +</span><span class="comment-delimiter">%% </span><span class="comment">Par défaut, c'est le nom du fichier tex courant (</span><span class="font-latex-sedate"><span class="comment">\jobname</span></span><span class="comment">) +</span><span class="comment-delimiter">%% </span><span class="comment">Clôt le fichier metapost contenant le récapitulatif de tous les tableaux </span> +<span class="comment-delimiter">%% </span><span class="comment">Définit des commandes disque selon l'OS utilisé +</span><span class="font-latex-sedate">\ifthenelse</span>{<span class="font-latex-sedate">\boolean</span>{windows}}<span class="comment">% +</span> {<span class="font-latex-sedate"><span class="keyword">\newcommand</span></span><span class="function-name">{</span><span class="font-latex-sedate"><span class="function-name">\rem</span></span><span class="function-name">}</span>{DEL } <span class="font-latex-sedate"><span class="keyword">\newcommand</span></span><span class="function-name">{</span><span class="font-latex-sedate"><span class="function-name">\cat</span></span><span class="function-name">}</span>{TYPE } + <span class="font-latex-sedate"><span class="keyword">\newcommand</span></span><span class="function-name">{</span><span class="font-latex-sedate"><span class="function-name">\cp</span></span><span class="function-name">}</span>{COPY }}<span class="comment">% +</span> {<span class="font-latex-sedate"><span class="keyword">\newcommand</span></span><span class="function-name">{</span><span class="font-latex-sedate"><span class="function-name">\rem</span></span><span class="function-name">}</span>{rm }<span class="font-latex-sedate"><span class="keyword">\newcommand</span></span><span class="function-name">{</span><span class="font-latex-sedate"><span class="function-name">\cat</span></span><span class="function-name">}</span>{cat } + <span class="font-latex-sedate"><span class="keyword">\newcommand</span></span><span class="function-name">{</span><span class="font-latex-sedate"><span class="function-name">\cp</span></span><span class="function-name">}</span>{cp }} + + + <span class="font-latex-sedate"><span class="keyword">\newcommand</span></span><span class="function-name">{</span><span class="font-latex-sedate"><span class="function-name">\nettoyer</span></span><span class="function-name">}</span>[1][<span class="font-latex-sedate">\jobname</span>]<span class="comment">% -</span>{<span class="font-latex-sedate">\ifthenelse</span>{<span class="font-latex-sedate">\boolean</span>{windows}}<span class="comment">% -</span>{<span class="font-latex-sedate">\immediate</span>\write18{DEL #1.Tab.<span class="flyspell-duplicate">log</span>} -<span class="font-latex-sedate">\immediate</span>\write18{echo end >> #1.Tab.<span class="flyspell-duplicate">mp</span>}}<span class="comment">% -</span>{<span class="font-latex-sedate">\immediate</span>\write18{rm #1.Tab.<span class="flyspell-duplicate">log</span>} -<span class="font-latex-sedate">\immediate</span>\write18{echo end >> #1.Tab.<span class="flyspell-duplicate">mp</span>} -} +</span>{<span class="font-latex-sedate">\immediate</span><span class="font-latex-sedate">\write</span>18{<span class="font-latex-sedate">\rem</span> #1.Tab.log} +<span class="font-latex-sedate">\immediate</span><span class="font-latex-sedate">\write</span>18{echo end >> #1.Tab.mp} } -<span class="comment">%% Donne comme prefixe aux tableaux le prefixe courant -%% Peut-être modifié par </span><span class="font-latex-sedate"><span class="comment">\initablor</span></span><span class="comment"> + + + +<span class="comment-delimiter">%% </span><span class="comment">Donne comme prefixe aux tableaux le prefixe courant +</span><span class="comment-delimiter">%% </span><span class="comment">Peut-être modifié par </span><span class="font-latex-sedate"><span class="comment">\initablor</span></span><span class="comment"> </span> <span class="font-latex-sedate"><span class="keyword">\newcommand</span></span><span class="function-name">{</span><span class="font-latex-sedate"><span class="function-name">\Tableaux</span></span><span class="function-name">}</span>{<span class="font-latex-sedate">\jobname</span>} -<span class="comment">%% initialise les compteurs +<span class="comment-delimiter">%% </span><span class="comment">initialise les compteurs </span> -<span class="font-latex-sedate"><span class="keyword">\newcounter</span></span><span class="function-name">{</span><span class="function-name"><span class="flyspell-duplicate">TVn</span></span><span class="function-name">}</span> +<span class="font-latex-sedate"><span class="keyword">\newcounter</span></span><span class="function-name">{TVn}</span> <span class="font-latex-sedate"><span class="keyword">\newcommand</span></span><span class="function-name">{</span><span class="font-latex-sedate"><span class="function-name">\tv</span></span><span class="function-name">}</span>{<span class="font-latex-sedate">\theTVn</span>} <span class="font-latex-sedate"><span class="keyword">\newcounter</span></span><span class="function-name">{TVnbis}</span> <span class="font-latex-sedate"><span class="keyword">\newcommand</span></span><span class="function-name">{</span><span class="font-latex-sedate"><span class="function-name">\tvbis</span></span><span class="function-name">}</span>{<span class="font-latex-sedate">\theTVnbis</span>} -<span class="comment">%% permet de donner un prefixe aux tableaux produits (</span><span class="font-latex-sedate"><span class="comment">\jobname</span></span><span class="comment"> par défaut) -%% effectue quelques vérifications : + +<span class="comment-delimiter">%% </span><span class="comment">permet de donner un prefixe aux tableaux produits (</span><span class="font-latex-sedate"><span class="comment">\jobname</span></span><span class="comment"> par défaut) +</span><span class="comment-delimiter">%% </span><span class="comment">effectue quelques vérifications : </span> <span class="font-latex-sedate"><span class="keyword">\newcommand</span></span><span class="function-name">{</span><span class="font-latex-sedate"><span class="function-name">\initablor</span></span><span class="function-name">}</span>[1][<span class="font-latex-sedate">\jobname</span>]{<span class="comment">% @@ -240,41 +227,37 @@ </span><span class="font-latex-sedate"><span class="keyword">\setcounter</span></span><span class="variable-name">{TVn}{0}</span><span class="comment">% Initialisation du compteur de tableaux. </span><span class="font-latex-sedate">\ifthenelse</span>{<span class="font-latex-sedate">\boolean</span>{xcas}}<span class="comment">% Avec l'option XCas </span>{<span class="font-latex-sedate">\IfFileExists</span>{<span class="font-latex-sedate">\Tableaux</span>.Tab.mp}<span class="comment">% Si Tableaux.mp est présent... -</span> {<span class="font-latex-sedate">\ifthenelse</span>{<span class="font-latex-sedate">\boolean</span>{<span class="flyspell-duplicate">windows</span>}} - {<span class="font-latex-sedate">\immediate</span>\write18{DEL <span class="font-latex-sedate">\Tableaux</span>.Tab.mp}}<span class="comment">% le détruire -</span> {<span class="font-latex-sedate">\immediate</span>\write18{rm <span class="font-latex-sedate">\Tableaux</span>.Tab.mp}}}<span class="comment">% -</span> {}<span class="comment">% -</span> -<span class="font-latex-sedate">\ifthenelse</span>{<span class="font-latex-sedate">\boolean</span>{<span class="flyspell-duplicate">windows</span>}} - {<span class="font-latex-sedate">\immediate</span>\write18{COPY -f tete.mp <span class="font-latex-sedate">\Tableaux</span>.Tab.mp}}<span class="comment">% Reconstituer -</span> <span class="comment">% l'entête de Tableaux.mp -</span> {<span class="font-latex-sedate">\immediate</span>\write18{cp -f tete.mp <span class="font-latex-sedate">\Tableaux</span>.Tab.mp}}} -{<span class="font-latex-sedate">\IfFileExists</span>{<span class="font-latex-sedate">\Tableaux</span>.Tab.mp}<span class="comment">% Sans l'option XCas, si Tableaux.mp existe -</span> {<span class="font-latex-sedate">\immediate</span>\write18{mpost -interaction=batchmode <span class="font-latex-sedate">\Tableaux</span>.Tab}}<span class="comment">% l'exécuter pour reconstituer les figures -</span> {<span class="font-latex-sedate">\PackageWarning</span>{tablor}{Pas de source metapost pour creer les tableaux.}}<span class="comment">% sinon message d'erreur +</span> {<span class="font-latex-sedate">\immediate</span><span class="font-latex-sedate">\write</span>18{<span class="font-latex-sedate">\rem</span> <span class="font-latex-sedate">\Tableaux</span>.Tab.mp}}<span class="comment">% le détruire +</span> {}<span class="comment">% +</span> <span class="font-latex-sedate">\immediate</span><span class="font-latex-sedate">\write</span>18{<span class="font-latex-sedate">\cp</span> -f tete.mp <span class="font-latex-sedate">\Tableaux</span>.Tab.mp}<span class="comment">% Reconstituer l'entête de Tableaux.mp +</span>} +{<span class="font-latex-sedate">\IfFileExists</span>{<span class="font-latex-sedate">\Tableaux</span>.Tab.mp}<span class="comment">% Sans l'option XCas, si +</span> <span class="comment">% Tableaux.mp existe +</span>{<span class="font-latex-sedate">\immediate</span><span class="font-latex-sedate">\write</span>18{mpost -interaction=batchmode <span class="font-latex-sedate">\Tableaux</span>.Tab}}<span class="comment">% l'exécuter pour reconstituer les figures +</span>{<span class="font-latex-sedate">\PackageWarning</span>{tablor}{Pas de source metapost pour creer les tableaux.}}<span class="comment">% sinon message d'erreur </span> <span class="comment">% (mais pas d'arret car les tableaux </span> <span class="comment">% peuvent être présents ) </span>}}<span class="comment">% </span> -<span class="comment">%% commande pour lancer giac selon l'OS +<span class="comment-delimiter">%% </span><span class="comment">commande pour lancer giac selon l'OS </span> <span class="font-latex-sedate">\makeatletter</span> <span class="font-latex-sedate"><span class="keyword">\newcommand</span></span><span class="function-name">{</span><span class="font-latex-sedate"><span class="function-name">\executGiacmp</span></span><span class="function-name">}</span>[1]{<span class="comment">% -</span><span class="font-latex-sedate">\ifthenelse</span>{<span class="font-latex-sedate">\boolean</span>{<span class="flyspell-duplicate">windows</span>}}<span class="comment">% -</span>{<span class="font-latex-sedate">\immediate</span>\write18{giac #1 }}<span class="comment">% -</span>{<span class="font-latex-sedate">\immediate</span>\write18{giac <#1 }}} +</span><span class="font-latex-sedate">\ifthenelse</span>{<span class="font-latex-sedate">\boolean</span>{windows}}<span class="comment">% +</span>{<span class="font-latex-sedate">\immediate</span><span class="font-latex-sedate">\write</span>18{giac #1 }}<span class="comment">% +</span>{<span class="font-latex-sedate">\immediate</span><span class="font-latex-sedate">\write</span>18{giac <#1 }}} <span class="font-latex-sedate">\makeatother</span> -<span class="comment">%%% -% -%%% LES SCRIPTS GIAC/</span><span class="comment"><span class="flyspell-incorrect">XCAS</span></span><span class="comment"> -% -%%% +<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">LES SCRIPTS GIAC/XCAS +</span><span class="comment-delimiter">%</span><span class="comment"> +</span><span class="comment-delimiter">%%%</span><span class="comment"> </span> @@ -282,9 +265,9 @@ -<span class="comment">%% -%% Code giac/Xcas pour les Tableaux de Variations -%% +<span class="comment-delimiter">%%</span><span class="comment"> +</span><span class="comment-delimiter">%% </span><span class="comment">Code giac/Xcas pour les Tableaux de Variations +</span><span class="comment-delimiter">%%</span><span class="comment"> </span> <span class="font-latex-sedate"><span class="keyword">\begin</span></span><span class="function-name">{VerbatimOut}</span>{XcasTV.cxx} @@ -297,7 +280,7 @@ S:=resoudre(fp(x),x); si size(S)>0 alors pour j de 0 jusque size(S)-1 faire kk:=(evalf(S[j])>=evalf(L[0])) and (evalf(S[j])<=evalf(L[nl-1])); if(kk==1){Z:=append(Z,simplifier(S[j]))}; - <span class="flyspell-duplicate">fpour</span> + fpour fsi; Z:=sort(Z); @@ -316,10 +299,10 @@ pour m de 0 jusque nz-1 faire l0:=l0+"val(btex <span class="font-latex-math">$"+ k0:= evalf(limite(f(x),x=Z[0],1))> evalf(limite(f(x),x=Z[1],-1)); kz:=evalf(limite(f(x),x=Z[nz-1],-1))> evalf(limite(f(x),x=Z[nz-2],1)); -<span class="flyspell-duplicate">lsi</span>:=" +lsi:=" newLigneSignes(btex <span class="font-latex-math">$\\hbox{ Signe de }\\atop{\\displaystyle "+nom+"'("+nomv+")}$</span> etex);"+ if(Z[0]==-infinity){if(sign(evalf(fp(if(Z[1]==+infinity){0}else{Z[1]-10^(-5)})))==1){"plus;"}else{"moins;"}}else{if(member(Z[0],F)==0){ - if(fp(Z[0])==0){"valBarre(btex 0 etex);"}<span class="flyspell-duplicate">else</span>{" "}+ + if(fp(Z[0])==0){"valBarre(btex 0 etex);"}else{" "}+ if(sign(fp(Z[0]+10^(-5)))==1){"plus;"}else{"moins;"}}else{"nonDefBarre;"+ if(sign(fp((Z[0]+10^(-5))))==1){"plus;"}else{"moins;"} }} @@ -328,19 +311,19 @@ if(nz>2){ for(r:=1; r<=nz-2;r++){ ksp:=evalf(fp(Z[r]+0.01))>0; if(ksp==1){"plus;"}else{"moins;"} }; } -lsf:=if(member(Z[nz-1],F)==0){""}else{"<span class="flyspell-duplicate">nomDefBarre</span>; +lsf:=if(member(Z[nz-1],F)==0){""}else{"nomDefBarre; "} lm0:=limite(f(x),x=Z[0],1)==-infinity; li:=" newLigneVariations(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"> Variations de }\\atop{\\displaystyle \\Mathbold{"+nom+"}}$</span> etex);"+ if(member(Z[0],F)==0){"valPos(btex <span class="font-latex-math">$"+if(lm0==1){"-\\infty"}else{latex(simplifier(limite(f(x),x=Z[0],1)))}+"$</span> etex,"} else{"nonDefBarre;limDroite(btex <span class="font-latex-math">$"+if(lm0==1){"-\\infty"}else{latex(simplifier(limite(f(x),x=Z[0],1)))}+"$</span> etex,"}+ - if(k0==1){"1"}<span class="flyspell-duplicate">else</span>{"0"}+ + if(k0==1){"1"}else{"0"}+ ");"; if(nz>2){ for(r:=1; r<=nz-2;r++){ krm:=evalf(limite(f(x),x=Z[r-1],1))< evalf(limite(f(x),x=Z[r],-1)); krp:=evalf(limite(f(x),x=Z[r],1))> evalf(limite(f(x),x=Z[r+1],-1)) ; - lmrm:=limite(f(x),x=Z[r],-1)==-infinity;lmrp:=limite(f(x),x=Z[r],1)==-<span class="flyspell-duplicate">infinity</span>; + lmrm:=limite(f(x),x=Z[r],-1)==-infinity;lmrp:=limite(f(x),x=Z[r],1)==-infinity; lp:=lp+if(member(Z[r],F)){ "limGauche(btex <span class="font-latex-math">$"+if(lmrm==1){"-\\infty"}else{latex(simplifier(limite(f(x),x=Z[r],-1)))}+"$</span> etex,"+if(krm==1){"1);"}else{"0);"}+"nonDefBarre;limDroite(btex <span class="font-latex-math">$"+if(lmrp==1){"-\\infty"}else{latex(simplifier(limite(f(x),x=Z[r],1)))}+"$</span> etex,"+if(krp==1){"1);"}else{"0);"}} else{"valPos(btex <span class="font-latex-math">$"+latex(simplifier(f(Z[r])))+"$</span> @@ -356,7 +339,7 @@ lnz:=limite(f(x),x=Z[nz-1],-1)==-infinity; intro:="input tableauVariation; verbatimtex -<span class="comment">%&latex +<span class="comment-delimiter">%</span><span class="comment">&latex </span> <span class="font-latex-warning">\</span><span class="keyword"><span class="font-latex-warning">\</span></span><span class="keyword">documentclass</span><span class="function-name">{article}</span> <span class="font-latex-warning">\</span><span class="keyword"><span class="font-latex-warning">\</span></span><span class="keyword">usepackage</span><span class="variable-name">[upright]</span><span class="function-name">{fourier}</span> <span class="font-latex-warning">\</span><span class="keyword"><span class="font-latex-warning">\</span></span><span class="keyword">usepackage</span><span class="function-name">{amsmath}</span> @@ -376,7 +359,7 @@ intro+"beginTableau("+nmr+")"+ l0+ lsi+lsf+" endTableau; -<span class="flyspell-duplicate">end</span>"; +end"; } }else{ if(ftt==0){if(nz>2){intro+"beginTableau("+nmr+")"+ l0+ @@ -475,10 +458,10 @@ return(MetaL); -<span class="comment">%% -%% Code giac/Xcas pour les Tableaux de Variations avec -%% Valeurs intermédiaires -%% +<span class="comment-delimiter">%%</span><span class="comment"> +</span><span class="comment-delimiter">%% </span><span class="comment">Code giac/Xcas pour les Tableaux de Variations avec +</span><span class="comment-delimiter">%% </span><span class="comment">Valeurs intermédiaires +</span><span class="comment-delimiter">%%</span><span class="comment"> </span> @@ -539,7 +522,7 @@ TestS:=(sign(evalf(LL[0]-ao))==sign(evalf(LL[1]-ao))) or (sign(evalf(LL[0]-ao))= kz:=evalf(limite(f(x),x=Z[nz-1],-1))> evalf(limite(f(x),x=Z[nz-2],1)); lsi:=" -newLigneSignes(btex <span class="font-latex-math">$\\hbox{ Signe de }\\atop{\\displaystyle "+nom+"'("+nomv+")}$</span> <span class="flyspell-duplicate">etex</span>);"+ +newLigneSignes(btex <span class="font-latex-math">$\\hbox{ Signe de }\\atop{\\displaystyle "+nom+"'("+nomv+")}$</span> etex);"+ if(Z[0]==-infinity){if(sign(evalf(fp(if(Z[1]==+infinity){0}else{Z[1]-10^(-5)})))==1){"plus;"}else{"moins;"}}else{if(member(Z[0],F)==0){ if(fp(Z[0])==0){"valBarre(btex 0 etex);"}else{" "}+ if(sign(fp((Z[0]+10^(-10))))==1){"plus;"}else{"moins;"}}else{"nonDefBarre;"+ @@ -622,7 +605,7 @@ lnz:=limite(f(x),x=Z[nz-1],-1)==-infinity; intro:=" input tableauVariation; verbatimtex -<span class="comment">%&latex +<span class="comment-delimiter">%</span><span class="comment">&latex </span> <span class="font-latex-warning">\</span><span class="keyword"><span class="font-latex-warning">\</span></span><span class="keyword">documentclass</span><span class="function-name">{article}</span> <span class="font-latex-warning">\</span><span class="keyword"><span class="font-latex-warning">\</span></span><span class="keyword">usepackage</span><span class="variable-name">[upright]</span><span class="function-name">{fourier}</span> <span class="font-latex-warning">\</span><span class="keyword"><span class="font-latex-warning">\</span></span><span class="keyword">usepackage</span><span class="function-name">{amsmath}</span> @@ -741,9 +724,9 @@ return(MetaL); -<span class="comment">%% -%% Code giac/Xcas pour les Tableaux de signes de produits -%% +<span class="comment-delimiter">%%</span><span class="comment"> +</span><span class="comment-delimiter">%% </span><span class="comment">Code giac/Xcas pour les Tableaux de signes de produits +</span><span class="comment-delimiter">%%</span><span class="comment"> </span> @@ -788,7 +771,7 @@ if(L[p]((mini+maxi)*0.5>0)){"plus;"}else{"moins;"}+if(maxi!=+infinity and L[p MetaL:=" input tableauVariation; verbatimtex -<span class="comment">%&latex +<span class="comment-delimiter">%</span><span class="comment">&latex </span> <span class="font-latex-warning">\</span><span class="keyword"><span class="font-latex-warning">\</span></span><span class="keyword">documentclass</span><span class="function-name">{article}</span> <span class="font-latex-warning">\</span><span class="keyword"><span class="font-latex-warning">\</span></span><span class="keyword">usepackage</span><span class="variable-name">[upright]</span><span class="function-name">{fourier}</span> <span class="font-latex-warning">\</span><span class="keyword"><span class="font-latex-warning">\</span></span><span class="keyword">usepackage</span><span class="function-name">{amsmath}</span> @@ -839,7 +822,7 @@ for(p:=0;p<=n-1;p++){lp:=""; li:=li+" 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(L[p](x))+"}}$</span> etex);"+ if(mini!=-infinity and L[p](mini)==0){" - valBarre(btex 0 etex);"}<span class="flyspell-duplicate">else</span>{" + valBarre(btex 0 etex);"}else{" "}+ if(L[p](Z[0]-0.01)>0){"plus;"}else{"moins;"}; @@ -863,7 +846,7 @@ pour t de 0 jusque nz-2 faire MetaL:=" input tableauVariation; verbatimtex -<span class="comment">%&latex +<span class="comment-delimiter">%</span><span class="comment">&latex </span> <span class="font-latex-warning">\</span><span class="keyword"><span class="font-latex-warning">\</span></span><span class="keyword">documentclass</span><span class="function-name">{article}</span> <span class="font-latex-warning">\</span><span class="keyword"><span class="font-latex-warning">\</span></span><span class="keyword">usepackage</span><span class="variable-name">[upright]</span><span class="function-name">{fourier}</span> <span class="font-latex-warning">\</span><span class="keyword"><span class="font-latex-warning">\</span></span><span class="keyword">usepackage</span><span class="function-name">{amsmath}</span> @@ -880,7 +863,7 @@ newLigneVariables(btex <span class="font-latex-math">$\\Mathbold{x}$</span> 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(<span class="flyspell-duplicate">btex</span> 0 etex);"+ + 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){" @@ -920,9 +903,9 @@ return(MetaL); -<span class="comment">%% -%% Code giac/Xcas pour les Tableaux de signes de quotients -%% +<span class="comment-delimiter">%%</span><span class="comment"> +</span><span class="comment-delimiter">%% </span><span class="comment">Code giac/Xcas pour les Tableaux de signes de quotients +</span><span class="comment-delimiter">%%</span><span class="comment"> </span> @@ -989,7 +972,7 @@ if(L[p]((mini+maxi)*0.5>0)){"plus;"}else{"moins;"}+if(maxi!=+infinity and L[p MetaL:=" input tableauVariation; verbatimtex -<span class="comment">%&latex +<span class="comment-delimiter">%</span><span class="comment">&latex </span> <span class="font-latex-warning">\</span><span class="keyword"><span class="font-latex-warning">\</span></span><span class="keyword">documentclass</span><span class="function-name">{article}</span> <span class="font-latex-warning">\</span><span class="keyword"><span class="font-latex-warning">\</span></span><span class="keyword">usepackage</span><span class="variable-name">[upright]</span><span class="function-name">{fourier}</span> <span class="font-latex-warning">\</span><span class="keyword"><span class="font-latex-warning">\</span></span><span class="keyword">usepackage</span><span class="function-name">{amsmath}</span> @@ -1073,7 +1056,7 @@ pour t de 0 jusque nz-2 faire MetaL:=" input tableauVariation; verbatimtex -<span class="comment">%&latex +<span class="comment-delimiter">%</span><span class="comment">&latex </span> <span class="font-latex-warning">\</span><span class="keyword"><span class="font-latex-warning">\</span></span><span class="keyword">documentclass</span><span class="function-name">{article}</span> <span class="font-latex-warning">\</span><span class="keyword"><span class="font-latex-warning">\</span></span><span class="keyword">usepackage</span><span class="variable-name">[upright]</span><span class="function-name">{fourier}</span> <span class="font-latex-warning">\</span><span class="keyword"><span class="font-latex-warning">\</span></span><span class="keyword">usepackage</span><span class="function-name">{amsmath}</span> @@ -1146,9 +1129,9 @@ return(MetaL); -<span class="comment">%% Code giac/Xcas pour les Tableaux de signes du produit -%% de 2 facteurs affines -%% +<span class="comment-delimiter">%% </span><span class="comment">Code giac/Xcas pour les Tableaux de signes du produit +</span><span class="comment-delimiter">%% </span><span class="comment">de 2 facteurs affines +</span><span class="comment-delimiter">%%</span><span class="comment"> </span> @@ -1161,7 +1144,7 @@ zmin:=min(zA,zB); zmax:=max(zA,zB); Meta:= " input tableauVariation; verbatimtex -<span class="comment">%&latex +<span class="comment-delimiter">%</span><span class="comment">&latex </span> <span class="font-latex-warning">\</span><span class="keyword"><span class="font-latex-warning">\</span></span><span class="keyword">documentclass</span><span class="function-name">{article}</span> <span class="font-latex-warning">\</span><span class="keyword"><span class="font-latex-warning">\</span></span><span class="keyword">usepackage</span><span class="variable-name">[upright]</span><span class="function-name">{fourier}</span> <span class="font-latex-warning">\</span><span class="keyword"><span class="font-latex-warning">\</span></span><span class="keyword">usepackage</span><span class="function-name">{amsmath}</span> @@ -1208,22 +1191,28 @@ return(Meta); -<span class="comment">%% -%% Code giac/Xcas pour les Tableaux de Signes d'expression ne contenant -%% qu'un seul terme +<span class="comment-delimiter">%%</span><span class="comment"> +</span><span class="comment-delimiter">%% </span><span class="comment">Code giac/Xcas pour les Tableaux de Signes d'expression ne contenant +</span><span class="comment-delimiter">%% </span><span class="comment">qu'un seul terme </span> -<span class="font-latex-sedate"><span class="keyword">\begin</span></span><span class="function-name">{VerbatimOut}</span>{XcasTSc.cxx} +<span class="font-latex-sedate"><span class="keyword">\begin</span></span><span class="function-name">{VerbatimOut}</span>{<span class="flyspell-duplicate">XcasTSc</span>.cxx} TSc(g,D,nmr):={ f:=unapply(g,x); Z:=NULL; mini:=D[0]; maxi:=D[1];lm:=" "; S:=resoudre(f(x),x); if(size(S)==0){ -li:=if(f(0)>0){"plus;"}else{"moins;"}; -lm:=" ";lf:=" "; +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>{" + "}+ +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>0)){"plus;"}<span class="flyspell-duplicate">else</span>{"moins;"}}<span class="flyspell-duplicate">else</span>{if(f(0)>0){"plus;"}<span class="flyspell-duplicate">else</span>{"moins;"}}; +lf:=if(maxi!=+infinity and f(<span class="flyspell-duplicate">maxi</span>)==0){" + valBarre(btex 0 etex);"}else{" + "}; } else{pour j de 0 jusque size(S)-1 faire if(S[j]>mini and S[j]<maxi){Z:=Z,simplifier(S[j])}; @@ -1238,7 +1227,7 @@ if(nz>2){pour u de 1 jusque nz-2 faire 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{" "}+ @@ -1270,7 +1259,7 @@ lf:=if(f(Z[nz-1]+1.0)>0){"plus;"}else{"moins;"}+if(maxi!=+infinity and f(maxi MetaL:=" input tableauVariation; verbatimtex -<span class="comment">%&latex +<span class="comment-delimiter">%</span><span class="comment">&latex </span> <span class="font-latex-warning">\</span><span class="keyword"><span class="font-latex-warning">\</span></span><span class="keyword">documentclass</span><span class="function-name">{article}</span> <span class="font-latex-warning">\</span><span class="keyword"><span class="font-latex-warning">\</span></span><span class="keyword">usepackage</span><span class="variable-name">[upright]</span><span class="function-name">{fourier}</span> <span class="font-latex-warning">\</span><span class="keyword"><span class="font-latex-warning">\</span></span><span class="keyword">usepackage</span><span class="function-name">{amsmath}</span> @@ -1321,11 +1310,11 @@ return(MetaL); -<span class="comment">%% -%% -%% traitement des fichiers produits par giac/</span><span class="comment"><span class="flyspell-duplicate">xcas</span></span><span class="comment"> -%% -%% +<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"> +</span><span class="comment-delimiter">%%</span><span class="comment"> </span> @@ -1335,10 +1324,10 @@ return(MetaL); </span><span class="font-latex-sedate">\ifthenelse</span>{<span class="font-latex-sedate">\boolean</span>{xcas}}{<span class="comment">% Avec l'option "XCas présent" </span> <span class="font-latex-sedate">\executGiacmp</span>{XCas#1.giac}<span class="comment">% reconstituer le tableau </span> <span class="comment">% exporter le source mp -</span> <span class="font-latex-sedate">\ifthenelse</span>{<span class="font-latex-sedate">\boolean</span>{windows}}<span class="comment">% -</span> {<span class="font-latex-sedate">\immediate</span>\write18{TYPE XCasmpfc.mp >> <span class="font-latex-sedate">\Tableaux</span>.Tab.<span class="flyspell-duplicate">mp</span>}}<span class="comment">% -</span> {<span class="font-latex-sedate">\immediate</span>\write18{cat XCasmpfc.mp >> <span class="font-latex-sedate">\Tableaux</span>.Tab.mp}}<span class="comment">% -</span> <span class="font-latex-sedate">\immediate</span>\write18{mpost -interaction=batchmode -jobname=<span class="font-latex-sedate">\Tableaux</span>.Tab XCasmp#1}}<span class="comment">% +</span> <span class="comment">% puis lancer metapost pour créer +</span> <span class="comment">% l'image du tableau +</span> <span class="font-latex-sedate">\immediate</span><span class="font-latex-sedate">\write</span>18{<span class="font-latex-sedate">\cat</span> XCasmpfc.mp >> <span class="font-latex-sedate">\Tableaux</span>.Tab.mp} + <span class="font-latex-sedate">\immediate</span><span class="font-latex-sedate">\write</span>18{mpost -interaction=batchmode -jobname=<span class="font-latex-sedate">\Tableaux</span>.Tab XCasmp#1}}<span class="comment">% </span> {<span class="comment">% sinon, si le tableau est absent, alerte. </span> <span class="font-latex-sedate">\IfFileExists</span>{<span class="font-latex-sedate">\Tableaux</span>.Tab.<span class="font-latex-sedate">\theTVn</span>}{}{<span class="comment">% </span> <span class="font-latex-sedate">\PackageError</span>{tablor}{Tableau absent non @@ -1349,46 +1338,34 @@ return(MetaL); <span class="font-latex-sedate"><span class="keyword">\begin</span></span><span class="function-name">{center}</span> <span class="font-latex-sedate">\includegraphics</span>{<span class="font-latex-sedate">\Tableaux</span>.Tab.<span class="font-latex-sedate">\theTVn</span>} <span class="font-latex-sedate"><span class="keyword">\end</span></span><span class="function-name">{center}</span> -<span class="font-latex-sedate">\stepcounter</span>{<span class="flyspell-duplicate">TVn</span>}} +<span class="font-latex-sedate">\stepcounter</span>{TVn}} -<span class="comment">%% -%% traitement des fichiers produits par giac/xcas avec possibilité -%% de modifier le fichier metapost (environnement étoilé)) -%% +<span class="comment-delimiter">%%</span><span class="comment"> +</span><span class="comment-delimiter">%% </span><span class="comment">traitement des fichiers produits par giac/xcas avec possibilité +</span><span class="comment-delimiter">%% </span><span class="comment">de modifier le fichier metapost (environnement étoilé)) +</span><span class="comment-delimiter">%%</span><span class="comment"> </span> <span class="font-latex-sedate"><span class="keyword">\newcommand</span></span><span class="function-name">{</span><span class="font-latex-sedate"><span class="function-name">\dressetoile</span></span><span class="function-name">}</span>[1]{<span class="comment">% </span><span class="font-latex-sedate">\IfFileExists</span>{<span class="font-latex-sedate">\Tableaux</span>.Tab.<span class="font-latex-sedate">\theTVn</span>}{<span class="comment">% Test sur l'existence du tableau -% Si oui, inclusion du fichier source de sauvegarde mp dans Tableaux -</span><span class="font-latex-sedate">\immediate</span>\write18{cat TSav-<span class="font-latex-sedate">\theTVn</span>.mp >> <span class="font-latex-sedate">\Tableaux</span>.Tab.mp}} -<span class="comment">% Si non, lancement des opérations de fabrication +</span><span class="comment-delimiter">% </span><span class="comment">Si oui, inclusion du fichier source de sauvegarde mp dans Tableaux +</span><span class="font-latex-sedate">\immediate</span><span class="font-latex-sedate">\write</span>18{<span class="font-latex-sedate">\cat</span> TSav-<span class="font-latex-sedate">\theTVn</span>.mp >> <span class="font-latex-sedate">\Tableaux</span>.Tab.mp}} +<span class="comment-delimiter">% </span><span class="comment">Si non, lancement des opérations de fabrication </span>{<span class="font-latex-sedate">\executGiacmp</span>{XCas#1.giac}<span class="comment">% -</span> <span class="font-latex-sedate">\ifthenelse</span>{<span class="font-latex-sedate">\boolean</span>{emacs}}{<span class="font-latex-sedate">\immediate</span>\write18{emacs XCasmpfc.mp}}{} - <span class="font-latex-sedate">\ifthenelse</span>{<span class="font-latex-sedate">\boolean</span>{xemacs}}{<span class="font-latex-sedate">\immediate</span>\write18{xemacs XCasmpfc.<span class="flyspell-duplicate">mp</span>}}{} - <span class="font-latex-sedate">\ifthenelse</span>{<span class="font-latex-sedate">\boolean</span>{texmaker}}{<span class="font-latex-sedate">\immediate</span>\write18{texmaker XCasmpfc.<span class="flyspell-duplicate">mp</span>}}{} - <span class="font-latex-sedate">\ifthenelse</span>{<span class="font-latex-sedate">\boolean</span>{vi}}{<span class="font-latex-sedate">\immediate</span>\write18{vi XCasmpfc.mp}}{} - <span class="font-latex-sedate">\ifthenelse</span>{<span class="font-latex-sedate">\boolean</span>{winshell}}{<span class="font-latex-sedate">\immediate</span>\write18{winshell XCasmpfc.mp}}{} - <span class="font-latex-sedate">\ifthenelse</span>{<span class="font-latex-sedate">\boolean</span>{notepad}}{<span class="font-latex-sedate">\immediate</span>\write18{notepad XCasmpfc.mp}}{} - <span class="font-latex-sedate">\ifthenelse</span>{<span class="font-latex-sedate">\boolean</span>{vim}}{<span class="font-latex-sedate">\immediate</span>\write18{vim XCasmpfc.mp}}{} - <span class="font-latex-sedate">\ifthenelse</span>{<span class="font-latex-sedate">\boolean</span>{<span class="flyspell-duplicate">kate</span>}}{<span class="font-latex-sedate">\immediate</span>\write18{kate XCasmpfc.<span class="flyspell-duplicate">mp</span>}}{} - <span class="font-latex-sedate">\ifthenelse</span>{<span class="font-latex-sedate">\boolean</span>{gedit}}{<span class="font-latex-sedate">\immediate</span>\write18{gedit XCasmpfc.<span class="flyspell-duplicate">mp</span>}}{} - <span class="font-latex-sedate">\ifthenelse</span>{<span class="font-latex-sedate">\boolean</span>{<span class="flyspell-duplicate">textmate</span>}}{<span class="font-latex-sedate">\immediate</span>\write18{<span class="flyspell-duplicate">textmate</span> <span class="flyspell-duplicate">XCasmpfc</span>.<span class="flyspell-duplicate">mp</span>}}{} - <span class="font-latex-sedate">\ifthenelse</span>{<span class="font-latex-sedate">\boolean</span>{<span class="flyspell-duplicate">texshop</span>}}{<span class="font-latex-sedate">\immediate</span>\write18{<span class="flyspell-duplicate">texshop</span> <span class="flyspell-duplicate">XCasmpfc</span>.<span class="flyspell-duplicate">mp</span>}}{} +</span><span class="font-latex-sedate">\immediate</span><span class="font-latex-sedate">\write</span>18{<span class="font-latex-sedate">\editeur</span> XCasmpfc.mp} + <span class="comment">% Modification avec l'éditeur choisi </span> - <span class="font-latex-sedate">\ifthenelse</span>{<span class="font-latex-sedate">\boolean</span>{windows}}<span class="comment">% -</span> {<span class="font-latex-sedate">\immediate</span>\write18{cp -f XCasmpfc.mp TSav-<span class="font-latex-sedate">\theTVn</span>.<span class="flyspell-duplicate">mp</span>} - <span class="font-latex-sedate">\immediate</span>\write18{cat XCasmpfc.mp >> <span class="font-latex-sedate">\Tableaux</span>.Tab.<span class="flyspell-duplicate">mp</span>}}<span class="comment">% -</span> {<span class="font-latex-sedate">\immediate</span>\write18{cp -f XCasmpfc.mp TSav-<span class="font-latex-sedate">\theTVn</span>.mp} <span class="comment">% Sauvegarde du +<span class="font-latex-sedate">\immediate</span><span class="font-latex-sedate">\write</span>18{<span class="font-latex-sedate">\cp</span> -f XCasmpfc.mp TSav-<span class="font-latex-sedate">\theTVn</span>.mp} <span class="comment">% Sauvegarde du </span> <span class="comment">% source mp sur le disque pour une </span> <span class="comment">% inclusion ultérieure dans Tableaux.mp. -</span> <span class="font-latex-sedate">\immediate</span>\write18{cat XCasmpfc.mp >> <span class="font-latex-sedate">\Tableaux</span>.Tab.mp}} <span class="comment">% Inclusion du +</span><span class="font-latex-sedate">\immediate</span><span class="font-latex-sedate">\write</span>18{<span class="font-latex-sedate">\cat</span> XCasmpfc.mp >> <span class="font-latex-sedate">\Tableaux</span>.Tab.mp}} <span class="comment">% Inclusion du </span> <span class="comment">% source dans le </span> <span class="comment">% fichier </span> <span class="comment">% Tableaux -</span> <span class="font-latex-sedate">\immediate</span>\write18{mpost -interaction=batchmode <span class="font-latex-sedate">\Tableaux</span>.Tab}}<span class="comment">% Reconstitution des tableaux +</span><span class="font-latex-sedate">\immediate</span><span class="font-latex-sedate">\write</span>18{mpost -interaction=batchmode <span class="font-latex-sedate">\Tableaux</span>.Tab}<span class="comment">% Reconstitution des tableaux </span> <span class="comment">% et création du dernier. L'option </span> <span class="comment">% pallie l'absence de end en fin de </span> <span class="comment">% fichier @@ -1397,7 +1374,7 @@ return(MetaL); <span class="font-latex-sedate">\includegraphics</span>{<span class="font-latex-sedate">\Tableaux</span>.Tab.<span class="font-latex-sedate">\theTVn</span>} <span class="font-latex-sedate"><span class="keyword">\end</span></span><span class="function-name">{center}</span> -<span class="font-latex-sedate"><span class="keyword">\setcounter</span></span><span class="variable-name">{TVn}{</span><span class="font-latex-sedate"><span class="variable-name">\theTVnbis</span></span><span class="variable-name">}</span> <span class="comment">% Restauration du compteur </span><span class="comment"><span class="flyspell-duplicate">TVn</span></span><span class="comment"> +<span class="font-latex-sedate"><span class="keyword">\setcounter</span></span><span class="variable-name">{TVn}{</span><span class="font-latex-sedate"><span class="variable-name">\theTVnbis</span></span><span class="variable-name">}</span> <span class="comment">% Restauration du compteur TVn </span>} @@ -1406,14 +1383,14 @@ return(MetaL); -<span class="comment">%% -%% -%%% -%%% -%%% les "giac" qui permettent d'exécuter la commande rentrée dans le fichier </span><span class="comment"><span class="flyspell-duplicate">tex</span></span><span class="comment"> -%%% suivis des environnements qui permettront la saisie du code giac/xcas -%%% Les versions étoilées permettent de modifier le code metapost produit initialement -%%% +<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"> +</span><span class="comment-delimiter">%%%</span><span class="comment"> +</span><span class="comment-delimiter">%%% </span><span class="comment">les "giac" qui permettent d'exécuter la commande rentrée dans le fichier tex +</span><span class="comment-delimiter">%%% </span><span class="comment">suivis des environnements qui permettront la saisie du code giac/xcas +</span><span class="comment-delimiter">%%% </span><span class="comment">Les versions étoilées permettent de modifier le code metapost produit initialement +</span><span class="comment-delimiter">%%%</span><span class="comment"> </span> @@ -1422,28 +1399,21 @@ return(MetaL); maple_mode(0); read("XcasTabSign.cxx"); Sortie:=fopen("XCasmp.mp"); -<span class="flyspell-duplicate">vect</span>.xcas.user := read("XCas.user"); -<span class="flyspell-duplicate">vxo</span> := vect.xcas.user; +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); -<span class="flyspell-duplicate">Resultat</span>:=cat(Resultat,RslT); -<span class="flyspell-duplicate">fprint</span>(Sortie,Unquoted,Resultat); +Resultat:=cat(Resultat,RslT); +fprint(Sortie,Unquoted,Resultat); fclose(Sortie); <span class="font-latex-sedate"><span class="keyword">\end</span></span><span class="function-name">{VerbatimOut}</span> -<span class="font-latex-sedate"><span class="keyword">\newenvironment</span></span><span class="function-name">{</span><span class="function-name"><span class="flyspell-duplicate">TSa</span></span><span class="function-name">}</span> -{<span class="font-latex-sedate">\VerbatimEnvironment</span><span class="keyword">\begin</span><span class="function-name">{VerbatimOut}</span>[commandchars=<span class="font-latex-warning">\\</span>£µ]{XCas.user}} +<span class="font-latex-sedate"><span class="keyword">\newenvironment</span></span><span class="function-name">{TSa}</span> +{<span class="font-latex-sedate">\VerbatimEnvironment</span><span class="font-latex-sedate"><span class="keyword">\begin</span></span><span class="function-name">{VerbatimOut}</span>[commandchars=<span class="font-latex-warning">\\</span>£µ]{XCas.user}} {<span class="font-latex-sedate"><span class="keyword">\end</span></span><span class="function-name">{VerbatimOut}</span> - <span class="font-latex-sedate">\executGiacmp</span>{XCas.giac} - - <span class="font-latex-sedate">\immediate</span>\write18{mpost <span class="flyspell-duplicate">XCasmp</span>} - -<span class="font-latex-sedate"><span class="keyword">\begin</span></span><span class="function-name">{center}</span> - <span class="font-latex-sedate">\includegraphics</span>{XCasmp.<span class="font-latex-sedate">\theTVn</span>} -<span class="font-latex-sedate"><span class="keyword">\end</span></span><span class="function-name">{center}</span> -<span class="font-latex-sedate">\stepcounter</span>{<span class="flyspell-duplicate">TVn</span>} + <span class="font-latex-sedate">\dresse</span>{} } @@ -1458,54 +1428,54 @@ fclose(Sortie); maple_mode(0); read("XcasTabSignQ.cxx"); Sortie:=fopen("XCasmpQ.mp"); -<span class="flyspell-duplicate">vect</span>.xcas.user := read("XCasQ.user"); -<span class="flyspell-duplicate">vxo</span> := vect.xcas.user; +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); -<span class="flyspell-duplicate">Resultat</span>:=cat(Resultat,RslT); -<span class="flyspell-duplicate">fprint</span>(Sortie,Unquoted,Resultat); +Resultat:=cat(Resultat,RslT); +fprint(Sortie,Unquoted,Resultat); fclose(Sortie); <span class="font-latex-sedate"><span class="keyword">\end</span></span><span class="function-name">{VerbatimOut}</span> -<span class="font-latex-sedate"><span class="keyword">\newenvironment</span></span><span class="function-name">{</span><span class="function-name"><span class="flyspell-duplicate">TSq</span></span><span class="function-name">}</span><span class="comment">% -</span>{<span class="font-latex-sedate">\VerbatimEnvironment</span><span class="keyword">\begin</span><span class="function-name">{VerbatimOut}</span>[commandchars=<span class="font-latex-warning">\\</span>£µ]{XCasQ.user}} +<span class="font-latex-sedate"><span class="keyword">\newenvironment</span></span><span class="function-name">{TSq}</span><span class="comment">% +</span>{<span class="font-latex-sedate">\VerbatimEnvironment</span><span class="font-latex-sedate"><span class="keyword">\begin</span></span><span class="function-name">{VerbatimOut}</span>[commandchars=<span class="font-latex-warning">\\</span>£µ]{XCasQ.user}} {<span class="font-latex-sedate"><span class="keyword">\end</span></span><span class="function-name">{VerbatimOut}</span><span class="font-latex-sedate">\dresse</span>{Q}} -<span class="font-latex-sedate"><span class="keyword">\newenvironment</span></span><span class="function-name">{</span><span class="function-name"><span class="flyspell-duplicate">TSq</span></span><span class="function-name">*}</span>[1]<span class="comment">% +<span class="font-latex-sedate"><span class="keyword">\newenvironment</span></span><span class="function-name">{TSq*}</span>[1]<span class="comment">% </span>{<span class="font-latex-sedate"><span class="keyword">\setcounter</span></span><span class="variable-name">{TVnbis}{</span><span class="font-latex-sedate"><span class="variable-name">\theTVn</span></span><span class="variable-name">}</span> <span class="font-latex-sedate"><span class="keyword">\setcounter</span></span><span class="variable-name">{TVn}{#1}</span> -<span class="font-latex-sedate">\VerbatimEnvironment</span><span class="keyword">\begin</span><span class="function-name">{VerbatimOut}</span>[commandchars=<span class="font-latex-warning">\\</span>£µ]{XCasQ.user}} +<span class="font-latex-sedate">\VerbatimEnvironment</span><span class="font-latex-sedate"><span class="keyword">\begin</span></span><span class="function-name">{VerbatimOut}</span>[commandchars=<span class="font-latex-warning">\\</span>£µ]{XCasQ.user}} {<span class="font-latex-sedate"><span class="keyword">\end</span></span><span class="function-name">{VerbatimOut}</span><span class="font-latex-sedate">\dressetoile</span>{Q}} <span class="font-latex-sedate"><span class="keyword">\begin</span></span><span class="function-name">{VerbatimOut}</span>{XCasL.giac} -<span class="flyspell-duplicate">maple</span>_mode(0); +maple_mode(0); read("XcasTabSignL.cxx"); Sortie:=fopen("XCasmpL.mp"); vect.xcas.user := read("XCasL.user"); vxo := vect.xcas.user; -<span class="flyspell-duplicate">dim</span>.vxo := dim(vxo); -<span class="flyspell-duplicate">nbr</span>.line.vxo := dim.vxo; +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); -<span class="flyspell-duplicate">fclose</span>(Sortie); +fclose(Sortie); <span class="font-latex-sedate"><span class="keyword">\end</span></span><span class="function-name">{VerbatimOut}</span> <span class="font-latex-sedate"><span class="keyword">\newenvironment</span></span><span class="function-name">{TS}</span><span class="comment">% -</span>{<span class="font-latex-sedate">\VerbatimEnvironment</span><span class="keyword">\begin</span><span class="function-name">{VerbatimOut}</span>[commandchars=<span class="font-latex-warning">\\</span>£µ]{XCasL.user}} +</span>{<span class="font-latex-sedate">\VerbatimEnvironment</span><span class="font-latex-sedate"><span class="keyword">\begin</span></span><span class="function-name">{VerbatimOut}</span>[commandchars=<span class="font-latex-warning">\\</span>£µ]{XCasL.user}} {<span class="font-latex-sedate"><span class="keyword">\end</span></span><span class="function-name">{VerbatimOut}</span><span class="font-latex-sedate">\dresse</span>{L}} <span class="font-latex-sedate"><span class="keyword">\newenvironment</span></span><span class="function-name">{TS*}</span>[1] {<span class="font-latex-sedate"><span class="keyword">\setcounter</span></span><span class="variable-name">{TVnbis}{</span><span class="font-latex-sedate"><span class="variable-name">\theTVn</span></span><span class="variable-name">}</span> <span class="font-latex-sedate"><span class="keyword">\setcounter</span></span><span class="variable-name">{TVn}{#1}</span> -<span class="font-latex-sedate">\VerbatimEnvironment</span><span class="keyword">\begin</span><span class="function-name">{VerbatimOut}</span>[commandchars=<span class="font-latex-warning">\\</span>£µ]{XCasL.user}} +<span class="font-latex-sedate">\VerbatimEnvironment</span><span class="font-latex-sedate"><span class="keyword">\begin</span></span><span class="function-name">{VerbatimOut}</span>[commandchars=<span class="font-latex-warning">\\</span>£µ]{XCasL.user}} {<span class="font-latex-sedate"><span class="keyword">\end</span></span><span class="function-name">{VerbatimOut}</span><span class="font-latex-sedate">\dressetoile</span>{L}} @@ -1513,13 +1483,13 @@ fprint(Sortie,Unquoted,Resultat); maple_mode(0); read("XcasTSc.cxx"); Sortie:=fopen("XCasmpTSc.mp"); -<span class="flyspell-duplicate">vect</span>.xcas.user := read("XCasTSc.user"); +vect.xcas.user := read("XCasTSc.user"); vxo := vect.xcas.user; dim.vxo := dim(vxo); nbr.line.vxo := dim.vxo; Resultat:=cat(" "); -<span class="flyspell-duplicate">rslt</span> := vxo[0]; RslT:=cat(rslt); -<span class="flyspell-duplicate">Resultat</span>:=cat(Resultat,RslT); +rslt := vxo[0]; RslT:=cat(rslt); +Resultat:=cat(Resultat,RslT); fprint(Sortie,Unquoted,Resultat); fclose(Sortie); <span class="font-latex-sedate"><span class="keyword">\end</span></span><span class="function-name">{VerbatimOut}</span> @@ -1529,68 +1499,68 @@ fclose(Sortie); <span class="font-latex-sedate"><span class="keyword">\newenvironment</span></span><span class="function-name">{TSc*}</span>[1]<span class="comment">% </span>{<span class="font-latex-sedate"><span class="keyword">\setcounter</span></span><span class="variable-name">{TVnbis}{</span><span class="font-latex-sedate"><span class="variable-name">\theTVn</span></span><span class="variable-name">}</span> -<span class="font-latex-sedate"><span class="keyword">\setcounter</span></span><span class="variable-name">{</span><span class="variable-name"><span class="flyspell-duplicate">TVn</span></span><span class="variable-name">}{#1}</span> -<span class="font-latex-sedate">\VerbatimEnvironment</span><span class="keyword">\begin</span><span class="function-name">{VerbatimOut}</span>[commandchars=<span class="font-latex-warning">\\</span>£µ]{XCasTSc.user}} +<span class="font-latex-sedate"><span class="keyword">\setcounter</span></span><span class="variable-name">{TVn}{#1}</span> +<span class="font-latex-sedate">\VerbatimEnvironment</span><span class="font-latex-sedate"><span class="keyword">\begin</span></span><span class="function-name">{VerbatimOut}</span>[commandchars=<span class="font-latex-warning">\\</span>£µ]{XCasTSc.user}} {<span class="font-latex-sedate"><span class="keyword">\end</span></span><span class="function-name">{VerbatimOut}</span><span class="font-latex-sedate">\dressetoile</span>{TSc}} <span class="font-latex-sedate"><span class="keyword">\newenvironment</span></span><span class="function-name">{TSc}</span><span class="comment">% -</span>{<span class="font-latex-sedate">\VerbatimEnvironment</span><span class="keyword">\begin</span><span class="function-name">{VerbatimOut}</span>[commandchars=<span class="font-latex-warning">\\</span>£µ]{XCasTSc.user}} -{<span class="font-latex-sedate"><span class="keyword">\end</span></span><span class="function-name">{VerbatimOut}</span><span class="font-latex-sedate">\dresse</span>{<span class="flyspell-duplicate">TSc</span>}} +</span>{<span class="font-latex-sedate">\VerbatimEnvironment</span><span class="font-latex-sedate"><span class="keyword">\begin</span></span><span class="function-name">{VerbatimOut}</span>[commandchars=<span class="font-latex-warning">\\</span>£µ]{XCasTSc.user}} +{<span class="font-latex-sedate"><span class="keyword">\end</span></span><span class="function-name">{VerbatimOut}</span><span class="font-latex-sedate">\dresse</span>{TSc}} <span class="font-latex-sedate"><span class="keyword">\begin</span></span><span class="function-name">{VerbatimOut}</span>{XCasTV.giac} maple_mode(0); read("XcasTV.cxx"); Sortie:=fopen("XCasmpTV.mp"); -<span class="flyspell-duplicate">vect</span>.xcas.user := read("XCasTV.user"); +vect.xcas.user := read("XCasTV.user"); vxo := vect.xcas.user; dim.vxo := dim(vxo); nbr.line.vxo := dim.vxo; Resultat:=cat(" "); -<span class="flyspell-duplicate">rslt</span> := vxo[0]; RslT:=cat(rslt); -<span class="flyspell-duplicate">Resultat</span>:=cat(Resultat,RslT); +rslt := vxo[0]; RslT:=cat(rslt); +Resultat:=cat(Resultat,RslT); fprint(Sortie,Unquoted,Resultat); fclose(Sortie); <span class="font-latex-sedate"><span class="keyword">\end</span></span><span class="function-name">{VerbatimOut}</span> -<span class="font-latex-sedate"><span class="keyword">\newenvironment</span></span><span class="function-name">{</span><span class="function-name"><span class="flyspell-duplicate">TV</span></span><span class="function-name">}</span><span class="comment">% -</span>{<span class="font-latex-sedate">\VerbatimEnvironment</span><span class="keyword">\begin</span><span class="function-name">{VerbatimOut}</span>[commandchars=<span class="font-latex-warning">\\</span>£µ]{XCasTV.user}}<span class="comment">% +<span class="font-latex-sedate"><span class="keyword">\newenvironment</span></span><span class="function-name">{TV}</span><span class="comment">% +</span>{<span class="font-latex-sedate">\VerbatimEnvironment</span><span class="font-latex-sedate"><span class="keyword">\begin</span></span><span class="function-name">{VerbatimOut}</span>[commandchars=<span class="font-latex-warning">\\</span>£µ]{XCasTV.user}}<span class="comment">% </span>{<span class="font-latex-sedate"><span class="keyword">\end</span></span><span class="function-name">{VerbatimOut}</span> <span class="font-latex-sedate">\dresse</span>{TV}} -<span class="font-latex-sedate"><span class="keyword">\newenvironment</span></span><span class="function-name">{</span><span class="function-name"><span class="flyspell-duplicate">TV</span></span><span class="function-name">*}</span>[1]{<span class="comment">% +<span class="font-latex-sedate"><span class="keyword">\newenvironment</span></span><span class="function-name">{TV*}</span>[1]{<span class="comment">% </span><span class="font-latex-sedate"><span class="keyword">\setcounter</span></span><span class="variable-name">{TVnbis}{</span><span class="font-latex-sedate"><span class="variable-name">\theTVn</span></span><span class="variable-name">}</span> <span class="font-latex-sedate"><span class="keyword">\setcounter</span></span><span class="variable-name">{TVn}{#1}</span> -<span class="font-latex-sedate">\VerbatimEnvironment</span><span class="keyword">\begin</span><span class="function-name">{VerbatimOut}</span>[commandchars=<span class="font-latex-warning">\\</span>£µ]{XCasTV.user}}<span class="comment">% -</span>{<span class="font-latex-sedate"><span class="keyword">\end</span></span><span class="function-name">{VerbatimOut}</span><span class="font-latex-sedate">\dressetoile</span>{<span class="flyspell-duplicate">TV</span>}} +<span class="font-latex-sedate">\VerbatimEnvironment</span><span class="font-latex-sedate"><span class="keyword">\begin</span></span><span class="function-name">{VerbatimOut}</span>[commandchars=<span class="font-latex-warning">\\</span>£µ]{XCasTV.user}}<span class="comment">% +</span>{<span class="font-latex-sedate"><span class="keyword">\end</span></span><span class="function-name">{VerbatimOut}</span><span class="font-latex-sedate">\dressetoile</span>{TV}} <span class="font-latex-sedate"><span class="keyword">\begin</span></span><span class="function-name">{VerbatimOut}</span>{XCasTVI.giac} -<span class="flyspell-duplicate">maple</span>_mode(0); +maple_mode(0); read("XcasTVI.cxx"); Sortie:=fopen("XCasmpTVI.mp"); vect.xcas.user := read("XCasTVI.user"); vxo := vect.xcas.user; -<span class="flyspell-duplicate">dim</span>.vxo := dim(vxo); -<span class="flyspell-duplicate">nbr</span>.line.vxo := dim.vxo; +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); -<span class="flyspell-duplicate">fclose</span>(Sortie); +fclose(Sortie); <span class="font-latex-sedate"><span class="keyword">\end</span></span><span class="function-name">{VerbatimOut}</span> <span class="font-latex-sedate"><span class="keyword">\newenvironment</span></span><span class="function-name">{TVI}</span><span class="comment">% -</span>{<span class="font-latex-sedate">\VerbatimEnvironment</span><span class="keyword">\begin</span><span class="function-name">{VerbatimOut}</span>[commandchars=<span class="font-latex-warning">\\</span>£µ]{XCasTVI.user}}<span class="comment">% -</span>{<span class="font-latex-sedate"><span class="keyword">\end</span></span><span class="function-name">{VerbatimOut}</span><span class="font-latex-sedate">\dresse</span>{<span class="flyspell-duplicate">TVI</span>}} +</span>{<span class="font-latex-sedate">\VerbatimEnvironment</span><span class="font-latex-sedate"><span class="keyword">\begin</span></span><span class="function-name">{VerbatimOut}</span>[commandchars=<span class="font-latex-warning">\\</span>£µ]{XCasTVI.user}}<span class="comment">% +</span>{<span class="font-latex-sedate"><span class="keyword">\end</span></span><span class="function-name">{VerbatimOut}</span><span class="font-latex-sedate">\dresse</span>{TVI}} <span class="font-latex-sedate"><span class="keyword">\newenvironment</span></span><span class="function-name">{TVI*}</span>[1]<span class="comment">% </span>{<span class="font-latex-sedate"><span class="keyword">\setcounter</span></span><span class="variable-name">{TVnbis}{</span><span class="font-latex-sedate"><span class="variable-name">\theTVn</span></span><span class="variable-name">}</span> <span class="font-latex-sedate"><span class="keyword">\setcounter</span></span><span class="variable-name">{TVn}{#1}</span> -<span class="font-latex-sedate">\VerbatimEnvironment</span><span class="keyword">\begin</span><span class="function-name">{VerbatimOut}</span>[commandchars=<span class="font-latex-warning">\\</span>£µ]{XCasTVI.user}}<span class="comment">% -</span>{<span class="font-latex-sedate"><span class="keyword">\end</span></span><span class="function-name">{VerbatimOut}</span><span class="font-latex-sedate">\dressetoile</span>{<span class="flyspell-duplicate">TVI</span>}} +<span class="font-latex-sedate">\VerbatimEnvironment</span><span class="font-latex-sedate"><span class="keyword">\begin</span></span><span class="function-name">{VerbatimOut}</span>[commandchars=<span class="font-latex-warning">\\</span>£µ]{XCasTVI.user}}<span class="comment">% +</span>{<span class="font-latex-sedate"><span class="keyword">\end</span></span><span class="function-name">{VerbatimOut}</span><span class="font-latex-sedate">\dressetoile</span>{TVI}} @@ -1600,8 +1570,8 @@ fprint(Sortie,Unquoted,Resultat); -<span class="comment">%% -%% Zi end -> </span><span class="comment"><span class="flyspell-incorrect">enjoy</span></span><span class="comment"> :) +<span class="comment-delimiter">%%</span><span class="comment"> +</span><span class="comment-delimiter">%% </span><span class="comment">Zi end -> enjoy :) </span></pre> </body> </html> diff --git a/Master/texmf-dist/doc/latex/tablor/tablor.pdf b/Master/texmf-dist/doc/latex/tablor/tablor.pdf Binary files differindex 930fd232d83..fb6fb954d59 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 6985fab4232..b1d730707a7 100644 --- a/Master/texmf-dist/doc/latex/tablor/tablor.tex +++ b/Master/texmf-dist/doc/latex/tablor/tablor.tex @@ -1,8 +1,9 @@ \documentclass[12pt]{article} \usepackage[height=250mm,width=183mm]{geometry} \usepackage[upright]{fourier} -\usepackage[linux,xcas,texmaker]{tablor} \usepackage{preambule} +\usepackage{tablor} + \usepackage[dvips,colorlinks=true,linkcolor=orange]{hyperref} @@ -24,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{19 février 2008 - Version 1.7} +\date{28 février 2008 - Version 1.8} \begin{document} @@ -93,7 +94,6 @@ placer \texttt{tableauVariation.mp} puis un \texttt{rehash}. C'est exactement l pour installer une nouvelle extension \LaTeX{}. - \item il faut être en mode \texttt{shell-escape} pour autoriser les sorties de la compilation \texttt{tex}. Pour \Prog{emacs}, on rajoute en fin de fichier \verb+%%% LaTeX-command: "latex --shell-escape" ***+; pour les autres éditeurs, il faut modifier @@ -197,23 +197,53 @@ Le préambule sera toujours~: -\subsection{Les options}\label{option} - +\subsection{L'option xcas}\label{option} -Il existe trois types d'options~: -\begin{description} - \item[\texttt{xcas} ou rien] : on met \texttt{xcas} si l'on a installé \Prog{giac/XCAS} sur son +On met \texttt{xcas} si l'on a installé \Prog{giac/XCAS} sur son ordinateur et on ne met rien si \Prog{giac/XCAS} n'est pas installé et qu'on a récupéré un fichier \texttt{tex} avec les fichiers sources \Prog{MetaPOST}; Ainsi, \texttt{tablor} ne fera pas appel à \Prog{giac/XCAS} et se contentera de compiler les fichiers \Prog{MetaPOST}; - \item[OS] : on entrera en option selon les cas \texttt{linux}, \texttt{mac} ou \texttt{windows}; - \item[éditeur] : on entrera en option un éditeur qui sera appelé dans certains cas pour modifier + + + +\subsection{Fichier \texttt{tablor.cfg}} + +Voici son contenu~: + +\begin{Verbatim} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Fichier de configuration de tablor.sty % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +% La mise à jour de ce fichier permet d'adapter certains paramètres du package tablor.sty +% au poste de travail et aux habitudes des utilisateurs. + +% Déclaration du système d'exploitation : +% ===================================== + +% Si vous utilisez Microsoft-Windows, dé-commentez la ligne suivante : + +% \setboolean{windows}{true} + +% Déclaration de l'éditeur utilisé +% ================================ +% +% Remplacez "texmaker" par la commande qui lance votre éditeur favori. +% Laissez une espace avant de fermer l'accolade. + +\newcommand{\editeur}{texmaker } +\end{Verbatim} + +Vous le placerez dans la même arborescence que \texttt{tablor.sty} et le modifierez si besoin est. + + +L'éditeur sera appelé dans certains cas pour modifier l'aspect des tableaux dans les fichiers sources \Prog{MetaPOST}. Il faudra choisir un éditeur - parmi \texttt{emacs, xemacs, texmaker, vi, winshell, notepad, vim, kate, gedit, - textmate,texshop}. Voir aussi le paragraphe~\vref{modif}. + comme par exemple \texttt{emacs, xemacs, texmaker, vi, winshell, notepad, vim, kate, gedit, + textmate,texshop}, \texttt{kile}, etc. Voir aussi le paragraphe~\vref{modif}. + -\end{description} \subsection{Initialisation de \texttt{tablor} et préfixe des tableaux}\label{prefix} @@ -264,7 +294,7 @@ ou bien, selon les cas~: \usepackage{graphicx} \usepackage[french]{babel} \usepackage[upright]{fourier} -\usepackage[xcas,linux,emacs]{tablor} % options modifiables +\usepackage[xcas]{tablor} % options modifiables \begin{document} @@ -435,6 +465,7 @@ TVI([-10,+infinity],[-1,1],"f","x",x^2/(x^2-1),1,-1,\tv) \end{TVI} + \subsection{Tableaux de signes} diff --git a/Master/texmf-dist/tex/latex/tablor/tablor.cfg b/Master/texmf-dist/tex/latex/tablor/tablor.cfg new file mode 100644 index 00000000000..a6e964edfb8 --- /dev/null +++ b/Master/texmf-dist/tex/latex/tablor/tablor.cfg @@ -0,0 +1,26 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% Fichier de configuration de tablor.sty % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +% La mise à jour de ce fichier permet d'adapter certains paramètres du package tablor.sty +% au poste de travail et aux habitudes des utilisateurs. + + +% Déclaration du système d'exploitation : +% ===================================== + +% Si vous utilisez windows, dé-commentez la ligne suivante : + +% \setboolean{windows}{true} + + + +% Déclaration de l'éditeur utilisé +% ================================ +% +% Remplacez "texmaker" par la commande qui lance votre éditeur favori. +% Laissez une espace avant de fermer l'accolade. + +\newcommand{\editeur}{texmaker } + + diff --git a/Master/texmf-dist/tex/latex/tablor/tablor.sty b/Master/texmf-dist/tex/latex/tablor/tablor.sty index d83cf27ab00..065f6f236a4 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}[19/02/2008 v1.7 la machine à créer des tableaux de signes et variations] +\ProvidesPackage{tablor}[28/02/2008 v1.8 la machine à créer des tableaux de signes et variations] % \copyleft Connan le Barbare \copyright % avec l'efficace participation de Jean-Michel Boucart @@ -52,45 +52,21 @@ \RequirePackage{fancyvrb} \RequirePackage{ifpdf} -%% liste des options : os et éditeur rapide + +% option xcas présent \newboolean{xcas}\setboolean{xcas}{false} -\newboolean{linux}\setboolean{linux}{false} +\DeclareOption{xcas}{\setboolean{xcas}{true}} + +%% Initialisation du choix d'OS \newboolean{windows}\setboolean{windows}{false} -\newboolean{macosx}\setboolean{macosx}{false} -\newboolean{emacs}\setboolean{emacs}{false} -\newboolean{xemacs}\setboolean{xemacs}{false} -\newboolean{texmaker}\setboolean{texmaker}{false} -\newboolean{vi}\setboolean{vi}{false} -\newboolean{winshell}\setboolean{winshell}{false} -\newboolean{notepad}\setboolean{notepad}{false} -\newboolean{vim}\setboolean{vim}{false} -\newboolean{kate}\setboolean{kate}{false} -\newboolean{gedit}\setboolean{gedit}{false} -\newboolean{textmate}\setboolean{textmate}{false} -\newboolean{texshop}\setboolean{texshop}{false} -\DeclareOption{xcas}{\setboolean{xcas}{true}} -\DeclareOption{linux}{\setboolean{linux}{true}} -\DeclareOption{windows}{\setboolean{windows}{true}} -\DeclareOption{mac}{\setboolean{macosx}{true}} -\DeclareOption{emacs}{\setboolean{emacs}{true}} -\DeclareOption{xemacs}{\setboolean{xemacs}{true}} -\DeclareOption{texmaker}{\setboolean{texmaker}{true}} -\DeclareOption{vi}{\setboolean{vi}{true}} -\DeclareOption{winshell}{\setboolean{winshell}{true}} -\DeclareOption{notepad}{\setboolean{notepad}{true}} -\DeclareOption{vim}{\setboolean{vim}{true}} -\DeclareOption{kate}{\setboolean{kate}{true}} -\DeclareOption{gedit}{\setboolean{gedit}{true}} -\DeclareOption{textmate}{\setboolean{textmate}{true}} -\DeclareOption{texshop}{\setboolean{texshop}{true}} - - -%% on peut configurer tablor dans un fichier extérieur - -\IfFileExists{tablor.cfg}{\input{tablor.cfg}}{\typeout{pas de fichier tablor.cfg}} + +%% 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}} \ProcessOptions\relax @@ -102,9 +78,7 @@ %% pour nettoyer les fichiers auxiliaires -\AtEndDocument{\ifthenelse{\boolean{windows}}% -{\immediate\write18{DEL tete.* *.user XCas*.* Xcas*.* *.mpx} } % -{\immediate\write18{rm tete.* *.user XCas* Xcas* *.mpx} }} +\AtEndDocument{\immediate\write18{\rem tete.* *.user XCas* Xcas* *.mpx}} @@ -129,14 +103,22 @@ %% 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 }} + + + \newcommand{\nettoyer}[1][\jobname]% -{\ifthenelse{\boolean{windows}}% -{\immediate\write18{DEL #1.Tab.log} -\immediate\write18{echo end >> #1.Tab.mp}}% -{\immediate\write18{rm #1.Tab.log} +{\immediate\write18{\rem #1.Tab.log} \immediate\write18{echo end >> #1.Tab.mp} } -} + + + %% Donne comme prefixe aux tableaux le prefixe courant %% Peut-être modifié par \initablor @@ -152,6 +134,7 @@ \newcommand{\tvbis}{\theTVnbis} + %% permet de donner un prefixe aux tableaux produits (\jobname par défaut) %% effectue quelques vérifications : @@ -161,18 +144,14 @@ \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... - {\ifthenelse{\boolean{windows}} - {\immediate\write18{DEL \Tableaux.Tab.mp}}% le détruire - {\immediate\write18{rm \Tableaux.Tab.mp}}}% - {}% - -\ifthenelse{\boolean{windows}} - {\immediate\write18{COPY -f tete.mp \Tableaux.Tab.mp}}% Reconstituer - % l'entête de Tableaux.mp - {\immediate\write18{cp -f tete.mp \Tableaux.Tab.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 - {\PackageWarning{tablor}{Pas de source metapost pour creer les tableaux.}}% sinon message d'erreur + {\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 +} +{\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 +{\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 ) }}% @@ -1143,8 +1122,14 @@ Z:=NULL; mini:=D[0]; maxi:=D[1];lm:=" "; S:=resoudre(f(x),x); if(size(S)==0){ -li:=if(f(0)>0){"plus;"}else{"moins;"}; -lm:=" ";lf:=" "; +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{" + "}+ +if(mini!=-infinity or maxi!=+infinity){if(f((mini+maxi)*0.5>0)){"plus;"}else{"moins;"}}else{if(f(0)>0){"plus;"}else{"moins;"}}; +lf:=if(maxi!=+infinity and f(maxi)==0){" + valBarre(btex 0 etex);"}else{" + "}; } else{pour j de 0 jusque size(S)-1 faire if(S[j]>mini and S[j]<maxi){Z:=Z,simplifier(S[j])}; @@ -1159,7 +1144,7 @@ if(nz>2){pour u de 1 jusque nz-2 faire 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{" "}+ @@ -1256,9 +1241,9 @@ return(MetaL); \ifthenelse{\boolean{xcas}}{% Avec l'option "XCas présent" \executGiacmp{XCas#1.giac}% reconstituer le tableau % exporter le source mp - \ifthenelse{\boolean{windows}}% - {\immediate\write18{TYPE XCasmpfc.mp >> \Tableaux.Tab.mp}}% - {\immediate\write18{cat XCasmpfc.mp >> \Tableaux.Tab.mp}}% + % 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}}% {% sinon, si le tableau est absent, alerte. \IfFileExists{\Tableaux.Tab.\theTVn}{}{% @@ -1283,33 +1268,21 @@ return(MetaL); \newcommand{\dressetoile}[1]{% \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}} +\immediate\write18{\cat TSav-\theTVn.mp >> \Tableaux.Tab.mp}} % Si non, lancement des opérations de fabrication {\executGiacmp{XCas#1.giac}% - \ifthenelse{\boolean{emacs}}{\immediate\write18{emacs XCasmpfc.mp}}{} - \ifthenelse{\boolean{xemacs}}{\immediate\write18{xemacs XCasmpfc.mp}}{} - \ifthenelse{\boolean{texmaker}}{\immediate\write18{texmaker XCasmpfc.mp}}{} - \ifthenelse{\boolean{vi}}{\immediate\write18{vi XCasmpfc.mp}}{} - \ifthenelse{\boolean{winshell}}{\immediate\write18{winshell XCasmpfc.mp}}{} - \ifthenelse{\boolean{notepad}}{\immediate\write18{notepad XCasmpfc.mp}}{} - \ifthenelse{\boolean{vim}}{\immediate\write18{vim XCasmpfc.mp}}{} - \ifthenelse{\boolean{kate}}{\immediate\write18{kate XCasmpfc.mp}}{} - \ifthenelse{\boolean{gedit}}{\immediate\write18{gedit XCasmpfc.mp}}{} - \ifthenelse{\boolean{textmate}}{\immediate\write18{textmate XCasmpfc.mp}}{} - \ifthenelse{\boolean{texshop}}{\immediate\write18{texshop XCasmpfc.mp}}{} +\immediate\write18{\editeur XCasmpfc.mp} + % Modification avec l'éditeur choisi - \ifthenelse{\boolean{windows}}% - {\immediate\write18{cp -f XCasmpfc.mp TSav-\theTVn.mp} - \immediate\write18{cat XCasmpfc.mp >> \Tableaux.Tab.mp}}% - {\immediate\write18{cp -f XCasmpfc.mp TSav-\theTVn.mp} % Sauvegarde du +\immediate\write18{\cp -f XCasmpfc.mp TSav-\theTVn.mp} % Sauvegarde du % source mp sur le disque pour une % inclusion ultérieure dans Tableaux.mp. - \immediate\write18{cat XCasmpfc.mp >> \Tableaux.Tab.mp}} % Inclusion du +\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 +\immediate\write18{mpost -interaction=batchmode \Tableaux.Tab}% Reconstitution des tableaux % et création du dernier. L'option % pallie l'absence de end en fin de % fichier @@ -1356,7 +1329,8 @@ fclose(Sortie); \newenvironment{TSa} {\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\£µ]{XCas.user}} -{\end{VerbatimOut}\dresse{} +{\end{VerbatimOut} + \dresse{} } |