summaryrefslogtreecommitdiff
path: root/380/CH1/EX1.6/1_6.txt
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /380/CH1/EX1.6/1_6.txt
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '380/CH1/EX1.6/1_6.txt')
-rwxr-xr-x380/CH1/EX1.6/1_6.txt27
1 files changed, 27 insertions, 0 deletions
diff --git a/380/CH1/EX1.6/1_6.txt b/380/CH1/EX1.6/1_6.txt
new file mode 100755
index 000000000..42c3fce0d
--- /dev/null
+++ b/380/CH1/EX1.6/1_6.txt
@@ -0,0 +1,27 @@
+//Caption:Determine load current,load voltage,load power and power factor
+//Exa:1.6
+clc;
+clear;
+close;
+//Refer to the fig:1.16
+R=40;//in ohms
+L=%i*30;//in ohms
+V=117*((cosd(0)+%i*sind(0)));//in Volts
+//Equivalent load impedance is obtained by parallel combination of Resistance R and Inductance L
+Z_L=(R*L)/(R+L);//load impedance (in Ohms)
+Z1=0.6+%i*16.8;// in Ohms
+Z=Z_L+Z1;//Equivalent impedance of circuit (in Ohms)
+I=V/Z;//current through load (in Amperes)
+r1=real(I);
+i1=imag(I);
+I_mag=sqrt(r1^2+i1^2);//magnitude of current flowing through load (in Amperes)
+disp(I_mag,'Reading of ammeter (in Amperes)=');
+V_L=I*Z_L;//voltage across load (in Volts)
+r2=real(V_L);
+i2=imag(V_L);
+V_L_mag=sqrt(r2^2+i2^2);//magnitude of voltage across load (in Volts)
+disp(V_L_mag,'Reading of voltmeter (in Volts)=');
+P=real (V_L*conj(I));//Power developed (in Watts)
+disp(P,'Reading of wattmeter (in Watts)=');
+pf=P/(V_L_mag*I_mag);//Power factor
+disp(pf,'power factor=') \ No newline at end of file