Industrial Laser

%% Industrial Laser
% Determines the RMS value of the electric and magnetic field
% of an industrial laser that is used to burn a hole through a piece of
% metal

% Constants
E = 8.85*10^-12         %[C^2/N*m^2] Permittivity Constant
c = 3.00*10^8           %[m/s] Speed of Light
% Inputs and Variables
Save = input('What is the average intensity of light?\n');

% Outputs and Equations
Erms = sqrt(Save/(E*c));
Brms = Erms/c;
fprintf('The RMS values of the electric and magnetic field are :/n%.4e N/C and %.4e T',Erms, Brms)