// R. da Argile
//
// Compute TR daily in TF intraday
// A MINIMUM NUMBER OF BARS MAY BE REQUIRED TO BE ACCURATE
//
// DEFPARAM DRAWONLASTBARONLY = true // for debug purpose
TFDailyInSeconds = 3600 * 24 // various intraday time frames in seconds
TFMinInSeconds = 60 // ...
TF30MinInSeconds = 60 * 30 // ...
TFWeeklyInSeconds = 3600 * 24 * 7 // ...
TFMaxIntradayInSeconds = 3600 * 4 // max intraday considered is 4H
ONCE AlreadyDrawnInfo = 0
ONCE AlreadyComputedTodayNumOfMBbars = 0
// get and shows current TF
IF AlreadyDrawnInfo = 0 THEN // Stuff to be done only ONCE
TF = GetTimeFrame // timeframe in seconds
TFinMin = TF / 60
//DRAWTEXT ("timeframe in seconds #TF# ", -100, -50) ANCHOR (TOPRIGHT, XSHIFT, YSHIFT)
TFintraday = 1
TFNumBarsInDay = 3600 / TF
IF TF > TFMaxIntradayInSeconds THEN // Computatin only TF intraday up to 4H
TFintraday = 0
TFNumBarsInDay = 1
ENDIF
//
AlreadyDrawnInfo = 1
ENDIF
//
// compute running ATR daiy
//
CurrentTRDaily = max(DHIGH(0) - DLOW(0), MAX(abs(DHIGH(0) - DCLOSE(1)), abs(DLOW(0) - DCLOSE(1))))
// Get last day before yesterday bar
IF BarIndex < (ATRdailyPeriod * TFNumBarsInDay) THEN
PreviousDayClose = DCLOSE(2) // previous day close
PreviousDayLow = DLOW(2) // previous day low
CurrentTRDaily = MAX(DHIGH(1)-DLOW(1), MAX(abs(DHIGH(1) - PreviousDayClose), ABS(DLOW(1) - PreviousDayClose))) // current True Range Daily
MyATRDaily = CurrentTRDaily
ELSE
IF INTRADAYBARINDEX = 0 THEN // compute new atr daily only on first intraday bar
BarFDound = 0
iBar = 0
WHILE (BarFDound < 2) AND (iBar < (2 * TFNumBarsInDay)) // secon check is to avoid infiniteloop
IF OPENDAYOFWEEK[iBar] <> OPENDAYOFWEEK[iBar + 1] THEN
iLastYesterdayBar = iBar + 1
BarFound = BarFound + 1
ENDIF
iBar = iBar + 1
WEND
PreviousDayClose = DCLOSE(iLastYesterdayBar+1) // previous day close
PreviousDayLow = DLOW(iLastYesterdayBar+1) // previous day low
CurrentTRDaily = MAX(DHIGH(iLastYesterdayBar)-DLOW(iLastYesterdayBar), MAX(abs(DHIGH(iLastYesterdayBar) - PreviousDayClose), ABS(DLOW(iLastYesterdayBar) - PreviousDayClose))) // current True Range Daily
MyATRDaily = ((MyATRDaily[1] * (ATRdailyPeriod - 1)) + CurrentTRDaily) / ATRdailyPeriod
ELSE
MyATRDaily = MyATRDaily[1]
ENDIF
ENDIF
IF DATE = TODAY THEN
DRAWTEXT ("ATRD computed in TF <#TFinMin#Min>: #MyATRDaily# ", -100, -35) ANCHOR (TOPRIGHT, XSHIFT, YSHIFT)
ENDIF
// return al least 2 values otherwise indicator takes the name of the UNIQUE return value (sic!)
RETURN myATRdaily AS "ARdaily" COLOURED (0,0,0,0)
.
