예스스탁
예스스탁 답변
2020-11-16 12:50:52
안녕하세요
예스스탁입니다.
1
input : n(19);
Var:j(0),X(0),sumXY(0),sumX(0),sumY(0),sumX²(0),
MinLRS(0),MinB(0),MinLRL(0);
var:MinClose(0);
X = X + 1;
MinClose = (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;
Plot1(minLRL);
2
input : 분(60),n(19);
var : S1(0),D1(0),TF(0),TM(0);
Var: j(0),X(0),sumXY(0),sumX(0),sumY(0),sumX²(0),
MinLRS(0),MinB(0),MinLRL(0),hh(0),ll(0);
Array:MinClose[100](0);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%분;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 분 > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and 분 > 1 and TM >= TM[1]+분) or
(Bdate == Bdate[1] and 분 == 1 and TM > TM[1]) Then
{
hh = h;
ll = l;
for j = 98 downto 0
{
MinClose[j+1] = MinClose[j];
}
X = X + 1;
}
if H > hh Then
hh = H;
if L < ll Then
ll = L;
MinClose[0] = (hh+ll)/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);
}
}
즐거운 하루되세요
> 뮬리 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움에 감사 드립니다.
질문1)
타주기 지표가 아닌 정주기 지표의 수식 부탁 드립니다.
질문2)
질문 수식에서와 같이 일봉에서 MinLRL과 MinLRS 값을 각각 가져오지 않고
예를 들어
10분봉 차트에서 60분봉의
MinLRL과 MinLRS 값을 각각 가져와 수식 작성이 가능 한지요?
미리 감사 드립니다.
질문수식)
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);
}
참고수식)
var : S1(0),D1(0),TM(0),TF(0),cnt(0),idx(0);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
{