안녕하세요 예스스탁입니다. 수식내 전환선을 삭제해 드립니다. 타주기1은 전환선 계산에만 필요하므로 타주기1관련 내용은 모두 삭제해 드립니다. input : 타주기분2(15),타주기분3(30),전환선기간(11); var : S1(0),D1(0),TM(0),cnt(0),hh(0),ll(0); var : TF1(0),TF2(0),TF3(0),O2(0),O3(0),H2(0),L2(0),tx(0); if Bdate != Bdate[1] Then { S1 = TimeToMinutes(0); D1 = sdate; } if D1 > 0 then { if sdate == D1 Then TM = TimeToMinutes(stime)-S1; Else TM = TimeToMinutes(stime)+1440-S1; TF2 = TM%타주기분2; if Bdate != Bdate[1] or (Bdate == Bdate[1] and 타주기분2 > 1 and TF2 < TF2[1]) or (Bdate == Bdate[1] and 타주기분2 > 1 and TM >= TM[1]+타주기분2) or (Bdate == Bdate[1] and 타주기분2 == 1 and TM > TM[1]) Then { O2 = O; H2 = H; L2 = L; } if H2 > 0 and H > H2 Then H2 = H; if L2 > 0 and L < L2 Then L2 = L; TF3 = TM%타주기분3; if Bdate != Bdate[1] or (Bdate == Bdate[1] and 타주기분3 > 1 and TF3 < TF3[1]) or (Bdate == Bdate[1] and 타주기분3 > 1 and TM >= TM[1]+타주기분3) or (Bdate == Bdate[1] and 타주기분3 == 1 and TM > TM[1]) Then { O3 = O; } if O2 > 0 and O3 > 0 Then { if C > O3 and C > O2 and C >= L2+(H2-L2)*0.25 then { tx = Text_New(sDate,sTime,H,"●"); Text_SetColor(tx,White); Text_SetStyle(tx,2,1); Text_SetSize(tx,12); } if C < O3 and C < O2 and C <= H2-(H2-L2)*0.25 then { tx = Text_New(sDate,sTime,H,"●"); Text_SetColor(tx,Black); Text_SetStyle(tx,2,1); Text_SetSize(tx,12); } plot1(O2); plot2(O3); plot4(L2+(H2-L2)*0.25); plot5(H2-(H2-L2)*0.25); } } 즐거운 하루되세요 > 라몬 님이 쓴 글입니다. > 제목 : 수정부탁드립니다. > 안녕하세요 늘 감사드립니다. 아래 수식중에 타주기 3분봉 전환선 이부분을 삭제하고 지표를 수정하여 보았으나 제대로 구현되지 않아서 이 부분을 삭제하고 지표를 수정 부탁드립니다. input : 타주기분1(3),타주기분2(15),타주기분3(30),전환선기간(11); var : S1(0),D1(0),TM(0),cnt(0),hh(0),ll(0),전환선(0); var : TF1(0),TF2(0),TF3(0),O2(0),O3(0),H2(0),L2(0),tx(0); Array : H1[100](0),L1[100](0); if Bdate != Bdate[1] Then { S1 = TimeToMinutes(0); D1 = sdate; } if D1 > 0 then { if sdate == D1 Then TM = TimeToMinutes(stime)-S1; Else TM = TimeToMinutes(stime)+1440-S1; TF1 = TM%타주기분1; if Bdate != Bdate[1] or (Bdate == Bdate[1] and 타주기분1 > 1 and TF1 < TF1[1]) or (Bdate == Bdate[1] and 타주기분1 > 1 and TM >= TM[1]+타주기분1) or (Bdate == Bdate[1] and 타주기분1 == 1 and TM > TM[1]) Then { For cnt = 99 DownTo 1 { H1[cnt] = H1[cnt-1]; L1[cnt] = L1[cnt-1]; } H1[0] = H; L1[0] = L; } if H1[0] > 0 and H > H1[0] Then H1[0] = H; if L1[0] > 0 and L < L1[0] Then L1[0] = L; TF2 = TM%타주기분2; if Bdate != Bdate[1] or (Bdate == Bdate[1] and 타주기분2 > 1 and TF2 < TF2[1]) or (Bdate == Bdate[1] and 타주기분2 > 1 and TM >= TM[1]+타주기분1) or (Bdate == Bdate[1] and 타주기분2 == 1 and TM > TM[1]) Then { O2 = O; H2 = H; L2 = L; } if H2 > 0 and H > H2 Then H2 = H; if L2 > 0 and L < L2 Then L2 = L; TF3 = TM%타주기분3; if Bdate != Bdate[1] or (Bdate == Bdate[1] and 타주기분3 > 1 and TF3 < TF3[1]) or (Bdate == Bdate[1] and 타주기분3 > 1 and TM >= TM[1]+타주기분3) or (Bdate == Bdate[1] and 타주기분3 == 1 and TM > TM[1]) Then { O3 = O; } if O2 > 0 and O3 > 0 and H1[전환선기간-1] > 0 and L1[전환선기간-1] > 0 Then { hh = 0; ll = 0; For cnt = 0 to 전환선기간-1 { if hh == 0 or (hh > 0 and H1[cnt] > hh) Then hh = H1[cnt]; if ll == 0 or (ll > 0 and L1[cnt] < ll) Then ll = L1[cnt]; } 전환선 = (hh+ll)/2; if C > O3 and C > O2 and C >= L2+(H2-L2)*0.25 and C > 전환선 then { tx = Text_New(sDate,sTime,H,"●"); Text_SetColor(tx,White); Text_SetStyle(tx,2,1); Text_SetSize(tx,12); } if C < O3 and C < O2 and C <= H2-(H2-L2)*0.25 and C < 전환선 then { tx = Text_New(sDate,sTime,H,"●"); Text_SetColor(tx,Black); Text_SetStyle(tx,2,1); Text_SetSize(tx,12); } plot1(O2); plot2(O3); plot3(전환선); plot4(L2+(H2-L2)*0.25); plot5(H2-(H2-L2)*0.25); } }