|
Текст подпрограммы и версий ( Фортран ) pa03r.zip pa03d.zip |
Тексты тестовых примеров ( Фортран ) tpa03r.zip tpa03d.zip |
|
Текст подпрограммы и версий ( Си ) pa03r_c.zip pa03d_c.zip |
Тексты тестовых примеров ( Си ) tpa03r_c.zip tpa03d_c.zip |
|
Текст подпрограммы и версий ( Паскаль ) pa03r_p.zip pa03e_p.zip |
Тексты тестовых примеров ( Паскаль ) tpa03r_p.zip tpa03e_p.zip |
Вычисление квадратного корня из комплексного числа.
PA03R вычисляет квадратный корень из комплексного числа y = XR + XI i .
SUBROUTINE PA03R (XR, XI, YR, YI )
Параметры
| XR, XI - | действительная и мнимая часть заданного комплексного числа (тип: вещественный); |
| YR, YI - | вещественные переменные, значения которых полагаются равными действительной и мнимой части результата. |
Версии
| PA03D - | вычисление квадратного корня из комплексного числа в режиме удвоенной точности. При этом параметры XR, XI, YR и YI должны иметь тип DOUBLE PRECISION. |
Вызываемые подпрограммы
| PA02R - | вычисление модуля комплексного числа; используется в подпрограмме PA03R. |
| PA02D - | вычисление модуля комплексного числа в режиме удвоенной точности; используется в подпрограмме PA03D. |
Замечания по использованию: нет
XR = 16.0
XI = 0.0
CALL PA03R (XR, XI, YR, YI)
Результаты: YR = 4.0 , YI = 0.0