npoles=1; poles[0]= [-1,0]; nzeros=0; InitGraph(); ScaleWindow(-1.6,-1,1.6,1); DrawAxes(); LineStart(-1,-.05); //mark the -1 point LineTo(-1,0); Label('Nyquist plot',1,.5); s[0]=0; for(var omega=.01;omega<100;omega*=1.01){ s[1]=omega; getgain(s); Colour(Black); Spot(gain[0],gain[1]); }