[b][size=150][b]このワークシートは[url=https://www.geogebra.org/m/twxxx3yq]Math by Code[/url]の一部です。[br][/b][/size][/b][br][b][size=150]＜整数は環だ。＞[br][/size][/b]整数の集まりをZとかこう。[br]２項演算＋について、[b][u]＜Z、＋＞は群[/u][/b]だったね。[br]・閉性。a,b∈Zならa+b∈Z。[br]・ゼロ、[b][color=#0000ff]ゼロ元[/color][/b]は０∈Z[br]・＋算は結合法則が成り立つ。[br][b]・ｘ∈Zの[color=#0000ff]反数、反元[/color]は１つのだけ -ｘ∈Zがある。[br][/b] (＋算は交換法則が成り立つ。)[br][br]２項演算×について、[b][u]＜Z、×＞は逆元の存在以外OKだから、可換なモノイドと言えるね[/u]。[/b][br]・閉性。a,b∈Zならa×b∈Z。[br]・イチ、[color=#0000ff]イチ元[/color]は１∈Z[br]・×算は結合法則が成り立つ。[br] （×算は交換法則が成り立つ。)[br][b][b]（Z∋[/b]ｘ≠０の逆数、逆元1/xは∉Z。[color=#0000ff]逆元のあるｘのことを単数、単元という。整数では1,-1）[br][/color][br]＋、×についての分配法則が成り立つ。[br][/b]a,b,c∈Zなら(a+b)×c=a×c+b×c[br]整数は加法群・乗法群を分配法則でつなぎ、[b]乗法の逆元の存在には穴がある。[br][/b]穴の空いた２群のつながりだから？[b]＜Z,+,×＞[/b]を[b]環(Ring)と呼ぶのか？[br][/b]でも、指輪のリングではなく、ボクシングのリング・土俵、領域・区域という意味のRingらしい。[br]環は交換法則は標準ではないけれど、たいていが可換環だ。むしろ、非可換環の方がまれかもしれない。[br]だから、環は定義上は可換である必要はないが、たいてい可換なので可換環とはあえて呼ばないようだ。[br]

整数は無定義に語ったけど、[br]ｎ次の[b]多項式K[X[/b]]は、係数の集合をKとしたときのXの最高次数がｎの項の和の式とする。[br]Kが整数ZならZ[X], Kが実数ならR[X]、一般にf[X]のようにかく。[br][b][color=#0000ff]f[X]=Σa[sub]n[/sub]X[sup]n[/sup][/color][/b]と書ける。(an≠0)[br][br][b][size=150]＜多項式も環だ＞[br][/size]実数係数のR[X][/b]を簡単にZと書いてみよう。[br]□２項演算＋について、[b]＜Z、＋＞は群[/b]だ。[br]・閉性。a,b∈Zならa+b∈Z。[br]・ゼロ元は定数項の式０∈Z[br]・＋算は結合法則が成り立つ。[br][b]・ｘ∈Zの半元は１つのだけ -ｘ∈Zがある。[br][/b]（＋算は交換法則が成り立つ。）[br][br]□２項演算×について、[b]＜Z、×＞は逆元の存在以外がOKだ。[br]可換なモノイドだね。[/b][br]・閉性。a,b∈Zならa×b∈Z。[br]・イチ元は定数項の式１∈Z[br]・×算は結合法則が成り立つ。[br]（×算は交換法則が成り立つ。）[br][b]（[b]Z∋[/b]ｘ≠０の逆元1/xは分数式∉Z。単元は０以外の定数）[br][br]□＋、×についての分配法則が成り立つ。[br][/b]a,b,c∈Zなら(a+b)×c=a×c+b×c[br][br]多項式R[X]をZと名前を変えても、同じように[b]環(Ring)になることがわかったね[/b]。[br]

[b][size=150]＜環の用語を確認しよう＞[br][/size][/b][br]環の性質は整数の計算の一般化とも言える。[br]整数、整数計算がもっている面白い性質といえば、何でしょうか？[br][br]倍数、約数の数列を作ったり、最大公約数、最小公倍数[br]さらには素数を見つけたりしたね。[br][br]最小公倍数のもとは、最大公約数だった。[br]そして、最大公約数は連除法もあったけど、ユークリッドの互除法という、割り算の繰り返しから求められた。その根拠は、[b]割り算の余りは割る数よりも小さい正の数[/b]だった。[br][br]この「割り算の原理」が多項式でも成り立つと、[br]多項式にも約数、倍数、GCM,LSM,素数を生み出せるかもしれないね。。。。。。[br][br]環の世界の特殊が整数だということなので、用語を整数から環に言い換えをしておこう。[br]構造的には整数でも環でも同じ意味になりますね。[br][br]整数では約数、倍数というのがあった。これを筆頭に、[br][b]約数、倍数、単数（1,-1)、素数、公約数、最大公約数、互いに素は最大公約数が１、公倍数[br][/b]数を元に変えます。[br][b][color=#0000ff]約元、倍元、単元、素元、公約元、最大公約元、互いに素は最大公約元が単元、公倍元。[br][/color]素数がその数と単数しか約数がない数だった。[br][color=#0000ff]素元はその数と単元しか約元がない要素になるね。[br][br][/color][/b]では、これを多項式の世界に移すとどうなるだろうか。[br]約元は因数分解の[b]因数[/b]だね。[br][b]単元[/b]は０でない数、０以外の定数は、多項式にとってはイチとして見るということだね。[br]素数は[b]既約多項式[/b]。その係数の世界で因数が定数かその式自身しかないということだね。[br]公約元は[b]共通因数[/b]だ。これはよく使っていたでしょう。[br][br][b][size=150]＜普通の整数らしい環が整域＞[/size][/b][br]ｙ≠０のｙに対してｘ＊ｙ＝０となるｘを[b][color=#0000ff]零因子（ゼロ因子）[/color][/b]と呼ぶけれど、[br]整数環の世界ではｘ＝０しかないけれど、集合や演算が変わればゼロ以外のゼロ因子がありうるね。[br][b]整数以外の環の世界ではｘ≠０でも、y≠０に対してｘ＊ｙ＝０になることがある。[br][/b]＜Z６,+,×＞整数のmod 6での剰余の環={0,1,2,3,4,5}の演算では、[br]2×3=0、4×3=0。[br]1×0=0、5×0=0。[br]だから、[br]0はもちろん、ゼロ因子。[br]2,3,4はゼロ以外のゼロ因子だね。[br]1,5はゼロ因子ではない。[br]普通の整数からすると、2×3=0、4×3=0は変な計算ができてしまう環だ。[br][b][color=#0000ff][size=150]普通の整数らしく、[u]ゼロ以外のゼロ因子がない環、変な計算がない環を「整域」[/u]という。[br][/size][/color][/b]環の定義には、「ゼロ以外のゼロ因子がないものとする」という条件がないために[br]環の一般定義を変えずに、整数らしい環を、環の特殊として「整域」というネーミングにしたという[br]流れだと思われる。[br]・整域のよさは計算が変でないということだけではない。[b][color=#0000ff]整域なら、[u]簡約法則[/u]が使える[/color][/b]。[br]たとえば、a*x=b*xのとき、ｘ≠０なら、a=bとカンタンな式に直してよい。[br]それは、0=a*x-b*x=(a-b)*xと変形すると、０以外のゼロ因子がない環、整域なら、[br](a-b)=0のみ、a=bと断言できるというわけだ。[br][br][b][size=150]＜体と整域の関係＞[/size][/b][br]体は環のうち乗法の逆元があるもの、だから、環の特殊の１つと言える。[br]すると、環という一般の中に２つの特殊（体と整域）があるということになるね。[br][br]では、体と整域の関係はどうなるのだろうか？[br]a,b,xが体の要素だとしよう。[br]a*x=b*xで、x≠０ならば、ｘの逆元x-1が存在する。だから、a*x*x-1=b*x*x-1で、a=bとなる。[br]体では、簡約法則が使える。[br]y=a-bとおくとき、x*y=x*(a-b)=0としよう。x≠0ならば、x-1が存在するから、y=0となるので、[br]ゼロでないゼロ因子が存在できない。つまり「[b][color=#0000ff]体ならば整域[/color][/b]」となる。[br]体は整域よりもさらに特殊なもの[br]ということがわかる。[br][br]つまり、[br][b][size=200]環＞整域＞体とだんだんと絞り込まれてきたね。[br][br][/size][/b]逆から見てみると、体（field）が、選ばれた者たちが戦ったり、集ったりできる競技場で、[br]そこに入れない者たちでも対戦したり、つながったりできるのが環（リング）ということか。[br][br]条件を複数クリアした正方形から見たら、長方形もひし形もずっこけているけど、ちゃんと平行四辺形[br]というワクに収まっているのと何か似ている気がするね。

[b][size=150]＜ユークリッド整域は中道？を行く＞[br][/size][/b][br][b][color=#0000ff]ユークリッドの整域[/color][/b]は、[br]ユークリッドの互除法と[br]不定方程式AX+BY=C（CはA,Bの最大公約元Dの倍元）の解法の[br]前提となる[br][color=#0000ff][b][size=150]整除原理「A,B.Q,Rが整域に属するとき、[br]AをBで割った商がQで余りがRのとき、A＝BQ＋R（Rが正でBより小さい）」[br][/size][/b][/color][b]が成り立つ整域[/b]を特にネーミングしたものだ。[br][br]定義上は例えば、こうなる。[br][b][color=#0000ff][size=150]整除原理の一般化した定義[br][/size][/color][/b]　整域＜A,+,×＞の[b][color=#0000ff]各元ｘに非負整数を対応させる高さ関数H(x)があるものをユークリッド整域[/color][/b]という。[br]　・H(x)=0の核は[b]x=0に限る[/b]。[br]　・非ゼロのx,y∈AでH(xy)>=H(x)。「＝」は[b]yが単元に限る[/b]。[br]　・どの非ゼロのx∈Aとどのy∈Aに対しても、q,r∈Aがあり、[b]y=qx+r で、0<=H(r)＜H(x)[/b][br][br]係数の集合を、体R、体C、体Qにすれば、余りRをわる式Bより次数を低いもので求めることができる。[br]ただし、整除原理が成り立っても、逆元の存在は何ら保証しないから、ユークリッド整域は体になれるとは限らない。[br]つまり、[br]整域と体の間にユークリッド整域があるということだね。[br]整域を体にまで狭めなくても、整除原理が成り立てば、最大公約元もたぶん素元分解も一意的にもっていけるから、それで、[b]ユークリッド整域の存在価値[/b]は高いと予想されるでしょう。[br][br][color=#0000ff][b][size=200]環＞整域＞ユークリッド整域＞体だね。[br][/size][/b][/color]

[b][size=150]＜素元分解の一意性＞[/size][/b][br]整数世界の素数は、多項式世界では既約多項式だった。[br]整数が素数の積に一意的に分解できるということは[br]多項式が既約多項式の積に一意的に分解できるということに対応するでしょう。[br][br][b][color=#0000ff][size=150]多項式K[X]がユークリッド整域となるため、[br]元ｘに対する非負整数、高さ関数H(x)：＝ｘの次数＋１[br][/size][/color][/b]と定めてみよう。[br]通常の定数の高さは１，１次式の高さは２、０の高さだけ０。[br]次数を変えない、高さを変えないイチの働きをする多項式は定数。[br]多項式を多項式で割ると、割る数より次数が低い余りが決まる。[br][color=#0000ff]（例）[br][/color]たとえば、f=x+1,g=x+2, h=x[sup]2[/sup]+3x+2, i=x[sup]2[/sup]+2x+1 としよう。[br]単元の高さは1, f,gの高さは2, h,i の高さは３になる。[br]h=f* g, i= f*f から、h, i の公約元、1, f 。（マイナスの場合は略す。 ）[br]最大公約元G=fになる。[br]また、f, gは互いに素。[br]fとiの最小公倍元L= h*i/G=f*g*f*f/f=f*f*fの３次式となり、高さは４になる。[br]１次式を１つかけるたびに次数が１あがり、高さが１増える。[br]だから、高さHが次数＋１という定義は常識にあうね。[br][br]さらに、[br]素元ｐとｐの倍元でないｘとは互いに素だ。互いに素は、最大公約元が単元、高さ１だ。[br]公倍元は最小公倍元Lの倍元だ。公倍元のうち、最小公倍元の高さHが最小の高さである。[br]公約元は最大公約元Gの約元だ。公約元のうち、最大公約元の高さHが最大の高さだ。[br]多項式の公約元は、共通因数だった。[br]a,bの最大公約元Gと最小公倍元Lの間には、ab=eGLが成り立つ。（eはある単元）[br][color=#0000ff]多項式の積商にとって[/color][b]単元倍[/b][color=#0000ff]は些末な違いだから気にしない。[br][/color][b]K[X]のKがZのときは、Zを正の整数に限り、一般に[color=#0000ff]モニックな（最高次の係数が１）[/color]の多項式に限定する[/b][color=#0000ff]とよいね。[br][b]ユークリッド整域では、a,bが互いに素でbcがaの倍元なら、cはaの倍元になる。[br][/b][/color][color=#0000ff](理由）[br][/color]a,bが互いに素なら、Gが単元eというこで、ab=eLとなり、L=abe'[br]bcがaの倍元なら、a,bの倍元だから、bc=kL=abe'k[br]整域だからbで簡約すると、c=ae'kとなり、cはaの倍元となる。[br][color=#0000ff][br]これから、０でも単元でもないどんな元も素元の積で表せる。[br][/color]・整除原理から、単元でない元なら、どの元も素元になるまで割って行くことができる。[br]・素元の積がAとBの２通りになった場合、Aの１素元ｐについてみると、A＝Bはｐの倍元だから、[br]　Bの素元のどれかがｐの倍元か単元倍になる。A、Bのともに素元ｐで割る。この作業を繰り返せば、[br]　A、Bのともに単元の積になる。[br][color=#0000ff]だから、順序と単元倍の差をのぞくと、それは１通りになる。[br][/color]（ただし、これは、存在証明のアルゴリズムであり、構成するアルゴリズムではない。）[br][b][color=#0000ff][size=200]つまり、ユークリッド整域で素元分解は一意的だ。[br][/size][/color][/b][br][color=#9900ff][b][size=150]質問：２つ整数係数の多項式の割り算の商と余りを求めるコードはどうすれば作れますか。[br][/size][/b][/color][br]割り算の関数に適当に名前をつけます。割る方の式はモニックとします。[br]モニックで、高さが２以上でなければ計算せずにメッセージを出すようにします。[br]たとえば、divf(A,B)関数として、A,B,そしてA÷Bの商Q、余りZを返すものとしましょう。[br][br]係数分離法、組立除法の考え方で多項式を係数のリストとして[br]データ化します。すると、最高次の係数がリストの０番目になります。[br]A÷Bのうち、割り算に関係する部分だけX=A,Y=Bとします。[br][b][color=#0000ff]Bの高さ、つまりリストBの長さをh=len(B)[/color]とします。[br][/b]多項式の最大係数が同じなるように、商をたてますから、q=X[0]//Y[0]です。[br]引き算は先頭次[リストのi=0]での係数の差０になりますから、[b]Z=X-Y*qの計算の次数は[リストのi+1番目]から[/b]にします。[br]引き算をするときに、[b]Yの最後の次の位が必要になるので０を補ってから[/b]引き算します。[br]最後の引き算は、Yの最後までだから、[b]範囲をhではなくh-1にして[/b]おきましょう。[br]また、０を立てたあとに、[b]Xの方がサイズが小さくなるときのため、Xに０を補ってから[/b]引き算します。[br][color=#ff0000][b]（※なお、pythonの基本ですが、i in range(h)の範囲は0以上h未満になります。もし、h=3なら、[br]iは0,1,2の３個の数を動きますね。）[/b][/color][br]pop()は補った[0]をけずるための行です。[br]動作確認のために商を立てるごとに余りZを出力しています。[br]その都度のZを次のXとしてX=Zで更新し、YはずっとBのままです。[br][br][IN]Python======================================[br]#多項式の割り算[br]def divf(A, B):[br] h=len(B)[br] X=A[br] Y=B[br] cnt=0[br] Q=[][br] if len(B)<2 or B[0]!=1:[br] print("割る式はモニックで１次式以上にしてください。")[br] return A,B,[],[][br] while cnt<=len(A)-h:[br] q=X[0]//Y[0][br] Q.append(q)[br][b] print(f"{X}-{Y}×({q})",end="")[br][/b] if len(X)> h:[br][b] Y +=[0][br][/b] Z=[X[i+1]-Y[i+1]*q for i in range(h)][br][b] Y.pop()[br][/b] elif len(X)==h :[br] Z=[X[i+1]-Y[i+1]*q for i in range(h-1)][br] else:[br][b] X +=[0][br][/b] Z=[X[i+1]-Y[i+1]*q for i in range(h-1)][br][b] X.pop()[br][/b] X=Z[br][b] print(f"={X}")[br][/b] cnt +=1[br] return A,B,Q,Z[br][br]A,B,Q,R = divf([1,2,0,5],[1,-1,4])[br]print(f"{A}＝{B}×{Q} + {R}")[br]print()[br]A,B,Q,R = divf([-2,0,0,0,0,0],[1,0,-1])[br]print(f"{A}＝{B}×{Q} + {R}")[br]print()[br]A,B,Q,R = divf([1,2],[1,1])[br]print(f"{A}＝{B}×{Q} + {R}")[br]print()[br]A,B,Q,R = divf([1,2,1],[3,3])[br]print(f"{A}＝{B}×{Q} + {R}")[br][br]A,B,Q,R = divf([1,2,1],[3])[br]print(f"{A}＝{B}×{Q} + {R}")[br]A,B,Q,R = divf([1,2,1],[0])[br]print(f"{A}＝{B}×{Q} + {R}")[br]A,B,Q,R = divf([1,2,1],[1,1])[br]print(f"{A}＝{B}×{Q} + {R}")[br]print()#==========================================[br][color=#0000ff][OUT][br][1, 2, 0, 5]-[1, -1, 4]×(1)=[3, -4, 5][br][3, -4, 5]-[1, -1, 4]×(3)=[-1, -7][br][1, 2, 0, 5]＝[1, -1, 4]×[1, 3] + [-1, -7][br][br][-2, 0, 0, 0, 0, 0]-[1, 0, -1]×(-2)=[0, -2, 0][br][0, -2, 0]-[1, 0, -1]×(0)=[-2, 0][br][-2, 0]-[1, 0, -1]×(-2)=[0, -2][br][0, -2]-[1, 0, -1]×(0)=[-2, 0][br][-2, 0, 0, 0, 0, 0]＝[1, 0, -1]×[-2, 0, -2, 0] + [-2, 0][br][br][1, 2]-[1, 1]×(1)=[1][br][1, 2]＝[1, 1]×[1] + [1][br][br]割る式はモニックで１次式以上にしてください。[br][1, 2, 1]＝[3, 3]×[] + [][br]割る式はモニックで１次式以上にしてください。[br][1, 2, 1]＝[3]×[] + [][br]割る式はモニックで１次式以上にしてください。[br][1, 2, 1]＝[0]×[] + [][br][1, 2, 1]-[1, 1]×(1)=[1, 1][br][1, 1]-[1, 1]×(1)=[0][br][1, 2, 1]＝[1, 1]×[1, 1] + [0][/color][br]

[size=150][size=100]ユークリッドの互除法を使うと最大公約数を求めることができましたね。[br]A,Bから[size=150]X=A,Y=Bとし、[/size][もし、Y＞０ならQ=X/Y, R=X-Y*Q、[size=150]X=Y,Y=R[/size] ]を繰り返すと、[br]最後の直前のYつまり、Xが最大公約数になるというアルゴリズムが互除法でした。[br][/size][b][br][color=#9900ff][u]質問：２つ整数係数の多項式の最大公約元を求めるコードはどうすれば作れますか。[br][/u][/color][/b][/size][br]ユークリッドの互除法のアルゴリズムの割り算部分を整数から多項式に置き換えましょう。[br]Y>０というのはY＝RをしたあとのYのことだから、割り算の余りの式Rの係数がすべて０以外です。[br]なので、係数の２乗和が正の間は、割り算を繰りかえしましょう。[br]ただし、せっかく、Yをモニックにしても、割った余りRがモニックでないと、Y＝Rで代入したあとの[br]計算がうまく進みません。そこで、Yがモニックにならなくなったらモニックにする処理を先頭にして[br]おきましょう。[br][IN]Python[br]#============[br]def sqsum(L):[br] return sum([x**2 for x in L])[br]def eucld(A,B):[br] (X,Y) = (B,A) if len(A)0:[br] if Y[0]!=1:[br] print(f"Y={Y} => ",end="")[br] toOne=Y[0][br] Y=[x//toOne for x in Y] [br] print(Y)[br] A,B,Q,R=divf(X,Y)[br] X=Y[br] Y=R[br] return X[br][br]print(eucld([1,2,1],[1,1]))[br]print(eucld([1,2,1],[2,2]))[br]A=[1,2,-1,-2][br]B=[1,-2,-1,2][br]print(eucld(A,B))[br]#=============[br][OUT][br][1, 2, -1, -2]-[1, -2, -1, 2]×(1)=[4, 0, -4][br]Y=[4, 0, -4]==>[1, 0, -1][br][1, -2, -1, 2]-[1, 0, -1]×(1)=[-2, 0, 2][br][-2, 0, 2]-[1, 0, -1]×(-2)=[0, 0][br][1, 0, -1][br]

[IN]python[br]#===============[br]A=[1,0,1,1,1][br]B=[1,0,1][br]print(eucld(A,B))[br][OUT][br]#==========================[br][1, 0, 1, 1, 1]-[1, 0, 1]×(1)=[0, 0, 1][br][0, 0, 1]-[1, 0, 1]×(0)=[0, 1][br][0, 1]-[1, 0, 1]×(0)=[1, 0][br][1, 0, 1]-[1, 0]×(1)=[0, 1][br][0, 1]-[1, 0]×(0)=[1][br]割る式はモニックで１次式以上にしてください。[br][1][br]互いに素になった。

[color=#9900ff][b][u][size=150]質問：geogebraで多項式の割り算や最大公約元を求めるにはどうしたらよいでしょうか。[br][/size][/u][/b][/color][br][b]数式のビューで、[br][/b]Division( <割られる多項式>, <割る多項式> )2つの多項式の除算の商と余りを与える．[br][code]Division(x^2 + 3 x + 1, x - 1)[/code] 出力： [i]{x + 4, 5}[/i].[br][br][b]CASビューで、[br][/b]GCD( <多項式>, <多項式> )2つの多項式の最大公約数を計算する．[br][code]GCD(x^2 + 4 x + 4, x^2 - x - 6)[/code] 出力： [i]x + 2[/i].[br][br]が使えます。[br]これを使ってみよう。[br][br][url=https://geogebra.github.io/docs/manual/ja/commands/%E4%BB%A3%E6%95%B0/]geogebraの代数コマンド[/url]には、整式の約数まで出せたり、複素数の範囲で因数分解できたりと[br]スゴイです。geobebraの技術力は素晴らしい！