안녕하세요 예스스탁입니다. 틱봉이 시간은 분봉과 같이 일정시간주기가 아니므로 초기화 되는 시간을 달리 표현해 주셔야 합니다. 아래같이 변경하시면 분봉이나 틱봉에서 같이 사용 할수 있습니다. Inputs: Length(10); var : sumGap(0), gap(0), GO(0), GH(0), GL(0), GC(0),TH(0),TL(0),TR(0); Var : Counter(0), TRange(0), MyRange(Length), PlusDM14(0), PlusDM(0), MinusDM(0),DPlus(0); Var : MinusDM14(0), Dminus(0),DMIv(0), ADXCounter(0), ADXCummDMI(0), ADXReturn(0),Return(0),GADX(0); if (stime == 90000 or (stime > 90000 and stime[1] < 90000)) or (stime == 180000 or (stime > 180000 and stime[1] < 180000)) then { // 날짜가 변경되는 봉에서(분봉에서 첫번째 봉) gap = Open-Close[1]; // 일간갭 sumGap = sumGap+gap; // 일간갭 누적 } GO = O - sumGap;// 갭보정 시가 GH = H - sumGap;// 갭보정 고가 GL = L - sumGap;// 갭보정 저가 GC = C - sumGap; // 갭보정 종가 If GC[1] > GH then TH = GC[1]; else TH = GH; If GC[1] < GL then TL = GC[1]; else TL = GL; TR = TH - TL; If CurrentBar == 1 Then { MyRange = Length; DPlus = 0; PlusDM14 = 0; MinusDM14 = 0; TRange = 0; For Counter = 0 To MyRange - 1 { If GH[Counter] - GH[Counter+1] < 0 Then PlusDM = 0; Else PlusDM = GH[Counter] - GH[Counter+1]; If GL[Counter+1] - GL[Counter] < 0 Then MinusDM = 0; Else MinusDM = GL[Counter+1] - GL[Counter]; If MinusDM >= PlusDM Then PlusDM = 0; If PlusDM >= MinusDM Then MinusDM = 0; TRange = TRange + TR[Counter]; PlusDM14 = PlusDM14 + PlusDM; MinusDM14 = MinusDM14 + MinusDM; } If TRange <> 0 Then DPlus = 100 * PlusDM14 / TRange; Else DPlus = 0 ; If TRange <> 0 Then DMinus = 100 * MinusDM14 / TRange; Else DMinus = 0; } ##dp Else If CurrentBar > 1 Then { If GH[0] - GH[1] < 0 Then PlusDM = 0; Else PlusDM = GH[0] - GH[1]; If GL[1] - GL[0] < 0 Then MinusDM = 0; Else MinusDM = GL[1] - GL[0]; If MinusDM >= PlusDM Then PlusDM = 0; If PlusDM >= MinusDM Then MinusDM = 0 ; If MyRange > 0 Then Begin TRange = TRange[1] - (TRange[1] / MyRange) + TR; PlusDM14 = PlusDM14[1] - (PlusDM14[1] / MyRange) + PlusDM; MinusDM14 = MinusDM14[1] - (MinusDM14[1] / MyRange) + MinusDM; End; If TRange <> 0 Then DPlus = 100 * PlusDM14 / TRange; Else DPlus = 0 ; If TRange <> 0 Then DMinus = 100 * MinusDM14 / TRange; Else DMinus = 0; } If DPlus + DMinus == 0 Then DMIv = 0; Else DMIv = 100 * AbsValue(DPlus - DMinus) / (DPlus + DMinus); Return = 0; If CurrentBar >= 1 AND Length > 0 Then Begin If CurrentBar < Length Then begin ADXCummDMI = 0; for Counter = 0 To CurrentBar - 1 Begin ADXCummDMI = ADxCummDMI + DMIV[Counter]; End; Return = ADXCummDMI / CurrentBar; End Else Return = (GADX[1] * (Length - 1) + DMIv) / Length; End; GADX = Return; plot1(GADX); plot2(Dplus); plot3(Dminus); 즐거운 하루되세요 > 동해바다01 님이 쓴 글입니다. > 제목 : 문의드립니다. > 아래와 같이 갭보정식을 복합차트에 적용하니 분봉에서는 지표가 표시되는데 틱봉차트에는 표시가 되지 않습니다. 왜 그런지 궁금합니다. ===================== Inputs: Length(10); var : sumGap(0), gap(0), GO(0), GH(0), GL(0), GC(0),TH(0),TL(0),TR(0); Var : Counter(0), TRange(0), MyRange(Length), PlusDM14(0), PlusDM(0), MinusDM(0),DPlus(0); Var : MinusDM14(0), Dminus(0),DMIv(0), ADXCounter(0), ADXCummDMI(0), ADXReturn(0),Return(0),GADX(0); if stime == 90000 or stime == 180000 then { // 날짜가 변경되는 봉에서(분봉에서 첫번째 봉) gap = Open-Close[1]; // 일간갭 sumGap = sumGap+gap; // 일간갭 누적 } GO = O - sumGap;// 갭보정 시가 GH = H - sumGap;// 갭보정 고가 GL = L - sumGap;// 갭보정 저가 GC = C - sumGap; // 갭보정 종가 If GC[1] > GH then TH = GC[1]; else TH = GH; If GC[1] < GL then TL = GC[1]; else TL = GL; TR = TH - TL; If CurrentBar == 1 Then { MyRange = Length; DPlus = 0; PlusDM14 = 0; MinusDM14 = 0; TRange = 0; For Counter = 0 To MyRange - 1 { If GH[Counter] - GH[Counter+1] < 0 Then PlusDM = 0; Else PlusDM = GH[Counter] - GH[Counter+1]; If GL[Counter+1] - GL[Counter] < 0 Then MinusDM = 0; Else MinusDM = GL[Counter+1] - GL[Counter]; If MinusDM >= PlusDM Then PlusDM = 0; If PlusDM >= MinusDM Then MinusDM = 0; TRange = TRange + TR[Counter]; PlusDM14 = PlusDM14 + PlusDM; MinusDM14 = MinusDM14 + MinusDM; } If TRange <> 0 Then DPlus = 100 * PlusDM14 / TRange; Else DPlus = 0 ; If TRange <> 0 Then DMinus = 100 * MinusDM14 / TRange; Else DMinus = 0; } ##dp Else If CurrentBar > 1 Then { If GH[0] - GH[1] < 0 Then PlusDM = 0; Else PlusDM = GH[0] - GH[1]; If GL[1] - GL[0] < 0 Then MinusDM = 0; Else MinusDM = GL[1] - GL[0]; If MinusDM >= PlusDM Then PlusDM = 0; If PlusDM >= MinusDM Then MinusDM = 0 ; If MyRange > 0 Then Begin TRange = TRange[1] - (TRange[1] / MyRange) + TR; PlusDM14 = PlusDM14[1] - (PlusDM14[1] / MyRange) + PlusDM; MinusDM14 = MinusDM14[1] - (MinusDM14[1] / MyRange) + MinusDM; End; If TRange <> 0 Then DPlus = 100 * PlusDM14 / TRange; Else DPlus = 0 ; If TRange <> 0 Then DMinus = 100 * MinusDM14 / TRange; Else DMinus = 0; } If DPlus + DMinus == 0 Then DMIv = 0; Else DMIv = 100 * AbsValue(DPlus - DMinus) / (DPlus + DMinus); Return = 0; If CurrentBar >= 1 AND Length > 0 Then Begin If CurrentBar < Length Then begin ADXCummDMI = 0; for Counter = 0 To CurrentBar - 1 Begin ADXCummDMI = ADxCummDMI + DMIV[Counter]; End; Return = ADXCummDMI / CurrentBar; End Else Return = (GADX[1] * (Length - 1) + DMIv) / Length; End; GADX = Return; plot1(GADX); plot2(Dplus); plot3(Dminus); ==================================================================