커뮤니티
부탁 드립니다.
2020-08-13 19:07:30
1197
글번호 141485
도움 주셔서 깊이 감사 드립니다.
1. 원수식을 타주기(틱봉용)으로 작성 해본 것입니다.
실행결과 조금 이상한 부분이 있어 검토 부탁 드리고자 합니다.
미리 경배로 감사 인사 올립니다.
*원수식)
input:p(10),sig(5);
var1=obv();
var2=ma(var1,p);
var3=var1-var2;
var4=ma(var3,sig);
*타주기_틱봉용)
input :ntick(2),P(10),sig(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : C1(0),CC(0),VV(0),idx(0),sum1(0),mav1(0),sum2(0),mav2(0);
Array : value[100](0),diff[100](0);
if Bdate != Bdate[1] Then
idx = 0;
Else
idx = idx+1;
TF = idx%Ntick;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntick > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntick > 1 and TM >= TM[1]+ntick) or
(Bdate == Bdate[1] and ntick == 1 and TM > TM[1]) Then
{
idx = idx+1;
C1 = CC[1];
VV = 0;
For cnt = 1 to 99
{
value[cnt] = value[cnt-1][1];
diff[cnt] = diff[cnt-1][1];
}
}
CC = C;
VV = VV + v;
if C1 > 0 Then
{
if CC > C1 Then
value[0] = value[1]+VV;
if CC < C1 Then
value[0] = value[1]-VV;
}
if idx >= p Then
{
sum1 = 0;
For cnt = 0 to P-1
{
sum1 = sum1 + value[cnt];
}
mav1 = sum1/P;
diff[0] = value[0]-mav1;
}
if idx >= P+sig Then
{
sum2 = 0;
For cnt = 0 to sig-1
{
sum2 = sum2 + diff[cnt];
}
mav2 = sum2/sig;
Plot1(mav2);
}
답변 3
예스스탁 예스스탁 답변
2020-08-14 11:38:42
안녕하세요
예스스탁입니다.
input :ntick(2),P(10),sig(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : C1(0),CC(0),VV(0),idx(0),sum1(0),mav1(0),sum2(0),mav2(0);
Array : value[100](0),diff[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
{
idx = idx+1;
C1 = CC[1];
VV = 0;
For cnt = 1 to 99
{
value[cnt] = value[cnt-1][1];
diff[cnt] = diff[cnt-1][1];
}
}
CC = C;
VV = VV + v;
if C1 > 0 Then
{
if CC > C1 Then
value[0] = value[1]+VV;
if CC < C1 Then
value[0] = value[1]-VV;
}
if idx >= p Then
{
sum1 = 0;
For cnt = 0 to P-1
{
sum1 = sum1 + value[cnt];
}
mav1 = sum1/P;
diff[0] = value[0]-mav1;
}
if idx >= P+sig Then
{
sum2 = 0;
For cnt = 0 to sig-1
{
sum2 = sum2 + diff[cnt];
}
mav2 = sum2/sig;
Plot1(mav2);
}
}
즐거운 하루되세요
> 뮬리 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움 주셔서 깊이 감사 드립니다.
1. 원수식을 타주기(틱봉용)으로 작성 해본 것입니다.
실행결과 조금 이상한 부분이 있어 검토 부탁 드리고자 합니다.
미리 경배로 감사 인사 올립니다.
*원수식)
input:p(10),sig(5);
var1=obv();
var2=ma(var1,p);
var3=var1-var2;
var4=ma(var3,sig);
*타주기_틱봉용)
input :ntick(2),P(10),sig(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : C1(0),CC(0),VV(0),idx(0),sum1(0),mav1(0),sum2(0),mav2(0);
Array : value[100](0),diff[100](0);
if Bdate != Bdate[1] Then
idx = 0;
Else
idx = idx+1;
TF = idx%Ntick;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntick > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntick > 1 and TM >= TM[1]+ntick) or
(Bdate == Bdate[1] and ntick == 1 and TM > TM[1]) Then
{
idx = idx+1;
C1 = CC[1];
VV = 0;
For cnt = 1 to 99
{
value[cnt] = value[cnt-1][1];
diff[cnt] = diff[cnt-1][1];
}
}
CC = C;
VV = VV + v;
if C1 > 0 Then
{
if CC > C1 Then
value[0] = value[1]+VV;
if CC < C1 Then
value[0] = value[1]-VV;
}
if idx >= p Then
{
sum1 = 0;
For cnt = 0 to P-1
{
sum1 = sum1 + value[cnt];
}
mav1 = sum1/P;
diff[0] = value[0]-mav1;
}
if idx >= P+sig Then
{
sum2 = 0;
For cnt = 0 to sig-1
{
sum2 = sum2 + diff[cnt];
}
mav2 = sum2/sig;
Plot1(mav2);
}
뮬리
2020-08-14 14:34:24
답변 감사 드립니다.
정상 가동되지 않아 검토 부탁 드립니다.
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 부탁 드립니다.
> 안녕하세요
예스스탁입니다.
input :ntick(2),P(10),sig(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : C1(0),CC(0),VV(0),idx(0),sum1(0),mav1(0),sum2(0),mav2(0);
Array : value[100](0),diff[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
{
idx = idx+1;
C1 = CC[1];
VV = 0;
For cnt = 1 to 99
{
value[cnt] = value[cnt-1][1];
diff[cnt] = diff[cnt-1][1];
}
}
CC = C;
VV = VV + v;
if C1 > 0 Then
{
if CC > C1 Then
value[0] = value[1]+VV;
if CC < C1 Then
value[0] = value[1]-VV;
}
if idx >= p Then
{
sum1 = 0;
For cnt = 0 to P-1
{
sum1 = sum1 + value[cnt];
}
mav1 = sum1/P;
diff[0] = value[0]-mav1;
}
if idx >= P+sig Then
{
sum2 = 0;
For cnt = 0 to sig-1
{
sum2 = sum2 + diff[cnt];
}
mav2 = sum2/sig;
Plot1(mav2);
}
}
즐거운 하루되세요
> 뮬리 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움 주셔서 깊이 감사 드립니다.
1. 원수식을 타주기(틱봉용)으로 작성 해본 것입니다.
실행결과 조금 이상한 부분이 있어 검토 부탁 드리고자 합니다.
미리 경배로 감사 인사 올립니다.
*원수식)
input:p(10),sig(5);
var1=obv();
var2=ma(var1,p);
var3=var1-var2;
var4=ma(var3,sig);
*타주기_틱봉용)
input :ntick(2),P(10),sig(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : C1(0),CC(0),VV(0),idx(0),sum1(0),mav1(0),sum2(0),mav2(0);
Array : value[100](0),diff[100](0);
if Bdate != Bdate[1] Then
idx = 0;
Else
idx = idx+1;
TF = idx%Ntick;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntick > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntick > 1 and TM >= TM[1]+ntick) or
(Bdate == Bdate[1] and ntick == 1 and TM > TM[1]) Then
{
idx = idx+1;
C1 = CC[1];
VV = 0;
For cnt = 1 to 99
{
value[cnt] = value[cnt-1][1];
diff[cnt] = diff[cnt-1][1];
}
}
CC = C;
VV = VV + v;
if C1 > 0 Then
{
if CC > C1 Then
value[0] = value[1]+VV;
if CC < C1 Then
value[0] = value[1]-VV;
}
if idx >= p Then
{
sum1 = 0;
For cnt = 0 to P-1
{
sum1 = sum1 + value[cnt];
}
mav1 = sum1/P;
diff[0] = value[0]-mav1;
}
if idx >= P+sig Then
{
sum2 = 0;
For cnt = 0 to sig-1
{
sum2 = sum2 + diff[cnt];
}
mav2 = sum2/sig;
Plot1(mav2);
}
예스스탁 예스스탁 답변
2020-08-14 15:19:05
안녕하세요
예스스탁입니다.
수식에 불필요한 괄호가 있었습니다.
아래식 적용하시면 됩니다.
input :ntick(2),P(10),sig(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : C1(0),CC(0),VV(0),idx(0),sum1(0),mav1(0),sum2(0),mav2(0);
Array : value[100](0),diff[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
{
idx = idx+1;
C1 = CC[1];
VV = 0;
For cnt = 1 to 99
{
value[cnt] = value[cnt-1][1];
diff[cnt] = diff[cnt-1][1];
}
}
CC = C;
VV = VV + v;
if C1 > 0 Then
{
if CC > C1 Then
value[0] = value[1]+VV;
if CC < C1 Then
value[0] = value[1]-VV;
}
if idx >= p Then
{
sum1 = 0;
For cnt = 0 to P-1
{
sum1 = sum1 + value[cnt];
}
mav1 = sum1/P;
diff[0] = value[0]-mav1;
}
if idx >= P+sig Then
{
sum2 = 0;
For cnt = 0 to sig-1
{
sum2 = sum2 + diff[cnt];
}
mav2 = sum2/sig;
Plot1(mav2);
}
}
즐거운 하루되세요
> 뮬리 님이 쓴 글입니다.
> 제목 : Re : Re : 부탁 드립니다.
> 답변 감사 드립니다.
정상 가동되지 않아 검토 부탁 드립니다.
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 부탁 드립니다.
> 안녕하세요
예스스탁입니다.
input :ntick(2),P(10),sig(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : C1(0),CC(0),VV(0),idx(0),sum1(0),mav1(0),sum2(0),mav2(0);
Array : value[100](0),diff[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
{
idx = idx+1;
C1 = CC[1];
VV = 0;
For cnt = 1 to 99
{
value[cnt] = value[cnt-1][1];
diff[cnt] = diff[cnt-1][1];
}
}
CC = C;
VV = VV + v;
if C1 > 0 Then
{
if CC > C1 Then
value[0] = value[1]+VV;
if CC < C1 Then
value[0] = value[1]-VV;
}
if idx >= p Then
{
sum1 = 0;
For cnt = 0 to P-1
{
sum1 = sum1 + value[cnt];
}
mav1 = sum1/P;
diff[0] = value[0]-mav1;
}
if idx >= P+sig Then
{
sum2 = 0;
For cnt = 0 to sig-1
{
sum2 = sum2 + diff[cnt];
}
mav2 = sum2/sig;
Plot1(mav2);
}
}
즐거운 하루되세요
> 뮬리 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움 주셔서 깊이 감사 드립니다.
1. 원수식을 타주기(틱봉용)으로 작성 해본 것입니다.
실행결과 조금 이상한 부분이 있어 검토 부탁 드리고자 합니다.
미리 경배로 감사 인사 올립니다.
*원수식)
input:p(10),sig(5);
var1=obv();
var2=ma(var1,p);
var3=var1-var2;
var4=ma(var3,sig);
*타주기_틱봉용)
input :ntick(2),P(10),sig(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : C1(0),CC(0),VV(0),idx(0),sum1(0),mav1(0),sum2(0),mav2(0);
Array : value[100](0),diff[100](0);
if Bdate != Bdate[1] Then
idx = 0;
Else
idx = idx+1;
TF = idx%Ntick;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntick > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntick > 1 and TM >= TM[1]+ntick) or
(Bdate == Bdate[1] and ntick == 1 and TM > TM[1]) Then
{
idx = idx+1;
C1 = CC[1];
VV = 0;
For cnt = 1 to 99
{
value[cnt] = value[cnt-1][1];
diff[cnt] = diff[cnt-1][1];
}
}
CC = C;
VV = VV + v;
if C1 > 0 Then
{
if CC > C1 Then
value[0] = value[1]+VV;
if CC < C1 Then
value[0] = value[1]-VV;
}
if idx >= p Then
{
sum1 = 0;
For cnt = 0 to P-1
{
sum1 = sum1 + value[cnt];
}
mav1 = sum1/P;
diff[0] = value[0]-mav1;
}
if idx >= P+sig Then
{
sum2 = 0;
For cnt = 0 to sig-1
{
sum2 = sum2 + diff[cnt];
}
mav2 = sum2/sig;
Plot1(mav2);
}