안녕하세요 예스스탁입니다. 문의하신 내용 각 지표를 분봉에서 일봉의 값을 계산해야 하는데 값이 조금 차이가 있을수 있습니다. 차트를 분봉으로 5000개봉으로 조회하시고 너무 짧은 분봉에서는 계산이 되지 않으므로 5분봉으로 설정하시기 바랍니다. 시초가에 진입하기 위해서는 전일 마지막봉에서 조건을 걸어야 합니다. 현재 식은 5분봉에서 마지막봉인 15시15분에 조건판단하여 시초가에 신호가 발생하게 작성이 되어 있습니다. 이용에 참고하시기 바랍니다. input : Length(14);#ADX기간 input : Period(15), Period1(9), Period2(9);#스토케스틱기간 input : P(10);#이평기간 var : TL(0),TH(0),cnt(0),Dcnt(0),preTRange(0),prePlusDM14(0),DMinus(0),MinusDM14(0),TRange1(0),preMinusDM14(0); Var : Counter(0), TRange(0), MyRange(Length), PlusDM14(0), PlusDM(0), MinusDM(0),Dplus(0),preADX(0); Var : CummDMI(0), Return(0); var : highVal(0), lowVal(0), FK(0), SK(0), SD(0); var : Ep1(0), Ep2(0), PreSK(0), PreSD(0); var : sum1(0),sum2(0),mav1(0),mav2(0); Array : HH[61](0),LL[61](0),CC[61](0),TR[61](0),DMIv[61](0),ADXv[61](0); #일봉 ADX계산 if date != date[1] Then{ Dcnt = Dcnt+1; HH[0] = H; LL[0] = L; CC[0] = C; preTRange = TRange[1]; prePlusDM14 = PlusDM14[1]; preMinusDM14 = MinusDM14[1]; for cnt = 1 to 60{ HH[cnt] = HH[cnt-1][1]; LL[cnt] = LL[cnt-1][1]; CC[cnt] = CC[cnt-1][1]; TR[cnt] = TR[cnt-1][1]; DMIv[cnt] = DMIv[cnt-1][1]; ADXv[cnt] = ADXv[cnt-1][1]; } } if H > HH[0] Then HH[0] = H; if L < LL[0] Then LL[0] = L; CC[0] = C; if CC[1] > 0 Then{ If CC[1] > HH[0] then TH = CC[1]; else TH = HH[0]; If CC[1] < LL[0] then TL = CC[1]; else TL = LL[0]; TR[0] = TH-TL; } If Dcnt == Length+1 Then { MyRange = Length; DPlus = 0; PlusDM14 = 0; TRange = 0; DMinus = 0; MinusDM14 = 0; TRange1 = 0; For Counter = 0 To MyRange - 1 { If HH[Counter] - HH[Counter+1] < 0 Then PlusDM = 0 ; Else PlusDM = HH[Counter] - HH[Counter+1]; If LL[Counter+1] - LL[Counter] < 0 Then MinusDM = 0; Else MinusDM = LL[Counter+1] - LL[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; If Dplus + Dminus == 0 Then DMIv[0] = 0; Else DMIv[0] = 100 * AbsValue(Dplus - Dminus) / (Dplus + Dminus); } Else If Dcnt > Length+1 Then { If HH[0] - HH[1] < 0 Then PlusDM = 0; Else PlusDM = HH[0] - HH[1]; If LL[1] - LL[0] < 0 Then MinusDM = 0; Else MinusDM = LL[1] - LL[0]; If MinusDM >= PlusDM Then PlusDM = 0; If PlusDM >= MinusDM Then MinusDM = 0 ; If MyRange > 0 Then { TRange = preTRange - (preTRange / MyRange) + TR[0]; PlusDM14 = prePlusDM14 - (prePlusDM14 / MyRange) + PlusDM; MinusDM14 = preMinusDM14 - (preMinusDM14 / MyRange) + MinusDM; } 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] = 0; Else DMIv[0] = 100 * AbsValue(Dplus - Dminus) / (Dplus + Dminus); } If DMIV[Length] == 0 Then{ CummDMI = 0; for Counter = 0 To Length-1 Begin if DMiV[counter] > 0 Then CummDMI = CummDMI + DMIV[Counter]; End; ADXv[0] = CummDMI / CurrentBar; } Else ADXv[0] = (ADXv[1] * (Length - 1) + DMIv[0]) / Length; #일봉 스토케스틱 계산 if date != date[1] then { PreSK = SK[1]; PreSD = SD[1]; } #N일간 최고가 및 최저가 highVal = dayhigh(0); lowVal = daylow(0); for cnt = 0 to Period-1 { if dayHigh(cnt) > highVal then highVal = dayhigh(cnt); if dayLow(cnt) < lowVal then lowVal = dayLow(cnt); } fK = (C-lowVal)/(highVal-lowVal)*100; Ep1 = 2/(Period1+1); Ep2 = 2/(Period2+1); SK = FK * EP1 + PreSK * (1-EP1); SD = SK * EP2 + PreSD * (1-EP2); #일봉 이평계산 sum1 = 0; sum2= 0; for cnt = 0 to P-1{ sum1 = sum1+DayClose(cnt); sum2 = sum2+DayClose(cnt+1); } mav1 = sum1/P; mav2 = sum2/P; if stime == 151500 and mav1 > mav2 and adxv[0] > adxv[1] and SD > PreSD Then buy("b",AtMarket); SetStopProfittarget(2,PointStop); SetStopEndofday(144000); 즐거운 하루되세요 > 머니사이언스 님이 쓴 글입니다. > 제목 : 문의드립니다... > 당일매수 당일청산을 하려고 하고 분봉거래할려고 합니다.. 9시 시초가 매수집입을 하려고 하고 매수진입 조건은.... 1. 일봉기준으로 볼때 10일 이동평균선이 우상향 하면서 2. 일봉 ADX(14)가 우상향하고 3. 일봉 스토캐스틱D(15,9,9)가 우상향일때 매수집입을 하고 손절은 2포인트로 하고 2시 40분에 당일 청산하려고 합니다.. 제가 좀 부족해서요..감사합니다.