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(); Label('Ladder of curly squares - frequencies',.2,.8); Colour(Black); s=[0,.1]; getgain(s); LineStart(s[0],s[1]); for(omega=.1;omega<100;omega*=1.01){ s[1]=omega; getgain(s); LineTo(s[0],s[1]); } s=[-.1,.5]; for(omega=.6;omega<1;omega+=.005){ s[1]=omega; getgain(s); Spot(s[0],s[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(s[0],s[1]); } Label(omega/10,s[0]+.05,s[1]-.05); }