summaryrefslogtreecommitdiff
path: root/2138/CH12/EX12.2.b
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /2138/CH12/EX12.2.b
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 '2138/CH12/EX12.2.b')
-rwxr-xr-x2138/CH12/EX12.2.b/EX_12_2_b.sce17
1 files changed, 17 insertions, 0 deletions
diff --git a/2138/CH12/EX12.2.b/EX_12_2_b.sce b/2138/CH12/EX12.2.b/EX_12_2_b.sce
new file mode 100755
index 000000000..bf5e4d0a4
--- /dev/null
+++ b/2138/CH12/EX12.2.b/EX_12_2_b.sce
@@ -0,0 +1,17 @@
+//Example 12.2.b // line current and power abosrbed
+clc;
+clear;
+close;
+R=11.88;//coil resistance in ohms
+L=0.07;//inductance in henry
+f=50;// in hertz
+pf=0.48;//power factor
+Vl=433;//line voltage in volts
+Vp= Vl;//phase voltage
+Xl=(2*%pi*f*L);//in ohms
+Zb=sqrt(R^2+Xl^2);// in ohms
+Ie=Vp/Zb;//current in each winding in amperes
+Il=sqrt(3)*Ie;//line current in amperes
+W=sqrt(3)*Vl*Il*pf;//power in watts
+disp(Il,"line current in ampere is")
+disp(W*10^-3,"power taken in connection in kW")