summaryrefslogtreecommitdiff
path: root/3673/CH2/EX2.a.9/Example_a_2_9.sce
blob: 8c7713a70b73c665ca6314817fb252b4ced695f2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//Example 2_9 page no:94
clc;
R5=5;
A=[0.42,-0.167,-0.25,
    -0.42,0.5,0.45,
    0,-1,1]
B=[18,
    -15,
    20];
X=inv(A)*B;
V1=X(1);
V2=X(2);
V3=X(3);
I5=V3/5;
P=I5^2*R5;
disp(P,"the power absorbed by 5 ohm resistor is (in W)");
//in text book value of I5^2 is rounded up so result vary slightly