커뮤니티
지표식 부탁 드립니다
2013-07-24 11:32:41
184
글번호 65680
2분차트에서
타분봉인
10분 20분 30분 60분 90분
5,10,20,60 이동평균선 수식 부탁 드립니다
그럼 수고 하세요
답변 1
예스스탁 예스스탁 답변
2013-07-24 16:07:04
안녕하세요
예스스탁입니다.
input : time1(10),time2(20),time3(30),time4(50),time5(90),P1(5),P2(10),P3(20),P4(60);
var : cnt(0),count(0);
var : sum11(0),sum12(0),sum13(0),sum14(0),mav11(0),mav12(0),mav13(0),mav14(0);
var : sum21(0),sum22(0),sum23(0),sum24(0),mav21(0),mav22(0),mav23(0),mav24(0);
var : sum31(0),sum32(0),sum33(0),sum34(0),mav31(0),mav32(0),mav33(0),mav34(0);
var : sum41(0),sum42(0),sum43(0),sum44(0),mav41(0),mav42(0),mav43(0),mav44(0);
var : sum51(0),sum52(0),sum53(0),sum54(0),mav51(0),mav52(0),mav53(0),mav54(0);
var : T1(0),T2(0),T3(0),T4(0),T5(0);
Array : C1[100](0),C2[100](0),C3[100](0),C4[100](0),C5[100](0);
T1 = TimeToMinutes(stime)%time1;
if dayindex() == 0 or (T1 <= T1[1] and stime > stime[1]) Then{
for cnt = 1 to 99{
C1[cnt] = C1[cnt-1][1];
}
}
C1[0] = C;
sum11 = 0;sum12 = 0;sum13 = 0;sum14 = 0;
for count = 0 to P4{
if count < P1 Then sum11 = sum11+C1[count];
if count < P2 Then sum12 = sum12+C1[count];
if count < P3 Then sum13 = sum13+C1[count];
if count < P4 Then sum14 = sum14+C1[count];
}
if C1[P1] > 0 Then mav11 = sum11/P1;
if C1[P2] > 0 Then mav12 = sum12/P2;
if C1[P3] > 0 Then mav13 = sum13/P3;
if C1[P4] > 0 Then mav14 = sum14/P4;
T2 = TimeToMinutes(stime)%time2;
if dayindex() == 0 or (T2 <= T2[1] and stime > stime[1]) Then{
for cnt = 1 to 99{
C2[cnt] = C2[cnt-1][1];
}
}
C2[0] = C;
sum21 = 0;sum22 = 0;sum23 = 0;sum24 = 0;
for count = 0 to P4{
if count < P1 Then sum21 = sum21+C2[count];
if count < P2 Then sum22 = sum22+C2[count];
if count < P3 Then sum23 = sum23+C2[count];
if count < P4 Then sum24 = sum24+C2[count];
}
if C2[P1] > 0 Then mav21 = sum21/P1;
if C2[P2] > 0 Then mav22 = sum22/P2;
if C2[P3] > 0 Then mav23 = sum23/P3;
if C2[P4] > 0 Then mav24 = sum24/P4;
T3 = TimeToMinutes(stime)%time3;
if dayindex() == 0 or (T3 <= T3[1] and stime > stime[1]) Then{
for cnt = 1 to 99{
C3[cnt] = C3[cnt-1][1];
}
}
C3[0] = C;
sum31 = 0;sum32 = 0;sum33 = 0;sum34 = 0;
for count = 0 to P4{
if count < P1 Then sum31 = sum31+C3[count];
if count < P2 Then sum32 = sum32+C3[count];
if count < P3 Then sum33 = sum33+C3[count];
if count < P4 Then sum34 = sum34+C3[count];
}
if C3[P1] > 0 Then mav31 = sum31/P1;
if C3[P2] > 0 Then mav32 = sum32/P2;
if C3[P3] > 0 Then mav33 = sum33/P3;
if C3[P4] > 0 Then mav34 = sum34/P4;
T4 = TimeToMinutes(stime)%time4;
if dayindex() == 0 or (T4 <= T4[1] and stime > stime[1]) Then{
for cnt = 1 to 99{
C4[cnt] = C4[cnt-1][1];
}
}
C4[0] = C;
sum41 = 0;sum42 = 0;sum43 = 0;sum44 = 0;
for count = 0 to P4{
if count < P1 Then sum41 = sum41+C4[count];
if count < P2 Then sum42 = sum42+C4[count];
if count < P3 Then sum43 = sum43+C4[count];
if count < P4 Then sum44 = sum44+C4[count];
}
if C4[P1] > 0 Then mav41 = sum41/P1;
if C4[P2] > 0 Then mav42 = sum42/P2;
if C4[P3] > 0 Then mav43 = sum43/P3;
if C4[P4] > 0 Then mav44 = sum44/P4;
T5 = TimeToMinutes(stime)%time5;
if dayindex() == 0 or (T5 <= T5[1] and stime > stime[1]) Then{
for cnt = 1 to 99{
C5[cnt] = C5[cnt-1][1];
}
}
C5[0] = C;
sum51 = 0;sum52 = 0;sum53 = 0;sum54 = 0;
for count = 0 to P4{
if count < P1 Then sum51 = sum51+C5[count];
if count < P2 Then sum52 = sum52+C5[count];
if count < P3 Then sum53 = sum53+C5[count];
if count < P4 Then sum54 = sum54+C5[count];
}
if C5[P1] > 0 Then mav51 = sum51/P1;
if C5[P2] > 0 Then mav52 = sum52/P2;
if C5[P3] > 0 Then mav53 = sum53/P3;
if C5[P4] > 0 Then mav54 = sum54/P4;
plot1(mav11,"time1 P1이평");
plot2(mav12,"time1 P2이평");
plot3(mav13,"time1 P3이평");
plot4(mav14,"time1 P4이평");
plot5(mav21,"time2 P1이평");
plot6(mav22,"time2 P2이평");
plot7(mav23,"time2 P3이평");
plot8(mav24,"time2 P4이평");
plot9(mav31,"time3 P1이평");
plot10(mav32,"time3 P2이평");
plot11(mav33,"time3 P3이평");
plot12(mav34,"time3 P4이평");
plot13(mav41,"time4 P1이평");
plot14(mav42,"time4 P2이평");
plot15(mav43,"time4 P3이평");
plot16(mav44,"time4 P4이평");
plot17(mav51,"time5 P1이평");
plot18(mav52,"time5 P2이평");
plot19(mav53,"time5 P3이평");
plot20(mav54,"time5 P4이평");
차트의 데이터가 해당 이평을 그릴만큼 충분하지 않으면 0만 리턴합니다.
다른 주기의 값을 계산하는 부분이라 오차가 있을 수 있습니다.
즐거운 하루되세요
> starj5 님이 쓴 글입니다.
> 제목 : 지표식 부탁 드립니다
>
2분차트에서
타분봉인
10분 20분 30분 60분 90분
5,10,20,60 이동평균선 수식 부탁 드립니다
그럼 수고 하세요