커뮤니티
지표식 부탁드립니다.
2010-04-01 21:51:07
868
글번호 29096
항상 감사드립니다.
일봉의 TSI지표를 60분봉에서 표시하고 싶습니다.
부탁드립니다.
답변 1
예스스탁 예스스탁 답변
2010-04-02 10:21:41
안녕하세요
예스스탁입니다.
Input : R(4),S(8),U(6),SMTHLEN(3);
var : DINDEX1(0),TSIv(0),TSIs(0),Ep44(0),PreJISU44(0);
Var : Ep1(0), JISU1(0), PreJISU1(0), Ep11(0), JISU11(0), PreJISU11(0);
Var : Ep2(0), JISU2(0), PreJISU2(0), Ep22(0), JISU22(0), PreJISU22(0);
Var : Ep3(0), JISU3(0), PreJISU3(0), Ep33(0), JISU33(0), PreJISU33(0);
Ep1 = 2/(R+1);
Ep2 = 2/(S+1);
Ep3 = 2/(U+1);
Ep11 = 2/(R+1);
Ep22 = 2/(S+1);
Ep33 = 2/(U+1);
Ep44 = 2/(SMTHLEN+1);
if date != date[1] then {
DINDEX1= DINDEX1 + 1;
if DINDEX1 >= 2 Then
PreJISU1 = JISU1[1];
if DINDEX1 >= 3 Then
PreJISU2 = JISU2[1];
if DINDEX1 >= 4 Then
PreJISU3 = JISU3[1];
if DINDEX1 >= 2 Then
PreJISU11 = JISU11[1];
if DINDEX1 >= 3 Then
PreJISU22 = JISU22[1];
if DINDEX1 >= 4 Then
PreJISU33 = JISU33[1];
if DINDEX1 >= 5 Then
PreJISU44 = TSIs[1];
}
if DINDEX1 <= 2 then
JISU1 = DayClose-DayClose(1);
else
JISU1 = (DayClose-DayClose(1)) * EP1 + PreJISU1 * (1-EP1);
if DINDEX1 <= 3 then
JISU2 = JISU1;
else
JISU2 = JISU1 * EP2 + PreJISU2 * (1-EP2);
if DINDEX1 <= 4 then
JISU3 = JISU2 ;
else
JISU3 = JISU2 * EP3 + PreJISU3 * (1-EP3);
if DINDEX1 <= 2 then
JISU11 = abs(DayClose-DayClose(1));
else
JISU11 = (abs(DayClose-DayClose(1))) * EP11 + PreJISU11 * (1-EP11);
if DINDEX1 <= 3 then
JISU22 = JISU11;
else
JISU22 = JISU11 * EP22 + PreJISU22 * (1-EP22);
if DINDEX1 <= 4 then
JISU33 = JISU22 ;
else
JISU33 = JISU22 * EP33 + PreJISU33 * (1-EP33);
Value1 = 100 * JISU3;
Value2 = JISU33;
If Value2 <> 0 then
TSIv = Value1 / Value2;
Else
TSIv = 0;
if DINDEX1 <= 5 then
TSIs = TSIv;
else
TSIs = TSIV * EP44 + PreJISU44 * (1-EP44);
plot1(TSIv);
plot2(TSIs);
지수이평이 봉갯수에 영향을 받으므로
분봉에서 일봉의 내용을 구현하여
수치가 다소 다를 수 있습니다.
참고하시기 바랍니다.
즐거운 하루되세요
> pareter 님이 쓴 글입니다.
> 제목 : 지표식 부탁드립니다.
>
항상 감사드립니다.
일봉의 TSI지표를 60분봉에서 표시하고 싶습니다.
부탁드립니다.
이전글