往复点阵演示 iShow
往复点阵
20260710 修改自：赵林 — 2021年10月22日 - 下午10:07 的 https://www.geogebra.org/m/dqwt8y4z#material/g4mafbjv
n=Slider(1,30,1)
SetValue(n,26)
#获得系列点，j前乘以(-1)^(i)，使得每一列的点的顺序有了交替变化，减一使得都是从0开始，或者最大数开始
l1=扁平列表(序列(序列((i,余式((-1)^(i) j-1,i+1)),j,1,i),i,1,45))
#基本序列是：序列(序列((i,余式(j-1,i+1)),j,1,i),i,1,45)，但是顺序都是从底部往上数的
以下变式使点的纵坐标变小，往下移
l1=扁平列表(序列(序列((i-1,余式((-1)^(i) j-1,i+1)*2-((i-1)/(2))*2),j,1,i),i,1,45))
l1=扁平列表(序列(序列((i,余式((-1)^(i) j-1,i+1)-((i-1)/(2))),j,1,i),i,1,45))
l1=扁平列表(序列(序列((i,余式((-1)^(i) j-1,i+1)*2-((i-1)/(2))*2),j,1,i),i,1,45))
#相邻两点的箭头序列，第二个点用l3(i)+0.9 (l3(i+1)-l3(i))作少许偏移
#基本序列是：序列(向量(l3(i),l3(i+1)),i,1,n-1)
l2=序列(向量(l3(i),l3(i)+0.9 (l3(i+1)-l3(i))),i,1,n-1)
#已出现的系列点，以及最后一个点
l3=最前元素(l1,n)
u=元素(l3,n)
#进阶：可增加一个开关a，在列表点前加A a + 点列表，可是点以点A为基准。
#基本序列是：序列(序列((i,余式(j-1,i+1)),j,1,i),i,1,45)，但是顺序都是从底部往上数的
以下变式使点的纵坐标变小，往下移
l1=扁平列表(序列(序列((i-1,余式((-1)^(i) j-1,i+1)*2-((i-1)/(2))*2),j,1,i),i,1,45))
l1=扁平列表(序列(序列((i,余式((-1)^(i) j-1,i+1)-((i-1)/(2))),j,1,i),i,1,45))
l1=扁平列表(序列(序列((i,余式((-1)^(i) j-1,i+1)*2-((i-1)/(2))*2),j,1,i),i,1,45))
#相邻两点的箭头序列，第二个点用l3(i)+0.9 (l3(i+1)-l3(i))作少许偏移
#基本序列是：序列(向量(l3(i),l3(i+1)),i,1,n-1)
l2=序列(向量(l3(i),l3(i)+0.9 (l3(i+1)-l3(i))),i,1,n-1)
#已出现的系列点，以及最后一个点
l3=最前元素(l1,n)
u=元素(l3,n)
#进阶：可增加一个开关a，在列表点前加A a + 点列表，可是点以点A为基准。