diff options
| author | priyanka | 2015-06-24 15:03:17 +0530 |
|---|---|---|
| committer | priyanka | 2015-06-24 15:03:17 +0530 |
| commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
| tree | ab291cffc65280e58ac82470ba63fbcca7805165 /1938/CH6/EX6.35 | |
| download | Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2 Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip | |
initial commit / add all books
Diffstat (limited to '1938/CH6/EX6.35')
| -rwxr-xr-x | 1938/CH6/EX6.35/6_35.sce | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/1938/CH6/EX6.35/6_35.sce b/1938/CH6/EX6.35/6_35.sce new file mode 100755 index 000000000..d112e4257 --- /dev/null +++ b/1938/CH6/EX6.35/6_35.sce @@ -0,0 +1,25 @@ +clc,clear
+printf('Example 6.35\n\n')
+
+V_L=6600,I_L=110,phi_1=acos(0.9) //lagging
+kW=[400,1000,400,300]*10^3
+cosphi=[1,0.71,0.8,0.9]
+tanphi=tan(acos(cosphi))
+kVAR=kW.*tanphi
+
+kW_total=kW(1)+kW(2)+kW(3)+kW(4)
+kVAR_total=kVAR(1)+kVAR(2)+kVAR(3)+kVAR(4)
+
+phi_c=atan(kVAR_total/kW_total) //total power factor angle
+load_1=sqrt(3)*V_L*I_L*cos(phi_1)
+
+kW_1=load_1 //active component of machine 1
+kVAR_1=kW_1*tan(phi_1) //reactive component of machine 1
+kW_2=kW_total - kW_1 //active component of machine 1
+kVAR_2=kVAR_total-kVAR_1 //reactive component of machine 2
+
+phi_2=atan(kVAR_2/kW_2)
+pf_2=cos(phi_2) //power factor of machine 2
+
+printf('Output of second alternator= %.2f kW',kW_2/1000)
+printf('\nPower factor of machine 2 = %.4f and lagging',pf_2)
|