// CSI V1
// Candlesticks Stochastic indicator 25.10.2016
//Nicolas @ www.prorealcode.com Sharing ProRealTime knowledge
//lastest highhest high and lowest low over "period"
hh = highest[period](high)
ll = lowest[period](low)
scale = hh-ll
//dynamic OHLC (percentile rank)
dynO = ((open-ll)/scale)*100
dynH = ((high-ll)/scale)*100
dynL = ((low-ll)/scale)*100
dynC = ((close-ll)/scale)*100
//candle color
if open>close then
r = 0
g = 255
else
r = 255
g = 0
endif
//draw candlesticks
DRAWCANDLE(dynO,dynH,dynL,dynC) coloured(g,r,0,alpha) bordercolor (255,255,255)
// Return 0 as " 0 " ,23.6 as "23.6 ",38.2 as " 38.2 ", 50 as "50", 61.8 as " 61.8 " ,100 as " 100 "
// Variables :
// period = 26
// alpha = 250
////////////////////////////////////////////////////////////////
// CLOSE BB20 COLOR CHANGE CBB20CC
med = Average[20](close)
// dst = STD[20](close)
// bes = med + (2 * dst)
// bei = med - (2 * dst)
////////////////////////////////
medH = Average[20](high)
dstH = STD[20](high)
besH = medH + (2 * dstH)
////////////////////////////////
MedL = Average[20](low)
dstL = STD[20](low)
beiL = medL - (2 * dstL)
////////////////////////////////
If close > besH then
DRAWCANDLE(open,high,low,close) COLOURED(0,255,0) // vert clair
Endif
If close > med and close < besH then
DRAWCANDLE(open,high,low,close) COLOURED(0,153,0) // vert
Endif
If close < beiL then
DRAWCANDLE(open,high,low,Close) COLOURED(255,0,0) // rouge
endif
If close < med and close > beiL then
DRAWCANDLE(open,high,low,close) COLOURED(233,79,228) // rose
Endif
// Return med as " med " , besH as " besH " , beiL as " beiL "
///////////////////////////////////////////////////////////
Return 0 as " 0 " ,23.6 as "23.6 ",38.2 as " 38.2 ", 50 as "50", 61.8 as " 61.8 " ,100 as " 100 " , med as " med " , besH as " besH " , beiL as " beiL "
.
