npoles=3; poles[0]= [ 0,0]; poles[1]= [-1,0]; poles[2]= [-1,0]; nzeros=0; k=1.5; //Gain multiplier InitGraph(); ScaleWindow(-1.6,-1,1.6,1); DrawAxes(); LineStart(-1,-.05); //mark the -1 point LineTo(-1,0); Label('Ladder of curly squares',.5,.8); Colour(Black); s=[0,.1]; getgain(s); LineStart(gain[0],gain[1]); for(omega=.1;omega<100;omega*=1.01){ s[1]=omega; getgain(s); LineTo(gain[0],gain[1]); } s=[-.1,.5]; for(omega=.5;omega<1;omega+=.005){ s[1]=omega; getgain(s); Spot(gain[0],gain[1]); } for(omega=6;omega<11;omega+=1){ for (s[0]=-.1;s[0]<0;s[0]+=.005){ s[1]=omega/10; getgain(s); Spot(gain[0],gain[1]); } Label(omega/10,gain[0]+.05,gain[1]-.05); }