커뮤니티
부탁 드립니다.
2020-10-22 00:10:00
838
글번호 143288
도움에 감사 드립니다.
타주기(틱봉용)으로 작성 해본것이나 무엇인가 이상하여
검토 수정 부탁 드립니다.
1)원수식
input:N(20),sig(5);
var2 = Upticks-Downticks;
VAR3=ACCUMN(VAR2,N);
var4=ma(var3,sig);
plot1(var4);
2)타주기(틱봉용)
input : ntick(2),N(20),sig(5);
var : idx(0),tf(0),S1(0),D1(0),TM(0),TF1(0),oo(0),cnt(0),sum2(0);
Array : vv1[100](0),vv[100](0),v3[100](0),sum[100](0);
if Bdate != Bdate[1] Then
{
D1 = bDate;
idx = 0;
}
Else
idx = idx+1;
if D1 > 0 Then
{
TF = idx%Ntick;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then
{
oo = o;
vv[0] = 0; vv1[0] = 0;
For cnt = 1 to 99
{
vv1[cnt] = vv1[cnt-1][1];
vv[cnt] = vv[cnt-1][1];
v3[cnt] = v3[cnt-1][1];
sum[cnt] = sum[cnt-1][1];
}
}
vv[0] = vv[0]+upticks ;
vv1[0]=vv1[0]+downticks;
v3[0] = vv[0]-vv1[0];
if v3[N-1] > 0 Then
{
sum[0] = 0;
For cnt = 0 to N-1
{
sum[0] = sum[0] + v3[cnt];
}
}
if v3[N-1+sig] > 0 Then
{
sum2 = 0;
For cnt = 0 to sig-1
{
sum2 = sum2 + sum[cnt];
}
var5 = sum2/sig;
}
}
plot1(var5);
답변 1
예스스탁 예스스탁 답변
2020-10-22 14:39:38
안녕하세요
예스스탁입니다.
input : ntick(2),N(20),sig(5);
var : idx(0),TF(0),D1(0),cnt(0),ii(0),upt(0),dnt(0),sum(0);
Array : v2[100](0),v3[100](0);
if Bdate != Bdate[1] Then
{
D1 = bDate;
idx = 0;
}
Else
idx = idx+1;
if D1 > 0 Then
{
TF = idx%Ntick;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then
{
ii = ii+1;
upt = 0;
dnt = 0;
For cnt = 1 to 99
{
v2[cnt] = v2[cnt-1][1];
v3[cnt] = v3[cnt-1][1];
}
}
upt = upt+upticks ;
dnt = dnt+downticks;
v2[0] = upt-dnt;
if ii >= N Then
{
V3[0] = 0;
For cnt = 0 to N-1
{
v3[0] = v3[0] + v2[cnt];
}
}
if II >= N+sig Then
{
sum = 0;
For cnt = 0 to sig-1
{
sum = sum + V3[cnt];
}
var4 = sum/sig;
Plot1(Var4);
}
}
즐거운 하루되세요
> 뮬리 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움에 감사 드립니다.
타주기(틱봉용)으로 작성 해본것이나 무엇인가 이상하여
검토 수정 부탁 드립니다.
1)원수식
input:N(20),sig(5);
var2 = Upticks-Downticks;
VAR3=ACCUMN(VAR2,N);
var4=ma(var3,sig);
plot1(var4);
2)타주기(틱봉용)
input : ntick(2),N(20),sig(5);
var : idx(0),tf(0),S1(0),D1(0),TM(0),TF1(0),oo(0),cnt(0),sum2(0);
Array : vv1[100](0),vv[100](0),v3[100](0),sum[100](0);
if Bdate != Bdate[1] Then
{
D1 = bDate;
idx = 0;
}
Else
idx = idx+1;
if D1 > 0 Then
{
TF = idx%Ntick;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then
{
oo = o;
vv[0] = 0; vv1[0] = 0;
For cnt = 1 to 99
{
vv1[cnt] = vv1[cnt-1][1];
vv[cnt] = vv[cnt-1][1];
v3[cnt] = v3[cnt-1][1];
sum[cnt] = sum[cnt-1][1];
}
}
vv[0] = vv[0]+upticks ;
vv1[0]=vv1[0]+downticks;
v3[0] = vv[0]-vv1[0];
if v3[N-1] > 0 Then
{
sum[0] = 0;
For cnt = 0 to N-1
{
sum[0] = sum[0] + v3[cnt];
}
}
if v3[N-1+sig] > 0 Then
{
sum2 = 0;
For cnt = 0 to sig-1
{
sum2 = sum2 + sum[cnt];
}
var5 = sum2/sig;
}
}
plot1(var5);
이전글