diff options
Diffstat (limited to '3014/CH7/EX7.1/Ex7_1.sce')
| -rwxr-xr-x | 3014/CH7/EX7.1/Ex7_1.sce | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/3014/CH7/EX7.1/Ex7_1.sce b/3014/CH7/EX7.1/Ex7_1.sce new file mode 100755 index 000000000..0209dc224 --- /dev/null +++ b/3014/CH7/EX7.1/Ex7_1.sce @@ -0,0 +1,13 @@ +
+clc
+//Given that
+p = 1000 // power in watt
+d = 2 // Distance from lamp in m
+epsilon_0 = 8.854e-12 // Permittivity of free space
+mu_0 = 4*%pi*1e-7 // Permeability of free space
+printf("Example 7.1")
+s = p/(4*%pi*d^2)// 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
+printf("\n Average value of electric field at distance %d m is %f Volt/m \n\n\n",d,E)
+// Answer in book is 48.87 volt/m which is due to wrong calculation at intermediate steps
|