안녕하세요 예스스탁입니다. 수식이 종가와 시가의 폭으로 계산됩니다. 또한 서로다른 값들 중 순위를 지정하게 되어 있어 같은 폭이면 포함을 하지 않습니다. 상승률로 변경하고 같은 값이면 최근것 순으로 순위가 지정하게 변경해 드립니다. 1 var : cnt(0),tx1(0),tx2(0),tx3(0),tx4(0),tx5(0); Array : hh[6](0),dd[6](0),tt[6](0),pp[6](0); if C > O Then { var1 = abs(C-O); if var1 > hh[1] Then { hh[1] = var1; dd[1] = sDate; tt[1] = sTime; pp[1] = h; For cnt = 2 to 5 { hh[cnt] = hh[cnt-1][1]; dd[cnt] = dd[cnt-1][1]; tt[cnt] = tt[cnt-1][1]; pp[cnt] = pp[cnt-1][1]; } Text_Delete(tx1); tx1 = Text_New(dd[1],tt[1],pp[1],"1위"); Text_Delete(tx2); tx2 = Text_New(dd[2],tt[2],pp[2],"2위"); Text_Delete(tx3); tx3 = Text_New(dd[3],tt[3],pp[3],"3위"); Text_Delete(tx4); tx4 = Text_New(dd[4],tt[4],pp[4],"4위"); Text_Delete(tx5); tx5 = Text_New(dd[5],tt[5],pp[5],"5위"); } else if var1 < hh[1] and var1 > hh[2] Then { hh[2] = var1; dd[2] = sDate; tt[2] = sTime; pp[2] = h; For cnt = 3 to 5 { hh[cnt] = hh[cnt-1][1]; dd[cnt] = dd[cnt-1][1]; tt[cnt] = tt[cnt-1][1]; pp[cnt] = pp[cnt-1][1]; } Text_Delete(tx2); tx2 = Text_New(dd[2],tt[2],pp[2],"2위"); Text_Delete(tx3); tx3 = Text_New(dd[3],tt[3],pp[3],"3위"); Text_Delete(tx4); tx4 = Text_New(dd[4],tt[4],pp[4],"4위"); Text_Delete(tx5); tx5 = Text_New(dd[5],tt[5],pp[5],"5위"); } else if var1 < hh[2] and var1 > hh[3] Then { hh[3] = var1; dd[3] = sDate; tt[3] = sTime; pp[3] = h; For cnt = 4 to 5 { hh[cnt] = hh[cnt-1][1]; dd[cnt] = dd[cnt-1][1]; tt[cnt] = tt[cnt-1][1]; pp[cnt] = pp[cnt-1][1]; } Text_Delete(tx3); tx3 = Text_New(dd[3],tt[3],pp[3],"3위"); Text_Delete(tx4); tx4 = Text_New(dd[4],tt[4],pp[4],"4위"); Text_Delete(tx5); tx5 = Text_New(dd[5],tt[5],pp[5],"5위"); } else if var1 < hh[3] and var1 > hh[4] Then { hh[4] = var1; dd[4] = sDate; tt[4] = sTime; pp[4] = h; For cnt = 5 to 5 { hh[cnt] = hh[cnt-1][1]; dd[cnt] = dd[cnt-1][1]; tt[cnt] = tt[cnt-1][1]; pp[cnt] = pp[cnt-1][1]; } Text_Delete(tx4); tx4 = Text_New(dd[4],tt[4],pp[4],"4위"); Text_Delete(tx5); tx5 = Text_New(dd[5],tt[5],pp[5],"5위"); } else if var1 < hh[4] and var1 > hh[5] Then { hh[5] = var1; dd[5] = sDate; tt[5] = sTime; pp[5] = h; Text_Delete(tx5); tx5 = Text_New(dd[5],tt[5],pp[5],"5위"); } } Text_SetStyle(tx1,2,1); Text_SetStyle(tx2,2,1); Text_SetStyle(tx3,2,1); Text_SetStyle(tx4,2,1); Text_SetStyle(tx5,2,1); 2 var : cnt(0),tx1(0),tx2(0),tx3(0),tx4(0),tx5(0); Array : hh[6](0),dd[6](0),tt[6](0),pp[6](0); if C < O Then { var1 = abs(c-O); if var1 >= hh[1] Then { hh[1] = var1; dd[1] = sDate; tt[1] = sTime; pp[1] = h; For cnt = 2 to 5 { hh[cnt] = hh[cnt-1][1]; dd[cnt] = dd[cnt-1][1]; tt[cnt] = tt[cnt-1][1]; pp[cnt] = pp[cnt-1][1]; } Text_Delete(tx1); tx1 = Text_New(dd[1],tt[1],pp[1],"1위"); Text_Delete(tx2); tx2 = Text_New(dd[2],tt[2],pp[2],"2위"); Text_Delete(tx3); tx3 = Text_New(dd[3],tt[3],pp[3],"3위"); Text_Delete(tx4); tx4 = Text_New(dd[4],tt[4],pp[4],"4위"); Text_Delete(tx5); tx5 = Text_New(dd[5],tt[5],pp[5],"5위"); } else if var1 < hh[1] and var1 >= hh[2] Then { hh[2] = var1; dd[2] = sDate; tt[2] = sTime; pp[2] = h; For cnt = 3 to 5 { hh[cnt] = hh[cnt-1][1]; dd[cnt] = dd[cnt-1][1]; tt[cnt] = tt[cnt-1][1]; pp[cnt] = pp[cnt-1][1]; } Text_Delete(tx2); tx2 = Text_New(dd[2],tt[2],pp[2],"2위"); Text_Delete(tx3); tx3 = Text_New(dd[3],tt[3],pp[3],"3위"); Text_Delete(tx4); tx4 = Text_New(dd[4],tt[4],pp[4],"4위"); Text_Delete(tx5); tx5 = Text_New(dd[5],tt[5],pp[5],"5위"); } else if var1 < hh[2] and var1 >= hh[3] Then { hh[3] = var1; dd[3] = sDate; tt[3] = sTime; pp[3] = h; For cnt = 4 to 5 { hh[cnt] = hh[cnt-1][1]; dd[cnt] = dd[cnt-1][1]; tt[cnt] = tt[cnt-1][1]; pp[cnt] = pp[cnt-1][1]; } Text_Delete(tx3); tx3 = Text_New(dd[3],tt[3],pp[3],"3위"); Text_Delete(tx4); tx4 = Text_New(dd[4],tt[4],pp[4],"4위"); Text_Delete(tx5); tx5 = Text_New(dd[5],tt[5],pp[5],"5위"); } else if var1 < hh[3] and var1 >= hh[4] Then { hh[4] = var1; dd[4] = sDate; tt[4] = sTime; pp[4] = h; For cnt = 5 to 5 { hh[cnt] = hh[cnt-1][1]; dd[cnt] = dd[cnt-1][1]; tt[cnt] = tt[cnt-1][1]; pp[cnt] = pp[cnt-1][1]; } Text_Delete(tx4); tx4 = Text_New(dd[4],tt[4],pp[4],"4위"); Text_Delete(tx5); tx5 = Text_New(dd[5],tt[5],pp[5],"5위"); } else if var1 < hh[4] and var1 >= hh[5] Then { hh[5] = var1; dd[5] = sDate; tt[5] = sTime; pp[5] = h; Text_Delete(tx5); tx5 = Text_New(dd[5],tt[5],pp[5],"5위"); } } Text_SetStyle(tx1,2,1); Text_SetStyle(tx2,2,1); Text_SetStyle(tx3,2,1); Text_SetStyle(tx4,2,1); Text_SetStyle(tx5,2,1); 즐거운 하루되세요 > 그리즐리 님이 쓴 글입니다. > 제목 : 검색식 수정 부탁드립니다 > 일전에 70527번글에서 윗꼬리 아랫꼬리 제외 양봉의 시가와 종가 변동성만 현재봉기준으로 상승률 최대의 5개의 봉이 검색되는식을 부탁 드렸습니다 그런데 저의 의도와 약간 다르게 나오는것 같습니다 사진은 오늘 셀트리온 연결선물 차트이고 봉갯수는 800개 1분봉입니다 그런데1위는 9시 3분봉이 아니라 9시36분봉이 되어야하는것같고 0903분봉 시가종가 변동성 2% 0936분봉 시가종가 변동성 2.1% 9시7분봉 또한 아예 순위에서 누락 되는것 같습니다 이점 수정해주시면 감사하겠습니다