npoles=3; poles[0]= [ 0,0]; poles[1]= [-1,0]; poles[2]= [-1,0]; nzeros=0; var ds=.04; var dw=.04; function Blob(x,c){ Colour(c); BoxFill(x[0]-ds/2,x[1]+dw/2,ds,-dw); } function Blip(x,c){ Colour(c); BoxFill(x[0]-ds/4,x[1]+dw/4,ds/2,-dw/2); } function Showroots(){ for(i=0;i<npoles;i++){ Blob(poles[i],Black); } for(i=0;i<nzeros;i++){ Blob(zeros[i],Black); Blip(zeros[i],White); } } InitGraph(); ScaleWindow(-1.6,-1,1.6,1); DrawAxes(); Showroots(); for(s[1]=-.98;s[1]<1;s[1]+=dw){ for(s[0]=-1.58;s[0]<1.6;s[0]+=ds){ getgain(s); if(gain[1]>0){ Blob(s,Red); }else{ Blob(s,"yellow"); } if(gain[0]>0){ Blip(s,White); } } } DrawAxes(); Showroots(); Colour(Black); Label('Root locus - gain map',.5,.5);