Diopter of a Lens

%% Diopter of a Lens
% Determines the radius of the curvature of the inner surface of a lens

% Inputs and Variables
D = input('Diopters\n');
u = input('Index of refraction\n');
d = input('Distance from point to edge of lens\n');

% Outputs and Equations
R = 1/(-D/(u-1)+(1/d));
fprintf('The radius is: %.3e m\n',R);