>function plotone (a:vector,f:vector,r=none,grid=0,thickness=1) ...

$ t=linspace(0,2*pi,5000);

$ z=exp(I*t)+sum((a'*exp(I*f'*t))')';

$ if r==none then r=totalmax(abs(z))*1.05; endif;

$ plot2d(re(z),im(z),=r,=grid,=thickness);

$endfunction

>plotone([1/2,I/3],[6,-14],thickness=0.7):

http://forum.euler-math-toolbox.de/viewtopic.php?t=185&p=712#p712

By the way, the curves should be computed with adaptive evaluation. EMT has a function for this. But due to laziness, I just took 5000 points around the circle. I think I will post a blog entry about this in my blog (observations.rene-grothmann.de).

]]>https://news.ycombinator.com/item?id=9762022

]]>

Don’t know how to post code here.

]]>