Richard, it seems the equation you posted cannot be satisfied.
0.95 * 2 * atan((4.5)/(2*r)) * r / (4.5) == 1
or
0.95 * 2 * atan((4.5)/(2*r)) * r / (4.5) - 1 == 0
which I am calling f in the following.
r = -300:0.1:300;
f = 0.95*2*atan((4.5)./(2*r)).*r/4.5 - 1;
plot(r,f)
In other words, there is no r for which f = 0.