Question

w a stress of o; = 55 x 103 psi, when M = 5 lb-in and d = 0.1 in. 2.8. The angular position of the output link (04) of a four-bar linkage corresponding to any specified angular position of the input link (02) can be computed using the Freudenstein's equation [2.6] kı cos 04 - k2 cos 02 + k3 = cos(62 – 64), (E1) where dad a² – 6² + ² + d² -, k2 = -, and k3 = - (E2) 2ac

Find the solution of Problem 2.8 using Newton-Raphson method with the starting value of $\Theta_4$ as 90 degrees and $\epsilon$ =0.001

Please upload the program using VBA or Matlab

Answer 1

`Hey,

Note: Brother if you have any queries related the answer please do comment. I would be very happy to resolve all your queries.

clc%clears screen
clear all%clears history
close all%closes all files
format long
a=1;
b=2;
c=4;
d=5;
th2=30;
k1=d/a;
k2=d/c;
k3=(a^2-b^2+c^2+d^2)/(2*a*c);
f=@(x) k1*cosd(x)-k2*cosd(th2)+k2-cosd(th2-x);
g=@(x) - sind(th2 - x) - k1*sind(x);
x0=90;
for i=1:100
x0=x0-f(x0)/g(x0);
if(abs(f(x0))<0.001)
break;
end
end
fprintf('Theta4 = %f degrees\n',x0);

- O X Pradeep Search Documentation MATLAB R2018a HOME + G New Open Save PLOTS C Find Files 3 Compare - Print D Run Section 8 Aduan RUN C: Users ох x|ahk. mxnse_filt. mx + FILE a Current Folder Name - codegen convertFinal directory1 example first googleLinks mathlab mynewdir APPS EDITOR PUBLISH VIEW do E C . Insert E fx EH - Go To - Comment % %% Breakpoints Run Run and Advance Run and Find Indent 1 - 6 Advance Time NAVIGATE EDIT BREAKPOINTS PRADEEP KALRA Documents MATLAB O Editor - C:\Users\PRADEEP KALRA\Documents\MATLAB\saveee.m | +1 saveee. mx bisectionmethodbypradeep.m xgooglelinks. mx | HomeworkLib2. mx testo. mxeulerSystem. m k3=(a^2-b^2+c^2+d^2)/(2*a*c); f=@(x) kl*cosd (x) -k2*cosd(th2) +k2-cosd(th2-x); g=@ (x) - sind(th2 - x) - kl*sind (x); x0=90; for i=1:100 x0=x0-f(x0)/g(x0); if (abs (f(x0)) <0.001) break; end end fprintf('Theta4 = {f degrees\n', 0); IIIIIIIIIII New folder questions old simple_gui2 1.png 2.png 3.png Command Window New to MATLAB? See resources for Getting Started. Details ICO Theta4 = 86.195966 degrees Workspace Name Value b HEBECC283 @(x)k1*cos(x)-k2*C... @(x)-sind(th2-x)-k1*... 100 1.2500 script Type here to search R Ln 22 Col 37 dy ENG 5:16 AM IN 02/13/20 a

Kindly revert for any queries

Thanks.