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 /608/CH26/EX26.05 | |
| 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 '608/CH26/EX26.05')
| -rwxr-xr-x | 608/CH26/EX26.05/26_05.sce | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/608/CH26/EX26.05/26_05.sce b/608/CH26/EX26.05/26_05.sce new file mode 100755 index 000000000..6b0268ef2 --- /dev/null +++ b/608/CH26/EX26.05/26_05.sce @@ -0,0 +1,31 @@ +//Problem 26.05:The circuit shown in Figure 26.9 dissipates an active power of 400 Wand has a power factor of 0.766 lagging. Determine (a) the apparent power, (b) the reactive power, (c) the value and phase of current I, and (d) the value of impedance Z.
+
+//initializing the variables:
+Pa = 400; // in Watts
+rv = 100; // in volts
+thetav = 30; // in degrees
+R = 4; // in ohm
+pf = 0.766; // power factor
+
+//calculation:
+V = rv*cos(thetav*%pi/180) + %i*rv*sin(thetav*%pi/180)
+//magnitude of apparent power,S = V*I
+S = Pa/pf
+phi = acos(pf)
+theta = phi*180/%pi // in degrees
+//Reactive power Q
+Q = S*sin(phi)
+//magnitude of current
+Imag = S/rv
+thetai = thetav - theta
+I = Imag*cos(thetai*%pi/180) + %i*Imag*sin(thetai*%pi/180)
+//Total circuit impedance ZT
+ZT = V/I
+//impedance Z
+Z = ZT - R
+
+printf("\n\n Result \n\n")
+printf("\n (a)apparent power is %.2f VA ",S)
+printf("\n (b)reactive power is %.2f var ",Q)
+printf("\n (c)the current flowing and Circuit phase angle is %.2f/_%.0f° A ",Imag,thetai)
+printf("\n (d)impedance, Z is %.2f + (%.2f)i ohm ",real(Z), imag(Z))
\ No newline at end of file |