안녕하세요 예스스탁입니다. input : N(3); var : Per(0.1); var : HD(0),HT(0),HH(0),HHD(0),HHT(0); var : HD1(0),HT1(0),HH1(0); var : LD(0),LT(0),LL(0),LLD(0),LLT(0); var : LD1(0),LT1(0),LL1(0); var : HTL(0),LTL(0),TL(0); var : tx1(0),tx2(0),HTx(0),Ltx(0); var : T(0); var : HB(0),LB(0),cnt(0); Array : HHTL[20](0),LLTL[20](0); var1 = ma(c, 60); if var1 > var1[1] Then T = 1; if var1 < var1[1] Then T = -1; Plot1(var1,"이동평균선"); if T == 1 Then { if T != T[1] Then { HD = sDate; HT = sTime; HH = h; HHD = sDate; HHT = sTime; HD1 = HHD[1]; HT1 = HHT[1]; HH1 = HH[1]; HTL = tl_new(HD,HT,HH,NextBarSdate,NextBarStime,HH); TL_SetColor(HTL, Red); HTx = Text_New(NextBarSdate,NextBarStime,HH,NumToStr(HH,2)); Text_SetColor(HTx, Red); Text_SetStyle(HTx, 1, 1); HB = 0; For cnt = 19 DownTo 1 { HHTL[cnt] = HHTL[cnt-1]; } if HH1 > 0 Then { HHTL[0] = TL_New(HD1,HT1,HH1,HHD,HHT,HH); TL_SetColor(HHTL[0], Red); TL_SetDrawMode(HHTL[0],0); TL_SetExtRight(HHTL[0],true); TL_Delete(HHTL[N]); } } Else { if h > HH Then { HH = h; HHD = sDate; HHT = sTime; if HH1 > 0 Then TL_SetEnd(HHTL[0],HHD,HHT,HH); } HB = HB+1; } TL_SetBegin(HTL,HD,HT,HH); TL_SetEnd(HTL,NextBarSdate,NextBarStime,HH); Text_SetLocation(HTx,NextBarSdate,NextBarStime,HH); } if T == -1 Then { if T != T[1] Then { LD = sDate; LT = sTime; LL = l; LLD = sDate; LLT = sTime; LD1 = LLD[1]; LT1 = LLT[1]; LL1 = LL[1]; LTL = tl_new(LD,LT,LL,NextBarSdate,NextBarStime,LL); TL_SetColor(LTL, Blue); Ltx = Text_New(NextBarSdate,NextBarStime,LL,NumToStr(LL,2)); Text_SetColor(Ltx, Blue); Text_SetStyle(Ltx, 1, 0); LB = 0; For cnt = 19 DownTo 1 { LLTL[cnt] = LLTL[cnt-1]; } if LL1 > 0 Then { LLTL[0] = TL_New(LD1,LT1,LL1,LLD,LLT,LL); TL_SetColor(LLTL[0], Blue); TL_SetDrawMode(LLTL[0],0); TL_SetExtRight(LLTL[0],true); TL_Delete(LLTL[N]); } } Else { if l < LL Then { LL = l; LLD = sDate; LLT = sTime; if LL1 > 0 Then TL_SetEnd(LLTL[0],LLD,LLT,LL); } LB = LB+1; } TL_SetBegin(LTL,LD,LT,LL); TL_SetEnd(LTL,NextBarSdate,NextBarStime,LL); Text_SetLocation(Ltx,NextBarSdate,NextBarStime,LL); } 즐거운 하루되세요