summaryrefslogtreecommitdiff
path: root/1430/CH10/EX10.9/exa10_9.sce
blob: b3d3fd2bfea75646e83eff6ebf32aac9657170de (plain)
1
2
3
4
5
6
7
8
9
10
11
//Example 10.9
// Calculations with s-plane Vectors
s=%s;
num=-6*s; // Numerator of transfer
den=s^2+12*s+45; // Denominator
X=complex(10,0); // Input signal phasor
s_0=complex(-4,3)// complex frequency
H_s=(num)/(den)// Transfer-function of the network
H_s_0=horner(H_s,s_0);
Y=H_s_0*X; // forced response phasor
disp(Y,"Forced response phasor")