function[Rm] = RefracIndex(Cm)
% constant for speed of light in m/s
c = 2.99792 * (10^8);
 % calculation for refractive index through a medium
Rm = c/Cm;
end
