3673/CH6/EX6.2/Ex6_2.sce


1
2
3
4
5
6

//Example 6_2 page no:230
clc
Z=5+(%i*8)
Im=5//maximum current
Pav=Im^2*real(Z)/2
disp(Pav,"Average power is (in watts)")