function [] = my_circle_27_03(a,r,n)
%a sta in C r>=0
%z=a+r*e^(i theta) =real(a)+r cos(theta)+i(imag(a)+r sin(theta))
%|z-a|=r
x=zeros(n,1);
y=zeros(n,1);
for k=1:n
    th=2*pi*k/n;
    x(k)=real(a)+r*cos(th);
    y(k)=imag(a)+r*sin(th);
end
%plot(x,y)
patch(x,y,'g')
axis equal
end