안녕하세요 예스스탁입니다. 1. Inputs : Period(20), Sence(1.5), CC_DN(Yellow),BBP(20); Vars: VLineUp(0), VLineDn(0), HHighest(0), LLowest(0), JustChanged(FALSE), VLine(0), DBN(0),T(0),mav(0); Array: Highs[35](0), Lows[35](0), RRange[35](0), UpWave[1](FALSE), DnWave[1](FALSE); If STime == 180000 Then DBN = 0; DBN = DBN + 1; Var1 = Period; Var2 = Var1 - 1; Var3 = Var1 - 2; Var5 = Sence; Var6 = H-L; JustChanged = FALSE; if CurrentBar <= Var2 then begin Highs[CurrentBar] = Close; Lows[CurrentBar] = Close; RRange[CurrentBar] = (H-L) /2; end; if CurrentBar == Var1 then begin if Highs[Var2] >= Highs[Var3] then begin UpWave[1] = TRUE; HHighest = Highs[Var2]; VLineUp = HHighest - (Var5 * MA(Var6,Var2)); end; if Highs[Var2] < Highs[Var3] then begin DnWave[1] = TRUE; LLowest = Lows[Var2]; VLineDn = LLowest + (Var5 * MA(Var6,Var2)); end; end; if CurrentBar > Var1 then begin if DnWave[1] and Close > VLineDn then begin DnWave[1] = FALSE; UpWave[1] = TRUE; JustChanged = TRUE; HHighest = Close; LLowest = 0; end; if UpWave[1] and Close < VLineUp and JustChanged == FALSE then begin UpWave[1] = FALSE; DnWave[1] = TRUE; JustChanged = TRUE; LLowest = Close; HHighest = 0; end; if JustChanged == FALSE then begin if Close > HHighest then HHighest = Close; else if Close < LLowest then LLowest = Close; end; VLineUp = HHighest - (Var5 * MA(Var6,Var2)); VLineDn = LLowest + (Var5 * MA(Var6,Var2)); if UpWave[1] then T = 1; else if DnWave[1] then T = -1; end; if T == -1 and T != T[1] Then{ value1 = index; value2 = C; value3 = L; } if T == -1 Then{ if L < value3 Then value3 = L; } if T == 1 and T != T[1] Then{ value4 = index; value5 = C; value6 = H; } if T == 1 Then{ if H > value6 Then value6 = H; } mav= ma(C,BBP); if T == 1 and T != T[1] and index >= value1+5 and value3 <= value2*0.99 and C > mav Then buy(); if T == -1 and T != T[1] and index >= value4+5 and value6 >= value5*1.01 and C <mav Then sell(); 2 Inputs : Period(20), Sence(1.5), CC_DN(Yellow); Vars: VLineUp(0), VLineDn(0), HHighest(0), LLowest(0), JustChanged(FALSE), VLine(0), DBN(0),T(0); Array: Highs[35](0), Lows[35](0), RRange[35](0), UpWave[1](FALSE), DnWave[1](FALSE); If STime == 180000 Then DBN = 0; DBN = DBN + 1; Var1 = Period; Var2 = Var1 - 1; Var3 = Var1 - 2; Var5 = Sence; Var6 = H-L; JustChanged = FALSE; if CurrentBar <= Var2 then begin Highs[CurrentBar] = Close; Lows[CurrentBar] = Close; RRange[CurrentBar] = (H-L) /2; end; if CurrentBar == Var1 then begin if Highs[Var2] >= Highs[Var3] then begin UpWave[1] = TRUE; HHighest = Highs[Var2]; VLineUp = HHighest - (Var5 * MA(Var6,Var2)); end; if Highs[Var2] < Highs[Var3] then begin DnWave[1] = TRUE; LLowest = Lows[Var2]; VLineDn = LLowest + (Var5 * MA(Var6,Var2)); end; end; if CurrentBar > Var1 then begin if DnWave[1] and Close > VLineDn then begin DnWave[1] = FALSE; UpWave[1] = TRUE; JustChanged = TRUE; HHighest = Close; LLowest = 0; end; if UpWave[1] and Close < VLineUp and JustChanged == FALSE then begin UpWave[1] = FALSE; DnWave[1] = TRUE; JustChanged = TRUE; LLowest = Close; HHighest = 0; end; if JustChanged == FALSE then begin if Close > HHighest then HHighest = Close; else if Close < LLowest then LLowest = Close; end; VLineUp = HHighest - (Var5 * MA(Var6,Var2)); VLineDn = LLowest + (Var5 * MA(Var6,Var2)); if UpWave[1] then T = 1; else if DnWave[1] then T = -1; end; if T == -1 and T != T[1] Then{ value1 = index; value2 = C; value3 = L; } if T == -1 Then{ if L < value3 Then value3 = L; } if T == 1 and T != T[1] Then{ value4 = index; value5 = C; value6 = H; } if T == 1 Then{ if H > value6 Then value6 = H; } if T == 1 and T != T[1] and index >= value1+5 and value3 <= value2*0.99 Then buy(); if T == -1 and T != T[1] and index >= value4+5 and value6 >= value5*1.01 Then sell(); 즐거운 하루되세요 > 아트정 님이 쓴 글입니다. > 제목 : 수식의뢰 > 수고많으심니다 수식 부탁드립니다 오일 일봉기준입니다 수식1 매수 sw2선(1.5) 음선발생후 5봉이상 하락 (단 가격변동폭- 1%이상)후 상승하여 sw2선이 양선전환+볼밴 이평선( 중앙)위에서 종가형성 매도 sw2선(1.5) 양선발생후 5봉이상 상승(가격변동폭 +1%이상)후 하락 하여 sw2선 음선전환+볼밴 중심선 밑에종가형성 수식2 볼밴삭제조건 첨부 3월21일자 작성=sw2