커뮤니티
주봉의 ATR을 일봉 및 분봉상 표현 문의
2015-05-26 09:24:41
170
글번호 86392
수고하십니다.
하기의 주봉값을 60분봉 및 일봉에서 표현을 부탁드립니다.
var : AvgTrueRange(0),ATRsig(0);
AvgTrueRange = ATR(14);
ATRsig = ema(ATR(14),9);
감사합니다.
답변 2
예스스탁 예스스탁 답변
2015-05-27 09:44:51
안녕하세요
예스스탁입니다.
input : p(14),sig(9);
var : TF(0),TL(0),TH(0),cnt(0),sum(0),ATRV(0),EP(0),ATRsig(0),PreATRsig(0),idx(0);
Array : HH[61](0),LL[61](0),CC[61](0),TR[61](0);
Ep = 2/(P+1);
if DayOfWeek(sdate) < DayOfWeek(sdate[1]) Then{
HH[0] = H;
LL[0] = L;
CC[0] = C;
for cnt = 1 to 60{
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
CC[cnt] = CC[cnt-1][1];
TR[cnt] = TR[cnt-1][1];
}
if ATRsig > 0 Then{
PreATRsig = ATRsig;
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
CC[0] = C;
if CC[1] > 0 Then{
If CC[1] > HH[0] then
TH = CC[1];
else
TH = HH[0];
If CC[1] < LL[0] then
TL = CC[1];
else
TL = LL[0];
TR[0] = TH-TL;
}
sum = 0;
if TR[P] > 0 Then{
for cnt = 0 to P-1{
sum = sum + TR[cnt];
}
ATRV = sum/P;
if ATRsig == 0 Then
ATRsig = ATrv;
Else
ATRsig = ATrv*EP+PreATRsig*(1-EP);
plot1(ATRV);
plot2(ATRsig);
}
타주기 지표를 수식에서 구현하는 부분이라 값이 조금 차이가 날수 있습니다.
즐거운 하루되세요
> 큰상 님이 쓴 글입니다.
> 제목 : 주봉의 ATR을 일봉 및 분봉상 표현 문의
> 수고하십니다.
하기의 주봉값을 60분봉 및 일봉에서 표현을 부탁드립니다.
var : AvgTrueRange(0),ATRsig(0);
AvgTrueRange = ATR(14);
ATRsig = ema(ATR(14),9);
감사합니다.
씸풀
2015-11-26 17:11:40
아래 프로그램 내에서 sig=9 값이 사용되지 않았습니다.
Ep = 2/(P+1); -> Ep = 2/(sig+1);
위와 같이 바꾸어야 하나요?
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 주봉의 ATR을 일봉 및 분봉상 표현 문의
>
안녕하세요
예스스탁입니다.
input : p(14),sig(9);
var : TF(0),TL(0),TH(0),cnt(0),sum(0),ATRV(0),EP(0),ATRsig(0),PreATRsig(0),idx(0);
Array : HH[61](0),LL[61](0),CC[61](0),TR[61](0);
Ep = 2/(P+1);
if DayOfWeek(sdate) < DayOfWeek(sdate[1]) Then{
HH[0] = H;
LL[0] = L;
CC[0] = C;
for cnt = 1 to 60{
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
CC[cnt] = CC[cnt-1][1];
TR[cnt] = TR[cnt-1][1];
}
if ATRsig > 0 Then{
PreATRsig = ATRsig;
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
CC[0] = C;
if CC[1] > 0 Then{
If CC[1] > HH[0] then
TH = CC[1];
else
TH = HH[0];
If CC[1] < LL[0] then
TL = CC[1];
else
TL = LL[0];
TR[0] = TH-TL;
}
sum = 0;
if TR[P] > 0 Then{
for cnt = 0 to P-1{
sum = sum + TR[cnt];
}
ATRV = sum/P;
if ATRsig == 0 Then
ATRsig = ATrv;
Else
ATRsig = ATrv*EP+PreATRsig*(1-EP);
plot1(ATRV);
plot2(ATRsig);
}
타주기 지표를 수식에서 구현하는 부분이라 값이 조금 차이가 날수 있습니다.
즐거운 하루되세요
> 큰상 님이 쓴 글입니다.
> 제목 : 주봉의 ATR을 일봉 및 분봉상 표현 문의
> 수고하십니다.
하기의 주봉값을 60분봉 및 일봉에서 표현을 부탁드립니다.
var : AvgTrueRange(0),ATRsig(0);
AvgTrueRange = ATR(14);
ATRsig = ema(ATR(14),9);
감사합니다.