1. 당일 고가가 전 주봉이 음봉이고 그 음봉의 (고가+저가)/2보다 크거나 같은 종목을 검색하는 수식을 알고 싶습니다.
2. 1번과 같은데 주봉대신 월봉으로 바꿔서
당일 고가가 전 달 월봉이 음봉이고 그 음봉의 (고가+저가)/2보다 크거나 같은 종목을 검색하는 수식을 알고 싶습니다.
3. 이전 주봉 16개에서 각각 주봉의 (고가+저가)/2 값을 비교하여 (고가+저가)/2값이 가장 큰 주봉을 선택한 후
당일 고가가 선택된 그 주봉의 (고가+저가)/2보다 크거나 같은 종목을 검색하는 수식을 알고 싶습니다.
....
미리 친절한 답변 감사드립니다.
답변 1
예스스탁
예스스탁 답변
2020-09-10 13:31:32
안녕하세요
예스스탁입니다.
1
일봉에서 전주의 시고저종가를 계산해야 하므로
속성에서 검색에 필요한 최소기간에 넉넉히 15개봉 이상 지정하고 검색하시면 됩니다.
var : OO(0),HH(0),LL(0),CC(0);
var : O1(0),H1(0),L1(0),C1(0);
if DayOfWeek(sdate) < DayOfWeek(sdate[1]) Then
{
OO = O;
hh = h;
ll = l;
O1 = OO[1];
H1 = HH[1];
L1 = LL[1];
C1 = CC[1];
}
if hh > 0 and H > hh Then
hh = H;
if ll > 0 and l < ll Then
ll = l;
CC = c;
if OO < CC and H >= (H1+L1)/2 and O1 > 0 Then
Find(1);
2
일봉에서 전월의 시고저종가를 계산해야 하므로
속성에서 검색에 필요한 최소기간에 넉넉히 50개봉 이상 지정하고 검색하시면 됩니다.
var : OO(0),HH(0),LL(0),CC(0);
var : O1(0),H1(0),L1(0),C1(0);
if sdate >= sdate[1]+30 Then
{
OO = O;
hh = h;
ll = l;
O1 = OO[1];
H1 = HH[1];
L1 = LL[1];
C1 = CC[1];
}
if hh > 0 and H > hh Then
hh = H;
if ll > 0 and l < ll Then
ll = l;
CC = c;
if OO < CC and H >= (H1+L1)/2 and O1 > 0 Then
Find(1);
3
일봉에서 과거 16주의 시고저종가를 계산해야 하므로
속성에서 검색에 필요한 최소기간에 넉넉히 100개봉 이상 지정하고 검색하시면 됩니다.
input : N(16);
var : cnt(0),hv(0);
Array : OO[50](0),HH[50](0),LL[50](0),CC[50](0);
if sdate >= sdate[1]+30 Then
{
OO[0] = O;
hh[0] = h;
ll[0] = l;
For cnt = 1 to 49
{
OO[cnt] = OO[cnt-1][1];
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
CC[cnt] = CC[cnt-1][1];
}
}
if hh[0] > 0 and H > hh[0] Then
hh[0] = H;
if ll[0] > 0 and l < ll[0] Then
ll[0] = l;
CC[0] = c;
if OO[N] > 0 Then
{
hv = 0;
For cnt = 1 to N
{
if (HH[cnt]+LL[cnt])/2 > hv Then
hv = (HH[cnt]+LL[cnt])/2;
}
if hv > 0 and H >= hv Then
Find(1);
}
즐거운 하루되세요
> 애니콜피디 님이 쓴 글입니다.
> 제목 : 종목검색식 문의드립니다.
> 1. 당일 고가가 전 주봉이 음봉이고 그 음봉의 (고가+저가)/2보다 크거나 같은 종목을 검색하는 수식을 알고 싶습니다.
2. 1번과 같은데 주봉대신 월봉으로 바꿔서
당일 고가가 전 달 월봉이 음봉이고 그 음봉의 (고가+저가)/2보다 크거나 같은 종목을 검색하는 수식을 알고 싶습니다.
3. 이전 주봉 16개에서 각각 주봉의 (고가+저가)/2 값을 비교하여 (고가+저가)/2값이 가장 큰 주봉을 선택한 후
당일 고가가 선택된 그 주봉의 (고가+저가)/2보다 크거나 같은 종목을 검색하는 수식을 알고 싶습니다.
....
미리 친절한 답변 감사드립니다.