Week 3.2 - 2R Robotic Arm Challenge

https://screenrec.com/share/tdMVfiCzwp

https://youtu.be/MZ6dWjCifMY

clear all
close all
clc

% inputs
L1= 1;
L2= 0.5;

Theta1= linspace(0,90,10);
Theta2= linspace(-180,180,50);
ct=1;
for i=1:length(Theta1);
   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 1.5])
pause(0.03)
F(ct)=getframe(gcf);
ct=ct+1
   end
end
movie(F)
video = VideoWriter('for_loop_forward_kinematics.avi','Uncompressed AVI');
open(video)
writeVideo(video,F);
close(video)