커뮤니티
부탁드립니다
2020-11-01 20:36:33
770
글번호 143548
분봉에서 일봉가중이평5 주봉가중이평5 월봉가중이평5 지표 부탁합니다
항상 많은도움주셔서 감사합니다
답변 1
예스스탁 예스스탁 답변
2020-11-02 14:19:26
안녕하세요
예스스탁입니다.
1 일
Input : Period(20);
Var : Sum(0), Counter(0), CSum(0),DayWMA(0);
Sum = 0;
CSum = 0;
For counter = 0 To Period - 1 Begin
Sum = Sum + DayClose(counter) * (Period - counter);
CSum = CSum + Period - counter;
End;
If CSum > 0 Then
DayWMA = Sum / CSum;
Else
DayWMA = 0;
plot1(DayWMA);
2 주
input : Period(20);
var : cnt(0);
Var : Sum1(0),CSum1(0),WMA1(0);
Array : CC[100](0);
if DayOfWeek(Bdate) < DayOfWeek(Bdate[1]) Then
{
for cnt = 1 to 99
{
CC[cnt] = CC[cnt-1][1];
}
}
CC[0] = C;
if CC[Period-1] > 0 Then
{
Sum1 = 0;
CSum1 = 0;
For cnt = 0 To Period - 1 Begin
Sum1 = Sum1 + CC[cnt] * (Period - cnt);
CSum1 = CSum1 + Period - cnt;
End;
If CSum1 > 0 Then
WMA1 = Sum1/CSum1;
Else
WMA1 = 0;
plot1(wma1);
}
3 월
input : Period(20);
var : cnt(0);
Var : Sum1(0),CSum1(0),WMA1(0);
Array : CC[100](0);
if Bdate > Bdate[1]+30 Then
{
for cnt = 1 to 99
{
CC[cnt] = CC[cnt-1][1];
}
}
CC[0] = C;
if CC[Period-1] > 0 Then
{
Sum1 = 0;
CSum1 = 0;
For cnt = 0 To Period - 1 Begin
Sum1 = Sum1 + CC[cnt] * (Period - cnt);
CSum1 = CSum1 + Period - cnt;
End;
If CSum1 > 0 Then
WMA1 = Sum1/CSum1;
Else
WMA1 = 0;
plot1(wma1);
}
즐거운 하루되세요
> 커피한잔 님이 쓴 글입니다.
> 제목 : 부탁드립니다
>
분봉에서 일봉가중이평5 주봉가중이평5 월봉가중이평5 지표 부탁합니다
항상 많은도움주셔서 감사합니다
다음글
이전글