1 files changed, 20 insertions, 0 deletions
diff --git a/1938/CH4/EX4.18/4_18.sce b/1938/CH4/EX4.18/4_18.sce
new file mode 100755
index 000000000..c2b91553a
--- /dev/null
+++ b/1938/CH4/EX4.18/4_18.sce
@@ -0,0 +1,20 @@
+clc,clear
+printf('Example 4.18\n\n')
+
+V_L=125
+V_ph=V_L
+VA=600*10^3
+I_L=VA/(sqrt(3)*V_L)     // Because VA=sqrt(3)* V_L * I_L
+I_ph=I_L/(sqrt(3))
+
+//After Reconnection
+V_ph=125
+V_L=V_ph*sqrt(3)
+printf('New rating in volts is %.3f V',V_L)
+//Winding Impedances remain the same
+I_ph=1600
+I_L=I_ph
+
+printf('\nNew rating in amperes is %.0f A',I_L)
+kVA=sqrt(3)*V_L*I_L*(10^-3)
+printf('\nNew rating in kVA is %.0f kVA',kVA)