x = half1 y = half2
                Σx*y - Σx*Σy/n
CC1/2 = ———————————————————————————————————
         √[ (Σx²-Σx*Σx/n)*(Σy²-Σy*Σy/n) ]
         2*CC
CC* = √ ——————
         1+CC
| variable | definition | length | description | 
|---|---|---|---|
| rotax | 1.0 | vector along rotation axis | |
| inray | 1.0 | vector pointing to primary beam | |
| lorvec | vecprod(rotax,inray) | sin(rotax,inray) | lorentz vector (does not change during one scan) | 
| c | 2*sin(θ)/λ | c-vector in diffracting position | |
| lor | |(1.0/scalprod(c,lorvec)| | the lorentz correction | |
| duration | |c|*lor | theta corrected lorentz correction |