Week 2- 2R Robotic Arm Challenge
% Input of Forward Kinematics of a 2R Robatic arm
l1 = 2
l2 = 1
x0 = 0
y0 = 0
theta1 = linspace(0,90,10);
theta2 = linspace(0,90,10);
ct = 1
for i = 1:length(theta1)
Z1 = theta1(i);
for j = 1:length(theta2)
Z2 = theta2(j);
x1 = l1*cosd(Z1);
y1 = l1*sind(Z1);
x2 = l2*cosd(Z2);
y2 = l2*sind(Z2);
figure(1)
plot([x0 x1],[y0 y1],[x1 x2],[y1 y2],'LineWidth',4,'Color','g');
axis([0 5 0 5]);
M(ct) = getframe(gcf);
ct = ct+1;
end
end
movie(M)
videofile = VideoWriter('robatic_arm.avi','Uncompressed AVI');
open(videofile);
writeVideo(videofile,M);
close(videofile);
Animation:
https://drive.google.com/file/d/1IEGcucC-Deps0yfs8h1Izq5lBrG-l7Aa/view?usp=sharing