커뮤니티
볼밴/이평 지표식
2013-12-23 09:55:33
167
글번호 70719
항상 감사드립니다.
월봉의 80볼밴과 20MA를 주봉에 출력하는 지표식 부탁드립니다.
주봉 표시가 불가능하면 일봉으로 부탁드립니다.
답변 2
예스스탁 예스스탁 답변
2013-12-23 13:42:43
안녕하세요
예스스탁입니다
주봉에서는 월의 경계날짜가 봉안에 포함된 날이 많아
월봉을 계산할수 없습니다. 일봉에 적용하셔야 합니다.
1. 볼밴
input : MonthkPeriod(80),MonthkDv(2);
var : Monthkcnt(0),Monthkcount(0),Monthksum(0),Monthkmav(0),MonthkBBup(0),MonthkBBdn(0),MonthkSumSqrt(0),MonthkCounter(0),MonthkStdv(0);
Array : MonthkC[100](0);
if date > date[1]+30 Then{
for Monthkcnt = 1 to 99{
MonthkC[Monthkcnt] = MonthkC[Monthkcnt-1][1];
}
}
MonthkC[0] = C;
If MonthkC[MonthkPeriod] != 0 Then {
Monthksum = 0;
for Monthkcount = 0 to MonthkPeriod-1{
Monthksum = Monthksum+MonthkC[Monthkcount];
}
Monthkmav = Monthksum/MonthkPeriod;
MonthkSumSqrt = 0;
For MonthkCounter = 0 To MonthkPeriod - 1 {
MonthkSumSqrt = MonthkSumSqrt + (MonthkC[MonthkCounter] - Monthkmav) * (MonthkC[MonthkCounter] - Monthkmav);
}
MonthkStdv = SquareRoot(MonthkSumSqrt / MonthkPeriod);
MonthkBBup = Monthkmav + (MonthkDv * MonthkStdv);
MonthkBBdn = Monthkmav - (MonthkDv * MonthkStdv);
plot1(MonthkBBup);
plot2(Monthkmav );
plot3(MonthkBBdn);
}
2 이평
input : MonthkPeriod(20);
var : Monthkcnt(0),Monthkcount(0),Monthksum(0),Monthkmav(0);
Array : MonthkC[100](0);
if date > date[1]+30 Then{
for Monthkcnt = 1 to 99{
MonthkC[Monthkcnt] = MonthkC[Monthkcnt-1][1];
}
}
MonthkC[0] = C;
If MonthkC[MonthkPeriod] != 0 Then {
Monthksum = 0;
for Monthkcount = 0 to MonthkPeriod-1{
Monthksum = Monthksum+MonthkC[Monthkcount];
}
Monthkmav = Monthksum/MonthkPeriod;
plot1(Monthkmav );
}
즐거운 하루되세요
> hugnkiss 님이 쓴 글입니다.
> 제목 : 볼밴/이평 지표식
> 항상 감사드립니다.
월봉의 80볼밴과 20MA를 주봉에 출력하는 지표식 부탁드립니다.
주봉 표시가 불가능하면 일봉으로 부탁드립니다.
hugnkiss
2013-12-23 13:48:52
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 볼밴/이평 지표식
>
안녕하세요
예스스탁입니다
주봉에서는 월의 경계날짜가 봉안에 포함된 날이 많아
월봉을 계산할수 없습니다. 일봉에 적용하셔야 합니다.
1. 볼밴
input : MonthkPeriod(80),MonthkDv(2);
var : Monthkcnt(0),Monthkcount(0),Monthksum(0),Monthkmav(0),MonthkBBup(0),MonthkBBdn(0),MonthkSumSqrt(0),MonthkCounter(0),MonthkStdv(0);
Array : MonthkC[100](0);
if date > date[1]+30 Then{
for Monthkcnt = 1 to 99{
MonthkC[Monthkcnt] = MonthkC[Monthkcnt-1][1];
}
}
MonthkC[0] = C;
If MonthkC[MonthkPeriod] != 0 Then {
Monthksum = 0;
for Monthkcount = 0 to MonthkPeriod-1{
Monthksum = Monthksum+MonthkC[Monthkcount];
}
Monthkmav = Monthksum/MonthkPeriod;
MonthkSumSqrt = 0;
For MonthkCounter = 0 To MonthkPeriod - 1 {
MonthkSumSqrt = MonthkSumSqrt + (MonthkC[MonthkCounter] - Monthkmav) * (MonthkC[MonthkCounter] - Monthkmav);
}
MonthkStdv = SquareRoot(MonthkSumSqrt / MonthkPeriod);
MonthkBBup = Monthkmav + (MonthkDv * MonthkStdv);
MonthkBBdn = Monthkmav - (MonthkDv * MonthkStdv);
plot1(MonthkBBup);
plot2(Monthkmav );
plot3(MonthkBBdn);
}
2 이평
input : MonthkPeriod(20);
var : Monthkcnt(0),Monthkcount(0),Monthksum(0),Monthkmav(0);
Array : MonthkC[100](0);
if date > date[1]+30 Then{
for Monthkcnt = 1 to 99{
MonthkC[Monthkcnt] = MonthkC[Monthkcnt-1][1];
}
}
MonthkC[0] = C;
If MonthkC[MonthkPeriod] != 0 Then {
Monthksum = 0;
for Monthkcount = 0 to MonthkPeriod-1{
Monthksum = Monthksum+MonthkC[Monthkcount];
}
Monthkmav = Monthksum/MonthkPeriod;
plot1(Monthkmav );
}
즐거운 하루되세요
> hugnkiss 님이 쓴 글입니다.
> 제목 : 볼밴/이평 지표식
> 항상 감사드립니다.
월봉의 80볼밴과 20MA를 주봉에 출력하는 지표식 부탁드립니다.
주봉 표시가 불가능하면 일봉으로 부탁드립니다.