[description ="Stochastic coloured range"]
[citation ="''Lane's Stochastics'' by George C. Lane, M.D.Stocks & Commodities March 1994 www.traders.com.
Also adapted "Peter, Bullcharts Staff, coded from "Fun with Bullscript, post 22 Oct 2004" ]
[target =Percent; category=Oscillators; alias=Stoch4]
[horzlines =80,20]
kp := input("%K Time periods",8,1);
kslowing := input("%K Slowing periods",3,1);
dperiods := input("%D Time periods",3,1);
[name =%K]
kay := ( sum(C - llv(L,kp),kslowing) / sum(hhv(H,kp) - llv(L,kp),kslowing)) * 100;
st := input("Step size", 3,1);
res1 := ( sum(C - llv(L,kp),kslowing) / sum(hhv(H,kp) - llv(L,kp),kslowing)) * 100;
res2 := ( sum(C - llv(L,kp+st),kslowing+st) / sum(hhv(H,kp+st) - llv(L,kp+st),kslowing+st)) * 100;
res3 := ( sum(C - llv(L,kp+st*2),kslowing+st*2) / sum(hhv(H,kp+st*2) - llv(L,kp+st*2),kslowing+st*2)) * 100;
res4 := ( sum(C - llv(L,kp+st*3),kslowing+st*3) / sum(hhv(H,kp+st*3) - llv(L,kp+st*3),kslowing+st*3)) * 100;
res5 := ( sum(C - llv(L,kp+st*4),kslowing+st*4) / sum(hhv(H,kp+st*4) - llv(L,kp+st*4),kslowing+st*4)) * 100;
res6 := ( sum(C - llv(L,kp+st*5),kslowing+st*5) / sum(hhv(H,kp+st*5) - llv(L,kp+st*5),kslowing+st*5)) * 100;
res7 := ( sum(C - llv(L,kp+st*6),kslowing+st*6) / sum(hhv(H,kp+st*6) - llv(L,kp+st*6),kslowing+st*6)) * 100;
res8 := ( sum(C - llv(L,kp+st*7),kslowing+st*7) / sum(hhv(H,kp+st*7) - llv(L,kp+st*7),kslowing+st*7)) * 100;
res9 := ( sum(C - llv(L,kp+st*8),kslowing+st*8) / sum(hhv(H,kp+st*8) - llv(L,kp+st*8),kslowing+st*8)) * 100;
res10 := ( sum(C - llv(L,kp+st*9),kslowing+st*9) / sum(hhv(H,kp+st*9) - llv(L,kp+st*9),kslowing+st*9)) * 100;
[name =Fill; linestyle=fill]
[color =rgb(0,0,255)] res1; res2;
[color =rgb(64,0,255)] res2; res3;
[color =rgb(128,0,255)] res3; res4;
[color =rgb(192,0,255)] res4; res5;
[color =rgb(255,0,255)] res5; res6;
[color =rgb(255,0,192)] res6; res7;
[color =rgb(255,0,128)] res7; res8;
[color =rgb(255,0,64)] res8; res9;
[color =rgb(255,0,0)] res9; res10;
[linestyle =solid; width=1; Colour=Black;]
res1;
[linestyle =Dash; width=1; Colour=Red;]
Res10;
------------- BC User since June 2007
|