커뮤니티
문의
2014-06-03 14:35:44
118
글번호 75571
아래 시스템수식과 일치하는 지표식을 부탁드립니다.
input : TDILen(20), TDiMinimum(0), SwingLen(0);
var : ii(0);
If CurrentBar >= TDILen * 2 - 1 then {
Var1 = close - close[TDILen - 1];
Var11 = abs(Var1);
Var2 = accumN(Var1, TDILen);
Var22 = abs(Var2);
Var3 = accumN(Var11, TDILen * 2);
Var33 = accumN(Var11, TDILen);
Var4 = Var22 + Var33 - Var3;
If Var4 > TDIMinimum then {
For ii = 0 To SwingLen - 1 begin
condition1 = Var4[SwingLen - ii] > Var4[SwingLen - ii - 1];
condition2 = Var4[SwingLen + ii] > Var4[SwingLen + ii + 1];
end;
If condition1 == True And condition2 == True then {
If Var2 > 0 then {
For ii = 0 To SwingLen - 1 begin
condition3 = Var2[SwingLen - ii] > Var2[SwingLen - ii - 1];
condition4 = Var2[SwingLen + ii] > Var2[SwingLen + ii + 1];
end;
If condition3 == True And condition4 == True then {
sell("매도", Atmarket);
}
}
If Var2 < 0 then {
For ii = 0 To SwingLen - 1 begin
condition5 = Var2[SwingLen - ii] < Var2[SwingLen - ii - 1];
condition6 = Var2[SwingLen + ii] < Var2[SwingLen + ii + 1];
end
If condition5 == True And condition6 == True then {
buy("매수", Atmarket);
}
}
}
}
}
답변 1
예스스탁 예스스탁 답변
2014-06-05 09:12:12
안녕하세요
예스스탁입니다.
수식에서 var4가 해당식의 기준지표값입니다.
input : TDILen(20), TDiMinimum(0), SwingLen(0);
var : ii(0);
If CurrentBar >= TDILen * 2 - 1 then {
Var1 = close - close[TDILen - 1];
Var11 = abs(Var1);
Var2 = accumN(Var1, TDILen);
Var22 = abs(Var2);
Var3 = accumN(Var11, TDILen * 2);
Var33 = accumN(Var11, TDILen);
Var4 = Var22 + Var33 - Var3;
plot1(var4);
}
즐거운 하루되세요
> 너무조아 님이 쓴 글입니다.
> 제목 : 문의
> 아래 시스템수식과 일치하는 지표식을 부탁드립니다.
input : TDILen(20), TDiMinimum(0), SwingLen(0);
var : ii(0);
If CurrentBar >= TDILen * 2 - 1 then {
Var1 = close - close[TDILen - 1];
Var11 = abs(Var1);
Var2 = accumN(Var1, TDILen);
Var22 = abs(Var2);
Var3 = accumN(Var11, TDILen * 2);
Var33 = accumN(Var11, TDILen);
Var4 = Var22 + Var33 - Var3;
If Var4 > TDIMinimum then {
For ii = 0 To SwingLen - 1 begin
condition1 = Var4[SwingLen - ii] > Var4[SwingLen - ii - 1];
condition2 = Var4[SwingLen + ii] > Var4[SwingLen + ii + 1];
end;
If condition1 == True And condition2 == True then {
If Var2 > 0 then {
For ii = 0 To SwingLen - 1 begin
condition3 = Var2[SwingLen - ii] > Var2[SwingLen - ii - 1];
condition4 = Var2[SwingLen + ii] > Var2[SwingLen + ii + 1];
end;
If condition3 == True And condition4 == True then {
sell("매도", Atmarket);
}
}
If Var2 < 0 then {
For ii = 0 To SwingLen - 1 begin
condition5 = Var2[SwingLen - ii] < Var2[SwingLen - ii - 1];
condition6 = Var2[SwingLen + ii] < Var2[SwingLen + ii + 1];
end
If condition5 == True And condition6 == True then {
buy("매수", Atmarket);
}
}
}
}
}