Create a Slider-Crank Animation with MATLAB | Learn MATLAB Through Projects

[@jeetdand3019]

Perfect explanation, very helpful. Thankyou.

[@LaplaceAcademy]

You're welcome. I'm glad you found it helpful

[@not_zav]

how different would the code be for an inverted slider crank?

[@아이스팥떡]

You genius. My
Jesus I love you

[@LaplaceAcademy]

I'm absolutely flattered by your comment. I'm glad you like it. ❤️

[@valeriabustamantecornejo9674]

Hello what if I wanted to do it vertical with the crank on the bottom. I have tried but it turns out the the crank move downwards whilst point A goes up. Thank you anyway.

[@MrShortReels]

Nice 👏

[@LaplaceAcademy]

Thanks ❤❤

[@Jojangamer13]

Thanks for the video but it is e-c/2 would appreciate it if you could correct it
line 7
2:13

[@LaplaceAcademy]

Thank you for your interest in this code. Actually it depends on your definition of 'e'. I took 'e' as the vertical distance between O and the sliding surface. So in this definition my code is definitely correct. You can define 'e' in another way and change the code accordingly.

[@Yovilen_LO]

👍

[@LaplaceAcademy]

❤️❤️

[@kevinkipkorir3132]

nice

[@LaplaceAcademy]

Tnx. I'm glad it was helpfu;

[@ריףשמריהו-ב4ה]

How can I make a system of 4 rod and slider

[@LaplaceAcademy]

You can send your project details to [e-mail] with your proposed fee. We can help you.

[@twinsz3498]

thanks alot can you share your code because i am having a error much appreciate if you share your code 👍

[@LaplaceAcademy]

close all; clear all; clc;
r = 1; n = 100;
theta = linspace(0, 2*pi, n);
Ax = r * cos(theta);
Ay = r * sin(theta);
a = 2.5; e = 0.25; c = 0.5; d = 1; t = 0.06;
By = e + c/2;
Bx = Ax + sqrt(a^2 - (Ay - e - c/2).^2);
axislimits = [min(Ax)*1.1 max(Bx)*1.2 min(Ay)*1.1 max(Ay)*1.1];
sliderY = [e e+c e+c e e];
groundX = [min(Bx)-d/2 min(Bx)-d/2 max(Bx)+d/2 max(Bx)+d/2 min(Bx)-d/2];
groundY = [e-t e e e-t e-t];
videoObject = VideoWriter('slider crank', 'MPEG-4');
videoObject.FrameRate = 15;
open(videoObject)
for ii = 1:n
plot(Ax, Ay, '--', 0 ,0, 'ko')
axis equal
hold on
sliderX = [Bx(ii)-d/2 Bx(ii)-d/2 Bx(ii)+d/2 Bx(ii)+d/2 Bx(ii)-d/2];
fill(sliderX, sliderY, 'm')
fill(groundX, groundY, 'g')
plot([0, Ax(ii)], [0, Ay(ii)], 'k', 'linewidth', 2)
plot(Ax(ii), Ay(ii), 'ko')
plot(Bx(ii), By,'ko')
axis(axislimits)
plot([Ax(ii), Bx(ii)], [Ay(ii), By], 'k', 'linewidth', 2)
axis off
hold off
frames(ii) = getframe;
end
for kk = 1:5
writeVideo(videoObject, frames)
end
close(videoObject)

[@LaplaceAcademy]

Hi. I hope it helps you. I couldn't find your email address, so I just pasted the code right here. If you needed more help, contact me via [e-mail]

[@twinsz3498]

@@LaplaceAcademy Thanks alot

[@sekiz_kelvin]

Can you share the complete source code?

[@LaplaceAcademy]

Yes. Please send an email to [e-mail]