커뮤니티
부탁드립니다.
2017-12-03 05:38:03
134
글번호 114665
도움주심에 감사 드립니다.
다음 일목 균형표에서
cm기준선=c-기준선;를 타주기(분용)에서 나타 내고자 합니다.
참고 수식에서 수정 부탁 드립니다.
Var : 기준선(0), 전환선(0), 후행스팬(0), 선행스팬1(0), 선행스팬2(0),cm기준선(0);
전환선 = (Highest(c, 9) + Lowest(c, 9)) / 2;
기준선 = (Highest(c, 26) + Lowest(c, 26)) / 2;
후행스팬 = c ;
선행스팬1 = (전환선 + 기준선) / 2 ;
선행스팬2 = (Highest(c, 52) + Lowest(c, 52)) / 2;
cm기준선=c-기준선;
참고수식)
input : 타주기_분_Atime1(10);
//전환선기간(9),기준선기간(26),선행스팬2기간(52);
var : TT(0),idx(0);
var : cnt(0),H1(0),L1(0),H11(0),L11(0),H2(0),L2(0),H22(0),L22(0),H3(0),L3(0);
var : 전환선(0),기준선(0),선행스팬1(0),선행스팬2(0),s1(0),d1(0),tm(0);
Array : HH[100](0),LL[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;
Tt = TM%타주기_분_Atime1;
if bdate != bdate[1] or (Bdate == Bdate[1] and TT < TT[1]) Then{
HH[0] = H;
LL[0] = L;
for cnt = 1 to 99{
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
if HH[52+25] > 0 and LL[52+25] > 0 then{
// if HH[선행스팬2기간+25] > 0 and LL[선행스팬2기간+25] > 0 then{
H1 = HH[0];
L1 = LL[0];
H11 = HH[25];
L11 = LL[25];
H2 = HH[0];
L2 = LL[0];
H22 = HH[25];
L22 = LL[25];
H3 = HH[25];
L3 = LL[25];
// for cnt = 0 to 선행스팬2기간-1{
for cnt = 0 to 52-1{
//if cnt < 전환선기간 Then{
if cnt < 9 Then{
if HH[cnt] > H1 Then
H1 = HH[cnt];
if LL[cnt] < L1 Then
L1 = LL[cnt];
if HH[cnt+25] > H11 Then
H11 = HH[cnt+25];
if LL[cnt+25] < L11 Then
L11 = LL[cnt+25];
}
// if cnt < 기준선기간 Then{
if cnt < 26 Then{
if HH[cnt] > H2 Then
H2 = HH[cnt];
if LL[cnt] < L2 Then
L2 = LL[cnt];
if HH[cnt+25] > H22 Then
H22 = HH[cnt+25];
if LL[cnt+25] < L22 Then
L22 = LL[cnt+25];
}
if HH[cnt+25] > H3 Then
H3 = HH[cnt+25];
if LL[cnt+25] < L3 Then
L3 = LL[cnt+25];
}
전환선 = (H1 + L1)/2;
기준선 = (H2 + L2)/2;
선행스팬1 = ((H11+L11)/2 + (H22+L22)/2) / 2 ;
선행스팬2 = (H3+L3) / 2;
}}
답변 1
예스스탁 예스스탁 답변
2017-12-04 14:39:19
안녕하세요
예스스탁입니다.
input : 타주기_분_Atime1(10);
//전환선기간(9),기준선기간(26),선행스팬2기간(52);
var : TT(0),idx(0);
var : cnt(0),H1(0),L1(0),H11(0),L11(0),H2(0),L2(0),H22(0),L22(0),H3(0),L3(0);
var : 전환선(0),기준선(0),선행스팬1(0),선행스팬2(0),s1(0),d1(0),tm(0),CM기준선(0);
Array : HH[100](0),LL[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;
Tt = TM%타주기_분_Atime1;
if bdate != bdate[1] or (Bdate == Bdate[1] and TT < TT[1]) Then{
HH[0] = H;
LL[0] = L;
for cnt = 1 to 99{
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
if HH[52+25] > 0 and LL[52+25] > 0 then{
// if HH[선행스팬2기간+25] > 0 and LL[선행스팬2기간+25] > 0 then{
H1 = HH[0];
L1 = LL[0];
H11 = HH[25];
L11 = LL[25];
H2 = HH[0];
L2 = LL[0];
H22 = HH[25];
L22 = LL[25];
H3 = HH[25];
L3 = LL[25];
// for cnt = 0 to 선행스팬2기간-1{
for cnt = 0 to 52-1{
//if cnt < 전환선기간 Then{
if cnt < 9 Then{
if HH[cnt] > H1 Then
H1 = HH[cnt];
if LL[cnt] < L1 Then
L1 = LL[cnt];
if HH[cnt+25] > H11 Then
H11 = HH[cnt+25];
if LL[cnt+25] < L11 Then
L11 = LL[cnt+25];
}
// if cnt < 기준선기간 Then{
if cnt < 26 Then{
if HH[cnt] > H2 Then
H2 = HH[cnt];
if LL[cnt] < L2 Then
L2 = LL[cnt];
if HH[cnt+25] > H22 Then
H22 = HH[cnt+25];
if LL[cnt+25] < L22 Then
L22 = LL[cnt+25];
}
if HH[cnt+25] > H3 Then
H3 = HH[cnt+25];
if LL[cnt+25] < L3 Then
L3 = LL[cnt+25];
}
전환선 = (H1 + L1)/2;
기준선 = (H2 + L2)/2;
선행스팬1 = ((H11+L11)/2 + (H22+L22)/2) / 2 ;
선행스팬2 = (H3+L3) / 2;
CM기준선= c-기준선;
plot1(CM기준선);
}
}
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁드립니다.
> 도움주심에 감사 드립니다.
다음 일목 균형표에서
cm기준선=c-기준선;를 타주기(분용)에서 나타 내고자 합니다.
참고 수식에서 수정 부탁 드립니다.
Var : 기준선(0), 전환선(0), 후행스팬(0), 선행스팬1(0), 선행스팬2(0),cm기준선(0);
전환선 = (Highest(c, 9) + Lowest(c, 9)) / 2;
기준선 = (Highest(c, 26) + Lowest(c, 26)) / 2;
후행스팬 = c ;
선행스팬1 = (전환선 + 기준선) / 2 ;
선행스팬2 = (Highest(c, 52) + Lowest(c, 52)) / 2;
cm기준선=c-기준선;
참고수식)
input : 타주기_분_Atime1(10);
//전환선기간(9),기준선기간(26),선행스팬2기간(52);
var : TT(0),idx(0);
var : cnt(0),H1(0),L1(0),H11(0),L11(0),H2(0),L2(0),H22(0),L22(0),H3(0),L3(0);
var : 전환선(0),기준선(0),선행스팬1(0),선행스팬2(0),s1(0),d1(0),tm(0);
Array : HH[100](0),LL[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;
Tt = TM%타주기_분_Atime1;
if bdate != bdate[1] or (Bdate == Bdate[1] and TT < TT[1]) Then{
HH[0] = H;
LL[0] = L;
for cnt = 1 to 99{
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
if HH[52+25] > 0 and LL[52+25] > 0 then{
// if HH[선행스팬2기간+25] > 0 and LL[선행스팬2기간+25] > 0 then{
H1 = HH[0];
L1 = LL[0];
H11 = HH[25];
L11 = LL[25];
H2 = HH[0];
L2 = LL[0];
H22 = HH[25];
L22 = LL[25];
H3 = HH[25];
L3 = LL[25];
// for cnt = 0 to 선행스팬2기간-1{
for cnt = 0 to 52-1{
//if cnt < 전환선기간 Then{
if cnt < 9 Then{
if HH[cnt] > H1 Then
H1 = HH[cnt];
if LL[cnt] < L1 Then
L1 = LL[cnt];
if HH[cnt+25] > H11 Then
H11 = HH[cnt+25];
if LL[cnt+25] < L11 Then
L11 = LL[cnt+25];
}
// if cnt < 기준선기간 Then{
if cnt < 26 Then{
if HH[cnt] > H2 Then
H2 = HH[cnt];
if LL[cnt] < L2 Then
L2 = LL[cnt];
if HH[cnt+25] > H22 Then
H22 = HH[cnt+25];
if LL[cnt+25] < L22 Then
L22 = LL[cnt+25];
}
if HH[cnt+25] > H3 Then
H3 = HH[cnt+25];
if LL[cnt+25] < L3 Then
L3 = LL[cnt+25];
}
전환선 = (H1 + L1)/2;
기준선 = (H2 + L2)/2;
선행스팬1 = ((H11+L11)/2 + (H22+L22)/2) / 2 ;
선행스팬2 = (H3+L3) / 2;
}}
다음글
이전글