[b,F,f,phi]=solve('a(1-a*F)-b*(1+b)*lambda_r^2,phi-atan((1-a)/((1+b)*lambda_r)),f-B/2*(R-r)/R*sin(phi),F-2/pi*acos(exp(-f))')