summaryrefslogtreecommitdiff
path: root/122/CH7/EX7.24/exa7_24.sce
blob: e208853c62b4baf6fb066cf99dd6e6b1ba55b286 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
// Example 7-24
// Polar and Nichols plot with M circles

clear; clc;
xdel(winsid());  //close all windows

// please edit the path
// cd "/<your code directory>/";
// exec("spolarplot.sci");

s = %s;
G = syslin('c',1,s*(s+1));
omega = logspace(-2,2,100);
repf = spolarplot(G,omega);

scf();
black(omega,repf);
chart([1.4],[],list(1,0));
xgrid(color('gray'));
xstring(-150,8,'Mr = 1.4')