[br]名称 定义 数值[br]pW a a = 5.2[br]pW b b = 4.7[br]pW n n = 8[br] A 交点(x轴, y轴) A = (0, 0)[br] b t1 多边形((0, b), (a, 0), (0, 0)) t1 = 12.22[br] f 线段((0, b), (a, 0), t1) f = 7.009[br] g 线段((a, 0), (0, 0), t1) g = 5.2[br] h 线段((0, 0), (0, b), t1) h = 4.7[br] b t2 位似(多边形(旋转((0, b), 90°), 旋转((a, 0), 90°), 旋转((0, 0), 90°)), b / a) t2 = 9.983[br] b t3 位似(旋转(t2, 90°), b / a) t3 = 8.155[br] b t4 位似(旋转(t3, 90°), b / a) t4 = 6.663[br] b t5 位似(旋转(t4, 90°), b / a) t5 = 5.443[br] b t6 位似(旋转(t5, 90°), b / a) t6 = 4.446[br]h a0 {(0, b), (a, 0), (0, 0)} a0 = {(0, 4.7), (5.2, 0), (0, 0)}[br]ar=应用矩阵({{cos(90°), -sin(90°)}, {sin(90°), cos(90°)}}, {(0, b), (a, 0), (0, 0)})[br]ar = {(-4.7, 0), (0, 5.2), (0, 0)}[br]a1=应用矩阵({{b / a, 0}, {0, b / a}}, ar) [br]a1 = {(-4.248, 0), (0, 4.7), (0, 0)}[br][br][br]m1=[b]迭代列表({位似(旋转([/b]元素(XX, 1), 90°), b / a)}, XX, [b]{{多边形((0, b), (a, 0), (0, 0))}}[/b], 9)[br]m1 = {{12.22}, {9.983}, {8.155}, {6.663}, {5.443}, {4.446}, {3.632}, {2.968}, {2.424}, {1.98}}[br][br] text1="https://www.mathelounge.de/1050374/unendliche-spirale-im-kartesischen-koordinatensystem?show=1050551#c1050551 F r gegebene L ngen a, b > 0 seien im kartesischen Koordinatensystem Punkte A0, A1, A2, . . . wie folgt aufgetragen: Sei A0 = (a, 0) und A1 = (0, b) und sei An+2 der Schnittpunkt der zu AnAn+1 senkrechten Geraden durch An+1 mit einer der Koordinatenachsen. Aufgabe: Gib eine explizite Formel f r |AnAn+1| in Abh ngigkeit von a und b an."[br][br]l1=[b]迭代列表(位似(旋转([/b]XX, 90°), b / a), XX, [b]{多边形((0, b), (a, 0), (0, 0))}[/b], n)[br]l1 = {12.22, 9.983, 8.155, 6.663, 5.443, 4.446, 3.632, 2.968, 2.424}[br]c=圆弧((0, 0), (a, 0), (0, b))[br]c = 8.168[br]d=圆弧((0, 0), (0, b), 旋转((0, b), 90°))[br][br]l2=迭代列表(XX b / a, XX, {(a, b)}, 6)[br]l2 = {(5.2, 4.7), (4.7, 4.248), (4.248, 3.84), (3.84, 3.47), (3.47, 3.137), (3.137, 2.835), (2.835, 2.563)}[br][br][br]Row Input Output[br]#1 l2:=迭代列表(XX b / a, XX, {(a, b)}, 6) l2:={(26 / 5, 47 / 10), (47 / 10, 2209 / 520), (2209 / 520, 103823 / 27040), (103823 / 27040, 4879681 / 1406080), (4879681 / 1406080, 65799 / 20977), (65799 / 20977, 3092553 / 1090804), (3092553 / 1090804, 2258406 / 881327)}[br]#2 a_0:={(0, b), (a, 0), (0, 0)} a_0:={(0, 47 / 10), (26 / 5, 0), (0, 0)}[br]#3 a_r:=应用矩阵({{cos(90°), -sin(90°)}, {sin(90°), cos(90°)}}, {(0, b), (a, 0), (0, 0)}) a_r:=应用矩阵({{cos(90°), -sin(90°)}, {sin(90°), cos(90°)}}, {(0, b), (a, 0), (0, 0)})[br]#4 a_1:=应用矩阵({{b / a, 0}, {0, b / a}}, a_r) a_1:=应用矩阵({{b / a, 0}, {0, b / a}}, a_r)[br]#5 {{b / a, 0}, {0, b / a}} {{cos(90°), -sin(90°)}, {sin(90°), cos(90°)}} {{b / a, 0}, {0, b / a}} {{cos(90°), -sin(90°)}, {sin(90°), cos(90°)}}[br]#6 $5 {{0, -47 / 52}, {47 / 52, 0}}[br]#7 [br]Created with GeoGebra[br][br]#迭代列表(应用矩阵(Md, 应用矩阵(Mr, Poly1)),Poly1, {{多边形((0, b), (a, 0), (0, 0))}},Md,{{b / a, 0}, {0, b / a}},Mr, {{cos(90°), -sin(90°)}, {sin(90°), cos(90°)}},n)[br][br]#迭代列表(应用矩阵(Md, 应用矩阵(Mr, Poly1)),Poly1, {t1},Md,{{b / a, 0}, {0, b / a}},Mr, {{cos(90°), -sin(90°)}, {sin(90°), cos(90°)}},n)[br][br][br]应用矩阵({{b / a, 0}, {0, b / a}}, ar) a1 = {(-4.248, 0), (0, 4.7), (0, 0)}[br]应用矩阵({{b / a, 0}, {0, b / a}},应用矩阵({{cos(90°), -sin(90°)}, {sin(90°), cos(90°)}}, {(0, b), (a, 0), (0, 0)})[br][br]迭代列表({位似(旋转(元素(XX, 1), 90°), b / a)}, XX, {{多边形((0, b), (a, 0), (0, 0))}}, 9)[br]迭代列表(位似(旋转(XX, 90°), b / a), XX, {多边形((0, b), (a, 0), (0, 0))}, n)
反思改进：[br][br]#缩放矩阵Md，旋转矩阵Mr，复合矩阵MM，[br]Md={{b / a, 0}, {0, b / a}}[br]Mr={{cos(90°), -sin(90°)}, {sin(90°), cos(90°)}}[br]MM=Md Mr[br]Plist={(0,b),(a,0),(0,0)}[br]t1=多边形(Plist)[br][br]# 若写成这种连乘的形式，多边形t1只是以面积的值代入计算，结果为矩阵，不是预想结果。这种方式只能进行数值运算。[br]m2=Md Mr t1[br][br]#顶点或者关键点应用矩阵，再重新生成[br]m5=迭代列表(应用矩阵(Md,应用矩阵(Mr,Poly1)),Poly1,{Plist},n)[br]l8=序列(多边形(m5(k)),k,1,n)[br][br]#迭代，应用矩阵(M,t)，t对象可以为多种类型的几何对象，不仅仅是数值。此处先旋转再缩放、先旋转再缩放效果一样[br]m6=迭代列表(应用矩阵(Md,应用矩阵(Mr,Poly1)),Poly1,{{t1}},n)[br]#m61=迭代列表(应用矩阵(Mr,应用矩阵(Md,Poly1)),Poly1,{{t1}},n)[br][br]#序列，复合矩阵的k次幂[br]l7=序列(应用矩阵(MM^(k),t1),k,0,n)[br]#l9=序列(应用矩阵((Md Mr)^(k),t1),k,0,n)[br]