Mercurial > octave-nkf

comparison scripts/control/base/rlocus.m @ 6415:6b1535a09268

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-03-15 18:03:17 by jwe]
author jwe
date Thu, 15 Mar 2007 18:03:18 +0000
parents cf8e671beada
children 93c65f2a5668
comparison
equal deleted inserted replaced
6414:250eebbd7ccc 6415:6b1535a09268
241 for i_A=0:n_A-1 241 for i_A=0:n_A-1
242 phi_A = pi*(2*i_A + 1)/n_A; 242 phi_A = pi*(2*i_A + 1)/n_A;
243 args{1,++kk} = [sigma_A sigma_A+len_A*cos(phi_A)]; 243 args{1,++kk} = [sigma_A sigma_A+len_A*cos(phi_A)];
244 args{2,kk} = [0 len_A*sin(phi_A)]; 244 args{2,kk} = [0 len_A*sin(phi_A)];
245 if (i_A == 1) 245 if (i_A == 1)
246 args{3,kk} = "k-;asymptotes;"; 246 args{3,kk} = "k--;asymptotes;";
247 else 247 else
248 args{3,kk} = "k-"; 248 args{3,kk} = "k--";
249 endif 249 endif
250 endfor 250 endfor
251 endif 251 endif
252 # locus next 252 # locus next
253 for ii=1:rows(rlpol) 253 for ii=1:rows(rlpol)