[b]このワークシートは[url=https://www.geogebra.org/m/twxxx3yq]Math by Code[/url]の一部です。[br][br]アート、背景、実装、バリエーションの順に見ていきましょう。[br][/b][br][b][br][/b]

[b][size=150]雪の結晶の背景の続き[br][br]＜壁紙群（Wallpaper groups）＞[br][br][/size][/b]群論では、N個の要素の順列N!、これを操作とみたときの置換が作る群、対称群Snが基本になります。[br]対称群の要素にはきれいな入れ替えもありますが、なんでもありです。[br][br]とくにきれいな入れ替えは、正N角形の回転であるサイクル、[b][color=#0000ff]巡回群Cn[/color][/b]ですね。[br]（例）[br][b]C3[/b]は正三角形の120度回転操作、{e,r,r^2}の3要素からなり、生成元はr(120度回転）です。[br][br]模様で大切なのは、[br]正N角形を裏返せる立体図形と考えると面が裏と表の2面あるため、奇妙ですが、[b]2面体[/b]ともいえます。[br]そこで、回転だけの巡回群Cnに対称軸の裏返しもいれた[b]2面体群Dn[/b]もきれいです。[br]（例）[br][b]D4[/b]は正四角形の90度回転と裏返し、{e,r,r^2,r^3, t, rt, r^2 t ,r^3 t}の 4×2=8要素からなります。[br]生成元はr(90度回転）とt(裏返し)の２つです。[br][br]壁紙の繰り返しのパターン（周期性、対称性）を17種類に分けられています。それが壁紙群です。[br]平行移動の他に鏡映移動や回転移動を含めて、その対称性からの分類になっています。[br]パターンの記号の主な意味は次の通りです。[br][br]・[b][color=#0000ff]NはN回回転すると重なる模様[/color][/b]で、360÷N（度）の回転対称性を表しています。[br]（例）[br]２は360÷２=180度、３は360÷２＝120度、４は360÷4＝90度、６は360÷６＝60度ですね。[br][color=#0000ff]・[b]ｍは鏡映[/b]（Mirror,reflection), [b]gは映進[/b]（G[/color][color=#0000ff]lide reflection）[/color]の略です。[br] 鏡映は鏡に映したように裏返すことですが、映[b]進[/b]は裏返して[b]ずらす[/b]。[br][color=#0000ff]（例）[/color][br]　右手のマークのとなりに左手のマーク、次は右手のマークと交互に格子状になら別と鏡映ですが、[br]　右足のマークのとなりはあけてその上に左足のマークというようにスライドすると映進です。[br][br]超ざっくりですが、[br]１７種類の名前、例、（巡回群、2面体群での分類名）のリストです。[br][br]１．p1：平行移動だけ。ただの格子点など[br]２．p2： 半回転。千鳥格子など[br]３．pm：平行鏡映。ハートマークをたてよこにならべる[br]４．pg： 映進。ジグザグ矢印[br]５．cm： 鏡映、中心斜鏡映。対称図形の斜めスライド[br]６．pgg：複数映進。となりの列が映進、同じ列は平行移動。Sと逆さSの連続。[br]７．pmg：鏡映、映進、半回転対称性。上下左右に鏡映されたブロックが並ぶ[br]８．p4：直角回転。直角に交わる十字[br]９．p4m：直角回転、複数鏡映。となりの行・列のたて横が変わる格子模様。（D4)[br]10．p4g：直角回転、映進。格子状にねじれ模様[br]11．p3：120度回転。３方向に反復。正六角形のひし形分割と模様の回転（C3）[br]12．[b][color=#0000ff]p3m1：120度回転、鏡映。 正３角形の回転分割を鏡映をするか、[br]　　正六角形を3等分したひし形パーツの１つ１つに鏡映がはいっている。万華鏡（D3)[br][/color][/b]13．p31m：120度回転、複数鏡映。正３角形の回転分割から鏡映つきの正六角形をつくる（C3,D3)[br]14．p6：60度回転。６方向に反復（C6)[br][color=#0000ff]15．[b]p6m：60度回転、複数鏡映。正六角形を６等分したパーツの１つ１つに鏡映が入っている。[br]　　蜂の巣、雪の結晶、冒頭のアート（D6）[/b][br][/color]16．p2mm (pmm)：垂直方向の鏡映。たて横回転のない普通の格子模様（D2)[br]17．p2mg (pmg)：半回転、映進。ジグザグと回転の模様

[br]冒頭のアートは、正六角形の中にある直角三角形ABCを回転と、[br]正三角形ABCの斜辺だけが移動する裏返しが見えるようにしています。[br]これは[b]雪の結晶と同じ壁紙群p6m（D6)[/b]のしくみになっていました。[br][br]また、図形の反復だけでなく、図形の中の折れ線の動きがどう反映されるかを感じてもらうために[br]折れ線を動かせるようにしています。[br][br][color=#9900ff][b][u][size=150]質問：geogebraで模様つきの直角三角形ABCを敷き詰めるにはどうしたらよいでしょうか。[br][/size][/u][/b][/color][br]まず、直角三角形ABCをかきます。[br]「数式」が表示されていないときは、[br]メインメニューの「表示」で「数式」を選ぶと、数式が表示されて1行ずつ入力できます。[br](0,0)と入れてエンターを押すと、A=(0,0)となります。[br]同様にして、B＝(√3, 1), C=(√3,0)を入れましょう。（a=sqrt(3)としておくと、便利です。）[br]三角形ABCを作るにはpolygon(A,B,C)と入力します。勝手に名前がつくので、[br]たとえば、s=Polygon(A,B,C)とします。[br]三角形の辺上や内部に適当に点D,E,F,G,H,I,J,K,L,Mをとります。[br]t=polyline(D,E,F,G,H)[br]u=polyline(I,J,K,L,M)[br]とます。[br][b]zu= {s,t,u}[br][/b]と入れると、zuという名前だけで、2本の折れ線が入った三角形ABCを呼び出せるのです。[br]zu2= Reflect(zu,y=0)がzuをｘ軸で鏡映したものです。[br][br][b]m1= Sequence(Rotate(zu,k*2*π/6, A), k,1,9)[/b]で、zuを60度回転した図列ができる。[br][b]m2= Sequence(Rotate(zu2,k*2*π/6, A),k,1,9)[/b]で、zu2を60度回転した図列ができる。[br]これをパックして、[br][b]kihon={m1, m2}[br][/b]とすると、正６角形の基本図形kihonができました。[br]あとは、これを反復コピーしたリストを作ればよいですね。[br][br]点Bを点A（原点）を中心に反時計回りに60度回転した点、つまり、正六角形の頂点リストを作りましょう。これは、あとで図形の移動のために使いたいからです。[br][b]ptn=Sequence(Rotate(B,((2 π/6) k, A), k,1,6) とします。[br][/b][br]次に、移動のための基本ベクトルを作りましょう。[br][b]Vector((a,0), (-a,0))[/b]がvになります。三角形の辺CAの2倍左に平行移動できますね。[br]kihon図形をv方向に‐3倍から3倍まで平行移動しましょう。[br][b]obi=Sequence(Translate(kihon,Vector(v k)),k,-3,3)　[br][/b][br][b]Vector(ptn(4),B)[/b]がwになります。[br]obiの行を選び、たて３点…のメニューから「入力の複製」を選びます。[br]コピーされた内容の「kihon」を「obi」に、ベクトルの[v]を[w]に変更すると、[br]敷き詰めができます。[br][b]l1=Sequence(translate( obi, Vector(w k)) ,k, -3, 3)[br][/b][br][br]このように、[b]kihonを作ってしまえば、[br]平行移動する方向移動ベクトルをA,B２つ決める[/b]ことで、[br]obi= sequence( [b]translate( kihon,[/b] Vector(A k)) ,k, -3, 3)[br]sequence([b]translate( obi,[/b] Vector(B k)) ,k, -3, 3)[br]と[b]2段階の平行移動[/b]をするだけで敷き詰めが完了しますね。[br][br]そのあとの図１から図２もほとんど、同じやり方で作ってますので、[br]vectorの表示がオフになっているので、それをOnにしたり、図のsequenceのOnOffを[br]切り替えて作り方を確認してみよう。[br]そのときに、平行6辺形や平行４辺形への変更もイメージしてみよう。[br]

今度は、この雪の[b]結晶のしくみp6m(D6)[/b]を、[b]万華鏡のしくみ（p3m1(D3)）[/b]に改造してみよう。[br][br]質問：鏡映を正三角形の内部ではなく、ひし形の内部にして、回転を60度ではなく120度にした、万華鏡のしくみに改造するにはどうしたらよいでしょうか。[br][br]点A,Bはそのままにして、点Cの座標を(a,-1)にします。[br]三角形ABCは正三角形になりますね。[br]zu2の線対称の軸をｘ軸ではなく、y=-x/aにします。[br]m1,m2の回転角を2pi/6から、2pi/3にしましょう。[br]これで、kihonが正六角形になりますね。[br]あとの平行移動は冒頭のアートと何も変わりませんね。

万華鏡p3m1や雪の結晶p6mのロジックで、[br]ランダムな模様を生成するアプリを作りたい。[br][br][b][size=150]＜Python＞[/size][/b][br][color=#9900ff][b][u][size=150]質問：pythonで雪の結晶p6mを実装するにはどうしたらよいでしょうか。[br][/size][/u][/b][/color][br]三角形ABCの中に線をかくのは同じですが、少しかえてみましょう。[br]Aは原点にして、[b]Bの高さを-50にします。ｙ座標の座標系が下がプラスだから[/b]です。[br][br]ACの間の点をD(dx, 0)、BCの間の点をE(50*a, ey), ABの間の点をF(fx, -fx/a)とします。[br]辺上の３点とA、B、Cを結んで三角形を作り、色をそめるという方針にします。[br][br][b]画面をクリックするたびに色が変わります[/b]。[br][br]・setup関数で、dx,ey,fx, col1,col2,col3の初期化します。[br][br]・draw関数の[b]３重の平行移動[/b]で敷き詰めます。[br]一番外のfor文での平行移動translateのベクトル（ｘ、ｙ）はx：y＝a:3として、[br]中のfor文で作った基本図形の帯を右上に60度ずらして帯が重ならないようにしています。[br]中間のfor文での平行移動translateのベクトル（ｘ、ｙ）はｘ：ｙ1=2a : 0で基本図形の帯を作ります。[br]一番内側のfor文での平行移動のtranslate(Center, Center) とrotate(r*PI/3)は、描画前に画面中央が[br]原点(0,0)になるようにして、そのあと、その原点を中心に60度回転をしながら図をかきます。[br][br][b]・基本図形[/b]の中身[br]三角形ABCを水色固定、三角形ADFをcol1のHS（色相彩度）で、[br]三角形BEFをcol2で、三角形CDFをcol3でかいています。[br][br]・三角形ABCをかくときに、[snow]という文字もかいているので、図と一緒に回転したり、平行移動するのがわかります。[br]座標変換開始pushと座標変換回復popをペアにすること、[br]多角形の開始beginShapeと終了endShapeをペアにすることがポイントですね。[br][br]a = sqrt(3)[br]ABC = [[0,0],[50*a,-50],[50*a,0]][br]dx= 20 #Dx from 10 to 80 Dy=0[br]ey=-30 #Ey from -5 to -45 Ex=50*a[br]fx= 40 #Fx from 10 to 80 and Fy = Fx * (-1/a)[br]col1=0.5[br]col2=0.7[br]col3=0.9[br][br]def setup():[br] global dx[br] global ey[br] global fx[br] global col1[br] global col2[br] global col3[br] dx =random(10,80)[br] ey =random(5,45) * (-1)[br] fx =random(10,80)[br] col1 = random(1)[br] col2 = random(1)[br] col3 = random(1)[br] size(700, 700)[br] textSize(18)[br] colorMode(HSB, 1) #color by HSB(Hue, Saturation, Brightness)mode[br] background(0, 0, 1) 　#Erase canvas[br][br]def draw():[br] global dx[br] global ey[br] global fx[br] global ABC[br] background(0, 0, 1) [br] [b]Center = width/2[/b][br] for j in range(15):[br] [b] pushMatrix()[br] translate(50*(j-5)*a , 50*(j-5)*3) [br][/b] for i in range(10):[br] [b]pushMatrix()[br] translate(50*(i-3)*a*2,0) [br][/b] for r in range(6):[br] [b] pushMatrix()[br] translate(Center, Center) [br][/b] [b] rotate(r*PI/3)[br][/b][br]      [color=#0000ff]#ABC[/color][br] fill(0.5, 0.5, 0.9)[br]      beginShape()[br] for i in range(3):[br] vertex(ABC[i][0],ABC[i][1])[br] [b] outvalue= "snow"[/b][br] [b] text(outvalue, 10, 10) #value[br][/b] endShape()[br] [color=#0000ff] #ADF[br][/color] fill(col1, col1, 0.9)[br] beginShape()[br] vertex(ABC[0][0],ABC[0][1])[br] vertex(dx,0)[br] vertex(fx,(-1)*fx/a)[br] endShape()[br] [color=#0000ff] #BEF[br][/color] fill(col2, col2, 0.9)[br] beginShape()[br] vertex(ABC[1][0],ABC[1][1])[br] vertex(50*a,ey)[br] vertex(fx,(-1)*fx/a)[br] endShape()[br] [color=#0000ff] #CDF[br][/color] fill(col3,col3, 0.9)[br] beginShape()[br] vertex(ABC[2][0],ABC[2][1])[br] vertex(dx,0)[br] vertex(fx,(-1)*fx/a)[br] endShape()[br] popMatrix()[br] popMatrix()[br] popMatrix()[br] [br]def mouseClicked():[br] global dx[br] global ey[br] global fx[br] global col1[br] global col2[br] global col3[br] dx =random(10,80)[br] ey =random(5,45) * (-1)[br] fx =random(10,80)[br] col1 = random(1)[br] col2 = random(1)[br] col3 = random(1)[br]

[b][size=150]＜Javascript＞[/size][/b][br]このコードをp5.jsにしてみよう。[br]前回はVSの中に拡張機能を導入しましたが、[br]今回はwebアプリ[b][size=150][url=https://editor.p5js.org/]p5.js Web Editor[/url][/size][/b]で実行してみよう。[br][br]javascriptでは、わかりきったグローバル変数の宣言をしなくてよい分だけ、行数がへります。[br]本質的には変わってません。[br][br]以下を左側のコードの窓にコピーして貼り付けて調整してみよう。[br]pythonのように字下げでないから、貼り付けはうまくいきやすいでしょう。[br]前回の注意しましたが、[b]座標変換はpush,popのペア[/b]にすること、[br]setup関数の中で、[b]size関数をcreateCanvas関数に置き換える[/b]こと。[br]あとはPythonの記述形式をjavascriptの記述形式に置き換えればOKです。[br]sqrt(3)にはMath.をつけることくらですかね。[br][br]const a = Math.sqrt(3);[br]let ABC = [[0,0],[50*a,-50],[50*a,0]];[br]let dx= 20; //Dx from 10 to 80 Dy=0[br]let ey=-30; //y from -5 to -45 Ex=50*a[br]let fx= 40; //Fx from 10 to 80 and Fy = Fx * (-1/a)[br]let col1=0.5;[br]let col2=0.7;[br]let col3=0.9;[br][br]function setup(){[br] dx =random(10,80);[br] ey =random(5,45) * (-1);[br] fx =random(10,80);[br] col1 = random(1);[br] col2 = random(1);[br] col3 = random(1);[br] createCanvas(700, 700);[br] textSize(18);[br] colorMode(HSB, 1); //color by HSB(Hue, Saturation, Brightness)mode[br] background(0, 0, 1); //Erase canvas[br]}[br][br]function draw(){[br] background(0, 0, 1) ;[br] Center = width/2;[br] for(let j=0 ; j<15;j++){[br] push();[br] translate(50*(j-5)*a , 50*(j-5)*3) ;[br] for(let i=0; i< 10;i++){[br] push();[br] translate(50*(i-3)*a*2,0) ;[br] for (let r=0; r <6;r++){[br] push();[br] translate(Center, Center) ;[br] rotate(r*PI/3);[br][br] //ABC[br] fill(0.5, 0.5, 0.9);[br] beginShape();[br] for(let i=0;i<3;i++){[br] vertex(ABC[i][0],ABC[i][1]);[br] outvalue= "snow";[br] text(outvalue, 10, 10); //value[br] }[br] endShape();[br] //ADF[br] fill(col1, col1, 0.9);[br] beginShape();[br] vertex(ABC[0][0],ABC[0][1]);[br] vertex(dx,0);[br] vertex(fx,(-1)*fx/a);[br] endShape();[br] //BEF[br] fill(col2, col2, 0.9);[br] beginShape();[br] vertex(ABC[1][0],ABC[1][1]);[br] vertex(50*a,ey);[br] vertex(fx,(-1)*fx/a);[br] endShape();[br] //CDF[br] fill(col3,col3, 0.9);[br] beginShape();[br] vertex(ABC[2][0],ABC[2][1]);[br] vertex(dx,0);[br] vertex(fx,(-1)*fx/a);[br] endShape();[br] pop();[br] }[br] pop();[br] }[br] pop();[br] }[br]}[br] [br]function mouseClicked(){[br] dx =random(10,80)[br] ey =random(5,45) * (-1)[br] fx =random(10,80)[br] col1 = random(1)[br] col2 = random(1)[br] col3 = random(1)[br]}