plot(min(1, (1-q)/q),q,0,1)