[b]このワークシートは[url=https://www.geogebra.org/m/twxxx3yq]Math by Code[/url]の一部です。[br][/b][br][br]ある数の約数を並べたときにその要素どうしに面白い関係性ができる。[br]この関係性は素因数分解を利用して約数の個数や約数の和を求めるときによく利用される。[br]それがハッセの図式だ。[br][br]たとえば、[b][color=#9900ff][size=150]2[sup]2[/sup]*3[sup]2[/sup]*5=180[/size][/color][/b]をハッセ図で視覚化できる。[br][br]これがなかなかピンとこない子どもも多いので、[br]文字列のハッセ図をいろいろ見ることで、しくみを理解しやすくなったらうれしい。[br][br][b][size=150]＜半順序集合＞[br][br]たとえば、文字列”ab"の部分について考えてみよう。[br][/size][/b]A＝{a,b}の部分集合は{a,b},{a},{b},{ }の４つある。[br]BがAの部分であることをA≧Bという記号で表してみよう。[br]「部分である」という関係は３法則[br][b]反射、反対称、推移[/b]のどれも成り立つ。[br]つまり、[br][b]・AはAの部分、[br]・AがBの部分でBがAの部分ならA=B、[br]・AがBの部分でBがCの部分ならAはCの部分[/b]。[br][br]この３ルールに合格する関係性Rを半順序関係と呼ぶことにしよう。[br][br][b][color=#980000][u]特に反射が大切ですね。RにARAが成り立たないと「半順序だ」とはいいません。[br][/u][/color][/b]「真部分である」A⊃Bではなく、A⊇Bの関係にしないと半順序にはなりません。[br][b]「真部分である」だと、推移しか成り立たないからです[/b]。[br]わりと見落としがちな、反射と反対称が大切なのですね。[br][br]このAの部分集合の集合S=２[sup]A[/sup]=set({a,b},{a},{b},{ })の要素どうしで半順序チェックをしよう。[br]{a,b≧{a}≧{ }[br]{a,b}≧{b}≧{ }　[br][b]２系統の「全順序関係（半順序で１直線に並ぶ、任意の２要素が半順序で比較できる）」[/b]が見つかった。[br][br]しかし、{a}と{b}には≧の関係はない。[br]比較できないので、全要素が全順序になるわけではないね。[br]だから、Sは[b]全順序でない半順序集合[/b]と言われる。[br]つまり、半順序が一般で、全順序が特殊という言い方になるんだね。[br][br][color=#9900ff][b][u][size=150]質問：文字の集合Aの部分集合の集合S=2[sup]A[/sup]。について、要素どうしが「部分である」関係を図で表すはどうしたらよいでしょうか。[br][/size][/u][/b][/color][br]半順序集合の２つの要素に半順序関係があるとき必ず線でつないでしまうと、[br]線が多くなって見づらくなる。[br][br]まず、[b]反射律[/b]から、自分と半順序なので、どの要素にも[b][color=#0000ff]ループ辺できるが、これは不要[/color][/b]だ。[br]また、[b]推移律[/b]から、a,b,cがこの順で全順序になるときは、→が2本になったり、三角形ができてしまう。[br]これでは全順序が見づらいので、[b][color=#0000ff]隣接する要素だけを線で結び[/color][/b]、[br][b][color=#0000ff]全順序になる要素が連続する細分された辺はできるだけ直線[/color][/b]にしよう。[br][br][size=150][size=200]ハッセは、これを単純に決めるために「[b]直接大きい、直接小さい[/b]」という関係、[br][b][color=#0000ff]ｘ≦ｙとなるｘ，ｙの間にｘ≦ｚ≦ｙとなるｚがない関係[/color][/b]を線で結ぶとしている。[br][/size][/size][br]"a" が"ab"の直接小さい部分であるとき、a-abのように線でつなぐか、部分という順序がわかるように→をつけてみよう。[br]そうしてできるのが[b]ハッセの図式、図[/b]だ。[br]

[b][size=150]＜ハッセ図をかくコード＞[br][/size][/b][br][b][size=150][size=200]かなりきれいな図ができました。[br][/size][/size][/b][br][color=#9900ff][b][size=150][u][size=200]質問：コードでハッセ図をかくにはどうすればよいでしょうか。[br][/size][/u][/size][/b][/color][br]文字列から部分集合を作るのは、要素数を段階的に増やす方法があります。[br]全体の文字列itemsから[b]combinations[/b](items.i)として、iを0からnまで増やして、[br]部分集合の集合[b]nodes[/b]に追加してけば作れます。[br][br]ただ、combinationsを使うと、文字を取り出した[b]リスト[/b]ができてしまいます。[br]ノードの名前にするために[b]join[/b]を使って、[b]文字の間が空で連結し、文字列[/b]に直しましょう。[br]見かけ上は、[b][color=#0000ff]部分集合というよりも部分文字列[/color][/b]ということだね。[br][br]出来上がったnodesから2要素順序をつけて取り出します。[b]permutations[/b](nodes,2)を使います。[br]取り出した順にｘ，ｙとしたとき、[br]ｙがｘより[b]直接小さい部分集合[/b]なら、[b]ｘ→ｙ[/b]の辺を作ります。[br]ただの部分集合ではなく、[b]文字数が１違うという条件[/b]をつけて、直接小さい部分集合を選べますね。[br][br][size=150][color=#ff0000]図をかくためのパッケージは[b]graphviz[/b]を使いましょう。[br]networkxは相当指定を相当しないとハッセ図はかきにくいようです。[br][/color][/size][br]#=====================================[br][b]import graphviz[br][/b]from itertools import permutations[br][b]def hasseG(items):[br] res=[][br] n=len(items)[br] for i in range(n+1):[br] res =res + list(combinations(items,i))[br] nodes = [ ''.join(x) for x in res][br] print(nodes)[br][/b] G = graphviz.Digraph()[br][b] for pm in permutations(nodes,2):[br] x,y = pm [br] if set(y) <= set(x) and len(x) - len(y) == 1:[br] G.edge(x,y)[br] return G[br]#======================================[br][/b][color=#0000ff][b]items="ab"[br]G = hasseG(items) [br]G[br][/b][/color]#======================================[br][color=#0000ff][b]items="abc"[br]G = hasseG(items) [br]G[br][/b][/color]#======================================[br][color=#0000ff][b]items="abcd"[br]G = hasseG(items) [br]G[br][/b][/color]#======================================

さっきは、文字列（文字の集合）の部分集合どうしのつながりを[br]ハッセ図で表しました。[br][br]いよいよ、[color=#0000ff][b]数の半順序関係[/b][/color]を視覚化することをやってみましょう。[br][br]まず、数の約数・倍数関係自体は静的なものです。[br]だから、状態変化はもともとありません。[br]そこで、できるだけ関数型プログラミングを考えて、ノードとそのつながりをさぐりましょう。[br][br][u][b][color=#9900ff][size=200]質問：数の約数からハッセ図を作るにはどうしたらよいでしょう。[br][/size][/color][/b][/u][br][color=#0000ff]・文字列のときと同じく、部分集合を作りnodesとする。[br]・nodesから２つ選び直接の大小関係なら→で結ぶ[br][/color]この２段階でグラフデータを作りましょう。[br][br]まず入力した数をNとします。[br][b]Nの約数[/b]はN以下の数で割り切る数を集めるという宣言で作れます。それが[b]nodes[/b]です。[br]次に、「[b]直接小さい約数関係[/b]」を見つけるために、「２約数ｘ，ｙについて[br]ｘ÷ｙをやったときに余りがなく、[b][color=#0000ff]商が素数[/color][/b]であるという条件」を使いたい。[br]そこで、N未満の素数リストPを作りましょう。[br]nの約数個数を求める関数divCount(n)を作ります。nに対する約数ｍのリストの長さを返します。[br]2からN未満の数xにdivCount(x)をして、約数が２個の数を抜き出せば完了ですね。[br]ここまで準備できたら、文字列のときと同じように辺を作りましょう。[br]つまり、nodesから順番をつけて２つｘ，ｙを選び、それが直接小さい約数関係ならｘ→ｙします。[br][br]import graphviz[br]from itertools import permutations[br]def hasse(N):[br] #nodesは、Nの約数[br] [b] nodes = list(filter(lambda m:N % m==0, list(range(1,N+1)))) [br][/b] #PはN未満の素数[br] M = list(range(2,N))[br] [b] divCount = lambda n:len(list(filter(lambda m:n % m==0, list(range(1,n+1)))))[br] P = [x for x in M if divCount(x)==2] [br][/b] print(nodes)[br] G = graphviz.Digraph()[br] for pm in permutations(nodes,2):[br] x,y = pm [br] [b] if x % y ==0 and (x//y in P):[br][/b] G.edge(str(x),str(y))[br] return G[br][color=#0000ff]#=====================================================[br]number=36[br]G = hasse(number) [br]G[br]#=====================================================[br]number=60[br]G = hasse(number) [br]G[br]#=====================================================[br]number=180[br]G = hasse(number) [br]G[br]#=====================================================[br]number=90[br]G = hasse(number) [br]G[/color]

どうでしょうか。[br][br]180ではうまくいったのですが、90では少しきたないですね。[br]素数の種類を無視して積分解したときのかけ算の個数で[br]nodeの深さを決めているのかもしれません。[br][br]ハッセの図式は文字列、整数だけではなく、半順序関係があるときに使えます。[br]群・環・体の関係性を表すときにも使えます。応用が広そうですね。[br][br]たとえば、３要素の順列は６個ありますが、これを置換としてとらえなおして、[br]対称群S3という名前がついてます。[br]これは、[br]１→2→3→1のローテーション、順送り、いわゆる巡回置換ρ=（1 2 3）と[br]2↔3 の入れ替え、いわゆる互換τ=(2 3)を組み合わせて作ることができます。[br]S3はρを3回でもとにもどり、τを2回してももとにもどるので、単位元が作れます。[br]証明は省略しますが、S3は群になりますね。[br]S3の部分群は４種ありますね。[br]位数１のE={１}、[br]位数６のG={1,ρ,ρ[sup]2[/sup], τ,ρτ,ρ[sup]2[/sup]τ},[br]位数3のR={1,ρ,ρ[sup]2[/sup]}[br]位数2のA={1, τ}, B={1,ρτ},C={1, ρ[sup]2[/sup]τ}[br][br]質問：このS3の部分群の関係を直接小さい部分関係でハッセ図にするにはどうしたらよいですか。[br][br]文字列や数のように、データから部分関係が判断できればよいのですが、[br]群の場合はそれがありません。基本は、そのまま指定することですね。[br]部分群の位数は群の位数の約数になりますが、[br]それは結果であって、十分な条件ではありません。[br]ただ、部分群の関係だとわかっている同士なら使えますね。[br]import graphviz[br]from itertools import permutations[br]def hasseG():[br] nodes = ["E","A","B","C","R","G"][br] G = graphviz.Digraph()[br] G.edge("G","A")[br] G.edge("G","B")[br] G.edge("G","C")[br] G.edge("G","R")[br] G.edge("A","E")[br] G.edge("B","E")[br] G.edge("C","E")[br] G.edge("R","E")[br] return G[br]#=====================================================[br]G = hasseG() [br]G

これではあまりに[br]単純すぎて、見た人がなにを表しているかがわかりません。[br]そこで、処理も表示も群らしく改良しましょう。[br][br]nodeはnameがキーでlabelが値の辞書で作り、Gに登録します。[b]G.node(name=k, label=v)[/b][br]・nameは、群の位数（要素数）がわかる文字列とします。[br]・labelは、表示のために群の要素の外延をそのまま表示しましょう。[br]そして、edgeには群の位数と位数の商（指数といいます）をつけます。[br]・この指数が素数であれば、直接の部分であると判断して辺とします。[br]（そうしないと、位数１の｛１｝が位数6のSの部分だということで→がつくことを避けたいからです。）[br]・そしてGに、始点、終点、指数を登録します。[b]G.edge(str(x),str(y),str(div))[/b][br]#===========================================================[br]import graphviz[br]from itertools import permutations[br]def hasseG(items):[br] G = graphviz.Digraph()[br] for k, v in items.items():[br] [b] G.node(name = k, label =v )[br] [/b]nodes = items.keys()[br] #Pはitemsの位数以下の素数[br] M = list(range(2,len(items)))[br] divCount = lambda n:len(list(filter(lambda m:n % m==0, list(range(1,n+1)))))[br] P = [x for x in M if divCount(x)==2] [br] for pm in permutations(nodes,2):[br] x,y = pm [br] div = len(x)//len(y)[br] if len(x) % len(y) ==0 and (div in P):[br] [b]G.edge(x,y,str(div))[br][/b] return G[br] return G[br]#=====================================================[br]items={[br]"1":"{１}","1a":"{1,τ}","1b":"{1,ρτ}","1c":"{1,ρ^2τ}","1de":"{1,ρ,ρ^2}", "1abcde":"{1,ρ,ρ^2, τ,ρτ,ρ^2τ}"[br]}[br]G = hasseG(items) [br]G

Latex表示などができるともっといいのですが、きりがないので、[br]このくらいにしておきましょう。