Animation of 2R Robotic arm

clc
close all
clear all

l1=2;
l2=1;
l3=0.5;

theta1=linspace(0,90,10);
theta2=linspace(0,90,10);
theta3=linspace(0,90,10);

ct=1;
for i=1:length(theta1)
T1=theta1(i);
for j=1:length(theta2)
T2=theta2(j);
x0=0;
y0=0;
x1=l1*cosd(T1);
y1=l1*sind(T1);
x2=x1+l2*cosd(T2);
y2=y1+l2*sind(T2);
plot([x0 x1 x2],[y0 y1 y2],\'linewidth\',3,\'color\',\'r\')

axis([-0.5 4 -0.5 4])
pause(0.01);
M(ct)=getframe(gcf);
ct=ct+1;

end
end

movie(M)
videofile=VideoWriter(\'FWD.avi\',\'Uncompressed AVI\');
open(videofile)
writeVideo(videofile,M)
close(videofile)