커뮤니티
분합성해서 이동평균선 구하는 식좀 부탁드려요...
2016-03-03 11:36:37
148
글번호 95959
수고가 많으세요....
예를들어서 60분차트로 분합성해서 240분 종몯검색하는 프로그램을 짜고싶은데요....
합성하고나서 이동평균선 구하는 식좀 알려주셨으면 합니다....예를들어서 240분 차트에서 3봉전 시고저 4이평선 5이평선을 구하는 식이요....
번거로우시겠지만 꼭좀 부탁드려용
답변 1
예스스탁 예스스탁 답변
2016-03-03 13:13:10
안녕하세요
예스스탁입니다.
아래 내용 참고하시기 바랍니다.
input : Atime(240),P1(4),P2(5),N(3);#240분봉의 4/5이동평균
var : cnt(0),TF(0);
var : Osum1(0),Hsum1(0),Lsum1(0),Csum1(0),sum1(0);
var : Osum2(0),Hsum2(0),Lsum2(0),Csum2(0),sum2(0);
Array : OO[100](0),HH[100](0),LL[100](0),CC[100](0);
Array : Oma1[100](0),Hma1[100](0),Lma1[100](0),Cma1[100](0),ma1[100](0);
Array : Oma2[100](0),Hma2[100](0),Lma2[100](0),Cma2[100](0),ma2[100](0);
TF = TimeToMinutes(stime)%Atime;
if Bdate != Bdate[1] or (TF < TF[1] and Bdate == Bdate[1]) Then{
OO[0] = O;
HH[0] = O;
LL[0] = O;
for cnt = 1 to 99{
OO[cnt] = OO[cnt-1][1];
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
CC[cnt] = CC[cnt-1][1];
Oma1[cnt] = Oma1[cnt-1][1];
Hma1[cnt] = Hma1[cnt-1][1];
Lma1[cnt] = Lma1[cnt-1][1];
Cma1[cnt] = Cma1[cnt-1][1];
ma1[cnt] = ma1[cnt-1][1];
Oma2[cnt] = Oma2[cnt-1][1];
Hma2[cnt] = Hma2[cnt-1][1];
Lma2[cnt] = Lma2[cnt-1][1];
Cma2[cnt] = Cma2[cnt-1][1];
ma2[cnt] = ma2[cnt-1][1];
}
}
CC[0] = C;
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
Osum1 = 0;
Hsum1 = 0;
Lsum1 = 0;
Csum1 = 0;
sum1 = 0;
Osum2 = 0;
Hsum2 = 0;
Lsum2 = 0;
Csum2 = 0;
sum2 = 0;
for cnt = 0 to P2{
if cnt < P1 then{
Osum1 = Osum1+OO[cnt];
Hsum1 = Hsum1+HH[cnt];
Lsum1 = Lsum1+LL[cnt];
Csum1 = Csum1+CC[cnt];
sum1 = sum1 + (OO[cnt]+HH[cnt]+LL[cnt])/3;
}
if cnt < P2 then{
Osum2 = Osum2+OO[cnt];
Hsum2 = Hsum2+HH[cnt];
Lsum2 = Lsum2+LL[cnt];
Csum2 = Csum2+CC[cnt];
sum2 = sum2 + (OO[cnt]+HH[cnt]+LL[cnt])/3;
}
}
Oma1[0] = Osum1/P1;
Hma1[0] = Hsum1/P1;
Lma1[0] = Lsum1/P1;
Cma2[0] = Csum1/P1;
ma1[0] = sum1/P1;
Oma2[0] = Osum2/P2;
Hma2[0] = Hsum2/P2;
Lma2[0] = Lsum2/P2;
Cma2[0] = Csum2/P2;
ma2[0] = sum2/P2;
if Oma1[N] > 0 then{
plot1(Oma1[N],"다른분봉 n봉전 P1시가이평");
plot2(Hma1[N],"다른분봉 n봉전 P1고가이평");
plot3(Lma1[N],"다른분봉 n봉전 P1저가이평");
plot4(Cma1[N],"다른분봉 n봉전 P1종가이평");
plot5(ma1[N],"다른분봉 n봉전 P1시고저이평");
}
if Oma2[N] > 0 then{
plot6(Oma2[N],"다른분봉 n봉전 P2시가이평");
plot7(Hma2[N],"다른분봉 n봉전 P2고가이평");
plot8(Lma2[N],"다른분봉 n봉전 P2저가이평");
plot9(Cma2[N],"다른분봉 n봉전 P2종가이평");
plot10(ma2[N],"다른분봉 n봉전 P2시고저이평");
}
즐거운 하루되세요
> 노스텔 님이 쓴 글입니다.
> 제목 : 분합성해서 이동평균선 구하는 식좀 부탁드려요...
> 수고가 많으세요....
예를들어서 60분차트로 분합성해서 240분 종몯검색하는 프로그램을 짜고싶은데요....
합성하고나서 이동평균선 구하는 식좀 알려주셨으면 합니다....예를들어서 240분 차트에서 3봉전 시고저 4이평선 5이평선을 구하는 식이요....
번거로우시겠지만 꼭좀 부탁드려용