1 files changed, 25 insertions, 0 deletions
diff --git a/2672/CH2/EX2.17/Ex2_17.sce b/2672/CH2/EX2.17/Ex2_17.sce
new file mode 100755
index 000000000..d61240907
--- /dev/null
+++ b/2672/CH2/EX2.17/Ex2_17.sce
@@ -0,0 +1,25 @@
+//Ex_2_17
+clc;
+clear;
+close;
+format('v',5);
+//given data :
+CD=10/100;BE=10/100;AF=10/100;//m
+BC=8/100;ED=8/100;AB=8/100;EF=8/100;//m
+BCDE=BC+CD+ED;//m
+BAFE=AB+BE+EF;//m
+A=2*2*10^-4;//m^2
+mu_r=1200;///relative permeability
+N=800;//turns
+fi2=2*10^-3;//Wb
+mu0=4*%pi*10^-7;//permeability of air
+S2=BAFE/(mu0*mu_r*A);//Wb/m^2
+S1=BE/(mu0*mu_r*A);//Wb/m^2
+fi1=fi2*S2/S1;//Wb
+fi=fi1+fi2;//Wb
+AT2=fi*S2;//AT//for portion BAFE
+AT1=fi1*S1;//AT//for portion BCDE
+AT=AT1+AT2;//AT//Toal AT required
+NI=AT;//AT
+I=NI/N;//A
+disp(I,"Magnetizing current(A)");