restart;
a:= 2.75: b:= 7.: N:= 2^4:
X:= t-> add(sin(b^k*t)/a^k, k= 0..N):
Y:= t-> add(cos(b^k*t)/a^k, k= 0..N):
plot(
[X, Y, 0..2*Pi], numpoints= 2^12
,scaling= constrained
,axes= none
,color= cyan
,caption= cat("Happy New Year ", StringTools:-FormatTime("%Y"))
,captionfont= [Helvetica, boldoblique, 24]
);
