안녕하세요 예스스탁입니다. 1. Input : shortPeriod(10), longPeriod(20),CrossN(4); var : PriceOsc(0),cross(0),NP(0),preNP(0),dayPL(0); PriceOsc = OSCP(shortPeriod, longPeriod); NP = NetProfit; if dayindex == 0 Then{ cross = 0; PreNP = NP[1]; if PriceOsc > 0 Then buy(); if PriceOsc < 0 Then sell(); } dayPL = NP-preNP; if dayindex > 0 and dayPL > -2.5 and stime < 145500 Then{ if CrossUp(PriceOsc,0) Then{ cross = cross+1; if cross < CrossN Then buy(); Else ExitShort(); } if CrossDown(PriceOsc,0) Then{ cross = cross+1; if cross < CrossN then sell(); Else ExitLong(); } } SetStopEndofday(150400); 2. Input : s(26),r(12),CrossN(4); var : cross(0),NP(0),preNP(0),dayPL(0); var : TSIv(0),Mtm(0); Mtm = C-C[1]; var1 = ema(ema(Mtm,r),s); var2 = ema(ema(abs(Mtm),r),s); TSIv = (var1/var2)*1000; NP = NetProfit; if dayindex == 0 Then{ cross = 0; PreNP = NP[1]; if TSIv > 0 Then buy(); if TSIv < 0 Then sell(); } dayPL = NP-preNP; if dayindex > 0 and dayPL > -2.5 and stime < 145500 Then{ if CrossUp(TSIv,0) Then{ cross = cross+1; if cross < CrossN Then buy(); Else ExitShort(); } if CrossDown(TSIv,0) Then{ cross = cross+1; if cross < CrossN then sell(); Else ExitLong(); } } SetStopEndofday(150400); 3. Input : s(26),r(12),TSFP(14),map(10),crossN(4); var : NP(0),preNP(0),dayPL(0),cross(0); var : TSIv(0),Mtm(0),TSF(0),mav(0); Mtm = C-C[1]; var1 = ema(ema(Mtm,r),s); var2 = ema(ema(abs(Mtm),r),s); TSIv = (var1/var2)*1000; TSF = LRL(C,TSFP)+LRS(C,TSFP); mav = ma(c,map); NP = NetProfit; if dayindex == 0 Then{ PreNP = NP[1]; cross = 0; } dayPL = NP-preNP; if crossup(TSIv,0) or CrossDown(TSIv,0) Then cross = cross+1; if cross < crossN and daypl > -2.5 and stime < 145500 Then{ if TSIv > 0 and crossup(TSF,mav) Then buy(); if TSIv > 0 and TSF > mav Then buy("b",AtLimit,mav); if TSIv < 0 and CrossDown(TSF,mav) Then sell(); if TSIv < 0 and TSF < mav Then sell("s",AtLimit,mav); } if MarketPosition == 1 and (CrossDown(c,mav) or CrossDown(TSF,mav)) Then ExitLong(); if MarketPosition == 1 and CrossDown(TSIv,0) Then ExitLong(); if MarketPosition == -1 and (Crossup(c,mav) or Crossup(TSF,mav)) Then ExitLong(); if MarketPosition == -1 and Crossup(TSIv,0) Then ExitLong(); SetStopEndofday(150400); 즐거운 하루되세요 > 비류천 님이 쓴 글입니다. > 제목 : 부탁드립니다. > 1.Price Oscillator 가 장시작후 첫봉 완성시 0보다 크면 매수 -> 0 하향돌파하면 청산과 동시에 매도로 스위칭 (반복) 장시작후 첫봉 완성시 0보다 작으면 매도 -> 0 상향돌파하면 청산과 동시에 매도로 스위칭 (반복) 매매제한 : Price Oscillator 가 0을 상향이든 하향이든 돌파 4번이상 에서는 당일 매매제한 (마지막에 청산만 함) 당일 손실이 2.5P면 매매 중단 2시55분 전까지만 매매 신호 인정하며 2시55분 후에는 청산 신호만 인정 당일청산은 3시 4분 2.TSI (TSI 수식은 맨아래 참조) 장시작후 첫봉 완성시 0보다 크면 매수 -> 0 하향돌파하면 청산과 동시에 매도로 스위칭 (반복) 장시작후 첫봉 완성시 0보다 작으면 매도 -> 0 상향돌파하면 청산과 동시에 매도로 스위칭 (반복) 매매제한 : TSI가 0을 상향이든 하향이든 돌파 4번이상 햐면 당일 매매제한 (마지막에 청산만 함) 당일 손실이 2.5P면 매매 중단 2시55분 전까지만 매매 신호 인정하며 2시55분 후에는 청산 신호만 인정 당일청산은 3시 4분 3.TSI 응용(TSI 수식은 맨아래 참조) *매수 1) TSI > 0 and TSF < 이평선(10일) 이면 TSF(종가)가 이평선(10일)을 상향 돌파시 매수 2) TSI > 0 and TSF > 이평선(10일) 이면 캔들이 하향하여 이평선(5일) 터치(실시간,종가아님) 할때 매수 *매수청산 1)캔들(종가)와 TSF(종가)가 이평선(10일) 하향 돌파시 매수청산 2)TSI(종가)가 0을 하향돌파시 매수청산 *매도 1) TSI < 0 and TSF > 이평선(10일) 이면 TSF(종가)가 이평선(10일)을 하향 돌파시 매도 2) TSI < 0 and TSF < 이평선(10일) 이면 캔들이 상향하여 이평선(5일) 터치(실시간,종가아님) 할때 매도 *매도청산 1)캔들(종가)와 TSF(종가)가 이평선(10일) 상향 돌파시 매도청산 2)TSI(종가)가 0을 상향돌파시 매도청산 매매제한 : TSI가 0을 상향이든 하향이든 돌파 4번이상 햐면 당일 매매제한 (마지막에 청산만 함) 당일 손실이 2.5P면 매매 중단 2시55분 전까지만 매매 신호 인정하며 2시55분 후에는 청산 신호만 인정 당일청산은 3시 4분 ---TSI 수식------------------------ input : s(26),r(12); var : TSIv(0),Mtm(0); Mtm = C-C[1]; var1 = ema(ema(Mtm,r),s); var2 = ema(ema(abs(Mtm),r),s); TSIv = (var1/var2)*1000; plot1(TSIv,"TSI"); PlotBaseLine1(0,"0"); --------------------------------------------