//this script is intended to help identify reversals and attempt to anticiapate them. Psar and Tilson templates are from Chris Moody and TKP Trader
//@Bjorgum on Stocktwits
//Bull trends are identified by blue bars, while bear trades are identified by red. Points of reversal are indicated with yellow candles.
//Bars change to yellow as bar close crosses the Tilson moving averages. Blue or red is confrimed as the two Tilson avergaes themselves cross.
//Buy and sell signal is given on yellow bars
//TURN CANDLE BORDERS OFF
//Psar helps identify reversals and provide stop loss values
//Arrows appear above or below candles to incorporate a momentum aspect. This condition is based on a rising or falling TSI value while under or over the signal line.
//This can show momentum 'headwinds' or 'tailwinds' as TSI 'curls'.
//@version=4
// TSI Inputs
short = 5
signal = 14
// Calculate TSI
pc = close - close[1]
// Calculate double smoothed PC
firstsmooth = ExponentialAverage[long](pc)
doublesmoothedpc = ExponentialAverage[short](firstsmooth)
// Calculate double smoothed absolute PC
abspc = abs(pc)
firstsmoothabs = ExponentialAverage[long](abspc)
doublesmoothedabspc = ExponentialAverage[short](firstsmoothabs)
tsivalue = 100 * (doublesmoothedpc / doublesmoothedabspc)
// Calculate Signals
data = tsivalue > tsivalue[1] AND tsivalue < ExponentialAverage[signal](tsivalue)
dtat = tsivalue < tsivalue[1] AND tsivalue > ExponentialAverage[signal](tsivalue)
// Define ATR
atr = AverageTrueRange[14](close)
// Plot Upward-Pointing Triangle using drawtext for "Curl Up" with color "green"
IF data THEN
DRAWTEXT("▴", barindex, low - atr / 2, dialog, bold, 25) coloured(0, 255, 0, 255)
ENDIF
// Plot Downward-Pointing Triangle using drawtext for "Curl Down" with color "orange"
IF dtat THEN
DRAWTEXT("▾", barindex, high + atr / 2, dialog, bold, 25) coloured(255, 165, 0, 255)
ENDIF
// Parabolic Stop and Reverse
startValue = 0.043
incrementValue = 0.043
maximumValue = 0.34
// Calculate PSAR
sarUp = SAR[startValue, incrementValue, maximumValue]
sarDown = SAR[startValue, incrementValue, maximumValue]
// Define Colors
colUpR = 100
colUpG = 181
colUpB = 246
colDownR = 239
colDownG = 83
colDownB = 80
// Condition to check if close is greater or equal to sarDown
IF close >= sarDown THEN
DRAWPOINT(barindex, sarUp, 3) coloured(colUpR, colUpG, colUpB, 255)
ENDIF
// Condition to check if close is less or equal to sarUp
IF close <= sarUp THEN
DRAWPOINT(barindex, sarDown, 3) coloured(colDownR, colDownG, colDownB, 255)
ENDIF
// T3 MA5
aLength = 5
AxPrice = close
axe1 = ExponentialAverage[aLength](AxPrice)
axe2 = ExponentialAverage[aLength](axe1)
axe3 = ExponentialAverage[aLength](axe2)
axe4 = ExponentialAverage[aLength](axe3)
axe5 = ExponentialAverage[aLength](axe4)
axe6 = ExponentialAverage[aLength](axe5)
ab = 0.7
ac1 = -ab * ab * ab
ac2 = 3 * ab * ab + 3 * ab * ab * ab
ac3 = -6 * ab * ab - 3 * ab - 3 * ab * ab * ab
ac4 = 1 + 3 * ab + ab * ab * ab + 3 * ab * ab
anT3Average = ac1 * axe6 + ac2 * axe5 + ac3 * axe4 + ac4 * axe3
p2 = anT3Average
colOne = anT3Average > anT3Average[1]
colTwo = anT3Average < anT3Average[1]
IF colOne THEN
T3ColorR = 100
T3ColorG = 181
T3ColorB = 246
ELSIF colTwo THEN
T3ColorR = 239
T3ColorG = 83
T3ColorB = 80
ELSE
T3ColorR = undefined
T3ColorG = undefined
T3ColorB = undefined
ENDIF
// T3 MA8
Length = 8
xPrice = close
xe1 = ExponentialAverage[Length](xPrice)
xe2 = ExponentialAverage[Length](xe1)
xe3 = ExponentialAverage[Length](xe2)
xe4 = ExponentialAverage[Length](xe3)
xe5 = ExponentialAverage[Length](xe4)
xe6 = ExponentialAverage[Length](xe5)
b = 0.7
c1 = -b * b * b
c2 = 3 * b * b + 3 * b * b * b
c3 = -6 * b * b - 3 * b - 3 * b * b * b
c4 = 1 + 3 * b + b * b * b + 3 * b * b
nT3Average = c1 * xe6 + c2 * xe5 + c3 * xe4 + c4 * xe3
p1 = nT3Average
upCol = nT3Average > nT3Average[1]
downCol = nT3Average < nT3Average[1]
IF upCol THEN
myColorR = 100
myColorG = 181
myColorB = 246
ELSIF downCol THEN
myColorR = 239
myColorG = 83
myColorB = 80
ELSE
myColorR = undefined
myColorG = undefined
myColorB = undefined
ENDIF
// T3 area fill
fillData = nT3Average < anT3Average
fillDtat = nT3Average > anT3Average
IF fillData THEN
FillColorR = 100
FillColorG = 181
FillColorB = 246
ELSIF fillDtat THEN
FillColorR = 239
FillColorG = 83
FillColorB = 80
ELSE
FillColorR = undefined
FillColorG = undefined
FillColorB = undefined
ENDIF
COLORBETWEEN(nT3Average, anT3Average, FillColorR, FillColorG, FillColorB, 80)
// Heikin-Ashi Bar Input
haClose = (open + high + low + close) / 4
haOpen = (open + close) / 2
IF NOT haOpen[1] = undefined THEN
haOpen = (haOpen[1] + haClose[1]) / 2
ENDIF
haHigh = MAX(high, MAX(haOpen, haClose))
haLow = MIN(low, MIN(haOpen, haClose))
// Define colors
BullTrendColorR = 100
BullTrendColorG = 181
BullTrendColorB = 246
BearTrendColorR = 239
BearTrendColorG = 83
BearTrendColorB = 80
BullReversalColorR = 255
BullReversalColorG = 241
BullReversalColorB = 118
BearReversalColorR = 255
BearReversalColorG = 241
BearReversalColorB = 118
// Bar Color
uc = (close > nT3Average) AND (anT3Average >= nT3Average)
dc = (close < nT3Average) AND (anT3Average <= nT3Average)
dr = (close < nT3Average) AND (anT3Average >= nT3Average)
ur = (close > nT3Average) AND (anT3Average <= nT3Average)
hauc = (haClose > nT3Average) AND (anT3Average >= nT3Average)
hadc = (haClose < nT3Average) AND (anT3Average <= nT3Average)
hadr = (haClose < nT3Average) AND (anT3Average >= nT3Average)
haur = (haClose > nT3Average) AND (anT3Average <= nT3Average)
hadu = haClose >= haOpen
hadd = haClose < haOpen
IF uc THEN
BarColorR = BullTrendColorR
BarColorG = BullTrendColorG
BarColorB = BullTrendColorB
ELSIF dc THEN
BarColorR = BearTrendColorR
BarColorG = BearTrendColorG
BarColorB = BearTrendColorB
ELSIF dr THEN
BarColorR = BearReversalColorR
BarColorG = BearReversalColorG
BarColorB = BearReversalColorB
ELSIF ur THEN
BarColorR = BullReversalColorR
BarColorG = BullReversalColorG
BarColorB = BullReversalColorB
ELSE
BarColorR = undefined
BarColorG = undefined
BarColorB = undefined
ENDIF
// Heikin-Ashi Bar Color
IF hauc THEN
HABarColorR = BullTrendColorR
HABarColorG = BullTrendColorG
HABarColorB = BullTrendColorB
ELSIF hadc THEN
HABarColorR = BearTrendColorR
HABarColorG = BearTrendColorG
HABarColorB = BearTrendColorB
ELSIF hadr THEN
HABarColorR = BearReversalColorR
HABarColorG = BearReversalColorG
HABarColorB = BearReversalColorB
ELSIF haur THEN
HABarColorR = BullReversalColorR
HABarColorG = BullReversalColorG
HABarColorB = BullReversalColorB
ELSIF hadu THEN
HABarColorR = BullTrendColorR
HABarColorG = BullTrendColorG
HABarColorB = BullTrendColorB
ELSE
HABarColorR = BearTrendColorR
HABarColorG = BearTrendColorG
HABarColorB = BearTrendColorB
ENDIF
haover = 0 // Overlays HA bars in place of regular candles.
rPrice = 0 // Displays 'real close' level
IF haover THEN
DRAWCANDLE(haOpen, haHigh, haLow, haClose) COLOURED(HABarColorR, HABarColorG, HABarColorB, 255)
ELSE
DRAWCANDLE(haOpen, haHigh, haLow, haClose) COLOURED(255, 255, 255, 255) // Default color (white) when haover is not active.
ENDIF
IF rPrice THEN
DRAWsegment(barindex - 1, close, barindex, close) COLOURED(HABarColorR, HABarColorG, HABarColorB, 255) // Displaying the real close level
ENDIF
c = (close > nT3Average[1] AND close[1] < nT3Average) OR (close < nT3Average[1] AND close[1] > nT3Average)
d = (nT3Average > anT3Average[1] AND nT3Average[1] < anT3Average) OR (nT3Average < anT3Average[1] AND nT3Average[1] > anT3Average)
// These conditions can be used in ProRealTime to create alerts.
RETURN nT3Average coloured(myColorR, myColorG, myColorB, 255), anT3Average coloured(T3ColorR, T3ColorG, T3ColorB, 255)
