Paul and Bob: I've checked the values of Bob's QP slope formula with the values given by this MSWIN formula:
( (14 * (Sum(Cum( 1 ) * C ,14 ) ) ) - (Sum(Cum( 1 ) ,14 ) * (Sum( C ,14) ) ) ) / ( (14 * Sum(Pwr (Cum( 1 ) ,2 ) ,14 ) ) - Pwr(Sum(Cum( 1 ) ,14 ) ,2 ) )
If I specify four digits to the right of the decimal point in Bob Jagow's scan (b:8:4), the values are exactly the same. Exactly. Bob's formula is an exact translation, believe it or not. Try it, for example, with BNGO, with the Metastock formula with a 14-day slope.
Tonight, it's -0.0184. In QP2, with Bob's formula, it's identical. What's more, if you use the stock slope formula in WOW, the value is once again exactly the same.
Congratulations, Bob -- it's a great formula.
Here it is again, for those who missed it:
output = "slopebob.lst";
issuetype common;
Daystoload = 50; //needed for R2 bug!!!
integer i, S, Sx, Sxx;
float b, Sxy, Sy;
S := 14;
Sx := 0;
Sxx := 0;
Sxy := 0;
Sy := 0;
for i = 1 - S to 0 do
Sx := Sx + i;
Sy := Sy + close(i); //kills println wo d2ld
Sxx := Sxx + i*i;
Sxy := Sxy + i*close(i); //kills println wo d2ld
//Sxy := Sxy + i*close(0);
next i;
b := (S*Sxy - Sx*Sy)/(S*Sxx - Sx*Sx);
println symbol,",",close(0):8:2,",",b:8:4;
I marvel at the beauty of it, Bob.
Brooke |
