Select Code to Download

use Math::Trig;
use diagnostics;
...
my $w_beta1 = asin($a / (2 * $r1));
my $b = $r1 * ( cos($w_beta1) - (cos($w2 / 2) ) + $r2 * cos($w2 / 2);
print $b;