안녕하세요 예스스탁입니다. 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),e1(0),e2(0); Array : ii[50](0),aa[50](0),ad[50](0),at[50](0); if (h>l*1.08) and (d1 == 0 or (d1 > 0 and dd >= d1+5)) Then { d1 = dd; hh = h; var1 = Index; Var2 = var1[1]; Var3 = Var2[1]; sum1=0; sumi1=0; sum2=0; sumi2=0; tl=TL_NEW(sDate,sTime,100,sDate,sTime,999999); TL_SetSize(tl,0); TL_SetColor(tl,Black); For cnt = 1 to (var1-Var2) { sum1=sum1+l[cnt]; sumi1=sumi1+1; } value1=sum1/sumi1; For cnt = 49 DownTo 1 { aa[cnt] = aa[cnt-1]; ad[cnt] = ad[cnt-1]; at[cnt] = at[cnt-1]; #ee[cnt]= ee[cnt-1]; } aa[0] = value1; ad[0] = sDate; at[0] = sTime; if aa[0] >= aa[1]*1.15 Then aa[0] = aa[0]*1.15; if aa[0] <= aa[1]*0.80 Then aa[0] = aa[0]*0.80; TL = TL_New(ad[1],at[1],aa[1],ad[0],at[0],aa[0]); } 2 올리신 내용은 각각 그리게 하셔야 할 것 같습니다. 내용상 A조건 만족하지 않은 상태에서 B조건만 만족하게 되면 tl_setbegin(tttl[0],sd[3],st[3],aa[3]*1.05); tl_setend(tttl[0],sd[1],st[1],aa[1]*1.05); 위 함수에 의해 이전에 출력한 추세선이 이동되어 현재봉으로 표시되게 됩니다. 또한 올리신 수식에서 동일한 값을 for문으로 두번 수행하는 것은 필요없습니다. 즐거운 하루되세요 > yamu 님이 쓴 글입니다. > 제목 : 질문 부탁드립니다 > 수고가 많으십니다 번거로우시겠지만 질문 2가지 부탁드리겠습니다 질문1) 기존의 배열값을 다른 값으로 대체하는게 가능한지 여쭤보고 싶습니다 아래 조건에서 만약 현재 aa값이 이전 만족봉 aa값 대비 20% 이상 하락했다면 현재 aa[0] 값을 aa[0]*0.80 값으로 대체하고 현재 aa값이 이전 aa보다 15% 이상 상승했다면 현 aa값을 aa*1.15 로 대체하는 수식을 작성하고자 합니다 만약 크거나 작지 않다면 원래 aa값을 그대로 유지합니다 즉 크기를 비교해서 기존aa 값대신 새로운 aa값 ( aa*0.80 혹은 aa*1.15) 로 대체 (혹은 유지) 하려고 합니다. **그리고 "추세선"으로 이전 aa 값과 현재 aa값을 연결하고자 합니다. (시작점 : 이전 조건만족봉 시점 , 끝점: 현 만족봉 시점) 예시로 현재값이 1000, 이전값이 1300 이라면 이전값 대비 20% 이상 하락했으므로 aa[0] 값을 1000에서 800으로 교체 (배열값 재구성) 하고 다음 aa값과 다시 비교를 하려고 합니다. 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),e1(0),e2(0); Array : ii[50](0),aa[50](0); var : count(0) if (h>l*1.08) and (d1 == 0 or (d1 > 0 and dd >= d1+5)) Then { d1 = dd; hh = h; var1 = Index; Var2 = var1[1]; Var3 = Var2[1]; sum1=0; sumi1=0; sum2=0; sumi2=0; tl=TL_NEW(sDate,sTime,100,sDate,sTime,999999); TL_SetSize(tl,0); TL_SetColor(tl,Black); For cnt = 1 to (var1-Var2) { sum1=sum1+l[cnt]; sumi1=sumi1+1; } value1=sum1/sumi1; For cnt = 49 DownTo 1 { aa[cnt] = aa[cnt-1]; #ee[cnt]= ee[cnt-1]; } aa[0] = value1; } 질문2) 추세선 작성에 관련된 질문인데요, 아래와 같은 식처럼 조건 A 와 B 모두 추세선을 나타내고 싶은데 동일한 추세선 (tttl) 로 나타낼 수 있을까요? 시작점, 끝점은 같은데 조건 b에서 추세선의 값만 (시작:aa[3]*1.05, 끝:aa[1]*1.05) 달라지게 하려고 합니다 조건 A 는 그대로 두고 조건 B 일때는 tl_setbegin(tttl[0],sd[3],st[3],aa[3]*1.05); tl_setend(tttl[0],sd[1],st[1],aa[1]*1.05); 이런식으로 작성해도 될까요? 조건B 에서도 For 문이 들어가야하는지 궁금합니다(틀린부분은 수정부탁드립니다) 아니면 조건 B에 해당하는 추세선을 아예 따로 (예를들어 tttl1) 만드는게 맞나요? 이런 경우처럼 조건이 나눠질때 동일 추세선에서 값만 바꿔서 추세선을 나타내고 싶을때는 어떻게 해야하는지 알고싶습니다 감사합니다 if (h>l*1.08) Then { var1 = Index; Var2 = var1[1]; For cnt = 1 to (var1-Var2) { sum1=sum1+l[cnt]; sumi1=sumi1+1; } value1=sum1/sumi1; For cnt = 49 DownTo 1 { aa[cnt] = aa[cnt-1]; #ee[cnt]= ee[cnt-1]; } aa[0] = value1; if 조건 A Then { For cnt = 50 DownTo 1 { tttl[cnt] = tttl[cnt-1]; sd[cnt] =sd[cnt-1]; st[cnt] =st[cnt-1]; } sd[0] = sDate; st[0] = sTime; TL_SetExtRight(tttl[10],False); tttl[0]=tl_new(sd[3],st[3],aa[3],sd[1],st[1],aa[1]); TL_SetSize(tttl[0],0); TL_SetExtRight(tttl[0],true); } if 조건 B Then { For cnt = 50 DownTo 1 { tttl[cnt] = tttl[cnt-1]; sd[cnt] =sd[cnt-1]; st[cnt] =st[cnt-1]; } sd[0] = sDate; st[0] = sTime; tl_setbegin(tttl[0],sd[3],st[3],aa[3]*1.05); tl_setend(tttl[0],sd[1],st[1],aa[1]*1.05); } }