summaryrefslogtreecommitdiff
path: root/620/CH10/EX10.8.a/example10_8a.sce
blob: 0a67141980a761ac395e3d0bbe1c98b14d5ee38a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
v1=10;
v2=20;
r1=10^3;
r2=2*10^3;
r3=3*10^3;
r4=4*10^3;
r5=5*10^3;
i2=(v*(r1+r2)-v1*r2)/((r2+r3+r5)*(r1+r2)-r2^2);
vth=v2-i2*r5;
rth=(r1*r2/(r1+r2)+r3)*r5/(r1*r2/(r1+r2)+r3+r5);
i=vth/(rth+r4);
disp("the current (in mA) in R4 is"); disp(i*10^3);