summaryrefslogtreecommitdiff
path: root/3504/CH2/EX2.9/Ex2_9.sce
blob: 6f0f1d5316d74bfad18f412aeba58d8396dc37f1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
//To find the voltage across the capacitor.
clc;
Z=[4+%i*5  -2  -(1+%i*3);-2  5-%i*2  %i*2;-(1+%i*3)  %i*2  2+%i*2]
D=det(Z)
Z_2=[4+%i*5  5  -(1+%i*3);-2  0  %i*2;-(1+%i*3)  0  2+%i*2]
D_2=det(Z_2)
I_2=D_2/D                                     //Current in loop 1 in polar form
Z_3=[4+%i*5  -2  5;-2  5-%i*2  0;-(1+%i*3)  %i*2  0]
D_3=det(Z_3)
I_3=D_3/D                                    //Current in loop 2 in polar form
V_c=(I_2-I_3)*(-%i*2)
disp(V_c,'Volatge across the capacitor')