Nun hab ich ne Lösung, aber die scheint mir doch sehr einfach... Nun ich werde mal schauen, ob das richtig ist...
Delphi-Quellcode:
sin(alpha) = r/(a+r)
r = sin(alpha)*(a+r)
r = a*sin(alpha) + r*sin(alpha)
r-r*sin(alpha) = a*sin(alpha)
r*(1-sin(alpha)) = a*sin(alpha)
r = a*sin(alpha) / (1-sin(alpha))