1 files changed, 20 insertions, 0 deletions
diff --git a/3753/CH6/EX6.2/Ex6_2.sce b/3753/CH6/EX6.2/Ex6_2.sce
new file mode 100644
index 000000000..30d26fc6e
--- /dev/null
+++ b/3753/CH6/EX6.2/Ex6_2.sce
@@ -0,0 +1,20 @@
+//Example number 6.2, Page number 6.46
+
+clc;clear;close
+
+
+// Variable declaration
+e=1.6*10**-19;    // charge(coulomb)
+new=6.8*10**15;   // frequency(revolutions per second)
+mew0=4*%pi*10**-7; // coefficient
+R=5.1*10**-11;     // radius(m)
+
+// Calculation
+i=(e*new);          // current(ampere)
+B=mew0*i/(2*R);            // magnetic field at the centre(weber/m**2)
+A=%pi*R**2; // in m^2
+d=i*A;                    // dipole moment(ampere/m**2)
+
+// Result
+printf("magnetic field at the centre is : %.f weber/m**2",B)
+printf("\ndipole moment is : %.e Ampere/m**2",(d))