커뮤니티
부탁 드립니다.
2017-10-22 19:39:58
114
글번호 113532
도움 주심에 감사 드립니다.
분봉 타주기에 사용 하던 수식을
질문1)분봉에서 일봉 지표를
질문2)분봉에서 주봉 지표를
질눈3)분봉에서 월봉 지표를
질문4)일봉에서 주봉 지표를
질문5)일봉에서 월봉 지표를
볼려고 합니다.
수정 부탁 드립니다.
input : 분주기(60),P100(50);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : HV1(0),HV2(0),HV3(0);
var : HH1(0),HH2(0),HH3(0);
var : LL1(0),LL2(0),LL3(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-S1;
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;
HV3 = 0;
HH2 = 0;
HH3 = 0;
LL2 = 9999999999;
LL3 = 99999999;
/////////////////////////////////////////
#########################################
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];}
/////////////////////////////////////////////////////////////////////////////
############################################################################
/////////////////////////////////////////
#########################################
for cnt = 0 to P100-1{
if VV[cnt] > HV3 and VV[cnt] < HV2 Then
HV3 = VV[cnt];
if HH[cnt] > HH3 and HH[cnt] < HH2 Then
HH3 = HH[cnt];
if LL[cnt] < LL3 and LL[cnt] > LL2 Then
LL3 = LL[cnt];}
/////////////////////////////////////////////////////////////////////////////
############################################################################
}}
답변 1
예스스탁 예스스탁 답변
2017-10-23 16:59:07
안녕하세요
예스스탁입니다.
4,5번은 2,3번수식과 같습니다
1.
input : P100(50);
var : cnt(0);
var : HV1(0),HV2(0),HV3(0);
var : HH1(0),HH2(0),HH3(0);
var : LL1(0),LL2(0),LL3(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;
HV3 = 0;
HH2 = 0;
HH3 = 0;
LL2 = 9999999999;
LL3 = 99999999;
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];
}
for cnt = 0 to P100-1{
if VV[cnt] > HV3 and VV[cnt] < HV2 Then
HV3 = VV[cnt];
if HH[cnt] > HH3 and HH[cnt] < HH2 Then
HH3 = HH[cnt];
if LL[cnt] < LL3 and LL[cnt] > LL2 Then
LL3 = LL[cnt];
}
}
2
input : P100(50);
var : cnt(0);
var : HV1(0),HV2(0),HV3(0);
var : HH1(0),HH2(0),HH3(0);
var : LL1(0),LL2(0),LL3(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;
HV3 = 0;
HH2 = 0;
HH3 = 0;
LL2 = 9999999999;
LL3 = 99999999;
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];
}
for cnt = 0 to P100-1{
if VV[cnt] > HV3 and VV[cnt] < HV2 Then
HV3 = VV[cnt];
if HH[cnt] > HH3 and HH[cnt] < HH2 Then
HH3 = HH[cnt];
if LL[cnt] < LL3 and LL[cnt] > LL2 Then
LL3 = LL[cnt];
}
}
3
input : P100(50);
var : cnt(0);
var : HV1(0),HV2(0),HV3(0);
var : HH1(0),HH2(0),HH3(0);
var : LL1(0),LL2(0),LL3(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;
HV3 = 0;
HH2 = 0;
HH3 = 0;
LL2 = 9999999999;
LL3 = 99999999;
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];
}
for cnt = 0 to P100-1{
if VV[cnt] > HV3 and VV[cnt] < HV2 Then
HV3 = VV[cnt];
if HH[cnt] > HH3 and HH[cnt] < HH2 Then
HH3 = HH[cnt];
if LL[cnt] < LL3 and LL[cnt] > LL2 Then
LL3 = LL[cnt];
}
}
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움 주심에 감사 드립니다.
분봉 타주기에 사용 하던 수식을
질문1)분봉에서 일봉 지표를
질문2)분봉에서 주봉 지표를
질눈3)분봉에서 월봉 지표를
질문4)일봉에서 주봉 지표를
질문5)일봉에서 월봉 지표를
볼려고 합니다.
수정 부탁 드립니다.
input : 분주기(60),P100(50);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : HV1(0),HV2(0),HV3(0);
var : HH1(0),HH2(0),HH3(0);
var : LL1(0),LL2(0),LL3(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-S1;
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;
HV3 = 0;
HH2 = 0;
HH3 = 0;
LL2 = 9999999999;
LL3 = 99999999;
/////////////////////////////////////////
#########################################
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];}
/////////////////////////////////////////////////////////////////////////////
############################################################################
/////////////////////////////////////////
#########################################
for cnt = 0 to P100-1{
if VV[cnt] > HV3 and VV[cnt] < HV2 Then
HV3 = VV[cnt];
if HH[cnt] > HH3 and HH[cnt] < HH2 Then
HH3 = HH[cnt];
if LL[cnt] < LL3 and LL[cnt] > LL2 Then
LL3 = LL[cnt];}
/////////////////////////////////////////////////////////////////////////////
############################################################################
}}