안녕하세요 예스스탁입니다. 문의하신 내용이 당일 봉수로 N번쨰 부터 그려지는 내용이시면 1번식 이용하시면 됩니다. 30분봉 단위로 N번째이면 2번식 이용하시면 됩니다. 2경우 모두 선그래프이면 전일마지막값과 사선이 생기므로 속성에서 그래프모양을 일자그래프로 지정해서 보셔야 합니다. 1 input : 타주기분(30),n(10),nth(5),N번째캔들(2); var : S1(0),D1(0),TM(0),TF(0),cnt(0),OO(0),HH(0),LL(0),CC(0); var : ii(0),i1(0),i2(0),tempmax(0),tempi(0),bi(0); Array : RR[200](0),MM[200](0),DI[50](0); Array : tempRR[200](0),tempMM[200](0),NTHVALUE[200](0); if Bdate != Bdate[1] Then { S1 = TimeToMinutes(stime); D1 = sdate; bi = 0; } bi = bi+1; if D1 > 0 then { if sdate == D1 Then TM = TimeToMinutes(stime)-S1; Else TM = TimeToMinutes(stime)+1440-S1; TF = TM%타주기분; if Bdate != Bdate[1] or (Bdate == Bdate[1] and 타주기분 > 1 and TF < TF[1]) or (Bdate == Bdate[1] and 타주기분 > 1 and TM >= TM[1]+타주기분) or (Bdate == Bdate[1] and 타주기분 == 1 and TM > TM[1]) Then { ii = ii+1; if Bdate != Bdate[1] Then { DI[0] = ii; for cnt = 1 to 49 { Di[cnt] = Di[cnt-1][1]; } } OO = O; HH = H; LL = L; RR[0] = 0; MM[0] = 0; for cnt = 1 to 199 { RR[cnt] = RR[cnt-1][1]; MM[cnt] = MM[cnt-1][1]; tempRR[cnt] = RR[cnt]; tempMM[cnt] = MM[cnt]; } } if H > HH Then HH = H; if L < LL Then LL = L; CC = C; RR[0] = abs(OO-CC); MM[0] = (OO+CC)/2; tempRR[0] = RR[0]; tempMM[0] = MM[0]; if D1[n] > 0 Then { if Bdate != Bdate[1] Then { For i1 = 1 to nth { tempmax = -1; For i2 = 1 to ii-DI[n] { if (tempRR[i2] >= tempmax ) then { tempmax = tempRR[i2]; tempi = i2; } } NTHVALUE[i1] = tempMM[tempi]; tempRR[tempi] = -1; } } if bi >= N번째캔들 Then { Plot1(NTHVALUE[1]); Plot2(NTHVALUE[2]); Plot3(NTHVALUE[3]); Plot4(NTHVALUE[4]); Plot5(NTHVALUE[5]); Plot6(NTHVALUE[1]); Plot7(NTHVALUE[2]); Plot8(NTHVALUE[3]); Plot9(NTHVALUE[4]); Plot10(NTHVALUE[5]); } } } 2 input : 타주기분(30),n(10),nth(5),N번째캔들(2); var : S1(0),D1(0),TM(0),TF(0),cnt(0),OO(0),HH(0),LL(0),CC(0); var : ii(0),i1(0),i2(0),tempmax(0),tempi(0),bi(0); Array : RR[200](0),MM[200](0),DI[50](0); Array : tempRR[200](0),tempMM[200](0),NTHVALUE[200](0); if Bdate != Bdate[1] Then { S1 = TimeToMinutes(stime); D1 = sdate; bi = 0; } if D1 > 0 then { if sdate == D1 Then TM = TimeToMinutes(stime)-S1; Else TM = TimeToMinutes(stime)+1440-S1; TF = TM%타주기분; if Bdate != Bdate[1] or (Bdate == Bdate[1] and 타주기분 > 1 and TF < TF[1]) or (Bdate == Bdate[1] and 타주기분 > 1 and TM >= TM[1]+타주기분) or (Bdate == Bdate[1] and 타주기분 == 1 and TM > TM[1]) Then { ii = ii+1; bi = bi+1; if Bdate != Bdate[1] Then { DI[0] = ii; for cnt = 1 to 49 { Di[cnt] = Di[cnt-1][1]; } } OO = O; HH = H; LL = L; RR[0] = 0; MM[0] = 0; for cnt = 1 to 199 { RR[cnt] = RR[cnt-1][1]; MM[cnt] = MM[cnt-1][1]; tempRR[cnt] = RR[cnt]; tempMM[cnt] = MM[cnt]; } } if H > HH Then HH = H; if L < LL Then LL = L; CC = C; RR[0] = abs(OO-CC); MM[0] = (OO+CC)/2; tempRR[0] = RR[0]; tempMM[0] = MM[0]; if D1[n] > 0 Then { if Bdate != Bdate[1] Then { For i1 = 1 to nth { tempmax = -1; For i2 = 1 to ii-DI[n] { if (tempRR[i2] >= tempmax ) then { tempmax = tempRR[i2]; tempi = i2; } } NTHVALUE[i1] = tempMM[tempi]; tempRR[tempi] = -1; } } if bi >= N번째캔들 Then { Plot1(NTHVALUE[1]); Plot2(NTHVALUE[2]); Plot3(NTHVALUE[3]); Plot4(NTHVALUE[4]); Plot5(NTHVALUE[5]); Plot6(NTHVALUE[1]); Plot7(NTHVALUE[2]); Plot8(NTHVALUE[3]); Plot9(NTHVALUE[4]); Plot10(NTHVALUE[5]); } } } 즐거운 하루되세요 > 유로파54 님이 쓴 글입니다. > 제목 : 문의 드립니다! > 안녕하세요! 아래수식을 N번째 캔들부터(예 2번째 캔들) 가로선이 발생되도록 수정 부탁드립니다 감사합니다! ---------------------------------------------------------------------------- input : 타주기분(30),n(10),nth(5); var : S1(0),D1(0),TM(0),TF(0),cnt(0),OO(0),HH(0),LL(0),CC(0); var : ii(0),i1(0),i2(0),tempmax(0),tempi(0); Array : RR[200](0),MM[200](0),DI[50](0); Array : tempRR[200](0),tempMM[200](0),NTHVALUE[200](0); if Bdate != Bdate[1] Then { S1 = TimeToMinutes(stime); D1 = sdate; } if D1 > 0 then { if sdate == D1 Then TM = TimeToMinutes(stime)-S1; Else TM = TimeToMinutes(stime)+1440-S1; TF = TM%타주기분; if Bdate != Bdate[1] or (Bdate == Bdate[1] and 타주기분 > 1 and TF < TF[1]) or (Bdate == Bdate[1] and 타주기분 > 1 and TM >= TM[1]+타주기분) or (Bdate == Bdate[1] and 타주기분 == 1 and TM > TM[1]) Then { ii = ii+1; if Bdate != Bdate[1] Then { DI[0] = ii; for cnt = 1 to 49 { Di[cnt] = Di[cnt-1][1]; } } OO = O; HH = H; LL = L; RR[0] = 0; MM[0] = 0; for cnt = 1 to 199 { RR[cnt] = RR[cnt-1][1]; MM[cnt] = MM[cnt-1][1]; tempRR[cnt] = RR[cnt]; tempMM[cnt] = MM[cnt]; } } if H > HH Then HH = H; if L < LL Then LL = L; CC = C; RR[0] = abs(OO-CC); MM[0] = (OO+CC)/2; tempRR[0] = RR[0]; tempMM[0] = MM[0]; if D1[n] > 0 Then { if Bdate != Bdate[1] Then { For i1 = 1 to nth { tempmax = -1; For i2 = 1 to ii-DI[n] { if (tempRR[i2] >= tempmax ) then { tempmax = tempRR[i2]; tempi = i2; } } NTHVALUE[i1] = tempMM[tempi]; tempRR[tempi] = -1; } } Plot1(NTHVALUE[1]); Plot2(NTHVALUE[2]); Plot3(NTHVALUE[3]); Plot4(NTHVALUE[4]); Plot5(NTHVALUE[5]); Plot6(NTHVALUE[1]); Plot7(NTHVALUE[2]); Plot8(NTHVALUE[3]); Plot9(NTHVALUE[4]); Plot10(NTHVALUE[5]); } }