summaryrefslogtreecommitdiff
path: root/2297/CH2/EX2.3/Ex2_3.sce
blob: 402d0fa9f1af8a1797de8ca39699cb3ad3fc9129 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
// Example 2.3 :current
clc;
close;
clear;
format('v',7)
// given :
vs1=10;//voltage in volts
i5=2;//current in amperes
i2=i5;//current
r1=1;//resistance in ohms
r2=5;//resistance in ohms
r3=5;//resistance in ohms
rl=10;//resistance in ohms
r4=5;//resistance ohms
//(r1+r2+r3)*i1-r2*i2-r3*i3=vs1 loop equaion 1
//-r2*i1-(r1+r2)*i2+(rl+r2+r3)*i3=0 loop equation 2
A=[4*(r1+r2+r3) -r2*4;-r2 (rl+r2+r3)];//making equations
B=[4*(vs1+r2*i2) ; i2*(r2+r3)];//making equations
X=A\B;//solving equations
il=i2-X(2,1);//calculating current
disp(il,"current through Rl is (from b to a),(A)=")