1 files changed, 13 insertions, 0 deletions
diff --git a/1628/CH5/EX5.1/Ex5_1.sce b/1628/CH5/EX5.1/Ex5_1.sce
new file mode 100755
index 000000000..fa3b1f5ee
--- /dev/null
+++ b/1628/CH5/EX5.1/Ex5_1.sce
@@ -0,0 +1,13 @@
+
+
+                      // Example  5.1
+
+B=20*10^-3;       // Megnetic Field intensity
+m=4*%pi*10^-7;    // Permeability of free Space
+n=20*100;         // No.Of Turns per meter
+I=B/(m*n);
+disp(' Necessary Current is = '+string(round(I))+' Amp');
+
+
+
+       //  p 187       5.1