diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/xint/xintgcd.sty')
-rw-r--r-- | Master/texmf-dist/tex/generic/xint/xintgcd.sty | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/Master/texmf-dist/tex/generic/xint/xintgcd.sty b/Master/texmf-dist/tex/generic/xint/xintgcd.sty index 288daeae9d5..a6e141b3084 100644 --- a/Master/texmf-dist/tex/generic/xint/xintgcd.sty +++ b/Master/texmf-dist/tex/generic/xint/xintgcd.sty @@ -22,7 +22,7 @@ %% in the same archive or directory.) %% %%---------------------------------------------------------------- -%% The xint bundle (version 1.09f of November 4, 2013) +%% The xint bundle (version 1.09g of November 22, 2013) %% xintgcd: Euclidean algorithm with xint package %% Copyright (C) 2013 by Jean-Francois Burnol %%---------------------------------------------------------------- @@ -105,7 +105,7 @@ \XINTsetupcatcodes% \XINT_providespackage \ProvidesPackage{xintgcd}% - [2013/11/04 v1.09f Euclide algorithm with xint package (jfB)]% + [2013/11/22 v1.09g Euclide algorithm with xint package (jfB)]% \def\xintGCD {\romannumeral0\xintgcd }% \def\xintgcd #1% {% @@ -447,15 +447,15 @@ \edef\A{\U2}\edef\B{\U4}\edef\N{\U1}% \setbox 0 \vbox{\halign {$##$\cr \A\cr \B \cr}}% \noindent - \count 255 1 + \XINT_count 1 \loop - \hbox to \wd 0 {\hfil$\U{\numexpr 2*\count 255\relax}$}% - ${} = \U{\numexpr 2*\count 255 + 3\relax} - \times \U{\numexpr 2*\count 255 + 2\relax} - + \U{\numexpr 2*\count 255 + 4\relax}$% - \ifnum \count 255 < \N + \hbox to \wd 0 {\hfil$\U{\numexpr 2*\XINT_count\relax}$}% + ${} = \U{\numexpr 2*\XINT_count + 3\relax} + \times \U{\numexpr 2*\XINT_count + 2\relax} + + \U{\numexpr 2*\XINT_count + 4\relax}$% + \ifnum \XINT_count < \N \hfill\break - \advance \count 255 1 + \advance \XINT_count 1 \repeat \par \endgroup @@ -468,24 +468,24 @@ \xintAssignArray\xintBezoutAlgorithm {#1}{#2}\to\BEZ \edef\A{\BEZ2}\edef\B{\BEZ6}\edef\N{\BEZ1}% A = |#1|, B = |#2| \setbox 0 \vbox{\halign {$##$\cr \A\cr \B \cr}}% - \count 255 1 + \XINT_count 1 \loop \noindent - \hbox to \wd 0 {\hfil$\BEZ{4*\count 255 - 2}$}% - ${} = \BEZ{4*\count 255 + 5} - \times \BEZ{4*\count 255 + 2} - + \BEZ{4*\count 255 + 6}$\hfill\break - \hbox to \wd 0 {\hfil$\BEZ{4*\count 255 +7}$}% - ${} = \BEZ{4*\count 255 + 5} - \times \BEZ{4*\count 255 + 3} - + \BEZ{4*\count 255 - 1}$\hfill\break - \hbox to \wd 0 {\hfil$\BEZ{4*\count 255 +8}$}% - ${} = \BEZ{4*\count 255 + 5} - \times \BEZ{4*\count 255 + 4} - + \BEZ{4*\count 255 }$ + \hbox to \wd 0 {\hfil$\BEZ{4*\XINT_count - 2}$}% + ${} = \BEZ{4*\XINT_count + 5} + \times \BEZ{4*\XINT_count + 2} + + \BEZ{4*\XINT_count + 6}$\hfill\break + \hbox to \wd 0 {\hfil$\BEZ{4*\XINT_count +7}$}% + ${} = \BEZ{4*\XINT_count + 5} + \times \BEZ{4*\XINT_count + 3} + + \BEZ{4*\XINT_count - 1}$\hfill\break + \hbox to \wd 0 {\hfil$\BEZ{4*\XINT_count +8}$}% + ${} = \BEZ{4*\XINT_count + 5} + \times \BEZ{4*\XINT_count + 4} + + \BEZ{4*\XINT_count }$ \endgraf - \ifnum \count 255 < \N - \advance \count 255 1 + \ifnum \XINT_count < \N + \advance \XINT_count 1 \repeat \par \edef\U{\BEZ{4*\N + 4}}% |