1 files changed, 12 insertions, 0 deletions
diff --git a/104/CH8/EX8.10/8_10.sce b/104/CH8/EX8.10/8_10.sce
new file mode 100755
index 000000000..86c3eca4c
--- /dev/null
+++ b/104/CH8/EX8.10/8_10.sce
@@ -0,0 +1,12 @@
+//intersection of root loci with real axis
+s=%s
+sys=syslin('c',1/(s*(s+3)*(s^2+2*s+2)))
+clf
+evans(sys)
+K=kpure(sys)
+disp(K,"value of K where RL crosses jw axis=")
+p=poly([K 6 8 5 1],'s','coeff')
+x=roots(p)
+x1=clean(x(1,1))
+x2=clean(x(2,1))
+disp(x2,x1,"crossover points on jw axis=")
+\ No newline at end of file