/* rotation number or internal angle */ t : (-1+sqrt(5))/2; /* golden Mean Siegel disc */ angle : 2*%pi*t; /* from turns to radians */ d : exp(angle*%i);...
DistanceFromCenter,orbit))$ /* =========== main =========*/ c:-.5867879078859505*%i-.3905408691260131; /* Golden Mean*/ zf:GiveFixed(c);...
