Submerged Light

%% Submerged Light
% Determines the radius of a circle from which a submerged light escapes
% from water into air above

% Inputs and Variables
d = input('How far is the light submerged?\n');
n = input('What is the index of refraction?\n');

% Outputs and Equations
theta = asin(1/n);
r = d*tan(theta)
fprintf('The radius is: %.3e m\n',r)