// myCandel-Infos-V1.4
// 18.06.2019 (Release 1.2)
// 18.04.2020 (Release 1.3)
// 01.05.2020(Release 1.4)
// TEMP 2024 (UN-Release 1.5)
// Thomas Geisler
// Sharing ProRealTime knowledge
// https://www.prorealcode.com/library/
DEFPARAM CalculateOnLastBars = 10000
defparam drawonlastbaronly=true // Zeichung nur am letzten Bar
//--init--
alpha = 255
TP = myEATR//2 //Position for Infos
//TP = 0.1 //Position for Infos
lookback = 1
// Info = 1
// IntradayTrend = 1
// DayTrend = 1
// Centerline = 1
// HighLowIntraday = 1
// HighLow = 1
// Arrows = 1
// Trendforce = 1
// OBVforce = 1
// LStyle
// myATR = 14
// myEATR = 200
//-- end--
//-- INFO --
// Section rounded for indices other for Share and Forex
// -- ROUNDED --
IF BarIndex = 0 THEN
FOR i = 0 TO 5
$myDhigh[i] = 0
$myDlow[i] = 0
NEXT
ENDIF
IF (OpenTime = 000000) OR ((OpenTime > 000000) AND (OpenTime[1] > OpenTime)) THEN
FOR i = 5 DOWNTO 1
$myDhigh[i] = $myDhigh[i - 1]
$myDlow[i] = $myDlow[i - 1]
NEXT
$myDhigh[0] = high
$myDlow[0] = low
//
//--range of last five days
D1 = $myDhigh[1] - $myDlow[1]//DHigh(1)-DLow(1)
D2 = $myDhigh[2] - $myDlow[2]//DHigh(2)-DLow(2)
D3 = $myDhigh[3] - $myDlow[3]//DHigh(3)-DLow(3)
D4 = $myDhigh[4] - $myDlow[4]//DHigh(4)-DLow(4)
D5 = $myDhigh[5] - $myDlow[5]//DHigh(5)-DLow(5)
//
ENDIF
$myDhigh[0] = max(high,$myDhigh[0])
$myDlow[0] = min(low,$myDlow[0])
IF Decimals < 2 THEN
// previous Candle Range[1] and ATR[14]or(3) and Extra-ATR[200]
myRange = round(Range[1])
myATR = round(AverageTrueRange[3](close[0]),0)
myEATR = round(ExponentialAverage[20](AverageTrueRange[10](close[0])))
//--centerline (DM0) and intraday range (DMR)
myintdayhigh = $myDhigh[0]
myintdaylow = $myDlow[0]
DM0 = (myintdayhigh-myintdaylow)/2+myintdaylow
DMR = round((myintdayhigh-myintdaylow))
//--rounded average range of last five days
DMA = round((D1+D2+D3+D4+D5)/5)
//--end -- ROUNDED
ELSE
// -- NOT ROUNDED --
myRange = Range[1]
myATR = AverageTrueRange[8](close[0])
myEATR = ExponentialAverage[20](AverageTrueRange[10](close[0]))
//--centerline (DM0) and intraday range (DMR)
myintdayhigh = $myDhigh[0]
myintdaylow = $myDlow[0]
DM0 = (myintdayhigh-myintdaylow)/2+myintdaylow
DMR = (myintdayhigh-myintdaylow)
//--rounded range of last five days
DMA = (D1+D2+D3+D4+D5)/5
//--end -- NOT ROUNDED
ENDIF
// -- end INFO --
//--Dailys highest high and lowest Low--
if day <> day[1] then
dayindex = dayindex + 1
dayhigh = 0
daylow = close
//dayopen = open
//dayclose = close
if dayindex > lookback then
for j = 1 to barindex
if dayindex[j] = dayindex - lookback then
mydayhigh = dayhigh[j]
mydaylow = daylow[j]
break
endif
next
endif
endif
dayhigh = max(dayhigh,high)
daylow = min(daylow,low)
//--end--
//--show or not, Daily High / Low Line
if HighLow = 1 then
mydayhigh2 = mydayhigh
mydaylow2 = mydaylow
dha = 255
dhb = 0
dhc = 255
dla = 0
dlb = 255
dlc = 255
endif
////////// Area for Day-Line colour changes
//// Daily high red, daily low green or change it
//// change color od Day Hig/Low Lines
//If mydayhigh[0] > mydayhigh[1] and mydaylow[0] > mydaylow[1] then
//dha = 255
//dhb = 0
//dhc = 0
//dla = 0
//dlb = 255
//dlc = 0
//elsif mydayhigh[0] < mydayhigh[1] and mydaylow[0] < mydaylow[1] then
//dha = 0
//dhb = 255
//dhc = 0
//dla = 255
//dlb = 0
//dlc = 0
//elsif mydayhigh[0] > mydayhigh[1] and mydaylow[0] < mydaylow[1] or mydayhigh[0] < mydayhigh[1] and mydaylow[0] > mydaylow[1]then
//dha = 255
//dhb = 153
//dhc = 0
//dla = 255
//dlb = 153
//dlc = 0
//endif
//////--end--
// change color for INSIDE DAYs and Trend Up/Down
//If mydayhigh[0] > mydayhigh[1] and mydaylow[0] > mydaylow[1] then
//dha = 0
//dhb = 153
//dhc = 153
//dla = 255
//dlb = 51
//dlc = 153
//elsif mydayhigh[0] < mydayhigh[1] and mydaylow[0] < mydaylow[1] then
//dha = 255
//dhb = 51
//dhc = 153
//dla = 0
//dlb = 153
//dlc = 153
//elsif mydayhigh[0] > mydayhigh[1] and mydaylow[0] < mydaylow[1] or mydayhigh[0] < mydayhigh[1] and mydaylow[0] > mydaylow[1]then
//dha = 255
//dhb = 153
//dhc = 0
//dla = 255
//dlb = 153
//dlc = 0
//endif
//--end--
//--show or not, centerline, center of range between intraday high/low--
If CenterLine = 1 then
myintdaycenter = DM0
else
myintdaycenter = undefined
endif
if myintdaycenter[0] > myintdaycenter[1] then
cla = 0
clb = 255
elsif myintdaycenter[0] < myintdaycenter[1] then
//cla = 255
//clb = 0
cla = 0
clb = 255
endif
//--end--
//Backround from Directinal Movement
IF Background = 1 AND Centerline = 1 THEN
IF CLOSE > myintdaycenter THEN
BACKGROUNDCOLOR(204,255,204,164)
ELSIF CLOSE < myintdaycenter THEN
BACKGROUNDCOLOR(255,204,204,164)
ENDIF
ENDIF
// Ranges Candels in different colour and print today daily range (High/Low)
// For Rounded and not rounded
If Info = 1 then
IF Decimals < 2 THEN // Chande position / space
// In PRT you have to increase the percentage distance of the chart from the window edge!
DrawText(" <> #DMR#/#DMA#",barindex,open+TP+TP,Dialog,Standard,10) coloured(153,153,153,alpha)
if myATR > ExponentialAverage[20](myATR) or myRange > myATR then
DrawText(" #myRange#/#myATR#/#myEATR#",barindex,open,Dialog,Bold,10) coloured(255,0,255,alpha)
else
DrawText(" #myRange#/#myATR#/#myEATR#",barindex,open,Dialog,Standard,10) coloured(168,168,168,alpha)
endif
// not rounded
ELSE // Chande position / space
// In PRT you have to increase the percentage distance of the chart from the window edge!
DrawText(" <>#DMR#/#DMA#",barindex,open+TP+TP,Dialog,Standard,10) coloured(153,153,153,alpha)
if myATR > ExponentialAverage[20](myATR) or myRange > myATR then
DrawText(" #myRange#/#myATR#/#myEATR#",barindex,open,Dialog,Bold,10) coloured(255,0,255,alpha)
else
DrawText(" #myRange#/#myATR#/#myEATR#",barindex,open,Dialog,Standard,10) coloured(168,168,168,alpha)
endif
endif
ENDIF
//--end--
//-- proof close over/under Centerline and/or close over/under yesterday high/low--
If DayTrend = 1 then
if close < mydayhigh[1] and close > mydaylow[1] then
DrawText(" DT inside",barindex,open+TP,Dialog,Bold,10) coloured(153,153,153,alpha)
elsif close > mydayhigh[1] then
DrawText(" DT over",barindex,open+TP,Dialog,Bold,10) coloured(0,255,0,alpha)
elsif close < mydaylow[1] then
DrawText(" DT under",barindex,open+TP,Dialog,Bold,10) coloured(255,0,0,alpha)
endif
endif
If IntradayTrend = 1 then
if close > DM0 then
DrawText(" IDT over",barindex,open-TP,Dialog,Bold,10) coloured(0,255,0,alpha)
else
DrawText(" IDT under",barindex,open-TP,Dialog,Bold,10) coloured(255,0,0,alpha)
endif
endif
//--end--
//--Show Intraday HighLow as dotted line--
If HighLowIntraday = 1 then
myintdayhigh = $myDhigh[0]
myintdaylow = $myDlow[0]
else
myintdayhigh = undefined
myintdaylow = undefined
endif
//--end--
//--Arrows--
//Trend bzw Trend force
if Arrows = 1 then
if Periods10not20 = 1 then //Periods 10
BullTrend = (Close - LOWEST[10](LOW)) / AVERAGETRUERANGE[10]
BearTrend = (HIGHEST[10](HIGH) - Close) / AVERAGETRUERANGE[10]
Trend = (BullTrend - BearTrend)
TrendEMA = ExponentialAverage[10](Trend)
// On Balance Volumen zur Bestimmung der Kaufkraft der Bewegung/Trend
myOBV = OBV
myOBVA1 = Average[10](myOBV)
else //Periods 20
BullTrend = (Close - LOWEST[20](LOW)) / AVERAGETRUERANGE[20]
BearTrend = (HIGHEST[20](HIGH) - Close) / AVERAGETRUERANGE[20]
Trend = (BullTrend - BearTrend)
TrendEMA = ExponentialAverage[20](Trend)
// On Balance Volumen zur Bestimmung der Kaufkraft der Bewegung/Trend
myOBV = OBV
myOBVA1 = Average[20](myOBV)
endif
if Trendforce = 1 and OBVforce = 1 then
If Trend >= TrendEMA and myOBV >= myOBVA1 then
DRAWARROWup(barindex+1,low-TP) coloured(0,255,0,alpha)
elsif Trend =< TrendEMA and myOBV =< myOBVA1 then
DRAWARROWdown(barindex+1,high+TP)coloured(255,0,0,alpha)
endif
elsIf OBVforce = 1 and not Trendforce then
if myOBV => myOBVA1 then
DRAWARROWup(barindex+1,low-TP) coloured(0,255,0,alpha)
elsif myOBV =< myOBVA1 then
DRAWARROWdown(barindex+1,high+TP)coloured(255,0,0,alpha)
endif
elsIf Trendforce = 1 and not OBVforce then
if Trend > TrendEMA and Trend >= 0 then
DRAWARROWup(barindex+1,low-TP) coloured(0,255,0,alpha)
elsif Trend < TrendEMA and Trend <= 0then
DRAWARROWdown(barindex+1,high+TP)coloured(255,0,0,alpha)
endif
endif
endif
//--end--
// Show or not Heikin Ashi Line
if HAline = 1 then
once haOpen = open
once haClose = Close
N = 0
if barindex = 0 then
haOpen = open
haClose = close
elsif N = 0 then
haClose =(Open+High+Low+Close)/4
haOpen =(haOpen[1]+haClose[1])/2
endif
if haOpen[0] > haOpen[1] then
haa = 0
hab = 255
else
haa = 255
hab = 0
endif
endif
//--end--
// To show Outsidebar use external Indicator OutsideBarColorSolo.itf
//High/Low Daylines koennen über den Dialog eingestellt werden.
Return mydayhigh2 AS "High", mydaylow2 AS "Low", myintdayhigh AS "Today High", myintdaylow AS "Today Low", myintdaycenter as "Today Centerline", haOpen as "Heikin Ashi Line" //haOpen COLOURED (haa,hab,0 )style(line,1)as "Heikin Ashi Line"
// mit vorgefaerbten High/Low Daylines
//Return mydayhigh2 COLOURED (dha,dhb,dhc)style(line,2) AS "High", mydaylow2 COLOURED (dla,dlb,dlc)style(line,2) AS "Low", myintdayhigh AS "Today High", myintdaylow AS "Today Low", myintdaycenter as "Today Centerline", haOpen as "Heikin Ashi Line" //haOpen COLOURED (haa,hab,0 )style(line,1)as "Heikin Ashi Line"
// myintdaycenter COLOURED (255,255,255 )style(line,2) as "Today Centerline" // Feste Farbe
//Return mydayhigh2 AS "High", mydaylow2 AS "Low", myintdayhigh AS "Today High", myintdaylow AS "Today Low", myintdaycenter as "Today Centerline", haOpen COLOURED (haa,hab,0 )style(line,1)as "Heikin Ashi Line"
//END
.
