主题：[求助]1分钟周期无引用编制5分钟K线

参考此帖8楼,看看能不能用里面介绍的方法实现

http://www.weistock.com/bbs/dispbbs.asp?BoardID=4&ID=7365&skin=0

每五根K线的最后一根K线,就是满足您要的条件的K线,只是,前四根K线去不掉.

所以,最终还是没能完全实现,楼主说的----1分钟周期无引用编制5分钟K线

runmode:1;

nn:=barslast(date<>ref(date,1));
n:=mod(nn,5)+1;
o5:=if(n=1,open,ref(open,n-1));
h5:=hhv(h,n);
l5:=llv(l,n);
c5:=close;

kred:STICKLINE( c5>o5,c5 ,o5, 10,1 ,COLORRED);//空心实体
kred1:STICKLINE( c5>o5,h5 ,max(c5,o5), 0,1 ,COLORRED);//上引线
kred2:STICKLINE( c5>o5,min(c5,o5) ,l5, 0,1 ,COLORRED);//下引线

kgreen:STICKLINE( c5<=o5,c5 ,o5, 10,1 ,COLORGREEN);//实心实体
kgreen1:STICKLINE( c5<=o5,h5 ,max(c5,o5), 0,1 ,COLORGREEN);
kgreen2:STICKLINE( c5<=o5,min(c5,o5) ,l5, 0,1 ,COLORGREEN);

1分钟周期无引用编制5分钟K线

一天的最后一个5分钟K线画了，画的是当时的1分钟K线

所用品种:IF,若国内其它品种,请自己修改条件.

runmode:0;

nn:=barslast(date<>ref(date,1));

n:=mod(nn,5)+1;
o5:=if(n=1,open,ref(open,n-1));
h5:=hhv(h,n);
l5:=llv(l,n);
c5:=close;

if nn<265 and n=5 then
begin
kred:STICKLINE( c5>o5,c5 ,o5, 10,1 ,COLORRED);//空心实体
kred1:STICKLINE( c5>o5,h5 ,max(c5,o5), 0,1 ,COLORRED);//上引线
kred2:STICKLINE( c5>o5,min(c5,o5) ,l5, 0,1 ,COLORRED);//下引线

kgreen:STICKLINE( c5<=o5,c5 ,o5, 10,1 ,COLORGREEN);//实心实体
kgreen1:STICKLINE( c5<=o5,h5 ,max(c5,o5), 0,1 ,COLORGREEN);
kgreen2:STICKLINE( c5<=o5,min(c5,o5) ,l5, 0,1 ,COLORGREEN);
end

//若最后一个5分钟不画,那么以下内容均删除,就可实现.

if nn>=265 and nn<=269 then
begin
kre:STICKLINE( c>o,c ,o, 10,1 ,colorred);//空心实体
kre1:STICKLINE( c>o,h ,max(c,o), 0,1 ,colorred);//上引线
kre2:STICKLINE( c>o,min(c,o) ,l, 0,1 ,colorred);//下引线

kgree:STICKLINE( c<=o,c ,o, 10,1 ),colorgreen;//实心实体
kgree1:STICKLINE( c<=o,h ,max(c,o), 0,1 ,colorgreen);
kgree2:STICKLINE( c<=o,min(c,o) ,l, 0,1 ,colorgreen);
end

前面的5分钟之间的空白太大，不知有什么办法能做到标准K线间的那种间距

不能