> restart:
> m:=1.7123:
> x:=0:
> y:=0:
> v:=[[x,y]]:
> for k to 100 do xx:=floor(x)+1:yy:=floor(y)+1:if
(yy-y)>m*(xx-x) then x:=xx:y:=m*x else y:=yy:x:=y/m:fi:v:=[op(v),[1-abs(x-2*floor(x/2)-1),1-abs(m*x-2*floor(m*x/2)-1)]]
od:
> plot (v,scaling=constrained);
![[Maple Plot]](../work/images/890706-141.gif)
|
 |