summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/tablor
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-02-05 01:35:55 +0000
committerKarl Berry <karl@freefriends.org>2008-02-05 01:35:55 +0000
commitf29c1c301f32796c6ebbab9bf6ed2f9ee5f2b475 (patch)
treeebfd74b66688ae1b68ec18129fc059614fe8eb04 /Master/texmf-dist/tex/latex/tablor
parentc1e42f121f4b2839a33c365bd3b8bd621747fdfb (diff)
tablor update (2feb08)
git-svn-id: svn://tug.org/texlive/trunk@6500 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/tablor')
-rw-r--r--Master/texmf-dist/tex/latex/tablor/tablor.sty117
1 files changed, 115 insertions, 2 deletions
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}
+}