커뮤니티
부탁 드립니다.
2017-07-31 02:24:02
106
글번호 111667
도움주심에 경배로 감사 인사 올립니다.
아래 60분봉의 타주기용 지표를
1)일봉용을 분봉,틱봉에서 사용할수 있도록 수정 부탁 드립니다.
2)주봉용을 일봉,분봉에서 사용할수 있도록 수정 부탁 드립니다
3)월봉용을 주봉,일봉,분봉에서 사용할수 있도록 수정 부탁 드립니다
input : 분주기(60),P100(26);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : HV1(0),HV2(0);
var : HH1(0),HH2(0);
var : LL1(0),LL2(0);
Array : HH[100](0),LL[100](0),OO[100](0),CC[100](0),VV[100](0);
if Bdate != Bdate[1] Then{
S1 = TimeToMinutes(100000);
D1 = sdate;
}
if D1 > 0 then{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S
1;
TF = TM%분주기;
if bdate != bdate[1] or (bdate == bdate[1] and TF < TF[1]) Then{
OO[0] = O;
HH[0] = H;
LL[0] = L;
VV[0] = 0;
for cnt = 1 to 99{
OO[cnt] = OO[cnt-1][1];
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
CC[cnt] = CC[cnt-1][1];
VV[cnt] = VV[cnt-1][1];
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
CC[0] = C;
VV[0] = VV[0]+v;
if HH[P100] > 0 Then{
HV1 = VV[0];
HH1 = HH[0];
LL1 = LL[0];
for cnt = 0 to P100-1{
if VV[cnt] > HV1 Then
HV1 = VV[cnt];
if HH[cnt] > HH1 Then
HH1 = HH[cnt];
if LL[cnt] < LL1 Then
LL1 = LL[cnt];
}
HV2 = 0;
HH2 = 0;
LL2 = 9999999999;
for cnt = 0 to P100-1{
if VV[cnt] > HV2 and VV[cnt] < HV1 Then
HV2 = VV[cnt];
if HH[cnt] > HH2 and HH[cnt] < HH1 Then
HH2 = HH[cnt];
if LL[cnt] < LL2 and LL[cnt] > LL1 Then
LL2 = LL[cnt];
}
if HH1 > 0 and HH[0] == HH1 Then{
var1 = HH[0];}
if HH2 > 0 and HH[0] == HH2 Then{
Var2 = HH[0];}
if LL1 > 0 and LL[0] == LL1 Then{
var21 = LL[0];}
if LL2 > 0 and LL[0] == LL2 Then{
var22 = LL[0];}
if Hv1 > 0 and VV[0] == Hv1 Then{
var31 = CC[0];}
if Hv2 > 0 and VV[0] == Hv2 Then{
var32 = CC[0];}
}
}
답변 1
예스스탁 예스스탁 답변
2017-07-31 16:49:56
안녕하세요
예스스탁입니다.
1.
input : P100(26);
var : cnt(0),HV1(0),HV2(0);
var : HH1(0),HH2(0);
var : LL1(0),LL2(0);
Array : HH[100](0),LL[100](0),OO[100](0),CC[100](0),VV[100](0);
if bdate != bdate[1] Then{
OO[0] = O;
HH[0] = H;
LL[0] = L;
VV[0] = 0;
for cnt = 1 to 99{
OO[cnt] = OO[cnt-1][1];
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
CC[cnt] = CC[cnt-1][1];
VV[cnt] = VV[cnt-1][1];
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
CC[0] = C;
VV[0] = VV[0]+v;
if HH[P100] > 0 Then{
HV1 = VV[0];
HH1 = HH[0];
LL1 = LL[0];
for cnt = 0 to P100-1{
if VV[cnt] > HV1 Then
HV1 = VV[cnt];
if HH[cnt] > HH1 Then
HH1 = HH[cnt];
if LL[cnt] < LL1 Then
LL1 = LL[cnt];
}
HV2 = 0;
HH2 = 0;
LL2 = 9999999999;
for cnt = 0 to P100-1{
if VV[cnt] > HV2 and VV[cnt] < HV1 Then
HV2 = VV[cnt];
if HH[cnt] > HH2 and HH[cnt] < HH1 Then
HH2 = HH[cnt];
if LL[cnt] < LL2 and LL[cnt] > LL1 Then
LL2 = LL[cnt];
}
if HH1 > 0 and HH[0] == HH1 Then{
var1 = HH[0];}
if HH2 > 0 and HH[0] == HH2 Then{
Var2 = HH[0];}
if LL1 > 0 and LL[0] == LL1 Then{
var21 = LL[0];}
if LL2 > 0 and LL[0] == LL2 Then{
var22 = LL[0];}
if Hv1 > 0 and VV[0] == Hv1 Then{
var31 = CC[0];}
if Hv2 > 0 and VV[0] == Hv2 Then{
var32 = CC[0];}
}
2
input : P100(26);
var : cnt(0),HV1(0),HV2(0);
var : HH1(0),HH2(0);
var : LL1(0),LL2(0);
Array : HH[100](0),LL[100](0),OO[100](0),CC[100](0),VV[100](0);
if dayofweek(bdate) < DayOfWeek(bdate[1]) Then{
OO[0] = O;
HH[0] = H;
LL[0] = L;
VV[0] = 0;
for cnt = 1 to 99{
OO[cnt] = OO[cnt-1][1];
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
CC[cnt] = CC[cnt-1][1];
VV[cnt] = VV[cnt-1][1];
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
CC[0] = C;
VV[0] = VV[0]+v;
if HH[P100] > 0 Then{
HV1 = VV[0];
HH1 = HH[0];
LL1 = LL[0];
for cnt = 0 to P100-1{
if VV[cnt] > HV1 Then
HV1 = VV[cnt];
if HH[cnt] > HH1 Then
HH1 = HH[cnt];
if LL[cnt] < LL1 Then
LL1 = LL[cnt];
}
HV2 = 0;
HH2 = 0;
LL2 = 9999999999;
for cnt = 0 to P100-1{
if VV[cnt] > HV2 and VV[cnt] < HV1 Then
HV2 = VV[cnt];
if HH[cnt] > HH2 and HH[cnt] < HH1 Then
HH2 = HH[cnt];
if LL[cnt] < LL2 and LL[cnt] > LL1 Then
LL2 = LL[cnt];
}
if HH1 > 0 and HH[0] == HH1 Then{
var1 = HH[0];}
if HH2 > 0 and HH[0] == HH2 Then{
Var2 = HH[0];}
if LL1 > 0 and LL[0] == LL1 Then{
var21 = LL[0];}
if LL2 > 0 and LL[0] == LL2 Then{
var22 = LL[0];}
if Hv1 > 0 and VV[0] == Hv1 Then{
var31 = CC[0];}
if Hv2 > 0 and VV[0] == Hv2 Then{
var32 = CC[0];}
}
3
input : P100(26);
var : cnt(0),HV1(0),HV2(0);
var : HH1(0),HH2(0);
var : LL1(0),LL2(0);
Array : HH[100](0),LL[100](0),OO[100](0),CC[100](0),VV[100](0);
if bdate > bdate[1]+30 Then{
OO[0] = O;
HH[0] = H;
LL[0] = L;
VV[0] = 0;
for cnt = 1 to 99{
OO[cnt] = OO[cnt-1][1];
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
CC[cnt] = CC[cnt-1][1];
VV[cnt] = VV[cnt-1][1];
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
CC[0] = C;
VV[0] = VV[0]+v;
if HH[P100] > 0 Then{
HV1 = VV[0];
HH1 = HH[0];
LL1 = LL[0];
for cnt = 0 to P100-1{
if VV[cnt] > HV1 Then
HV1 = VV[cnt];
if HH[cnt] > HH1 Then
HH1 = HH[cnt];
if LL[cnt] < LL1 Then
LL1 = LL[cnt];
}
HV2 = 0;
HH2 = 0;
LL2 = 9999999999;
for cnt = 0 to P100-1{
if VV[cnt] > HV2 and VV[cnt] < HV1 Then
HV2 = VV[cnt];
if HH[cnt] > HH2 and HH[cnt] < HH1 Then
HH2 = HH[cnt];
if LL[cnt] < LL2 and LL[cnt] > LL1 Then
LL2 = LL[cnt];
}
if HH1 > 0 and HH[0] == HH1 Then{
var1 = HH[0];}
if HH2 > 0 and HH[0] == HH2 Then{
Var2 = HH[0];}
if LL1 > 0 and LL[0] == LL1 Then{
var21 = LL[0];}
if LL2 > 0 and LL[0] == LL2 Then{
var22 = LL[0];}
if Hv1 > 0 and VV[0] == Hv1 Then{
var31 = CC[0];}
if Hv2 > 0 and VV[0] == Hv2 Then{
var32 = CC[0];}
}
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움주심에 경배로 감사 인사 올립니다.
아래 60분봉의 타주기용 지표를
1)일봉용을 분봉,틱봉에서 사용할수 있도록 수정 부탁 드립니다.
2)주봉용을 일봉,분봉에서 사용할수 있도록 수정 부탁 드립니다
3)월봉용을 주봉,일봉,분봉에서 사용할수 있도록 수정 부탁 드립니다
input : 분주기(60),P100(26);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : HV1(0),HV2(0);
var : HH1(0),HH2(0);
var : LL1(0),LL2(0);
Array : HH[100](0),LL[100](0),OO[100](0),CC[100](0),VV[100](0);
if Bdate != Bdate[1] Then{
S1 = TimeToMinutes(100000);
D1 = sdate;
}
if D1 > 0 then{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S
1;
TF = TM%분주기;
if bdate != bdate[1] or (bdate == bdate[1] and TF < TF[1]) Then{
OO[0] = O;
HH[0] = H;
LL[0] = L;
VV[0] = 0;
for cnt = 1 to 99{
OO[cnt] = OO[cnt-1][1];
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
CC[cnt] = CC[cnt-1][1];
VV[cnt] = VV[cnt-1][1];
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
CC[0] = C;
VV[0] = VV[0]+v;
if HH[P100] > 0 Then{
HV1 = VV[0];
HH1 = HH[0];
LL1 = LL[0];
for cnt = 0 to P100-1{
if VV[cnt] > HV1 Then
HV1 = VV[cnt];
if HH[cnt] > HH1 Then
HH1 = HH[cnt];
if LL[cnt] < LL1 Then
LL1 = LL[cnt];
}
HV2 = 0;
HH2 = 0;
LL2 = 9999999999;
for cnt = 0 to P100-1{
if VV[cnt] > HV2 and VV[cnt] < HV1 Then
HV2 = VV[cnt];
if HH[cnt] > HH2 and HH[cnt] < HH1 Then
HH2 = HH[cnt];
if LL[cnt] < LL2 and LL[cnt] > LL1 Then
LL2 = LL[cnt];
}
if HH1 > 0 and HH[0] == HH1 Then{
var1 = HH[0];}
if HH2 > 0 and HH[0] == HH2 Then{
Var2 = HH[0];}
if LL1 > 0 and LL[0] == LL1 Then{
var21 = LL[0];}
if LL2 > 0 and LL[0] == LL2 Then{
var22 = LL[0];}
if Hv1 > 0 and VV[0] == Hv1 Then{
var31 = CC[0];}
if Hv2 > 0 and VV[0] == Hv2 Then{
var32 = CC[0];}
}
}