Area and Perimeter
多謝舊同事德哥的工作紙。
Handout (Draft)
Execute({
"ChangeSize=Checkbox( )",
"A=Intersect(xAxis, yAxis)",
"B=Point(xAxis)", "SetValue(B, (80,0))", "SetConditionToShowObject(B, ChangeSize)",
"D=Point(yAxis)", "SetValue(D, (0,120))", "SetConditionToShowObject(D, ChangeSize)",
"C=(x(B), y(D))",
"AB=Segment(A, B)", "BC=Segment(B,C)", "CD=Segment(C, D)", "DA=Segment(D, A)",
"E=Point(AB)", "SetValue(E, (30,0))", "SetConditionToShowObject(E, ChangeSize)",
"F=Point(AB)", "SetValue(F, (50,0))", "SetConditionToShowObject(F, ChangeSize)",
"G=Point(BC)", "SetValue(G, (80,40))", "SetConditionToShowObject(G, ChangeSize)",
"H=Point(CD)", "SetValue(H, (20,120))", "SetConditionToShowObject(H, ChangeSize)",
"RTriangle_H=Polygon(B, G, F)",
"I=E+G-F",
"Parallelogram_G=Polygon(E,F,G,I)",
"J=Intersect(PerpendicularLine(I,CD), CD)",
"Rectangle_D=Polygon(G, C, J, I)",
"Square_B=Polygon(J, H, 4)",
"M=Intersect(DA, Line(K, L))",
"Rectangle_A=Polygon(D, M, K, H)",
"N=Point(Segment(I, L))", "SetValue(N, (60,50))", "SetConditionToShowObject(N, ChangeSize)",
"O=Intersect(PerpendicularLine(N,DA), DA)",
"Rectangle_C=Polygon(M, O, N, L)",
"P=Intersect(PerpendicularLine(E,Segment(N,O)), Segment(N,O))",
"Rectangle_E=Polygon(A, E, P, O)",
"Trapezoid_F=Polygon(E, I, N, P)",
"EI=Segment(E, I)", "FG=Segment(F,G)",
"P_A=Perimeter(Rectangle_A)",
"P_B=Perimeter(Square_B)",
"P_C=Perimeter(Rectangle_C)",
"P_D=Perimeter(Rectangle_D)",
"P_E=Perimeter(Rectangle_E)",
"P_F=Perimeter(Trapezoid_F)",
"P_G=Perimeter(Parallelogram_G)",
"P_H=Perimeter(RTriangle_H)",
"ShowAxes(false)"})
(Draft)
A=Intersect(xAxis, yAxis),
B=Point(xAxis), D=Point(yAxis)
C=(x(B), y(D)) or C=B+D-A
AB=Segment(A, B), BC, CD, DA
E=Point(AB), F=Point(AB), G=Point(BC), H=Point(CD)
RTriangle_H=Polygon(B, G, F)
I=Intersect(Line(E, Line(F,G)), Line(G, Line(E,F))) or I=E+G-F
Parallelogram_G=Polygon(E,F,G,I)
J=Intersect(PerpendicularLine(I, CD), CD) or J=(x(I),y(D))
Rectangle_D=Polygon(G, C, J, I)
Square_B=Polygon(J, H, 4) or **H=Point(Segment(J,D))
M=Intersect(DA, Line(K, L))
Rectangle_A=Polygon(D, M, K, H)
N=Point(Segment(I, L))
O=Intersect(PerpendicularLine(N, DA), DA)
Rectangle_C=Polygon(M, O, N, L)
P=Intersect(PerpendicularLine(E, Segment(N,O)), Segment(N,O))
Rectangle_E=Polygon(A, E, P, O)
Trapezoid_F=Polygon(E, I, N, P)
EI=Segment(E, I) / FG=Segment(F, G)
ChangeSize=true
B,D,E,F,G,H,N
Perimeter(Rectangle_A)
Perimeter(Square_B)
Perimeter(Rectangle_C)
Perimeter(Rectangle_D)
Perimeter(Rectangle_E)
Perimeter(Trapezoid_F)
Perimeter(Parallelogram_G)
Perimeter(RTriangle_H)
Qu=Text("測量員新丁只記錄一塊土地的一些資料，你能幫他完成下表嗎？", D+(0,5))
Table \; (Ans): \\
\fbox{
\begin{array}{}
& A & B & C & D & E & F & G & H \\
Area: &\red{ } & & & & & & & \\
Perimeter: & &\red{ } &\red{ } & & & & & \\
\end{array}
}