커뮤니티
수정 부탁드려요
2017-03-15 11:00:54
141
글번호 107805
52376 댓글에 보완 사항을 적었습니다
확인해보시고 수정 부탁드립니다
답변 1
예스스탁 예스스탁 답변
2017-03-15 11:52:21
안녕하세요
예스스탁입니다.
아래 내용 참고하시기 바랍니다
var : T(0),S(0),count(0),H1(0),L1(0),HH(0),LL(0);
var1 = ma(C,20);
if C > var1 and countif(C>O,2) == 2 Then
T = 1;
if C < var1 and countif(C<O,2) == 2 Then
T = -1;
if C > O Then
S = 1;
if C < O Then
S = -1;
#상승반전 카운트 초기화
if T == 1 and T[1] != 1 Then{
count = 0;
}
#하락반전 카운트 초기화
if T == 1 and T[1] != 1 Then{
count = 0;
}
#양봉구간 최고가
if S == 1 and S[1] != 1 Then
HH = H;
if S == 1 and H > HH Then
HH = H;
#음봉구간 최저가
if S == -1 and S[1] != -1 Then
LL = L;
if S == -1 and L < LL Then
LL = L;
#상승구간
if T == 1 then{
#양봉구간이다가 음봉발생
if S == -1 and S[1] == 1 Then{
#횟수 카운트
if count == 0 Then{
count = 1;
H1 = HH;
}
Else{
if HH > H1 Then{
H1 = HH;
count = count+1;
}
}
if count != count[1] then{
#횟수에 따라 지정된 숫자 출력
if count == 1 Then Text_New(sdate[1],stime[1],H[1],NumToStr(1,0)); #카운트가 1이면 전봉고가에 1출력
if count == 2 Then Text_New(sdate[1],stime[1],H[1],NumToStr(3,0)); #카운트가 2이면 전봉고가에 3출력
if count == 3 Then Text_New(sdate[1],stime[1],H[1],NumToStr(5,0)); #카운트가 3이면 전봉고가에 5출력
if count == 4 Then Text_New(sdate[1],stime[1],H[1],NumToStr(7,0)); #카운트가 4이면 전봉고가에 7출력
if count == 5 Then Text_New(sdate[1],stime[1],H[1],NumToStr(9,0)); #카운트가 5이면 전봉고가에 9출력
if count == 6 Then Text_New(sdate[1],stime[1],H[1],NumToStr(11,0)); #카운트가 6이면 전봉고가에 11출력
if count == 7 Then Text_New(sdate[1],stime[1],H[1],NumToStr(13,0)); #카운트가 7이면 전봉고가에 13출력
if count == 8 Then Text_New(sdate[1],stime[1],H[1],NumToStr(15,0)); #카운트가 8이면 전봉고가에 13출력
}
}
}
#하락구간
if T == 1 then{
#음봉구간이다가 양봉발생
if S == 1 and S[1] == -1 Then{
#횟수 카운트
if count == 0 Then{
count = 1;
L1 = LL;
}
Else{
if LL < L1 Then{
L1 = LL;
count = count+1;
}
}
if count != count[1] then{
#횟수에 따라 지정된 숫자 출력
if count == 1 Then Text_New(sdate[1],stime[1],H[1],NumToStr(1,0)); #카운트가 1이면 전봉고가에 1출력
if count == 2 Then Text_New(sdate[1],stime[1],H[1],NumToStr(3,0)); #카운트가 2이면 전봉고가에 3출력
if count == 3 Then Text_New(sdate[1],stime[1],H[1],NumToStr(5,0)); #카운트가 3이면 전봉고가에 5출력
if count == 4 Then Text_New(sdate[1],stime[1],H[1],NumToStr(7,0)); #카운트가 4이면 전봉고가에 7출력
if count == 5 Then Text_New(sdate[1],stime[1],H[1],NumToStr(9,0)); #카운트가 5이면 전봉고가에 9출력
if count == 6 Then Text_New(sdate[1],stime[1],H[1],NumToStr(11,0)); #카운트가 6이면 전봉고가에 11출력
if count == 7 Then Text_New(sdate[1],stime[1],H[1],NumToStr(13,0)); #카운트가 7이면 전봉고가에 13출력
if count == 8 Then Text_New(sdate[1],stime[1],H[1],NumToStr(15,0)); #카운트가 8이면 전봉고가에 13출력
}
}
}
즐거운 하루되세요
> 정상에서야 님이 쓴 글입니다.
> 제목 : 수정 부탁드려요
>
52376 댓글에 보완 사항을 적었습니다
확인해보시고 수정 부탁드립니다
다음글
이전글