커뮤니티
부탁드립니다.
2013-11-03 19:32:32
134
글번호 69160
수고많으십니다.
다음 일봉의 지표를 분봉에서 보고자 합니다.
period=10,period2=10,sm=5
A=avg(2*wavg(C, Period2/2) - wavg(C, Period2), Sqrt(Period2));
eavg(A, Sm);
항상감사드립니다.
답변 1
예스스탁 예스스탁 답변
2013-11-04 14:48:41
안녕하세요
예스스탁입니다.
Input : Period(10),Period2(10),sm(5);
Var : cnt(0),Counter1(0),Csum1(0),iSum1(0),DayWMA1(0),Sum(0),mav(0);
var : Counter2(0),Csum2(0),iSum2(0),DayWMA2(0),daycnt(0),ep(0),emav(0),preema(0);
sum = 0;
for cnt = 0 to Floor(Sqrt(Period2))-1{
CSum1 = 0;
ISum1 = 0;
For counter1 = 0 To (Period2/2) - 1 Begin
CSum1 = CSum1 + (DayClose(counter1+cnt) * ((Period2/2) - counter1));
ISum1 = ISum1 + ((Period2/2) - counter1);
End;
DayWMA1 = CSum1 / ISum1;
CSum2 = 0;
ISum2 = 0;
For counter2 = 0 To Period2 - 1 Begin
CSum2 = CSum2 + DayClose(counter2+cnt) * (Period2 - counter2);
ISum2 = ISum2 + Period2 - counter2;
End;
DayWMA2 = CSum2 / ISum2;
sum = sum + (daywma1*2-daywma2);
}
mav = sum/round(Sqrt(Period2),0);
Ep = 2/(sm+1);
if mav > 0 and date != date[1] Then{
daycnt = daycnt+1;
preema = emav[1];
}
if daycnt <= 1 Then
emav = mav;
Else
emav = mav * EP + preema * (1-EP);
plot1(emav);
즐거운 하루되세요
> 빈둥빈둥 님이 쓴 글입니다.
> 제목 : 부탁드립니다.
> 수고많으십니다.
다음 일봉의 지표를 분봉에서 보고자 합니다.
period=10,period2=10,sm=5
A=avg(2*wavg(C, Period2/2) - wavg(C, Period2), Sqrt(Period2));
eavg(A, Sm);
항상감사드립니다.