*아래지표 수식을 예스 종목검색으로 요청드립니다..

항상 도움주셔서 감사합니다...^^*

input : short_l1(5);

input : short_l2(20);

input : short_l3(15);

input : long_l1(20);

input : long_l2(15);

var : shortTermXtrender(0),longTermXtrender(0);

var : shortXtrenderCol(0),maShortTermXtrender(0),colShortTermXtrender(0);

var : longXtrenderCol(0),macollongXtrenderCol(0),tx(0);

Function RSIvalue Numeric

{

Inputs: value(Numeric),Length(NumericSimple);

Variables: Counter(0), DownAmt(0), UpAmt(0), UpSum(0), 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 = value[Counter] - value[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 = value[0] - value[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

RSIvalue = 100 * UpAvg / (UpAvg + DownAvg);

Else

RSIvalue = 0;

}

EndFunction

Function T3 Numeric

{

Inputs: src(Numeric),len(Numeric);

var : xe1_1(0),xe2_1(0),xe3_1(0),xe4_1(0),xe5_1(0),xe6_1(0);

var : b_1(0),c1_1(0),c2_1(0),c3_1(0),c4_1(0);

xe1_1 = ema(src, len);

xe2_1 = ema(xe1_1, len);

xe3_1 = ema(xe2_1, len);

xe4_1 = ema(xe3_1, len);

xe5_1 = ema(xe4_1, len);

xe6_1 = ema(xe5_1, len);

b_1 = 0.7;

c1_1 = -b_1*b_1*b_1;

c2_1 = 3*b_1*b_1+3*b_1*b_1*b_1;

c3_1 = -6*b_1*b_1-3*b_1-3*b_1*b_1*b_1;

c4_1 = 1+3*b_1+b_1*b_1*b_1+3*b_1*b_1;

T3 = c1_1 * xe6_1 + c2_1 * xe5_1 + c3_1 * xe4_1 + c4_1 * xe3_1;

}

EndFunction

shortTermXtrender = RSIvalue(ema(close, short_l1) - ema(close, short_l2), short_l3 ) - 50;

longTermXtrender = RSIvalue(ema(close, long_l1), long_l2 ) - 50;

shortXtrenderCol = iff(shortTermXtrender > 0 , iff(shortTermXtrender > shortTermXtrender[1] , lime , Green),

iff(shortTermXtrender > shortTermXtrender[1] , red ,DarkRed));

plot1(shortTermXtrender, "B-Xtrender Osc. - Histogram",shortXtrenderCol);

maShortTermXtrender = t3( shortTermXtrender , 5 );

colShortTermXtrender = IFf( maShortTermXtrender > maShortTermXtrender[1] , lime , red);

plot2(maShortTermXtrender,"B-Xtrender Shadow",Black);

plot3(maShortTermXtrender,"B-Xtrender Color",colShortTermXtrender);

if maShortTermXtrender > maShortTermXtrender[1] and maShortTermXtrender[1] < maShortTermXtrender[2] Then

{

tx = Text_New_Self(sDate,sTime,maShortTermXtrender,"●");

Text_SetStyle(tx,2,2);

Text_SetColor(tx,Lime);

}

if maShortTermXtrender < maShortTermXtrender[1] and maShortTermXtrender[1] > maShortTermXtrender[2] Then

{

tx = Text_New_Self(sDate,sTime,maShortTermXtrender,"●");

Text_SetStyle(tx,2,2);

Text_SetColor(tx,Red);

}

longXtrenderCol = iff(longTermXtrender> 0 , IFf(longTermXtrender > longTermXtrender[1] , lime , Green) ,

IFf(longTermXtrender > longTermXtrender[1] , red , DarkRed));

macollongXtrenderCol = iff(longTermXtrender > longTermXtrender[1] , lime , red);

plot4(longTermXtrender ,"B-Xtrender Trend - Histogram",longXtrenderCol);

plot5(longTermXtrender ,"B-Xtrender Trend - Line", Black);

plot6(longTermXtrender ,"B-Xtrender Trend - Line", macollongXtrenderCol);