커뮤니티
부탁 드립니다.
2016-12-02 13:22:51
138
글번호 104585
도움 주심에 감사 드립니다.
다음을 5분봉 차트에서
10분,60분봉,일봉 지표를 볼수 있겠는지요?
미리 감사 드립니다.
INPUT:P21(21);
VAR: ID(0),BEAR(0),RA(0),ST(0);
BEAR=ACCUMN(ABS(L-L[1]),P21)/P21;
RA=ACCUMN(C-L,P21)/P21;
ST=C-(BEAR+RA)*3;
PLOT1(ST);
답변 1
예스스탁 예스스탁 답변
2016-12-05 13:08:08
안녕하세요
예스스탁입니다.
INPUT:P21(21);
VAR: cnt(0),ID(0),BEAR(0),RA(0),ST(0);
var : sum11(0),sum12(0),BEAR1(0),RA1(0),ST1(0);
var : sum21(0),sum22(0),BEAR2(0),RA2(0),ST2(0),TF2(0);
var : sum31(0),sum32(0),BEAR3(0),RA3(0),ST3(0),TF3(0);
Array: L2[100](0),C2[100](0),L3[100](0),C3[100](0);
BEAR=ACCUMN(ABS(L-L[1]),P21)/P21;
RA=ACCUMN(C-L,P21)/P21;
ST=C-(BEAR+RA)*3;
PLOT1(ST);
if daylow(P21) > 0 then{
sum11 = 0;
sum12 = 0;
for cnt = 0 to P21-1{
sum11 = sum11 + abs(daylow(cnt)-daylow(cnt+1));
sum12 = sum12 + abs(DayClose(cnt)-daylow(cnt));
}
BEAR1 = sum11/P21;
RA1 = sum12/P21;
ST1=C-(BEAR1+RA1)*3;
PLOT2(ST1);
}
TF2 = TimeToMinutes(stime)%10;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF2 < TF2[1]) Then{
L2[0] = L;
for cnt = 1 to 99{
C2[cnt] = C2[cnt-1][1];
L2[cnt] = L2[cnt-1][1];
}
}
if L < L2[0] Then
L2[0] = L;
C2[0] = C;
if L2[P21] > 0 Then{
sum21 = 0;
sum22 = 0;
for cnt = 0 to P21-1{
sum21 = sum21 + abs(L2[cnt]-L2[cnt+1]);
sum22 = sum22 + abs(C2[cnt]-L2[cnt]);
}
BEAR2 = sum21/P21;
RA2 = sum22/P21;
ST2 = C-(BEAR2+RA2)*3;
plot3(ST2);
}
TF3 = TimeToMinutes(stime)%60;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF3 < TF3[1]) Then{
L3[0] = L;
for cnt = 1 to 99{
C3[cnt] = C3[cnt-1][1];
L3[cnt] = L3[cnt-1][1];
}
}
if L < L3[0] Then
L3[0] = L;
C3[0] = C;
if L3[P21] > 0 Then{
sum31 = 0;
sum32 = 0;
for cnt = 0 to P21-1{
sum31 = sum31 + abs(L3[cnt]-L3[cnt+1]);
sum32 = sum32 + abs(C3[cnt]-L3[cnt]);
}
BEAR3 = sum31/P21;
RA3 = sum32/P21;
ST3 = C-(BEAR3+RA3)*3;
plot4(ST3);
}
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움 주심에 감사 드립니다.
다음을 5분봉 차트에서
10분,60분봉,일봉 지표를 볼수 있겠는지요?
미리 감사 드립니다.
INPUT:P21(21);
VAR: ID(0),BEAR(0),RA(0),ST(0);
BEAR=ACCUMN(ABS(L-L[1]),P21)/P21;
RA=ACCUMN(C-L,P21)/P21;
ST=C-(BEAR+RA)*3;
PLOT1(ST);