三角秒功能的PERL

Question

沒有工作，我有一個條件，使得

cos($x)=$y; 

因爲我知道$ Y，我想找到的$ X

值我用

$x=sec($y);  

這給我錯誤未定義的子程序調用。

請建議如何解決它。我不想使用一些額外的模塊。

Answer 1

從perldoc -f cos

COS

返回EXPR的餘弦值（以弧度表示）。如果省略EXPR，則取$ _的餘弦值。 對於反餘弦操作，您可以使用數學::觸發:: ACOS（）函數，或使用這種關係：

sub acos { atan2(sqrt(1 - $_[0] * $_[0]), $_[0]) }