안녕하세요 예스스탁입니다. 추세가 완성될때만 이전값과 비교해 그리게 수정했습니다. 또한 당일과 전일의 값만 비교하고 최대 20개 까지만 비교합니다. 갯수를 늘리고자 하시면 배열의 크기와 각 for문의 최종값을 배열갯수만큼 잡으시면 됩니다. 해당 내용 수식 수정에 시간이 많이 걸립니다. 이후 내용은 사용자분이 직접 수정보완해 사용하시기 바랍니다. input : af(0.02), maxAF(0.2); input : 텍스트출력(1); var : T(0),cnt(0),count(0); var : HH1(0),LL1(0),HD1(0),HT1(0),LD1(0),LT1(0),day1(0); var : TL1(0),TL2(0),tx1(0),tx2(0),tx11(0),tx22(0); Array : HD[20](0),HT[20](0),HH[20](0),LD[20](0),LT[20](0),LL[20](0); var1 = CSar(af,maxAF); if bdate != bdate[1] Then day1 = bdate[1]; if crossup(c,var1) Then { T = 1; HH[0] = H; HD[0] = Bdate; HT[0] = stime; for cnt = 1 to 19 { HD[cnt] = HD[cnt-1][1]; HT[cnt] = HT[cnt-1][1]; HH[cnt] = HH[cnt-1][1]; } if LL[0] > 0 Then { if 텍스트출력 == 1 then { Tx11 = Text_New(HD[1],HT[1],HH[1],NumToStr((HH[1]-LL[1])/PriceScale,0)+NewLine+NumToStr(HH[1],2)); Text_SetStyle(tx11,2,1); Text_SetColor(tx11,BLACK); Text_Delete(tx1); Tx1 = Text_New(HD[0],HT[0],HH[0],NumToStr((HH[0]-LL[0])/PriceScale,0)+NewLine+NumToStr(HH[0],2)); Text_SetStyle(tx1,2,1); Text_SetColor(tx1,BLACK); Condition1 = false; for cnt = 1 to 19 { if Condition1 == false and abs(LL[0]-LL[cnt]) <= PriceScale*1 and LD[cnt] >= day1 Then { Condition1 = true; TL1 = TL_New(LD[cnt],LT[cnt],LL[cnt],LD[0],LT[0],LL[0]); } } } } } if CrossDown(c,var1) Then { T = -1; LL[0] = L; LD[0] = sdate; LT[0] = stime; for cnt = 1 to 19 { LD[cnt] = LD[cnt-1][1]; LT[cnt] = LT[cnt-1][1]; LL[cnt] = LL[cnt-1][1]; } if HH[0] > 0 Then { if 텍스트출력 == 1 then { Tx22 = Text_New(LD[1],LT[1],LL[1],NumToStr((HH[1]-LL[1])/PriceScale,0)+NewLine+NumToStr(LL[1],2)); Text_SetStyle(tx22,2,0); Text_SetColor(tx22,RED); Text_Delete(tx2); Tx2 = Text_New(LD[0],LT[0],LL[0],NumToStr((HH[0]-LL[0])/PriceScale,0)+NewLine+NumToStr(LL[0],2)); Text_SetStyle(tx2,2,0); Text_SetColor(tx2,RED); TL_Delete(TL2); Condition2 = false; for cnt = 1 to 19 { if Condition2 == false and abs(HH[0]-HH[cnt]) <= PriceScale*1 and HD[cnt] >= day1 Then { Condition2 = true; TL2 = TL_New(HD[cnt],HT[cnt],HH[cnt],HD[0],HT[0],HH[0]); } } } } } if T == 1 then { if H > HH[0] Then { HH[0] = H; HD[0] = Bdate; HT[0] = stime; if 텍스트출력 == 1 then { Text_Delete(tx1); Tx1 = Text_New(HD[0],HT[0],HH[0],NumToStr((HH[0]-LL[0])/PriceScale,0)+NewLine+NumToStr(HH[0],2)); Text_SetStyle(tx1,2,1); Text_SetColor(tx1,BLACK); } } } if T == -1 then { if L < LL[0] Then { LL[0] = L; LD[0] = Bdate; LT[0] = stime; if 텍스트출력 == 1 then { Text_Delete(tx2); Tx2 = Text_New(LD[0],LT[0],LL[0],NumToStr((HH[0]-LL[0])/PriceScale,0)+NewLine+NumToStr(LL[0],2)); Text_SetStyle(tx2,2,0); Text_SetColor(tx2,RED); } } } 즐거운 하루되세요 > 골든키 님이 쓴 글입니다. > 제목 : 수식부탁드립니다 > #,60477 답변에서 추가질문입니다, 1,추세선이 잠시 그려졌다가 텍스트호가 변동도 없는데 추세선연결봉 이후 3~4봉지나면 그냥 삭제됩니다?(#그림1참조:오일51.39~51.40이 추세선으로 연결돼있다가 없어진상태입니다) 파동이 완성되기전에 텍스트 호가갱신으로 인한 추세선 소멸를 제외하고 장종료후에도 추세선이 삭제되지 않고 계속 남아있게(#,그림2,3참조)부탁드립니다. 2,추세선긋기 기간을 당일에서 전일까지 포함해서 당일과 전일의 동일호가또는 + - 한틱까지 포함해서 오른쪽 추세선으로 그리기로 하고싶습니다 식을 어찌 수정해야할까요 도움 부탁드립니다. $.언제나 늘 고맙습니다.

> 예스스탁 님이 쓴 글입니다. > 제목 : Re : 수식부탁드립니다 > 안녕하세요 예스스탁입니다. 추세가 완성될때만 이전값과 비교해 그리게 수정했습니다. 또한 당일과 전일의 값만 비교하고 최대 20개 까지만 비교합니다. 갯수를 늘리고자 하시면 배열의 크기와 각 for문의 최종값을 배열갯수만큼 잡으시면 됩니다. 해당 내용 수식 수정에 시간이 많이 걸립니다. 이후 내용은 사용자분이 직접 수정보완해 사용하시기 바랍니다. input : af(0.02), maxAF(0.2); input : 텍스트출력(1); var : T(0),cnt(0),count(0); var : HH1(0),LL1(0),HD1(0),HT1(0),LD1(0),LT1(0),day1(0); var : TL1(0),TL2(0),tx1(0),tx2(0),tx11(0),tx22(0); Array : HD[20](0),HT[20](0),HH[20](0),LD[20](0),LT[20](0),LL[20](0); var1 = CSar(af,maxAF); if bdate != bdate[1] Then day1 = bdate[1]; if crossup(c,var1) Then { T = 1; HH[0] = H; HD[0] = Bdate; HT[0] = stime; for cnt = 1 to 19 { HD[cnt] = HD[cnt-1][1]; HT[cnt] = HT[cnt-1][1]; HH[cnt] = HH[cnt-1][1]; } if LL[0] > 0 Then { if 텍스트출력 == 1 then { Tx11 = Text_New(HD[1],HT[1],HH[1],NumToStr((HH[1]-LL[1])/PriceScale,0)+NewLine+NumToStr(HH[1],2)); Text_SetStyle(tx11,2,1); Text_SetColor(tx11,BLACK); Text_Delete(tx1); Tx1 = Text_New(HD[0],HT[0],HH[0],NumToStr((HH[0]-LL[0])/PriceScale,0)+NewLine+NumToStr(HH[0],2)); Text_SetStyle(tx1,2,1); Text_SetColor(tx1,BLACK); Condition1 = false; for cnt = 1 to 19 { if Condition1 == false and abs(LL[0]-LL[cnt]) <= PriceScale*1 and LD[cnt] >= day1 Then { Condition1 = true; TL1 = TL_New(LD[cnt],LT[cnt],LL[cnt],LD[0],LT[0],LL[0]); } } } } } if CrossDown(c,var1) Then { T = -1; LL[0] = L; LD[0] = sdate; LT[0] = stime; for cnt = 1 to 19 { LD[cnt] = LD[cnt-1][1]; LT[cnt] = LT[cnt-1][1]; LL[cnt] = LL[cnt-1][1]; } if HH[0] > 0 Then { if 텍스트출력 == 1 then { Tx22 = Text_New(LD[1],LT[1],LL[1],NumToStr((HH[1]-LL[1])/PriceScale,0)+NewLine+NumToStr(LL[1],2)); Text_SetStyle(tx22,2,0); Text_SetColor(tx22,RED); Text_Delete(tx2); Tx2 = Text_New(LD[0],LT[0],LL[0],NumToStr((HH[0]-LL[0])/PriceScale,0)+NewLine+NumToStr(LL[0],2)); Text_SetStyle(tx2,2,0); Text_SetColor(tx2,RED); TL_Delete(TL2); Condition2 = false; for cnt = 1 to 19 { if Condition2 == false and abs(HH[0]-HH[cnt]) <= PriceScale*1 and HD[cnt] >= day1 Then { Condition2 = true; TL2 = TL_New(HD[cnt],HT[cnt],HH[cnt],HD[0],HT[0],HH[0]); } } } } } if T == 1 then { if H > HH[0] Then { HH[0] = H; HD[0] = Bdate; HT[0] = stime; if 텍스트출력 == 1 then { Text_Delete(tx1); Tx1 = Text_New(HD[0],HT[0],HH[0],NumToStr((HH[0]-LL[0])/PriceScale,0)+NewLine+NumToStr(HH[0],2)); Text_SetStyle(tx1,2,1); Text_SetColor(tx1,BLACK); } } } if T == -1 then { if L < LL[0] Then { LL[0] = L; LD[0] = Bdate; LT[0] = stime; if 텍스트출력 == 1 then { Text_Delete(tx2); Tx2 = Text_New(LD[0],LT[0],LL[0],NumToStr((HH[0]-LL[0])/PriceScale,0)+NewLine+NumToStr(LL[0],2)); Text_SetStyle(tx2,2,0); Text_SetColor(tx2,RED); } } } 즐거운 하루되세요 > 골든키 님이 쓴 글입니다. > 제목 : 수식부탁드립니다 > #,60477 답변에서 추가질문입니다, 1,추세선이 잠시 그려졌다가 텍스트호가 변동도 없는데 추세선연결봉 이후 3~4봉지나면 그냥 삭제됩니다?(#그림1참조:오일51.39~51.40이 추세선으로 연결돼있다가 없어진상태입니다) 파동이 완성되기전에 텍스트 호가갱신으로 인한 추세선 소멸를 제외하고 장종료후에도 추세선이 삭제되지 않고 계속 남아있게(#,그림2,3참조)부탁드립니다. 2,추세선긋기 기간을 당일에서 전일까지 포함해서 당일과 전일의 동일호가또는 + - 한틱까지 포함해서 오른쪽 추세선으로 그리기로 하고싶습니다 식을 어찌 수정해야할까요 도움 부탁드립니다. $.언제나 늘 고맙습니다. -------------------------------------------------------------------------------------- $$,항생에 적용햇더니그림파일처럼 불필요한 텍스트가 출력됩니다 확인부탁드립니다