“fourbarvelo” Function Group 13

% This is a function that is used in the main code that plots the behavior of our fourbar mechanism.


function [omega_3, omega_4] = fourbarvelo(l,theta_1,theta_2, theta_3, theta_4, omega_2)

a = l(1);

b = l(2);

c = l(3);

d = l(4);

omega_3 = omega_2*(a/b)*((sind(theta_4-theta_2))/(sind(theta_3-theta_4)));

omega_4 = omega_2*(a/c)*((sind(theta_2-theta_3))/(sind(theta_4-theta_3)));

% fprintf("Omega 3 = %.3f\n", omega_3);

% fprintf("Omega 4 = %.3f\n", omega_4);