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

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

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

Thanks ❤❤

❤️❤️

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.

Tnx. I'm glad it was helpfu;

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

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)

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

@@LaplaceAcademy Thanks alot

Yes. Please send an email to laplaceacademy1@gmail.com