summaryrefslogtreecommitdiff
path: root/671/CH2/EX2.5/2_5.sce
blob: 91c2413fc10b63fc2bb2da4e22017ee5b0641bd6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function [Rab,Rbc,Rca]=star_to_delta(Ra,Rb,Rc)
    X=Ra*Rb+Rb*Rc+Rc*Ra
    Rab=X/Rc
    Rbc=X/Ra
    Rca=X/Rb
endfunction

function p=parallel(r1,r2)
    p=r1*r2/(r1+r2)
endfunction

[Rx,Ry,Rz]=star_to_delta(8,4,2)

Req_ad=parallel(parallel(4,Rx)+parallel(12,Rz),parallel(3,Ry))
disp(Req_ad)