一分钟K线转5分钟K线 - 公式模型编写问题提交 - 金字塔客服中心 - 专业程序化交易软件提供商

基本实现，原来的思路，不满五根，画的K线一直在第一根上面，调整了下随着K线向后移动

input:offset(0,-10,10,1),t(5,5,60,5);

nn:=barslast(date<>ref(date,1));//从当天第一根开始

n:mod(nn,t)+1;

o5:if(n=1,open,ref(open,n-1)),NODRAW;

h5:if(n=1,h,hhv(h,n)),NODRAW;

l5:if(n=1,l,llv(l,n)),NODRAW;

c5:if(n=1,c,c),NODRAW;

if n=5 then

begin

kred:STICKLINE( c5>o5,c5+offset ,o5+offset, 10,1 ,COLORRED);//空心实体

kred1:STICKLINE( c5>o5,h5+offset ,max(c5,o5)+offset, 0,1 ,COLORRED);//上引线

kred2:STICKLINE( c5>o5,min(c5,o5)+offset ,l5+offset, 0,1 ,COLORRED);//下引线

kgreen:STICKLINE( c5<=o5,c5+offset ,o5+offset, 10,1 ,COLORGREEN);//实心实体

kgreen1:STICKLINE( c5<=o5,h5+offset ,max(c5,o5)+offset, 0,1 ,COLORGREEN);

kgreen2:STICKLINE( c5<=o5,min(c5,o5)+offset ,l5+offset, 0,1 ,COLORGREEN);

end

//画最后几根

if n<5 and islastbar then

begin

akred:STICKLINE( c5>o5,c5+offset ,o5+offset, 10,1 ,COLORRED);//空心实体

akred1:STICKLINE( c5>o5,h5+offset ,max(c5,o5)+offset, 0,1 ,COLORRED);//上引线

akred2:STICKLINE( c5>o5,min(c5,o5)+offset ,l5+offset, 0,1 ,COLORRED);//下引线

akgreen:STICKLINE( c5<=o5,c5+offset ,o5+offset, 10,1 ,COLORGREEN);//实心实体

akgreen1:STICKLINE( c5<=o5,h5+offset ,max(c5,o5)+offset, 0,1 ,COLORGREEN);

akgreen2:STICKLINE( c5<=o5,min(c5,o5)+offset ,l5+offset, 0,1 ,COLORGREEN);

end

主题：一分钟K线转5分钟K线