안녕하세요 예스스탁입니다. input : period(5),multiplier(1); var : src(0), AtrV(0),upperBand(0),lowerBand(0), prevLowerBand(0), prevUpperBand(0); var : prevSuperTrend(0), direction(0),alpha(0),source(0),SuperTrend(C); if CurrentBar > 1 Then { src = (H+L)/2; alpha = 1 / period ; source = max(high - low, abs(high - close[1]), abs(low - close[1])); ATrV = alpha * source + (1 - alpha) * ATrV[1]; //지수가중이평방식 //ATrV = ma(source,AtrPeriod); //단순이평방식 upperBand = src + multiplier * AtrV; lowerBand = src - multiplier * AtrV; prevLowerBand = lowerBand[1]; prevUpperBand = upperBand[1]; if lowerBand > prevLowerBand or close[1] < prevLowerBand Then lowerBand = lowerBand; Else lowerBand = prevLowerBand; if upperBand < prevUpperBand or close[1] > prevUpperBand Then upperBand = upperBand; Else upperBand = prevUpperBand; if C > UpperBand Then direction = 1; if C < LowerBand Then direction = -1; if direction == 1 Then SuperTrend = lowerband; Else SuperTrend = upperband; Plot1(SuperTrend,"SuperTrend",IFF(direction==1,Green,Black)); } var : box(0); Condition1 = C > SuperTrend; if Condition1 == true Then { if Condition1[1] == False Then { box = Box_New(sDate,sTime,H,NextBarSdate,NextBarStime,L); Box_SetColor(box,Yellow); Box_SetFill(box,true); Box_SetExtFill(box,true); } Else { Box_SetEnd(box,NextBarSdate,NextBarStime,l); } } 즐거운 하루되세요

안녕하세요 예스스탁입니다. var : MD(0),MDS(0),MD조건(False); var : STO(0),STOs(0),STO조건(False); var : DP(0),DM(0),AX(0),DPl(0),DMl(0),DM조건(False); var : PN(0),PNs(0),PN조건(False); var : TX(0),TXs(0),TX조건(False); var : 핸들A(0),핸들B(0),핸들DT(0),핸들DTs(0),핸들조건(false); var : RM(0),RM강세(False),조건a(False); MD=(ema(C,12)-ema(C,26))/C*100; MDs=(ema(MD,9))/C*100; MD조건=MD>=MDs && MD[1]<=MD; STO=StochasticsK(12,5); STOs=StochasticsD(12,5,5); STO조건=STO>=STOs && STO>=20; DP=DIPlus(11); DM=DIMinus(11); AX=ADX(11); DPl=Lowest(DP,9); DMl=Lowest(DM,9); DM조건=DP>DM && DM<=25; PN=PVI+NVI; PNs=ma(PN,9); PN조건=PN>PNs; TX=Trix(10); TXs=ema(TX, 5); TX조건=TX>TXs && TX[1]<=TX; 핸들A=100-(100/(1+EMA(EMA(EMA(iff((C-C[1])>0,(C-C[1]),0),9),9),9)/EMA(EMA(EMA(iff((C-C[1])<0,abs((C-C[1])),0),9),9),9))); 핸들B=100-(100/(1+EMA(EMA(iff((C-C[1])>0,(C-C[1]),0),9),9)/EMA(EMA(iff((C-C[1])<0,abs((C-C[1])),0),9),9))); 핸들DT=핸들B/핸들A*100; 핸들DTs=ema(핸들DT,9); 핸들조건=핸들DT>핸들DTs && 핸들DT>=100; RM = iff(ma(iff(c<c[5],(c[5]-c),0),11) <= 0,100,(100-(100/(1+((ma(iff(c>c[5],(c-c[5]),0),11))/ (ma(iff(c<c[5],(c[5]-c),0),11))))))); RM강세=RM>=80; 조건a = (iff(MD조건,1,0)+iff(STO조건,1,0)+iff(DM조건,1,0)+iff(PN조건,1,0)+iff(TX조건,1,0)+iff(핸들조건,1,0))>=2; var : box1(0); if 조건a == true Then { if 조건a[1] == False Then { box1 = Box_New(sDate,sTime,H,NextBarSdate,NextBarStime,L); Box_SetColor(box1,LightGreen); Box_SetFill(box1,true); Box_SetExtFill(box1,true); } Else { Box_SetEnd(box1,NextBarSdate,NextBarStime,l); } } if 조건a == False Then { if 조건a[1] == true Then { box1 = Box_New(sDate,sTime,H,NextBarSdate,NextBarStime,L); Box_SetColor(box1,Gray); Box_SetFill(box1,true); Box_SetExtFill(box1,true); } Else { Box_SetEnd(box1,NextBarSdate,NextBarStime,l); } } var : Am(0),Bm(0),Hm(0),As(0),Bs(0),Hs(0),제한(False); var : Hm조건(False),Hs조건(False),조건b(False); Am=wma(C,35/2); Bm=wma(C,35); Hm=wma(2*Am-Bm,floor(Sqrt(35))); As=wma(C,20/2); Bs=wma(C,20); Hs=wma(2*As-Bs,floor(Sqrt(20))); 제한=CountIf(CrossDown(Hs,Hm),10)<1; Hm조건=CrossUp(C,Hm) or C>Hm; Hs조건=(CrossUp(C,Hs) or C>Hs) && C>=O && 제한; 조건b = Hm조건 or Hs조건; var : box2(0); if 조건b == true Then { if 조건b[1] == False Then { box2 = Box_New(sDate,sTime,H,NextBarSdate,NextBarStime,L); Box_SetColor(box2,Green); Box_SetFill(box2,true); Box_SetExtFill(box2,true); } Else { Box_SetEnd(box2,NextBarSdate,NextBarStime,l); } } if 조건b == False Then { if 조건b[1] == true Then { box2 = Box_New(sDate,sTime,H,NextBarSdate,NextBarStime,L); Box_SetColor(box2,darkGray); Box_SetFill(box2,true); Box_SetExtFill(box2,true); } Else { Box_SetEnd(box2,NextBarSdate,NextBarStime,l); } } 즐거운 하루되세요