안녕하세요 예스스탁입니다. input : 일봉볼밴기간(20),Atime(30), StoPeriod(20), StoPeriod1(10), StoPeriod2(10); input : TStoPeriod(60), TStoPeriod1(2), TStoPeriod2(2); var : daycnt(0),daysum(0),dayma(0),Predaysum(0),Predayma(0); var : cnt(0),count(0),sum(0),mav(0),Presum(0),Premav(0),TT(0),stok(-1),stod(-1); var : highVal(0), lowVal(0), StoFastK(0),T(0),Tstok(0),Tstod(0); var : Ep(0), EP1(0), JISU(0), DINDEX(0), PreStoK(0), PreStoD(0); Array : CC[100](0),HH[50](0),LL[50](0); daysum = 0; Predaysum = 0; for daycnt = 0 to 일봉볼밴기간-1{ daysum = daysum + DayClose(daycnt); Predaysum = Predaysum + DayClose(daycnt+1); } dayma = daysum/일봉볼밴기간; Predayma = Predaysum/일봉볼밴기간; T = TimeToMinutes(stime)%Atime; if dayindex == 0 or (T < T[1] and stime > stime[1]) Then{ HH[0] = H; LL[0] = L; for cnt = 1 to 49{ HH[cnt] = HH[cnt-1][1]; LL[cnt] = LL[cnt-1][1]; } } if H > HH[0] Then HH[0] = H; if L < LL[0] Then LL[0] = L; highVal = HH[0]; lowVal = LL[0]; for cnt = 0 to StoPeriod-1 { if HH[cnt] > highVal then highVal = HH[cnt]; if LL[cnt] < lowVal then lowVal = LL[cnt]; } StoFastK = (C-lowVal)/(highVal-lowVal)*100; #### Slow StochasticsK #### Ep = 2/(StoPeriod1+1); if DINDEX >= StoPeriod and (date != date[1] or T < T[1]) then { DINDEX = DINDEX + 1; PreStoK = StoK[1]; } if DINDEX <= 1 then StoK = StoFastK ; else StoK = StoFastK * EP + PreStoK * (1-EP); #### Slow StochasticsD #### Ep1 = 2/(StoPeriod2+1); if date != date[1] or T < T[1] then { DINDEX = DINDEX + 1; PreStoD = StoD[1]; } if DINDEX <= 1 then StoD = StoK ; else StoD = StoK * EP1 + PreStoD * (1-EP1); Tstok = StochasticsK(TstoPeriod,TstoPeriod1); Tstod = StochasticsD(TstoPeriod,TstoPeriod1,TstoPeriod2); if dayma > 0 and Predayma > 0 and StoK > -1 and StoD > -1 and C > dayma and dayma > predayma and SToK > 20 and crossup(Tstok,30) Then buy(); if MarketPosition == 1 Then{ if CrossUp(Tstok,80) Then exitlong(); if CrossDown(Tstok,30) Then ExitLong(); } if dayma > 0 and Predayma > 0 and StoK > -1 and StoD > -1 and C < dayma and dayma < predayma and SToK < 85 and CrossDown(Tstok,80) Then Sell(); if MarketPosition == -1 Then{ if CrossDown(stok,25) Then ExitShort(); if CrossUp(stok,80) Then ExitShort(); } 즐거운 하루되세요 > 내가제일 님이 쓴 글입니다. > 제목 : 시스템식 수정 부탁드려요 > 매번 감사드립니다. 매수 일봉상 볼린져밴드(20,2) 중심선 위에 위치 하고 중심선 각도가 상향 이고 30분봉상 스톡(20,10,10) K선이 20 돌파한상태 이고 틱봉화면에서 스톡 (60,2,2) K선이 30 돌파시 매수 청산 틱봉에서 스톡 K선이 80돌파시 청산 손절 틱봉에서 스톡k선이 30하락시 손절 매도 일봉상 볼린져밴드(20,2) 중심선 아래에 위치하고 중심선 각도가 하향이고 30분봉상 스톡(20,10,10) K선이 85 하락한 상태이고 틱봉화면에서 스톡 (60,2,2) K선이 80 하락시 매도 청산 틱봉에서 스톡 K선이 25 하락시 청산 손절 틱봉에서 스톡k선이 80 돌파시 손절