커뮤니티
수식 부탁드립니다
2021-05-21 11:57:52
1150
글번호 149217
주차트 일봉 차트에 참조데이타(Data2)를 쓰지않고 아래수식
1. 주봉의 MinLRL,MinLRL[k+1] 값을 나타내고 싶습니다.
2. 월봉의 MinLRL,MinLRL[k+1] 값을 나타내고 싶습니다.
/////////////////////////////////////////////////////////////////
Var:n(19),j(0),k(0),계산주기(0),X(0),sumXY(0),sumX(0),sumY(0),sumX²(0), MinLRS(0),MinB(0),MinLRL(0);
Array:MinClose[100](0);
k = k + 1;
if DayIndex()%계산주기 == 0 then {
for j = 98 downto 0 {
MinClose[j+1] = MinClose[j];
}
X = X + 1;
k = 0;
}
MinClose[0] = C;
sumXY = 0; sumX = 0; sumY = 0; sumX² = 0;
For j = 0 To n-1 {
sumXY = sumXY + (X-j)*MinClose[j];
sumX = sumX + (X-j);
sumY = sumY + MinClose[j];
sumX²= sumX²+ (X-j)^2;
}
MinLRS = (n*sumXY - sumX*sumY)/(n*sumX²- sumX^2);
MinB = (sumY*sumX²-sumX*sumXY)/(n*sumX²- sumX^2);
MinLRL = MinLRS * X + MinB;
//////////////////////////////////////////////////////////////////////////
항상 고맙습니다.
답변 1
예스스탁 예스스탁 답변
2021-05-21 13:56:12
안녕하세요
예스스탁입니다.
MinLRL[0]이 이번주/이번달, MinLRL[1]은 전주/전달, MinLRL[2]는 전전주/전전달 순으로 값이 저장됩니다.
1. 주
Var:n(19),j(0),k(0),계산주기(0),X(0),sumXY(0),sumX(0),sumY(0),sumX²(0), MinLRS(0),MinB(0);
Array:MinClose[100](0),MinLRL[100](0);
k = k + 1;
if DayOfWeek(Bdate) < DayOfWeek(Bdate[1]) then
{
for j = 98 downto 0
{
MinClose[j+1] = MinClose[j];
MinLRL[j+1] = MinLRL[j];
}
X = X + 1;
k = 0;
}
MinClose[0] = C;
if MinClose[n-1] > 0 Then
{
sumXY = 0;
sumX = 0;
sumY = 0;
sumX² = 0;
For j = 0 To n-1
{
sumXY = sumXY + (X-j)*MinClose[j];
sumX = sumX + (X-j);
sumY = sumY + MinClose[j];
sumX²= sumX²+ (X-j)^2;
}
MinLRS = (n*sumXY - sumX*sumY)/(n*sumX²- sumX^2);
MinB = (sumY*sumX²-sumX*sumXY)/(n*sumX²- sumX^2);
MinLRL[0] = MinLRS * X + MinB;
Plot1(MinLRL[0]);
Plot2(MinLRL[1]);
}
2. 월
Var:n(19),j(0),k(0),계산주기(0),X(0),sumXY(0),sumX(0),sumY(0),sumX²(0), MinLRS(0),MinB(0);
Array:MinClose[100](0),MinLRL[100](0);
k = k + 1;
if Bdate > Bdate[1]+30 then
{
for j = 98 downto 0
{
MinClose[j+1] = MinClose[j];
MinLRL[j+1] = MinLRL[j];
}
X = X + 1;
k = 0;
}
MinClose[0] = C;
if MinClose[n-1] > 0 Then
{
sumXY = 0;
sumX = 0;
sumY = 0;
sumX² = 0;
For j = 0 To n-1
{
sumXY = sumXY + (X-j)*MinClose[j];
sumX = sumX + (X-j);
sumY = sumY + MinClose[j];
sumX²= sumX²+ (X-j)^2;
}
MinLRS = (n*sumXY - sumX*sumY)/(n*sumX²- sumX^2);
MinB = (sumY*sumX²-sumX*sumXY)/(n*sumX²- sumX^2);
MinLRL[0] = MinLRS * X + MinB;
Plot1(MinLRL[0]);
Plot2(MinLRL[1]);
}
즐거운 하루되세요
> 까시서방 님이 쓴 글입니다.
> 제목 : 수식 부탁드립니다
>
주차트 일봉 차트에 참조데이타(Data2)를 쓰지않고 아래수식
1. 주봉의 MinLRL,MinLRL[k+1] 값을 나타내고 싶습니다.
2. 월봉의 MinLRL,MinLRL[k+1] 값을 나타내고 싶습니다.
/////////////////////////////////////////////////////////////////
Var:n(19),j(0),k(0),계산주기(0),X(0),sumXY(0),sumX(0),sumY(0),sumX²(0), MinLRS(0),MinB(0),MinLRL(0);
Array:MinClose[100](0);
k = k + 1;
if DayIndex()%계산주기 == 0 then {
for j = 98 downto 0 {
MinClose[j+1] = MinClose[j];
}
X = X + 1;
k = 0;
}
MinClose[0] = C;
sumXY = 0; sumX = 0; sumY = 0; sumX² = 0;
For j = 0 To n-1 {
sumXY = sumXY + (X-j)*MinClose[j];
sumX = sumX + (X-j);
sumY = sumY + MinClose[j];
sumX²= sumX²+ (X-j)^2;
}
MinLRS = (n*sumXY - sumX*sumY)/(n*sumX²- sumX^2);
MinB = (sumY*sumX²-sumX*sumXY)/(n*sumX²- sumX^2);
MinLRL = MinLRS * X + MinB;
//////////////////////////////////////////////////////////////////////////
항상 고맙습니다.