1 files changed, 15 insertions, 0 deletions
diff --git a/3651/CH5/EX5.6/6.sce b/3651/CH5/EX5.6/6.sce
new file mode 100644
index 000000000..8d7ef0e13
--- /dev/null
+++ b/3651/CH5/EX5.6/6.sce
@@ -0,0 +1,15 @@
+//Variable declaration
+e=1.6*10**-19;    //charge(coulomb)
+new=6.8*10**15;   //frequency(revolutions per second)
+mew0=4*%pi*10**-7;
+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;
+d=i*A;       //dipole moment(ampere/m**2)
+
+//Result
+printf('magnetic field at the centre is %0.3f weber/m**2\n',(B))
+printf('dipole moment is %0.3f *10**-24 ampere/m**2\n',(d*10**24))
+\ No newline at end of file