커뮤니티
수식문의
2015-03-24 22:45:09
123
글번호 84351
월5,10,20,60이평과
주5,10,20,60이평을 즉 총 8개의 이평선을 일봉상에 나타내고자 합니다.
답변 1
예스스탁 예스스탁 답변
2015-03-25 13:00:40
안녕하세요
예스스탁입니다.
input : P1(5),P2(10),P3(20),P4(60);
var : cnt(0),count(0);
var : wsum1(0),wmav1(0);
var : wsum2(0),wmav2(0);
var : wsum3(0),wmav3(0);
var : wsum4(0),wmav4(0);
var : msum1(0),mmav1(0);
var : msum2(0),mmav2(0);
var : msum3(0),mmav3(0);
var : msum4(0),mmav4(0);
array : WeekC[100](0),MonthC[100](0);
if DayOfWeek(date) < DayOfWeek(date[1]) then{
for cnt = 1 to 99{
WeekC[cnt] = WeekC[cnt-1][1];
}
}
WeekC[0] = C;
if date > date[1]+30 then{
for cnt = 1 to 99{
MonthC[cnt] = MonthC[cnt-1][1];
}
}
MonthC[0] = C;
wsum1 = 0;
if weekC[P1-1] > 0 Then{
for count = 0 to P1-1{
wsum1 = wsum1+WeekC[count];
}
wmav1 = wsum1/P1;
plot1(wmav1);
}
wsum2 = 0;
if weekC[P2-1] > 0 Then{
for count = 0 to P2-1{
wsum2 = wsum2+WeekC[count];
}
wmav2 = wsum2/P2;
plot2(wmav2);
}
wsum3 = 0;
if weekC[P3-1] > 0 Then{
for count = 0 to P3-1{
wsum3 = wsum3+WeekC[count];
}
wmav3 = wsum3/P3;
plot3(wmav3);
}
wsum4 = 0;
if weekC[P4-1] > 0 Then{
for count = 0 to P4-1{
wsum4 = wsum4+Weekc[count];
}
wmav4 = wsum4/P4;
plot4(wmav4);
}
msum1 = 0;
if MonthC[P1-1] > 0 Then{
for count = 0 to P1-1{
msum1 = msum1+MonthC[count];
}
mmav1 = msum1/P1;
plot5(mmav1);
}
msum2 = 0;
if MonthC[P2-1] > 0 Then{
for count = 0 to P2-1{
msum2 = msum2+MonthC[count];
}
mmav2 = msum2/P2;
plot6(mmav2);
}
msum3 = 0;
if MonthC[P3-1] > 0 Then{
for count = 0 to P3-1{
msum3 = msum3+MonthC[count];
}
mmav3 = msum3/P3;
plot7(mmav3);
}
msum4 = 0;
if MonthC[P4-1] > 0 Then{
for count = 0 to P4-1{
msum4 = msum4+MonthC[count];
}
mmav4 = msum4/P4;
plot8(mmav4);
}
즐거운 하루되세요
> HI_GA***** 님이 쓴 글입니다.
> 제목 : 수식문의
> 월5,10,20,60이평과
주5,10,20,60이평을 즉 총 8개의 이평선을 일봉상에 나타내고자 합니다.
다음글