안녕하세요 예스스탁입니다. input: fastEmaPeriod(5); input: slowEmaPeriod(20); Function _RSI { Input : Price(Numeric),Length(NumericSimple); var : Counter(0), DownAmt(0), UpAmt(0), UpSum(0); var : DownSum(0), UpAvg(0), DownAvg(0); If CurrentBar == 1 AND Length > 0 Then Begin UpSum = 0; DownSum = 0; For Counter = 0 To Length - 1 Begin UpAmt = Price[Counter] - Price[Counter+1]; If UpAmt >= 0 Then DownAmt = 0; Else Begin DownAmt = -UpAmt; UpAmt = 0; End; UpSum = UpSum + UpAmt; DownSum = DownSum + DownAmt; End; UpAvg = UpSum / Length; DownAvg = DownSum / Length; End Else If CurrentBar > 1 AND Length > 0 Then Begin UpAmt = Price[0] - Price[1]; If UpAmt >= 0 Then DownAmt = 0; Else Begin DownAmt = -UpAmt; UpAmt = 0; End; UpAvg = (UpAvg[1] * (Length - 1) + UpAmt) / Length; DownAvg = (DownAvg[1] * (Length - 1) + DownAmt) / Length; End; If UpAvg + DownAvg <> 0 Then _RSI = 100 * UpAvg / (UpAvg + DownAvg); Else _RSI = 0; } EndFunction Function triple_ema { input : src(Numeric),time_period(Numeric); var : Ema1(0),Ema2(0),Ema3(0); ema1 = _rsi(src, time_period); ema2 = _rsi(ema1, time_period); ema3 = _rsi(ema2, time_period); triple_ema = 0.0; triple_ema = 3 * (ema1 - ema2) + ema3; } EndFunction var : fastTEMA(0),slowTEMA(0); fastTEMA = triple_ema(high,fastEmaPeriod); slowTEMA = triple_ema(low,slowEmaPeriod); plot1(fastTEMA, "fast TEMA",blue); plot2(slowTEMA, "slow TEMA",red); 즐거운 하루되세요