|
Текст подпрограммы и версий pa01r_c.zip pa01d_c.zip |
Тексты тестовых примеров tpa01r_c.zip tpa01d_c.zip |
Деление комплексных чисел.
pa01r_c делит комплексное число X = XR + XI i на комплексное число Y = YR + YI i .
int pa01r_c(real *xr, real *xi, real *yr, real *yi, real *zr,
real *zi)
Параметры
| xr, xi - | действительная и мнимая часть делимого X (тип: вещественный); |
| yr, yi - | действительная и мнимая части делителя Y (тип: вещественный); |
| zr, zi - | вещественные переменные, значения которых полагаются равными действительной и мнимой части результата. |
Версии
| pa01d_c - | деление комплексных чисел в режиме удвоенной точности. При этом параметры xr, xi, yr, yi, zr и zi должны иметь тип double. |
Вызываемые подпрограммы: нет
Замечания по использованию: нет
int main(void)
{
/* Local variables */
extern int pa01r_c(float *, float *, float *, float *, float *, float *);
static float xi, yi, zi, xr, yr, zr;
xr = 1.f;
xi = 2.f;
yr = 3.f;
yi = 4.f;
pa01r_c(&xr, &xi, &yr, &yi, &zr, &zi);
printf("\n %13.3e %13.3e \n", xr, xi);
printf("\n %13.3e %13.3e \n", yr, yi);
printf("\n %13.3e %13.3e \n", zr, zi);
return 0;
} /* main */
Результаты: zr = 0.44 , zi = 0.08