summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2025-02-16 21:10:23 +0000
committerKarl Berry <karl@freefriends.org>2025-02-16 21:10:23 +0000
commit910271ca826e40228cad188d61d05535b91af9a7 (patch)
tree5f20fea6efae53364ba7f20b7235c58fb9328b46
parent0b4e618ccbef2031e4a3f6a2caa8d4ee912b32d6 (diff)
systeme (16feb25)
git-svn-id: svn://tug.org/texlive/trunk@74047 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/texmf-dist/doc/generic/systeme/README4
-rw-r--r--Master/texmf-dist/doc/generic/systeme/systeme_fr.pdfbin76904 -> 137080 bytes
-rw-r--r--Master/texmf-dist/doc/generic/systeme/systeme_fr.tex217
-rw-r--r--Master/texmf-dist/tex/generic/systeme/systeme.tex815
4 files changed, 556 insertions, 480 deletions
diff --git a/Master/texmf-dist/doc/generic/systeme/README b/Master/texmf-dist/doc/generic/systeme/README
index 3a21ab9bc2f..5963bb7185e 100644
--- a/Master/texmf-dist/doc/generic/systeme/README
+++ b/Master/texmf-dist/doc/generic/systeme/README
@@ -1,9 +1,9 @@
L'extension
systeme
- v0.34
+ v0.35
- 5 mai 2020
+ 16 février 2025
Author : Christian Tellechea
Email : unbonpetit@netc.fr (CT)
diff --git a/Master/texmf-dist/doc/generic/systeme/systeme_fr.pdf b/Master/texmf-dist/doc/generic/systeme/systeme_fr.pdf
index 898456831fa..7eaa9abcf45 100644
--- a/Master/texmf-dist/doc/generic/systeme/systeme_fr.pdf
+++ b/Master/texmf-dist/doc/generic/systeme/systeme_fr.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/generic/systeme/systeme_fr.tex b/Master/texmf-dist/doc/generic/systeme/systeme_fr.tex
index 980ca64e5be..80f4716dfe7 100644
--- a/Master/texmf-dist/doc/generic/systeme/systeme_fr.tex
+++ b/Master/texmf-dist/doc/generic/systeme/systeme_fr.tex
@@ -1,15 +1,20 @@
-% !TeX TS-program = xelatex
+% !TeX TS-program = lualatex
\documentclass[10pt,french]{article}
+\usepackage[no-math]{fontspec}
+\usepackage[libertine]{newtxmath}
+\usepackage{libertineRoman}
+\DeclareSymbolFont{operators}{\encodingdefault}{\familydefault}{m}{n}
\usepackage[a4paper,margin=3cm,head=12pt,headsep=7mm,footskip=7mm]{geometry}
\usepackage[bottom]{footmisc}
-
-\usepackage{amsmath,fancybox,enumitem,systeme,xcolor,amssymb,array,longtable,fancyhdr,libertinus-otf}
-\setsansfont[Scale=0.8]{Luxi Mono}
+\usepackage{amsmath,fancybox,enumitem,systeme,xcolor,amsfonts,array,longtable,fancyhdr,babel}
+\setmonofont[Scale=0.8]{Luxi Mono}
+\frenchsetup{og=«,fg=»,AutoSpaceFootnotes=false,AutoSpacePunctuation=true,StandardLists=true}
+\usepackage[protrusion=true,expansion,final,babel=true]{microtype}
\fancypagestyle{plain}{%
\fancyhead[L]{\small L'extension \bfseries systeme}
\fancyhead[C]{}
\fancyhead[R]{\scriptsize\slshape\leftmark}
- \fancyfoot[l]{\tiny Compilé par Christian \textsc{Tellechea}, le \today.}
+ \fancyfoot[l]{}
\fancyfoot[c]{}
\fancyfoot[r]{\thepage}}
\renewcommand\headrulewidth{0.4pt}
@@ -31,11 +36,11 @@
\exemple@}
\newcommand\exemple@[2][50]{%
- \medbreak\noindent
\begingroup
\let\do\@makeother\dospecials
\make@car@active\ { {}}%
\make@car@active\^^M{\par\leavevmode}%
+ \make@car@active\^^I{\space\space\space\space\space\space\space\space\space}%
\make@car@active\,{\leavevmode\kern\z@\string,}%
\make@car@active\-{\leavevmode\kern\z@\string-}%
\exemple@@{#1}{#2}%
@@ -49,7 +54,7 @@
\newcommand\exemple@@@[3]{%
\xdef\the@code{#3}%
\endgroup
- \vskip0.5ex
+ \par\nobreak\medskip\noindent
\boxput*(0,1)
{\fboxsep\z@
\hbox{\colorbox{white}{\leavevmode\kern0.25em{\small\bfseries#2}\kern0.25em}}%
@@ -81,14 +86,9 @@
\def\longfrdate{\expandafter\longfrdate@i\SYSdate\@nil}
\makeatother
-\usepackage{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}
+\setitemize{leftmargin=3em,topsep=\dimexpr-\parskip+1.5pt\relax,parsep=0pt,itemsep=1.5pt,label=---}
\begin{titlepage}
\null\par\vspace{1.5cm}
\begin{center}
@@ -124,33 +124,29 @@
\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 de me contacter par \href{mailto:unbonpetit@netc.fr}{\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 \texttt{\textbackslash systeme}}
-Pour l'utiliser l'extension \og systeme\fg{} , il faut écrire :
+Pour l'utiliser l'extension « systeme» , il faut écrire :
\begin{itemize}
- \item {\color{blue}\verb-input systeme.tex-} lorsqu'on utilise \TeX{} ou pdf\TeX;
- \item {\color{blue}\verb-\usepackage{systeme}-} dans le préambule lorsqu'on utilise \LaTeX.
+ \item {\color{blue}\verb-input systeme.tex-} lorsqu'on utilise (pdf)(Xe)(lua)\TeX;
+ \item {\color{blue}\verb-\usepackage{systeme}-} dans le préambule lorsqu'on utilise (pdf)(Xe)(lua)\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.
+L'extension \href{https://www.ctan.org/pkg/xstring}{\texttt{\textbf{xstring}}} est requise et 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}/
+\exemple{La commande \ttfamily\string\systeme}/Résoudre
+\systeme{2a-3b+4c=2,
+ a+8b+5c=8,
+ -a+2b+c=-5}/
La virgule, qui est le séparateur par défaut, peut être changée en tout autre caractère. Il suffit de placer ce nouveau caractère dans l'argument de la commande \verb-\syseqsep-.
-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. Les espaces sont ignorés dans l'argument de la macro \verb|\systeme|.
+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 «\verb-+-» ou un «\verb+-+». De plus, les inconnues doivent être des lettres minuscules non accentuées, c'est-à-dire tout caractère de «\verb-a-» à «\verb-z-». Les espaces sont ignorés dans l'argument de la macro \verb|\systeme|.
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 les signes «\verb-+-» ou «\verb+-+» 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.
@@ -158,42 +154,42 @@ L'alignement construit sera un tableau précédé d'une accolade et aura les spÃ
Les inconnues peuvent avoir un indice, sous réserve que celui-ci soit un nombre entier \emph{positif ou nul}\footnote{L'indice $-1$ correspond en interne à une inconnue non indicée. Par conséquent, la présence simultanée dans une même équation d'une inconnue non indicée et de cette inconnue avec l'indice $-1$ provoquera une erreur.} :
\exemple{Inconnues indicées}/\systeme{4x_1-x_2=3,
--x_1+5x_2=-1}/
+ -x_1+5x_2=-1}/
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}/
+ b-3c=4,
+ -a+4c=-1}/
-Le membre de gauche peut contenir un terme constant. Dans ce cas, quel que soit l'endroit où il a été écrit dans ce membre, il sera affiché en dernière position, c'est-à-dire juste avant le signe d'égalité. Si plusieurs termes constants sont dans le membre de gauche, seul le dernier est pris en compte :
+Le membre de gauche peut contenir un terme constant. Dans ce cas, quel que soit l'endroit où il a été écrit dans ce membre, il sera affiché en dernière position, c'est-à-dire juste avant le signe d'égalité :
\exemple{Terme constant dans le membre de gauche}/\systeme{2x+3y=0,
-x-z+9=0,
-2+3x+5-y-7+z=0}/
+ x-z+9=0,
+ 2+3x+5-y-7+z=0}/
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}/
+ 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}/
-La commande \verb-\systeme- permet d'utiliser les commandes \og\verb-\+-\fg{} et \og\verb+\-+\fg{} pour échapper \og\verb|+|\fg{} et \og\verb|-|\fg{}, au cas où les coefficients doivent contenir ces signes, pour éviter qu'ils ne soient compris comme la fin d'un terme :
+La commande \verb-\systeme- permet d'utiliser les commandes \verb-\+- et \verb+\-+ pour échapper «\verb-+-» et «\verb+-+», au cas où les coefficients doivent contenir ces signes, pour éviter qu'ils ne soient compris comme la fin d'un terme :
\exemple{Coefficient contenant une addition ou soustraction}/\systeme{(2\+\sqrt2)x-(1\-\sqrt2)y=1,
-x+(1\+\sqrt2)y=-1}/
+ x+(1\+\sqrt2)y=-1}/
-Lorsqu'elle est suivie d'une \og\verb-*-\fg{}, la commande \verb-\systeme- est dégradée et n'aligne que les signes d'égalité :
+Lorsqu'elle est suivie d'une «\verb-*-», la commande \verb-\systeme- est dégradée et n'aligne que les signes d'égalité :
\exemple{La commande \ttfamily\string\systeme*}/\systeme{3x-4y+z=5,
-5x-3z=1,
-y+z=0}
+ 5x-3z=1,
+ y+z=0}
\systeme*{3x-4y+z=5,
-5x-3z=1,
-y+z=0}/
+ 5x-3z=1,
+ y+z=0}/
\subsection{Choix des délimiteurs}
-Par défaut, les délimiteurs extensibles qui se trouvent à gauche et à droite du système sont ``\verb-\{-'' et ``\verb-.-'' et sont placés après les primitives \verb-\left- et \verb-\right-.
+Par défaut, les délimiteurs extensibles qui se trouvent à gauche et à droite du système sont «\verb-\{-» et «\verb-.-» et sont placés après les primitives \verb-\left- et \verb-\right-.
On peut modifier ces deux délimiteurs via la commande \verb-\sysdelim<delim gauche><delim droit>- :
\exemple{Choix des délimiteurs extensibles}/\systeme{2a+3b=5,3a-b=8}
@@ -205,34 +201,34 @@ On peut modifier ces deux délimiteurs via la commande \verb-\sysdelim<delim gau
\sysdelim{(}{\lfloor}\systeme{2a+3b=5,3a-b=8}/
\subsection{Tri des inconnues}
-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, en tenant compte de leur éventuel indice. Un signe "+" ne sera pas affiché lorsqu'il précède le premier terme d'une équation :
+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, en tenant compte de leur éventuel indice. Un signe «\verb-+-» ne sera pas affiché lorsqu'il précède le premier terme d'une équation :
\exemple{Tri des inconnues}/\systeme{2y+x-3z=4,
-z-y+2x=-1,
--2x+3z-4y=0}
+ z-y+2x=-1,
+ -2x+3z-4y=0}
\systeme{y_2+5y_1-x_1=0,
-y_1-x_1+3y_2=4,
-2x_1-y_2-y_1=-1}/
+ y_1-x_1+3y_2=4,
+ 2x_1-y_2-y_1=-1}/
Lorsque les inconnues sont indicées, elles sont classés alphabétiquement puis dans l'ordre croissant de leur indice.
-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{} :
+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 «$t$» :
\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}/
+ 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, éventuellement indicées, sans aucun espace entre elles, et dans l'ordre où l'on souhaite les voir affichées dans chaque équation.
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}
+ 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}/
+ 2x-y-z+3t=4,
+ 2y+3z+4t=-1,
+ 3x-2z-2t=3}/
Cet argument optionnel implique d'autres fonctionnalités, qui, avec le tri forcé vu juste au dessus, se cumulent toutes. Ainsi, lorsque cet argument optionnel existe et n'est pas vide :
\begin{enumerate}
@@ -247,30 +243,31 @@ Cet argument optionnel implique d'autres fonctionnalités, qui, avec le tri forc
\end{enumerate}
\subsection{Inéquations}
-Dans chaque ligne, le signe susceptible de séparer les deux membres d'une équation est l'un de ceux-ci : \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.
+Dans chaque ligne, le signe susceptible de séparer les deux membres d'une équation est l'un de ceux-ci : \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{https://ctan.org/pkg/amsfonts}{\texttt{\textbf{amsfonts}}} 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}/
+ 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 :
+Pour choisir une autre substitution à «\verb->=-» ou «\verb-<=-» 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 :
+Voici le même système où l'on définit la substitution de «\verb-<=-» avec «\verb-\leqslant-» comme on l'observe à la troisième équation :
\exemple{Redéfinir une substitution}/\sysequivsign{<=}{\leqslant}
+\sysequivsign{>=}{\geqslant}
\systeme{x+y-2z>4,
-2x-y+z\geq-1,
-3x-2y+z<=3}/
+ 2x-y+z>=-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 :
+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é «\verb-~-» 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 :
+Puis, mettons que l'on veuille ensuite remplacer ce nouveau signe par «\verb-\approx-» dans l'affichage final. On devra écrire :
\centerverb/\sysequivsign{~}{\approx}/
En voici l'illustration dans cet exemple :
@@ -282,20 +279,25 @@ Par la suite, on peut supprimer ce signe ou n'importe quel autre déjà existant
\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éfini à 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}/
-Pour qui veut utiliser la virgule régulièrement dans les coefficients, on peut changer définitivement le séparateur par défaut pour n'importe quel autre caractère que l'on placera dans l'argument de la commande \verb-\syseqsep- et écrire par exemple \og\verb/\syseqsep{:}/\fg{} pour choisir \og\verb-:-\fg.
+À 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 «\verb-:-»\footnote{Ici encore, il est possible de choisir un caractère de code de catégorie actif, comme c'est le cas de «\string:» lorsque l'option «\texttt{frenchb}» est spécifiée au package \texttt{babel}.} ce qui permet d'écrire des coefficients décimaux. Le comportement de la virgule est redéfini à 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}/
+Pour qui veut utiliser la virgule régulièrement dans les coefficients, on peut changer définitivement le séparateur par défaut pour n'importe quel autre caractère que l'on placera dans l'argument de la commande \verb-\syseqsep- et écrire par exemple «\verb/\syseqsep{:}/» pour choisir «\verb-:-».
\subsection{Alignement des termes}
Par défaut, les termes dans le membre de gauche sont alignes à droite, tandis que le terme du membre de droite est aligné à gauche. On peut changer ces consignes d'alignement avec la macro \verb|\sysalign{x,y}| où \verb|x| représente la consigne d'alignement des termes du membre de gauche et \verb|y| celle du terme du membre de droite. Ces consignes doivent être «\verb|c|» pour «centré», «\verb|r|» pour alignement à droite (right) ou «\verb|l|» pour gauche (left).
\exemple{Alignement des termes}|\systeme{3x-y=-12,x+4y=3}
- \quad(par défaut, droite/gauche)\par
+ \quad(par défaut, droite/gauche)
+
\sysalign{l,l}\systeme{3x-y=-12,x+4y=3}
- \quad(alignement gauche/gauche)\par
+ \quad(alignement gauche/gauche)
+
\sysalign{r,r}\systeme{3x-y=-12,x+4y=3}
- \quad(alignement droite/droite)\par
+ \quad(alignement droite/droite)
+
\sysalign{l,r}\systeme{3x-y=-12,x+4y=3}
- \quad(alignement gauche/droite)\par
+ \quad(alignement gauche/droite)
+
\sysalign{c,c}\systeme{3x-y=-12,x+4y=3}
\quad(alignement centré/centré)|
@@ -312,46 +314,46 @@ Il est possible d'ajouter une espace avant et après tous les signes \verb|+| et
\systeme{3x-y=-12,x+4y=3}/
\subsection{Colonne supplémentaire}
-Lorsqu'une équation comporte le signe \og\verb-@-\fg{}, tout ce qui se trouve à droite de ce caractère sera mis dans une colonne supplémentaire au fer à gauche qui se trouvera à droite du système, en dernière position.
+Lorsqu'une équation comporte le signe «\verb-@-», tout ce qui se trouve à droite de ce caractère sera mis dans une colonne supplémentaire au fer à gauche qui se trouvera à droite du système, en dernière position.
\exemple{Colonne supplémentaire}/\systeme{x+y=125@L_1,
-x-y=12@L_2}/
+ x-y=12@L_2}/
-Le signe \og\verb-@-\fg{} peut être changé en un autre avec la commande \verb-\sysextracolsign- et on peut écrire par exemple \og\verb/\sysextracolsign{|}/\fg.
+Le signe «\verb-@-» peut être changé en un autre avec la commande \verb-\sysextracolsign- et on peut écrire par exemple «\verb/\sysextracolsign{|}/».
Cette colonne supplémentaire n'est \emph{pas} composée en mode mathématique, mais deux codes sont insérées au début et à la fin de cette colonne. Ils sont définis par :\centerverb/\syscodeextracol{<code début>}{<code fin>}/
-Par défaut, on a \verb-\syscodeextracol{\kern1.5em$}{$}- ce qui signifie qu'un espace horizontal d'1.5em est inséré et le \og\verb-$-\fg{} ouvre le mode mathématique au début de la colonne. Enfin, pour le second argument, \og\verb-$-\fg{} termine le mode math à la fin de la colonne.
+Par défaut, on a \verb-\syscodeextracol{\kern1.5em$}{$}- ce qui signifie qu'un espace horizontal d'1.5em est inséré et le «\verb-$-» ouvre le mode mathématique au début de la colonne. Enfin, pour le second argument, «\verb-$-» termine le mode math à la fin de la colonne.
On va redéfinir ces deux codes pour ne pas se mettre en mode math et mettre un espace de 2.5em :
\exemple{Personnalisation de la colonne supplémentaire}/\syscodeextracol{\kern2.5em }{}
\sysextracolsign{|}
\systeme{x+y=125|somme des deux nombres,
-x-y=12|différence des deux nombres}/
+ x-y=12|différence des deux nombres}/
\subsection{Numérotation automatique}
-La colonne supplémentaire peut être utilisée pour y mettre une numérotation automatique. La première façon de procéder est d'indiquer le schéma que doit prendre cette numérotation automatique à la première ligne, sachant que le caractère \og\verb-*-\fg{} déclenche la mise en place de la numérotation automatique et sera remplacé par le numéro de la ligne dans le système. Les autres lignes, même si elles n'ont pas de colonne supplémentaire, porteront un numéro :
+La colonne supplémentaire peut être utilisée pour y mettre une numérotation automatique. La première façon de procéder est d'indiquer le schéma que doit prendre cette numérotation automatique à la première ligne, sachant que le caractère «\verb-*-» déclenche la mise en place de la numérotation automatique et sera remplacé par le numéro de la ligne dans le système. Les autres lignes, même si elles n'ont pas de colonne supplémentaire, porteront un numéro :
\exemple{Numérotation automatique}/\systeme{x+y-z=3@L_{*},
-2x+y+z=4,
-x-y+2z=0}/
+ 2x+y+z=4,
+ x-y+2z=0}/
Si on souhaite spécifier explicitement des colonnes supplémentaires aux lignes qui n'en ont pas, la numérotation automatique vient \emph{avant} le contenu explicite des colonnes supplémentaires :
\exemple{Numérotation automatique}/\systeme{x+y-z=3@L_{*}\quad,
-2x+y+z=4,
-x-y+2z=0}
+ 2x+y+z=4,
+ x-y+2z=0}
\systeme{x+y-z=3@L'_{*},
-3x+2y=7@=L_1+L_2,
-3x+y=6@=2L_1+L_3}/
+ 3x+2y=7@=L_1+L_2,
+ 3x+y=6@=2L_1+L_3}/
-Il est ennuyeux que l'on ne puisse mettre \og\verb-L'_{*}=L_1-\fg{} à la première ligne car la totalité de ce schéma et notamment la partie indésirable \og\verb-L_1-\fg{} serait reproduite aux lignes suivantes. On peut donc spécifier le schéma de numérotation d'une deuxième façon, \emph{avant} d'écrire le système. On utilise la commande \verb-\sysautonum- dont l'argument contient ce schéma.
+Il est ennuyeux que l'on ne puisse mettre «\verb-L'_{*}=L_1-» à la première ligne car la totalité de ce schéma et notamment la partie indésirable «\verb-L_1-» serait reproduite aux lignes suivantes. On peut donc spécifier le schéma de numérotation d'une deuxième façon, \emph{avant} d'écrire le système. On utilise la commande \verb-\sysautonum- dont l'argument contient ce schéma.
\exemple{Numérotation automatique}/\sysautonum{L_{*}}
\systeme{x+y-z=3,
-2x+y+z=4,
-x-y+2z=0}
+ 2x+y+z=4,
+ x-y+2z=0}
\sysautonum{L'_{*}\longleftarrow}
\systeme{x+y-z=3@L_1,
-3x+2y=7@L_1+L_2,
-3x+y=6@2L_1+L_3}/
+ 3x+2y=7@L_1+L_2,
+ 3x+y=6@2L_1+L_3}/
Le schéma spécifié avec la commande \verb-\sysautonum- n'est valable \emph{que pour le prochain système} et sera effacé ensuite, sauf si on a écrit une étoile juste après la commande \verb-\sysautonum-, auquel cas le schéma de numérotation se poursuit pour tous les systèmes à venir :
\exemple{Numérotation automatique persistante}/\sysautonum*{L_{*}}
@@ -361,34 +363,35 @@ Le schéma spécifié avec la commande \verb-\sysautonum- n'est valable \emph{qu
On peut effacer (et donc annuler) le schéma de numérotation automatique en entrant un argument vide : \verb-\sysautonum{}-.
-Il existe un compteur global\footnote{Il s'agit d'un compteur \TeX{} portant le doux nom de {\ttfamily\string\SYSeqnum}, accessible via les commandes \TeX{} habituelles, c'est-à-dire qu'on peut le faire précéder de \texttt{\string\number}, \texttt{\string\romannumeral} pour l'afficher.} d'équations accessible de la même façon que le compteur local mais avec \og\verb-**-\fg{}. Voici un exemple de numérotation persistante :
+Il existe un compteur global\footnote{Il s'agit d'un compteur \TeX{} portant le doux nom de {\ttfamily\string\SYSeqnum}, accessible via les commandes \TeX{} habituelles, c'est-à-dire qu'on peut le faire précéder de \texttt{\string\number}, \texttt{\string\romannumeral} pour l'afficher.} d'équations accessible de la même façon que le compteur local mais avec «\verb-**-». Voici un exemple de numérotation persistante :
\exemple{Numérotation globale}/On met en évidence que \number\SYSeqnum{}
équations ont été écrites jusqu'ici~:
\sysautonum*{\hbox{eq (**)}}
\systeme{x-y+z=3,
-2x+y+z=1,
-x-z=8}
+ 2x+y+z=1,
+ x-z=8}
\systeme{u+w=9,
-v+2w=0,
-u-v=1}/
+ v+2w=0,
+ u-v=1}/
Il est enfin possible d'utiliser la colonne supplémentaire pour retenir le numéro d'une équation et le rappeler plus tard :
\exemple{Numérotation globale}/\syscodeextracol{\kern1em}{}
\systeme{x-y+z=3@\gdef\foo{**}(\textbf{**}),
- 2x+y+z=1@\gdef\bar{**}(\textbf{**}),
- x-z=8@\gdef\baz{**}(\textbf{**})}
+ 2x+y+z=1@\gdef\bar{**}(\textbf{**}),
+ x-z=8@\gdef\baz{**}(\textbf{**})}
-L'équation \no\foo{} est la première du système,
-\bar{} et \baz{} sont les deux suivantes./
+L'équation \no\foo{} est la première du
+système, \bar{} et \baz{} sont les deux
+suivantes./
-On peut à tout moment réinitialiser le compteur global d'équations à l'aide de \og\verb-\sysreseteqnum-\fg.
+On peut à tout moment réinitialiser le compteur global d'équations à l'aide de «\verb-\sysreseteqnum-».
\subsection{Substitution post traitement}
Juste avant l'affichage du système, il est encore possible de substituer dans le code du système tout caractère par un autre\footnote{Plus exactement, toute \emph{suite de tokens} par une autre.}. Pour cela, la commande \verb-\syssubstitute- agit pour tous les systèmes à venir et son argument est fait de caractères allant par paires; le premier étant le caractère à substituer et le second étant ce par quoi il le sera. Les substitutions définies par \verb-\syssubstitute- viennent \emph{s'ajouter} à celles déjà définies.
-Dans cet exemple, on entre des coefficients décimaux où le point est le séparateur décimal. On va demander à ce que tous les \og\verb-.-\fg{} soient remplacés par des \og\verb-,-\fg{}. On remplacera aussi l'inconnue $a_1$ par $x_n$, et $a_2$ par $x_{n+1}$, ces 3 substitutions étant faites avec \verb-\syssubstitute{.,{a_1}{x_n}{a_2}{x_{n+1}}}- :
+Dans cet exemple, on entre des coefficients décimaux où le point est le séparateur décimal. On va demander à ce que tous les «\verb-.-» soient remplacés par des «\verb-,-». On remplacera aussi l'inconnue $a_1$ par $x_n$, et $a_2$ par $x_{n+1}$, ces 3 substitutions étant faites avec \verb-\syssubstitute{.,{a_1}{x_n}{a_2}{x_{n+1}}}- :
\exemple{Substitution post traitement}/\syssubstitute{.,{a_1}{x_n}{a_2}{x_{n+1}}}
\systeme{1.5a_1-0.5a_2=2,1.6a_1-2a_2=0.4}/
@@ -405,7 +408,7 @@ Voici la liste de toutes les commandes définies par cette extension :
\verb-\syssignspace{dim}-&définit l'espace ajoutée autour des signes dans le membre de gauche\\
\verb-\syseqspace{dim}-&définit l'espace ajoutée autour du signe \verb-=-\\
\verb-\syslineskipcoeff{<coeff>}-&définit le coefficient multiplicateur de \verb-\baselinskip- pour modifier l'espacement vertical des équations\\
-\verb-\+- et \verb|\-|&remplace "+" et "-" lorsqu'on veut éviter d'indiquer un nouveau terme\\
+\verb-\+- et \verb|\-|&remplace «\verb-+-» et «\verb+-+» lorsqu'on veut éviter d'indiquer un nouveau terme\\
\verb-\sysequivsign{<signe>}{<substitution>}-&définit ce par quoi un \verb-<signe>- d'égalité doit être remplacé à l'affichage\\
\verb-\sysaddeqsign{<signe>}-&définit un nouveau signe d'égalité\\
\verb-\sysremoveeqsign{<signe>}-&supprime un signe d'égalité\\
@@ -417,12 +420,4 @@ Voici la liste de toutes les commandes définies par cette extension :
\verb-\syssubstitute{<paires de caractères>}-&ajoute des substitutions à faire dans le code du système avant que celui-ci ne soit affiché\\
\verb-\sysnosubstitute-&supprime toutes les substitutions jusqu'à présent définies\\\hline
\end{longtable}
-
-\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\ldots\ Un \href{mailto:unbonpetit@netc.fr}{\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.tex b/Master/texmf-dist/tex/generic/systeme/systeme.tex
index 60d42a5cbca..eedaf4da1bd 100644
--- a/Master/texmf-dist/tex/generic/systeme/systeme.tex
+++ b/Master/texmf-dist/tex/generic/systeme/systeme.tex
@@ -1,12 +1,12 @@
-% !TeX encoding = ISO-8859-1
+% !TeX encoding = UTF-8
% Ce fichier contient le code de l'extension "systeme"
-%
+
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
\def\SYSname {systeme} %
-\def\SYSver {0.34} %
+\def\SYSver {0.35} %
% %
-\def\SYSdate {2020/05/03} %
+\def\SYSdate {2025/02/16} %
% %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %
@@ -14,9 +14,7 @@
% Status : Maintained %
% Email : unbonpetit@netc.fr %
% Package URL: https://www.ctan.org/pkg/systeme %
-% Bug tracker: https://framagit.org/unbonpetit/systeme/issues %
-% Repository : https://framagit.org/unbonpetit/systeme/tree/master %
-% Copyright : Christian Tellechea 2011-2019 %
+% Copyright : Christian Tellechea 2011-2025 %
% Licence : Released under the LaTeX Project Public License v1.3c %
% or later, see http://www.latex-project.org/lppl.txt %
% Files : 1) systeme.tex %
@@ -29,42 +27,43 @@
\immediate\write-1 {Package: \SYSname\space\SYSdate\space\space v\SYSver\space\space Saisie naturelle de systemes d'equations}%
\fi
-\expandafter\edef\csname SYS_restorecatcode\endcsname{\catcode\number`\_=\number\catcode`\_\relax}
+\expandafter\edef\csname SYS_restore_catcode\endcsname{\catcode\number`\_=\number\catcode`\_\relax}
\catcode`\_11
\begingroup
\catcode`\_8
- \gdef\SYSunder{_}
+ \expandafter\gdef\csname SYS\string_underscore\endcsname{_}
\endgroup
+\def\SYS_antefi#1\fi{\fi#1}
+
\unless\ifdefined\xstringversion
- \def\SYS_nextaction{\input xstring.tex\relax}%
- \expandafter\SYS_nextaction
+ \SYS_antefi\input xstring.tex\relax
\fi
-\newtoks\SYS_systemecode
-\newtoks\SYS_systempreamble
+\newtoks\SYS_code_toks
+\newtoks\SYS_preamble_toks
-\newif\ifSYS_firstterm
-\newif\ifSYS_sortvariable
+\newif\ifSYS_first_term
+\newif\ifSYS_sort_variable
\newif\ifSYS_star
-\newif\ifSYS_extracol
+\newif\ifSYS_extra_col
\newif\ifSYS_autonum
-\newif\ifSYS_followautonum
-\newif\ifSYS_constterm
+\newif\ifSYS_follow_autonum
+\newif\ifSYS_const_term
\newcount\SYSeqnum
-\long\def\SYS_execarg#1{#1}
-\long\def\SYS_gobtwoargs#1#2{}
+\long\def\SYS_id#1{#1}
+\long\def\SYS_gobtwo#1#2{}
\def\SYS_addtotok#1#2{#1\expandafter{\the#1#2}}
-\def\SYS_xaddtotok#1#2{\SYS_expaddtotok#1{\expanded{#2}}}
-\def\SYS_expaddtotok#1#2{\xs_exparg{\SYS_addtotok#1}{#2}}
-\def\SYS_addtotab{\SYS_addtotok\SYS_systemecode}
+\def\SYS_xaddtotok#1#2{\SYS_eaddtotok#1{\expanded{#2}}}
+\def\SYS_eaddtotok#1#2{\xs_exparg{\SYS_addtotok#1}{#2}}
+\def\SYS_add_to_tab{\SYS_addtotok\SYS_code_toks}
\def\SYS_cslet#1{\expandafter\let\csname#1\endcsname}
\def\SYS_letcs#1#2{\expandafter\let\expandafter#1\csname#2\endcsname}
-\def\SYS_firstinlist#1,#2\_nil{#1}
-\def\SYS_removefirstinlist#1,{}
+\def\SYS_first_in_list#1,#2\_nil{#1}
+\def\SYS_remove_first_in_list#1,{}
\def\SYS_ifinstr#1#2{%
\def\SYS_ifinstr_i##1#2##2\_nil{\xs_ifempty{##2}\xs_execsecond\xs_execfirst}%
\SYS_ifinstr_i#1\__nil#2\_nil
@@ -75,62 +74,68 @@
\normalbaselineskip=12pt
\fi
-% définit ce qu'est le séparateur des équations par défaut
-\def\syseqsep{\def\SYS_defaulteqsep}
+% définit ce qu'est le séparateur des équations par défaut
+\def\syseqsep{\def\SYS_default_eq_sep}
\syseqsep{,}
-% définit le coefficient pour l'espacement interligne
-\def\syslineskipcoeff{\def\SYS_lineskipcoeff}
+% définit le coefficient pour l'espacement interligne
+\def\syslineskipcoeff{\def\SYS_lineskip_coeff}
\syslineskipcoeff{1.25}
-% définit le signe qui marquera une colonne supplémentaire à droite du tableau
-\def\sysextracolsign{\def\SYS_extracolsign}
-\xs_exparg\sysextracolsign{\string @}% on définit l'arobas avec le bon catcode.
+% définit le signe qui marquera une colonne supplémentaire à droite du tableau
+\def\sysextracolsign{\def\SYS_extra_col_sign}
+\xs_exparg\sysextracolsign{\string @}% on définit l'arobas avec le bon catcode.
-% définit ce qui sera inséré au début et à la fin de la colonne supplémentaire
-\def\syscodeextracol#1#2{\def\SYS_extracolstart{#1}\def\SYS_extracolend{#2}}
+% définit ce qui sera inséré au début et à la fin de la colonne supplémentaire
+\def\syscodeextracol#1#2{%
+ \def\SYS_extra_col_start{#1}
+ \def\SYS_extra_col_end{#2}%
+}
\syscodeextracol{\kern1.5em$}{$}
\def\sysreseteqnum{\global\SYSeqnum0 }
-% définit l'autonumérotation
+% définit l'autonumérotation
\def\sysautonum{%
\xs_ifstar
- {\SYS_followautonumtrue\SYS_autonum}
- {\SYS_followautonumfalse\SYS_autonum}%
+ {\SYS_follow_autonumtrue\SYS_autonum}
+ {\SYS_follow_autonumfalse\SYS_autonum}%
}
\def\SYS_autonum#1{%
\xs_ifempty{#1}
- {\SYS_extracolfalse
+ {%
+ \SYS_extra_colfalse
\SYS_autonumfalse
}
- {\SYS_extracoltrue
+ {%
+ \SYS_extra_coltrue
\SYS_autonumtrue
- \def\SYS_autonumarg{#1}%
+ \def\SYS_autonum_arg{#1}%
}%
}
-% dimension qui sera ajoutée à la hauteur et à la profondeur du strutup ou strutdown
-% inséré à la première et la dernière équation
-\def\SYS_extrastrutdim{1.5pt}
+% dimension qui sera ajoutée à la hauteur et à la profondeur du strutup ou strutdown
+% inséré à la première et la dernière équation
+\def\SYS_dim_extrastrut{1.5pt}
-% liste des signes devant être compris comme signe d'égalité séparant les 2 membres de l'équation
-\def\SYS_equalsignlist{<=,>=,=,<,>,\leq,\geq,\leqslant,\geqslant}
+% liste des signes devant être compris comme signe d'égalité séparant les 2 membres de l'équation
+\def\SYS_equal_sign_list{<=,>=,=,<,>,\leq,\geq,\leqslant,\geqslant}
\def\sysaddeqsign#1{%
\saveexpandmode\expandarg
- \IfSubStr{\expandafter,\SYS_equalsignlist,}{,#1,}
+ \IfSubStr{\expandafter,\SYS_equal_sign_list,}{,#1,}
{}
- {\xs_exparg{\def\SYS_equalsignlist}{\SYS_equalsignlist,#1}}%
+ {\xs_exparg{\def\SYS_equal_sign_list}{\SYS_equal_sign_list,#1}}%
\restoreexpandmode
}
-% enlève l'item #2 de la sc #1 qui contient une liste
-\def\SYS_removeiteminlist#1#2{%
+% enlève l'item #2 de la sc #1 qui contient une liste
+\def\SYS_remove_item_in_list#1#2{%
\saveexpandmode\expandarg
\IfSubStr{\expandafter,#1,}{,#2,}
- {\StrSubstitute{\expandafter\_nil\expandafter,#1,\_nil}{,#2,},[#1]%
+ {%
+ \StrSubstitute{\expandafter\_nil\expandafter,#1,\_nil}{,#2,},[#1]%
\StrDel#1{\noexpand\_nil,}[#1]%
\StrDel#1{,\_nil}[#1]%
}%
@@ -139,399 +144,462 @@
}
\def\sysremoveeqsign#1{%
- \SYS_removeiteminlist\SYS_equalsignlist{#1}%
- \SYS_removeiteminlist\SYS_equivsignlist{#1}%
+ \SYS_remove_item_in_list\SYS_equal_sign_list{#1}%
+ \SYS_remove_item_in_list\SYS_equiv_sign_list{#1}%
}
-% définit le signe d'égalité #1 comme devant être remplacé par #2 lors de l'affichage
+% définit le signe d'égalité #1 comme devant être remplacé par #2 lors de l'affichage
\def\sysequivsign#1#2{%
- \IfSubStr\SYS_equivsignlist{\noexpand#1,}
+ \IfSubStr\SYS_equiv_sign_list{\noexpand#1,}
{}
- {\xs_exparg{\def\SYS_equivsignlist}{\SYS_equivsignlist#1,}}%
+ {\xs_exparg{\def\SYS_equiv_sign_list}{\SYS_equiv_sign_list#1,}}%
\expandafter\def\csname SYS_equivsign_\string#1\endcsname{#2}%
}
-\def\SYS_equivsignlist{}
+\def\SYS_equiv_sign_list{}
\sysequivsign{<=}\leq
\sysequivsign{>=}\geq
-\def\syssignspace#1{\edef\SYS_signspace{\ifdim#1=0pt \else\hskip\dimexpr#1\relax\fi}}
-\def\syseqspace#1{\edef\SYS_eqspace{\ifdim#1=0pt \else\hskip\dimexpr#1\relax\fi}}
+\def\syssignspace#1{\edef\SYS_sign_space{\ifdim#1=0pt \else\hskip\dimexpr#1\relax\fi}}
+\def\syseqspace#1{\edef\SYS_equal_space{\ifdim#1=0pt \else\hskip\dimexpr#1\relax\fi}}
\syssignspace{0pt}
\syseqspace{0pt}
-\def\SYS_firsttonil#1#2\_nil{#1}
-\def\SYS_firstletter#1#2{\string#1\expandafter\SYS_firsttonil\detokenize{#2.}\_nil}
+\def\SYS_first_to_nil#1#2\_nil{#1}
+\def\SYS_first_letter#1#2{\string#1\expandafter\SYS_first_to_nil\detokenize{#2.}\_nil}
\def\sysalign#1{%
- \xs_ifempty{#1}{\sysalign_i r}{\sysalign_i#1},l,\_nil
+ \xs_ifempty{#1}
+ {\sysalign_i r}
+ {\sysalign_i#1},l,\_nil
}
\def\sysalign_i#1,#2,#3\_nil{%
\let\SYS_leftright\hfil
- \if\SYS_firstletter c{#1}\let\SYS_leftleft\hfil \else
- \if\SYS_firstletter l{#1}\let\SYS_leftleft\empty\else
- \let\SYS_leftleft\hfil \let\SYS_leftright\empty\fi\fi
+ \if\SYS_first_letter c{#1}%
+ \let\SYS_leftleft\hfil
+ \else
+ \if\SYS_first_letter l{#1}%
+ \let\SYS_leftleft\empty
+ \else
+ \let\SYS_leftleft\hfil
+ \let\SYS_leftright\empty
+ \fi
+ \fi
\let\SYS_rightleft\hfil
- \if\SYS_firstletter c{#2}\let\SYS_rightright\hfil \else
- \if\SYS_firstletter r{#2}\let\SYS_rightright\empty \else
- \let\SYS_rightleft\empty \let\SYS_rightright\hfil\fi\fi
+ \if\SYS_first_letter c{#2}%
+ \let\SYS_rightright\hfil
+ \else
+ \if\SYS_first_letter r{#2}%
+ \let\SYS_rightright\empty
+ \else
+ \let\SYS_rightleft\empty
+ \let\SYS_rightright\hfil
+ \fi
+ \fi
}
\sysalign{r,l}
-% #1 est l'équation courante. La macro la sépare en 2 membres -> \SYS_leftmember et \SYS_rightmember
-% le signe de séparation entre les 2 membres se trouve dans \SYS_currenteqsign
-\def\SYS_splitinmembers#1{%
- \def\SYS_leftmember{#1}%
- \let\SYS_currenteqsign\empty
- \let\SYS_rightmember\empty
- \xs_exparg\SYS_splitinmembers_i{\SYS_equalsignlist,}% parcourt \SYS_equalsignlist pour séparer en 2 membres
- \IfSubStr{\expandafter,\SYS_equivsignlist}{\expandafter,\SYS_currenteqsign,}% si le signe est dans la liste des substitutions
- {\SYS_letcs\SYS_currenteqsign{SYS_equivsign_\detokenize\expandafter{\SYS_currenteqsign}}}% le remplacer
+% #1 est l'équation courante. La macro la sépare en 2 membres -> \SYS_left_member et \SYS_right_member
+% le signe de séparation entre les 2 membres se trouve dans \SYS_current_eq_sign
+\def\SYS_split_in_members#1{%
+ \def\SYS_left_member{#1}%
+ \let\SYS_current_eq_sign\empty
+ \let\SYS_right_member\empty
+ \xs_exparg\SYS_split_in_members_i{\SYS_equal_sign_list,}% parcourt \SYS_equal_sign_list pour séparer en 2 membres
+ \IfSubStr{\expandafter,\SYS_equiv_sign_list}{\expandafter,\SYS_current_eq_sign,}% si le signe est dans la liste des substitutions
+ {\SYS_letcs\SYS_current_eq_sign{SYS_equivsign_\detokenize\expandafter{\SYS_current_eq_sign}}}% le remplacer
{}%
}
-% #1 est la liste des signes d'égalité
-\def\SYS_splitinmembers_i#1{%
+% #1 est la liste des signes d'égalité
+\def\SYS_split_in_members_i#1{%
\xs_ifempty{#1}
{}
- {\IfSubStr\SYS_leftmember{\SYS_firstinlist#1\_nil}% si l'équation contient un des signes
- {\xs_exparg{\def\SYS_currenteqsign}{\SYS_firstinlist#1\_nil}% sauvagarde le signe
- \StrBehind\SYS_leftmember\SYS_currenteqsign[\SYS_rightmember]% procède à la séparation
- \StrBefore\SYS_leftmember\SYS_currenteqsign[\SYS_leftmember]% en deux membres
+ {%
+ \IfSubStr\SYS_left_member{\SYS_first_in_list#1\_nil}% si l'équation contient un des signes
+ {%
+ \xs_exparg{\def\SYS_current_eq_sign}{\SYS_first_in_list#1\_nil}% sauvagarde le signe
+ \StrBehind\SYS_left_member\SYS_current_eq_sign[\SYS_right_member]% procède à la séparation
+ \StrBefore\SYS_left_member\SYS_current_eq_sign[\SYS_left_member]% en deux membres
}%
- {\xs_exparg\SYS_splitinmembers_i{\SYS_removefirstinlist#1}% sinon, recommencer en enlevant le 1er signe
+ {%
+ \xs_exparg\SYS_split_in_members_i{\SYS_remove_first_in_list#1}% sinon, recommencer en enlevant le 1er signe
}%
}%
}
-% analyse une équation et la découpe en termes et signes
-\def\SYS_spliteqinterms#1{%
- \IfSubStr{\noexpand#1}\SYS_extracolsign% y a t-il un signe de colonne supplémentaire ?
- {\StrBefore{\noexpand#1}\SYS_extracolsign[\SYS_leftmember]%
- \StrBehind{\noexpand#1}\SYS_extracolsign[\SYS_rightmember]%
- \SYS_cslet{SYS_extracol_\SYS_eqnumber}\SYS_rightmember
- \SYS_extracoltrue
+% analyse une équation et la découpe en termes et signes
+\def\SYS_split_eq_in_terms#1{%
+ \IfSubStr{\noexpand#1}\SYS_extra_col_sign% y a t-il un signe de colonne supplémentaire ?
+ {%
+ \StrBefore{\noexpand#1}\SYS_extra_col_sign[\SYS_left_member]%
+ \StrBehind{\noexpand#1}\SYS_extra_col_sign[\SYS_right_member]%
+ \SYS_cslet{SYS_extra_col_\SYS_eqnumber}\SYS_right_member
+ \SYS_extra_coltrue
}%
- {\def\SYS_leftmember{#1}%
+ {%
+ \def\SYS_left_member{#1}%
}%
- \xs_exparg\SYS_splitinmembers{\SYS_leftmember}% trouver les membres de gauche et droite et le signe qui les sépare
- \xs_ifx{\SYS_currenteqsign\empty}
+ \xs_exparg\SYS_split_in_members{\SYS_left_member}% trouver les membres de gauche et droite et le signe qui les sépare
+ \xs_ifx{\SYS_current_eq_sign\empty}
{}%
- {\SYS_cslet{SYS_eqsign_\SYS_eqnumber}\SYS_currenteqsign}% stocker ce signe s'il existe
- \IfBeginWith\SYS_leftmember\space
- {\StrGobbleLeft\SYS_leftmember1[\SYS_leftmember]}
+ {\SYS_cslet{SYS_eq_sign_\SYS_eqnumber}\SYS_current_eq_sign}% stocker ce signe s'il existe
+ \IfBeginWith\SYS_left_member\space
+ {\StrGobbleLeft\SYS_left_member1[\SYS_left_member]}
{}% 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_leftmember1\SYS_currentsign\SYS_leftmember
+ \IfBeginWith\SYS_left_member+% amputer le membre de gauche du premier signe et le stocker temporairement s'il existe et sinon...
+ {%
+ \StrSplit\SYS_left_member1\SYS_current_sign\SYS_left_member
}%
- {\IfBeginWith\SYS_leftmember-%
- {\StrSplit\SYS_leftmember1\SYS_currentsign\SYS_leftmember}%
- {\def\SYS_currentsign{+}}% ce signe est "+"
+ {%
+ \IfBeginWith\SYS_left_member-%
+ {\StrSplit\SYS_left_member1\SYS_current_sign\SYS_left_member}%
+ {\def\SYS_current_sign{+}}% ce signe est "+"
}%
- \SYS_spliteqinterms_i1%
- \SYS_cslet{SYS_right_\SYS_eqnumber}\SYS_rightmember
+ \SYS_split_eq_in_terms_i1%
+ \SYS_cslet{SYS_right_\SYS_eqnumber}\SYS_right_member
}
-\def\SYS_spliteqinterms_i#1{%
- \StrPosition\SYS_leftmember+[\SYS_posplus]%
- \StrPosition\SYS_leftmember-[\SYS_posminus]%
- \xs_ifnum{\numexpr\SYS_posplus+\SYS_posminus=0 }% 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é
+\def\SYS_split_eq_in_terms_i#1{%
+ \StrPosition\SYS_left_member+[\SYS_plus_position]%
+ \StrPosition\SYS_left_member-[\SYS_minus_position]%
+ \xs_ifnum{\numexpr\SYS_plus_position+\SYS_minus_position=0 }% il n'y a ni "+" ni "-"
+ {%
+ \let\SYS_current_term\SYS_left_member% prendre tout ce qui reste
+ \SYS_assign_term% et assigner ce dernier terme avec le dernier signe trouvé
}
- {\edef\SYS_nextsign{\ifnum\SYS_posplus=0 -\else\ifnum\SYS_posminus=0 +\else\ifnum\SYS_posplus<\SYS_posminus+\else-\fi\fi\fi}% décider 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ès
- \SYS_assignterm% assigner ce qu'il y a avant avec le dernier signe trouvé
- \let\SYS_currentsign\SYS_nextsign% on continue, le prochain signe devient le signe courant
- \xs_exparg\SYS_spliteqinterms_i{\number\numexpr#1+1}%
+ {%
+ \edef\SYS_next_sign{\ifnum\SYS_plus_position=0 -\else\ifnum\SYS_minus_position=0 +\else\ifnum\SYS_plus_position<\SYS_minus_position+\else-\fi\fi\fi}% décider de ce qu'est le prochain signe
+ \StrBefore\SYS_left_member\SYS_next_sign[\SYS_current_term]% prendre ce qu'il y a avant
+ \StrBehind\SYS_left_member\SYS_next_sign[\SYS_left_member]% et stocker ce qu'il y a ensuite pour après
+ \SYS_assign_term% assigner ce qu'il y a avant avec le dernier signe trouvé
+ \let\SYS_current_sign\SYS_next_sign% on continue, le prochain signe devient le signe courant
+ \xs_exparg\SYS_split_eq_in_terms_i{\number\numexpr#1+1}%
}%
}
-\def\SYS_assignterm{%
- \xs_exparg\SYS_findletter{\SYS_currentterm}% trouver le nom de la variable
- \xs_ifx{\SYS_letterfound\empty}
- {\SYS_consttermtrue
- \ifcsname SYS_term_const_\SYS_eqnumber\endcsname% si terme constant déjà rencontré, l'ajouter à celui qui existe
- \xs_eaddtomacro\SYS_currentsign\SYS_currentterm
- \expandafter\xs_eaddtomacro\csname SYS_term_const_\SYS_eqnumber\endcsname{\SYS_currentsign}%
+\def\SYS_assign_term{%
+ \xs_exparg\SYS_find_letter{\SYS_current_term}% trouver le nom de la variable
+ \xs_ifx{\SYS_letter_found\empty}
+ {%
+ \SYS_const_termtrue
+ \ifcsname SYS_term_const_\SYS_eqnumber\endcsname% si terme constant déjà rencontré, l'ajouter à celui qui existe
+ \xs_eaddtomacro\SYS_current_sign\SYS_current_term
+ \expandafter\xs_eaddtomacro\csname SYS_term_const_\SYS_eqnumber\endcsname{\SYS_current_sign}%
\else
- \SYS_cslet{SYS_sign_const_\SYS_eqnumber}\SYS_currentsign% sinon procéder aux assignations
- \SYS_cslet{SYS_term_const_\SYS_eqnumber}\SYS_currentterm
+ \SYS_cslet{SYS_sign_const_\SYS_eqnumber}\SYS_current_sign% sinon procéder aux assignations
+ \SYS_cslet{SYS_term_const_\SYS_eqnumber}\SYS_current_term
\fi
}
- {\ifcsname SYS_term_\detokenize\expandafter{\SYS_letterfound}_\SYS_eqnumber\endcsname
- \errmessage{Package systeme Error: l'inconnue "\detokenize\expandafter{\SYS_letterfound}" a deja ete trouvee dans l'equation !}%
+ {%
+ \ifcsname SYS_term_\detokenize\expandafter{\SYS_letter_found}_\SYS_eqnumber\endcsname
+ \errmessage{Package systeme Error: l'inconnue "\detokenize\expandafter{\SYS_letter_found}" a deja ete trouvee dans l'equation !}%
\fi
- \ifSYS_sortvariable
- \SYS_insletter\SYS_letterfound% l'insérer si besoin dans la liste ordonnée des variables
+ \ifSYS_sort_variable
+ \SYS_ins_letter\SYS_letter_found% l'insérer si besoin dans la liste ordonnée des variables
\fi
- \SYS_cslet{SYS_sign_\detokenize\expandafter{\SYS_letterfound}_\SYS_eqnumber}\SYS_currentsign% procéder aux assignations
- \SYS_cslet{SYS_term_\detokenize\expandafter{\SYS_letterfound}_\SYS_eqnumber}\SYS_currentterm
+ \SYS_cslet{SYS_sign_\detokenize\expandafter{\SYS_letter_found}_\SYS_eqnumber}\SYS_current_sign% procéder aux assignations
+ \SYS_cslet{SYS_term_\detokenize\expandafter{\SYS_letter_found}_\SYS_eqnumber}\SYS_current_term
}%
}
-% cherche la première lettre minuscule dans #1
-\def\SYS_findletter#1{%
+% cherche la première lettre minuscule dans #1
+\def\SYS_find_letter#1{%
\saveexploremode\exploregroups
- \StrRemoveBraces{#1}[\SYS_currentfindletter]%
- \let\SYS_letterfound\empty
- \SYS_findletter_i
+ \StrRemoveBraces{#1}[\SYS_current_letter]%
+ \let\SYS_letter_found\empty
+ \SYS_find_letter_i
\restoreexploremode
}
-\def\SYS_findletter_i{%
- \StrSplit\SYS_currentfindletter1\SYS_currentchar\SYS_currentfindletter
- \ifSYS_sortvariable% si le tri auto est activé
- \ifcat\relax\expandafter\noexpand\SYS_currentchar
- \let\SYS_nextaction\xs_execsecond% faux si c'est une sc
+\def\SYS_find_letter_i{%
+ \StrSplit\SYS_current_letter1\SYS_current_char\SYS_current_letter
+ \ifSYS_sort_variable% si le tri auto est activé
+ \ifcat\relax\expandafter\noexpand\SYS_current_char
+ \let\SYS_do_next\xs_execsecond% faux si c'est une sc
\else
- \xs_ifnum{\expandafter`\SYS_currentchar<`a }
- {\let\SYS_nextaction\xs_execsecond% pas une lettre minuscule
+ \xs_ifnum{\expandafter`\SYS_current_char<`a }
+ {%
+ \let\SYS_do_next\xs_execsecond% pas une lettre minuscule
}
- {\xs_ifnum{\expandafter`\SYS_currentchar>`z }
- {\let\SYS_nextaction\xs_execsecond% pas une lettre minuscule
+ {%
+ \xs_ifnum{\expandafter`\SYS_current_char>`z }
+ {%
+ \let\SYS_do_next\xs_execsecond% pas une lettre minuscule
}
- {\SYS_testsubscript% tester s'il y a un indice
- \let\SYS_nextaction\xs_execfirst
+ {%
+ \SYS_test_subscript% tester s'il y a un indice
+ \let\SYS_do_next\xs_execfirst
}%
}%
\fi
\else
\noexploregroups
- \IfSubStr\SYS_letterlist\SYS_currentchar% ce qui est trouvé est dans la liste ?
- {\SYS_testsubscript% tester s'il y a un indice après le caractère courant
- \let\SYS_nextaction\xs_execfirst
+ \IfSubStr\SYS_letter_list\SYS_current_char% ce qui est trouvé est dans la liste ?
+ {%
+ \SYS_test_subscript% tester s'il y a un indice après le caractère courant
+ \let\SYS_do_next\xs_execfirst
}%
- {\let\SYS_nextaction\xs_execsecond
+ {%
+ \let\SYS_do_next\xs_execsecond
}%
\exploregroups
\fi
- \SYS_nextaction
- {\let\SYS_letterfound\SYS_currentchar
- \IfSubStr\SYS_letterfound\SYSunder\relax{\xs_eaddtomacro\SYS_letterfound{\SYSunder{-1}}}%
+ \SYS_do_next
+ {%
+ \let\SYS_letter_found\SYS_current_char
+ \IfSubStr\SYS_letter_found\SYS_underscore\relax{\xs_eaddtomacro\SYS_letter_found{\SYS_underscore{-1}}}%
}%
- {\xs_ifx{\SYS_currentfindletter\empty}{}{\SYS_findletter_i}%
+ {%
+ \xs_ifx{\SYS_current_letter\empty}
+ {}
+ {\SYS_find_letter_i}%
}%
}
-% teste si \SYS_currentfindletter commence par "_" et si oui, rajoute les 2 caractères à \SYS_currentchar et les enlève à \SYS_currentfindletter
-\def\SYS_testsubscript{%
+% teste si \SYS_current_letter commence par "_" et si oui, rajoute _ + argument suivant à \SYS_current_char et les enlève à \SYS_current_letter
+\def\SYS_test_subscript{% TODO : à vérifier et à tester
\noexploregroups
- \IfBeginWith\SYS_currentfindletter\SYSunder
- {\StrGobbleLeft\SYS_currentfindletter1[\SYS_currentletterafter]%
- \exploregroups
- \StrRemoveBraces\SYS_currentletterafter[\SYS_currentletterafter]%
- \IfInteger\SYS_currentletterafter
- {\xs_ifnum{\SYS_currentletterafter=-1 }
- {\errmessage{L'indice ne doit pas etre -1.}}
- {}%
- }%
- {\errmessage{L'indice n'est pas un nombre entier !}%
- }%
- \xs_eeaddtomacro\SYS_currentchar{\expandafter\SYSunder\expandafter{\number\SYS_currentletterafter}}% Bug 0.31 -> corrigé 0.32: si espace après l'inbdice : supprimé
+ \IfBeginWith\SYS_current_letter\SYS_underscore
+ {%
+ \xs_eearg{\def\SYS_current_letter}{\expandafter\xs_gobarg\SYS_current_letter}% enlève le "_"
+ \expandafter\SYS_test_subscript_a\SYS_current_letter\_nil
}
{}%
\exploregroups
}
-% insère l'inconnue dans la sc #1 à sa place dans \SYS_letterlist
-\def\SYS_insletter#1{%
- \IfSubStr\SYS_letterlist{#1}%
+\def\SYS_test_subscript_a#1{% #1=indice
+ \IfInteger{#1}
+ {}
+ {\errmessage{L'indice non entier '\detokenize{#1}' est pris comme '\integerpart'.}}%
+ \xs_eeaddtomacro\SYS_current_char{\expandafter\SYS_underscore\expandafter{\integerpart}}%
+ \xs_gobtonil% mange ce qui est après l'indice
+}
+
+
+% insère l'inconnue dans la sc #1 à sa place dans \SYS_letter_list
+\def\SYS_ins_letter#1{%
+ \IfSubStr\SYS_letter_list{#1}%
{}
- {\let\SYS_insunknown#1%
- \StrChar{#1}3[\SYS_insnum]%
- \StrRemoveBraces\SYS_insnum[\SYS_insnum]%
- \StrChar{#1}1[\SYS_currentinsletter]%
- \let\SYS_letterlist_left\empty
- \let\SYS_letterlist_right\SYS_letterlist
- \SYS_insletter_i
+ {%
+ \let\SYS_ins_unknown#1%
+ \StrChar{#1}3[\SYS_ins_num]%
+ \StrRemoveBraces\SYS_ins_num[\SYS_ins_num]%
+ \StrChar{#1}1[\SYS_current_ins_letter]%
+ \let\SYS_letter_list_left\empty
+ \let\SYS_letter_list_right\SYS_letter_list
+ \SYS_ins_letter_i
}%
}
-\def\SYS_insletter_i{%
- \xs_ifx{\SYS_letterlist_right\empty}% l'inconnue viendra à la fin de \SYS_letterlist
- {\xs_eaddtomacro\SYS_letterlist_left\SYS_insunknown
- \let\SYS_letterlist\SYS_letterlist_left
+\def\SYS_ins_letter_i{%
+ \xs_ifx{\SYS_letter_list_right\empty}% l'inconnue viendra à la fin de \SYS_letter_list
+ {%
+ \xs_eaddtomacro\SYS_letter_list_left\SYS_ins_unknown
+ \let\SYS_letter_list\SYS_letter_list_left
}
- {\StrChar\SYS_letterlist_right1[\SYS_currentletter]% la lettre suivante
- \xs_ifnum{\expandafter`\SYS_currentinsletter>\expandafter`\SYS_currentletter\relax}% lettre pas bonne ?
- {\StrSplit\SYS_letterlist_right3\SYS_currentletter\SYS_letterlist_right
- \xs_eaddtomacro\SYS_letterlist_left\SYS_currentletter
- \SYS_insletter_i
+ {%
+ \StrChar\SYS_letter_list_right1[\SYS_currentletter]% la lettre suivante
+ \xs_ifnum{\expandafter`\SYS_current_ins_letter>\expandafter`\SYS_currentletter\relax}% lettre pas bonne ?
+ {%
+ \StrSplit\SYS_letter_list_right3\SYS_currentletter\SYS_letter_list_right
+ \xs_eaddtomacro\SYS_letter_list_left\SYS_currentletter
+ \SYS_ins_letter_i
}% sinon
- {\let\SYS_letterlist_right_right\SYS_letterlist_right
- \let\SYS_letterlist_right_left\empty
- \SYS_insletter_ii%
+ {%
+ \let\SYS_letter_list_right_right\SYS_letter_list_right
+ \let\SYS_letter_list_right_left\empty
+ \SYS_ins_letter_ii%
}%
}%
}
-\def\SYS_insletter_ii{%
- \xs_ifx{\SYS_letterlist_right_right\empty}
- {\let\SYS_letterlist\SYS_letterlist_left
- \xs_eaddtomacro\SYS_letterlist\SYS_letterlist_right_left
- \xs_eaddtomacro\SYS_letterlist\SYS_insunknown
+\def\SYS_ins_letter_ii{%
+ \xs_ifx{\SYS_letter_list_right_right\empty}
+ {%
+ \let\SYS_letter_list\SYS_letter_list_left
+ \xs_eaddtomacro\SYS_letter_list\SYS_letter_list_right_left
+ \xs_eaddtomacro\SYS_letter_list\SYS_ins_unknown
}
- {\StrChar\SYS_letterlist_right_right1[\SYS_currentletter]% la lettre suivante
- \xs_ifnum{\expandafter`\SYS_currentinsletter<\expandafter`\SYS_currentletter\relax}% est elle une autre ?
- {\let\SYS_letterlist\SYS_letterlist_left
- \xs_eaddtomacro\SYS_letterlist\SYS_letterlist_right_left
- \xs_eaddtomacro\SYS_letterlist\SYS_insunknown
- \xs_eaddtomacro\SYS_letterlist\SYS_letterlist_right_right
+ {%
+ \StrChar\SYS_letter_list_right_right1[\SYS_currentletter]% la lettre suivante
+ \xs_ifnum{\expandafter`\SYS_current_ins_letter<\expandafter`\SYS_currentletter\relax}% est elle une autre ?
+ {%
+ \let\SYS_letter_list\SYS_letter_list_left
+ \xs_eaddtomacro\SYS_letter_list\SYS_letter_list_right_left
+ \xs_eaddtomacro\SYS_letter_list\SYS_ins_unknown
+ \xs_eaddtomacro\SYS_letter_list\SYS_letter_list_right_right
}
- {\StrChar\SYS_letterlist_right_right3[\SYS_currentsubscript]% le prochain indice
+ {%
+ \StrChar\SYS_letter_list_right_right3[\SYS_currentsubscript]% le prochain indice
\StrRemoveBraces\SYS_currentsubscript[\SYS_currentsubscript]%
- \xs_ifnum{\SYS_insnum>\SYS_currentsubscript\relax}% est-il le bon, c'est-à-dire trop grand ?
- {\StrSplit\SYS_letterlist_right_right3\SYS_currentletter\SYS_letterlist_right_right
- \xs_eaddtomacro\SYS_letterlist_right_left\SYS_currentletter
- \SYS_insletter_ii
+ \xs_ifnum{\SYS_ins_num>\SYS_currentsubscript\relax}% est-il le bon, c'est-à-dire trop grand ?
+ {%
+ \StrSplit\SYS_letter_list_right_right3\SYS_currentletter\SYS_letter_list_right_right
+ \xs_eaddtomacro\SYS_letter_list_right_left\SYS_currentletter
+ \SYS_ins_letter_ii
}
- {\let\SYS_letterlist\SYS_letterlist_left
- \xs_eaddtomacro\SYS_letterlist\SYS_letterlist_right_left
- \xs_eaddtomacro\SYS_letterlist\SYS_insunknown
- \xs_eaddtomacro\SYS_letterlist\SYS_letterlist_right_right
+ {%
+ \let\SYS_letter_list\SYS_letter_list_left
+ \xs_eaddtomacro\SYS_letter_list\SYS_letter_list_right_left
+ \xs_eaddtomacro\SYS_letter_list\SYS_ins_unknown
+ \xs_eaddtomacro\SYS_letter_list\SYS_letter_list_right_right
}%
}%
}%
}
% reconstruit le code du tableau qui sera dans le \halign
-\def\SYS_buildsystem#1#2{% #1=no ligne, #2=no inconnue
- \StrSplit\SYS_letterlist_tmp3\SYS_currentvariable\SYS_letterlist_tmp
+\def\SYS_build_system#1#2{% #1=no ligne, #2=no inconnue
+ \StrSplit\SYS_letter_list_tmp3\SYS_currentvariable\SYS_letter_list_tmp
\ifcsname SYS_sign_\detokenize\expandafter{\SYS_currentvariable}_#1\endcsname
\xs_eearg\xs_ifx{\csname SYS_sign_\detokenize\expandafter{\SYS_currentvariable}_#1\endcsname+}% signe + ?
- {\xs_ifnum{#2=1 }% première variable ?
- {\xs_gobarg
+ {\xs_ifnum{#2=1 }% première variable ?
+ {%
+ \xs_gobarg
}
- {\ifSYS_firstterm% premier terme de l'équation ?'
+ {%
+ \ifSYS_first_term% premier terme de l'équation ?'
\expandafter\xs_gobarg
\else
- \expandafter\SYS_execarg
+ \expandafter\SYS_id
\fi
}%
}
{\xs_ifnum{#2=1 }
- {\expandafter\def\csname SYS_term_\detokenize\expandafter{\SYS_currentvariable}_#1\expandafter\expandafter\expandafter\endcsname
+ {%
+ \expandafter\def\csname SYS_term_\detokenize\expandafter{\SYS_currentvariable}_#1\expandafter\expandafter\expandafter\endcsname
\expandafter\expandafter\expandafter{%
\csname SYS_sign_\detokenize\expandafter{\SYS_currentvariable}_#1\expandafter\expandafter\expandafter\endcsname
\csname SYS_term_\detokenize\expandafter{\SYS_currentvariable}_#1\endcsname}%
\xs_gobarg
}
- {\SYS_execarg
+ {%
+ \SYS_id
}%
}%
- {%
- \SYS_addtotab{{}}%
- \xs_eearg\SYS_addtotab{\csname SYS_sign_\detokenize\expandafter{\SYS_currentvariable}_#1\endcsname{}}%
- }%
- \SYS_firsttermfalse
+ {%
+ \SYS_add_to_tab{{}}%
+ \xs_eearg\SYS_add_to_tab{\csname SYS_sign_\detokenize\expandafter{\SYS_currentvariable}_#1\endcsname{}}%
+ }%
+ \SYS_first_termfalse
\fi
\unless\ifSYS_star
\xs_ifnum{#2=1 }
{}
- {\SYS_addtotab&}%
+ {\SYS_add_to_tab&}%
\fi
\ifcsname SYS_term_\detokenize\expandafter{\SYS_currentvariable}_#1\endcsname
- \xs_eearg\SYS_addtotab{\csname SYS_term_\detokenize\expandafter{\SYS_currentvariable}_#1\endcsname}%
+ \xs_eearg\SYS_add_to_tab{\csname SYS_term_\detokenize\expandafter{\SYS_currentvariable}_#1\endcsname}%
\fi
\unless\ifSYS_star
- \SYS_addtotab&%
+ \SYS_add_to_tab&%
\fi
- \xs_ifnum{#2<\SYS_numberofvariable\relax}
- {\xs_exparg{\SYS_buildsystem{#1}}{\number\numexpr#2+1}%
+ \xs_ifnum{#2<\SYS_number_of_variable\relax}
+ {%
+ \xs_exparg{\SYS_build_system{#1}}{\number\numexpr#2+1}%
}
- {\ifSYS_constterm
+ {%
+ \ifSYS_const_term
\ifcsname SYS_sign_const_#1\endcsname% si le terme constant existe dans cette ligne
- \SYS_addtotab{{}}%
- \ifSYS_firstterm\else
- \xs_eearg\SYS_addtotab{\csname SYS_sign_const_#1\endcsname}%
+ \SYS_add_to_tab{{}}%
+ \ifSYS_first_term\else
+ \xs_eearg\SYS_add_to_tab{\csname SYS_sign_const_#1\endcsname}%
\fi
- \SYS_addtotab{{}}%
+ \SYS_add_to_tab{{}}%
\unless\ifSYS_star
- \SYS_addtotab&% Bug 0.31 -> corrigé 0.32
+ \SYS_add_to_tab&% Bug 0.31 -> corrigé 0.32
\fi
- \xs_eearg\SYS_addtotab{\csname SYS_term_const_#1\endcsname}%
+ \xs_eearg\SYS_add_to_tab{\csname SYS_term_const_#1\endcsname}%
\else
\unless\ifSYS_star
- \SYS_addtotab&% Bug 0.31 -> corrigé 0.32
+ \SYS_add_to_tab&% Bug 0.31 -> corrigé 0.32
\fi
\fi
- \SYS_addtotab&%
+ \SYS_add_to_tab&%
\fi
- \ifcsname SYS_eqsign_#1\endcsname
- \SYS_addtotab{{}}%
- \xs_eearg\SYS_addtotab{\csname SYS_eqsign_#1\endcsname{}&}%
- \xs_eearg\SYS_addtotab{\csname SYS_right_#1\endcsname}%
+ \ifcsname SYS_eq_sign_#1\endcsname
+ \SYS_add_to_tab{{}}%
+ \xs_eearg\SYS_add_to_tab{\csname SYS_eq_sign_#1\endcsname{}&}%
+ \xs_eearg\SYS_add_to_tab{\csname SYS_right_#1\endcsname}%
\else
- \SYS_addtotab&%
+ \SYS_add_to_tab&%
\fi
\saveexploremode\exploregroups
- \ifcsname SYS_extracol_#1\endcsname
- \SYS_addtotab&%
- \expandafter\IfSubStr\csname SYS_extracol_#1\endcsname{**}% le contenu de l'extra col contient-il "**" ?
- {\SYS_letcs\SYS_autonumarg{SYS_extracol_#1}%
- \StrSubstitute\SYS_autonumarg{**}{\number\numexpr\SYSeqnum+#1-\SYS_eqnumber}[\SYS_currentautonum]%
- \SYS_cslet{SYS_extracol_#1}\SYS_currentautonum
+ \ifcsname SYS_extra_col_#1\endcsname
+ \SYS_add_to_tab&%
+ \expandafter\IfSubStr\csname SYS_extra_col_#1\endcsname{**}% le contenu de l'extra col contient-il "**" ?
+ {%
+ \SYS_letcs\SYS_autonum_arg{SYS_extra_col_#1}%
+ \StrSubstitute\SYS_autonum_arg{**}{\number\numexpr\SYSeqnum+#1-\SYS_eqnumber}[\SYS_current_autonum]%
+ \SYS_cslet{SYS_extra_col_#1}\SYS_current_autonum
\SYS_autonumtrue
}%
- {\expandafter\IfSubStr\csname SYS_extracol_#1\endcsname*% le contenu de l'extra col contient-il "*" ?
- {\SYS_letcs\SYS_autonumarg{SYS_extracol_#1}%
- \StrSubstitute\SYS_autonumarg*{\noexpand#1}[\SYS_currentautonum]%
- \SYS_cslet{SYS_extracol_#1}\SYS_currentautonum
+ {%
+ \expandafter\IfSubStr\csname SYS_extra_col_#1\endcsname*% le contenu de l'extra col contient-il "*" ?
+ {%
+ \SYS_letcs\SYS_autonum_arg{SYS_extra_col_#1}%
+ \StrSubstitute\SYS_autonum_arg*{\noexpand#1}[\SYS_current_autonum]%
+ \SYS_cslet{SYS_extra_col_#1}\SYS_current_autonum
\SYS_autonumtrue
}%
- {\ifSYS_autonum
- \IfSubStr\SYS_autonumarg{**}%
- {\StrSubstitute\SYS_autonumarg{**}{\number\numexpr\SYSeqnum+#1-\SYS_eqnumber}[\SYS_currentautonum]}%
- {\StrSubstitute\SYS_autonumarg*{\noexpand#1}[\SYS_currentautonum]}%
- \xs_exparg\SYS_addtotab\SYS_currentautonum
+ {%
+ \ifSYS_autonum
+ \IfSubStr\SYS_autonum_arg{**}%
+ {\StrSubstitute\SYS_autonum_arg{**}{\number\numexpr\SYSeqnum+#1-\SYS_eqnumber}[\SYS_current_autonum]}%
+ {\StrSubstitute\SYS_autonum_arg*{\noexpand#1}[\SYS_current_autonum]}%
+ \xs_exparg\SYS_add_to_tab\SYS_current_autonum
\fi
}%
}%
- \xs_eearg\SYS_addtotab{\csname SYS_extracol_#1\endcsname}%
+ \xs_eearg\SYS_add_to_tab{\csname SYS_extra_col_#1\endcsname}%
\else% pas d'extra colonne pour cette ligne ?
\ifSYS_autonum% mais si il y un autonum
- \SYS_addtotab&%
- \IfSubStr\SYS_autonumarg{**}%
- {\StrSubstitute\SYS_autonumarg{**}{\number\numexpr\SYSeqnum+#1-\SYS_eqnumber}[\SYS_currentautonum]}%
- {\StrSubstitute\SYS_autonumarg*{\noexpand#1}[\SYS_currentautonum]}%
- \xs_exparg\SYS_addtotab\SYS_currentautonum
+ \SYS_add_to_tab&%
+ \IfSubStr\SYS_autonum_arg{**}%
+ {\StrSubstitute\SYS_autonum_arg{**}{\number\numexpr\SYSeqnum+#1-\SYS_eqnumber}[\SYS_current_autonum]}%
+ {\StrSubstitute\SYS_autonum_arg*{\noexpand#1}[\SYS_current_autonum]}%
+ \xs_exparg\SYS_add_to_tab\SYS_current_autonum
\fi
\fi
\restoreexploremode
\xs_ifnum{#1<\SYS_eqnumber\relax}
- {\SYS_addtotab\cr
- \SYS_firsttermtrue
- \let\SYS_letterlist_tmp\SYS_letterlist
- \xs_exparg\SYS_buildsystem{\number\numexpr#1+1}{1}%
+ {%
+ \SYS_add_to_tab\cr
+ \SYS_first_termtrue
+ \let\SYS_letter_list_tmp\SYS_letter_list
+ \xs_exparg\SYS_build_system{\number\numexpr#1+1}{1}%
}% fin de l'alignement
- {\SYS_addtotab{\SYS_strutdown\cr}%
+ {%
+ \SYS_add_to_tab{\SYS_strutdown\cr}%
}%
}%
}
-% ajoute "_{-1}" à tous les tokens de #1 qui n'ont pas un indice
-\def\SYS_scanletterlist#1{%
- \let\SYS_letterlist\empty
- \def\SYS_lettersremaining{#1}%
- \SYS_scanletterlist_i
+% ajoute "_{-1}" à tous les tokens de #1 qui n'ont pas un indice
+\def\SYS_scan_letter_list#1{%
+ \let\SYS_letter_list\empty
+ \def\SYS_letters_remaining{#1}%
+ \SYS_scan_letter_list_i
}
-\def\SYS_scanletterlist_i{%
- \StrSplit\SYS_lettersremaining1\SYS_currentchar\SYS_lettersremaining
- \xs_eaddtomacro\SYS_letterlist\SYS_currentchar
- \IfBeginWith\SYS_lettersremaining\SYSunder
- {\StrChar\SYS_lettersremaining2[\SYS_currentchar]%
- \StrRemoveBraces\SYS_currentchar[\SYS_currentchar]%
- \xs_eeaddtomacro\SYS_letterlist{\expandafter\SYSunder\expandafter{\SYS_currentchar}}%
- \StrGobbleLeft\SYS_lettersremaining2[\SYS_lettersremaining]%
+\def\SYS_scan_letter_list_i{%
+ \StrSplit\SYS_letters_remaining1\SYS_current_char\SYS_letters_remaining
+ \xs_eaddtomacro\SYS_letter_list\SYS_current_char
+ \IfBeginWith\SYS_letters_remaining\SYS_underscore
+ {%
+ \StrChar\SYS_letters_remaining2[\SYS_current_char]%
+ \StrRemoveBraces\SYS_current_char[\SYS_current_char]%
+ \xs_eeaddtomacro\SYS_letter_list{\expandafter\SYS_underscore\expandafter{\SYS_current_char}}%
+ \StrGobbleLeft\SYS_letters_remaining2[\SYS_letters_remaining]%
}%
- {\xs_eaddtomacro\SYS_letterlist{\SYSunder{-1}}%
+ {%
+ \xs_eaddtomacro\SYS_letter_list{\SYS_underscore{-1}}%
}%
- \xs_ifx{\SYS_lettersremaining\empty}
+ \xs_ifx{\SYS_letters_remaining\empty}
{}
- {\SYS_scanletterlist_i}%
+ {\SYS_scan_letter_list_i}%
}
\def\sysdelim#1#2{\def\SYS_delim_left{\left#1}\def\SYS_delim_right{\right#2}}
@@ -547,132 +615,141 @@
\catcode`\_8
\expandarg\noexploregroups
\setbox0 \hbox{$($}%
- \edef\SYS_strutup {\vrule depth0pt width0pt height\dimexpr\ht0 +\SYS_extrastrutdim\relax}%
- \edef\SYS_strutdown{\vrule height0pt width0pt depth\dimexpr\dp0 +\SYS_extrastrutdim\relax}%
- \SYS_cslet++\SYS_cslet--%
+ \edef\SYS_strutup {\vrule depth0pt width0pt height\the\dimexpr\ht0 +\SYS_dim_extrastrut\relax}%
+ \edef\SYS_strutdown{\vrule height0pt width0pt depth\the\dimexpr\dp0 +\SYS_dim_extrastrut\relax}%
+ \SYS_cslet++%
+ \SYS_cslet--%
\xs_testopt\SYS_systeme_ii{}%
}
\def\SYS_systeme_ii[#1]{%
\xs_ifempty{#1}
- {\let\SYS_letterlist\empty
- \SYS_sortvariabletrue
+ {%
+ \let\SYS_letter_list\empty
+ \SYS_sort_variabletrue
}
- {\SYS_scanletterlist{#1}% ajoute des _{-1} si besoin
- \SYS_sortvariablefalse
+ {%
+ \SYS_scan_letter_list{#1}% ajoute des _{-1} si besoin
+ \SYS_sort_variablefalse
}%
- \SYS_consttermfalse
- \xs_exparg{\xs_testopt\SYS_systeme_iii}{\SYS_defaulteqsep}%
+ \SYS_const_termfalse
+ \xs_exparg{\xs_testopt\SYS_systeme_iii}{\SYS_default_eq_sep}%
}
\def\SYS_systeme_iii[#1]#2{%
\def\SYS_systeme_iv##1#1##2\_nil{%
\xs_ifempty{##1}
- {\SYS_addtotab\cr}% on a une ligne vide
- {\SYS_spliteqinterms{##1}}% analyser l'éq courante
- \xs_ifempty{##2}% tant qu'il reste des équations
+ {\SYS_add_to_tab\cr}% on a une ligne vide
+ {\SYS_split_eq_in_terms{##1}}% analyser l'éq courante
+ \xs_ifempty{##2}% tant qu'il reste des équations
{}
- {\edef\SYS_eqnumber{\number\numexpr\SYS_eqnumber+1}% augmenter de 1 leur nombre
+ {%
+ \edef\SYS_eqnumber{\number\numexpr\SYS_eqnumber+1}% augmenter de 1 leur nombre
\global\advance\SYSeqnum1
\SYS_systeme_iv##2\_nil% recommencer avec ce qu'il reste
}%
}%
\global\advance\SYSeqnum1
\def\SYS_eqnumber{1}%
- \ifdefined\SYS_autonumarg
- \xs_ifx{\SYS_autonumarg\empty}% on initialise que si \SYS_autonumarg est vide
- {\SYS_extracolfalse
+ \ifdefined\SYS_autonum_arg
+ \xs_ifx{\SYS_autonum_arg\empty}% on initialise que si \SYS_autonum_arg est vide
+ {%
+ \SYS_extra_colfalse
\SYS_autonumfalse
}
{}%
\else
- \SYS_extracolfalse
+ \SYS_extra_colfalse
\SYS_autonumfalse
\fi
- \SYS_systeme_iv#2#1\_nil% analyser toutes les équations et en faire des termes et des signes
- \StrCount\SYS_letterlist\SYSunder[\SYS_numberofvariable]%
- \SYS_systemecode{}\SYS_systempreamble{}%
- \xs_exparg\SYS_makesyspreamble{\number\ifSYS_star1\else\SYS_numberofvariable\fi\space}% fabriquer le préambule du \halign
- \SYS_firsttermtrue
- \let\SYS_letterlist_tmp\SYS_letterlist
- \SYS_buildsystem11% construire le système...
- \ifdefined\SYS_substlist
- \xs_ifx{\SYS_substlist\empty}
+ \SYS_systeme_iv#2#1\_nil% analyser toutes les équations et en faire des termes et des signes
+ \StrCount\SYS_letter_list\SYS_underscore[\SYS_number_of_variable]%
+ \SYS_code_toks{}\SYS_preamble_toks{}%
+ \xs_exparg\SYS_preamble{\number\ifSYS_star1\else\SYS_number_of_variable\fi\space}% fabriquer le préambule du \halign
+ \SYS_first_termtrue
+ \let\SYS_letter_list_tmp\SYS_letter_list
+ \SYS_build_system11% construire le système...
+ \ifdefined\SYS_subst_list
+ \xs_ifx{\SYS_subst_list\empty}
{}
- {\edef\SYS_systemcs{\the\SYS_systemecode}%
- \SYS_substlist
- \SYS_systemecode\expandafter{\SYS_systemcs}%
+ {%
+ \edef\SYS_system_cs{\the\SYS_code_toks}%
+ \SYS_subst_list
+ \SYS_code_toks\expandafter{\SYS_system_cs}%
}%
\fi
- \csname SYS_\ifmmode execarg\else entermath\fi\endcsname
- {\SYS_delim_left
+ \csname SYS_\ifmmode id\else enter_math\fi\endcsname
+ {%
+ \SYS_delim_left
\vcenter{%
\lineskiplimit=0pt
\lineskip=0pt
- \baselineskip\SYS_lineskipcoeff\normalbaselineskip
- \halign\expandafter\expandafter\expandafter{\expandafter\the\expandafter\SYS_systempreamble\the\SYS_systemecode}%
+ \baselineskip\SYS_lineskip_coeff\normalbaselineskip
+ \halign\expandafter\expandafter\expandafter{\expandafter\the\expandafter\SYS_preamble_toks\the\SYS_code_toks}%
}%
\SYS_delim_right
}% ...l'afficher en mode math
\endgroup
\ifnum0=`{\fi\iffalse}\fi
- \unless\ifSYS_followautonum
- \ifdefined\SYS_autonumarg
- \let\SYS_autonumarg\empty% annule la numérotation auto
+ \unless\ifSYS_follow_autonum
+ \ifdefined\SYS_autonum_arg
+ \let\SYS_autonum_arg\empty% annule la numérotation auto
\fi
\fi
}
-% Construire le préambule du \halign
-\def\SYS_makesyspreamble#1{%
+% Construire le préambule du \halign
+\def\SYS_preamble#1{%
\begingroup
\setbox0\hbox{${}+{}$}%
- \edef\__{\endgroup\def\noexpand\SYS_signcolumn{\hbox to\the\wd0{\hss$########$\hss}}}% colonne de largeur imposée Bugfix 0.34
- \__
+ \expanded{\endgroup\def\noexpand\SYS_signcolumn{\hbox to\the\wd0{\hss$####$\hss}}}% colonne de largeur imposée Bugfix 0.34
\def\SYS_preamblenum{#1}%
- \SYS_makesyspreamble_i1%
+ \SYS_preamble_i1%
}
-\def\SYS_makesyspreamble_i#1{%
+\def\SYS_preamble_i#1{%
\xs_ifnum{#1<\SYS_preamblenum\relax}% tant qu'il reste des variables
- {\SYS_xaddtotok\SYS_systempreamble{\SYS_leftleft$##$\SYS_leftright&\hfil\SYS_signspace\SYS_signcolumn\SYS_signspace\hfil&}% une colonne pour le terme et une pour le signe (de largeur imposée Bugfix 0.34)
- \xs_exparg\SYS_makesyspreamble_i{\number\numexpr#1+1}%
+ {%
+ \SYS_xaddtotok\SYS_preamble_toks{\SYS_leftleft$##$\SYS_leftright&\hfil\SYS_sign_space\SYS_signcolumn\SYS_sign_space\hfil&}% une colonne pour le terme et une pour le signe (de largeur imposée Bugfix 0.34)
+ \xs_exparg\SYS_preamble_i{\number\numexpr#1+1}%
}
- {\ifSYS_constterm
- \SYS_xaddtotok\SYS_systempreamble{\SYS_leftleft$##$\SYS_leftright&\hfil\SYS_signspace\SYS_signcolumn\SYS_signspace\hfil&}% une colonne pour le terme constant et son signe (de largeur imposée Bugfix 0.34)
+ {%
+ \ifSYS_const_term
+ \SYS_xaddtotok\SYS_preamble_toks{\SYS_leftleft$##$\SYS_leftright&\hfil\SYS_sign_space\SYS_signcolumn\SYS_sign_space\hfil&}% une colonne pour le terme constant et son signe (de largeur imposée Bugfix 0.34)
\fi
- \SYS_xaddtotok\SYS_systempreamble{\SYS_leftleft$##$\SYS_leftright&\hfil\SYS_eqspace$##$\SYS_eqspace\hfil&\SYS_rightleft$##$\SYS_rightright\null}% ajouter 1 colonne pour le signe = et une pour le terme de droite
- \ifSYS_extracol
- \SYS_addtotok\SYS_systempreamble{&\SYS_extracolstart##\SYS_extracolend\hfil\null}% la colonne supplémentaire (pas de mode math)
+ \SYS_xaddtotok\SYS_preamble_toks{\SYS_leftleft$##$\SYS_leftright&\hfil\SYS_equal_space$##$\SYS_equal_space\hfil&\SYS_rightleft$##$\SYS_rightright\null}% ajouter 1 colonne pour le signe = et une pour le terme de droite
+ \ifSYS_extra_col
+ \SYS_addtotok\SYS_preamble_toks{&\SYS_extra_col_start##\SYS_extra_col_end\hfil\null}% la colonne supplémentaire (pas de mode math)
\fi
- \SYS_addtotok\SYS_systempreamble{\cr\SYS_strutup}% ajouter la fin du préambule et le strut de première ligne
+ \SYS_addtotok\SYS_preamble_toks{\cr\SYS_strutup}% ajouter la fin du préambule et le strut de première ligne
}%
}
-\def\SYS_entermath#1{$\relax#1$}
+\def\SYS_enter_math#1{$\relax#1$}
-% définit les substitutions à faire dans le tableau avant l'affichage
+% définit les substitutions à faire dans le tableau avant l'affichage
\def\syssubstitute{%
- \unless\ifdefined\SYS_substlist\let\SYS_substlist\empty\fi
+ \unless\ifdefined\SYS_subst_list\let\SYS_subst_list\empty\fi
\SYS_substitute_i
}
\def\SYS_substitute_i#1{%
\xs_ifempty{#1}
{}
- {\xs_addtomacro\SYS_substlist{\StrSubstitute\SYS_systemcs}%
- \StrChar{\noexpand#1}1[\SYS_currentchar]\StrRemoveBraces\SYS_currentchar[\SYS_currentchar]%
- \xs_eaddtomacro\SYS_substlist{\expandafter{\expandafter\noexpand\SYS_currentchar}}%
- \StrChar{\noexpand#1}2[\SYS_currentchar]\StrRemoveBraces\SYS_currentchar[\SYS_currentchar]%
- \xs_eaddtomacro\SYS_substlist{\expandafter{\expandafter\noexpand\SYS_currentchar}[\SYS_systemcs]}%
- \xs_exparg\SYS_substitute_i{\SYS_gobtwoargs#1}%
+ {%
+ \xs_addtomacro\SYS_subst_list{\StrSubstitute\SYS_system_cs}%
+ \StrChar{\noexpand#1}1[\SYS_current_char]\StrRemoveBraces\SYS_current_char[\SYS_current_char]%
+ \xs_eaddtomacro\SYS_subst_list{\expandafter{\expandafter\noexpand\SYS_current_char}}%
+ \StrChar{\noexpand#1}2[\SYS_current_char]\StrRemoveBraces\SYS_current_char[\SYS_current_char]%
+ \xs_eaddtomacro\SYS_subst_list{\expandafter{\expandafter\noexpand\SYS_current_char}[\SYS_system_cs]}%
+ \xs_exparg\SYS_substitute_i{\SYS_gobtwo#1}%
}%
}
% annule les substitutions
-\def\sysnosubstitute{\let\SYS_substlist\empty}
+\def\sysnosubstitute{\let\SYS_subst_list\empty}
-\SYS_restorecatcode
+\SYS_restore_catcode
\endinput
@@ -681,49 +758,53 @@
######################################################################
v0.1 27/02/2011
- - Première version publique sur le CTAN.
+ - Première version publique sur le CTAN.
----------------------------------------------------------------------
v0.2 08/03/2011
- Le premier argument optionnel met en place de nouvelles
- fonctionnalités.
- - Possibilité d'avoir des inconnues indicées.
- - Mise en place d'une colonne supplémentaire et d'une
- numérotation automatique.
- - La commande étoilée \systeme* dégrade l'alignement pour ne
- plus prendre en compte que les signes d'égalité.
+ fonctionnalités.
+ - Possibilité d'avoir des inconnues indicées.
+ - Mise en place d'une colonne supplémentaire et d'une
+ numérotation automatique.
+ - La commande étoilée \systeme* dégrade l'alignement pour ne
+ plus prendre en compte que les signes d'égalité.
- Une substitution est possible en fin de traitement, juste
- avant d'afficher le système.
+ avant d'afficher le système.
----------------------------------------------------------------------
v0.2a 15/05/2011
- - Bug corrigé lorsque les termes comportent des accolades.
+ - Bug corrigé lorsque les termes comportent des accolades.
----------------------------------------------------------------------
v0.2b 23/06/2011
- - La commande \setdelim permet de modifier les délimiteurs
- extensibles placés de part et d'autre du système.
+ - La commande \setdelim permet de modifier les délimiteurs
+ extensibles placés de part et d'autre du système.
----------------------------------------------------------------------
v0.3 21/12/2013
- Un terme constant est permis dans le membre de gauche.
----------------------------------------------------------------------
v0.31 01/01/2018
- - Il manquait un "&" après le terme constant, merci à Thomas Soll
- de l'avoir signalé.
+ - Il manquait un "&" après le terme constant, merci à Thomas Soll
+ de l'avoir signalé.
----------------------------------------------------------------------
v0.32 13/01/2019
- - Correction d'un bug : les espaces étaient pris en compte dans
+ - Correction d'un bug : les espaces étaient pris en compte dans
les noms des termes.
- - Correction d'un bug : si version étoilée et terme constant dans
- membre de gauche, défaut d'alignement.
+ - Correction d'un bug : si version étoilée et terme constant dans
+ membre de gauche, défaut d'alignement.
- Nettoyage du code.
----------------------------------------------------------------------
v0.33 13/04/2020
- - possibilité de choisir un espacement avant et après les signes
- + et - avec \syssignspace{<skip>}. De même pour = avec
+ - possibilité de choisir un espacement avant et après les signes
+ + et - avec \syssignspace{<skip>}. De même pour = avec
\syseqspace{<skip>}
- - possibilité de choisir l'alignement des colonnes des termes à
- gauche du signe = et celle à droite avec \sysalign{x,y} où
+ - possibilité de choisir l'alignement des colonnes des termes à
+ gauche du signe = et celle à droite avec \sysalign{x,y} où
x et y sont "c", "r", ou "l"
----------------------------------------------------------------------
v0.34 3/05/2020
- bugfix : la largeur des colonnes contenant les signes est
- désormais imposée (évite une incohérence à l'affichage en cas
- de colonne vide) \ No newline at end of file
+ désormais imposée (évite une incohérence à l'affichage en cas
+ de colonne vide)
+----------------------------------------------------------------------
+v0.35 16/02/2025
+ - bugfix : ce qui est après un indice est correctement pris en
+ compte \ No newline at end of file