From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 2384/CH5/EX5.1/ex5_1.sce | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 2384/CH5/EX5.1/ex5_1.sce

(limited to '2384/CH5/EX5.1')

diff --git a/2384/CH5/EX5.1/ex5_1.sce b/2384/CH5/EX5.1/ex5_1.sce
new file mode 100755
index 000000000..6e08018c0
--- /dev/null
+++ b/2384/CH5/EX5.1/ex5_1.sce
@@ -0,0 +1,23 @@
+// Exa 5.1
+clc;
+clear;
+close;
+format('v',6)
+// Given data
+R = 20;// in ohm
+X_L = 15;// in ohm
+V_L = 400;// in V
+f = 50;// in Hz
+V_Ph = V_L/sqrt(3);// in V
+Z_Ph = sqrt( (R^2) + (X_L^2) );// in ohm
+I_Ph = V_Ph/Z_Ph;// in A
+I_L = I_Ph;// in A
+disp(I_L,"The line current in A is");
+//pf = cos(phi) = R_Ph/Z_Ph;
+R_Ph = R;// in ohm
+phi= acosd(R_Ph/Z_Ph);
+// Power factor
+pf= cosd(phi);// in °
+disp("The power factor is : "+string(pf)+"° lag.");
+P = sqrt(3)*V_L*I_L*cosd(phi);// in W
+disp(P,"The power supplied in W is");
-- 
cgit