#
#octave_control_nyquist.m
#https://octave-online.blogspot.jp/search/label/control_nyquist
#
function out=octave_control_nyquist( num, den, min, max, n )
 w = logspace( min, max, n  );
 s = polyval(num, complex(0, w))./polyval(den, complex(0, w));
 plot( real(s), imag(s) )
 out = "";
endfunction
