2R Robotic Arm

%2R Robotic Arm Program
clear all
close all
clc
%Inputs
l1 = 1; l2= 2;
x0=0; y0 = 0;
theta1=linspace(0,180,20); theta2=linspace(0,180,20);
n=1;
for i=1:length(theta1)
for j=1:length(theta2)
x1=l1*cosd(theta1(i)); y1=l1*sind(theta1(i));
x2=x1+l2*cosd(theta2(j)); y2=y1+l2*sind(theta2(j));
plot([x0 x1],[y0 y1],[x1 x2],[y1 y2])
axis([-3.5 3.5 -0.5 3.5])
pause(0.1)
M(n)=getframe(gcf);
n=n+1;
end
end
movie(M)
videofile=VideoWriter(\'Robotic_Arm\',\'Uncompressed AVI\');
open(videofile)
writeVideo(videofile,M)
close(videofile)