summaryrefslogtreecommitdiff
path: root/1523/CH4/EX4.51
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1523/CH4/EX4.51
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 '1523/CH4/EX4.51')
-rwxr-xr-x1523/CH4/EX4.51/ex4_51.sce16
1 files changed, 16 insertions, 0 deletions
diff --git a/1523/CH4/EX4.51/ex4_51.sce b/1523/CH4/EX4.51/ex4_51.sce
new file mode 100755
index 000000000..f162b8429
--- /dev/null
+++ b/1523/CH4/EX4.51/ex4_51.sce
@@ -0,0 +1,16 @@
+//AC Circuits : example 4.51 :(pg 4.40 & 4.41)
+P=2000;
+pf=0.5;
+V=230;
+S=(P/pf);
+phi=acosd(pf);
+I=(P/(V*pf));
+Q=(V*I*sind(phi));
+disp("P=2000 W");
+disp("pf=0.5 (leading)");
+disp("V=230 V");
+disp("P=V*I*cos(phi)");
+printf("\nI=%.2f A",I);
+printf("\nS=V*I=P/cos(phi)=%.f VA",S);
+printf("\nphi=%.f degrees",phi);
+printf("\nQ=V*I*sin(phi)=%.f VAR",Q); \ No newline at end of file