Week 2- 2R Robotic Arm Challenge

clear all
close all
clc

%inputs 
l1=1;
l2=0.5;
theta1 = linspace(0,90,40);
theta2 = linspace(0,90,40);

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+l1*cosd(THETA2);
y2 = y1+l1*sind(THETA2);

figure(1)
plot([x0 x1],[y0 y1],[x1 x2],[y1 y2],'linewidth',2)
axis([0 2 0 2])
M(ct)=getframe(gcf)
ct = ct+1;
end
end

Videofile = VideoWriter('Forward_Kinematics.avi','Uncompressed AVI');
open(Videofile)
writeVideo(Videofile,M)
close(Videofile)

Robo Arm AVI

https://drive.google.com/drive/folders/1mvPfEeuJqaSFDNy-1HE5VEbj675HgfZV?usp=sharing