diff options
Diffstat (limited to '2381/CH17/EX17.3')
| -rwxr-xr-x | 2381/CH17/EX17.3/ex_3.sce | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/2381/CH17/EX17.3/ex_3.sce b/2381/CH17/EX17.3/ex_3.sce new file mode 100755 index 000000000..53fb30cb3 --- /dev/null +++ b/2381/CH17/EX17.3/ex_3.sce @@ -0,0 +1,18 @@ +//Example 3 // Amplitude and magnetic field +clc; +clear; +close; +//given data : +S=2;// in cal/cm^2- min +EH=S*4.2*10^4/60;// joule/m^2 sec +mu0=4*%pi*10^-7; +epsilon0=8.85*10^-12; +EbyH=sqrt(mu0/epsilon0); +E=sqrt(EH*EbyH); +H=EH/E; +E0=E*sqrt(2); +H0=H*sqrt(2); +disp(E,"E is ,(V/m)=") +disp(H,"H is ,(Amp-turn/m)=") +disp(E0,"Amplitude of electric fields of radiation,E0(V/m) = ") +disp(H0,"Magnetice field of radition ,H0(Amp-turn/m) = ") |