커뮤니티
4824 다시 질문입니다
2006-10-26 20:24:53
1444
글번호 11140
webmaster@yesstock.com로 다시 메일 보냈습니다
johnsogum@empal.com으로 답변부탁드립니다
답변 3
수식지왕
2006-10-27 14:20:35
반복질문이 올라와 있어 풀어보았습니다.
지표로 두가지로 표현했는데 하나는 어제종가까지의 일봉의 LRL 값이고 다른 하나는 장중 종가를 반영한 LRL입니다.
Input:n(14);
Var:j(0),X(0),sumXY(0),sumX(0),sumY(0),sumX²(0),DayLRS(0),DayB(0),DayLRL(0);
#==========================================================================#
# 선형회귀방정식 #
#==========================================================================#
# n∑xy - (∑x)(∑y) #
# 기울기 a = --------------------- #
# n∑x²- (∑x)² #
# #
# = (n*sum(xy) - sum(x) * sum(y)) / (n*sum(x^2)-sum(x)^2) #
# #
# (∑y)(∑x²)-(∑x)(∑xy) #
# 절편 b = --------------------------- #
# n∑x²- (∑x)² #
# #
# = (sum(y)*sum(x^2) - sum(x)*sum(xy)) / (n*sum(x^2) - sum(x)^2) #
#==========================================================================#
if Date[1] < Date then {
X = X + 1;
}
sumXY = 0; sumX = 0; sumY = 0; sumX² = 0;
For j = 0 To n-1 {
sumXY = sumXY + (X-j)*DayClose(j);
sumX = sumX + (X-j);
sumY = sumY + DayClose(j);
sumX²= sumX²+ (X-j)^2;
}
DayLRS = (n*sumXY - sumX*sumY)/(n*sumX²- sumX^2); //선형회귀선 기울기 LRS
DayB = (sumY*sumX²-sumX*sumXY)/(n*sumX²- sumX^2); //선형회귀선 절편 B
DayLRL = DayLRS * X + DayB;
Plot1(DayLRL[dayindex()+1]); //전일종가기준의 LRL
Plot2(DayLRL); //현재 종가 반영한 LRL
> 요한 님이 쓴 글입니다.
> 제목 : 다시 질문이요~
> 내장된 LRL 함수를 사용해서
일봉의 선형회귀선을
분봉에 표현하려고 하는데
잘 안되네요
즉 일봉에서 LRL(C,14)에서 나온 값이
분봉에서 같게 뜨게 할려면 어떻게해야하지요?
예스스탁 예스스탁 답변
2006-10-27 10:13:42
> 요한 님이 쓴 글입니다.
> 제목 : 4824 다시 질문입니다
>
webmaster@yesstock.com로 다시 메일 보냈습니다
johnsogum@empal.com으로 답변부탁드립니다
요한
2006-10-27 20:04:22
감사합니다
놀라운 실력에 감탄할뿐입니다^^
> 수식지왕 님이 쓴 글입니다.
> 제목 : Re : 일봉참조 LRL
> 반복질문이 올라와 있어 풀어보았습니다.
지표로 두가지로 표현했는데 하나는 어제종가까지의 일봉의 LRL 값이고 다른 하나는 장중 종가를 반영한 LRL입니다.
Input:n(14);
Var:j(0),X(0),sumXY(0),sumX(0),sumY(0),sumX²(0),DayLRS(0),DayB(0),DayLRL(0);
#==========================================================================#
# 선형회귀방정식 #
#==========================================================================#
# n∑xy - (∑x)(∑y) #
# 기울기 a = --------------------- #
# n∑x²- (∑x)² #
# #
# = (n*sum(xy) - sum(x) * sum(y)) / (n*sum(x^2)-sum(x)^2) #
# #
# (∑y)(∑x²)-(∑x)(∑xy) #
# 절편 b = --------------------------- #
# n∑x²- (∑x)² #
# #
# = (sum(y)*sum(x^2) - sum(x)*sum(xy)) / (n*sum(x^2) - sum(x)^2) #
#==========================================================================#
if Date[1] < Date then {
X = X + 1;
}
sumXY = 0; sumX = 0; sumY = 0; sumX² = 0;
For j = 0 To n-1 {
sumXY = sumXY + (X-j)*DayClose(j);
sumX = sumX + (X-j);
sumY = sumY + DayClose(j);
sumX²= sumX²+ (X-j)^2;
}
DayLRS = (n*sumXY - sumX*sumY)/(n*sumX²- sumX^2); //선형회귀선 기울기 LRS
DayB = (sumY*sumX²-sumX*sumXY)/(n*sumX²- sumX^2); //선형회귀선 절편 B
DayLRL = DayLRS * X + DayB;
Plot1(DayLRL[dayindex()+1]); //전일종가기준의 LRL
Plot2(DayLRL); //현재 종가 반영한 LRL
> 요한 님이 쓴 글입니다.
> 제목 : 다시 질문이요~
> 내장된 LRL 함수를 사용해서
일봉의 선형회귀선을
분봉에 표현하려고 하는데
잘 안되네요
즉 일봉에서 LRL(C,14)에서 나온 값이
분봉에서 같게 뜨게 할려면 어떻게해야하지요?