커뮤니티
지표식..
2009-11-10 20:45:12
833
글번호 26072
다음 p&f차트 지표식을 좀 완성해주십시요..수고하세요..
/*작성자:수식지왕*/
input:bar_cnt(200);
var:j(0),g(0),r(0),k(0),n(0),pnt(0),figure(3),u(1),dd(-1),이전방향(0);
array:기준가[10](0),Hi[100](0),Lo[100](0),방향[100](0);
#=======#
# main
#=======#
n = bar_cnt - 1;
if index == n then {
pnt = (highest(c,bar_cnt)-lowest(c,bar_cnt))/50;
기준가[0] = c[n];
k = 0;
방향[0] = 0;
Hi[0] = int(h[n]/pnt);
Lo[0] = int(l[n]/pnt);
for g = n - 1 downto 0 {
이전방향 = 방향[0]; //보통의 처리 루틴이라면 이전봉의 값은 방향[0][1]로
//표현할 수 있겠으나 본 검색식에서는 마지막봉에서 모든
//계산이 이루어지므로 이전봉에서의 값을 이런 식으로
//별도의 변수에 넣어 처리하여 함
for r = 9 downto 1 {
기준가[r] = 기준가[r-1];
}
if 방향[0] == 0 then {
if 기준가[0] + (pnt * figure) <= c[g] then {
기준가[0] = c[g];
방향[0] = u;
Hi[0] = max(Hi[0],int(h[g]/pnt));
Lo[0] = min(Lo[0],int(l[g]/pnt));
}
else if 기준가[0] - (pnt * figure) >= c[g] then {
기준가[0] = c[g];
방향[0] = dd;
Hi[0] = max(Hi[0],int(h[g]/pnt));
Lo[0] = min(Lo[0],int(l[g]/pnt));
}
else {
Hi[0] = max(Hi[0],int(h[g]/pnt));
Lo[0] = min(Lo[0],int(l[g]/pnt));
}
}
else if 방향[0] == dd then {
if 기준가[0] + (pnt * figure) <= c[g] then {
k = k + 1;
for j = min(k,99) downto 1 {
Hi[j] = Hi[j-1];
Lo[j] = Lo[j-1];
방향[j] = 방향[j-1];
}
기준가[0] = c[g];
방향[0] = u;
Hi[0] = int(h[g]/pnt);
Lo[0] = int(기준가[1]/pnt);
}
else {
기준가[0] = min(기준가[1],c[g]);
Hi[0] = max(Hi[0],int(h[g]/pnt));
Lo[0] = min(Lo[0],int(l[g]/pnt));
}
}
else if 방향[0] == u then {
if 기준가[0] - (pnt * figure) >= c[g] then {
k = k + 1;
for j = min(k,99) downto 1 {
Hi[j] = Hi[j-1];
Lo[j] = Lo[j-1];
방향[j] = 방향[j-1];
}
기준가[0] = c[g];
방향[0] = dd;
Hi[0] = int(기준가[1]/pnt);
Lo[0] = int(l[g]/pnt);
}
else {
기준가[0] = max(기준가[1],c[g]);
Hi[0] = max(Hi[0],int(h[g]/pnt));
Lo[0] = min(Lo[0],int(l[g]/pnt));
}
}
}
}
############
무엇을 plot해야하는지요??
수고하세요..
답변 1
예스스탁 예스스탁 답변
2009-11-11 10:27:05
안녕하세요
예스스탁입니다.
식의 내용이 완전하지 않을 것 같습니다.
http://blog.naver.com/yahoosir
가시면 수식지왕님의 블로그가 있습니다.
블로그에 p&f차트에 관련된 카테고리에 가시면 정보를 얻으실 수 있습니다.
즐거운 하루되세요
> 오이도인 님이 쓴 글입니다.
> 제목 : 지표식..
> 다음 p&f차트 지표식을 좀 완성해주십시요..수고하세요..
/*작성자:수식지왕*/
input:bar_cnt(200);
var:j(0),g(0),r(0),k(0),n(0),pnt(0),figure(3),u(1),dd(-1),이전방향(0);
array:기준가[10](0),Hi[100](0),Lo[100](0),방향[100](0);
#=======#
# main
#=======#
n = bar_cnt - 1;
if index == n then {
pnt = (highest(c,bar_cnt)-lowest(c,bar_cnt))/50;
기준가[0] = c[n];
k = 0;
방향[0] = 0;
Hi[0] = int(h[n]/pnt);
Lo[0] = int(l[n]/pnt);
for g = n - 1 downto 0 {
이전방향 = 방향[0]; //보통의 처리 루틴이라면 이전봉의 값은 방향[0][1]로
//표현할 수 있겠으나 본 검색식에서는 마지막봉에서 모든
//계산이 이루어지므로 이전봉에서의 값을 이런 식으로
//별도의 변수에 넣어 처리하여 함
for r = 9 downto 1 {
기준가[r] = 기준가[r-1];
}
if 방향[0] == 0 then {
if 기준가[0] + (pnt * figure) <= c[g] then {
기준가[0] = c[g];
방향[0] = u;
Hi[0] = max(Hi[0],int(h[g]/pnt));
Lo[0] = min(Lo[0],int(l[g]/pnt));
}
else if 기준가[0] - (pnt * figure) >= c[g] then {
기준가[0] = c[g];
방향[0] = dd;
Hi[0] = max(Hi[0],int(h[g]/pnt));
Lo[0] = min(Lo[0],int(l[g]/pnt));
}
else {
Hi[0] = max(Hi[0],int(h[g]/pnt));
Lo[0] = min(Lo[0],int(l[g]/pnt));
}
}
else if 방향[0] == dd then {
if 기준가[0] + (pnt * figure) <= c[g] then {
k = k + 1;
for j = min(k,99) downto 1 {
Hi[j] = Hi[j-1];
Lo[j] = Lo[j-1];
방향[j] = 방향[j-1];
}
기준가[0] = c[g];
방향[0] = u;
Hi[0] = int(h[g]/pnt);
Lo[0] = int(기준가[1]/pnt);
}
else {
기준가[0] = min(기준가[1],c[g]);
Hi[0] = max(Hi[0],int(h[g]/pnt));
Lo[0] = min(Lo[0],int(l[g]/pnt));
}
}
else if 방향[0] == u then {
if 기준가[0] - (pnt * figure) >= c[g] then {
k = k + 1;
for j = min(k,99) downto 1 {
Hi[j] = Hi[j-1];
Lo[j] = Lo[j-1];
방향[j] = 방향[j-1];
}
기준가[0] = c[g];
방향[0] = dd;
Hi[0] = int(기준가[1]/pnt);
Lo[0] = int(l[g]/pnt);
}
else {
기준가[0] = max(기준가[1],c[g]);
Hi[0] = max(Hi[0],int(h[g]/pnt));
Lo[0] = min(Lo[0],int(l[g]/pnt));
}
}
}
}
############
무엇을 plot해야하는지요??
수고하세요..
다음글
이전글