Plot[(2/9)-(2^(2r-1) r)/(4^r+2)^2 ,r=0.01..0.99]