Solve[(2 r) / (3 t) - (2 R0) / (3 t) (R0 / r)^(1/2)==-1,r]