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

Рет қаралды 12,123

Laplace Academy

Күн бұрын

Пікірлер: 21

@fernandopiedra6018 11 күн бұрын

wow this is cool! thanks for making this video and sharing !

@jeetdand3019 4 ай бұрын

Perfect explanation, very helpful. Thankyou.

@LaplaceAcademy 4 ай бұрын

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

@not_zav Жыл бұрын

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

@MrShortReels 2 жыл бұрын

Nice 👏

@LaplaceAcademy 2 жыл бұрын

Thanks ❤❤

@아이스팥떡 Жыл бұрын

You genius. My Jesus I love you

@LaplaceAcademy Жыл бұрын

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

@Jojangamer13 8 ай бұрын

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

@LaplaceAcademy 8 ай бұрын

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.

@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.

@ריףשמריהו-ב4ה 3 ай бұрын

How can I make a system of 4 rod and slider

@LaplaceAcademy 3 ай бұрын

You can send your project details to laplaceacademy1@gmail.com with your proposed fee. We can help you.

@twinsz3498 2 жыл бұрын

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

@LaplaceAcademy 2 жыл бұрын

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 2 жыл бұрын

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 laplaceacademy1@gmail.com

@twinsz3498 2 жыл бұрын

@@LaplaceAcademy Thanks alot