http://qs1969.pair.com?node_id=84213

neophyte has asked for the wisdom of the Perl Monks concerning the following question:

Amazed looking at her code and the error, neophyte ventures to ask:
The following code is part of a program that will be used to find given building stuff (big tubes, in this case) according to input sizes.
I'm using a given formula to calculate b for a given tube with the input of a.
use Math::Trig; use diagnostics; my $a = 3; # user input my $r1 = 3.05; # radius 1 of elliptical tube my $r2 = 3.95; # radius 2 of elliptical tube my $w2 = 82.6; # angle 2 my $w_beta1 = asin($a / (2 * $r1)); my $b = $r1 * ( cos($w_beta1) - (cos($w2 / 2) ) + $r2 * cos($w2 / 2); print $b;

When I execute this code I get a syntax error in the line where $b is defined. No more information, so when I execute this with use diagnostics I get Uncaught exception from user code: syntax error at noname.pl line 8, near ");"
which really doesn't help me. I already looked for missing punctuation and unpaired brackets, but I cannot find anything.
Please tell me what's wrong with that piece of code.

neophyte Niederrhein.pm