trigonometric functions give an uncaught user exception

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;
[download]

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

Comment on trigonometric functions give an uncaught user exception Select or Download Code

Replies are listed 'Best First'.
Re: trigonometric functions give an uncaught user exception by ChOas (Curate) on May 30, 2001 at 14:46 UTC
Hi! ;) my $b = $r1 * ( cos($w_beta1) - (cos($w2 / 2) ) + $r2 * cos($w2 / 2); You got 5 ('s ,and 4 )'s .... It`s up to you where you want the last ) ;) Hope this helps... GreetZ!, ChOas When in doubt, parenthesize. At the very least it will let some poor schmuck bounce on the % key in vi. (L. Wall) print "profeth still\n" if /bird\|devil/;	[reply]
Re: Re: trigonometric functions give an uncaught user exception by neophyte (Curate) on May 30, 2001 at 14:55 UTC
ouch thanks a ton, ChOas this just shows how blind I can get at times neophyte Niederrhein.pm - gotta code quickly, my brain's degenerating	[reply]
Re: trigonometric functions give an uncaught user exception by gollem (Acolyte) on May 30, 2001 at 14:50 UTC
You're missing a ) at the end of that line	[reply]
Re: trigonometric functions give an uncaught user exception by DrSax (Sexton) on May 30, 2001 at 16:42 UTC
The problem is that you need an additional parens on line 8. `my $b = $r1 * ( cos($w_beta1) - (cos($w2 / 2) ) + $r2 * cos($w2 / 2));` Could happen to anyone... DrSax	[reply] [d/l]