雙螺旋圖形

伸縮Dilate(poly,r,A)[br]旋轉Rotate(Dilate(poly,r,A),α,A)[br][br]伸縮i次，r^i[br]旋轉i次，α*i[br][br]Sequence(Rotate(Dilate(poly1,r^i,A),i*α,A),i,0,n)[br]Sequence(Rotate(list_1,i*2*pi/m,A),i,1,m)