summaryrefslogtreecommitdiff
path: root/431
diff options
context:
space:
mode:
Diffstat (limited to '431')
-rwxr-xr-x431/CH3/EX3.10/EX3_10.sce56
1 files changed, 27 insertions, 29 deletions
diff --git a/431/CH3/EX3.10/EX3_10.sce b/431/CH3/EX3.10/EX3_10.sce
index 35121871f..fb3c2e5b0 100755
--- a/431/CH3/EX3.10/EX3_10.sce
+++ b/431/CH3/EX3.10/EX3_10.sce
@@ -1,29 +1,27 @@
-//Calculating primary current and primary power factor
-//Chapter 3
-//Example 3.10
-//page 211
-clear;
-clc;
-disp("Example 3.10")
-V1=6600; //primary voltage in volts
-V2=240; //secondary voltage in volts
-kW1=10; //power
-phi1=acosd(0.8);
-I2=50; //current in amperes
-kW3=5; //power
-phi2=acosd(0.7)
-kVA=8; //rating
-phi4=acosd(0.6)
-I1=(kW1*1000)/(cosd(phi1)*V2);
-I3=(kW3*1000)/(1*V2);
-I4=(kVA*1000)/V2;
-Ih=((I1*cosd(phi1))+(I2*cosd(phi2))+I3+(I4*cosd(phi4)));
-Iv=((I1*sind(phi1))+(I2*sind(phi2))-(I4*sind(phi4)));
-I5=sqrt((Ih^2)+(Iv^2))
-printf("I5=%dA",I5)
-Ip=(I5*V2)/V1;
-printf("\nThe current drawn by the primary from 6600Vmains is equal to,Ip=%fA",Ip);
-phi=atand(Iv/Ih);
-printf("\n
-power factor=%flagging",cosd(phi))
-
+//Calculating primary current and primary power factor
+//Chapter 3
+//Example 3.10
+//page 211
+clear;
+clc;
+disp("Example 3.10")
+V1=6600; //primary voltage in volts
+V2=240; //secondary voltage in volts
+kW1=10; //power
+phi1=acosd(0.8);
+I2=50; //current in amperes
+kW3=5; //power
+phi2=acosd(0.7)
+kVA=8; //rating
+phi4=acosd(0.6)
+I1=(kW1*1000)/(cosd(phi1)*V2);
+I3=(kW3*1000)/(1*V2);
+I4=(kVA*1000)/V2;
+Ih=((I1*cosd(phi1))+(I2*cosd(phi2))+I3+(I4*cosd(phi4)));
+Iv=((I1*sind(phi1))+(I2*sind(phi2))-(I4*sind(phi4)));
+I5=sqrt((Ih^2)+(Iv^2))
+printf("I5=%dA",I5)
+Ip=(I5*V2)/V1;
+printf("\nThe current drawn by the primary from 6600Vmains is equal to,Ip=%fA",Ip);
+phi=atand(Iv/Ih);
+printf("\npower factor=%flagging",cosd(phi)) \ No newline at end of file