1 files changed, 13 insertions, 0 deletions
diff --git a/1529/CH21/EX21.12/21_12.sce b/1529/CH21/EX21.12/21_12.sce
new file mode 100755
index 000000000..15169ce75
--- /dev/null
+++ b/1529/CH21/EX21.12/21_12.sce
@@ -0,0 +1,13 @@
+//Chapter 21, Problem 12
+clc;
+v1=4500;                        //primary voltage
+v2=225;                         //secondary voltage
+f=50;                           //frequency
+en=15;                          //e.m.f. per turn
+B=1.4;                          //maximum core flux density
+n1=v1/en;                       //primary turns
+n2=v2/en;                       //secondary turns
+phim=v1/(4.44*f*n1);            //maximum flux
+A=phim/B;                       //effective core cross-sectional area
+printf("(a) Primary turns = %f\n\nSecondary turns = %f\n\n\n",n1,n2);
+printf("(b) cross-sectional area of the core = %f m2",A);