plot([cos(alpha)*r cos(alpha)*r-sin(alpha)*r],[sin(alpha)*r sin(alpha)*r+cos(alpha)*r],'LineWidth',3); plot([cos(alpha)*r cos(alpha)*r+sin(alpha)*r],[sin(alpha)*r sin ...