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;