Perl:将公式转换为 Perl 代码 它应该是什么样子？

Question

我有以下公式:

我试图将其转换为 perl 代码，它看起来像这样:

$stuck = (360 / $pi2);
$stuck2 = sin($stuck * $Eccent * $M);

其中 $Eccent = 0.016713 和 $M = 202.065469250756 和 $pi2 = 3.1415927

我得到 -0.542630163200668

答案应该是:-0.719461

任何帮助将不胜感激，因为我不知道它应该是什么样子!

Answer 1

公式取 M 的正弦值，没有别的。

use Math::Trig qw( pi );

my $Ec = 360 / pi * $e * sin($M);

有一个问题:您的 M 值以度为单位，而 sin需要弧度。

use Math::Trig qw( pi deg2rad );

my $Ec = 360 / pi * $e * sin(deg2rad($M));

这相当于

use Math::Trig qw( deg2rad rad2deg );

my $Ec = rad2deg(2 * $e * sin(deg2rad($M)));