커뮤니티
문의 드립니다.
2020-05-24 07:07:47
2557
글번호 139126
안녕하세요
월봉,주봉,일봉의 고가 5 가중이동평균선과 저가 5 가중이동평균선을 분봉에
그리고 480분봉의 고가 5 가중이동평균선과 저가 5 가중이동평균선을 5분봉에
적용하고 싶습니다.
감사합니다.
답변 1
예스스탁 예스스탁 답변
2020-05-25 13:40:13
안녕하세요
예스스탁입니다.
1 월
input : P(5);
var : cnt(0),sum1(0),sum2(0),Csum(0),wma1(0),wma2(0);
Array : H1[100](0),L1[100](0);
if Bdate > Bdate[1]+30 Then
{
H1[0] = h;
L1[0] = l;
for cnt = 1 to 99
{
H1[cnt] = H1[cnt-1][1];
L1[cnt] = L1[cnt-1][1];
}
}
if h > H1[0] Then
h1[0] = h;
if l < l1[0] Then
l1[0] = l;
if L1[P] > 0 Then
{
Sum1 = 0;
Sum2 = 0;
CSum = 0;
For cnt = 0 To P - 1
{
Sum1 = Sum1 + H1[cnt] * (P - cnt);
Sum2 = Sum2 + L1[cnt] * (P - cnt);
CSum = CSum + P - cnt;
}
WMA1 = Sum1/CSum;
WMA2 = Sum2/CSum;
plot1(wma1);
plot2(wma2);
}
2 주
input : P(5);
var : cnt(0),sum1(0),sum2(0),Csum(0),wma1(0),wma2(0);
Array : H1[100](0),L1[100](0);
if DayOfWeek(Bdate) < DayOfWeek(Bdate[1]) Then
{
H1[0] = h;
L1[0] = l;
for cnt = 1 to 99
{
H1[cnt] = H1[cnt-1][1];
L1[cnt] = L1[cnt-1][1];
}
}
if h > H1[0] Then
h1[0] = h;
if l < l1[0] Then
l1[0] = l;
if L1[P] > 0 Then
{
Sum1 = 0;
Sum2 = 0;
CSum = 0;
For cnt = 0 To P - 1
{
Sum1 = Sum1 + H1[cnt] * (P - cnt);
Sum2 = Sum2 + L1[cnt] * (P - cnt);
CSum = CSum + P - cnt;
}
WMA1 = Sum1/CSum;
WMA2 = Sum2/CSum;
plot1(wma1);
plot2(wma2);
}
3 일
input : P(5);
var : cnt(0),sum1(0),sum2(0),Csum(0),wma1(0),wma2(0);
Sum1 = 0;
Sum2 = 0;
CSum = 0;
For cnt = 0 To P - 1
{
Sum1 = Sum1 + DayHigh(cnt) * (P - cnt);
Sum2 = Sum2 + daylow(cnt) * (P - cnt);
CSum = CSum + P - cnt;
}
WMA1 = Sum1/CSum;
WMA2 = Sum2/CSum;
plot1(wma1);
plot2(wma2);
4 분
input : ntime(480),P(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : sum1(0),sum2(0),Csum(0),wma1(0),wma2(0);
Array : H1[100](0),L1[100](0);
if Bdate != Bdate[1] Then{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
{
H1[0] = h;
L1[0] = l;
for cnt = 1 to 99
{
H1[cnt] = H1[cnt-1][1];
L1[cnt] = L1[cnt-1][1];
}
}
if h > H1[0] Then
h1[0] = h;
if l < l1[0] Then
l1[0] = l;
if L1[P] > 0 Then
{
Sum1 = 0;
Sum2 = 0;
CSum = 0;
For cnt = 0 To P - 1
{
Sum1 = Sum1 + H1[cnt] * (P - cnt);
Sum2 = Sum2 + L1[cnt] * (P - cnt);
CSum = CSum + P - cnt;
}
WMA1 = Sum1/CSum;
WMA2 = Sum2/CSum;
plot1(wma1);
plot2(wma2);
}
}
즐거운 하루되세요
> 동해바다01 님이 쓴 글입니다.
> 제목 : 문의 드립니다.
> 안녕하세요
월봉,주봉,일봉의 고가 5 가중이동평균선과 저가 5 가중이동평균선을 분봉에
그리고 480분봉의 고가 5 가중이동평균선과 저가 5 가중이동평균선을 5분봉에
적용하고 싶습니다.
감사합니다.