kcajf

Keybase proof

I hereby claim:

• I am kcajf on github.
• I am jackf (https://keybase.io/jackf) on keybase.
• I have a public key ASBKNOsqkHKxQPwXs9kzhzc8-Qab0hcAJQx2ovdNMNntTgo

To claim this, I am signing this object:

kcajf

function [ q ] = q_from_f( f, R )
%UNTITLED5 Summary of this function goes here
%   Detailed explanation goes here

q = sqrt( 6 / (391.7 + (800*f)/(pi^2 * R^5 * 9.81)));
end

kcajf

function [ f ] = Moody( Re, r )
% Returns friction factor for Reynold's number Re, relative roughness r 
% Uses Haaland equation

f = (1./(-1.8 *log10( (r/3.7)^(1.11) + 6.9./Re)).^2)./4;

end

kcajf

Re_guess = 2e4;

r = 0.002; % roughness
R = 0.075; % pipe radius
D = 2*R;
p = 1000; % density
visc = 1.141e-3; % viscosity

latest_q = q_from_f(f_guess, R)
penultimate_q = 1;