summaryrefslogtreecommitdiff
path: root/343/CH3/EX3.20/ex3_20.sce
blob: 9219d030a4ef6c5e2a8d1cad10b6bd12e688bebd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
clc
vl=220        //Assigning values to parameters
il=38
n=0.88
p=11200
ip=p/n
t=acosd(ip/(sqrt(3)*vl*il))
pf=cosd(t)
w2=vl*il*cosd(30-t)
w1=vl*il*cosd(30+t)
disp("Watts",w2,"The wattmeter reading is")
disp("Watts",w1,"The wattmeter reading is")
disp(pf,"Power factor is")