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)));