Input : Length(14) ;

Var : Counter(0), TRange(0), MyRange(Length);

var : PlusDM14(0),MinusDM14(0),PlusDM(0), MinusDM(0);

var : DP(0),DM(0);

If CurrentBar == 1 Then

{

MyRange = Length;

DP = 0;

PlusDM14 = 0;

MinusDM14 = 0;

TRange = 0;

For Counter = 0 To MyRange - 1

{

If High[Counter] - High[Counter+1] < 0 Then

PlusDM = 0;

Else

PlusDM = High[Counter] - High[Counter+1];

If Low[Counter+1] - Low[Counter] < 0 Then

MinusDM = 0;

Else

MinusDM = Low[Counter+1] - Low[Counter];

var1 = PlusDM;

var2 = MinusDM;

If var2 >= var1 Then

PlusDM = 0;

If var1 >= var2 Then

MinusDM = 0;

TRange = TRange + TrueRange[Counter];

PlusDM14 = PlusDM14 + PlusDM;

MinusDM14 = MinusDM14 + MinusDM;

}

If TRange <> 0 Then

{

DP = 100 * PlusDM14 / TRange;

DM = 100 * MinusDM14 / TRange;

}

Else

{

DP = 0 ;

DM = 0;

}

}

Else If CurrentBar > 1 Then

{

If High[0] - High[1] < 0 Then

PlusDM = 0;

Else

PlusDM = High[0] - High[1];

If Low [1] - Low [0] < 0 Then

MinusDM = 0;

Else

MinusDM = Low[1] - Low[0];

var1 = PlusDM;

var2 = MinusDM;

If var2 >= var1 Then

PlusDM = 0;

If var1 >= var2 Then

MinusDM = 0;

If MyRange > 0 Then

{

TRange = TRange[1] - (TRange[1] / MyRange) + TrueRange;

PlusDM14 = PlusDM14[1] - (PlusDM14[1] / MyRange) + PlusDM;

MinusDM14 = MinusDM14[1] - (MinusDM14[1] / MyRange) + MinusDM;

}

If TRange <> 0 Then

{

DP = 100 * PlusDM14 / TRange;

DM = 100 * MinusDM14 / TRange;

}

Else

{

DP = 0;

DM = 0;

}

}

(DP,"DI+"); "출력을 삼각형표시 및 수치 필요합니다 (plot 사용하지않음)"

(DM,"DI-");"출력을 삼각형표시및 수치 필요합니다 (plot 사용하지않음)"