//@version=4
//BO TradingView Clock - Alert
//author: anhnguyen14
study(title="BO TradingView Clock - Alert", overlay=false)
// === INPUT BACKTEST RANGE ===
Date = input(true, title = "=== Date Option ===")
FromDay = input(defval = 1, title = "From Day", minval = 1, maxval = 31)
FromMonth = input(defval = 1, title = "From Month", minval = 1, maxval = 12)
FromYear = input(defval = 2019, title = "From Year", minval = 2017)
ToDay = input(defval = 1, title = "To Day", minval = 1, maxval = 31)
ToMonth = input(defval = 1, title = "To Month", minval = 1, maxval = 12)
ToYear = input(defval = 9999, title = "To Year", minval = 2017)
// === DATE RANGE ===
start = timestamp(FromYear, FromMonth, FromDay, 00, 00) // backtest start window
finish = timestamp(ToYear, ToMonth, ToDay, 23, 59) // backtest finish window
window() => time >= start and time <= finish ? true : false // create function "within window of time"
// === Trading Time ===
CTimeDvM = input(true, title = "=== Trading Time ===")
FromHourDvM = input(defval = 05, title = "From Hour", minval = 00, maxval = 23)
FromMinuteDvM = input(defval = 00, title = "From Minute", minval = 00, maxval = 59)
ToHourDvM = input(defval = 04, title = "To Hour", minval = 00, maxval = 23)
ToMinuteDvM = input(defval = 59, title = "To Minute", minval = 00, maxval = 59)
GMT_FHDvM=FromHourDvM<7?FromHourDvM-7+24:FromHourDvM-7
GMT_THDvM=ToHourDvM<7?ToHourDvM-7+24:ToHourDvM-7
fhDvM= (GMT_FHDvM<10?"0"+tostring(GMT_FHDvM):tostring(GMT_FHDvM))
fmDvM= (FromMinuteDvM<10?"0"+tostring(FromMinuteDvM):tostring(FromMinuteDvM))
thDvM= (GMT_THDvM<10?"0"+tostring(GMT_THDvM):tostring(GMT_THDvM))
tmDvM= (ToMinuteDvM<10?"0"+tostring(ToMinuteDvM):tostring(ToMinuteDvM))
WorkingHourDvM = fhDvM+fmDvM+"-"+thDvM+tmDvM
t0_DvM = time(timeframe.period, WorkingHourDvM)
//bgcolor(CTimeDvM? t0_DvM? color.gray : na:na, title="Trading Time", transp=90)
// === Entry Setup ===
EStt = input(true, title = "=== Entry Setup ===")
SellLevel = input(70, title = "Sell Level")
BuyLevel = input(70, title = "Buy Level")
VolumeLevel = input(60, title = "Volume Level")
//A. Oscillators
//1. Rsi
RSI(src,per) =>
len = per
up = rma(max(change(src), 0), len)
down = rma(-min(change(src), 0), len)
rsi = down == 0 ? 100 : up == 0 ? 0 : 100 - 100 / (1 + up / down)
RSI=rsi
rsi_Sig=RSI(close,14)
//RSI Signal
A1_red =
rsi_Sig<30
?1:0
A1_blue =
rsi_Sig>70
?1:0
//2. Stochastic
STOCH(src,perK,perD,perS) =>
K = perK
D = perD
smooth = perS
hh = highest(high, K)
ll = lowest(low, K)
k = sma((src - ll) / (hh - ll) * 100, smooth)
d = sma(k, D)
STOCH=k
stoch_Sig = STOCH(close,14,3,3)
//plot(stoch_Sig,color=color.green)
//STOCH Signal
A2_red =
stoch_Sig<20
?1:0
A2_blue =
stoch_Sig>80
?1:0
//3. CCI
CCI(src,per) =>
lengthcci1 = per
macci1 = sma(src, lengthcci1)
cci1 = (src - macci1) / (0.015 * dev(src, lengthcci1))
CCI = cci1
cci_Sig=CCI(close,20)
//plot(cci_Sig,color=color.blue)
//CCI Signal
A3_red =
cci_Sig<-100
?1:0
A3_blue =
cci_Sig>100
?1:0
//4. ADX
adxlen = 14
dilen = 14
dirmov(len) =>
up = change(high)
down = -change(low)
truerange = rma(tr, len)
plus = fixnan(100 * rma(up > down and up > 0 ? up : 0, len) / truerange)
minus = fixnan(100 * rma(down > up and down > 0 ? down : 0, len) / truerange)
[plus, minus]
adx(dilen, adxlen) =>
[plus, minus] = dirmov(dilen)
sum = plus + minus
adx = 100 * rma(abs(plus - minus) / (sum == 0 ? 1 : sum), adxlen)
adxHigh(dilen, adxlen) =>
[plus, minus] = dirmov(dilen)
plus
adxLow(dilen, adxlen) =>
[plus, minus] = dirmov(dilen)
minus
adx_Sig = adx(dilen, adxlen)
di_sigHigh = adxHigh(dilen, adxlen)
di_sigLow = adxLow(dilen, adxlen)
//plot(adx_Sig)
//ADX Signal
A4_red =
di_sigLow>di_sigHigh
and adx_Sig>25
?1:0
A4_blue =
di_sigHigh>di_sigLow
and adx_Sig>25
?1:0
//5. AO
ao = sma(hl2,5) - sma(hl2,34)
//AO Signal
A5_red =
ao<0
?1:0
A5_blue =
ao>0
?1:0
//6. momentum
mom = close - close[10]
//momentum Signal
A6_red =
mom<0
?1:0
A6_blue =
mom>0
?1:0
//7. MACD
fast_ma = ema(close, 12)
slow_ma = ema(close, 26)
macd = fast_ma - slow_ma
signal = ema(macd, 9)
hist = macd - signal
//MACD Signal
A7_red =
hist < hist[1]
?1:0
A7_blue =
hist > hist[1]
?1:0
//8. Stoch RSI
rsi1 = rsi(close, 14)
rsik = sma(stoch(rsi1, rsi1, rsi1, 14), 3)
rsid = sma(rsik, 3)
rsih0 = 80
rsih1 = 20
//Stoch RSI Signal
A8_red =
rsik < rsih1
?1:0
A8_blue =
rsik > rsih0
?1:0
//9. %R
upper = highest(14)
lower = lowest(14)
out = 100 * (close - upper) / (upper - lower)
rband1 = -20
rband0 = -80
// %R Signal
A9_red =
out < rband0
?1:0
A9_blue =
out > rband1
?1:0
//10. Bull bear
Length = 30
r1=iff(close[1]<open,max(open-close[1],high-low),high-low)
r2=iff(close[1]>open,max(close[1]-open,high-low),high-low)
bull=iff(close==open,iff(high-close==close-low,iff(close[1]>open,max(high-open,close-low),r1),iff(high-close>close-low,iff(close[1]<open, max(high-close[1],close-low), high-open),r1)),iff(close<open,iff(close[1]<open,max(high-close[1],close-low), max(high-open,close-low)),r1))
bear=iff(close==open,iff(high-close==close-low,iff(close[1]<open,max(open-low,high-close),r2),iff(high-close>close-low,r2,iff(close[1]>open,max(close[1]-low,high-close), open-low))),iff(close<open,r2,iff(close[1]>open,max(close[1]-low,high-close),max(open-low,high-close))))
// Bull bear Signal
A10_red =
sma(bull-bear,Length)<0
?1:0
A10_blue =
sma(bull-bear,Length)>0
?1:0
//11.UO
length7 = 7,
length14 = 14,
length28 = 28
average(bp, tr_, length) => sum(bp, length) / sum(tr_, length)
high_ = max(high, close[1])
low_ = min(low, close[1])
bp = close - low_
tr_ = high_ - low_
avg7 = average(bp, tr_, length7)
avg14 = average(bp, tr_, length14)
avg28 = average(bp, tr_, length28)
uoout = 100 * (4*avg7 + 2*avg14 + avg28)/7
// UO Signal
A11_red =
uoout < 30
?1:0
A11_blue =
uoout > 70
?1:0
//Sum Signal A
A_red = A1_red + A2_red + A3_red + A4_red + A5_red + A6_red + A7_red + A8_red + A9_red + A10_red + A11_red
A_blue = A1_blue + A2_blue + A3_blue + A4_blue + A5_blue + A6_blue + A7_blue + A8_blue + A9_blue + A10_blue + A11_blue
//B. Moving Averages
//1. EMA 5
B1_red =
close<ema(close,5)
?1:0
B1_blue =
close>ema(close,5)
?1:0
//2. SMA 5
B2_red =
close<sma(close,5)
?1:0
B2_blue =
close>sma(close,5)
?1:0
//3. EMA 10
B3_red =
close<ema(close,10)
?1:0
B3_blue =
close>ema(close,10)
?1:0
//4. SMA 10
B4_red =
close<sma(close,10)
?1:0
B4_blue =
close>sma(close,10)
?1:0
//5. EMA 20
B5_red =
close<ema(close,20)
?1:0
B5_blue =
close>ema(close,20)
?1:0
//6. SMA 20
B6_red =
close<sma(close,20)
?1:0
B6_blue =
close>sma(close,20)
?1:0
//7. EMA 30
B7_red =
close<ema(close,30)
?1:0
B7_blue =
close>ema(close,30)
?1:0
//8. SMA 30
B8_red =
close<sma(close,30)
?1:0
B8_blue =
close>sma(close,30)
?1:0
//9. EMA 50
B9_red =
close<ema(close,50)
?1:0
B9_blue =
close>ema(close,50)
?1:0
//10. SMA 50
B10_red =
close<sma(close,50)
?1:0
B10_blue =
close>sma(close,50)
?1:0
//11. EMA 100
B11_red =
close<ema(close,100)
?1:0
B11_blue =
close>ema(close,100)
?1:0
//12. SMA 100
B12_red =
close<sma(close,100)
?1:0
B12_blue =
close>sma(close,100)
?1:0
//13. EMA 200
B13_red =
close<ema(close,200)
?1:0
B13_blue =
close>ema(close,200)
?1:0
//14. SMA 200
B14_red =
close<sma(close,200)
?1:0
B14_blue =
close>sma(close,200)
?1:0
//15. Ichimoku Cloud - Baseline
donchian(len) => avg(lowest(len), highest(len))
ichi_baseline = donchian(26)
B15_red =
close<ichi_baseline
?1:0
B15_blue =
close>ichi_baseline
?1:0
//16. VWMA 20
B16_red =
close<vwma(close,20)
?1:0
B16_blue =
close>vwma(close,20)
?1:0
//17. Hull 9
hma(src,len) => wma(2*wma(src, len/2)-wma(src, len), round(sqrt(len)))
B17_red =
close<hma(close,9)
?1:0
B17_blue =
close>hma(close,9)
?1:0
//Sum Signal B
B_red = B1_red + B2_red + B3_red + B4_red + B5_red + B6_red + B7_red + B8_red + B9_red + B10_red + B11_red + B12_red + B13_red + B14_red + B15_red + B16_red + B17_red
B_blue = B1_blue + B2_blue + B3_blue + B4_blue + B5_blue + B6_blue + B7_blue + B8_blue + B9_blue + B10_blue + B11_blue + B12_blue + B13_blue + B14_blue + B15_blue + B16_blue + B17_blue
//C. Pivot
///////////////
// FUNCTIONS //
///////////////
// Function outputs 1 when it's the first bar of the D/W/M/Y
is_newbar(res) =>
ch = 0
if(res == 'Y')
t = year(time('D'))
ch := change(t) != 0 ? 1 : 0
else
t = time(res)
ch := change(t) != 0 ? 1 : 0
ch
// Rounding levels to min tick
nround(x) =>
n = round(x / syminfo.mintick) * syminfo.mintick
////////////
// INPUTS //
////////////
pp_res = 'D'
/////////////////////
// Get HLC from HT //
// Calc Open
open_cur = 0.0
open_cur := is_newbar(pp_res) ? open : open_cur[1]
popen = 0.0
popen := is_newbar(pp_res) ? open_cur[1] : popen[1]
// Calc High
high_cur = 0.0
high_cur := is_newbar(pp_res) ? high : max(high_cur[1], high)
phigh = 0.0
phigh := is_newbar(pp_res) ? high_cur[1] : phigh[1]
// Calc Low
low_cur = 0.0
low_cur := is_newbar(pp_res) ? low : min(low_cur[1], low)
plow = 0.0
plow := is_newbar(pp_res) ? low_cur[1] : plow[1]
// Calc Close
pclose = 0.0
pclose := is_newbar(pp_res) ? close[1] : pclose[1]
////////////////////////////
// CALCULATE PIVOT POINTS //
////////////////////////////
PP = 0.0
R1 = 0.0, R2 = 0.0, R3 = 0.0
S1 = 0.0, S2 = 0.0, S3 = 0.0
//if (pp_type == "Traditional")
TR_PP = (phigh + plow + pclose) / 3
TR_R1 = TR_PP + (TR_PP - plow)
TR_S1 = TR_PP - (phigh - TR_PP)
TR_R2 = TR_PP + (phigh - plow)
TR_S2 = TR_PP - (phigh - plow)
TR_R3 = phigh + 2 * (TR_PP - plow)
TR_S3 = plow - 2 * (phigh - TR_PP)
//Signal
C1_red =
(close<TR_S1 and not cross(close,TR_S2))
or
(close<TR_S2 and not cross(close,TR_S3))
or
(close<TR_S3 and not cross(high,TR_S3))
?1:0
C1_blue =
(close>TR_R1 and not cross(close,TR_R2))
or
(close>TR_R2 and not cross(close,TR_R3))
or
(close>TR_R3 and not cross(low,TR_R3))
?1:0
//if (pp_type == "Fibonacci")
FIB_PP = (phigh + plow + pclose) / 3
FIB_R1 = FIB_PP + (phigh - plow) * 0.382
FIB_S1 = FIB_PP - (phigh - plow) * 0.382
FIB_R2 = FIB_PP + (phigh - plow) * 0.618
FIB_S2 = FIB_PP - (phigh - plow) * 0.618
FIB_R3 = FIB_PP + (phigh - plow) * 1.000
FIB_S3 = FIB_PP - (phigh - plow) * 1.000
C2_red =
(close<FIB_S1 and not cross(close,FIB_S2))
or
(close<FIB_S2 and not cross(close,FIB_S3))
or
(close<FIB_S3 and not cross(high,FIB_S3))
?1:0
C2_blue =
(close>FIB_R1 and not cross(close,FIB_R2))
or
(close>FIB_R2 and not cross(close,FIB_R3))
or
(close>FIB_R3 and not cross(low,FIB_R3))
?1:0
//if (pp_type == "Woodie")
WO_PP = (phigh + plow + 2 * popen) / 4
WO_R1 = WO_PP + (WO_PP - plow)
WO_S1 = WO_PP - (phigh - WO_PP)
WO_R2 = WO_PP + (phigh - plow)
WO_S2 = WO_PP - (phigh - plow)
WO_R3 = phigh + 2 * (WO_PP - plow)
WO_S3 = plow - 2 * (phigh - WO_PP)
C3_red =
(close<WO_S1 and not cross(close,WO_S2))
or
(close<WO_S2 and not cross(close,WO_S3))
or
(close<WO_S3 and not cross(high,WO_S3))
?1:0
C3_blue =
(close>WO_R1 and not cross(close,WO_R2))
or
(close>WO_R2 and not cross(close,WO_R3))
or
(close>WO_R3 and not cross(low,WO_R3))
?1:0
//if (pp_type == "Camarilla")
CA_PP = (phigh + plow + pclose) / 3
CA_R1 = pclose + (phigh - plow) * 1.1/12
CA_S1 = pclose - (phigh - plow) * 1.1/12
CA_R2 = pclose + (phigh - plow) * 1.1/6
CA_S2 = pclose - (phigh - plow) * 1.1/6
CA_R3 = pclose + (phigh - plow) * 1.1/4
CA_S3 = pclose - (phigh - plow) * 1.1/4
C4_red =
(close<CA_S1 and not cross(close,CA_S2))
or
(close<CA_S2 and not cross(close,CA_S3))
or
(close<CA_S3 and not cross(high,CA_S3))
?1:0
C4_blue =
(close>CA_R1 and not cross(close,CA_R2))
or
(close>CA_R2 and not cross(close,CA_R3))
or
(close>CA_R3 and not cross(low,CA_R3))
?1:0
//C Point
C_red = C1_red + C2_red + C3_red + C4_red
C_blue = C1_blue + C2_blue + C3_blue + C4_blue
//Sum point
Sum_red=A_red+B_red+C_red
Sum_blue=A_blue+B_blue+C_blue
sell_point=(Sum_red/32)*100
buy_point=(Sum_blue/32)*100
//D. Volume Moving Averages
//1. EMA 5
D1_red =
volume<ema(volume,5)
?1:0
D1_blue =
volume>ema(volume,5)
?1:0
//2. SMA 5
D2_red =
volume<sma(volume,5)
?1:0
D2_blue =
volume>sma(volume,5)
?1:0
//3. EMA 10
D3_red =
volume<ema(volume,10)
?1:0
D3_blue =
volume>ema(volume,10)
?1:0
//4. SMA 10
D4_red =
volume<sma(volume,10)
?1:0
D4_blue =
volume>sma(volume,10)
?1:0
//5. EMA 20
D5_red =
volume<ema(volume,20)
?1:0
D5_blue =
volume>ema(volume,20)
?1:0
//6. SMA 20
D6_red =
volume<sma(volume,20)
?1:0
D6_blue =
volume>sma(volume,20)
?1:0
//7. EMA 30
D7_red =
volume<ema(volume,30)
?1:0
D7_blue =
volume>ema(volume,30)
?1:0
//8. SMA 30
D8_red =
volume<sma(volume,30)
?1:0
D8_blue =
volume>sma(volume,30)
?1:0
//9. EMA 50
D9_red =
volume<ema(volume,50)
?1:0
D9_blue =
volume>ema(volume,50)
?1:0
//10. SMA 50
D10_red =
volume<sma(volume,50)
?1:0
D10_blue =
volume>sma(volume,50)
?1:0
//11. EMA 100
D11_red =
volume<ema(volume,100)
?1:0
D11_blue =
volume>ema(volume,100)
?1:0
//12. SMA 100
D12_red =
volume<sma(volume,100)
?1:0
D12_blue =
volume>sma(volume,100)
?1:0
//13. EMA 200
D13_red =
volume<ema(volume,200)
?1:0
D13_blue =
volume>ema(volume,200)
?1:0
//14. SMA 200
D14_red =
volume<sma(volume,200)
?1:0
D14_blue =
volume>sma(volume,200)
?1:0
//15. VWMA 20
D15_red =
volume<vwma(volume,20)
?1:0
D15_blue =
volume>vwma(volume,20)
?1:0
//16. Hull 9
D16_red =
volume<hma(volume,9)
?1:0
D16_blue =
volume>hma(volume,9)
?1:0
//Sum Volume
D_red = D1_red + D2_red + D3_red + D4_red + D5_red + D6_red + D7_red + D8_red + D9_red + D10_red + D11_red + D12_red + D13_red + D14_red + D15_red + D16_red
D_blue = D1_blue + D2_blue + D3_blue + D4_blue + D5_blue + D6_blue + D7_blue + D8_blue + D9_blue + D10_blue + D11_blue + D12_blue + D13_blue + D14_blue + D15_blue + D16_blue
vol_point = (D_blue/16)*100
//Buy & Sell Level
Sellzone=
sell_point<SellLevel and sell_point>50
Sell=
sell_point[0]>SellLevel
Buy=
buy_point[0]>BuyLevel
Buyzone=
buy_point<BuyLevel and buy_point>50
//Volume level
Strong_vol = vol_point[0]>VolumeLevel
Volzone = vol_point>=vol_point[1] and vol_point<100
// - /FUNCTIONS
x1=
Sell[1]
and Sellzone
and Strong_vol[1]
and Volzone
y1=
Buy[1]
and Buyzone
and Strong_vol[1]
and Volzone
xTech=
x1
yTech=
y1
//--------------------------------------\\
// - /FUNCTIONS
//--------------------------------------\\
//plot
h100=hline(100)
h0=hline(0)
col_sell=x1?color.new(color.red,10):color.new(color.red,60)
col_buy=y1?color.new(color.blue,10):color.new(color.blue,60)
plot(sell_point, title="Sell Level", style=plot.style_columns, color=col_sell)
plot(buy_point, title="Buy Level", style=plot.style_columns, color=col_buy)
plot(vol_point, title="Volume Level", style=plot.style_line, color=color.olive, linewidth=2)
// Alert
CputcolDvM = xTech ? color.red : na
CcallcolDvM = yTech ? color.blue : na
//plotshape(CTimeDvM?t0_DvM?xTech:na:na, title='Put', text="Put", style=shape.labeldown, location=location.bottom, color=color.orange, textcolor=color.black, offset=1, transp=0)
//plotshape(CTimeDvM?t0_DvM?yTech:na:na, title='Call', text="Call", style=shape.labelup, location=location.bottom, color=color.orange, textcolor=color.black, offset=1, transp=0)
//bgcolor(CTimeDvM?t0_DvM?CputcolDvM:na:na, transp=0, offset=1, title="Put Signal")
//bgcolor(CTimeDvM?t0_DvM?CcallcolDvM:na:na, transp=0, offset=1, title="Call Signal")
PutSignal=CTimeDvM?t0_DvM?xTech?-100:na:na:na
CallSignal=CTimeDvM?t0_DvM?yTech?-100:na:na:na
hmacro=hline(-100)
plot(PutSignal, title='Put Signal', style=plot.style_columns, color=color.red, offset=1, transp=0)
plot(CallSignal, title='Call Signal', style=plot.style_columns, color=color.blue, offset=1, transp=0)
plotshape(PutSignal, title='Put Alert', text="Put Alert", style=shape.labeldown, location=location.bottom, color=color.orange, textcolor=color.black, offset=1, transp=0)
plotshape(CallSignal, title='Call Alert', text="Call Alert", style=shape.labelup, location=location.bottom, color=color.orange, textcolor=color.black, offset=1, transp=0)
// Alert
mms1="Signal alert"
PutAlert=
(CTimeDvM and t0_DvM and xTech)
CallAlert=
(CTimeDvM and t0_DvM and yTech)
alertcondition(PutAlert or CallAlert, title="Signal alert", message=mms1)
//EOF
