借鉴https://www.geogebra.org/m/huf2Ygzt[br][br][br][br]https://tieba.baidu.com/p/7298788205 法向量法
初始图形[br]poly1=多边形((0,0),(b,0),n)[br]l1={顶点(poly1)}[br][br]顶点[br]m1=迭代列表(序列(a 元素(p,i)+(1-a) 如果(i≟n,元素(p,1),元素(p,i+1)),i,1,n),p,{l1},m)[br][br]多边形[br]l2=序列(多边形(元素(m1,i)),i,1,长度(m1))[br][br]方法2[br]l3=迭代列表(多边形(序列(描点(p,i*0.25+((a)/(n))),i,0,n-1)),p,{poly1},m)