function [R] = R(mueu,Ku)

R = (3*mueu)/(3*Ku+4*mueu);

if isnan(R) || isinf(R)
    disp('R IS NAN OR INF -> SETTING TO ZERO!');
    R = 0;
end
