//Example 4 // electric and magnetic field
clc;
clear;
close;
//given data :
r=2;// in m
mu0=4*%pi*10^-7;
epsilon0=8.85*10^-12;
EbyH=sqrt(mu0/epsilon0);
EH=1000/(4*r^2*%pi^2);// in W/m^2
E=sqrt(EH*EbyH);
H=(EH/E);
disp(E,"Intensities of electric,E(V/m) = ")
disp(H,"Magnetic field of radiation,H(Amp-turn/m) = ")