Thanks Johann.

Do you believe that


var LeadSine = sin(DominantPhase(Price,30)+PI/4);

can replace the original Q1 calculation?

{Compute InPhase and Quadrature components.}

Q1 = (.0962 * Detrender + .5769 * Detrender[2] - .5769
* Detrender[4] - .0962 * Detrender[6]) * (.075 * Period[1] + .54);
I1 = Detrender[3];