Mercurial > octave-nkf

comparison scripts/control/base/nyquist.m @ 4771:b8105302cfe8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-02-16 17:45:50 by jwe]
author jwe
date Mon, 16 Feb 2004 17:45:50 +0000
parents 92be67bc9301
children bdbee5282954
comparison
equal deleted inserted replaced
4770:ef5e598f099b 4771:b8105302cfe8
144 ylabel(["Im(",tstr,")"]); 144 ylabel(["Im(",tstr,")"]);
145 145
146 [stn, inn, outn] = sysgetsignals(sys); 146 [stn, inn, outn] = sysgetsignals(sys);
147 if(is_siso(sys)) 147 if(is_siso(sys))
148 title(sprintf("Nyquist plot from %s to %s, w (rad/s) in [%e, %e]", ... 148 title(sprintf("Nyquist plot from %s to %s, w (rad/s) in [%e, %e]", ...
149 nth(inn,1), nth(outn,1), w(1), w(length(w))) ) 149 inn{1}, outn{1}, w(1), w(length(w))) )
150 endif 150 endif
151 151
152 gset nologscale xy; 152 gset nologscale xy;
153 153
154 axis(axis2dlim([[vec(realp),vec(imagp)];[vec(realp),-vec(imagp)]])); 154 axis(axis2dlim([[vec(realp),vec(imagp)];[vec(realp),-vec(imagp)]]));