커뮤니티
지표식 부탁드립니다
2013-04-29 18:51:45
185
글번호 62623
항상 감사드립니다.
주봉차트에 사용중인 볼린저 밴드와 이동평균선을 일봉 차트에 구현해서 보고 싶습니다. 주봉의 볼린저밴드와 이동평균선을 일봉에서 볼 수 있도록 수식 부탁드립니다.
미리 감사드립니다.
답변 1
예스스탁 예스스탁 답변
2013-04-30 11:52:15
안녕하세요
예스스탁입니다.
1, 일봉차트에서 주봉 볼린져밴드
input : weekPeriod(20),weekDv(2);
var : weekcnt(0),weekcount(0),weeksum(0),weekmav(0),weekBBup(0),weekBBdn(0),weekSumSqrt(0),weekCounter(0),weekStdv(0);
Array : weekC[120](0);
if dayofweek(date) < dayofweek(date[1]) Then{
for weekcnt = 1 to weekPeriod+1{
weekC[weekcnt] = weekC[weekcnt-1][1];
}
}
weekC[0] = C;
If weekC[weekPeriod] != 0 Then {
weeksum = 0;
for weekcount = 0 to weekPeriod-1{
weeksum = weeksum+weekC[weekcount];
}
weekmav = weeksum/weekPeriod;
weekSumSqrt = 0;
For weekCounter = 0 To weekPeriod - 1 {
weekSumSqrt = weekSumSqrt + (weekC[weekCounter] - weekmav) * (weekC[weekCounter] - weekmav);
}
weekStdv = SquareRoot(weekSumSqrt / weekPeriod);
weekBBup = weekmav + (weekDv * weekStdv);
weekBBdn = weekmav - (weekDv * weekStdv);
plot1(weekBBup);
plot2(weekmav );
plot3(weekBBdn);
}
2. 이동평균
input : weekPeriod1(5),weekPeriod2(20),weekPeriod3(60);
var : weekcnt(0),weekcount(0),weeksum1(0),weekmav1(0),weeksum2(0),weekmav2(0),weeksum3(0),weekmav3(0);
Array : weekC[120](0);
if dayofweek(date) < dayofweek(date[1]) Then{
for weekcnt = 1 to 119{
weekC[weekcnt] = weekC[weekcnt-1][1];
}
}
weekC[0] = C;
If weekC[weekPeriod1] != 0 Then {
weeksum1 = 0;
for weekcount = 0 to weekPeriod1-1{
weeksum1 = weeksum1+weekC[weekcount];
}
weekmav1 = weeksum1/weekPeriod1;
}
If weekC[weekPeriod2] != 0 Then {
weeksum2 = 0;
for weekcount = 0 to weekPeriod2-1{
weeksum2 = weeksum2+weekC[weekcount];
}
weekmav2 = weeksum2/weekPeriod2;
}
If weekC[weekPeriod3] != 0 Then {
weeksum3 = 0;
for weekcount = 0 to weekPeriod3-1{
weeksum3 = weeksum3+weekC[weekcount];
}
weekmav3 = weeksum3/weekPeriod3;
}
plot1(weekmav1);
plot2(weekmav2);
plot3(weekmav3);
즐거운 하루되세요
2.
> pareter 님이 쓴 글입니다.
> 제목 : 지표식 부탁드립니다
> 항상 감사드립니다.
주봉차트에 사용중인 볼린저 밴드와 이동평균선을 일봉 차트에 구현해서 보고 싶습니다. 주봉의 볼린저밴드와 이동평균선을 일봉에서 볼 수 있도록 수식 부탁드립니다.
미리 감사드립니다.