summaryrefslogtreecommitdiff
path: root/3835/CH4/EX4.38/Ex4_38.sce
blob: 4f6f2821b33e15982fa6fa3ad367d18495681309 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
clear
//
//all values derived from figure
//zth=complex(0.923,2.615)
//vth=complex(-4.615,-6.923) //derived using formula
//zl=complex(0.923,-2.615)
//z=zl+zth
vth=8.32 //polar form
z=1.846
I=vth/z
printf("\n I= %0.1f  A",I)
rl=0.923
pl=(I**2)*rl
printf("\n pl= %0.1f  w",pl)