a 是三角形的中心角[br]b 是三角形的数量[br]n 是追逐曲线沿线延伸的距离

20260718 修改自：[url=https://www.geogebra.org/u/samhartburn]Sam Hartburn[/url] — 2021年4月6日 - 下午1:33 的 [url=https://www.geogebra.org/m/btsescfd]Pythagorean Spiral meets Pursuit Curves – GeoGebra[/url]

[br]A = (19.41, 22.32)[br]B = (38.18, 30.9)[br]A'=旋转(A, -90°, B)[br]a=滑动条(-45°,45°,0.1°)[br]赋值(a,-10°)[br][br]B'=旋转(B, a, A)[br]f=直线(A, B')[br]g=直线(B, A')[br]C=交点(g, f)[br]base=多边形(A, B, C)[br]adj=线段(A, B, base)[br]opp=线段(B, C, base)[br]hyp=线段(C, A, base)[br][br]#以上为了求的基本多边形和adj / hyp[br]#由任意两点点和角度a获得，[br]#A = (19.41, 22.32)[br]#B = (38.18, 30.9)[br]#C=A+tan(a) (B-A) [b]这步还没写好[/b][br]#base=多边形(A, B, C)[br][br]perim=adj + opp + hyp[br][br]#b螺旋数量[br]maxb = 53[br]b=滑动条(1,max_b,1)[br]赋值(b,10)[br][br]#偏移量、定比分点[br]n=滑动条(0,0.13,0.001)[br]赋值(n,0.1)[br][br]#⬛勾股螺线，A位旋转和位似中心，统一具有相同锐角，即所有三角形全等[br]l1=迭代列表(位似(旋转(T, -a, A), adj / hyp, A), T, {base}, b) [br]#可修改为：用cos(a)替代 adj / hyp[br]#[br][br][br]#⬛构成螺线的三角形内部制作追赶三边形，利用定比分点公式迭代求点。可用于任意三角形、多边形[br]l3=映射(迭代列表(多边形(描点(T, 0) + n (描点(T, 1 / 3) - 描点(T, 0)), 描点(T, 1 / 3) + n (描点(T, 2 / 3) - 描点(T, 1 / 3)), 描点(T, 2 / 3) + n (描点(T, 0) - 描点(T, 2 / 3))), T, {Z}, 10), Z, l1) [br][br][br]Export1 = (6, 40)[br]Export2 = (42, 12)[br][br][br]#⬛进阶：使用以下代码也可以制作[br]m=滑动条(3,20,1)[br]赋值(m,6)[br][br]l32=迭代列表(映射((1-n) p+n q,p,lst,q,合并({提取(lst,2),最前元素(lst)})),lst,{{顶点(l1(1))}},m)[br][br]l33=映射(多边形(p), p, l32)[br][br]l34=迭代列表(位似(旋转(T, -a, A), adj / hyp, A), T, {l33}, b)[br][br]