커뮤니티
부탁 드립니다.
2020-10-20 21:42:35
979
글번호 143244
도움에 깊이 감사 드립니다.
타주기수식
1)분봉에서 분봉
2)분봉에서 일봉 지표
부탁드립니다.
미리 경배로 감사 인사 올립니다.
Input: Value(NumericSeries), Period(NumericSimple);
Var : j(0),n(0),x(0),y(0);
n = Period;
x = Index;
y = Value;
Intercept = ma(y,n) - (ma(x*y, n) - ma(x,n) * ma(y,n)) /
(ma(x^2,n) - (ma(x,n)^2)) * ma(x,n);
타분 참고수식)
input : ntime(numeric),P(numeric),sig(numeric);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : sum1(0),sum2(0),mav1(0),mav2(0);
Array : C1[62](0),diff[62](0),mav[62](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
{
for cnt = 1 to 61
{
답변 1
예스스탁 예스스탁 답변
2020-10-21 15:50:40
안녕하세요
예스스탁입니다.
1
input : ntime(5),Period(20);
var : S1(0),D1(0),TM(0),TF(0),cnt(0),idx(0);
var : sumX(0),sumY(0),sumXY(0),sumX2(0);
var : avgX(0),avgY(0),avgXY(0),avgX2(0),Intercept(0);
Array : x[100](0),y[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%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
{
idx = idx+1;
for cnt = 1 to 99
{
X[cnt] = X[cnt-1][1];
Y[cnt] = Y[cnt-1][1];
}
}
X[0] = idx;
Y[0] = C;
if y[Period-1] > 0 Then
{
sumX = 0;
sumY = 0;
sumXY = 0;
sumX2 = 0;
For cnt = 0 to Period-1
{
sumX = sumX + X[cnt];
sumY = sumY + Y[cnt];
sumXY = sumXY + X[cnt]*Y[cnt];
sumX2 = sumX2 + X[cnt]^2;
}
avgY = sumY/Period;
avgXY = sumXY/Period;
avgX = sumX/Period;
avgX2 = sumX2/Period;
Intercept = avgY - (avgXY - avgX * avgY) / (avgX2 - (avgX^2)) * avgX;
Plot1(Intercept);
}
}
2
input : ntime(5),Period(20);
var : cnt(0),idx(0);
var : sumX(0),sumY(0),sumXY(0),sumX2(0);
var : avgX(0),avgY(0),avgXY(0),avgX2(0),Intercept(0);
Array : x[100](0),y[100](0);
if Bdate != Bdate[1] Then
{
idx = idx+1;
for cnt = 1 to 99
{
X[cnt] = X[cnt-1][1];
Y[cnt] = Y[cnt-1][1];
}
}
X[0] = idx;
Y[0] = C;
if y[Period-1] > 0 Then
{
sumX = 0;
sumY = 0;
sumXY = 0;
sumX2 = 0;
For cnt = 0 to Period-1
{
sumX = sumX + X[cnt];
sumY = sumY + Y[cnt];
sumXY = sumXY + X[cnt]*Y[cnt];
sumX2 = sumX2 + X[cnt]^2;
}
avgY = sumY/Period;
avgXY = sumXY/Period;
avgX = sumX/Period;
avgX2 = sumX2/Period;
Intercept = avgY - (avgXY - avgX * avgY) / (avgX2 - (avgX^2)) * avgX;
Plot1(Intercept);
}
즐거운 하루되세요
> 뮬리 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움에 깊이 감사 드립니다.
타주기수식
1)분봉에서 분봉
2)분봉에서 일봉 지표
부탁드립니다.
미리 경배로 감사 인사 올립니다.
Input: Value(NumericSeries), Period(NumericSimple);
Var : j(0),n(0),x(0),y(0);
n = Period;
x = Index;
y = Value;
Intercept = ma(y,n) - (ma(x*y, n) - ma(x,n) * ma(y,n)) /
(ma(x^2,n) - (ma(x,n)^2)) * ma(x,n);
타분 참고수식)
input : ntime(numeric),P(numeric),sig(numeric);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : sum1(0),sum2(0),mav1(0),mav2(0);
Array : C1[62](0),diff[62](0),mav[62](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
{
for cnt = 1 to 61
{
다음글
이전글