From f29c1c301f32796c6ebbab9bf6ed2f9ee5f2b475 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 5 Feb 2008 01:35:55 +0000 Subject: tablor update (2feb08) git-svn-id: svn://tug.org/texlive/trunk@6500 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/tablor/tablor.sty | 117 +++++++++++++++++++++++++- 1 file changed, 115 insertions(+), 2 deletions(-) (limited to 'Master/texmf-dist/tex/latex/tablor') diff --git a/Master/texmf-dist/tex/latex/tablor/tablor.sty b/Master/texmf-dist/tex/latex/tablor/tablor.sty index 19fe60c171b..e6e687caf78 100644 --- a/Master/texmf-dist/tex/latex/tablor/tablor.sty +++ b/Master/texmf-dist/tex/latex/tablor/tablor.sty @@ -1,12 +1,12 @@ \NeedsTeXFormat{LaTeX2e}[1995/12/01] \ProvidesPackage{tablor} - [23/01/2008 v1.4 + [02/02/2008 v1.5 la machine à créer des tableaux de signes et variations] -%% Crée 5 environnements : +%% Crée 10 environnements : %% tableau de signes de 2 facteurs affines % \begin{TSa} % TSa(-2,3,-1,5,\tv); @@ -32,6 +32,14 @@ %TVI([-1,+infinity],[-1],"f","x",x2/sqrt(x+1)-1,1,2,\tv) %\end{TVI} %%% +% +% et leurs pendants étoilés qui permet l'affichage intermédiaire du +% fichier metapost pour le modifier +% +% +% +% + @@ -93,6 +101,7 @@ pour m de 0 jusque nz-1 faire l0:=l0+"val(btex $"+latex(Z[m])+"$ etex); lsi:=" newLigneSignes(btex $\\hbox{ Signe de }\\atop{\\displaystyle "+nom+"'("+nomv+")}$ etex);"+ if(Z[0]==-infinity){if(sign(evalf(fp(if(Z[1]==+infinity){0}else{Z[1]-10^(-5)})))==1){"plus;"}else{"moins;"}}else{if(member(Z[0],F)==0){ + if(fp(Z[0])==0){"valBarre(btex 0 etex);"}else{" "}+ if(sign(fp(Z[0]+10^(-5)))==1){"plus;"}else{"moins;"}}else{"nonDefBarre;"+ if(sign(fp((Z[0]+10^(-5))))==1){"plus;"}else{"moins;"} }} @@ -246,6 +255,7 @@ TestS:=(sign(evalf(LL[0]-ao))==sign(evalf(LL[1]-ao))) or (sign(evalf(LL[0]-ao))= lsi:=" newLigneSignes(btex $\\hbox{ Signe de }\\atop{\\displaystyle "+nom+"'("+nomv+")}$ etex);"+ if(Z[0]==-infinity){if(sign(evalf(fp(if(Z[1]==+infinity){0}else{Z[1]-10^(-5)})))==1){"plus;"}else{"moins;"}}else{if(member(Z[0],F)==0){ + if(fp(Z[0])==0){"valBarre(btex 0 etex);"}else{" "}+ if(sign(fp((Z[0]+10^(-10))))==1){"plus;"}else{"moins;"}}else{"nonDefBarre;"+ if(sign(fp(10^(-10)+Z[0]))==1){"plus;"}else{"moins;"} }}+if(TestS==0){"valBarre(btex$ $ etex);"+ if(sign(fp(10^(-10)+Z[0]))==1){"plus;"}else{"moins;"}}else{" "}; @@ -882,6 +892,13 @@ fclose(Sortie); } + + + + + + + \begin{VerbatimOut}{XCasQ.giac} maple_mode(0); read("XcasTabSignQ.cxx"); @@ -912,6 +929,28 @@ fclose(Sortie); +\newenvironment{TSq*} +{\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\£µ]{XCasQ.user}} +{\end{VerbatimOut} + \executGiacmp{XCasQ.giac} + + + + +\immediate\write18{texmaker XCasmpQ.mp} + + \immediate\write18{mpost XCasmpQ} + +\begin{center} + \includegraphics{XCasmpQ.\theTVn} +\end{center} +\stepcounter{TVn} +} + + + + + \begin{VerbatimOut}{XCasL.giac} maple_mode(0); read("XcasTabSignL.cxx"); @@ -940,6 +979,28 @@ fclose(Sortie); \stepcounter{TVn} } + + +\newenvironment{TS*} +{\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\£µ]{XCasL.user}} +{\end{VerbatimOut} + \executGiacmp{XCasL.giac} + +\immediate\write18{texmaker XCasmpL.mp} + + \immediate\write18{mpost XCasmpL} + +\begin{center} + \includegraphics{XCasmpL.\theTVn} +\end{center} +\stepcounter{TVn} +} + + + + + + \begin{VerbatimOut}{XCasTSc.giac} maple_mode(0); read("XcasTSc.cxx"); @@ -955,6 +1016,27 @@ fprint(Sortie,Unquoted,Resultat); fclose(Sortie); \end{VerbatimOut} +\newenvironment{TSc*} +{\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\£µ]{XCasTSc.user}} +{\end{VerbatimOut} + \executGiacmp{XCasTSc.giac} + +\immediate\write18{texmaker XCasmpTSc.mp} + + + \immediate\write18{mpost XCasmpTSc} + +\begin{center} + \includegraphics{XCasmpTSc.\theTVn} +\end{center} +\stepcounter{TVn} +} + + + + + + \newenvironment{TSc} {\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\£µ]{XCasTSc.user}} {\end{VerbatimOut} @@ -973,6 +1055,7 @@ fclose(Sortie); + \begin{VerbatimOut}{XCasTV.giac} maple_mode(0); read("XcasTV.cxx"); @@ -1002,6 +1085,22 @@ fclose(Sortie); +\newenvironment{TV*}% +{\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\£µ]{XCasTV.user}}% +{\end{VerbatimOut}% + \executGiacmp{XCasTV.giac} + +\immediate\write18{texmaker XCasmpTV.mp} + + \immediate\write18{mpost XCasmpTV} +\begin{center} + \includegraphics{XCasmpTV.\theTVn} +\end{center} +\stepcounter{TVn} +} + + + \begin{VerbatimOut}{XCasTVI.giac} maple_mode(0); read("XcasTVI.cxx"); @@ -1029,7 +1128,21 @@ fclose(Sortie); \stepcounter{TVn} } +\newenvironment{TVI*}% +{\VerbatimEnvironment\begin{VerbatimOut}[commandchars=\\£µ]{XCasTVI.user}}% +{\end{VerbatimOut}% + \executGiacmp{XCasTVI.giac} + + +\immediate\write18{texmaker XCasmpTVI.mp} + + \immediate\write18{mpost XCasmpTVI} +\begin{center} + \includegraphics{XCasmpTVI.\theTVn} +\end{center} +\stepcounter{TVn} +} -- cgit v1.2.3