Let's look at distance'[theta] to see if we can ascertain a maximum directly.

Input := 


distance'[theta]

Output =


                  2                     2

127.551 Cos[theta]  - 127.551 Sin[theta]