三角函数秒函数在PERL中不起作用

Question

我有条件

cos($x)=$y;

因为我知道$ y，我想找到$ x的值

我用过

$x=sec($y);       

给出了错误的未定义子程序。

请建议如何修复它。我不想使用一些额外的模块。

Answer 1

来自perldoc -f cos

  

COS

     

返回EXPR的余弦值（以弧度表示）。如果省略EXPR，则取$ _的余弦值。   对于反余弦运算，您可以使用Math :: Trig :: acos（）函数，或使用以下关系：

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