Loading...
Searching...
No Matches
hmgen.c
Go to the documentation of this file.
/* hmgen.c CCMATH mathematics library source code.
*
* Copyright (C) 2000 Daniel A. Atkinson All rights reserved.
* This code may be redistributed under the terms of the GNU library
* public license (LGPL). ( See the lgpl.license file for details.)
* ------------------------------------------------------------------------
*/
#include <stdlib.h>
#include "ccmath.h"
void hmgen(Cpx *h, double *ev, Cpx *u, int n)
{
Cpx *v, *p;
int i, j;
double e;
v = (Cpx *)calloc(n * n, sizeof(Cpx));
cmcpy(v, u, n * n);
hconj(v, n);
for (i = 0, p = v; i < n; ++i) {
for (j = 0, e = ev[i]; j < n; ++j, ++p) {
p->re *= e;
p->im *= e;
}
}
cmmul(h, u, v, n);
free(v);
}
ccmath.h
cmmul
void cmmul(Cpx *c, Cpx *a, Cpx *b, int n)
Definition cmmul.c:11
cmcpy
void cmcpy(Cpx *a, Cpx *b, int n)
Definition cmcpy.c:11
Cpx
struct complex Cpx
Definition ccmath.h:41
hconj
void hconj(Cpx *u, int n)
Definition hconj.c:11
hmgen
void hmgen(Cpx *h, double *ev, Cpx *u, int n)
Definition hmgen.c:12
complex::re
double re
Definition ccmath.h:39
complex::im
double im
Definition ccmath.h:39