커뮤니티
타주기 이평선 구하기
2015-05-07 10:39:41
193
글번호 85792
항상 신속하고 상세하게 답변 주셔서 많은 도움을 받고 있습니다.
선물 5분봉에
15분봉의 Tema이평 20ma
30분봉의 Tema이평 20ma
60분봉의 Tema이평 20ma를 출력하고 싶습니다.
참조데이터로 여러개를 넣으니 좀 많이 버벅거리네요
tema = ema(ema(ema(c,Period),Period),Period)
답변 1
예스스탁 예스스탁 답변
2015-05-07 15:13:08
안녕하세요
예스스탁입니다.
Input : ntime1(15),ntime2(30),ntime3(60),Period(20);
Var : Ep(0), TF1(0),TF2(0),TF3(0);
var : idx1(0),idx2(0),idx3(0);
var : JISU11(0),JISU12(0),JISU13(0),TEMA1(0);
var : PreJISU11(0),PreJISU12(0),PreJISU13(0);
var : JISU21(0),JISU22(0),JISU23(0),TEMA2(0);
var : PreJISU21(0),PreJISU22(0),PreJISU23(0);
var : JISU31(0),JISU32(0),JISU33(0),TEMA3(0);
var : PreJISU31(0),PreJISU32(0),PreJISU33(0);
Ep = 2/(Period+1);
TF1 = TimeToMinutes(stime)%ntime1;
TF2 = TimeToMinutes(stime)%ntime2;
TF3 = TimeToMinutes(stime)%ntime3;
if dayindex == 0 or (TF1 < TF1[1] and stime > stime[1]) or stime == 151500 then{
idx1 = idx1 + 1;
PreJISU11 = JISU11[1];
PreJISU12 = JISU12[1];
PreJISU13 = JISU13[1];
}
if idx1 <= 1 then{
JISU11 = C;
JISU12 = JISU11;
JISU13 = JISU12;
TEMA1 = JISU13;
}
else{
JISU11 = C * EP + PreJISU11 * (1-EP);
JISU12 = JISU11 * EP + PreJISU12 * (1-EP);
JISU13 = JISU12 * EP + PreJISU13 * (1-EP);
TEMA1 = JISU13;
}
if dayindex == 0 or (TF2 < TF2[1] and stime > stime[1]) then{
idx2 = idx2 + 1;
PreJISU21 = JISU21[1];
PreJISU22 = JISU22[1];
PreJISU23 = JISU23[1];
}
if idx2 <= 1 then{
JISU21 = C;
JISU22 = JISU21;
JISU23 = JISU22;
TEMA2 = JISU23;
}
else{
JISU21 = C * EP + PreJISU21 * (1-EP);
JISU22 = JISU21 * EP + PreJISU22 * (1-EP);
JISU23 = JISU22 * EP + PreJISU23 * (1-EP);
TEMA2 = JISU23;
}
if dayindex == 0 or (TF3 < TF3[1] and stime > stime[1]) then{
idx3 = idx3 + 1;
PreJISU31 = JISU31[1];
PreJISU32 = JISU32[1];
PreJISU33 = JISU33[1];
}
if idx3 <= 1 then{
JISU31 = C;
JISU32 = JISU31;
JISU33 = JISU32;
TEMA3 = JISU33;
}
else{
JISU31 = C * EP + PreJISU31 * (1-EP);
JISU32 = JISU31 * EP + PreJISU32 * (1-EP);
JISU33 = JISU32 * EP + PreJISU33 * (1-EP);
TEMA3 = JISU33;
}
plot1(tema1,"15분 20TEMA");
plot2(tema2,"30분 20TEMA");
plot3(tema3,"60분 20TEMA");
즐거운 하루되세요
> 이글루 님이 쓴 글입니다.
> 제목 : 타주기 이평선 구하기
>
항상 신속하고 상세하게 답변 주셔서 많은 도움을 받고 있습니다.
선물 5분봉에
15분봉의 Tema이평 20ma
30분봉의 Tema이평 20ma
60분봉의 Tema이평 20ma를 출력하고 싶습니다.
참조데이터로 여러개를 넣으니 좀 많이 버벅거리네요
tema = ema(ema(ema(c,Period),Period),Period)