47 double sumUprime, sumU;
48 double jumpToNext, jumpToPrevious;
49 double chainToNext, chainToPrevious;
50 double aConst[101], uprime[101];
53 for (m = 3, i = 1, nuprime = 1; i < 101; i++) {
55 for (k = 1, jumpToNext = 0., jumpToPrevious = 0.; k <=
m; k++) {
57 if (bing[i] > 0 || bing[i + k] > 0)
58 jumpToNext +=
exp((
double)(bing[i + k] - bing[i]) /
sqrt((
double)(bing[i + k] + bing[i])));
60 if (bing[i] > 0 || bing[i - k] > 0)
61 jumpToPrevious +=
exp((
double)(bing[i - k] - bing[i]) /
sqrt((
double)(bing[i - k] + bing[i])));
65 if (jumpToNext > 0. && jumpToPrevious > 0.) {
66 aConst[
i] = -
log(jumpToNext + jumpToPrevious);
67 chainToNext = aConst[
i] +
log(jumpToNext);
68 chainToPrevious = aConst[
i] +
log(jumpToPrevious);
69 uprime[
i] = chainToNext - chainToPrevious;
71 u[nuprime] = uprime[
i];
82 for (k = 3, sumUprime =
u[2], sumU =
u[2]; k < nuprime + 1; k++) {
85 sumUprime +=
log(1. +
exp(
u[k] -
u[k - 1]));
90 for (k = 2; k < nuprime + 1; k++)
93 for (i = 1; i < offset + 1; i++)
96 for (i = 1; i < nuprime + 1; i++) {
static std::vector< std::string > checklist log
Exp< T >::type exp(const T &t)