Week 2- 2R Robotic Arm Challenge

% Inputs

l1 = 1;
l2 = 0.5;

theta1 = linspace(0,90,10);  {10 values between 0 & 90}
theta2 = linspace(0,90,10);
ct = 1;                       {For presention purposes}
for i = 1:length(theta1)      {forloop = displaying values between range specified} 
    THETA1 = theta1(i);
for j = 1:length(theta2)
    THETA2 = theta2(j);
    x0 = 0;
    y0 = 0;

    x1 = l1*cosd(THETA1);
    y1 = l1*sind(THETA1);   
    
    x2 = x1+l2*cosd(THETA2);
    y2 = y1+l2*sind(THETA2);

    % Plotting
    plot([x0 x1],[y0 y1],[x1 x2],[y1 y2],'LineWidth',3)
    axis([-0.1 1.5 0 2])
    pause(0.03)
    M(ct) = getframe(gcf);
    ct = ct+1;
    

end
end

movie(M)
videofile=videowriter('helix.avi','uncompressed AVI');
open(videofile)
writevideo(videofile,M);
close(videofile)