summaryrefslogtreecommitdiff
path: root/3871/CH7/EX7.22/Ex7_22.sce
diff options
context:
space:
mode:
authorprashantsinalkar2018-02-03 11:01:52 +0530
committerprashantsinalkar2018-02-03 11:01:52 +0530
commit7bc77cb1ed33745c720952c92b3b2747c5cbf2df (patch)
tree449d555969bfd7befe906877abab098c6e63a0e8 /3871/CH7/EX7.22/Ex7_22.sce
parentd1e070fe2d77c8e7f6ba4b0c57b1b42e26349059 (diff)
downloadScilab-TBC-Uploads-7bc77cb1ed33745c720952c92b3b2747c5cbf2df.tar.gz
Scilab-TBC-Uploads-7bc77cb1ed33745c720952c92b3b2747c5cbf2df.tar.bz2
Scilab-TBC-Uploads-7bc77cb1ed33745c720952c92b3b2747c5cbf2df.zip
Added new codeHEADmaster
Diffstat (limited to '3871/CH7/EX7.22/Ex7_22.sce')
-rw-r--r--3871/CH7/EX7.22/Ex7_22.sce33
1 files changed, 33 insertions, 0 deletions
diff --git a/3871/CH7/EX7.22/Ex7_22.sce b/3871/CH7/EX7.22/Ex7_22.sce
new file mode 100644
index 000000000..87b6dd3c5
--- /dev/null
+++ b/3871/CH7/EX7.22/Ex7_22.sce
@@ -0,0 +1,33 @@
+//===========================================================================
+//chapter 7 example 22
+
+clc;
+clear all;
+
+//variable declaration
+W1 = 5000; //wattmeter reading in W
+W2 = -1000; //wattmeter reading in W
+VL = 440; //load voltage in V
+f = 50; //frequency in Hz
+VP = 440;
+
+//calculations
+P = W1+W2; //total power in the load circuit in W
+phi = atan(((W1-W2)/(W1+W2))*sqrt(3)); //phase angle in °
+phi1 = phi*180/%pi;
+pf = cos(phi); //power factor
+IP = P/((sqrt(3)*VL*pf)); //load current per phase in A
+IP1 = IP/sqrt(3);
+ZP = VP/IP1; //load impedance per phase
+RP = ZP*pf; //load resistance per phase in Ω
+XP =ZP*sin(phi); //load reactance per phase in Ω
+pf1 = 0.5; //power factor
+phi2 = (acos(pf1))*180/%pi;
+//reading of wattmeter will be zero
+XP1 = RP*tan((phi2)*%pi/180); //reactnace in circuit per phase in Ω
+XC =XP-XP1; //value of capacitive reactance in troduced in each phase in Ω
+C = 1/(2*%pi*f*XC); //value of capacitive reactance introduced in each phase of delta connected in uF
+
+//result
+mprintf("value of capacitive reactance introduced in each phase of delta connected = %3.0f uF",(C*10^6));
+