summaryrefslogtreecommitdiff
path: root/1430/CH14/EX14.7/exa14_7.sce
blob: 98b0ede1a868325683ac96a4c2963587ee5b17b4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
// Example 14.7
// Calculating ABCD Parameters
R=10;
C=1/40;
s=%s;
// from figure 14.19(a),
I_2=0;
disp("I_1-3*I_1=V_2/10")
disp("=> I_1=-0.005*V_2---equation(1)")
disp("V_1=V_2+(1/(s*C)*I_1)")
disp("=> V_1=(1-2/s)*V_2---equation(1)")
//from equation 1 & 2
A=1-2/s;
C=-0.05;

//with V_2=0
disp("I_1-3*I_1=-I_2")
disp("=> I_1=0.5*I_2---equation(3)")
disp("V_1=(1/(s*C))*I_1")
disp("=> V_1=(20/s)*I_2---equation(4)")
// from equation 3 & 4
B=-20/s;
D=-0.5;
T=[A,B;C,D];
disp(T,"Required ABCD Parameters=")