FindRoot[1/3 - (2 r)/9 - (2 + 2^(2 r) - 2^(-1 + 2 r) r)/(2 + 2^(2 r))^2 == 0, {r, 0.01, 0.99}, WorkingPrecision -> 15]

• Natural Language
• Math Input