커뮤니티
부탁 드립니다,
2017-12-13 20:40:24
160
글번호 114974
도움주심에 감사 드립니다
타주기에서(분용,틱용)지표를 보고자 부탁 드립니다.
미리 감사 드립니다.
INPUT:p49(5);
VAR:h49(0),l49(0),CL(0),AV(0),MID(0),EM(0);
H49=HIGHEST(C,P49);
L49=LOWEST(C,P49);
CL=(H49+L49)/2;
AV=MA(C,P49);
MID=MA((H+L)/2,P49);
EM=MAX(MIN(3+MID-2*AV,H49),L49);
답변 1
예스스탁 예스스탁 답변
2017-12-14 10:38:05
안녕하세요
예스스탁입니다.
1.
/*INPUT:p49(5);
VAR:h49(0),l49(0),CL(0),AV(0),MID(0),EM(0);
H49=HIGHEST(C,P49);
L49=LOWEST(C,P49);
CL=(H49+L49)/2;
AV=MA(C,P49);
MID=MA((H+L)/2,P49);
EM=MAX(MIN(3+MID-2*AV,H49),L49);*/
input : 타주기_분용(60),P49(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : h49(0),l49(0),CL(0),AV(0),MID(0),EM(0),sum1(0),sum2(0);
Array : HH[100](0),LL[100](0),CC[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%타주기_분용;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[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];
CC[cnt] = CC[cnt-1][1];
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
CC[0] = C;
if HH[P49] > 0 and LL[P49] > 0 then
{
h49 = HH[0];
L49 = LL[0];
sum1 = 0;
sum2 = 0;
for cnt = 0 to P49-1{
if CC[cnt] > h49 Then
h49 = CC[cnt];
if CC[cnt] < l49 Then
l49 = CC[cnt];
sum1 = sum1+CC[cnt];
sum2 = sum2+(HH[cnt]+LL[cnt])/2;
}
CL = (H49+L49)/2;
AV = sum1/P49;
MID = sum2/P49;
EM = MAX(MIN(3+MID-2*AV,H49),L49);
}
}
2
/*INPUT:p49(5);
VAR:h49(0),l49(0),CL(0),AV(0),MID(0),EM(0);
H49=HIGHEST(C,P49);
L49=LOWEST(C,P49);
CL=(H49+L49)/2;
AV=MA(C,P49);
MID=MA((H+L)/2,P49);
EM=MAX(MIN(3+MID-2*AV,H49),L49);*/
input : 틱배수(2),P49(5);
var : ii(0),TF(0),cnt(0);
var : h49(0),l49(0),CL(0),AV(0),MID(0),EM(0),sum1(0),sum2(0);
Array : HH[100](0),LL[100](0),CC[100](0);
if Bdate != Bdate[1] Then
ii = 0;
Else
ii = ii+1;
TF = ii%틱배수;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[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];
CC[cnt] = CC[cnt-1][1];
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
CC[0] = C;
if HH[P49] > 0 and LL[P49] > 0 then
{
h49 = HH[0];
L49 = LL[0];
sum1 = 0;
sum2 = 0;
for cnt = 0 to P49-1{
if CC[cnt] > h49 Then
h49 = CC[cnt];
if CC[cnt] < l49 Then
l49 = CC[cnt];
sum1 = sum1+CC[cnt];
sum2 = sum2+(HH[cnt]+LL[cnt])/2;
}
CL = (H49+L49)/2;
AV = sum1/P49;
MID = sum2/P49;
EM = MAX(MIN(3+MID-2*AV,H49),L49);
}
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁 드립니다,
> 도움주심에 감사 드립니다
타주기에서(분용,틱용)지표를 보고자 부탁 드립니다.
미리 감사 드립니다.
INPUT:p49(5);
VAR:h49(0),l49(0),CL(0),AV(0),MID(0),EM(0);
H49=HIGHEST(C,P49);
L49=LOWEST(C,P49);
CL=(H49+L49)/2;
AV=MA(C,P49);
MID=MA((H+L)/2,P49);
EM=MAX(MIN(3+MID-2*AV,H49),L49);
다음글
이전글