Текст подпрограммы и версий av05c_c.zip |
Тексты тестовых примеров tav05c_c.zip |
Вычисление суммы покомпонентных произведений двух комплексных векторов.
Для заданных комплексныx вeкторов U и V длины N вычисляется сумма
N S = ∑ UK*VK . K=1
void av05c_c (complex * ret_val, complex *u, complex *v, integer *n)
Параметры
ret_val - | результат вычисления (тип: комплексный); |
u, v - | одномерные массивы длины n, в которых задаются исходные векторы (тип: комплексный); |
n - | размерность векторов U и V (тип: целый). |
Версии: нет
Вызываемые подпрограммы: нет
Замечания по использованию: нет
int main(void) { /* Initialized data */ static complex u1[4] = { {1.f,0.f},{2.f,0.f},{3.f,0.f},{4.f,1.f} }; static complex u2[4] = { {1.f,0.f},{1.f,0.f},{1.f,0.f},{1.f,1.f} }; /* System generated locals */ complex q__1; /* Local variables */ extern /* Complex */ void av05c_c(complex *, complex *, complex *, int *); static int n; static complex s; n = 4; av05c_c(&q__1, u1, u2, &n); s.r = q__1.r, s.i = q__1.i; printf("\n %12.4e %12.4e \n", s.r, s.i); return 0; } /* main */ Результат: s = (9., 5.)