1 files changed, 19 insertions, 0 deletions
diff --git a/3871/CH5/EX5.9/Ex5_9.sce b/3871/CH5/EX5.9/Ex5_9.sce
new file mode 100644
index 000000000..5fa635988
--- /dev/null
+++ b/3871/CH5/EX5.9/Ex5_9.sce
@@ -0,0 +1,19 @@
+//===========================================================================
+//chapter 5 example 9
+clc;clear all;
+
+//variable declaration 
+//dL/dtheta  = x
+y     = 2.3*10^-6;
+Td1    = 5*10**-7; 
+t       = 52;     
+
+//calculations
+x     = y*(180/%pi);
+Td     = Td1*t;
+//Td     = (1/2)*(I**2)*(dL/dtheta);
+I           = sqrt((Td*2)/(x));		//current in A
+
+//result
+mprintf("current = %3.2f A",I);
+