2075/CH9/EX9.4/pe9_4.sce


1
2
3
4
5
6
7
8
9
10
11
12
13

//example 9.4
clc;funcprot(0);
//Initialization of Variable
I1=1.8;//current
R=16;//resistance
I2=5.7;//A
V=28.8;//Voltage
//calculation
P=I1^2*R;
S=I2*V;
Pf=P/S;
disp(Pf,"power factor:")
clear()