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

【问题标题】：Perl: Converting Formula To Perl Code What Should It Look Like?Perl：将公式转换为 Perl 代码它应该是什么样子？
【发布时间】：2021-04-20 18:59:00
【问题描述】：

我有以下公式：

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

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

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

我得到 -0.542630163200668

答案应该是：-0.719461

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

【问题讨论】：

标签： perl math

【解决方案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)));

【讨论】：