1 files changed, 19 insertions, 0 deletions
diff --git a/1319/CH5/EX5.1/5_1.sce b/1319/CH5/EX5.1/5_1.sce
new file mode 100644
index 000000000..0781b2be2
--- /dev/null
+++ b/1319/CH5/EX5.1/5_1.sce
@@ -0,0 +1,19 @@
+// To find flux density in the core and induced emf in the secondary winding
+
+clc;
+clear;
+
+E1=500;
+A=60*(10^-4);
+f=50;
+N1=400;
+N2=1000;
+
+// E=4.44*f*N*Bm*A Induced EMF equation
+
+Bm=E1/(4.44*f*N1*A);
+
+E2=4.44*f*N2*Bm*A;
+
+printf('a) The peak value of the flux density in the core = %f tesla \n',Bm)
+printf('b) The voltage induced in the secondary winding = %f V \n',E2)