Текст подпрограммы и версий ( Фортран ) pa04r.zip pa04d.zip |
Тексты тестовых примеров ( Фортран ) tpa04r.zip tpa04d.zip |
Текст подпрограммы и версий ( Си ) pa04r_c.zip pa04d_c.zip |
Тексты тестовых примеров ( Си ) tpa04r_c.zip tpa04d_c.zip |
Текст подпрограммы и версий ( Паскаль ) pa04r_p.zip pa04e_p.zip |
Тексты тестовых примеров ( Паскаль ) tpa04r_p.zip tpa04e_p.zip |
Вычисление показательной функции от комплексного аргумента.
PA04R вычисляет значение функции ez, где z = XR + XI i - заданное комплексное число.
SUBROUTINE PA04R (XR, XI, YR, YI )
Параметры
XR, XI - | действительная и мнимая часть заданного комплексного числа (тип: вещественный); |
YR, YI - | вещественные переменные, значения которых полагаются равными действительной и мнимой части результата. |
Версии
PA04D - | вычисление показательной функции от комплексного аргумента в режиме удвоенной точности. При этом параметры XR, XI, YR и YI должны иметь тип DOUBLE PRECISION. |
Вызываемые подпрограммы: нет
Замечания по использованию: нет
XR = 1.0 XI = - 1.0 CALL PA04R (XR, XI, YR, YI) Результаты: YR = 1.468694 , YI = - 2.287355