4-2-3畢氏定理組合III

    上一個單元還要動到5個區塊，再換一個變換圖形最少的吧。

1.  A=(0,0)
2.  B=(5,0)
3.  c= Semicircle[A, B]
4.  C= Point[c]
5.  poly1=Polygon[C, B, 4]  //產生D,E點，a,b,d,e四邊
6.  poly2=Polygon[A, C, 4]  //產生F,G點，f,g,h,i四邊
7.  poly3=Polygon[B, A, 4]  //產生H,I點，j,k,l,m四邊
8.  E’=Reflect[E, C]       //點對稱E-C-E’
9.  u=Vector[C, E']         // u=向量CE’
10. F’=Reflect[F, C]           //點對稱F-C-F’
11. v=Vector[C, F']         // v=向量CF’
12. E’’= Translate[E', v]
13. u2=Vector[E', E'']          // u2=向量E'E''
14. v2=Vector[F', E'']          // v2=向量F'E''
15. n=PerpendicularLine[E’’, j]   //直線n (過 E’’、垂直 AB，即線段j)
16. J=Intersect[n, l]               //點J為垂直線n與HI交點
17. uv3=Vector[E'' ,J]          // uv3=向量E''J
    

18. 滑桿t                   //0~14
19. 打開試算表填入A1~A12值為1~12  //在命列分12次輸入也可以A1=1,A2=2,…
20. 在試算表B1 cell中填入0(或命令列輸入B1=0)，然後在B1屬性定義欄填入
   If[t ≦ A1, 0, If[t < A1 + 1, t - A1, 1]]，利用試算表下拉複製功能，填滿B2~B
21. poly4=Polygon[K,L, M, N]              //手動繪製四邊形，對應在CBDE旁邊
22. K內容C + B1*u  ，L內容B + B1*u，
       M內容D + B1*u ，N內容E + B1*u  (t在1~2時移動生效)
       //KLMN對應起始點CBDE   
23. 下一步，t在3~4時MN不動，KL移動到哪？E’’I
       K內容修改C + B1*u+B2*u2，L內容修改B + B1*u+B2*u2
24. 再下一步，圖形下移變成長方形，t在5~6時LM不動，KN移動到哪？J？
       K內容修改C + B1*u+B2*u2+B3*uv3，N內容修改E + B1*u+B3*uv3

到這裡完成半邊，剩下的自己操作看看囉
繼續完成左右2個poly移動到下面
完成下方回復到上方動畫  
增加按鈕
增加線條