2017.5.13-3D-6 正方體展開圖
可讓學生決定展開圖的形狀
3D-6 : 自己畫展開圖
1. 在平面繪圖區畫一個正方形"使用正多邊形工具" (此正方形請放在圓點附近)
A → B
（注意：AB點的屬性如果一開始就點在X軸,則AB兩點就只能在X軸上變動,
要改就是改變屬性並隨便給的座標EX (2,0),(0,0)等）
2. 再繼續做圖，但點的順序要改，點的順序會影響展開圖的方向。
B → A
D → C
I → C
H → G
3. 新增一個數值滑桿 k (0,1)增量 0.01
4. 指令說明：Rotate[Obj,Angle,Line[,]]
Polygon[{A,B,F,E}] # Polygon[A,B,F,E] ,如果沒有加入{}，則會連邊線都出來，
因為我們只需要那個區域故要加上{}。
Rotate[Polygon[{A,B,F,E}],k*pi/2,Line[B,A]] #使用右手拇指定來決定旋轉方向。
Rotate[Polygon[{A,D,G,H}],k*pi/2,Line[A,D]]
Rotate[Polygon[{C,D,J,I}],k*pi/2,Line[D,C]]
Rotate[Rotate[Polygon[{H,G,M,N}],k*pi/2,Line[H,G]],k*pi/2,Line[A,D]]
## 不是近中間方塊的方塊，做兩次Rotate，原本以HC轉90度後，再以AD方向轉90度，
此時此多邊形便會直接接入另外鄰近的方塊且同時作摺紙動畫。
Rotate[ Rotate[Polygon[{C,K,L,I}],k*pi/2,Line[I,C]],k*pi/2,Line[D,C]]
Polygon[{A,B,C,D}]
最後用 {, , , , } 把以上六個物件變成一個物件
輸入指令：{
Rotate[Polygon[{A,B,F,E}],k*pi/2,Line[B,A]],
Rotate[Polygon[{A,D,G,H}],k*pi/2,Line[A,D]],
Rotate[Polygon[{C,D,J,I}],k*pi/2,Line[D,C]],
Rotate[Rotate[Polygon[{H,G,M,N}],k*pi/2,Line[H,G]],k*pi/2,Line[A,D]],
Rotate[Rotate[Polygon[{C,K,L,I}],k*pi/2,Line[I,C]],k*pi/2,Line[D,C]],
Polygon[{A,B,C,D}]
}
上述之所以輸入之敗是因為空白建太多↑
{Rotate[Polygon[{A,B,F,E}],k*pi/2,Line[B,A]],
Rotate[Polygon[{A,D,G,H}],k*pi/2,Line[A,D]],
Rotate[Polygon[{C,D,J,I}],k*pi/2,Line[D,C]],
Rotate[Rotate[Polygon[{H,G,M,N}],k*pi/2,Line[H,G]],k*pi/2,Line[A,D]],
Rotate[Rotate[Polygon[{C,K,L,I}],k*pi/2,Line[I,C]],k*pi/2,Line[D,C]],
Polygon[{A,B,C,D}]}