1 files changed, 12 insertions, 0 deletions
diff --git a/2345/CH6/EX6.1/Ex6_1.sce b/2345/CH6/EX6.1/Ex6_1.sce
new file mode 100755
index 000000000..65697b159
--- /dev/null
+++ b/2345/CH6/EX6.1/Ex6_1.sce
@@ -0,0 +1,12 @@
+//Finding current
+//Example 6.1(pg 212)
+clc
+clear
+f=0.01//flux in Wb
+l=1//mean circumference in m
+N=1000//tunrs
+Ur=1000//relative permeability
+Uo=4*%pi*(10^-7)//permeability of free space in H/m
+a=0.001// cross section area in m^2
+I=(f*l)/(N*Uo*Ur*a)// current in Amp. since f=A*T/(l/Uo*Ur*a)
+printf('Thus Current required is %3.3f Amp',I)