커뮤니티
지표식 부탁드립니다.
2013-11-14 12:53:24
126
글번호 69476
adx에서 +di, -di를 출력하는 지표식 부탁드립니다.
풀어쓴 지표식이요...
해당되는 내장 함수를 풀어쓴 지표식 말씀드려요
답변 1
예스스탁 예스스탁 답변
2013-11-14 14:57:17
안녕하세요
예스스탁입니다.
Inputs: Length(14) ;
Var : Counter(0), TRange(0), MyRange(Length), PlusDM14(0), PlusDM(0), MinusDM(0),DPlus(0);
var : MinusDM14(0),DMinus(0);
If CurrentBar == 1 Then {
MyRange = Length;
Dplus = 0;
PlusDM14 = 0;
TRange = 0;
DMinus = 0;
MinusDM14 = 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];
If MinusDM >= PlusDM Then
PlusDM = 0;
If PlusDM >= MinusDM Then
MinusDM = 0;
TRange = TRange + TrueRange[Counter];
PlusDM14 = PlusDM14 + PlusDM;
MinusDM14 = MinusDM14 + MinusDM;
}
If TRange <> 0 Then
Dplus = 100 * PlusDM14 / TRange;
Else
Dplus = 0 ;
If TRange <> 0 Then
DMinus = 100 * MinusDM14 / TRange;
Else
DMinus = 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] ;
If MinusDM >= PlusDM Then
PlusDM = 0;
If PlusDM >= MinusDM 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
Dplus = 100 * PlusDM14 / TRange;
Else
Dplus = 0 ;
If TRange <> 0 Then
DMinus = 100 * MinusDM14 / TRange;
Else
DMinus = 0;
}
plot1(DPlus);
plot2(DMinus);
즐거운 하루되세요
> 한글나라 님이 쓴 글입니다.
> 제목 : 지표식 부탁드립니다.
> adx에서 +di, -di를 출력하는 지표식 부탁드립니다.
풀어쓴 지표식이요...
해당되는 내장 함수를 풀어쓴 지표식 말씀드려요