커뮤니티
부탁드립니다.
2016-03-09 15:06:24
76
글번호 96118
안녕하세요.
분봉에서 일봉 가중 이동평균선(5,20,60,120,240) 지표식 부탁드립니다.
수고하세요
답변 1
예스스탁 예스스탁 답변
2016-03-09 20:15:34
안녕하세요
예스스탁입니다.
Input : P1(10),P2(20),P3(60),P4(120),P5(240);
Var : cnt(0);
var : Sum1(0),CSum1(0),DayWMA1(0);
var : Sum2(0),CSum2(0),DayWMA2(0);
var : Sum3(0),CSum3(0),DayWMA3(0);
var : Sum4(0),CSum4(0),DayWMA4(0);
var : Sum5(0),CSum5(0),DayWMA5(0);
Sum1 = 0;
CSum1 = 0;
Sum2 = 0;
CSum2 = 0;
Sum3 = 0;
CSum3 = 0;
Sum4 = 0;
CSum4 = 0;
Sum5 = 0;
CSum5 = 0;
For cnt = 0 To P5 {
if DayClose(P1-1) > 0 and cnt < P1 Then{
Sum1 = Sum1 + DayClose(cnt) * (P1 - cnt);
CSum1 = CSum1 + P1 - cnt;
}
if DayClose(P2-1) > 0 and cnt < P2 Then{
Sum2 = Sum2 + DayClose(cnt) * (P2 - cnt);
CSum2 = CSum2 + P2 - cnt;
}
if DayClose(P3-1) > 0 and cnt < P3 Then{
Sum3 = Sum3 + DayClose(cnt) * (P3 - cnt);
CSum3 = CSum3 + P3 - cnt;
}
if DayClose(P4-1) > 0 and cnt < P4 Then{
Sum4 = Sum4 + DayClose(cnt) * (P4 - cnt);
CSum4 = CSum4 + P4 - cnt;
}
if DayClose(P5-1) > 0 and cnt < P5 Then{
Sum5 = Sum5 + DayClose(cnt) * (P5 - cnt);
CSum5 = CSum5 + P5 - cnt;
}
}
if DayClose(P1-1) > 0 then{
DayWMA1 = Sum1 / CSum1;
plot1(DayWMA1);
}
if DayClose(P2-1) > 0 then{
DayWMA2 = Sum2 / CSum2;
plot2(DayWMA2);
}
if DayClose(P3-1) > 0 then{
DayWMA3 = Sum3 / CSum3;
plot3(DayWMA3);
}
if DayClose(P4-1) > 0 then{
DayWMA4 = Sum4 / CSum4;
plot4(DayWMA4);
}
if DayClose(P5-1) > 0 then{
DayWMA5 = Sum5 / CSum5;
plot5(DayWMA5);
}
즐거운 하루되세요
> 괌 님이 쓴 글입니다.
> 제목 : 부탁드립니다.
> 안녕하세요.
분봉에서 일봉 가중 이동평균선(5,20,60,120,240) 지표식 부탁드립니다.
수고하세요