Wave from Wire Antenna

%% Wave from Wire Antenna
% Determines the x and y components at time t and the magnitude of the
% Poynting vector

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

% Inputs and Variables
Bmax = input('What is the magnetic field at point O, t = 0s\n')
f  = input('What is the frequency of the wave?\n');
t  = input('t = ?s \n');

% Outputs and Equations
omega = 2*pi*f;
Emax = c*Bmax;
S = Emax*Bmax/mu;
Bt = -Bmax*cos(omega*t);
fprintf('x-component at t=0: %.3f V/m\nmagnitude of Poynting vector at t=0: %.3e W/m^2\ny-component of B-field at t = %.2e: %.3e T', Emax, S, t, Bt)

%{
Under the assumption tha the electromagnetic wave travels into the screen
and at point O the magnetic field vector is pointing in the negative
direction
%}