|
Текст подпрограммы и версий pa05r_c.zip pa05d_c.zip |
Тексты тестовых примеров tpa05r_c.zip tpa05d_c.zip |
Вычисление натурального логарифма от комплексного числа.
pa05r_c вычисляет значение функции ln z, где z = XR + XI i - заданное комплексное число.
int pa05r_c (real *xr, real *xi, real *yr, real *yi)
Параметры
| xr, xi - | действительная и мнимая части заданного комплексного числа (тип: вещественный); |
| yr, yi - | вещественные переменные, значения которых полагаются равными действительной и мнимой части результата. |
Версии
| pa05d_c - | вычисление натурального логарифма от комплексного числа в режиме удвоенной точности. При этом параметры xr, xi, yr, yi должны иметь тип double. |
Вызываемые подпрограммы
| pa02r_c - | вычисление модуля комплексного числа; используется в подпрограмме pa05r_c. |
| pa02d_c - | вычисление модуля комплексного числа в режиме удвоенной точности; используется в подпрограмме pa05d_c. |
Замечания по использованию: нет
int main(void)
{
/* System generated locals */
complex q__1;
/* Builtin functions */
void c_exp(complex *, complex *);
/* Local variables */
extern int pa05r_c(float *, float *, float *, float *);
static float xi, yi, xr, yr;
static complex res;
xr = -3.f;
xi = 3.f;
pa05r_c(&xr, &xi, &yr, &yi);
c_exp(&q__1, &c_b1);
res.r = q__1.r, res.i = q__1.i;
printf("\n %16.7e %16.7e \n", yr, yi);
printf("\n %16.7e %16.7e \n", res.r, res.i);
return 0;
} /* main */
Результаты: yr = 1.445186 , yi = 2.356194