안녕하세요, 예스스탁 입니다.복잡한 수식 공부 없이 여러분의 아이디어를 말하면 시스템 트레이딩 언어 예스랭귀지로 작성해주는 서비스예스나 AI(YesNa AI)가 출시되었습니다.지금 예스나 AI를 직접 경험해 보실 수 있도록 20크레딧(질문권 20회)를 무료로 증정해 드리고 있습니다.바로 여러분의 아이디어를 코드로 변환해보세요.--------------------------------------------------🚀 YesNa AI 핵심 기능- 지표식/전략식/종목검색식 생성: 자연어로 요청하면 예스랭귀지 문법에 맞는 코드를 작성합니다.- 종목검색식 변환 지원: K증권의 종목 검색식을 예스랭귀지로 변환 지원합니다.- 컴파일 검증: 작성된 코드가 실행 가능한지 컴파일러를 통해 문법 검증을 거쳐 결과물을 제공합니다.상세한 서비스 개요 및 활용 방법은 [서비스 소개 페이지]에서 확인하실 수 있습니다.▶ 서비스 소개 페이지: 바로가기서비스 사용 유의사항 및 결제 환불정책은 [이용약관]을 참고 부탁드립니다.▶ 서비스 이용약관: 바로가기💬 이용 문의사용 중 문의사항은 [프로그램 사용법 Q&A] 게시판에서 [예스나 AI] 카테고리를 설정 후 문의해 주시면 상세히 안내해 드리겠습니다.--------------------------------------------------앞으로도 AI를 활용한 다양한 트레이딩 기능들을 지속적으로 선보일 예정입니다.많은 관심과 기대 부탁드립니다.

아래 수식을 하나의 수식으로 작성 부탁드립니다. 매매시간내에 data1. 기준에 따라 매매 되며 data2의 3, 4 번의 조건 충족시 매수진입되도록 원합니다. 예시) 매수진입 형식 If (data2의 sb < MD[0] and superTrend < C ) and CountIF(Close < BBBot, Bars) == Bars Then Buy("B", AtStop, BBBot); 1. 매매시간설정. 9시 10분에 매매시작 15시 까지 매수 진입 허용됨. 15시 이전에 진입한 포지션은 15시 15분까지 Exitlong 신호 발생시 청산됨. 15시 15분까지 Exitlong 신호 발생하지않으면 15시 15분에 당일청산 됨. input : starttime(91000),endtime(150000),XTime(151500); var : Tcond(false); if (sdate != sdate[1] and stime >= starttime) or (sdate == sdate[1] and stime >= starttime and stime[1] < starttime) then { Tcond = true; } if (sdate != sdate[1] and stime >= endtime) or (sdate == sdate[1] and stime >= endtime and stime[1] < endtime) then { Tcond = false; } if Tcond == true then { 2. data1.신호에 매매 Inputs: Length(9), StdDev(2), Bars(2); Variables: BBTop(0),BBBot(0); BBTop = BollBandup(Length, StdDev); BBBot = BollBanddown(Length, StdDev); If CountIF(Close < BBBot, Bars) == Bars Then Buy("B", AtStop, BBBot); If CountIF(Close > BBTop, Bars) == Bars Then Exitlong("Ex", AtStop, BBTop); 3. 아래 지표 data2 의 sb < MD[0] 일 때 매수진입 됨. input : 타주기분(5),long(60),sig(9),P(9); var : S1(0),D1(0),TM(0),TF(0),cnt(0),ii(0),ep(0); var : hsum(0),lsum(0),hma(0),lma(0),hi(0),lo(0),hi1(0),lo1(0); var : Ema1(0),Ema2(0),Ema11(0),Ema21(0),mi(0),sum(0),sb(0),sh(0),mdc(0); Array : HH[100](0),LL[100](0),CC[100](0),src[100](0),md[100](Nan); ep = 2/(long+1); if Bdate != Bdate[1] Then { S1 = TimeToMinutes(stime); D1 = sdate; } if D1 > 0 then { if sdate == D1 Then TM = TimeToMinutes(stime)-S1; Else TM = TimeToMinutes(stime)+1440-S1; TF = TM%타주기분; if Bdate != Bdate[1] or (Bdate == Bdate[1] and 타주기분 > 1 and TF < TF[1]) or (Bdate == Bdate[1] and 타주기분 > 1 and TM >= TM[1]+타주기분) or (Bdate == Bdate[1] and 타주기분 == 1 and TM > TM[1]) Then { ii = ii+1; For cnt = 99 DownTo 1 { hh[cnt] = hh[cnt-1]; ll[cnt] = ll[cnt-1]; src[cnt] = src[cnt-1]; md[cnt] = md[cnt-1]; } hh[0] = h; ll[0] = l; hi1 = hi[1]; lo1 = lo[1]; Ema11 = Ema1[1]; Ema21 = Ema2[1]; } cc[0] = c; if hh[0] > 0 and h > hh[0] Then hh[0] = h; if ll[0] > 0 and l < ll[0] Then ll[0] = l; src[0] = (hh[0]+ll[0]+cc[0])/3; if src[long-1] > 0 Then { if src[long] == 0 Then { hsum = 0; lsum = 0; For cnt = 0 to long-1 { hsum = hsum + hh[cnt]; lsum = lsum + ll[cnt]; } hi = (hsum/long)/long; lo = (lsum/long)/long; } Else { hi = (hi1*(long-1)+hh[0])/long; lo = (lo1*(long-1)+ll[0])/long; } } if ii <= 1 Then { ema1 = src[0]; ema2 = ema1; } Else { ema1 = src[0] * EP + Ema11 * (1-EP); ema2 = ema1 * EP + Ema21 * (1-EP); } mi = ema1+(ema1-ema2); md[0] = iff((mi>hi), (mi-hi) , iff((mi<lo) , (mi - lo) , 0)); if md[sig-1] > 0 Then { sum = 0; For cnt = 0 to sig-1 { sum = sum + md[cnt]; } sb = sum/sig; sh = md[0]-sb; } 4.아래 지표가 data2 의 superTrend < C 일 때 매수진입 됨. input : ntime(5),factor(3), AtrPeriod(10); var : S1(0),D1(0),TM(0),TF(0),HH(0),LL(0),C1(0); var : src(0), AtrV(0),ATRv1(0),upperBand(0),lowerBand(0), prevLowerBand(0), prevUpperBand(0); var : prevSuperTrend(0), superTrend(0), direction(0),alpha(0),source(0); if Bdate != Bdate[1] Then { S1 = TimeToMinutes(stime); D1 = sdate; } if D1 > 0 then { if sdate == D1 Then TM = TimeToMinutes(stime)-S1; Else TM = TimeToMinutes(stime)+1440-S1; TF = TM%ntime; if Bdate != Bdate[1] or (Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or (Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or (Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then { HH = H; LL = L; C1 = C[1]; ATRV1 = ATRV[1]; prevSuperTrend = superTrend[1]; prevLowerBand = lowerBand[1]; prevUpperBand = upperBand[1]; } if H > HH Then HH = H; if L < LL Then LL = L; src = (HH+LL)/2; if C1 > 0 Then { alpha = 1 / AtrPeriod ; source = max(HH - LL, abs(HH - C1), abs(LL - C1)); ATrV = alpha * source + (1 - alpha) * ATrV1; upperBand = src + factor * AtrV; lowerBand = src - factor * AtrV; if lowerBand > prevLowerBand or C1 < prevLowerBand Then lowerBand = lowerBand; Else lowerBand = prevLowerBand; if upperBand < prevUpperBand or C1 > prevUpperBand Then upperBand = upperBand; Else upperBand = prevUpperBand; if prevSuperTrend == prevUpperBand Then { if C > upperBand Then direction = -1; Else direction = 1; } Else { if C < lowerBand Then direction = 1; Else direction = -1; } if direction == -1 Then superTrend = lowerBand; Else superTrend = upperBand;

빠른답변 감사합니다 1. 진입수량10주단위로 진입식부탁드립니다, 2.진입금액이 처음만 적용되고2번부터는증액이안된것도있습니다. 진입금액에번호를붙여주세요.1번째 진입금액=첫진입금액. 2번진입금액=1번금액+(1번금액*A%) 3번진입금액=2번진입금액+(2번금액*A%)4번진입금액=3번진입금액+(3번진입금액*A%)..이런식으로부탁드립니다 3.data1중복진입이 안되네요.시스템식에서 체크하면 될수있도록부탁드립니다 늘감사드립니다~ > 예스스탁 님이 쓴 글입니다. > 제목 : Re : 문의드립니다, > 안녕하세요 예스스탁입니다. 1 inputs : P1(5),P2(20),RSILength(10), OverSold(30),OverBought(70); input : 첫진입금액(1000000),A(10); var : m1(0,Data2),m2(0,Data2), R(0,Data1); var : TT(0,Data1),T1(0,Data1),entry(0,Data1),mm(0,data1),vol(0,Data1); m1 = Data2(ma(C,P1)); m2 = Data2(ma(C,P2)); R = data1(RSI(RSILength)); TT = TotalTrades; if Data1(Bdate != Bdate[1]) Then { T1 = TT[1]; } entry = (TT-T1)+IFF(MarketPosition == 0,0,1); If MarketPosition <= 0 and Data2(m1 > m2) and Crossup(R, OverSold) Then { if entry == 0 Then mm = 첫진입금액; Else mm = mm*(1+A/100); Buy("B",OnClose,Def,Floor(mm/C)); } if Data2(CrossDown(m1,m2)) or Crossup(R, OverBought) Then Sell("S"); 2 inputs : P1(5),P2(20),RSILength(10), OverSold(30),OverBought(70); input : 첫진입금액(1000000),A(10),B(20); var : m1(0,Data2),m2(0,Data2), R(0,Data1); var : TT(0,Data1),T1(0,Data1),entry(0,Data1),mm(0,data1),vol(0,Data1); m1 = Data2(ma(C,P1)); m2 = Data2(ma(C,P2)); R = data1(RSI(RSILength)); TT = TotalTrades; if Data1(Bdate != Bdate[1]) Then { T1 = TT[1]; } entry = (TT-T1)+IFF(MarketPosition == 0,0,1); If MarketPosition <= 0 and Data2(m1 > m2) and Crossup(R, OverSold) Then { if entry == 0 Then mm = 첫진입금액; Else { if EntryPrice(1) > C Then mm = mm*(1+B/100); Else mm = mm*(1+A/100); } Buy("B",OnClose,Def,Floor(mm/C)); } if Data2(CrossDown(m1,m2)) or Crossup(R, OverBought) Then Sell("S");

input : 크기(10); var : box(0),tx(0); if Bdate != Bdate[1] Then { var1 = O; box = Box_New(sDate,sTime,var1,NextBarSdate,NextBarStime,var1); Box_SetFill(box,true); } Else { Box_SetEnd(box,sDate,Stime,C); if C >= var1+크기 or C <= var1-크기 Then { var1 = C; box = Box_New(sDate,sTime,var1,NextBarSdate,NextBarStime,var1); Box_SetFill(box,true); } } Box_SetColor(box,IFf(C > var1,Red,IFf(C<var1,Blue,Green))); -------------------- 당일용이 아닌것으로 하나 더 부탁드립니다 만들어봤는데 안되네요 감사합니다

안녕하세요 파인스크립트 지표입니다 예스랭귀지로 바꿔주시면 감사하겠습니다 부탁드립니다 study("Divergences v2.1 [LTB]", overlay=true) calcmacd = input(true, title="MACD") calcmacda = input(true, title="MACD Histogram") calcrsi = input(true, title="RSI") calcstoc = input(true, title="Stochastic") calccci = input(true, title="CCI") calcmom = input(true, title="Momentum") calcobv = input(true, title="OBV") calcdi = input(true, title="Diosc") calcvwmacd = input(true, title="VWmacd") calccmf = input(true, title="Chaikin Money Flow") showhidden = input(false, title="Show Hidden Divergences") htime = period == '1' ? '5' : period == '3' ? '15' : period == '5' ? '15' : period == '15' ? '60' : period == '30' ? '60' : period == '45' ? '60' : period == '60' ? '240' : period == '120' ? '240' : period == '180' ? '240' : period == '240' ? 'D' : period == 'D' ? 'W' : 'W' _highestbars(ind) => highest = high hb = 0 for i = 1 to ind if highest < high[i] highest := high[i] hb := i hb _lowestbars(ind) => lowest = low lb = 0 for i = 1 to ind if lowest > low[i] lowest := low[i] lb := i lb TopsBots(tb) => tUp = close >= open tDown = close <= open dir = tUp[1] and tDown ? -1 : tDown[1] and tUp ? 1 : nz(dir[1]) TopsBots = tb == 1 ? tUp[1] and tDown and dir[1] != -1 ? highest(2) : na : tDown[1] and tUp and dir[1] != 1 ? lowest(2) : na bb = nz(bb[1]) + 1 bb := change(time(htime)) != 0 ? 1 : bb maxb = bb > nz(maxb[1]) ? bb : nz(maxb[1]) tops = bb==maxb ? security(tickerid, htime, TopsBots(1)) : na bots = bb==maxb ? security(tickerid, htime, TopsBots(-1)) : na // RSI rsi = rsi(close, 14) // MACD fastMA = ema(close, 8) slowMA = ema(close, 16) macd = fastMA - slowMA signal = sma(macd, 11) deltamacd = macd - signal // Momentum moment = mom(close, 10) // CCI cci = cci(close, 10) // OBV obv = cum(change(close) > 0 ? volume : change(close) < 0 ? -volume : 0 * volume) // Stoch stk = sma(stoch(close, high, low, 14), 3) // DIOSC DI = change(high) - (-change(low)) trur = rma(tr, 14) diosc = fixnan(100 * rma(DI, 14) / trur) // volume weighted macd maFast = vwma(close, 12) maSlow = vwma(close, 26) vwmacd = maFast - maSlow // Chaikin money flow Cmfm = ((close-low) - (high-close)) / (high - low) Cmfv = Cmfm * volume cmf = sma(Cmfv, 21) / sma(volume,21) hib = _highestbars(maxb*2 - 1) t2 = nz(t2[1]) + 1 divt = white divth = white if (not na(tops) or (na(tops) and _highestbars(t2+1) == 0)) t1 = na(tops) ? 0 : hib divt := (calcrsi ? ((rsi[t1] < rsi[t2] and high[t1] >= high[t2]) ? red : divt) : divt) divt := (calcmacd ? ((macd[t1] < macd[t2] and high[t1] >= high[t2]) ? red : divt) : divt) divt := (calcmacda ? ((deltamacd[t1] < deltamacd[t2] and high[t1] >= high[t2]) ? red : divt) : divt) divt := (calcmom ? ((moment[t1] < moment[t2] and high[t1] >= high[t2]) ? red : divt) : divt) divt := (calccci ? ((cci[t1] < cci[t2] and high[t1] >= high[t2]) ? red : divt) : divt) divt := (calcobv ? ((obv[t1] < obv[t2] and high[t1] >= high[t2]) ? red : divt) : divt) divt := (calcstoc ? ((stk[t1] < stk[t2] and high[t1] >= high[t2]) ? red : divt) : divt) divt := (calcdi ? ((diosc[t1] < diosc[t2] and high[t1] >= high[t2]) ? red : divt) : divt) divt := (calcvwmacd ? ((vwmacd[t1] < vwmacd[t2] and high[t1] >= high[t2]) ? red : divt) : divt) divt := (calccmf ? ((cmf[t1] < cmf[t2] and high[t1] >= high[t2]) ? red : divt) : divt) //hidden divth := (calcrsi ? ((rsi[t1] > rsi[t2] and high[t1] < high[t2]) ? gray : divth) : divth) divth := (calcmacd ? ((macd[t1] > macd[t2] and high[t1] < high[t2]) ? gray : divth) : divth) divth := (calcmacda ? ((deltamacd[t1] > deltamacd[t2] and high[t1] < high[t2]) ? gray : divth) : divth) divth := (calcmom ? ((moment[t1] > moment[t2] and high[t1] < high[t2]) ? gray : divth) : divth) divth := (calccci ? ((cci[t1] > cci[t2] and high[t1] < high[t2]) ? gray : divth) : divth) divth := (calcobv ? ((obv[t1] > obv[t2] and high[t1] < high[t2]) ? gray : divth) : divth) divth := (calcstoc ? ((stk[t1] > stk[t2] and high[t1] < high[t2]) ? gray : divth) : divth) divth := (calcdi ? ((diosc[t1] > diosc[t2] and high[t1] < high[t2]) ? gray : divth) : divth) divth := (calcvwmacd ? ((vwmacd[t1] > vwmacd[t2] and high[t1] < high[t2]) ? gray : divth) : divth) divth := (calccmf ? ((cmf[t1] > cmf[t2] and high[t1] < high[t2]) ? gray : divth) : divth) if (not na(tops)) t2 := hib lob = _lowestbars(maxb*2 - 1) b2 = nz(b2[1]) + 1 b1 = 0 divb = white divbh = white if (not na(bots) or (na(bots) and _lowestbars(b2+1) == 0)) b1 := na(bots) ? 0 : lob divb := (calcrsi ? ((rsi[b1] > rsi[b2] and low[b1] <= low[b2]) ? lime : divb) : divb) divb := (calcmacd ? ((macd[b1] > macd[b2] and low[b1] <= low[b2]) ? lime : divb) : divb) divb := (calcmacda ? ((deltamacd[b1] > deltamacd[b2] and low[b1] <= low[b2]) ? lime : divb) : divb) divb := (calcmom ? ((moment[b1] > moment[b2] and low[b1] <= low[b2]) ? lime : divb) : divb) divb := (calccci ? ((cci[b1] > cci[b2] and low[b1] <= low[b2]) ? lime : divb) : divb) divb := (calcobv ? ((obv[b1] > obv[b2] and low[b1] <= low[b2]) ? lime : divb) : divb) divb := (calcstoc ? ((stk[b1] > stk[b2] and low[b1] <= low[b2]) ? lime : divb) : divb) divb := (calcdi ? ((diosc[b1] > diosc[b2] and low[b1] <= low[b2]) ? lime : divb) : divb) divb := (calcvwmacd ? ((vwmacd[b1] > vwmacd[b2] and low[b1] <= low[b2]) ? lime : divb) : divb) divb := (calccmf ? ((cmf[b1] > cmf[b2] and low[b1] <= low[b2]) ? lime : divb) : divb) //hidden divbh := (calcrsi ? ((rsi[b1] < rsi[b2] and low[b1] > low[b2]) ? gray : divbh) : divbh) divbh := (calcmacd ? ((macd[b1] < macd[b2] and low[b1] > low[b2]) ? gray : divbh) : divbh) divbh := (calcmacda ? ((deltamacd[b1] < deltamacd[b2] and low[b1] > low[b2]) ? gray : divbh) : divbh) divbh := (calcmom ? ((moment[b1] < moment[b2] and low[b1] > low[b2]) ? gray : divbh) : divbh) divbh := (calccci ? ((cci[b1] < cci[b2] and low[b1] > low[b2]) ? gray : divbh) : divbh) divbh := (calcobv ? ((obv[b1] < obv[b2] and low[b1] > low[b2]) ? gray : divbh) : divbh) divbh := (calcstoc ? ((stk[b1] < stk[b2] and low[b1] > low[b2]) ? gray : divbh) : divbh) divbh := (calcdi ? ((diosc[b1] < diosc[b2] and low[b1] > low[b2]) ? gray : divbh) : divbh) divbh := (calcvwmacd ? ((vwmacd[b1] < vwmacd[b2] and low[b1] > low[b2]) ? gray : divbh) : divbh) divbh := (calccmf ? ((cmf[b1] < cmf[b2] and low[b1] > low[b2]) ? gray : divbh) : divbh) if (not na(bots)) b2 := lob plot(tops, color = divt != white ? divt : na, linewidth = 3, offset = -3) plot(tops, color = divth != white and showhidden ? divth : na, linewidth = 1, offset = -3) plotshape(na(tops) and divt==red, style=shape.labeldown, color=red, location=location.abovebar, transp=20) plot(bots, color = divb != white ? divb : na, linewidth = 3, offset = -3) plot(bots, color = divbh != white and showhidden ? divbh : na, linewidth = 1, offset = -3) plotshape(na(bots) and divb==lime, style=shape.labelup, color=lime, location=location.belowbar, transp=20) buy = (divb == lime) sell = (divt == red) alertcondition(buy, title='Buy', message='Positive Divergence. Buy Signal') alertcondition(sell, title='Sell', message='Negative Divergence. Sell Signal')

1 진입에 따라서 다른 청산식을 만들고싶습니다 A 진입 A 청산1 종가가 진입가격대비 5% 하락시 청산 A 청산2 TS 2% 이상 수익시 1% 하락시 청산 B 진입 B 청산1 종가가 진입가격대비 1% 하락시 청산 B 청산2 TS 9% 이상 수익시 2% 하락시 청산 2 1분 차트에서 0봉일(당일) 5분간 누적거래대금의 지표 0901-0905 누적거래대금 1봉일전(1일전) 5분간 누적거래대금의 지표 0901-0905 누적거래대금 2봉일전(2일전) 5분간 누적거래대금의 지표 0901-0905 누적거래대금 3봉일전(3일전) 5분간 누적거래대금의 지표 0901-0905 누적거래대금 4봉일전(4일전) 5분간 누적거래대금의 지표 0901-0905 누적거래대금 5봉일전(5일전) 5분간 누적거래대금의 지표 0901-0905 누적거래대금 1봉일전~ 5봉일전 지표중 최대값을 뽑고싶습니다 감사합니다

아래의 트레이딩뷰수식을 변환부탁드립니다. 1 ================ nATRPeriod = input(5) nATRMultip = input(3.5) xATR = atr(nATRPeriod) nLoss = nATRMultip * xATR xATRTrailingStop = iff(close > nz(xATRTrailingStop[1], 0) and close[1] > nz(xATRTrailingStop[1], 0), max(nz(xATRTrailingStop[1]), close - nLoss), iff(close < nz(xATRTrailingStop[1], 0) and close[1] < nz(xATRTrailingStop[1], 0), min(nz(xATRTrailingStop[1]), close + nLoss), iff(close > nz(xATRTrailingStop[1], 0), close - nLoss, close + nLoss))) pos = iff(close[1] < nz(xATRTrailingStop[1], 0) and close > nz(xATRTrailingStop[1], 0), 1, iff(close[1] > nz(xATRTrailingStop[1], 0) and close < nz(xATRTrailingStop[1], 0), -1, nz(pos[1], 0))) color = pos == -1 ? red: pos == 1 ? green : blue plot(xATRTrailingStop, color=color, title="ATR Trailing Stop") ================== 2. ================= ractalPeriods = input(title="Fractal Periods", defval=2, minval=1, type=integer) bullFractal = pivothigh(fractalPeriods, fractalPeriods) bearFractal = pivotlow(fractalPeriods, fractalPeriods) plotchar(bullFractal?true:na, title="Bull Fractal", location=location.abovebar, offset=-fractalPeriods, color=green, transp=0, size=size.tiny, char='&#11165;') plotchar(bearFractal?true:na, title="Bear Fractal", location=location.belowbar, offset=-fractalPeriods, color=red, transp=0, size=size.tiny, char="&#11167;") ====================== 감사합니다. 수고하세요!!!

넘버, 92581문의 답변주신 내용중 진입부분적용은 정상적으로 적용은 됐읍니다 청산 부분이 이전로직과같은 진입봉으로 되었읍니다 청산은 스탑로스와 data봉으로 청산은 하려합니다 data2,3 중에 macd지표상에 0선 상관없이 macd와 시그널선이 골든데드크로스 발생시 매수 및 매도청산으로 수정이 미반영돼었읍니다 수정부탁드립니다 파일 첨부합니다 감사합니다

안녕하세요! 아래 수식은 며칠전 92556번 질문에 대해 주신 답변수식입니다 이 수식을 적용해보니 상승세로선은 연장선까지도 잘 발생이되나 하락세로선이 연장선이 발생되지않고 있습니다 수고스러우시겠지만 한번더 검토 부탁드립니다 감사합니다 --------------------------------------------------------------------------------- Input : short(12), long(26), signal(9),굵기(5); input : 텍스트출력(0),선굵기(5),상승세로선색(cyan),하락세로선색(green),세로선굵기(4); Var : MACDV(0) , MACDS(0),T(0),vtl(0); var : HIV(0),HID(0),HIT(0),HIV1(0),HID1(0),HIT1(0); var : HPV(0),HPD(0),HPT(0),HPV1(0),HPD1(0),HPT1(0); var : LIV(0),LID(0),LIT(0),LIV1(0),LID1(0),LIT1(0); var : LPV(0),LPD(0),LPT(0),LPV1(0),LPD1(0),LPT1(0); var : TL1(0),TL2(0); MACDV = MACD(short, long); MACDS = ema(MACDV,signal); if crossup(MACDV,MACDS) Then { T = 1; HIV = MACDV; HID = sdate; HIT = stime; HIV1 = HIV[1]; HID1 = HID[1]; HIT1 = HIT[1]; HPV = L; HPD = sdate; HPT = stime; HPV1 = HPV[1]; HPD1 = HPD[1]; HPT1 = HPT[1]; Condition1 = false; } if CrossDown(MACDV,MACDS) Then { T = -1; LIV = MACDV; LID = sdate; LIT = stime; LIV1 = LIV[1]; LID1 = LID[1]; LIT1 = LIT[1]; LPV = L; LPD = sdate; LPT = stime; LPV1 = LPV[1]; LPD1 = LPD[1]; LPT1 = LPT[1]; Condition2 = false; } if T == 1 Then { if MACDV > HIV Then { HIV = MACDV; HID = sdate; HIT = stime; } if H > HPV Then { HPV = H; HPD = sdate; HPT = stime; } if Condition1 == false and HPV1 > 0 and HPV > HPV1 and HIV < HIV1 Then { TL1 = TL_New(HPD1,HPT1,HPV1,HPD,HPT,HPV); TL2 = TL_New_Self(HID1,HIT1,HIV1,HID,HIT,HIV); TL_SetColor(TL1,blue); TL_SetColor(TL2,red); TL_SetSize(TL1,굵기); TL_SetSize(TL2,굵기); Condition1 = true; PlaySound("C:￦예스트레이더(X64)￦data￦Sound￦.wav"); vtl = TL_New(sDate,sTime,0,sdate,sTime,999999999); TL_SetColor(vtl,하락세로선색); TL_SetSize(vtl,세로선굵기); } if Condition1 == true then { if HPV > HPV1 and HIV < HIV1 then { TL_SetEnd(TL1,HPD,HPT,HPV); TL_SetEnd(TL2,HID,HIT,HIV); TL_SetBegin(vtl,LPD,LPT,0); TL_SetEnd(vtl,LPD,LPT,999999999); PlaySound("C:￦예스트레이더(X64)￦data￦Sound￦.wav"); } Else { TL_Delete(TL1); TL_Delete(TL2); TL_Delete(Vtl); } } } if T == -1 Then { if MACDV < LIV Then { LIV = MACDV; LID = sdate; LIT = stime; } if L < LPV Then { LPV = L; LPD = sdate; LPT = stime; } if Condition2 == false and LPV1 > 0 and LPV < LPV1 and LIV > LIV1 Then { TL1 = TL_New(LPD1,LPT1,LPV1,LPD,LPT,LPV); TL2 = TL_New_Self(LID1,LIT1,LIV1,LID,LIT,LIV); TL_SetColor(TL1,red); TL_SetColor(TL2,blue); TL_SetSize(TL1,굵기); TL_SetSize(TL2,굵기); PlaySound("C:￦예스트레이더(X64)￦data￦Sound￦.wav"); vtl = TL_New(sDate,sTime,0,sdate,sTime,999999999); TL_SetColor(vtl,상승세로선색); TL_SetSize(vtl,세로선굵기); Condition2 = true; } if Condition2 == true then { if LPV < LPV1 and LIV > LIV1 then { TL_SetEnd(TL1,LPD,LPT,LPV); TL_SetEnd(TL2,LID,LIT,LIV); TL_SetBegin(vtl,LPD,LPT,0); TL_SetEnd(vtl,LPD,LPT,999999999); PlaySound("C:￦예스트레이더(X64)￦data￦Sound￦.wav"); } Else { TL_Delete(TL1); TL_Delete(TL2); TL_Delete(Vtl); } } } plot1(MACDV); plot2(MACDS);