We determine the best r to maximize t(r) by determining where the derivative of the t(r) function is 0, but students could zoom in on the function t(r).

Input := 


sol = FindRoot[t'[r]==0,{r,.1}]

Output =


{r -> 0.075543}