summaryrefslogtreecommitdiff
path: root/671/CH4/EX4.33/4_33.sce
blob: e2bfdd4ce90f2a6c8a908d71ed9186fc16c8a590 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
function [x,y]=polar_to_cart(r,theta)
    theta=theta/180*%pi
    x=r*cos(theta)
    y=r*sin(theta)
endfunction

[Ir,Ic]=polar_to_cart(3,30)
I=complex(Ir,Ic)
Zc=-5*%i
Zrl=10+5*%i

Ic=Zrl/(Zc+Zrl)*I
Vth=Ic*Zc
Zth=parallel(Zc,Zrl)
In=Vth/Zth

disp(Rth,In,Vth)