Документ взят из кэша поисковой машины. Адрес
оригинального документа
: http://num-anal.srcc.msu.ru/lib_na/cat/pa_htm_p/pa03r_p.htm
Дата изменения: Mon Nov 16 14:33:15 2015 Дата индексирования: Sun Apr 10 03:18:05 2016 Кодировка: Windows-1251 |
Текст подпрограммы и версий pa03r_p.zip pa03e_p.zip |
Тексты тестовых примеров tpa03r_p.zip tpa03e_p.zip |
Вычисление квадратного корня из комплексного числа.
PA03R вычисляет квадратный корень из комплексного числа y = XR + XI i .
procedure PA03R(XR :Real; XI :Real; var YR :Real; var YI :Real);
Параметры
XR, XI - | действительная и мнимая часть заданного комплексного числа (тип: вещественный); |
YR, YI - | вещественные переменные, значения которых полагаются равными действительной и мнимой части результата. |
Версии
PA03E - | вычисление квадратного корня из комплексного числа в режиме расширенной (Extended) точности. При этом параметры XR, XI, YR и YI должны иметь тип Extended. |
Вызываемые подпрограммы
PA02R - | вычисление модуля комплексного числа; используется в подпрограмме PA03R. |
PA02E - | вычисление модуля комплексного числа в режиме расширенной (Extended) точности; используется в подпрограмме PA03E. |
Замечания по использованию: нет
Unit TPA03R_p; interface uses SysUtils, Math, { Delphi } Lstruct, Lfunc, UtRes_p, PA03R_p; function TPA03R: String; implementation function TPA03R: String; var YR,YI,XR,XI :Real; RES :Complex; BЕGin Result := ''; { результат функции } XR := 16.0; XI := 0.0; PA03R(XR,XI,YR,YI); RES := Csqrt(Cmplx(16.0,0.0)); Result := Result + Format(' %20.16f %20.16f ',[YR,YI]) + #$0D#$0A; Result := Result + Format('%20.16f %20.16f ',[RES.re,RES.im]) + #$0D#$0A; UtRes('TPA03R',Result); { вывод результатов в файл TPA03R.res } exit; end; end. Результаты: YR = 4.0 , YI = 0.0