summaryrefslogtreecommitdiff
path: root/3432/CH5/EX5.12/Ex5_12.sce
blob: fdff148846924687fa7194e3c1b90edecf6d7a71 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
//Example 5.12
//Negative root Locus for an Airplane.

xdel(winsid())//close all graphics Windows
clear;
clc;


//------------------------------------------------------------------
//System transfer function and its root locus 

s=poly(0,'s');
Ls=-(s-6)/(s*(s^2+4*s+13));
evans(Ls)

//Title, labels and grid to the figure
exec .\fig_settings.sci; //custom script for setting figure properties
title(['Negative root locus for','$L(s)=\frac{s-6}{s(s^2+4s+13)}$'],...
'fontsize',3)
zoom_rect([-5 -6 10 6])
h=legend('');
h.visible = "off"

//------------------------------------------------------------------