diff options
Diffstat (limited to '3014/CH7/EX7.2/Ex7_2.sce')
| -rwxr-xr-x | 3014/CH7/EX7.2/Ex7_2.sce | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/3014/CH7/EX7.2/Ex7_2.sce b/3014/CH7/EX7.2/Ex7_2.sce new file mode 100755 index 000000000..41b1cd005 --- /dev/null +++ b/3014/CH7/EX7.2/Ex7_2.sce @@ -0,0 +1,15 @@ +
+clc
+//Given that
+p = 2 // power in cal/min/cm^2
+
+epsilon_0 = 8.854e-12 // Permittivity of free space
+mu_0 = 4*%pi*1e-7 // permeability of free space
+printf("Example 7.2")
+s = p*4.2e4/60 // Calculation of pointing vector
+E_H_ratio = sqrt(mu_0/epsilon_0) // Calculation of ratio of Electric field and magnetic field
+E= sqrt(E_H_ratio*s) // Calculation of Electric field
+H = s/E // Calculation of Electric field
+
+printf("\n Average value of electric field is %f Volt/m ",E*sqrt(2))
+printf(" \nAverage value of magnetic field is %f Amp turn/m \n\n\n",H*sqrt(2))
|