1 files changed, 26 insertions, 0 deletions
diff --git a/Working_Examples/3432/CH4/EX4.7/Ex4_7.sce b/Working_Examples/3432/CH4/EX4.7/Ex4_7.sce
new file mode 100755
index 0000000..923a951
--- /dev/null
+++ b/Working_Examples/3432/CH4/EX4.7/Ex4_7.sce
@@ -0,0 +1,26 @@
+//Example 4.7
+//Discrete Equivalent.
+//------------------------------------------------------------------
+xdel(winsid())//close all graphics Windows
+clear;
+clc;
+
+// Transfer function
+s=%s; 
+num=[1 11];
+den=[1 3]
+Us=poly(num,'s','coeff');
+Es=poly(den,'s','coeff');
+Ds=syslin('c',Us/Es);
+sysc=tf2ss(Ds)
+
+//Discretize the system using sampling time Ts=1 and Bilinear Transform
+Ts=1;
+sysd=cls2dls(sysc,Ts);
+
+//Pulse transfer function
+Dd=ss2tf(sysd)
+disp(Dd,"Dd=")
+disp("Note that, multiply numerator and denomintor each by 7... 
+ will give the result as in book.")
+//------------------------------------------------------------------