summaryrefslogtreecommitdiff
path: root/1094/CH2/EX2.3.2/EX2_3_2.sce
blob: 3c59ebb74ce15bfe8687ae8fc9d37255347f9ece (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
//Exa:2.3.2
clc;
clear;
close;
V_L=400 //supply voltage(in volts)
W_1=750 //power (in W)
W_2=250 //power (in W)
P_i=W_1+W_2
disp(P_i,'input power (in W)=')
pf=cosd(atand(sqrt(3)*(W_1-W_2)/(W_1+W_2)))
disp(pf,'power factor=')
I_L=P_i/(sqrt(3)*V_L*pf)
disp(I_L,'line current(in A)=')