1 files changed, 22 insertions, 0 deletions
diff --git a/1938/CH4/EX4.13/4_13.sce b/1938/CH4/EX4.13/4_13.sce
new file mode 100755
index 000000000..41b99f92a
--- /dev/null
+++ b/1938/CH4/EX4.13/4_13.sce
@@ -0,0 +1,22 @@
+clc,clear
+printf('Example 4.13\n\n')
+
+Pole=16
+phi=0.03 //flux per pole
+Ns=375 //synchronous speed in rpm
+f=Ns*Pole/120 //frequency
+printf('frequency is %.0f Hz ',f)
+Slots=144
+n=Slots/Pole  //slots per pole
+m=n/3 //slots per pole per phase
+beeta=180/n  //slot angle
+K_c=1 //assuming Full-Pitch coil
+Conductors_per_slot=10
+K_d=sind(m*beeta/2) /(m*sind(beeta/2))  //distribution factor
+
+Total_conductors=Slots*Conductors_per_slot
+Total_turns=Total_conductors/2
+T_ph=Total_turns/3  //turns per phase
+E_ph=4.44* K_c* K_d*phi* f* T_ph
+E_line=E_ph*sqrt(3)
+printf('\nline voltage is %.2f V ',E_line)