plot( -k + (2k+12)r - k*r^2 = 0, k=0..500, r=0..1 )