4-3五邊形外角和

1.poly1= Polygon[E, A, B, C, D]，端點調空心，藍色。
2.滑桿t，0.5~10.5，寬度500，動畫：遞增一次   (4-3-1a.ggb)
3. 新增P1點， 0.5≦t≦1，向量座標(x(E)+t*y(EA),y(E)+t*y(EA)) 定義：
   (x(E) + Min[Max[t - 0, 0], 1] (x(A) - x(E)), y(E) + Min[Max[t - 0, 0], 1] (y(A) - y(E)))
   新增P2,P3,P4,P5,P6點。
4.新增P1'點，1≦t≦2，取t-1*外角BAE，旋轉車頭前置點，定義：
   Rotate[(x(P1) + (x(A) - x(E)) / Distance[E, A], y(P1) + (y(A) - y(E)) / Distance[E, A]), Min[Max[t - 1, 0], 1] (180° - Angle[B, A, E]), P1]，新增P2’,P3’,P4’,P5’,P6’點。
5.新增P點，用P點來替代P1, P2, P3, P4, P5, P6，定義：
   If[t≦ 2, P1, If[t≦4, P2, If[t≦ 6, P3, If[t≦8, P4, If[t≦10, P5, P6]]]]]

6.新增P' 點，用P點來替代P1', P2', P3', P4', P5', P6'，定義：
   If[t≦2, P1', If[t≦ 4, P2', If[t≦6, P3', If[t≦ 8, P4', If[t≦10, P5',P6']]]]]
7.u= Vector[P, P']，然後建立αβγδε
8.α=Angle[P1',P1, (x(P1) + (x(A) - x(E)) / Distance[E, A], y(P1) + (y(A) - y(E))/ Distance[E,A])]
9.f=PerpendicularLine[P, u]，直線f (過 P、垂直 u) (4-3-1d.ggb)
10.G=Midpoint[F, P']，v=Vector[G, P]，
   P'''= Translate[P, v](後輪點)，P''=Translate[P', v](前輪點)
11.g= Segment[A, (x(A) + (x(A) - x(E)) / Distance[E, A], y(A) + (y(A) - y(E)) / Distance[E, A])]
   顯示條件t ≦1，接著新增另外4邊h,I,j,k。(4-3-1e.ggb)
12.a= Angle[(x(A) + (x(A) - x(E)) / Distance[E, A], y(A) + (y(A) - y(E)) / Distance[E, A]), A, B]
   顯示條件t≦2，接著新增另外4個角b,c,d,e。(4-3-1f.ggb)
13.隱藏向量u,v，隱藏f,G,P，載入汽車圖片，調整F點，讓汽車在軌道適當位置。
14.Angles = true，標籤：顯示測量角度
15.建立5個文字標籤
   角度a = (物件)a
   顯示條件(t>=2) && Angles
   接著新增另外4個文字標籤
16.按鈕 button1，樣式：> ，OnClick：StartAnimation[t, true]
   按鈕 button2，樣式：||，OnClick：StartAnimation[t, false]
   按鈕 button3，樣式：<<，OnClick：t=0.5
17.最後調整一下個物件的顏色，完工。