안녕하세요 예스스탁입니다. input : usehigh_bear(true); input : line_forward(8); input : line_back(-200); input : label_offset(8); var : use_low_bull(0),use_high_bear(0); var : bull_dir(False),bear_dir(False),red_bar(false),green_bar(False); var : strong_bull_dir(False),strong_bear_dir(False),nuetral_bar(False); var : line_price(naN),label_price(NaN); var : is_bar_index(0),a(0),b(0),price(0); var : bull_break(False),bear_break(False); var : confirmed_bull_(False),bull_value(0); var : confirmed_bear_(False),bear_value(0); use_low_bull = IFf(use_low_bull,low,close); use_high_bear = IFF(use_high_bear,high,close); bull_dir = close >= open[1]; bear_dir = close <= open[1]; red_bar = open < close; green_bar = open > close; strong_bull_dir = bull_dir and red_bar; strong_bear_dir = bear_dir and red_bar; nuetral_bar = strong_bear_dir == False and strong_bull_dir == False; is_bar_index = index; if is_bar_index>0 Then { TL_Delete(line_price); Text_Delete(label_price); a = close; b = is_bar_index; line_price = TL_new(sDate,sTime,a,NextBarSdate,NextBarStime,a); TL_SetColor(line_price, IFf(strong_bull_dir , red ,IFf(strong_bear_dir , lime , IFf(nuetral_bar , orange, Black)))); TL_SetExtRight(line_price,true); TL_SetExtLeft(line_price,true); label_price = Text_new(NextBarSdate,NextBarStime,a, ntostr(a,2)); Text_SetColor(label_price,iFf(strong_bull_dir , red ,IFf(strong_bear_dir , lime , IFf(nuetral_bar , orange, Black)))); Text_SetSize(label_price,20); } //================= //BEGIN Definitions //================= price = close; bull_break = price > high[1] and price > high[2] and price > high[3] and price > high[4] and price > high[5] and price > high[6] and price > high[7] and price > high[8] and price > high[9] and price > high[10] and price > high[11] and price > high[12] and price > high[13] and price > high[14]; // confirmed_bull_ = bull_break[1] and bull_break == False; if confirmed_bull_ == true Then bull_value = high; if bull_break == bull_break[1] Then plot1(bull_value,"bull_value",iff(bull_break != bull_break[1],Black ,red)); Else NoPlot(1); bear_break = price < low[1] and price < low[2] and price < low[3] and price < low[4] and price < low[5] and price < low[6] and price < low[7] and price < low[8] and price < low[9] and price < low[10] and price < low[11] and price < low[11] and price < low[12] and price < low[13] and price < low[14]; // confirmed_bear_ = bear_break[1] and bear_break == False; if confirmed_bear_ == true Then bear_value = low; if bear_break == bear_break[1] Then plot2(bear_value,"bear_value",iff(bear_break != bear_break[1],Black,green)); Else NoPlot(2); input : rsiLen(6); input : rsiOverbought(85); input : rsiOversold(15); var : rsiValue(0),rsiisoverbt(False),rsiisoversld(False); var : bear_signal(False),bull_signal(False); var : bulllabel1(Nan),bulllabel2(nan),bullline(NaN); var : bearlabel1(Nan),bearlabel2(nan),bearline(NaN); rsiValue = rsi(rsiLen); rsiisoverbt = rsiValue >= rsiOverbought; rsiisoversld = rsiValue <= rsiOversold; bear_signal = (bear_break[1] and bear_break == False); bull_signal = (bull_break[1] and bull_break == False); if bull_signal Then { //Text_Delete(bulllabel1); bulllabel1 = Text_New(sDate,sTime,H,"Potential bear Reversal"+NewLine+NewLine); Text_SetColor(bulllabel1,Green); Text_SetStyle(bulllabel1,2,1); //Text_Delete(bulllabel2); bulllabel2 = Text_New(sDate,sTime,H,"▼"); Text_SetColor(bulllabel2,Green); Text_SetStyle(bulllabel2,2,1); Text_SetSize(bulllabel2,20); } if bull_break Then { TL_Delete(bullline); bullline = TL_new(sDate,sTime,use_high_bear,NextBarSdate,NextBarStime,use_high_bear); TL_SetExtRight(bullline,true); TL_SetColor(bullline,Red); } if bear_signal then { //Text_Delete(bearlabel1); bearlabel1 = text_new(sDate,sTime,L,"▲"); Text_SetColor(bearlabel1,Red); Text_SetStyle(bearlabel1,2,0); Text_SetSize(bearlabel1,20); //Text_Delete(bearlabel2); bearlabel2 = text_new(sDate,sTime,L,NewLine+NewLine+"Potential bull Reversal"); Text_SetColor(bearlabel2,Red); Text_SetStyle(bearlabel2,2,0); } if bear_break Then { TL_Delete(bearline); bearline = TL_new(sDate,sTime,use_low_bull,NextBarSdate,NextBarStime,use_low_bull); TL_SetExtRight(bearline,true); TL_SetColor(bearline,green); } var : Sell_signal(False),Buy_signal(False); var : bull_function(False),bear_function(False),custom_signal(False); Sell_Signal = bull_signal; Buy_Signal = bear_signal; bull_function = Buy_Signal; bear_function = Sell_Signal; custom_signal = (bull_function or bear_function); //END CUSTOM FUNCTIONS==== // Plot BUY SELL markers input : show_sell_signals(false); input : show_buy_signals(false); var : tx1(0),tx2(0); if show_sell_signals == true and Sell_Signal == true Then { tx1 = text_new(sDate,sTime,H,"▼"); Text_SetColor(tx1,Red); Text_SetStyle(tx1,2,1); tx2 = text_new(sDate,sTime,H,"O-B"+NewLine); Text_SetColor(tx2,Yellow); Text_SetStyle(tx2,2,1); } if show_buy_signals == true and Buy_Signal == true Then { tx1 = text_new(sDate,sTime,L,"▲"); Text_SetColor(tx1,Lime); Text_SetStyle(tx1,2,0); tx2 = text_new(sDate,sTime,L,NewLine+"O-S"); Text_SetColor(tx2,Yellow); Text_SetStyle(tx2,2,0); } 즐거운 하루되세요