initial commit / add all books

1 files changed, 21 insertions, 0 deletions

diff --git a/1151/CH4/EX4.17/example17.sce b/1151/CH4/EX4.17/example17.sce
new file mode 100755
index 000000000..23ffc89b9
--- /dev/null
+++ b/1151/CH4/EX4.17/example17.sce
@@ -0,0 +1,21 @@
+ // bode p l o t is given in the question we have to find transfer function

+s=%s;

+sys = syslin('c',20*s/((s+1)*(s +10)))

+bode(sys)

+show_margins (sys ,'bode' )

+gm= g_margin (sys)

+pm= p_margin (sys)

+disp (gm ," g a in margin=")

+disp (pm ," phas e margin=")

+if (gm <=0 | pm <=0)

+printf (" system is unstable ")

+else

+printf (" system is stable ")

+end

+printf("a) First line has a slope of 20 db/decade indicating a term in numerator \n");

+printf("b) At w=1 rad/sec slope changes from +20 db/decade to 0 db/decade indicating a term (s+1)in denominator(net change 0 bd/decade)\n");

+printf("c) At w=10 rad/sec slope changes from 0 db/decade to- 20b/decade indicating a term (1+s/10)in denominator\n");

+printf("e) its also mention 20 logK=6\n")

+k=2;

+disp(K,"K=");

+printf("the given transfer function is G(s)=20*s/((s+1)*(s +10)))\n");