From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 1628/CH18/EX18.1/Ex18_1.sce | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100755 1628/CH18/EX18.1/Ex18_1.sce

(limited to '1628/CH18/EX18.1/Ex18_1.sce')

diff --git a/1628/CH18/EX18.1/Ex18_1.sce b/1628/CH18/EX18.1/Ex18_1.sce
new file mode 100755
index 000000000..2010cfb80
--- /dev/null
+++ b/1628/CH18/EX18.1/Ex18_1.sce
@@ -0,0 +1,22 @@
+
+                // Examle 18.1
+
+I=0.015;                 // Current in a coil
+B=0.2;                   // Megnetic flux density
+l=0.02;                  // Length of megnetic field
+n1=42;                   // No.Of turns N1
+r=0.0125;                // radius of coil
+n2=43;                   // No.Of turns N2
+F1=I*B*l*n1;             // The force on(42-Conductors)
+disp('The force on(42-Conductors) = '+string(F1)+' N');
+
+F2=I*B*l*n2;             // The force on(43-Conductors)
+disp('The force on(43-Conductors) = '+string(F2)+' N');
+
+Tr=(F1+F2)*r;            // Total Torque (Td)
+disp ('Total Torque (Td) = '+string(Tr)+' Nm');
+
+
+
+
+             //  p 756          18.1
\ No newline at end of file
-- 
cgit