Tìm cơ hội cược BO với Trend line

//@version=4
//BO TradingView Clock - Indicator
//author: anhnguyen14

study(title="BO TradingView Clock - Indicator", 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

//plot
h100=hline(100)
h0=hline(0)
col_sell=color.new(color.red,60)
col_buy=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)

//EOF