커뮤니티
부탁 드립니다.
2021-10-17 21:38:55
870
글번호 152913
도움에 감사 드립니다.
타주기 수식 부탁 드리고자 합니다.
1)분봉용(예를 들어 10분차트에서 60분 지표)
2)일봉용(일봉차트 지표를 분봉차트에)
3)주봉용(주봉차트 지표를 분봉차트에)
미리 감사 드립니다.
input : p(30),sig(5);
var1=accumn(iff(C>O,V,0),p);
var2=accumn(iff(C>O,1,0),p);
Var3=var1/Var2;
var11=accumn(iff(C<O,V,0),p);
var12=accumn(iff(C<O,1,0),p);
var13=var11/var12;
var33=var3-var13;
var41=ma(var33,sig);
참고수식)
input : Ntime1(60),P(100);
var : TF(0),S1(0),D1(0),TM(0),cnt(0);
var : ai(0),bi(0),a(0),b(0);
Array : HV[101](0),LV[101](0);
Array : HH[101](0),LL[101](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%ntime1;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and Ntime1 > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and Ntime1> 1 and TM >= TM[1]+Ntime1) or
(Bdate == Bdate[1] and Ntime1 == 1 and TM > TM[1]) Then
{
답변 1
예스스탁 예스스탁 답변
2021-10-18 10:52:27
안녕하세요
예스스탁입니다.
1
input : Ntime1(60),P(30),sig(5);
var : TF(0),S1(0),D1(0),TM(0),cnt(0),X(0),Y(0),sum(0);
Array : CC[101](0),OO[101](0),VV[101](0),V33[101](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%ntime1;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and Ntime1 > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and Ntime1> 1 and TM >= TM[1]+Ntime1) or
(Bdate == Bdate[1] and Ntime1 == 1 and TM > TM[1]) Then
{
OO[0] = O;
VV[0] = 0;
For cnt = 1 to 100
{
OO[cnt] = OO[cnt-1][1];
CC[cnt] = CC[cnt-1][1];
VV[cnt] = VV[cnt-1][1];
v33[cnt] = v33[cnt];
}
}
CC[0] = C;
VV[0] = VV[0] + v;
if OO[P+sig-1] > 0 Then
{
sum = 0;
For X = 0 to sig-1
{
var1 = 0;
Var2 = 0;
var11 = 0;
var12 = 0;
For Y = X+0 to X+P-1
{
if CC[Y] > OO[Y] Then
{
var1 = var1+VV[Y];
Var2 = Var2+1;
}
if CC[Y] < OO[Y] Then
{
var11 = var11+VV[Y];
Var12 = Var12+1;
}
}
Var3 = var1/Var2;
Var13 = var11/Var12;
Var33 = Var3-var13;
sum = sum + Var33;
}
var41 = sum/sig;
Plot1(var41);
}
}
2
input : Ntime1(60),P(30),sig(5);
var : cnt(0),X(0),Y(0),sum(0);
Array : CC[101](0),OO[101](0),VV[101](0),V33[101](0);
if Bdate != Bdate[1] Then
{
OO[0] = O;
VV[0] = 0;
For cnt = 1 to 100
{
OO[cnt] = OO[cnt-1][1];
CC[cnt] = CC[cnt-1][1];
VV[cnt] = VV[cnt-1][1];
v33[cnt] = v33[cnt];
}
}
CC[0] = C;
VV[0] = VV[0] + v;
if OO[P+sig-1] > 0 Then
{
sum = 0;
For X = 0 to sig-1
{
var1 = 0;
Var2 = 0;
var11 = 0;
var12 = 0;
For Y = X+0 to X+P-1
{
if CC[Y] > OO[Y] Then
{
var1 = var1+VV[Y];
Var2 = Var2+1;
}
if CC[Y] < OO[Y] Then
{
var11 = var11+VV[Y];
Var12 = Var12+1;
}
}
Var3 = var1/Var2;
Var13 = var11/Var12;
Var33 = Var3-var13;
sum = sum + Var33;
}
var41 = sum/sig;
Plot1(var41);
}
3
input : Ntime1(60),P(30),sig(5);
var : cnt(0),X(0),Y(0),sum(0);
Array : CC[101](0),OO[101](0),VV[101](0),V33[101](0);
if dayofweek(Bdate) < DayOfWeek(Bdate[1]) Then
{
OO[0] = O;
VV[0] = 0;
For cnt = 1 to 100
{
OO[cnt] = OO[cnt-1][1];
CC[cnt] = CC[cnt-1][1];
VV[cnt] = VV[cnt-1][1];
v33[cnt] = v33[cnt];
}
}
CC[0] = C;
VV[0] = VV[0] + v;
if OO[P+sig-1] > 0 Then
{
sum = 0;
For X = 0 to sig-1
{
var1 = 0;
Var2 = 0;
var11 = 0;
var12 = 0;
For Y = X+0 to X+P-1
{
if CC[Y] > OO[Y] Then
{
var1 = var1+VV[Y];
Var2 = Var2+1;
}
if CC[Y] < OO[Y] Then
{
var11 = var11+VV[Y];
Var12 = Var12+1;
}
}
Var3 = var1/Var2;
Var13 = var11/Var12;
Var33 = Var3-var13;
sum = sum + Var33;
}
var41 = sum/sig;
Plot1(var41);
}
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움에 감사 드립니다.
타주기 수식 부탁 드리고자 합니다.
1)분봉용(예를 들어 10분차트에서 60분 지표)
2)일봉용(일봉차트 지표를 분봉차트에)
3)주봉용(주봉차트 지표를 분봉차트에)
미리 감사 드립니다.
input : p(30),sig(5);
var1=accumn(iff(C>O,V,0),p);
var2=accumn(iff(C>O,1,0),p);
Var3=var1/Var2;
var11=accumn(iff(C<O,V,0),p);
var12=accumn(iff(C<O,1,0),p);
var13=var11/var12;
var33=var3-var13;
var41=ma(var33,sig);
참고수식)
input : Ntime1(60),P(100);
var : TF(0),S1(0),D1(0),TM(0),cnt(0);
var : ai(0),bi(0),a(0),b(0);
Array : HV[101](0),LV[101](0);
Array : HH[101](0),LL[101](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%ntime1;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and Ntime1 > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and Ntime1> 1 and TM >= TM[1]+Ntime1) or
(Bdate == Bdate[1] and Ntime1 == 1 and TM > TM[1]) Then
{
다음글