summaryrefslogtreecommitdiff
path: root/1904/CH8/EX8.4/8_4.sce
diff options
context:
space:
mode:
Diffstat (limited to '1904/CH8/EX8.4/8_4.sce')
-rwxr-xr-x1904/CH8/EX8.4/8_4.sce28
1 files changed, 28 insertions, 0 deletions
diff --git a/1904/CH8/EX8.4/8_4.sce b/1904/CH8/EX8.4/8_4.sce
new file mode 100755
index 000000000..09b843f85
--- /dev/null
+++ b/1904/CH8/EX8.4/8_4.sce
@@ -0,0 +1,28 @@
+//To determine the necessity of additional capacitors
+//Page 398
+clc;
+clear;
+
+S1=7800; //Peak Load in kVA
+T=3*2000; //Total Rating of the Transformer
+pf1=0.89; //Load Power Factor
+TC=120/100; //Thermal Capability
+Qc=1000; //Size of capacitor
+
+P=S1*pf1; //Real Load
+Q1=S1*sind(acosd(pf1)); //Reactive Load
+
+Q2=Q1-Qc; //The New Reactive Load
+pf2=P/sqrt((P^2)+((Q1-Qc)^2)); //Improved Power Factor
+
+S2=P/pf2; //Corrected Apprarent power
+
+ST=T*TC; //Transformer Capabilty
+
+pf3=P/ST; //New Corrected Power factor required
+
+Q2new=P*tand(acosd(pf3)); //Required Reactive Power
+Qcadd=Q2-Q2new; //Additional Rating of the Capacitor
+
+printf('\na) Since the Apparent Power(%g kVAr) is more than Transformer Capability (%g kVAr), \nHence Additional Capacitors are required\n',S2,ST)
+printf('b) The Rating of the Addtional capacitor is %g kVAr\n',Qcadd)