22 q0 = (
Cpx *)calloc(2 * n,
sizeof(
Cpx));
23 for (i = 0, p = q0 + n, pc = a; i < n; ++i, pc += n + 1)
25 for (j = 0, pc = a; j < n - 2; ++j, pc += n + 1) {
27 for (i = 1, sc = 0.; i <= m; ++i)
28 sc += pc[i].re * pc[i].re + pc[i].im * pc[i].im;
32 y = sc + (
x = sqrt(p->
re * p->
re + p->
im * p->
im));
41 x = 1. / sqrt(2. * sc * y);
43 for (i = 0, qw = pc + 1; i < m; ++i) {
44 q0[i].
re = q0[i].
im = 0.;
51 qw[0].
im = -y * cc.
im;
54 for (i = 0, e = j + 2, p = pc + n + 1, y = 0.; i < m;
57 (u.
re = qw[i].
re) * p->re - (u.
im = qw[i].
im) * p->im;
58 q0[i].
im += u.
re * p->im + u.
im * p->re;
60 for (k = i + 1; k < m; ++k, ++p) {
61 q0[i].
re += qw[k].
re * p->re - qw[k].
im * p->im;
62 q0[i].
im += qw[k].
im * p->re + qw[k].
re * p->im;
63 q0[k].
re += u.
re * p->re + u.
im * p->im;
64 q0[k].
im += u.
im * p->re - u.
re * p->im;
66 y += u.
re * q0[i].
re + u.
im * q0[i].
im;
68 for (i = 0; i < m; ++i) {
69 q0[i].
re -= y * qw[i].
re;
71 q0[i].
im -= y * qw[i].
im;
74 for (i = 0, e = j + 2, p = pc + n + 1; i < m; ++i, p += e++) {
75 for (k = i; k < m; ++k, ++p) {
76 p->re -= qw[i].
re * q0[k].
re + qw[i].
im * q0[k].
im +
77 q0[i].
re * qw[k].
re + q0[i].
im * qw[k].
im;
78 p->im -= qw[i].
im * q0[k].
re - qw[i].
re * q0[k].
im +
79 q0[i].
im * qw[k].
re - q0[i].
re * qw[k].
im;
87 d[j + 1] = (pc + n + 1)->re;
89 dp[j] = sqrt(u.
re * u.
re + u.
im * u.
im);
90 for (j = 0, pc = a, qw = q0 + n; j < n; ++j, pc += n + 1) {
92 for (i = 1, p = pc + n; i < n - j; ++i, p += n) {
void chouse(Cpx *a, double *d, double *dp, int n)