안녕하세요 예스스탁입니다. 1 var : cnt(0), sum1(0), sumi1(0),summ(0),tt(0),hh(0),ll(0),tl(0),tl1(0),n(0); var: sum2(0),sumi2(0); var : t(0),StartBarIndex(0),dd(0),d1(0),d2(0),ee(0),e1(0),e2(0); Array : ii[50](0),aa[50](0),cc[50](0),vv[150](0),ttl[30](0),tttl[40](0),tttl1[40](0),tttl2[40](0),sd[45](0),st[45](0); Var33=Money/100000000; if Bdate != Bdate[1] Then { DD = DD+1; } if h>l*1.08 and (d2 == 0 or (d2 > 0 and d1 >= d2+5)) Then { d1 = dd; d2 = d1[1]; var1 = Index; Var2 = var1[1]; Var3= Var2[1]; tl=TL_NEW(sDatE,sTimE,100,sDatE,sTimE,999999); TL_SetSize(tl,0); TL_SetColor(tl,Gray); } 2 과거봉의 값은 가져와 저장이 가능합니다. 기존식에도 과거봉에 추세선 표시를 하기 위해 조건만족시의 날짜와 시간을 배열에 저장하고 있습니다 동일방식으로 조건만족시에 index를 추가로 저장하고 diff > 5 조건만족하면 다른 배열에 해당값을 가져와 저장해 주시면 됩니다. var : cnt(0),cn(0), sum1(0), sumi1(0),summ(0),tt(0),hh(0),ll(0),tl(0),tl1(0),n(0); var: sum2(0),sumi2(0),sumaa(0); var : t(0),StartBarIndex(0),dd(0),d1(0),d2(0),ee(0),e1(0),e2(0); Array : ii[50](0),aa[50](0),cc[50](0),vv[150](0),ttl[30](0),tttl[40](0),tttl1[40](0),tttl2[40](0),sd[45](0),st[45](0); var : sum(0),YY(0),XX(0),diff(0); Array : A[100](0),D[100](0),S[100](0),ZZ[100](0),i[100](0),idx[100](0); Var33=Money/100000000; if Bdate != Bdate[1] Then { DD = DD+1; } #H>vi(1)*0.95 h>l*1.07 CrossUp(h,ma(h,240)) if h>l*1.08 Then { d1 = dd; d2 = d1[1]; # tl=TL_NEW(sDatE,sTimE,100,sDatE,sTimE,999999); TL_SetSize(tl,0); TL_SetColor(tl,Black); For cnt = 99 DownTo 1 { A[cnt] = A[cnt-1]; D[cnt] = D[cnt-1]; S[cnt] = S[cnt-1]; } A[0] = DD; D[0] = sdate; S[0] = sTime; i[0] = Index; For cnt =0 to 99 { TL_Delete(ZZ[cnt]); idx[cnt] = Nan; } sum = 0; YY = A[0]; XX = 0; For cnt = 1 to 60 { diff = yy-a[cnt]; sum = sum + diff; if diff > 5 Then { XX = XX+1; ZZ[XX] =TL_NEW(D[cnt],S[cnt],100,D[cnt],S[cnt],999999); TL_SetColor(zz[xx],Green); TL_SetDrawMode(zz[xx],0); idx[xx] = I[cnt]; sum = 0; YY = A[cnt]; } } } 즐거운 하루되세요 > yamu 님이 쓴 글입니다. > 제목 : 질문드리겠습니다 > 질문 2가지를 부탁드리겠습니다 질문1) 아래식에서 if d2 == 0 or (d2 > 0 and d1 >= d2+5) 이 조건에 의하면 현재봉과 전봉의 거래일 간격을 단순하게 계산해서 차이가 5거래일 이상 나지 않으면 표현을 안하게 되는데요, 현재만족봉 기준 다음 만족봉이 5거래일 보다 적으면 건너뛰고 다다음봉이 클때 var1에 index 값을 대입하려고 합니다 예를들어 현재봉 - 다음봉 (3거래일 후) - 다다음봉 (현재봉 기준으로 해서 6거래일 후) 라면 다음봉은 건너뛰고 다다음봉에만 해당하게 조건을 작성하고 싶습니다 아래는 수식입니다 var : cnt(0), sum1(0), sumi1(0),summ(0),tt(0),hh(0),ll(0),tl(0),tl1(0),n(0); var: sum2(0),sumi2(0); var : t(0),StartBarIndex(0),dd(0),d1(0),d2(0),ee(0),e1(0),e2(0); Array : ii[50](0),aa[50](0),cc[50](0),vv[150](0),ttl[30](0),tttl[40](0),tttl1[40](0),tttl2[40](0),sd[45](0),st[45 ](0); Var33=Money/100000000; if Bdate != Bdate[1] Then { DD = DD+1; } if h>l*1.08 Then { d1 = dd; d2 = d1[1]; if d2 == 0 or (d2 > 0 and d1 >= d2+5) Then { var1 = Index; Var2 = var1[1]; Var3= Var2[1]; tl=TL_NEW(sDatE,sTimE,100,sDatE,sTimE,999999); TL_SetSize(tl,0); TL_SetColor(tl,Gray); } } 질문 2) 어제 알려주신 식에서요, if diff > 5 조건으로 만들어진 수직 추세선 zz[xx]가 나타내는 봉들을 새로운 기준봉으로 해서, 그 기준봉의 index 값을 저장하려고 하는데요 이건 과거로 계산을 하는거라서 추세선만 되고 위의 사항은 적용을 할 수가 없는거죠? 감사합니다 좋은 하루 되세요 수식::: var : cnt(0),cn(0), sum1(0), sumi1(0),summ(0),tt(0),hh(0),ll(0),tl(0),tl1(0),n(0); var: sum2(0),sumi2(0),sumaa(0); var : t(0),StartBarIndex(0),dd(0),d1(0),d2(0),ee(0),e1(0),e2(0); Array : ii[50](0),aa[50](0),cc[50](0),vv[150](0),ttl[30](0),tttl[40](0),tttl1[40](0),tttl2[40](0),sd[45](0),st[45](0); var : sum(0),YY(0),XX(0),diff(0); Array : A[100](0),D[100](0),S[100](0),ZZ[100](0); Var33=Money/100000000; if Bdate != Bdate[1] Then { DD = DD+1; } #H>vi(1)*0.95 h>l*1.07 CrossUp(h,ma(h,240)) if h>l*1.08 Then { d1 = dd; d2 = d1[1]; # tl=TL_NEW(sDatE,sTimE,100,sDatE,sTimE,999999); TL_SetSize(tl,0); TL_SetColor(tl,Black); For cnt = 99 DownTo 1 { A[cnt] = A[cnt-1]; D[cnt] = D[cnt-1]; S[cnt] = S[cnt-1]; } A[0] = DD; D[0] = sdate; S[0] = sTime; For cnt =0 to 99 { TL_Delete(ZZ[cnt]); } sum = 0; YY = A[0]; XX = 0; For cnt = 1 to 60 { diff = yy-a[cnt]; sum = sum + diff; if diff > 5 Then { XX = XX+1; ZZ[XX] =TL_NEW(D[cnt],S[cnt],100,D[cnt],S[cnt],999999); TL_SetColor(zz[xx],Green); TL_SetDrawMode(zz[xx],0); sum = 0; YY = A[cnt]; } } }