Master/texmf-dist/doc/asymptote/examples/cardioid.asy


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

import graph;

size(0,100);

real f(real t) {return 1+cos(t);}

path g=polargraph(f,0,2pi,operator ..)--cycle;
filldraw(g,pink);

xaxis("$x$",above=true);
yaxis("$y$",above=true);

dot("$(a,0)$",(1,0),N);
dot("$(2a,0)$",(2,0),N+E);