new generic package systeme (28feb11)

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

5 files changed, 885 insertions, 0 deletions

diff --git a/Master/texmf-dist/doc/generic/systeme/README b/Master/texmf-dist/doc/generic/systeme/README
new file mode 100644
index 00000000000..44ce3467546
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/systeme/README
@@ -0,0 +1,26 @@
+___________________________________
+
+            L'extension
+              systeme
+                v0.1
+
+             2011/02/27
+___________________________________
+
+Maintainer: Christian Tellechea
+E-mail    : unbonpetit@gmail.com
+            Commentaires, rapports de bugs et suggestions sont
+            bienvenus.
+Formats   : The package works equally in Plain TeX and LaTeX
+            (though e-TeX is always required). 
+Licence   : Released under the LaTeX Project Public License v1.3c or
+            later, see http://www.latex-project.org/lppl.txt
+
+
+Cette petite extension permet de saisir des systèmes d'équations ou
+inéquations de façon intuitive, et produit un affichage où les termes
+et les signes sont alignés verticalement.
+
+L'extension fonctionne avec plain TeX ou LaTeX, mais e-TeX est requis.
+
+                                                  Christian Tellechea
\ No newline at end of file
diff --git a/Master/texmf-dist/doc/generic/systeme/systeme.tex b/Master/texmf-dist/doc/generic/systeme/systeme.tex
new file mode 100644
index 00000000000..e44ddeeba44
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/systeme/systeme.tex
@@ -0,0 +1,393 @@
+%  __________________________________________________________________
+% |                                                                  |
+% |                                                                  |
+% |                          systeme v0.1                            |
+% |                                                                  |
+% |                        27 f\'evrier 2011                         |
+% |                                                                  |
+% |__________________________________________________________________|
+%
+% Ce fichier est systeme.tex, le code TeX de l'extention "systeme".
+%
+% Maintainer: Christian Tellechea
+% E-mail    : unbonpetit@gmail.com
+%             Commentaires, remont\'ees de bugs, et suggestions
+%             sont les bienvenus.
+% Licence   : Released under the LaTeX Project Public License v1.3c or
+%             later, see http://www.latex-project.org/lppl.txt
+% Copyright : Christian Tellechea 2011
+%
+% Le package "systeme" est constitu\'e de ces 5 fichiers :
+%   systeme.tex (ce fichier)
+%   systeme.sty (le fichier pour LaTeX)
+%   README
+%   systeme_doc_fr.tex, systeme_doc_fr.pdf (manuel en francais)
+%
+% --------------------------------------------------------------------
+% This work may be distributed and/or modified under the
+% conditions of the LaTeX Project Public License, either version 1.3
+% of this license or (at your option) any later version.
+% The latest version of this license is in
+%
+% %     http://www.latex-project.org/lppl.txt
+%
+% and version 1.3 or later is part of all distributions of LaTeX
+% version 2005/12/01 or later.
+% --------------------------------------------------------------------
+% This work has the LPPL maintenance status `maintained'.
+%
+% The Current Maintainer of this work is Christian Tellechea
+% --------------------------------------------------------------------
+
+\expandafter\edef\csname SYS@savedatcatcode\endcsname{\number\catcode`\@}
+
+\catcode`\@11
+
+\def\SYS@newmacro#1{%
+	\ifdefined#1%
+		\errmessage{Package systeme Error: la macro \string#1\space existe deja. Contacter l'auteur svp.}%
+	\fi
+	\def#1%
+}
+
+\SYS@newmacro\SYS@ver        {0.1}
+\SYS@newmacro\SYS@date       {2011/02/27}
+\SYS@newmacro\SYS@longdate   {27 F\'evrier 2011}
+\SYS@newmacro\SYS@packagename{systeme}
+
+\newtoks\SYS@systemecode
+\newif\ifSYS@firstterm
+\newif\ifSYS@sortvariable
+
+\expandafter\ifx\csname @latexerr\endcsname\relax% on n'utilise pas LaTeX ?
+	\ifdefined\xstringversion\else\def\SYS@nextaction{\input xstring.tex}\expandafter\SYS@nextaction\fi
+	\immediate\write\m@ne{Package: \SYS@packagename\space\SYS@date\space\space v\SYS@ver\space\space Saisie naturelle de systemes d'equations}%
+	\long\def\@firstoftwo#1#2{#1}
+	\long\def\@secondoftwo#1#2{#2}
+	\long\def\@firstofone#1{#1}
+	\long\def\@gobble#1{}
+	\long\def\@ifnextchar#1#2#3{%
+		\let\reserved@d=#1%
+		\def\reserved@a{#2}%
+		\def\reserved@b{#3}%
+		\futurelet\@let@arg\@ifnch}
+	\def\@ifnch{%
+		\ifx\@let@arg\@sptoken
+			\let\reserved@c\@xifnch
+		\else
+			\ifx\@let@arg\reserved@d
+				\let\reserved@c\reserved@a
+			\else
+				\let\reserved@c\reserved@b
+			\fi
+		\fi
+		\reserved@c}
+	\def\:{\let\@sptoken= } \:
+	\def\:{\@xifnch} \expandafter\def\: {\futurelet\@let@arg\@ifnch}
+	\long\def\@testopt#1#2{\@ifnextchar[{#1}{#1[{#2}]}}
+	\def\@empty{}
+	\def\space{ }
+\fi
+
+% dimension qui sera ajout\'ee \`a la hauteur et \`a la profondeur du strutup ou strutdown
+% ins\'er\'e \`a la premi\`ere et la derni\`ere \'equation
+\SYS@newmacro\SYS@extrastrutdim{1.5pt}
+
+% liste des signes devant \^etre compris comme signe d'\'egalit\'e s\'eparant les 2 membres de l'\'equation
+\SYS@newmacro\SYS@equalsignlist{<=,>=,=,<,>,\leq,\geq,\leqslant,\geqslant}
+
+\SYS@newmacro\sysaddeqsign#1{%
+	\saveexpandmode\expandarg
+	\IfSubStr{\expandafter,\SYS@equalsignlist,}{,#1,}
+		\relax
+		{\expandafter\def\expandafter\SYS@equalsignlist\expandafter{\SYS@equalsignlist,#1}}%
+	\restoreexpandmode
+}
+
+% enl\`eve l'item #2 de la sc #1 qui contient une liste
+\SYS@newmacro\SYS@removeiteminlist#1#2{%
+	\saveexpandmode\expandarg
+	\IfSubStr{\expandafter,#1,}{,#2,}
+		{\StrSubstitute{\expandafter\@nil\expandafter,#1,\@nil}{,#2,},[#1]%
+		\StrDel#1{\noexpand\@nil,}[#1]%
+		\StrDel#1{,\@nil}[#1]%
+		}%
+		\relax
+	\restoreexpandmode
+}
+
+\SYS@newmacro\sysremoveeqsign#1{%
+	\SYS@removeiteminlist\SYS@equalsignlist{#1}%
+	\SYS@removeiteminlist\SYS@equivsignlist{#1}%
+}
+
+% d\'efinit le signe d'\'egalit\'e #1 comme devant \^etre remplac\'e par #2 lors de l'affichage
+\SYS@newmacro\sysequivsign#1#2{%
+	\IfSubStr\SYS@equivsignlist{\noexpand#1,}\relax{\expandafter\def\expandafter\SYS@equivsignlist\expandafter{\SYS@equivsignlist#1,}}%
+	\expandafter\def\csname SYS@equivsign@\string#1\endcsname{#2}%
+}
+
+\SYS@newmacro\SYS@equivsignlist{}
+
+\sysequivsign{<=}\leq
+\sysequivsign{>=}\geq
+
+\SYS@newmacro\SYS@firstiteminlist#1,#2\@nil{#1}
+
+\SYS@newmacro\SYS@removefirstiteminlist#1,{}
+
+% #1 est l'\'equation courante. La macro la s\'epare en 2 membres -> \SYS@leftmember et \SYS@rightmember
+% le signe de s\'eparation entre les 2 membres se trouve dans \SYS@currenteqsign
+\SYS@newmacro\SYS@splitinmembers#1{%
+	\def\SYS@leftmember{#1}\let\SYS@currenteqsign\@empty\let\SYS@rightmember\@empty
+	\expandafter\SYS@splitinmembers@i\expandafter{\SYS@equalsignlist,}% parcourt \SYS@equalsignlist pour s\'eparer en 2 membres
+	\IfSubStr{\expandafter,\SYS@equivsignlist}{\expandafter,\SYS@currenteqsign,}% si le signe est dans la liste des substitutions
+		{\expandafter\let\expandafter\SYS@currenteqsign\csname SYS@equivsign@\detokenize\expandafter{\SYS@currenteqsign}\endcsname}% le remplacer
+		\relax
+}
+
+% #1 est la liste des signes d'\'egalit\'e
+\SYS@newmacro\SYS@splitinmembers@i#1{%
+	\ifx\@empty#1\@empty
+	\else
+		\expandafter\expandafter\expandafter\SYS@ifcontains\expandafter\expandafter\expandafter{\expandafter\SYS@leftmember\expandafter}\expandafter{\SYS@firstiteminlist#1\@nil}% si l'\'equation contient un des signes
+			{\expandafter\def\expandafter\SYS@currenteqsign\expandafter{\SYS@firstiteminlist#1\@nil}% sauvagarde le signe
+			\StrBehind\SYS@leftmember\SYS@currenteqsign[\SYS@rightmember]% proc\`ede \`a la s\'eparation
+			\StrBefore\SYS@leftmember\SYS@currenteqsign[\SYS@leftmember]% en deux membres
+			\let\SYS@nextaction\relax
+			}%
+			{\def\SYS@nextaction{\expandafter\SYS@splitinmembers@i\expandafter{\SYS@removefirstiteminlist#1}}}% sinon, recommencer en enlevant le 1er signe
+		\expandafter\SYS@nextaction
+	\fi
+}
+
+\SYS@newmacro\SYS@ifcontains#1#2{%
+	\def\SYS@ifcontains@i##1#2##2\@nil{\ifx\@empty##2\@empty\expandafter\@secondoftwo\else\expandafter\@firstoftwo\fi}%
+	\SYS@ifcontains@i#1\@@nil#2\@nil
+}
+
+% analyse une \'equation et la d\'ecoupe en termes et signes
+\SYS@newmacro\SYS@spliteqinterms#1{%
+	\SYS@splitinmembers{#1}% d'abord trouver les membres de gauche et droite et le signe qui les s\'epare
+	\unless\ifx\SYS@currenteqsign\@empty\expandafter\let\csname SYS@eqsign@\SYS@eqnumber\endcsname\SYS@currenteqsign\fi% stocker ce signe s'il existe
+	\IfBeginWith\SYS@leftmember\space{\StrGobbleLeft\SYS@leftmember\@ne[\SYS@leftmember]}\relax% pas d'espace pour commencer le membre de gauche
+	\IfBeginWith\SYS@leftmember+% amputer le membre de gauche du premier signe et le stocker temporairement s'il existe et sinon...
+		{\StrSplit\SYS@leftmember\@ne\SYS@currentsign\SYS@leftmember}%
+		{\IfBeginWith\SYS@leftmember-%
+			{\StrSplit\SYS@leftmember\@ne\SYS@currentsign\SYS@leftmember}%
+			{\def\SYS@currentsign{+}}}% ce signe est "+"
+	\SYS@spliteqinterms@i\@ne
+	\expandafter\let\csname SYS@right@\SYS@eqnumber\endcsname\SYS@rightmember
+}
+
+\SYS@newmacro\SYS@spliteqinterms@i#1{%
+	\StrPosition\SYS@leftmember+[\SYS@posplus]%
+	\StrPosition\SYS@leftmember-[\SYS@posminus]%
+	\ifnum\numexpr\SYS@posplus+\SYS@posminus=\z@ % il n'y a ni "+" ni "-"
+		\let\SYS@currentterm\SYS@leftmember% prendre tout ce qui reste
+		\SYS@assignterm% et assigner ce dernier terme avec le dernier signe trouv\'e
+	\else
+		\edef\SYS@nextsign{\ifnum\SYS@posplus=\z@-\else\ifnum\SYS@posminus=\z@+\else\ifnum\SYS@posplus<\SYS@posminus+\else-\fi\fi\fi}% d\'ecider de ce qu'est le prochain signe
+		\StrBefore\SYS@leftmember\SYS@nextsign[\SYS@currentterm]% prendre ce qu'il y a avant
+		\StrBehind\SYS@leftmember\SYS@nextsign[\SYS@leftmember]% et stocker ce qu'il y a ensuite pour apr\`es
+		\SYS@assignterm% assigner ce qu'il y a avant avec le dernier signe trouv\'e
+		\let\SYS@currentsign\SYS@nextsign% on continue, le prochain signe devient le signe courant
+		\expandafter\SYS@spliteqinterms@i\expandafter{\number\numexpr#1+1\expandafter}%
+	\fi
+}
+
+\SYS@newmacro\SYS@assignterm{%
+	\expandafter\SYS@findletter\expandafter{\SYS@currentterm}% trouver le nom de la variable
+	\ifx\SYS@letterfound\@empty
+		\errmessage{Package systeme Error: aucune inconnue trouvee dans ce terme : "\detokenize\expandafter{\SYS@currentterm}" !}%
+	\else
+		\ifcsname SYS@term@\SYS@letterfound @\SYS@eqnumber\endcsname
+			\errmessage{Package systeme Error: l'inconnue "\SYS@letterfound" a deja ete trouvee dans l'equation !}%
+		\fi
+		\ifSYS@sortvariable\expandafter\SYS@insertletter\expandafter\SYS@letterlist\SYS@letterfound\fi% l'ins\'erer si besoin dans la liste ordonn\'ee des variables
+	\fi
+	\expandafter\let\csname SYS@sign@\SYS@letterfound @\SYS@eqnumber\endcsname\SYS@currentsign% proc\'eder aux assignations
+	\expandafter\let\csname SYS@term@\SYS@letterfound @\SYS@eqnumber\endcsname\SYS@currentterm
+}
+
+% cherche la premi\`ere lettre minuscule dans #1
+\SYS@newmacro\SYS@findletter#1{%
+	\def\SYS@currentterm{#1}%
+	\saveexploremode\exploregroups
+	\StrLen\SYS@currentterm[\SYS@currentlength]%
+	\let\SYS@letterfound\@empty
+	\SYS@findletter@i\@ne
+	\restoreexploremode
+}
+
+\SYS@newmacro\SYS@findletter@i#1{%
+	\StrChar\SYS@currentterm{#1}[\SYS@currentchar]%
+	\ifcat\relax\expandafter\noexpand\SYS@currentchar
+		\let\SYS@nextaction\@secondoftwo% faux si c'est une sc
+	\else
+		\ifnum\expandafter`\SYS@currentchar<`a
+			\let\SYS@nextaction\@secondoftwo
+		\else
+			\ifnum\expandafter`\SYS@currentchar>`z
+				\let\SYS@nextaction\@secondoftwo
+			\else
+				\let\SYS@nextaction\@firstoftwo
+			\fi
+		\fi
+	\fi
+	\SYS@nextaction
+		{\let\SYS@letterfound\SYS@currentchar}% renvoyer la premi\`ere lettre trouv\'ee dans \SYS@letterfound
+		{\unless\ifnum#1>\SYS@currentlength\expandafter\SYS@findletter@i\expandafter{\number\numexpr#1+1\expandafter}\fi}%
+}
+
+% Ins\`ere dans la sc #1 qui contient des lettres ordonn\'ees, la lettre #2
+\SYS@newmacro\SYS@insertletter#1#2{%
+	\IfSubStr#1{\noexpand#2}\relax{\SYS@insertletter@i1#1{#2}}%
+}
+
+\SYS@newmacro\SYS@insertletter@i#1#2#3{%
+	\StrChar#2{#1}[\SYS@currentchar]%
+	\ifx\SYS@currentchar\@empty
+		\def\SYS@nextaction{\expandafter\def\expandafter#2\expandafter{#2#3}}%
+	\else
+		\ifnum\expandafter`\SYS@currentchar<`#3 % tant que la place n'est pas trouv\'ee
+			\def\SYS@nextaction{\expandafter\SYS@insertletter@i\expandafter{\number\numexpr#1+1}#2{#3}}% aller au rang suivant
+		\else
+			\StrSplit#2{\number\numexpr#1-1}#2\SYS@afterpos% la position est atteinte -> couper #2 ici
+			\expandafter\expandafter\expandafter\def\expandafter\expandafter\expandafter#2\expandafter\expandafter\expandafter{\expandafter#2\expandafter#3\SYS@afterpos}% puis coller les morceaux en ins\'erant la lettre #3
+			\let\SYS@nextaction\relax
+		\fi
+	\fi
+	\SYS@nextaction
+}
+
+\SYS@newmacro\SYS@addtotok#1{\SYS@systemecode\expandafter{\the\SYS@systemecode#1}}
+
+\SYS@newmacro\SYS@expaddtotok#1{\expandafter\SYS@addtotok\expandafter{#1}}
+
+% reconstruit le code du tableau qui sera dans le \halign
+\SYS@newmacro\SYS@buildsystem#1#2{%
+	\StrChar\SYS@letterlist{#2}[\SYS@currentvariable]%
+	\ifcsname SYS@sign@\SYS@currentvariable @#1\endcsname
+		\expandafter\expandafter\expandafter\ifx\csname SYS@sign@\SYS@currentvariable @#1\endcsname+% signe + ?
+			\ifnum#2=\@ne% premi\`ere variable ?
+				\let\SYS@nextaction\@gobble
+			\else
+				\ifSYS@firstterm% premier terme de l'\'equation ?'
+					\let\SYS@nextaction\@gobble
+				\else
+					\let\SYS@nextaction\@firstofone
+				\fi
+			\fi
+		\else
+			\ifnum#2=\@ne
+				\expandafter\def\csname SYS@term@\SYS@currentvariable @#1\expandafter\expandafter\expandafter\endcsname\expandafter\expandafter\expandafter{\csname SYS@sign@\SYS@currentvariable @#1\expandafter\expandafter\expandafter\endcsname\csname SYS@term@\SYS@currentvariable @#1\endcsname}%
+				\let\SYS@nextaction\@gobble
+			\else
+				\let\SYS@nextaction\@firstofone
+			\fi
+		\fi
+		\SYS@nextaction{\expandafter\SYS@expaddtotok\expandafter{\expandafter\expandafter\expandafter\SYS@displaymathop\csname SYS@sign@\SYS@currentvariable @#1\endcsname}}%
+		\SYS@firsttermfalse
+	\fi
+	\unless\ifnum#2=\@ne\SYS@addtotok&\fi
+	\ifcsname SYS@term@\SYS@currentvariable @#1\endcsname
+		\expandafter\SYS@expaddtotok\expandafter{\expandafter\expandafter\expandafter$\csname SYS@term@\SYS@currentvariable @#1\endcsname$}%
+	\fi
+	\SYS@addtotok&%
+	\ifnum#2<\SYS@numberofvariable
+		\edef\SYS@nextaction{\noexpand\SYS@buildsystem{#1}{\number\numexpr#2+1}}%
+		\expandafter\SYS@nextaction
+	\else
+		\ifcsname SYS@eqsign@#1\endcsname
+			\expandafter\expandafter\expandafter\SYS@expaddtotok\expandafter\expandafter\expandafter{\expandafter\expandafter\expandafter\SYS@displaymathop\csname SYS@eqsign@#1\endcsname&}%
+			\expandafter\SYS@expaddtotok\expandafter{\expandafter\expandafter\expandafter$\csname SYS@right@#1\endcsname$}%
+		\fi
+		\ifnum#1<\SYS@eqnumber
+			\SYS@addtotok\cr
+			\SYS@firsttermtrue
+			\edef\SYS@nextaction{\noexpand\SYS@buildsystem{\number\numexpr#1+1}{1}}%
+			\expandafter\expandafter\expandafter\SYS@nextaction
+		\fi
+	\fi
+}
+
+\SYS@newmacro\systeme{%
+	\begingroup
+		\mathcode`\,="013B
+		\expandarg\noexploregroups
+		\setbox\z@\hbox{$($}%
+		\edef\SYS@strutup{\noexpand\vrule depth0pt width0pt height\dimexpr\the\ht\z@+\SYS@extrastrutdim}%
+		\edef\SYS@strutdown{\noexpand\vrule height0pt width0pt depth\dimexpr\the\dp\z@+\SYS@extrastrutdim}%
+		\lineskiplimit\z@\lineskip\z@
+		\baselineskip\SYS@lineskipcoeff\baselineskip
+		\@testopt\SYS@systeme@i{}%
+}
+
+\SYS@newmacro\SYS@systeme@i[#1]{%
+		\def\SYS@letterlist{#1}%
+		\ifx\SYS@letterlist\@empty\SYS@sortvariabletrue\else\SYS@sortvariablefalse\fi
+		\@testopt\SYS@systeme@ii,%
+}
+
+\SYS@newmacro\SYS@systeme@ii[#1]#2{%
+		\SYS@newmacro\SYS@systeme@iii##1#1##2\@nil{%
+			\ifx\@empty##1\@empty
+				\SYS@addtotok\cr% une ligne vide
+			\else
+				\SYS@spliteqinterms{##1}% analyser l'eq courante
+			\fi
+			\ifx\@empty##2\@empty% tant qu'il reste des \'equations
+			\else
+				\edef\SYS@eqnumber{\number\numexpr\SYS@eqnumber+1}% augmenter de 1 leur nombre
+				\def\SYS@nextaction{\SYS@systeme@iii##2\@nil}% recommencer avec ce qu'il reste
+				\expandafter\SYS@nextaction
+			\fi
+		}%
+		\def\SYS@eqnumber{1}%
+		\SYS@systeme@iii#2#1\@nil% analyser toutes les \'equations et en faire des termes et des signes
+		\StrLen\SYS@letterlist[\SYS@numberofvariable]%
+		\SYS@systemecode{}%
+		\SYS@makesyspreamble\@ne% fabriquer le pr\'eambule du \halign
+		\SYS@firsttermtrue
+		\StrChar\SYS@letterlist\@ne[\SYS@firstvariable]% premi\`ere inconnue
+		\SYS@buildsystem11% construire le syst\`eme...
+		\ifmmode
+			\expandafter\@firstofone
+		\else
+			\expandafter\SYS@entermath
+		\fi
+			{\left\{\vcenter{\expandafter\halign\expandafter{\the\SYS@systemecode\SYS@strutdown\cr}}\right.}% ...l'afficher en mode math
+	\endgroup
+}
+
+% Construire le pr\'eambule du \halign
+\SYS@newmacro\SYS@makesyspreamble#1{%
+	\ifnum#1<\SYS@numberofvariable% tant qu'il reste des variables
+		\SYS@addtotok{\hfil##&\hfil##&}% une colonne pour le terme et une pour le signe
+		\expandafter\SYS@makesyspreamble\expandafter{\number\numexpr#1+\@ne\expandafter}%
+	\else
+		\SYS@addtotok{\hfil##&##&##\hfil\null\cr\SYS@strutup}% ajouter 1 colonne pour le signe et une pour le terme de droite
+	\fi
+}
+
+\SYS@newmacro\SYS@entermath#1{$\relax#1$}
+
+% permet d'avoir les signes "+", "-" ou "=" avec le bon espacement
+\SYS@newmacro\SYS@displaymathop#1{${}#1{}$}
+
+% d\'efinit le coefficient pour l'espacement interligne
+\SYS@newmacro\syslineskipcoeff#1{\def\SYS@lineskipcoeff{#1}}
+\syslineskipcoeff1%
+
+\catcode`\@\SYS@savedatcatcode\relax
+
+\endinput
+
+######################################################################
+#                             Historique                             #
+######################################################################
+
+v0.1        2011/02/27
+	- Premi\`ere version publique sur le CTAN
+----------------------------------------------------------------------
\ No newline at end of file
diff --git a/Master/texmf-dist/doc/generic/systeme/systeme_doc_fr.pdf b/Master/texmf-dist/doc/generic/systeme/systeme_doc_fr.pdf
new file mode 100644
index 00000000000..120711f1f48
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/systeme/systeme_doc_fr.pdf
diff --git a/Master/texmf-dist/doc/generic/systeme/systeme_doc_fr.tex b/Master/texmf-dist/doc/generic/systeme/systeme_doc_fr.tex
new file mode 100644
index 00000000000..cfd97c0346c
--- /dev/null
+++ b/Master/texmf-dist/doc/generic/systeme/systeme_doc_fr.tex
@@ -0,0 +1,462 @@
+%  _________________________________________________________________
+% |                                                                 |
+% |                                                                 |
+% |                     Documentation de systeme                    |
+% |                                                                 |
+% |                         28 f\'evrier 2011                       |
+% |                                                                 |
+% |_________________________________________________________________|
+%
+% Ceci est systeme_doc_fr.tex, le code LaTeX de la documentation en
+% français de l'extention "systeme".
+%
+% Maintainer: Christian Tellechea
+% E-mail    : unbonpetit@gmail.com
+%             Commentaires, remont\'ees de bugs, et suggestions
+%             sont les bienvenus.
+% Licence   : Released under the LaTeX Project Public License v1.3c or
+%             later, see http://www.latex-project.org/lppl.txt
+% Copyright : Christian Tellechea 2011
+%
+% L'extension "systeme" est constituée de ces 5 fichiers :
+%   systeme.tex (le code de l'extention)
+%   systeme.sty (le fichier pour LaTeX)
+%   README
+%   systeme_doc_fr.tex, systeme_doc_fr.pdf (manuel en français)
+%
+% -------------------------------------------------------------------
+% This work may be distributed and/or modified under the
+% conditions of the LaTeX Project Public License, either version 1.3
+% of this license or (at your option) any later version.
+% The latest version of this license is in
+%
+%     http://www.latex-project.org/lppl.txt
+%
+% and version 1.3 or later is part of all distributions of LaTeX
+% version 2005/12/01 or later.
+% -------------------------------------------------------------------
+% This work has the LPPL maintenance status `maintained'.
+%
+% The Current Maintainer of this work is Christian Tellechea
+% -------------------------------------------------------------------
+\documentclass[10pt]{article}
+\usepackage[utf8]{inputenc}
+\usepackage[T1]{fontenc}
+\usepackage[a4paper,margin=3cm,head=15pt,headsep=10mm,footskip=10mm]{geometry}
+\usepackage[bottom]{footmisc}
+\usepackage{libertine}
+\renewcommand*\oldstylenums[1]{{\fontfamily{fxlj}\selectfont #1}}
+\usepackage[scaled=0.8]{luximono}
+\usepackage{amsmath}
+\usepackage{fancybox}
+\usepackage{enumitem}
+\usepackage{systeme}
+\usepackage{xcolor}
+\usepackage{amssymb}
+\usepackage[protrusion=true,expansion,final,babel=true]{microtype}
+\usepackage{fancyhdr}
+\fancypagestyle{plain}{%
+	\fancyhead[L]{\small L'extention \bfseries systeme}
+	\fancyhead[C]{}
+	\fancyhead[R]{\scriptsize\slshape\leftmark}
+	\fancyfoot[l]{\tiny Compilé par Christian \textsc{Tellechea}, le \today.}
+	\fancyfoot[c]{}
+	\fancyfoot[r]{\thepage}}
+\renewcommand\headrulewidth{0.4pt}
+
+\makeatletter
+
+\newcommand\make@car@active[2]{%
+	\catcode`#1\active
+	\begingroup
+		\lccode`\~`#1\relax
+		\lowercase{\endgroup\def~{#2}}%
+}
+
+\newcommand\exemple{%
+	\begingroup
+	\parindent\z@
+	\parskip\z@
+	\@makeother\;\@makeother\!\@makeother\?\@makeother\:% neutralise frenchb
+	\exemple@}
+
+\newcommand\exemple@[2][50]{%
+	\medbreak\noindent
+	\begingroup
+		\let\do\@makeother\dospecials
+		\make@car@active\ { {}}%
+		\make@car@active\^^M{\par\leavevmode}%
+		\make@car@active\,{\leavevmode\kern\z@\string,}%
+		\make@car@active\-{\leavevmode\kern\z@\string-}%
+		\exemple@@{#1}{#2}%
+}
+
+\newcommand\exemple@@[3]{%
+	\def\@tempa##1#3{\exemple@@@{#1}{#2}{##1}}%
+	\@tempa
+}
+
+\newcommand\exemple@@@[3]{%
+	\xdef\the@code{#3}%
+	\endgroup
+	\vskip0.5ex
+	\boxput*(0,1)
+		{\fboxsep\z@
+		\hbox{\colorbox{white}{\leavevmode\kern0.25em{\small\bfseries#2}\kern0.25em}}%
+		}%
+		{\fboxsep5pt
+		\fbox{%
+			$\vcenter{\hsize\dimexpr0.#1\linewidth-\fboxsep-\fboxrule\relax
+				\kern5pt\parskip0pt \ttfamily\small\the@code}%
+			\vcenter{\kern5pt\hsize\dimexpr\linewidth-0.#1\linewidth-\fboxsep-\fboxrule\relax
+				\small\newlinechar`\^^M\everyeof{\noexpand}\scantokens{#3}}$%
+			}%
+		}%
+	\medbreak
+	\endgroup
+}
+
+\newcommand\falseverb[1]{{\ttfamily\detokenize{#1}}}
+
+\long\def\centerverb#1{%
+	\def\centerverb@i##1#1{##1\hfill\null\par\egroup}
+	\bgroup
+		\ttfamily\@noligs
+		\parskip3.5pt\par\hfill
+		\let\do\@makeother\dospecials
+		\@vobeyspaces
+		\centerverb@i}
+
+\makeatother
+
+\usepackage[frenchb]{babel}
+\frenchbsetup{StandardLists=true}
+
+\usepackage[plainpages=false,pdfpagelabels,bookmarks=true,bookmarksopen=true,colorlinks=true,hyperfootnotes=false,filecolor=black,linkcolor=blue,urlcolor=magenta,pdfauthor={Christian TELLECHEA},pdftitle={systeme},pdfsubject={Saisie intuitive de systèmes d'équations},pdfkeywords={systeme},pdfcreator={LaTeX}]{hyperref}
+
+\setitemize{leftmargin=3em,topsep=0pt,parsep=0pt,itemsep=0pt,label=--}
+\begin{document}
+\begin{titlepage}
+	\null\par\vspace{1.5cm}
+	\begin{center}
+		\begin{minipage}{0.75\linewidth}
+			\begin{center}
+				\Huge L'extension pour \TeX{} et \LaTeX{}\normalsize\par
+				\fontsize{50pt}{50pt}\selectfont\bfseries systeme\par
+				\par\vspace{5pt}\normalsize
+				v\csname SYS@ver\endcsname\par\vspace{5pt}
+				\csname SYS@longdate\endcsname\par\vspace{35pt}
+				\normalsize Manuel de l'utilisateur
+			\end{center}
+		\end{minipage}
+	\end{center}
+	\vspace{1cm}
+	\begin{center}
+		Christian {\sc Tellechea}\par\small
+		\href{mailto:unbonpetit@gmail.com}{\texttt{\textbf{unbonpetit@gmail.com}}}
+	\end{center}
+	\vspace{2cm}
+	\begin{center}
+		\begin{minipage}{0.8\linewidth}
+			\noindent\hrulefill\par
+			\hfill\textbf{\textit{Résumé}}\hfill{}\medskip\par\footnotesize
+				Cette petite extension met en forme des systèmes d'équations ou d'inéquations où les termes et les signes sont alignés verticalement, tout en permettant une saisie quasi naturelle.\par
+			\hrulefill
+		\end{minipage}
+	\end{center}
+	\vspace{2cm}
+	\tableofcontents
+\end{titlepage}
+\pagestyle{plain}
+\parskip5pt minus 1pt
+\parindent0pt
+
+\subsection{Avant propos}
+Tout a recommencé, comme chaque année lorsque j'enseigne les systèmes d'équations, par un (petit) énervement concernant la difficulté de la saisie pour avoir une mise en forme acceptable. C'est à chaque fois un casse tête et une perte de temps conséquente de se battre avec les tableaux \LaTeX{} pour obtenir \emph{in fine} des systèmes avec un alignement correct, d'où le petit énervement, surtout lorsque, insouciant, on commence à taper ses sujets vers 23h pour le lendemain.
+
+Fort de ce constat, je me suis dit qu'il allait falloir écrire des macros pour être débarrassé de la difficulté de la saisie. Et tant qu'à faire, autant écrire des macros en plain $\varepsilon$\TeX, que tout le monde puisse en profiter\footnote{Enfin, tout le monde, c'est vite dit ! Cette extension n'est pas compatible avec Con\TeX t car, pour une raison que je ne m'explique pas, \href{http://www.ctan.org/tex-archive/macros/latex/contrib/xstring/}{\texttt{\textbf{xstring}}} n'est pas utilisable avec Con\TeX t. Si quelqu'un a une explication (et éventuellement un remède), je lui serais très reconnaissant qu'il me contactepar \href{mailto:unbonpetit@gmail.com}{\texttt{\textbf{email}}} !}. Ces macros sont réunies dans cette petite extension maintenant à peu près fonctionnelle.
+
+\section{Fonctionnalités de l'extension}
+\subsection{La commande \protect\texttt{\textbackslash systeme}}
+Pour l'utiliser l'extension \og systeme\fg{} , il faut écrire :
+\begin{itemize}
+	\item {\color{blue}\verb-input systeme.tex-} lorsqu'on est utilise \TeX{} ou pdf\TeX;
+	\item {\color{blue}\verb-\usepackage{systeme}-} dans le préambule lorsqu'on utilise \LaTeX.
+\end{itemize}
+L'extension \href{http://www.ctan.org/tex-archive/macros/latex/contrib/xstring/}{\texttt{\textbf{xstring}}} est requise et est chargée si cela n'a pas été le cas.
+
+La commande principale est \verb-\systeme- dont l'argument obligatoire contient les équations séparées par une virgule :
+
+\exemple{La commande \ttfamily\string\systeme}/Résoudre \systeme{2a-3b+4c=2,
+a+8b+5c=8,
+-a+2b+c=-5}/
+La commande \verb-\systeme- fonctionnera en mode math ou non et donnera un résultat correct si toutes les inconnues se trouvent dans le membre de gauche, le membre de droite étant celui des constantes. Les équations doivent être \emph{développées}, c'est-à-dire que chaque terme est séparé de son voisin par un "+" ou un "-". De plus, les inconnues doivent être des lettres minuscules non accentuées, c'est-à-dire tout caractère de \og\verb-a-\fg{} à \og\verb-z-\fg. Comme l'extension est écrite en \TeX{} et donc utilise un tableau fait à l'aide de \verb-\halign-, il faudra se méfier du grabuge que peut provoquer cette primitive lorsqu'elle se trouve nue dans les environnements \verb-tabular- de \LaTeX{} et si l'on veut mettre la commande \verb-\systeme- dans un tableau \LaTeX{}, il faudra prendre la précaution de l'envelopper dans une \verb-\hbox-.
+
+L'alignement construit sera un tableau précédé d'une accolade et aura les spécificités suivantes :
+\begin{itemize}
+	\item les signes d'égalité ou d'inégalité séparant les deux membres sont alignés;
+	\item les signes "+" ou "-" séparant chaque terme du membre gauche sont alignés;
+	\item chaque terme du membre de gauche se trouve dans une colonne au fer à droite;
+	\item le membre de droite se trouve dans une colonne au fer à gauche;
+	\item les espacements mathématiques entre colonnes seront corrects.
+\end{itemize}
+
+Si une inconnue est manquante dans une équation, la colonne du tableau reste vide :
+\exemple{Inconnues manquantes}/\systeme{a-2b=3,
+b-3c=4,
+-a+4c=-1}/
+
+On peut également avoir une, plusieurs, ou toutes les équations sans second membre :
+\exemple{Équation sans second membre}/\systeme{2a+3b-c=4,
+b-2c,-a+2b+3c}/
+
+Dans l'argument de la commande \verb-\systeme-, lorsque deux virgules se suivent, une équation vide, c'est-à-dire une ligne vide est insérée. Malgré cette facilité, pour augmenter l'espacement vertical entre les équations, il vaut mieux utiliser la commande \verb-\syslineskipcoeff-, voir page~\pageref{espacement.vertical}.
+\exemple{Ligne vide}/\systeme{a-2b=3,,2a+5b=7}/
+
+\subsection{Tri alphabétique}
+Quel que soit l'ordre dans lequel sont entrées les inconnues lors de la saisie, elles seront triées par ordre alphabétique à l'affichage :
+\exemple{Tri alphabétique}/\systeme{2y+x-3z=4,
+z-y+2x=-1,
+-2x+3z-4y=0}/
+
+Les signes "+" ne sont pas affichés lorsqu'ils précèdent le premier terme d'une équation, ce que l'on peut observer dans la première équation.
+
+Le tri alphabétique est une facilité mais il peut s'avérer gênant surtout dans les systèmes $4\times4$ où, bien souvent, la 4\ieme{} inconnue est \og$t$\fg{} :
+\exemple{Tri alphabétique indésirable}/\systeme{x+2y-3z+t=0,
+2x-y-z+3t=4,
+2y+3z+4t=-1,
+3x-2z-2t=3}/
+On aimerait bien que l'inconnue $t$ soit en 4\ieme{} position dans toutes les équations. Pour cela, il faut forcer un tri différent du tri alphabétique avec l'argument optionnel de la commande \verb-\systeme-. Cet argument optionnel doit contenir la liste des inconnues, sans aucun espace entre elles, et dans l'ordre où l'on souhaite les voir affichées dans chaque équation. Si une inconnue est omise, elle ne sera pas affichée, et si une inconnue figure dans l'argument optionnel alors qu'elle n'existe pas dans le système, elle sera ignorée.
+
+Ici, on affiche deux fois le même système avec deux ordres différents :
+\exemple{Tri forcé}/\systeme[xyzt]{x+2y-3z+t=0,
+2x-y-z+3t=4,
+2y+3z+4t=-1,
+3x-2z-2t=3}
+
+\systeme[ztyx]{x+2y-3z+t=0,
+2x-y-z+3t=4,
+2y+3z+4t=-1,
+3x-2z-2t=3}/
+
+\subsection{Inéquations}
+Dans chaque ligne, le signe susceptible de séparer les deux membres d'une équation sont l'un de cette liste : \verb-=-, \verb-<-, \verb->-, \verb-<=-, \verb->=-, \verb-\leq-, \verb-\geq-, \verb-\leqslant- et \verb-\geqslant-. Les deux derniers ne sont utilisables que si l'extension \href{http://ctan.org/pkg/amssymb}{\texttt{\textbf{amssymb}}} a été chargée.
+
+Les signes \verb-<=- et \verb->=- sont remplacés à l'affichage par \verb-\leq-, \verb-\geq-, qui donnent $\leq$ ou $\geq$.
+\exemple{Inéquations}/\systeme{x+y-2z>4,
+2x-y+z\geq-1,
+3x-2y+z<=3}/
+
+Pour choisir une autre substitution à \og\verb->=-\fg{} ou \og\verb-<=-\fg{} ou pour en créer une pour tout autre signe d'égalité, on doit utiliser la commande :
+\centerverb/\sysequivsign{signe}{substitution}/
+
+Voici le même système où l'on définit la substitution de \og\verb-<=-\fg{} avec \og\verb-\leqslant-\fg{} comme on l'observe à la troisième équation :
+\exemple{Redéfinir une substitution}/\sysequivsign{<=}{\leqslant}
+\systeme{x+y-2z>4,
+2x-y+z\geq-1,
+3x-2y+z<=3}/
+
+\subsection{Nouveaux signes d'égalité}
+Avec la commande \verb-\sysaddeqsign-, on peut créer un nouveau signe susceptible de séparer les deux membres des équations. Il faut écrire :
+\centerverb/\sysaddeqsign{<nouveau signe>}/
+
+Mettons ici que l'on créé le nouveau signe\footnote{La création d'un nouveau signe est possible même si son code de catégorie est actif.} d'égalité \og\verb-~-\fg{} en écrivant :
+\centerverb/\sysaddeqsign{~}/
+
+Puis, mettons que l'on veuille ensuite remplacer ce nouveau signe par \og\verb-\approx-\fg{} dans l'affichage final. On devra écrire :
+\centerverb/\sysequivsign{~}{\approx}/
+
+En voici l'illustration dans cet exemple :
+\exemple{Nouveau signe}/\sysaddeqsign{~}
+\sysequivsign{~}{\approx}
+\systeme{2a+b-c~6,a-4b~4}/
+
+Par la suite, on peut supprimer ce signe ou n'importe quel autre déjà existant il faut utiliser la commande \verb-\sysremoveeqsign- et écrire :
+\centerverb/\sysremoveeqsign{~}/
+
+\subsection{Coefficients décimaux}
+À première vue, la virgule étant utilisée pour séparer les équations, il n'est pas possible d'écrire des coefficients décimaux. On peut spécifier un autre caractère pour séparer les différentes équations avec le second argument optionnel de la commande \verb-\système-. Ici, on prend \og\verb-:-\fg{}\footnote{Ici encore, il est possible de choisir un caractère de code de catégorie actif, comme c'est le cas de \og\string:\fg{} lorsque l'option \og\texttt{frenchb}\fg{} est spécifiée au package \texttt{babel}.} ce qui permet d'écrire des coefficients décimaux. Le comportement de la virgule est redéfinit à  l'intérieur de la commande \verb-\systeme- de telle sorte qu'elle ne soit pas suivie d'une espace, comme c'est le cas en mode mathématique.
+\exemple{Coefficients décimaux}/\systeme[][:]{1,5x-0,45y=0,7:x-0,8y=1,4}/
+
+\subsection{Espacement des lignes}\label{espacement.vertical}
+On peut faire varier l'espacement entre les lignes avec la commande \verb-\syslineskipcoeff- dont l'argument est un nombre qui viendra multiplier la valeur de \verb-\baselinskip-. Par défaut, l'argument vaut 1.
+\exemple{Espacement variable}/\systeme{x+2y-z=0,2x-y+z=1,x-3y+2z=1}
+\syslineskipcoeff{1.5}\quad
+\systeme{x+2y-z=0,2x-y+z=1,x-3y+2z=1}/
+
+\subsection{Inconnues entre accolades}
+La détection des lettres représentant les inconnues se fait même lorsque ces inconnues sont dans des accolades. On peut donc écrire des équations où se trouve par exemple  \verb-\frac{x+1}{2}- :
+\exemple{Équations avec fractions}/\systeme{\frac{x+1}{3}+\frac{y}{3}=\frac{1}{2},
+\frac{x}{2}-\frac{3y-1}{2}=-2}/
+Certes, le rendu est discutable mais ce n'est pas le but de cette extension de traiter ce genre d'équations\ldots
+
+\section{Algorithme}
+\begingroup
+\catcode`"13 \catcode`<13
+\def"{\begingroup\ttfamily\color{black!50!blue!80}\catcode`_12 \finvariable}
+\def\finvariable#1"{#1\endgroup}
+\def<{\leavevmode\begingroup\catcode`_12 \finconstante}
+\def\finconstante#1>{\hbox{$\langle$\texttt{#1}$\rangle$}\endgroup}
+\def\={${}\longleftarrow{}$}
+\def\negal{${}\neq{}$}
+\def\egal{${}={}$}
+\def\app{${}\in{}$}
+\def\napp{${}\notin{}$}
+\def\addatend{\mathop{=\kern-0.3em\oplus}\nolimits}
+\def\addatstart{\mathop{\oplus\kern-0.3em=}\nolimits}
+\def\+{${}\addatend{}$}
+\def\insfirst{${}\addatstart{}$}
+\def\?{$\exists$\kern0.1666em}
+\def\car#1{\texttt{car}$_{\hbox{\scriptsize#1}}$}
+\def\gauche{\begingroup\catcode`_12 \gauchei}
+\def\gauchei#1#2{\texttt{gauche}(#1\kern1pt,\kern1pt #2)\endgroup}
+\def\droite{\begingroup\catcode`_12 \droitei}
+\def\droitei#1#2{\texttt{droite}(#1\kern1pt,\kern1pt #2)\endgroup}
+Voici les notations utilisées dans l'algorithme :
+\begin{itemize}
+	\item les principales variables utilisées sont en "bleu";
+	\item les <constantes> sont entre chevrons;
+	\item \car{n}("variable") est le caractère \verb-n- de la "variable";
+	\item "x"\="y" est une assignation qui signifie que "x" reçoit "y";
+	\item "x"\+"y" est une concaténation qui signifie que la chaine "y" est ajoutée à la fin de "x".\par
+	De la même façon, "x"\insfirst"y" ajoute la chaine "y" au début de "x";
+	\item \?"x" signifie que la variable "x" existe;
+	\item \gauche{"var1"}{"var2"} est dans "var1" ce qui se trouve à gauche de la première occurrence de "var2".\par
+	Même chose pour \droite{"var1"}{"var2"} sauf que c'est ce qui est à droite.
+\end{itemize}
+Dans les grandes lignes, voici l'algorithme qui est utilisé pour parcourir, analyser, découper, trier et reconstruire un système avec la commande
+\centerverb/\systeme[arg_opt#1][arg_opt#2]{argument obligatoire}/
+\setitemize{label={},itemsep=0pt,topsep=0pt,parsep=0pt}
+\begin{enumerate}[leftmargin=*,topsep=0pt,parsep=0pt,itemsep=2pt]
+	\item insérer un <\string\begingroup>
+	\item <\string\mathcode\string`\string\,>\=<\string"013B>
+	\item si <arg_opt\#1>\egal<vide>
+	\begin{itemize}
+		\item "tri_auto"\=<vrai>
+		\item "list_inconnues"\=<vide>
+	\end{itemize}
+	sinon
+	\begin{itemize}
+		\item "tri_auto"\=<faux>
+		\item "list_inconnues"\=<arg_opt\#1>
+	\end{itemize}
+	\item si <arg_opt\#2>\egal<vide>
+		\begin{itemize}\item "séparateur"\=<,>\end{itemize}
+	sinon
+		\begin{itemize}\item "séparateur"\=<arg_opt\#2>\end{itemize}
+	\item "numligne"\=<1>\par
+		"arg_restant"\=<argument obligatoire>
+	\item si "séparateur"\app"arg_restant"
+	\begin{itemize}
+		\item "éq_actuelle"\=\gauche{"arg_restant"}{"séparateur"}
+		\item "arg_restant"\=\droite{"arg_restant"}{"séparateur"}
+	\end{itemize}
+	sinon
+	\begin{itemize}
+		\item "éq_actuelle"\="arg_restant"
+		\item "arg_restant"\=<vide>
+	\end{itemize}
+	\item si l'"éq_actuelle" contient un "signe" contenu dans la "liste des signes d'égalité"
+	\begin{itemize}
+		\item "signe[numligne]"\="signe"
+		\item "membre_G"\=\gauche{"éq_actuelle"}{"signe"}
+		\item "membre_D[numligne]"\=\droite{"éq_actuelle"}{"signe"}
+	\end{itemize}
+	sinon
+		\begin{itemize}\item "membre_G"\="éq_actuelle"\end{itemize}
+	\item si \car1("membre_G")\napp\{<+>, <->\}
+		 \begin{itemize}\item "membre_G"\insfirst<+>\end{itemize}
+	\item "signe_actuel"\=\car1("membre_G")\par
+	"membre_G"\=\droite{"membre_G"}{"signe_actuel"}
+	\begin{enumerate}[leftmargin=3em,topsep=3pt,parsep=0pt,itemsep=3pt]
+		\item si "membre_G" contient <+> ou <->
+		\begin{itemize}
+			\item "signe"\=première occurrence de <+> ou <-> dans "membre_G"
+			\item "terme_actuel"\=\gauche{"membre_G"}{"signe"}
+			\item "membre_G"\=\droite{"membre_G"}{"signe"}
+		\end{itemize}
+		sinon
+		\begin{itemize}
+			\item "terme_actuel"\="membre_G"
+			\item "membre_G"\=<vide>
+		\end{itemize}
+		\item chercher "alpha", la lettre représentant l'inconnue dans le "terme_actuel"
+		\item "signe[numligne,alpha]"\="signe_actuel"
+		\item "terme[numligne,alpha]"\="terme_actuel"
+		\item si "tri_auto"\egal<vrai> et "alpha"\napp"list_inconnues"
+			\begin{itemize}\item insérer "alpha" à sa place alphabétique dans "list_inconnues"\end{itemize}
+		\item si "membre_G"\negal<vide>
+			\begin{itemize}\item "signe_actuel"\="signe"\item retourner en 9a\end{itemize}
+	\end{enumerate}
+	\item si "arg_restant"\negal<vide>
+		\begin{itemize}\item "numligne"\="numligne"${}+1$\item aller en 6\end{itemize}
+	\item "nb_inconnues"\=nombre de caractères de "list_inconnues"
+	\item "nb_lignes"\="numligne"
+	\item fabriquer le préambule du \verb-\halign- (1 colonne au fer à droite pour la première inconnue, 2 de ces colonnes pour les autres inconnues, 1 colonne pour le signe d'égalité et 1 colonne au fer à gauche pour le membre de droite) :
+	\begin{enumerate}
+		\item "code_systeme"\=<vide>
+		\item "code_systeme"\+<\string\hfil\#\string&\string\hfil\#\string&>${}\times{}$("nb_inconnues"${}-1$)
+		\item "code_systeme"\+<\string\hfil\#\string&\#\string&\#\string\hfil\string\null\string\cr>
+	\end{enumerate}
+	\item "numligne"\=<1>
+	\item "numlettre"\=<1>\quad"premier_terme"\=<vrai>
+	\item "alpha"\=\car{"numlettre"}("list_inconnues")
+	\begin{enumerate}[leftmargin=3em,topsep=3pt,parsep=0pt,itemsep=3pt]
+		\item si \?"signe[numligne,alpha]"
+		\begin{itemize}
+			\item si "signe[numligne,alpha]"\egal<+>
+				\begin{itemize}\item si "numlettre"\negal1 et "premier_terme"\egal<faux>
+					\begin{itemize}\item "code_systeme"\+"signe[numligne,alpha]"\end{itemize}
+				\end{itemize}
+			\item sinon
+				\begin{itemize}
+					\item si "numlettre"\egal1
+						\begin{itemize}\item "terme[numligne,alpha]"\insfirst"signe[numligne,alpha]"\end{itemize}
+					\item sinon
+						\begin{itemize}\item "code_systeme"\+"signe[numligne,alpha]"\end{itemize}
+				\end{itemize}
+				\item "premier_terme"\=<faux>
+		\end{itemize}
+		\item si "numlettre"\negal1
+			\begin{itemize}\item "code_systeme"\+<\string&>\end{itemize}
+		\item si \?"terme[numligne,alpha]"
+			\begin{itemize}\item "code_systeme"\+"terme[numligne,alpha]"\end{itemize}
+		\item "code_systeme"\+<\string&>
+		\item si "numlettre" \string< "nb_inconnues"
+			\begin{itemize}\item "numlettre"\="numlettre"+<1>\item aller en 16\end{itemize}
+		\item si \?"signe[numligne]"
+			\begin{itemize}\item "code_systeme"\+"signe[numligne]"\end{itemize}
+		\item si \?"membre_D[numligne]"
+			\begin{itemize}\item "code_systeme"\+<\string&>"membre_D[numligne]"\end{itemize}
+		\item si "numligne"${}\string<{}$"nb_lignes"
+		\begin{itemize}
+			\item "code_systeme"\+<\string\cr>
+			\item "numligne"\="numligne"${}+{}$<1>
+			\item aller en 15
+		\end{itemize}
+	\end{enumerate}
+	\item "code_systeme"\+<\string\cr>
+	\item se mettre en mode mathématique s'il y a besoin  et insérer\par
+	<\string\left\{\string\vcenter\{\string\halign\{"code_systeme"\}\}\string\right.>
+	\item insérer <\string\endgroup>.
+\end{enumerate}
+\endgroup
+Pour finir et rendre les choses compréhensibles, voici un système où les frontières des 7 colonnes (3 inconnues et donc $2\times3+1=7$ colonnes) sont visibles :
+\begin{center}
+	\arraycolsep=0pt
+	\arrayrulewidth=0.1pt
+	$\left\{\begin{array}{|r|r|r|r|r|r|l|}
+	-10x&{}+{}&4y&{}-{}&5z&{}={}&-1\\
+	x&&&{}-{}&7z&{}={}&3\\
+	2x&{}-{}&y&&&{}={}&0
+	\end{array}\right.$
+\end{center}
+\textbf{\scshape À faire} : dans les systèmes saisis, il faut permettre que les inconnues soit des lettres indicées comme "\verb-x_1-", "\verb-x_2-", etc. Pour cela, il faudra améliorer l'algorithme utilisé et regarder si les lettres détectées sont suivies de "\verb-_-". Ça sera pour la prochaine version !
+\begin{center}
+\parskip0pt
+$\star$\par
+$\star\quad\star$
+\end{center}
+J'espère que cette extension vous sera utile et surtout que le code ne comporte pas trop de bugs car il a été écrit assez rapidement sans vraiment faire les tests qui s'imposent\ldots\ Un \href{mailto:unbonpetit@gmail.com}{\texttt{\textbf{email}}} pour me signaler tout dysfonctionnement, toute proposition d'amélioration ou même tout commentaire sur cette extension sera le bienvenu.\par\medskip\nobreak
+Christian \textsc{Tellechea}
+\end{document}
\ No newline at end of file
diff --git a/Master/texmf-dist/tex/generic/systeme/systeme.sty b/Master/texmf-dist/tex/generic/systeme/systeme.sty
new file mode 100644
index 00000000000..c11eabb65e9
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/systeme/systeme.sty
@@ -0,0 +1,4 @@
+\RequirePackage{xstring}
+\input systeme.tex
+\ProvidesPackage\SYS@packagename[\SYS@date\space v\SYS@ver\space Mise en forme de systemes d'equations]
+\endinput
\ No newline at end of file