I also need to create a graph of errors. Original Equations to solve for Unknowns are:
V=0.35/((pi*D^2)/4)Re=(VD)/0.0000126520=f*(150/D)*((V^2)/(2*9.81))1/sqrt(f)=-log_10(2.51/(Re*sqrt(f)))
My code is as follows:
syms V D Re fV=[0 50]D=[0 10]f=[0 1]Re>2300%declaring equations
eqn1 = (V*pi*D.^2)/1.4 == 0;eqn2 = Re * 0.00001265 - V*D == 0eqn3 = 20*D*2*9.81 - 150*f*V.^2 == 0eqn4 = 1/sqrt(f) + log10(2.51/Re*sqrt(f)) == 0sol = solve([eqn1, eqn2, eqn3, eqn4], [V,D,Re, f]);vSol = vpa(sol.V, 3)dSol = vpa(sol.D, 3)ReSol = vpa(sol.Re, 3)fSol = vpa(sol.f, 3)%displaying results
disp(vSol)disp(dSol)disp(ReSol)disp(fSol)
Best Answer