Solver ASA Triangle Solver; 2 Angles and included Side

Source code of 'ASA Triangle Solver; 2 Angles and included Side'

This Solver (ASA Triangle Solver; 2 Angles and included Side) was created by by tomlaidlaw(14)

: View Source, Show, Put on YOUR site
About tomlaidlaw: 74 year old man interested in mathematical recreations.

==section input
<img src=http://tomlaidlaw.com/goatandsilo/circum.gif>
Input Two angles and included side

Angle C = *[input anglec=90],side b = *[input sideb=4]and Angle A = *[input anglea=60]

==section solution

perl
my $pi=3.141592653;

my $A1=$anglea;
my $Ar=sprintf("%.3f",$A1);
my $A2=$A1*$pi/180;
my $A2r=sprintf("%.3f",$A2);

my $B1=180-$anglec-$anglea;
my $Br=sprintf("%.3f",$B1);
my $B2=$B1*$pi/180;
my $B2r=sprintf("%.3f",$B2);

my $C1=$anglec;
my $Cr= sprintf("%.3f", $C1);
my $C2=$C1*$pi/180;
my $C2r=sprintf("%.3f", $C2);

my $b=$sideb;
my $br=sprintf("%.3f", $b);

my $a=sin($A2)*$b/sin($B2);
my $ar=sprintf("%.3f", $a);

my $c=sin($C2)/sin($B2)*$b;
my $cr=sprintf("%.3f", $c);

my $s=($a+$b+$c)/2;
my $K =.5*$a*$b*sin($C2);
my $Kr=sprintf("%.3f", $K);

my $R=.5*$a/sin($A2);
my $Rr=sprintf("%.3f", $R);

my $r=2*$K/($s*2);
my $rr=sprintf("%.3f", $r);

my $ha=$c*sin($B2);
my $har=sprintf("%.3f", $ha);

my $hb=$a*sin($C2);
my $hbr=sprintf("%.3f", $hb);

my $hc=$b*sin($A2);
my $hcr=sprintf("%.3f", $hc);

print "
 side a =$ar, side b=$b,  side c=$cr

Angle A =$Ar degrees or $A2r radians
Angle B =$Br degrees or $B2r radians
Angle C =$Cr degrees or $C2r radians

Area K = $Kr
 
Circumcircle Radius = $Rr __(R = .5a/sinA):Intersection of Side bisectors
incircle radius = $rr __(r = 2K/(a+b+c)): Intersection of Angle bisectors

height over side a = $har __(ha = csinB)
height over side b = $hbr __(hb = asinC)
height over side c = $hcr __(hc = bsinA)

Thanks to hummingbird for the use of his solver. Thanks to Wolfram Math World for the triangle graphic.
Tom Laidlaw
pi = $pi
 
"          
==section output
C

==section check
  anglec=90 sideb=4 anglea=60