diff options
Diffstat (limited to '2252/CH3/EX3.3')
| -rwxr-xr-x | 2252/CH3/EX3.3/Ex3_3.sce | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/2252/CH3/EX3.3/Ex3_3.sce b/2252/CH3/EX3.3/Ex3_3.sce new file mode 100755 index 000000000..dc0297c6b --- /dev/null +++ b/2252/CH3/EX3.3/Ex3_3.sce @@ -0,0 +1,11 @@ +
+mu_not=4D-7*%pi
+//calculating flux density at centre of coil B=mu_not*I/(2*R)
+I=50
+R=4D-2
+B=mu_not*I/(2*R)
+mprintf("Flux density at centre of coil=%f*10^-6 Wb/m^2(Tesla)\n", B*10^6)
+//calculating flux density perpendicular to plane of coil at a distance of 10 cm from it
+z=10D-2
+B=mu_not*I*R^2/(2*(R^2+z^2)^1.5)
+mprintf("Flux density perpendicular to plane of coil at a distance of 10 cm from it=%f*10^-6 Wb/m^2(Tesla)", B*10^6)
|