summaryrefslogtreecommitdiff
path: root/293/CH7/EX7.2/eg7_2.sce
blob: 96d66553c42f72972ab7aa6905c04765affce2ed (plain)
1
2
3
4
5
6
7
8
9
theta = %pi/6; //phase difference between current and voltage 
pf = cos(theta); //power factor 
disp(pf,"power factor = ")

Vm = 170; //peak voltage 
Im = 14.14; //peak current 

Pav = Vm*Im*pf/2; //average power delivered to the circuit 
disp(Pav,"average power delivered to the circuit = ")