1 files changed, 19 insertions, 0 deletions
diff --git a/1319/CH7/EX7.1/7_1.sce b/1319/CH7/EX7.1/7_1.sce
new file mode 100644
index 000000000..68b3e0b17
--- /dev/null
+++ b/1319/CH7/EX7.1/7_1.sce
@@ -0,0 +1,19 @@
+//Power delivered to 3 phase synchronous motor 
+
+clc;
+clear;
+
+Vl=2300;
+Il=8.8;
+pf=0.8// Lead Power Factor
+theta=acosd(pf)
+
+P=sqrt(3)*Vl*Il; // Power delivered by the pump
+
+I=P/(sqrt(3)*Vl*pf); // Increase in Current
+
+Pr=sqrt(3)*Vl*I*sind(theta); // kVAr supplied
+
+printf('The Power delivered by the pump = %g kW \n',P/1000)
+printf('The Rheostat should be decreased such that the ammeter reads %g A \n',I)
+printf('The kVAr supplied by the motor = %g kVAr',Pr/1000)