커뮤니티
부탁 드립니다.
2021-10-20 10:16:34
672
글번호 153008
항상 도움 주셔서 감사 드립니다.
터주기(분봉)용으로 가능한지요?
inputs:Length( 20 ),sig(5) ;
variables:
XMean( 0 ), SumSqr( 0 ), Counter( 0 ), XVariance( 0 ) ;
if Length > 0 then
begin
XMean = ma(c, Length ) ;
SumSqr = 0 ;
for Counter = 0 to Length - 1
begin
SumSqr = SumSqr + Square( Price[Counter] - XMean ) ;
end ;
XVariance = SumSqr / Length ;
EStd = SquareRoot( XVariance ) ;
end
else
EStd = -1 ;
var1=ma(estd,sig);
참고용)
input : Ntime1(numeric),P(numeric),sig(numeric);
var : TF(0),S1(0),D1(0),TM(0),cnt(0),X(0),Y(0),sum(0);
Array : CC[101](0),OO[101](0),VV[101](0),V33[101](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%ntime1;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and Ntime1 > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and Ntime1> 1 and TM >= TM[1]+Ntime1) or
(Bdate == Bdate[1] and Ntime1 == 1 and TM > TM[1]) Then
{
답변 1
예스스탁 예스스탁 답변
2021-10-20 14:22:30
안녕하세요
예스스탁입니다.
input : 타주기분(30),Length(20),sig(5);
var : S1(0),D1(0),TM(0),TF(0);
var : cnt(0),SumSqr(0);
var : sum(0),XMean(0),XVariance(0),BBdn(0);
Array : CC[100](0),EStd[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
{
for cnt = 1 to 99
{
CC[cnt] = CC[cnt-1][1];
ESTD[cnt] = ESTD[cnt-1][1];
}
}
CC[0] = C;
if CC[Length-1] > 0 then
{
sum = 0;
for cnt = 0 to Length-1
{
sum = sum + CC[cnt];
}
XMean = sum/Length;
SumSqr = 0;
For cnt = 0 To Length - 1
{
SumSqr = SumSqr + Square(CC[cnt] - XMean);
}
XVariance = SumSqr / Length ;
EStd[0] = SquareRoot(XVariance);
}
if CC[Length+sig-1] > 0 then
{
sum = 0;
For cnt = 0 to sig-1
{
sum = sum + ESTD[cnt];
}
var1 = sum/sig;
Plot1(var1);
}
}
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 항상 도움 주셔서 감사 드립니다.
터주기(분봉)용으로 가능한지요?
inputs:Length( 20 ),sig(5) ;
variables:
XMean( 0 ), SumSqr( 0 ), Counter( 0 ), XVariance( 0 ) ;
if Length > 0 then
begin
XMean = ma(c, Length ) ;
SumSqr = 0 ;
for Counter = 0 to Length - 1
begin
SumSqr = SumSqr + Square( Price[Counter] - XMean ) ;
end ;
XVariance = SumSqr / Length ;
EStd = SquareRoot( XVariance ) ;
end
else
EStd = -1 ;
var1=ma(estd,sig);
참고용)
input : Ntime1(numeric),P(numeric),sig(numeric);
var : TF(0),S1(0),D1(0),TM(0),cnt(0),X(0),Y(0),sum(0);
Array : CC[101](0),OO[101](0),VV[101](0),V33[101](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%ntime1;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and Ntime1 > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and Ntime1> 1 and TM >= TM[1]+Ntime1) or
(Bdate == Bdate[1] and Ntime1 == 1 and TM > TM[1]) Then
{
다음글
이전글