up:: 代数学

Swiftで代数学入門 〜 5. 小さな「体」を作ろう - Qiita

もう言ってしまうが、Z_<n>で体を取るのはnが素数の時。
けどそれが正しいかどうかを判定するため、ユークリッド互除法とベズーの等式を使う。

ユークリッド互除法は二つの数の最大公約数を求めるためのアルゴリズム。
一方の数でもう一方を割り、出てきた余りでそのもう一方を再度割り……を繰り返すと、余り0になった時の除数が最大公約数になる。

表記はgcd。これに二つの値を入れ、という風に表示する。
なおgcdはGreatest Common Divisor、つまり最大公約数の略。計算はこう。

{\begin{eqnarray} \bf{1732} &=& 8 &\cdot& \bf{194} &+& 180 \\ 194 &=& 1 &\cdot& 180 &+& 14 \\ 180 &=& 12 &\cdot& 14 &+& 12 \\ 14 &=& 1 &\cdot& 12 &+& 2 \\ 12 &=& 6 &\cdot& \bf{2} &+& 0 \end{eqnarray} }

gcd(a,b), a=x・b+y, ←b2y1, b=0→a

swiftでは余り計算して入れればいいのでもっと楽。
上の計算では余り0でやめるが、プログラムでは除数0まで続けることに注意。

func gcd(a: Z, _ b: Z) -> Z {
    switch b {
    case 0:
        return a
    default:
        return gcd(b, a % b)
    }
}

ちなみにと交換則が成り立つ。
プログラム上でもこれは表現されている。

続いてベズーの等式。
左右に a歩、b歩 進むのを何回か繰り返してれば、いずれスタート地点から右に d=gcd(a,b) 歩進んだところに辿り着ける。
真面目に言うと、 でない整数 に対し、 となる整数 が存在する。

この式に従い、を変形してにする。
このzとyは、ユークリッド互除法を下から解き直して代入していくと定まる。
a=x・b+y → y=a-x・b

{\begin{eqnarray} \bf{2} &=& 14 &-& 1 &\cdot& 12\\ 12 &=& 180 &-& 12 &\cdot& 14\\ 14 &=& 194 &-& 1 &\cdot& 180\\ 180 &=& \bf{1732} &-& 8 &\cdot& \bf{194}\\ \end{eqnarray} }

諸々計算していくと、になる。

さてこのままだと実装できないので、ユークリッド側から漸化式にする。
初項に当たるgcdの中の数をそれぞれgcd(a0,b0)とする。
被除数an、除数bn、n回目の割り算の商をqn、余りをrnとする。

次はbnをrnで割る。
と書いてはいるが、とりあえずn+1の時のaとbを作る。

\begin{eqnarray} a_{n+1} &=& b_n \\ b_{n+1} &=& r_n = a_n - p_n \cdot b_n \end{eqnarray}

あとはbn=0の時のanを求めれば、gcd(a0,b0)を出せる。
ここで漸化式を行列とベクトルの積にして、計算を楽にする。

{\begin{eqnarray} \left( \begin{array}{c} a_{n+1} \\ b_{n+1} \end{array} \right) &=& \left( \begin{array}{c} b_n \\ a_n - p_n \cdot b_n \end{array} \right) \\ \\ &=& \left( \begin{array}{cc} 0 & 1 \\ 1 & -p_n \end{array} \right) \left( \begin{array}{c} a_n \\ b_n \end{array} \right) \end{eqnarray} }

この変換が出来るかどうかは、知識と発想勝負。
あとはbn=0になった時、anがgcd(a0,b0)であることから再変換。bn+1を0と置き、anとbnがa0b0になるまで変換を繰り返して(下がって)いく。

{\begin{eqnarray} \left( \begin{array}{c} a_N \\ 0 \end{array} \right) &=& \left( \begin{array}{cc} 0 & 1 \\ 1 & -p_{N-1} \end{array} \right) \left( \begin{array}{c} a_{N-1} \\ b_{N-1} \end{array} \right) \\ \\ &=& \left( \begin{array}{cc} 0 & 1 \\ 1 & -p_{N-1} \end{array} \right) \left( \begin{array}{cc} 0 & 1 \\ 1 & -p_{N-2} \end{array} \right) \left( \begin{array}{c} a_{N-2} \\ b_{N-2} \end{array} \right) \\ \\ &=&\cdots \\ \\ &=& \left( \begin{array}{cc} 0 & 1 \\ 1 & -p_{N-1} \end{array} \right) \cdots \left( \begin{array}{cc} 0 & 1 \\ 1 & -p_{0} \end{array} \right) \left( \begin{array}{c} a_0 \\ b_0 \end{array} \right) \end{eqnarray} }