clc
clear all

r=80;
c=2*pi*r;
increment=25;
s=c/increment;
angle=s/r;

theta=0;
for i=1:increment
    theta(i+1)=theta(i)+angle;
    x(i)=r*cos(theta(i+1));
    y(i)=r*sin(theta(i+1));
    %check
    r=(x(i)^2+y(i)^2)^0.5;

    coord(i,1)=x(i);
    coord(i,2)=y(i);
end
disp('     x          y')
disp(coord)

plot(x,y,'*')
grid on