커뮤니티
부탁 드립니다.
2020-08-12 17:33:56
977
글번호 141445
도움 주셔서 깊이 감사 드립니다.
1. 타주기(예:10분봉차트에서 60분봉지표)
2. 타주기(예:10분봉차트에서 일봉지표) 부탁 드립니다.
* 참고지표는 OBV의 타주기 지표로 작성해주신것입니다.
미리 경배로 감사 인사 올립니다.
input:p(10),sig(5);
var1=obv();
var2=ma(var1,p);
var3=var1-var2;
var4=ma(var3,sig);
*참고지표
input :ntime(60);
input: sig(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : C1(0),CC(0),sum(0),value(0),pre(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
{
C1 = CC[1];
sum = 0;
pre = value[1];
}
CC = C;
sum = sum + v;
if C1 > 0 Then
{
if CC > C1 Then
value = pre+sum;
if CC < C1 Then
value = pre-sum;
var1=ma(value,sig);
}}
답변 1
예스스탁 예스스탁 답변
2020-08-13 10:34:35
안녕하세요
예스스탁입니다.
1
input :ntime(60),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
{
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;
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);
}
}
2
input : P(10),sig(5);
var : 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 = 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. 타주기(예:10분봉차트에서 60분봉지표)
2. 타주기(예:10분봉차트에서 일봉지표) 부탁 드립니다.
* 참고지표는 OBV의 타주기 지표로 작성해주신것입니다.
미리 경배로 감사 인사 올립니다.
input:p(10),sig(5);
var1=obv();
var2=ma(var1,p);
var3=var1-var2;
var4=ma(var3,sig);
*참고지표
input :ntime(60);
input: sig(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : C1(0),CC(0),sum(0),value(0),pre(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
{
C1 = CC[1];
sum = 0;
pre = value[1];
}
CC = C;
sum = sum + v;
if C1 > 0 Then
{
if CC > C1 Then
value = pre+sum;
if CC < C1 Then
value = pre-sum;
var1=ma(value,sig);
}}