커뮤니티
지표문의드립니다.
2016-05-10 19:00:20
119
글번호 97924
ADX 지표식 풀이를 알고 싶습니다.
예스랭귀지 사용자 함수를 봐도 제 실력이 너무 미천해서 적용하기가 어렵네요.
예를 들어서 macd를 보조지표로 띄우고
macd값으로 ADX에 넣어서 보조지표를 만들고 싶습니다.
그러려니 adx 지표의 풀이식이 너무너무 필요합니다.
답변 1
예스스탁 예스스탁 답변
2016-05-11 17:41:59
안녕하세요
예스스탁입니다.
Inputs: Length(14);
Var : Counter(0), CummDMI(0), Return(0),ADXV(0);
Var : DMIP(0), DMIM(0),DMIV(0),CB(0);
Var : TRange(0),PlusDM14(0), PlusDM(0), MinusDM(0),DIPlusv(0),DIMinusv(0),MinusDM14(0);
CB = CurrentBar;
If CB == 1 Then {
DIPlusv = 0;
PlusDM14 = 0;
DIMinusv = 0;
MinusDM14 = 0;
TRange = 0;
For Counter = 0 To Length - 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
DIPlusv = 100 * PlusDM14 / TRange;
Else
DIPlusv = 0 ;
If TRange <> 0 Then
DIMinusv = 100 * MinusDM14 / TRange;
Else
DIMinusv = 0;
}
Else If index+1 > Length 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 Length > 0 Then {
TRange = TRange - (TRange / Length) + TrueRange;
PlusDM14 = PlusDM14 - (PlusDM14 / Length) + PlusDM;
MinusDM14 = MinusDM14 - (MinusDM14 / Length) + MinusDM;
}
If TRange <> 0 Then {
DIPlusv = 100 * PlusDM14 / TRange;
DIMinusv = 100 * MinusDM14 / TRange;
}
Else {
DIPlusv = 0 ;
DIMinusv = 0;
}
}
If DIPlusv + DIMinusv == 0 Then
DMIv = 0;
Else
DMIv = 100 * AbsValue(DIPlusv - DIMinusv) / (DIPlusv + DIMinusv);
Return = 0;
DMIV = DMI(Length);
If CB >= 1 AND Length > 0 Then Begin
If CurrentBar < Length Then begin
CummDMI = 0;
for Counter = 0 To CB - 1 Begin
CummDMI = CummDMI + DMIV[Counter];
End;
Return = CummDMI / CB;
End
Else
Return = (ADXv * (Length - 1) + DMIv) / Length;
End;
ADXv = Return;
plot1(ADXv);
즐거운 하루되세요
> 한글나라 님이 쓴 글입니다.
> 제목 : 지표문의드립니다.
> ADX 지표식 풀이를 알고 싶습니다.
예스랭귀지 사용자 함수를 봐도 제 실력이 너무 미천해서 적용하기가 어렵네요.
예를 들어서 macd를 보조지표로 띄우고
macd값으로 ADX에 넣어서 보조지표를 만들고 싶습니다.
그러려니 adx 지표의 풀이식이 너무너무 필요합니다.