커뮤니티
부탁 드립니다.
2020-10-26 17:13:05
747
글번호 143420
도움에 감사 드립니다.
타주기 수식 부탁 드립니다.
예를 들어
1)10분봉차트에서 60분봉 지표
2)60분봉차트에서 일봉지표
3)일봉차트에서 주봉 지표
참고로 전에 작성 해주신
유사한 타주기 수식 첨부 합니다.
미리 경배로 감사 인사 올립니다.
input :sig(5);
var1 = accum(iff(C>O,C*V,0));
var2 = var1/accum(iff(C>O,1,0));
var11 = accum(iff(C<O,C*V,0));
var12 = var11/accum(iff(C<O,1,0));
var3=var2-var12;
var31=ma(var3,sig);
참고수식)
input : ntime(30),P1(20),sig(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0),sum(0);
Array : OO[81](0),CC[81](0),VV[81](0),diff[81](0),idx[81](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
{
OO[0] = O;
VV[0] = V;
for cnt = 1 to 80
{
OO[cnt] = OO[cnt-1][1];
CC[cnt] = CC[cnt-1][1];
VV[cnt] = VV[cnt-1][1];
diff[cnt] = diff[cnt-1][1];
idx[cnt] = idx[cnt-1][1];
}
}
CC[0] = C;
VV[0] = VV[0]+V;
if VV[P1-1] > 0 then
{
var1 = 0;
value1 = 0;
var11 = 0;
value11 = 0;
for cnt = 0 to P1-1
{
if CC[cnt] > OO[cnt] then
{
var1 = var1 + (CC[cnt]*VV[cnt]);
value1 = value1 + 1;
}
if CC[cnt] < OO[cnt] then
{
var11 = var11 + (CC[cnt]*VV[cnt]);
value11 = value11 + 1;
}
}
var2 = var1/value1;
var12 = var11/value11;
diff[0] = var2-var12;
idx[0] = 1;
}
if idx[sig-1] > 0 then
{
sum = 0;
for cnt = 0 to sig-1
{
sum = sum + diff[cnt];
}
var31 = sum/sig;
plot2(var31);
}
}
답변 1
예스스탁 예스스탁 답변
2020-10-27 15:38:03
안녕하세요
예스스탁입니다.
1
input : ntime(30),sig(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : OO(0),CC(0),VV(0),idx(0),sum(0);
var : Bv(0),Bi(0),Sv(0),Si(0);
var : sumBv(0),sumBi(0),sumSv(0),sumSi(0);
Array : v3[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
{
OO = O;
VV = 0;
idx = idx+1;
sumBv = sumBv + Bv[1];
sumBi = sumBi + Bi[1];
sumSv = sumSv + Sv[1];
sumSi = sumSi + Si[1];
Value22 = value22 + Value2[1];
Value33 = value33 + Value3[1];
for cnt = 1 to 99
{
v3[cnt] = v3[cnt-1][1];
}
}
CC = C;
VV = VV+V;
if C > OO Then
{
Bv = (CC*VV);
Bi = 1;
}
Else
{
Bv = 0;
Bi = 0;
}
if C < OO Then
{
Sv = (CC*VV);
Si = 1;
}
Else
{
Sv = 0;
Si = 0;
}
var1 = SumBv+Bv;
Value2 = var1/(SumBi+Bi);
Var2 = Value22+Value2;
var11 = SumSv+Sv;
Value3 = var11/(SumSi+Si);
var12 = Value33+Value3;
v3[0] = (var2-var12);
if idx >= sig Then
{
sum = 0;
For cnt = 0 to sig-1
{
sum = sum + v3[cnt];
}
Var31 = sum/sig;
Plot1(Var31);
}
}
2
input : sig(5);
var : cnt(0),OO(0),CC(0),VV(0),idx(0),sum(0);
var : Bv(0),Bi(0),Sv(0),Si(0);
var : sumBv(0),sumBi(0),sumSv(0),sumSi(0);
Array : v3[100](0);
if Bdate != Bdate[1] Then
{
OO = O;
VV = 0;
idx = idx+1;
sumBv = sumBv + Bv[1];
sumBi = sumBi + Bi[1];
sumSv = sumSv + Sv[1];
sumSi = sumSi + Si[1];
Value22 = value22 + Value2[1];
Value33 = value33 + Value3[1];
for cnt = 1 to 99
{
v3[cnt] = v3[cnt-1][1];
}
}
CC = C;
VV = VV+V;
if C > OO Then
{
Bv = (CC*VV);
Bi = 1;
}
Else
{
Bv = 0;
Bi = 0;
}
if C < OO Then
{
Sv = (CC*VV);
Si = 1;
}
Else
{
Sv = 0;
Si = 0;
}
var1 = SumBv+Bv;
Value2 = var1/(SumBi+Bi);
Var2 = Value22+Value2;
var11 = SumSv+Sv;
Value3 = var11/(SumSi+Si);
var12 = Value33+Value3;
v3[0] = (var2-var12);
if idx >= sig Then
{
sum = 0;
For cnt = 0 to sig-1
{
sum = sum + v3[cnt];
}
Var31 = sum/sig;
Plot1(Var31);
}
3
input : sig(5);
var : cnt(0),OO(0),CC(0),VV(0),idx(0),sum(0);
var : Bv(0),Bi(0),Sv(0),Si(0);
var : sumBv(0),sumBi(0),sumSv(0),sumSi(0);
Array : v3[100](0);
if dayofweek(Bdate) < DayOfWeek(Bdate[1]) Then
{
OO = O;
VV = 0;
idx = idx+1;
sumBv = sumBv + Bv[1];
sumBi = sumBi + Bi[1];
sumSv = sumSv + Sv[1];
sumSi = sumSi + Si[1];
Value22 = value22 + Value2[1];
Value33 = value33 + Value3[1];
for cnt = 1 to 99
{
v3[cnt] = v3[cnt-1][1];
}
}
CC = C;
VV = VV+V;
if C > OO Then
{
Bv = (CC*VV);
Bi = 1;
}
Else
{
Bv = 0;
Bi = 0;
}
if C < OO Then
{
Sv = (CC*VV);
Si = 1;
}
Else
{
Sv = 0;
Si = 0;
}
var1 = SumBv+Bv;
Value2 = var1/(SumBi+Bi);
Var2 = Value22+Value2;
var11 = SumSv+Sv;
Value3 = var11/(SumSi+Si);
var12 = Value33+Value3;
v3[0] = (var2-var12);
if idx >= sig Then
{
sum = 0;
For cnt = 0 to sig-1
{
sum = sum + v3[cnt];
}
Var31 = sum/sig;
Plot1(Var31);
}
즐거운 하루되세요
> 뮬리 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움에 감사 드립니다.
타주기 수식 부탁 드립니다.
예를 들어
1)10분봉차트에서 60분봉 지표
2)60분봉차트에서 일봉지표
3)일봉차트에서 주봉 지표
참고로 전에 작성 해주신
유사한 타주기 수식 첨부 합니다.
미리 경배로 감사 인사 올립니다.
input :sig(5);
var1 = accum(iff(C>O,C*V,0));
var2 = var1/accum(iff(C>O,1,0));
var11 = accum(iff(C<O,C*V,0));
var12 = var11/accum(iff(C<O,1,0));
var3=var2-var12;
var31=ma(var3,sig);
참고수식)
input : ntime(30),P1(20),sig(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0),sum(0);
Array : OO[81](0),CC[81](0),VV[81](0),diff[81](0),idx[81](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
{
OO[0] = O;
VV[0] = V;
for cnt = 1 to 80
{
OO[cnt] = OO[cnt-1][1];
CC[cnt] = CC[cnt-1][1];
VV[cnt] = VV[cnt-1][1];
diff[cnt] = diff[cnt-1][1];
idx[cnt] = idx[cnt-1][1];
}
}
CC[0] = C;
VV[0] = VV[0]+V;
if VV[P1-1] > 0 then
{
var1 = 0;
value1 = 0;
var11 = 0;
value11 = 0;
for cnt = 0 to P1-1
{
if CC[cnt] > OO[cnt] then
{
var1 = var1 + (CC[cnt]*VV[cnt]);
value1 = value1 + 1;
}
if CC[cnt] < OO[cnt] then
{
var11 = var11 + (CC[cnt]*VV[cnt]);
value11 = value11 + 1;
}
}
var2 = var1/value1;
var12 = var11/value11;
diff[0] = var2-var12;
idx[0] = 1;
}
if idx[sig-1] > 0 then
{
sum = 0;
for cnt = 0 to sig-1
{
sum = sum + diff[cnt];
}
var31 = sum/sig;
plot2(var31);
}
}
다음글
이전글