커뮤니티
수식문의
2020-11-11 18:34:00
549
글번호 143830
Var:주(2),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);
if 주 >= BarInterval then {
계산주기 = 주/BarInterval;
}
k = k + 1;
if DayIndex()%계산주기 == 0 then {
for j = 98 downto 0 {
MinClose[j+1] = MinClose[j];
}
X = X + 1;
k = 0;
}
MinClose[0] = (L+H)/2;
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;
////////////////////////////////////////////////////////
// 타주기를 쓰지 않고 일봉에서 주봉과 월봉의 MinLRL과 MinLRS 값을 각각 가져올수 있을까요?
답변 1
예스스탁 예스스탁 답변
2020-11-12 13:27:06
안녕하세요
예스스탁입니다.
차트에 지정한 n기간 이상
일간/주간 데이타가 있어야 지표가 계산될 수 있습니다.
1 일
Var: n(19),j(0),X(0),sumXY(0),sumX(0),sumY(0),sumX²(0),
MinLRS(0),MinB(0),MinLRL(0);
Array:MinClose[100](0);
if Bdate != bdate[1] then
{
for j = 98 downto 0
{
MinClose[j+1] = MinClose[j];
}
X = X + 1;
}
MinClose[0] = (DayLow+DayHigh)/2;
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 = MinLRS * X + MinB;
Plot1(MinLRL);
}
2
Var: n(19),j(0),X(0),sumXY(0),sumX(0),sumY(0),sumX²(0),
MinLRS(0),MinB(0),MinLRL(0),WH(0),WL(0);
Array:MinClose[100](0);
if dayofweek(Bdate) < DayOfWeek(bdate[1]) then
{
WH = H;
WL = L;
for j = 98 downto 0
{
MinClose[j+1] = MinClose[j];
}
X = X + 1;
}
if WH > 0 and H > WH Then
WH = H;
if WL > 0 and L < WL Then
WL = L;
MinClose[0] = (WL[0]+WH[0])/2;
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 = MinLRS * X + MinB;
Plot1(MinLRL);
}
즐거운 하루되세요
> 까시서방 님이 쓴 글입니다.
> 제목 : 수식문의
>
Var:주(2),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);
if 주 >= BarInterval then {
계산주기 = 주/BarInterval;
}
k = k + 1;
if DayIndex()%계산주기 == 0 then {
for j = 98 downto 0 {
MinClose[j+1] = MinClose[j];
}
X = X + 1;
k = 0;
}
MinClose[0] = (L+H)/2;
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;
////////////////////////////////////////////////////////
// 타주기를 쓰지 않고 일봉에서 주봉과 월봉의 MinLRL과 MinLRS 값을 각각 가져올수 있을까요?
이전글