Source of EM Wave

%% Source of EM Wave
% Determines the peak value of the magnetic field, the average power, and
% the force on a sheet due to a wave

% Constants
E = 8.85*10^-12;         % [C^2/N*m^2] Permittivity Constant
c = 3.00*10^8;           % [m/s] Speed of Light
mu = 4*pi*10^-7;         % [N/A^2] Magnetic Constant

% Inputs and Variables
d= input('What is the distance?\n');
I = input('What is the intensity of the wave?\n');
SA = input('What is the surface area of the sheet absorbing the wave?\n');

% Outputs and Equations
B = sqrt(2*mu*I/c);
P = 4*pi*d*d*I;
F = I*SA/c;
fprintf('Bpeak: %.4e T\nAverage power: %.4e W\nForce: %.4e N', B,P,F)