求助，怎么求三角形的角度。

jy198435

已知三角形三条边的长度，如何用PERL求三个角的角度呢，求解。

flw

这个主要靠数学吧。和 Perl 关系不大。

datou06415

这是数学问题，搜“余弦定理”可以解决你的问题

rubyish

How about this :

1. #!/usr/bin/perl
   
2. 
   
3. sub Ailsa {
   
4.     my $PI = 3.1415926535897;
   
5.     map {
   
6.         my ( $A, $B, $C ) = @_[@$_];
   
7.         my $I = ( $A**2 + $B**2 - $C**2 ) / ( 2 * $A * $B );
   
8.         sprintf "%.2f", 180 / $PI * atan2 sqrt( 1 - $I**2 ), $I;
   
9.     }[ 2, 1, 0 ], [ 0, 2, 1 ], [ 1, 0, 2 ];
   
10. }
    
11. 
    
12. print grep s/$/"\t[ " . join( ', ', Ailsa split ). ' ]'/e, <DATA>;
    
13. 
    
14. __DATA__
    
15. 3 4 5
    
16. 5 5 5
    
17. 5 6 7
    
18. 5 5 6
    
19. 6 6 3

复制代码

1. 3 4 5   [ 36.87, 53.13, 90.00 ]
   
2. 5 5 5   [ 60.00, 60.00, 60.00 ]
   
3. 5 6 7   [ 44.42, 57.12, 78.46 ]
   
4. 5 5 6   [ 53.13, 53.13, 73.74 ]
   
5. 6 6 3   [ 75.52, 75.52, 28.96 ]
   

复制代码