1 files changed, 28 insertions, 0 deletions
diff --git a/257/CH11/EX11.6/example_11_6.sce b/257/CH11/EX11.6/example_11_6.sce
new file mode 100644
index 000000000..c1c54a362
--- /dev/null
+++ b/257/CH11/EX11.6/example_11_6.sce
@@ -0,0 +1,28 @@
+//there is no pole or zero at the origin as the slope is initially 0
+
+w=1  //given
+y1=poly([1 1/w ],'s','coeff');
+
+disp("at wc1 equation is   15=20*log(wc1)")     //at wc1, magnitude is 15
+wc1=10^(15/20)
+disp(wc1,"hence wc1=")
+y2=poly([1 1/wc1],'s','coeff')
+
+disp("equation of 2nd line is y= (-20*log(w))+c")
+
+k1=poly([-20*3 0],'c','coeff');    //at w=1000
+c=-k1
+disp(c, "where c is")
+wc2=10^(45/20)
+disp(wc2,"hence wc2 is")
+y3=poly([1 1/wc2],'s','coeff')
+
+wc3=1000    //given
+y4= poly([1 1/wc3],'s','coeff')   
+
+TF=y1*y4/(y2*y3)     
+disp(TF,"transfer function is")         
+ 
+
+
+