clc
clear

r = 10;
phi = linspace(0, 4*pi, 1000);

x = r*(phi - sin(phi));
y = r*(1 - cos(phi));

plot(x, y, 'r', 'LineWidth', 2);

title('Cycloid Function for r = 10 inches by kaliyah johnson');
xlabel('x (inches)');
ylabel('y (inches)');