1 files changed, 35 insertions, 0 deletions
diff --git a/1319/CH13/EX13.15/ii_15.sce b/1319/CH13/EX13.15/ii_15.sce
new file mode 100644
index 000000000..b9d85088a
--- /dev/null
+++ b/1319/CH13/EX13.15/ii_15.sce
@@ -0,0 +1,35 @@
+//To Compute the maximum flux set by an coil.
+
+clc;
+clear;
+
+L1=0.5;
+L2=1;
+K=0.8;
+
+N2=1500;
+
+M=K*sqrt(L1*L2);
+i1=20;
+
+theta=poly(0,'t');
+
+fact=derivat(theta);// Derivative of the time factor(Linear function of 't').
+
+omega=314;// The Angular Frequency Factor
+
+v2=M*fact*omega*i1;// Maximum Coil 2 Voltage
+
+disp('cos 314t V',v2,'The Voltage Across Coil 2= ')
+
+dflx=v2/N2;
+
+Mxflux=(dflx/omega)*(1/fact);
+
+
+disp('sin 314t Wb',Mxflux,'The flux setup by Coil 1= ')
+
+disp('Wb',Mxflux,'The Maximum Flux Setup by Coil 1= ')
+
+
+