2 files changed, 27 insertions, 0 deletions
diff --git a/431/CH3/EX3.7/EX3_7.sce b/431/CH3/EX3.7/EX3_7.sce
new file mode 100755
index 000000000..6a7e03bb2
--- /dev/null
+++ b/431/CH3/EX3.7/EX3_7.sce
@@ -0,0 +1,20 @@
+//Calculating the magnetising current,core loss and flux
+//Chapter 3
+//Example 3.7
+//page 208
+clear;
+clc; 
+disp("Example 3.7")
+V1=230;                //voltage in volts
+f=50;                  //frequency of supply in hertz
+N1=250;                //number of primary turns
+I0=4.5;                //no-load current in amperes
+phi0=acosd(0.25);
+Im=I0*sind(phi0)
+printf("magnetising current,Im=%fA",Im);
+Pc=V1*I0*cosd(phi0);
+printf("\nCore loss=%dW",Pc)
+disp("neglecting I^2R loss in primary winding at no-load")
+E1=V1;
+phi=E1/(4.44*f*N1);
+printf("\nMaximium value of flux in the core=%fWb",phi)
+\ No newline at end of file
diff --git a/431/CH3/EX3.7/resultEX3_7.txt b/431/CH3/EX3.7/resultEX3_7.txt
new file mode 100755
index 000000000..f5e9e348b
--- /dev/null
+++ b/431/CH3/EX3.7/resultEX3_7.txt
@@ -0,0 +1,7 @@
+  
+ Example 3.7   
+magnetising current,Im=4.357106A
+Core loss=258W 
+ neglecting I^2R loss in primary winding at no-load   
+
+Maximium value of flux in the core=0.004144Wb 
+\ No newline at end of file