안녕하세요 예스스탁입니다. Inputs : Period(20), Sence(1.5), CC_DN(Yellow); Vars: VLineUp(0), VLineDn(0), HHighest(0), LLowest(0), JustChanged(FALSE), VLine(0), DBN(0); Array: Highs[35](0), Lows[35](0), RRange[35](0), UpWave[1](FALSE), DnWave[1](FALSE); input : P(20),dv(2); var : bbup(0),bbdn(0),T(0),S(0); 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)); #Plot1(VLineUp,"VLineUp"); end; if Highs[Var2] < Highs[Var3] then begin DnWave[1] = TRUE; LLowest = Lows[Var2]; VLineDn = LLowest + (Var5 * MA(Var6,Var2)); #Plot2(VLineDn,"VLineDn"); 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; S = VLineUp; } else if DnWave[1] then { T = -1; S = VLineDn; } end; bbup = BollBandUp(P,dv); bbdn = BollBandDown(P,dv); if MarketPosition == 0 and T == 1 and L > S Then Buy("b",AtLimit,S); if MarketPosition == 1 Then { ExitLong("bx1",AtLimit,bbup); if T == -1 Then ExitLong("bx2"); } if MarketPosition == 0 and T == -1 and H < S Then Sell("s",AtLimit,S); if MarketPosition == -1 Then { ExitShort("sx1",AtLimit,bbdn); if T == 1 Then ExitShort("sx2"); } 즐거운 하루되세요 > 아트정 님이 쓴 글입니다. > 제목 : 수식수정 > Inputs : Period(20), Sence(1.5), CC_DN(Yellow); Vars: VLineUp(0), VLineDn(0), HHighest(0), LLowest(0), JustChanged(FALSE), VLine(0), DBN(0); Array: Highs[35](0), Lows[35](0), RRange[35](0), UpWave[1](FALSE), DnWave[1](FALSE); input : P(20),dv(2); var : bbup(0),bbdn(0),T(0),S(0); 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)); #Plot1(VLineUp,"VLineUp"); end; if Highs[Var2] < Highs[Var3] then begin DnWave[1] = TRUE; LLowest = Lows[Var2]; VLineDn = LLowest + (Var5 * MA(Var6,Var2)); #Plot2(VLineDn,"VLineDn"); 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; S = VLineUp; } else if DnWave[1] then { T = -1; S = VLineDn; } end; bbup = BollBandUp(P,dv); bbdn = BollBandDown(P,dv); if T == 1 and L > S Then Buy("b",AtLimit,S); if MarketPosition == 1 Then ExitLong("bx",AtLimit,bbup); if T == -1 and H < S Then Sell("s",AtLimit,S); if MarketPosition == -1 Then ExitShort("sx",AtLimit,bbdn); 첨부 sw2 82217번에 있습니다 안녕하세요 위식에서 수정부탁드립니다 손절 기능 매수 진입후 sw2선이 음봉전환시. 매도 진입후 sw2선이 양봉전환시 현재는 매수 진입후 매수청산 매도진입이 바로됨 청산이나 손절후 조건이 맞을때만진입.(sw2선)