커뮤니티
지표부탁드립니다.
2017-01-24 11:57:37
118
글번호 106226
항상 감사드립니다. 새해복 많이 받으세요.
다름이 아니오라 아래에 만들어주신 지표를 주봉 볼린져로 바꿔주셨으면 해서요
input변수는 Nweek, weekPeriod, WeekDv 로 부탁드립니다.
항상감사드리며,,,,,,
######################################################
# 분봉에서 일봉 볼린져밴드 계산 시작
input : Nday(1),dayPeriod(20),dayDv(2);
var : daysum(0),daycnt(0),dayma(0),daySumSqrt(0),dayStdv(0);
var : dayBBup(0),dayBBdn(0),dayCounter(0);
#일봉 이동평균 계산
daysum = 0;
for daycnt = 0 to Nday*dayPeriod-Nday step Nday{
daysum = daysum + DayClose(daycnt);
}
dayma = daysum/dayPeriod;
#표준편차 계산
If DayClose(dayPeriod) != 0 Then {
daySumSqrt = 0;
For dayCounter = 0 To Nday*dayPeriod-Nday step Nday {
daySumSqrt = daySumSqrt + (DayClose(dayCounter) - dayma)^2;
}
dayStdv = SquareRoot(daySumSqrt / dayPeriod);
}
Else
dayStdv = 0;
# 일봉 볼린져밴드 계산
dayBBup = dayma + (dayDv * dayStdv);
dayBBdn = dayma - (dayDv * dayStdv);
plot1(dayBBup ,"상단");
plot2(dayma,"중단");
plot3(dayBBdn,"하단");
답변 1
예스스탁 예스스탁 답변
2017-01-24 17:19:51
안녕하세요
예스스탁입니다.
input : Nweek(1),weekPeriod(20),weekDv(2);
var : weeksum(0),cnt(0),weekma(0),weekSumSqrt(0),weekStdv(0);
var : weekBBup(0),weekBBdn(0),weekCounter(0);
Array : WeekClose[100](0);
if dayofweek(bdate) < dayofweek(bdate[1]) Then{
for cnt = 1 to 99{
WeekClose[cnt] = WeekClose[cnt-1][1];
}
}
WeekClose[0] = C;
If weekClose[weekPeriod] != 0 Then {
#일봉 이동평균 계산
weeksum = 0;
for cnt = 0 to Nweek*weekPeriod-Nweek step Nweek{
weeksum = weeksum + weekClose[cnt];
}
weekma = weeksum/weekPeriod;
#표준편차 계산
weekSumSqrt = 0;
For cnt = 0 To Nweek*weekPeriod-Nweek step Nweek {
weekSumSqrt = weekSumSqrt + (weekClose[cnt] - weekma)^2;
}
weekStdv = SquareRoot(weekSumSqrt / weekPeriod);
# 일봉 볼린져밴드 계산
weekBBup = weekma + (weekDv * weekStdv);
weekBBdn = weekma - (weekDv * weekStdv);
plot1(weekBBup ,"상단");
plot2(weekma,"중단");
plot3(weekBBdn,"하단");
}
즐거운 하루되세요
> 예스매니아 님이 쓴 글입니다.
> 제목 : 지표부탁드립니다.
> 항상 감사드립니다. 새해복 많이 받으세요.
다름이 아니오라 아래에 만들어주신 지표를 주봉 볼린져로 바꿔주셨으면 해서요
input변수는 Nweek, weekPeriod, WeekDv 로 부탁드립니다.
항상감사드리며,,,,,,
######################################################
# 분봉에서 일봉 볼린져밴드 계산 시작
input : Nday(1),dayPeriod(20),dayDv(2);
var : daysum(0),daycnt(0),dayma(0),daySumSqrt(0),dayStdv(0);
var : dayBBup(0),dayBBdn(0),dayCounter(0);
#일봉 이동평균 계산
daysum = 0;
for daycnt = 0 to Nday*dayPeriod-Nday step Nday{
daysum = daysum + DayClose(daycnt);
}
dayma = daysum/dayPeriod;
#표준편차 계산
If DayClose(dayPeriod) != 0 Then {
daySumSqrt = 0;
For dayCounter = 0 To Nday*dayPeriod-Nday step Nday {
daySumSqrt = daySumSqrt + (DayClose(dayCounter) - dayma)^2;
}
dayStdv = SquareRoot(daySumSqrt / dayPeriod);
}
Else
dayStdv = 0;
# 일봉 볼린져밴드 계산
dayBBup = dayma + (dayDv * dayStdv);
dayBBdn = dayma - (dayDv * dayStdv);
plot1(dayBBup ,"상단");
plot2(dayma,"중단");
plot3(dayBBdn,"하단");
다음글
이전글