커뮤니티
부탁 드립니다.
2016-12-05 20:25:24
112
글번호 104654
도움 주심에 감사 드립니다.
아래는 어제 질문 드린 예제수식과 예제답변수식 입니다.
질문 수식을 예제답변수식과 같이 수정 부탁 드리고자 합니다.
미리 감사 드립니다.
예제수식)
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);
질문수식)
INPUT:P21(21);
VAR: BEAR(0),RA(0),ST(0);
BEAR=ACCUMN(ABS(H-H[1]),P21)/P21;
RA=ACCUMN(H-C,P21)/P21;
ST=C-(BEAR+RA)*3;
PLOT1(ST);
예제답변수식)
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);
}
답변 1
예스스탁 예스스탁 답변
2016-12-06 13:20:09
안녕하세요
예스스탁입니다.
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: H2[100](0),C2[100](0),H3[100](0),C3[100](0);
BEAR=ACCUMN(ABS(H-H[1]),P21)/P21;
RA=ACCUMN(H-C,P21)/P21;
ST=C-(BEAR+RA)*3;
PLOT1(ST);
if DayHigh(P21) > 0 then{
sum11 = 0;
sum12 = 0;
for cnt = 0 to P21-1{
sum11 = sum11 + abs(DayHigh(cnt)-DayHigh(cnt+1));
sum12 = sum12 + abs(DayClose(cnt)-DayHigh(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{
H2[0] = H;
for cnt = 1 to 99{
C2[cnt] = C2[cnt-1][1];
H2[cnt] = H2[cnt-1][1];
}
}
if H > H2[0] Then
H2[0] = H;
C2[0] = C;
if H2[P21] > 0 Then{
sum21 = 0;
sum22 = 0;
for cnt = 0 to P21-1{
sum21 = sum21 + abs(H2[cnt]-H2[cnt+1]);
sum22 = sum22 + abs(C2[cnt]-H2[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{
H3[0] = L;
for cnt = 1 to 99{
C3[cnt] = C3[cnt-1][1];
H3[cnt] = H3[cnt-1][1];
}
}
if H > H3[0] Then
H3[0] = H;
C3[0] = C;
if H3[P21] > 0 Then{
sum31 = 0;
sum32 = 0;
for cnt = 0 to P21-1{
sum31 = sum31 + abs(H3[cnt]-H3[cnt+1]);
sum32 = sum32 + abs(C3[cnt]-H3[cnt]);
}
BEAR3 = sum31/P21;
RA3 = sum32/P21;
ST3 = C-(BEAR3+RA3)*3;
plot4(ST3);
}
즐거운 하루되세요
> yes 님이 쓴 글입니다.
> 제목 : 부탁 드립니다.
> 도움 주심에 감사 드립니다.
아래는 어제 질문 드린 예제수식과 예제답변수식 입니다.
질문 수식을 예제답변수식과 같이 수정 부탁 드리고자 합니다.
미리 감사 드립니다.
예제수식)
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);
질문수식)
INPUT:P21(21);
VAR: BEAR(0),RA(0),ST(0);
BEAR=ACCUMN(ABS(H-H[1]),P21)/P21;
RA=ACCUMN(H-C,P21)/P21;
ST=C-(BEAR+RA)*3;
PLOT1(ST);
예제답변수식)
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);
}
다음글
이전글