커뮤니티
주봉 월봉 삼각가중이평
2018-08-25 17:20:29
213
글번호 121598
일봉에 표시할 삼각가중이동평균선을 부탁드립니다.
1. 주봉 삼각가중이평 5, 20, 60, 120
2. 월봉 삼각가중이평 5, 20, 60, 120
참조데이터를 사용하지 않는 방법으로 부탁드립니다.
답변 1
예스스탁 예스스탁 답변
2018-08-27 14:45:37
안녕하세요
예스스탁입니다.
1.
input : P1(5),P2(20),P3(60),P4(120);
var : cnt(0),count(0),TLen1(0),TLen2(0),TLen3(0),TLen4(0);
var : sum11(0),sum12(0),sum13(0),sum14(0);
var : sum21(0),sum22(0),sum23(0),sum24(0);
var : Tma1(0),Tma2(0),Tma3(0),Tma4(0);
Array : C1[200](0),mav1[200](0),mav2[200](0),mav3[200](0),mav4[200](0);
TLen1 = Ceiling((P1 + 1) * .5);
TLen2 = Ceiling((P2 + 1) * .5);
TLen3 = Ceiling((P3 + 1) * .5);
TLen4 = Ceiling((P4 + 1) * .5);
if DayOfWeek(bdate) < DayOfWeek(bdate[1]) Then
{
for cnt = 1 to 99
{
C1[cnt] = C1[cnt-1][1];
mav1[cnt] = mav1[cnt-1][1];
mav2[cnt] = mav2[cnt-1][1];
mav3[cnt] = mav3[cnt-1][1];
mav4[cnt] = mav4[cnt-1][1];
}
}
C1[0] = C;
sum11 = 0;
sum12 = 0;
sum13 = 0;
sum14 = 0;
for count = 0 to TLen4{
if count < TLen1 Then
sum11 = sum11+C1[count];
if count < TLen2 Then
sum12 = sum12+C1[count];
if count < TLen3 Then
sum13 = sum13+C1[count];
if count < TLen4 Then
sum14 = sum14+C1[count];
}
if C1[TLen1-1] > 0 Then
mav1[0] = sum11/TLen1;
if C1[TLen2-1] > 0 Then
mav2[0] = sum12/Tlen2;
if C1[TLen3-1] > 0 Then
mav3[0] = sum13/Tlen3;
if C1[TLen4-1] > 0 Then
mav4[0] = sum14/Tlen4;
if mav1[TLen1-1] > 0 Then{
sum21 = 0;
for cnt = 0 to TLen1-1{
sum21 = sum21+mav1[cnt];
}
Tma1 = sum21/TLen1;
plot1(Tma1);
}
if mav2[TLen2-1] > 0 Then{
sum22 = 0;
for cnt = 0 to TLen2-1{
sum22 = sum22+mav2[cnt];
}
Tma2 = sum22/TLen2;
plot2(Tma2);
}
if mav3[TLen3-1] > 0 Then{
sum23 = 0;
for cnt = 0 to TLen3-1{
sum23 = sum23+mav3[cnt];
}
Tma3 = sum23/TLen3;
plot3(Tma3);
}
if mav4[TLen4-1] > 0 Then{
sum24 = 0;
for cnt = 0 to TLen4-1{
sum24 = sum24+mav4[cnt];
}
Tma4 = sum24/TLen4;
plot4(Tma4);
}
2
input : P1(5),P2(20),P3(60),P4(120);
var : cnt(0),count(0),TLen1(0),TLen2(0),TLen3(0),TLen4(0);
var : sum11(0),sum12(0),sum13(0),sum14(0);
var : sum21(0),sum22(0),sum23(0),sum24(0);
var : Tma1(0),Tma2(0),Tma3(0),Tma4(0);
Array : C1[200](0),mav1[200](0),mav2[200](0),mav3[200](0),mav4[200](0);
TLen1 = Ceiling((P1 + 1) * .5);
TLen2 = Ceiling((P2 + 1) * .5);
TLen3 = Ceiling((P3 + 1) * .5);
TLen4 = Ceiling((P4 + 1) * .5);
if bdate > bdate[1]+30 Then
{
for cnt = 1 to 99
{
C1[cnt] = C1[cnt-1][1];
mav1[cnt] = mav1[cnt-1][1];
mav2[cnt] = mav2[cnt-1][1];
mav3[cnt] = mav3[cnt-1][1];
mav4[cnt] = mav4[cnt-1][1];
}
}
C1[0] = C;
sum11 = 0;
sum12 = 0;
sum13 = 0;
sum14 = 0;
for count = 0 to TLen4{
if count < TLen1 Then
sum11 = sum11+C1[count];
if count < TLen2 Then
sum12 = sum12+C1[count];
if count < TLen3 Then
sum13 = sum13+C1[count];
if count < TLen4 Then
sum14 = sum14+C1[count];
}
if C1[TLen1-1] > 0 Then
mav1[0] = sum11/TLen1;
if C1[TLen2-1] > 0 Then
mav2[0] = sum12/Tlen2;
if C1[TLen3-1] > 0 Then
mav3[0] = sum13/Tlen3;
if C1[TLen4-1] > 0 Then
mav4[0] = sum14/Tlen4;
if mav1[TLen1-1] > 0 Then{
sum21 = 0;
for cnt = 0 to TLen1-1{
sum21 = sum21+mav1[cnt];
}
Tma1 = sum21/TLen1;
plot1(Tma1);
}
if mav2[TLen2-1] > 0 Then{
sum22 = 0;
for cnt = 0 to TLen2-1{
sum22 = sum22+mav2[cnt];
}
Tma2 = sum22/TLen2;
plot2(Tma2);
}
if mav3[TLen3-1] > 0 Then{
sum23 = 0;
for cnt = 0 to TLen3-1{
sum23 = sum23+mav3[cnt];
}
Tma3 = sum23/TLen3;
plot3(Tma3);
}
if mav4[TLen4-1] > 0 Then{
sum24 = 0;
for cnt = 0 to TLen4-1{
sum24 = sum24+mav4[cnt];
}
Tma4 = sum24/TLen4;
plot4(Tma4);
}
즐거운 하루되세요
> 부엉이 님이 쓴 글입니다.
> 제목 : 주봉 월봉 삼각가중이평
> 일봉에 표시할 삼각가중이동평균선을 부탁드립니다.
1. 주봉 삼각가중이평 5, 20, 60, 120
2. 월봉 삼각가중이평 5, 20, 60, 120
참조데이터를 사용하지 않는 방법으로 부탁드립니다.
다음글
이전글