点阵序列
20260507 创建
n=滑动条(0, 64,1)
m=滑动条(0, 6,1)
h=滑动条(1, 2,1)
A=(1,0)
#最后的点，利用虚数旋转
P=A+总和(t ί^(t),t,0,n)
Nlist=1…n
#系列点，利用极坐标旋转，h调节旋转方向
PointList=序列(A+总和((t; ((((-1)^(h) t+m) π)/(2))),t,0,p),p,0,n)
VectorList=序列(向量(PointList(k),PointList(k+1)),k,1,n)
##TextList=映射(文本("P_{"+(k)+("}"+p),p,true,true),p,VectorList,k,1…n)
TextList=映射(文本("P_{"+(k)+"}"+(p),p,true,true),p,PointList,k,1…n)