14 double e, ep,
s, t, te = 1.e-12;
18 x = (
Cpx *) calloc(n,
sizeof(
Cpx));
22 for (k = 0, p = a, s = t = 0.; k <
n; ++k) {
23 for (j = 0, h.
re = h.
im = 0.; j < n; ++j, ++p) {
28 t += h.
re * x[k].
re + h.
im * x[k].
im;
34 for (k = 0; k <
n; ++k) {
39 }
while (fabs(e - ep) > fabs(te * e));
double hevmax(Cpx *a, Cpx *u, int n)
tuple h
panel.defaultSize = wx.CheckBox(panel, id = wx.ID_ANY, label = _("Use default size")) panel...