10 #define cnst const fvec
14 fvec wi, zeta, zetawi, HCH;
15 fvec F0, F1, F2, F3, F4, F5;
16 fvec K1, K2, K3, K4, K5;
32 const fvec mask = (HCH < info.sigma2 * 16.);
33 wi = w/( (mask & info.sigma2) +HCH );
35 T.
chi2 += mask & (zeta * zetawi);
37 wi = w / (dt0 * dt0 + HCH);
39 T.
chi2 += zeta * zetawi;
56 T.
C00 -= F0 * F0 * wi;
81 fvec wi, zeta, zetawi, HCH;
82 fvec F0, F1, F2, F3, F4, F5;
83 fvec K1, K2, K3, K4, K5;
100 wi = w/( (mask & info.
sigma2) +HCH );
102 T.
chi2 += mask & (zeta * zetawi);
104 wi = w / (info.
sigma2 + HCH);
106 T.
chi2 += zeta * zetawi;
123 T.
C00 -= F0 * F0 * wi;
148 fvec wi, zeta, zetawi, HCH;
149 fvec F0, F1, F2, F3, F4, F5;
150 fvec K1, K2, K3, K4, K5;
167 wi = w/( (mask & info.
sigma2) +HCH );
169 T.
chi2 += mask & (zeta * zetawi);
171 wi = w / (info.
sigma2 + HCH);
174 T.
chi2 += zeta * zetawi;
193 T.
C00 -= F0 * F0 * wi;
236 chi2 += zeta * zeta / (info.
sigma2 + HCH);
247 fvec wi, zeta, zetawi, HCH;
259 wi = 1. / (info.
sigma2 + HCH);
261 chi2 += zeta * zetawi;
282 fvec zeta0, zeta1, S00, S10, S11, si;
283 fvec F00, F10, F20, F30, F40, F01, F11, F21, F31, F41;
284 fvec K00, K10, K20, K30, K40, K01, K11, K21, K31, K41;
289 zeta0 = T.
x + extrDx -
x;
290 zeta1 = T.
y + extrDy -
y;
307 S00 = info.
C00 + F00 + J[0] * F20 + J[1] * F30 + J[2] * F40;
308 S10 = info.
C10 + F10 + J[3] * F20 + J[4] * F30 + J[5] * F40;
309 S11 = info.
C11 + F11 + J[3] * F21 + J[4] * F31 + J[5] * F41;
311 si = 1. / (S00 * S11 - S10 * S10);
319 zeta0 * zeta0 * S00 + 2. * zeta0 * zeta1 * S10 + zeta1 * zeta1 * S11;
322 K00 = F00 * S00 + F01 * S10;
323 K01 = F00 * S10 + F01 * S11;
324 K10 = F10 * S00 + F11 * S10;
325 K11 = F10 * S10 + F11 * S11;
326 K20 = F20 * S00 + F21 * S10;
327 K21 = F20 * S10 + F21 * S11;
328 K30 = F30 * S00 + F31 * S10;
329 K31 = F30 * S10 + F31 * S11;
330 K40 = F40 * S00 + F41 * S10;
331 K41 = F40 * S10 + F41 * S11;
333 T.
x -= K00 * zeta0 + K01 * zeta1;
334 T.
y -= K10 * zeta0 + K11 * zeta1;
335 T.
tx -= K20 * zeta0 + K21 * zeta1;
336 T.
ty -= K30 * zeta0 + K31 * zeta1;
337 T.
qp -= K40 * zeta0 + K41 * zeta1;
339 T.
C00 -= (K00 * F00 + K01 * F01);
340 T.
C10 -= (K10 * F00 + K11 * F01);
341 T.
C11 -= (K10 * F10 + K11 * F11);
342 T.
C20 = -(K20 * F00 + K21 * F01);
343 T.
C21 = -(K20 * F10 + K21 * F11);
344 T.
C22 -= (K20 * F20 + K21 * F21);
345 T.
C30 = -(K30 * F00 + K31 * F01);
346 T.
C31 = -(K30 * F10 + K31 * F11);
347 T.
C32 = -(K30 * F20 + K31 * F21);
348 T.
C33 -= (K30 * F30 + K31 * F31);
349 T.
C40 = -(K40 * F00 + K41 * F01);
350 T.
C41 = -(K40 * F10 + K41 * F11);
351 T.
C42 = -(K40 * F20 + K41 * F21);
352 T.
C43 = -(K40 * F30 + K41 * F31);
353 T.
C44 -= (K40 * F40 + K41 * F41);
361 fvec zeta0, zeta1, S00, S10, S11, si;
362 fvec F00, F10, F20, F30, F40, F01, F11, F21, F31, F41;
363 fvec K00, K10, K20, K30, K40, K01, K11, K21, K31, K41;
380 S00 = F00 + info.
C00;
381 S10 = F10 + info.
C10;
382 S11 = F11 + info.
C11;
384 si = 1. / (S00 * S11 - S10 * S10);
391 zeta0 * zeta0 * S00 + 2. * zeta0 * zeta1 * S10 + zeta1 * zeta1 * S11;
394 K00 = F00 * S00 + F01 * S10;
395 K01 = F00 * S10 + F01 * S11;
396 K10 = F10 * S00 + F11 * S10;
397 K11 = F10 * S10 + F11 * S11;
398 K20 = F20 * S00 + F21 * S10;
399 K21 = F20 * S10 + F21 * S11;
400 K30 = F30 * S00 + F31 * S10;
401 K31 = F30 * S10 + F31 * S11;
402 K40 = F40 * S00 + F41 * S10;
403 K41 = F40 * S10 + F41 * S11;
405 T.
x -= K00 * zeta0 + K01 * zeta1;
406 T.
y -= K10 * zeta0 + K11 * zeta1;
407 T.
tx -= K20 * zeta0 + K21 * zeta1;
408 T.
ty -= K30 * zeta0 + K31 * zeta1;
409 T.
qp -= K40 * zeta0 + K41 * zeta1;
411 T.
C00 -= K00 * F00 + K01 * F01;
412 T.
C10 -= K10 * F00 + K11 * F01;
413 T.
C11 -= K10 * F10 + K11 * F11;
414 T.
C20 -= K20 * F00 + K21 * F01;
415 T.
C21 -= K20 * F10 + K21 * F11;
416 T.
C22 -= K20 * F20 + K21 * F21;
417 T.
C30 -= K30 * F00 + K31 * F01;
418 T.
C31 -= K30 * F10 + K31 * F11;
419 T.
C32 -= K30 * F20 + K31 * F21;
420 T.
C33 -= K30 * F30 + K31 * F31;
421 T.
C40 -= K40 * F00 + K41 * F01;
422 T.
C41 -= K40 * F10 + K41 * F11;
423 T.
C42 -= K40 * F20 + K41 * F21;
424 T.
C43 -= K40 * F30 + K41 * F31;
425 T.
C44 -= K40 * F40 + K41 * F41;