1、给定n的滑动变量尺,最小值0,最大值100,步进为1。
2、在平面上绘制任意四个点A、B、C、D。
3、在输入框里面输入:p=多边形[A,B,C,D]
4、先后输入:E=内点[p]F=内点[p]
5、关键一步,作射线EF与多边形p的第一交点:G=元素({交点(射线(E,F),p)},1)
6、把多边形p的各边放到一个集合里面:列表1={a,b,c,d}
7、把点G限定到多边形p的边界上:列表2=条件子列[G∈p,p,列表1]
8、进行迭代,迭代深度用n控制:列表3=迭代列表(fs(p,P,Q),P,Q,{E,G},n)
9、用向量把所有的反射点都连接起来:序列(向量(列表3(i),列表3(i+1)),i,1,n)