Perl-tan的未定义子例程

Question

既然有一个问题，那就不明白为什么它不适合晒黑，但适合于cos和罪恶。 我认为问题在于它是未定义的，因此是错误消息，但是为什么cos和sin确实起作用而不是tan起作用？ 然后我将如何定义tan方法？ 对新手问题很抱歉，我只是在尝试Perl。

错误：

Undefined subroutine &Slic3r::Print::SupportMaterial::tan called at C:/Users/owner/Documents/Slic3r/lib/Slic3r/Print/SupportMaterial.pm line 945.

验证码：

my $min_angle = 40;
my $min_radian = deg2rad($min_angle);
my $b = tan($min_radian);
@Z=map{$_/$b} @Z;

余弦代码：

Polygon->new(map [ $circle_radius * cos $_, $circle_radius * sin $_ ]

编辑：意识到一个子例程将需要一个函数，但是当我查看我试图与该模块集成的Perl脚本时，它可以正常工作并且没有方法，只是声明为tan。

Answer 1

sin和cos是Perl内置的函数 ，但是tan不是。 只需简单声明即可轻松解决

sub tan { sin($_[0]) / cos($_[0]) }

或导入定义切线函数的模块

use Math::Trig;