3673/CH6/EX6.1/Ex6_1.sce


1
2
3
4
5
6
7
8

//Example 6_1 page no:229
clc
phase_angle=30//phase angle in degree
Vm=100//maximum voltage
Veff=100/sqrt(2)
Ieff=15/sqrt(2)
Pav=Veff*Ieff*cosd(phase_angle)
disp(Pav,"Average Power is(in watts)")