summaryrefslogtreecommitdiff
path: root/1430/CH10/EX10.9/exa10_9.sce
diff options
context:
space:
mode:
Diffstat (limited to '1430/CH10/EX10.9/exa10_9.sce')
-rw-r--r--1430/CH10/EX10.9/exa10_9.sce11
1 files changed, 11 insertions, 0 deletions
diff --git a/1430/CH10/EX10.9/exa10_9.sce b/1430/CH10/EX10.9/exa10_9.sce
new file mode 100644
index 000000000..b3d3fd2bf
--- /dev/null
+++ b/1430/CH10/EX10.9/exa10_9.sce
@@ -0,0 +1,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")