커뮤니티
부탁 드립니다.
2021-10-20 19:57:35
597
글번호 153041
항상 도움 주심에 깊이 감사 드립니다.
수식1과 수식2는 어제 질문한 수식과 답변 수식 입니다.
금일 질문 할것은
----------------------------------------
질문1)
----------------------------------------
수식1)에서 5행과 16행이 다음과 같이 바뀔때 타주기 수식 부탁 드립니다.
XMean = ma(c, Length ) ;//5행
바뀐내용)---->XMean = wma(c, Length ) ;//5행
var1=ma(estd,sig);//16행
바뀐내용)--->var1=wma(estd,sig);//16행
----------------------------------------
질문2)
----------------------------------------
수식1)에서 5행과 16행이 다음과 같이 바뀔때 타주기 수식 부탁 드립니다.
XMean = ma(c, Length ) ;//5행
바뀐내용)---->XMean = ema(c, Length ) ;//5행
var1=ma(estd,sig);//16행
바뀐내용)--->var1=ema(estd,sig);//16행
수식1) 질문수식
inputs:Length( 20 ),sig(5) ;//1행
variables://2행
XMean( 0 ), SumSqr( 0 ), Counter( 0 ), XVariance( 0 ) ;//3행
if Length > 0 then//4행
begin//5행
XMean = ma(c, Length ) ;//5행
SumSqr = 0 ;//6행
for Counter = 0 to Length - 1//7행
begin//8행
SumSqr = SumSqr + Square( Price[Counter] - XMean ) ;//9행
end ;//10행
XVariance = SumSqr / Length ;//11행
EStd = SquareRoot( XVariance ) ;//12행
end //13행
else//14행
EStd = -1 ;//15행
var1=ma(estd,sig);//16행
수식2)답변 하신 타주기 수식
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);
}
}
답변 1
예스스탁 예스스탁 답변
2021-10-21 15:48:47
안녕하세요
예스스탁입니다.
1
input : 타주기분(30),Length(20),sig(5);
var : S1(0),D1(0),TM(0),TF(0);
var : cnt(0),SumSqr(0);
var : sum(0),Csum(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;
Csum = 0;
for cnt = 0 to Length-1
{
Sum = Sum + CC[cnt] * (Length - cnt);
CSum = CSum + Length - cnt;
}
XMean = sum/Csum;
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;
Csum = 0;
For cnt = 0 to sig-1
{
sum = sum + ESTD[cnt] * (sig - cnt);
CSum = CSum + sig - cnt;
}
var1 = sum/sig;
Plot1(var1);
}
}
2
input : 타주기분(30),Length(20),sig(5);
var : S1(0),D1(0),TM(0),TF(0),EP1(0),EP2(0),cnt(0);
var : XMean(0),PreXMean(0),SumSqr(0),XVariance(0);
var : EStd(0),PreEStd(0);
Array : CC[100](0);
Ep1 = 2/(Length+1);
Ep2 = 2/(sig+1);
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
{
value1 = value1+1;
PreXMean = XMean[1];
PreEStd = EStd[1];
For cnt = 1 to 99
{
CC[cnt] = CC[cnt-1][1];
}
}
CC[0] = C;
if value1 <= 1 Then
XMean = CC[0];
Else
XMean = CC[0] * EP1 + PreXMean * (1-EP1);
if value1 >= Length then
{
SumSqr = 0;
For cnt = 0 To Length - 1
{
SumSqr = SumSqr + Square(CC[cnt] - XMean);
}
XVariance = SumSqr / Length ;
EStd = SquareRoot(XVariance);
if value1 == Length Then
var1 = EStd;
Else
var1 = EStd * EP2 + PreEStd * (1-EP2);
Plot1(var1);
}
}
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 항상 도움 주심에 깊이 감사 드립니다.
수식1과 수식2는 어제 질문한 수식과 답변 수식 입니다.
금일 질문 할것은
----------------------------------------
질문1)
----------------------------------------
수식1)에서 5행과 16행이 다음과 같이 바뀔때 타주기 수식 부탁 드립니다.
XMean = ma(c, Length ) ;//5행
바뀐내용)---->XMean = wma(c, Length ) ;//5행
var1=ma(estd,sig);//16행
바뀐내용)--->var1=wma(estd,sig);//16행
----------------------------------------
질문2)
----------------------------------------
수식1)에서 5행과 16행이 다음과 같이 바뀔때 타주기 수식 부탁 드립니다.
XMean = ma(c, Length ) ;//5행
바뀐내용)---->XMean = ema(c, Length ) ;//5행
var1=ma(estd,sig);//16행
바뀐내용)--->var1=ema(estd,sig);//16행
수식1) 질문수식
inputs:Length( 20 ),sig(5) ;//1행
variables://2행
XMean( 0 ), SumSqr( 0 ), Counter( 0 ), XVariance( 0 ) ;//3행
if Length > 0 then//4행
begin//5행
XMean = ma(c, Length ) ;//5행
SumSqr = 0 ;//6행
for Counter = 0 to Length - 1//7행
begin//8행
SumSqr = SumSqr + Square( Price[Counter] - XMean ) ;//9행
end ;//10행
XVariance = SumSqr / Length ;//11행
EStd = SquareRoot( XVariance ) ;//12행
end //13행
else//14행
EStd = -1 ;//15행
var1=ma(estd,sig);//16행
수식2)답변 하신 타주기 수식
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);
}
}