тригонометрические функции сек не работает в PERL

Question

У меня есть условие, такое, что

cos($x)=$y; 

Так как я знаю, $ у, я хочу, чтобы найти значение $ х

я использовал

$x=sec($y);  

который вызывает ошибку, вызванную неопределенной подпрограммой.

Просьба предложить исправить это. Я не хочу использовать некоторые дополнительные модули.

Answer 1

От perldoc -f cos

сов

Возвращает косинус EXPR (выраженного в радианах). Если EXPR опущен, принимает косинус $ _. Для операции обратного косинуса, вы можете использовать Math :: Trig :: ACOS() функцию, или использовать это соотношение:

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