#!/usr/bin/env perl
use strict;
use warnings;
use Math::Trig;
use Math::BigFloat;
use feature 'say';


my $pi =  Math::BigFloat->bpi(10);

my ($run,$theta) = (3,8);

my $radians = Math::BigFloat->new($theta * $pi / 180);

#my $rise = Math::BigFloat->new($run * tan($radians)); 
my $rise = Math::BigFloat->new($run * (sin($radians) / cos($radians)));

say "rise is $rise";

#rise is 0.42162250410717434055