//在5分钟K线,在最后一个5分钟时引用并编制1分钟的K线
//副图显示
runmode:0;
if barpos<=datacount-5 then begin
o5:=o[barpos+4];
h5:=h[barpos+4];
l5:=l[barpos+4];
c5:=c[barpos+4];
end
else
if not(islastbar and mod(dynainfo(207),500)<=400) then begin
i:=datacount-barpos;
o5:=callstock(stklabel,vtopen,1,i*4);
h5:=callstock(stklabel,vthigh,1,i*4);
l5:=callstock(stklabel,vtlow,1,i*4);
c5:=callstock(stklabel,vtclose,1,i*4);
end
kred:STICKLINE( c5>o5,c5 ,o5, 8,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, 8,1,COLORGREEN) ;//实心实体
kgreen1:STICKLINE( c5<=o5,h5 ,max(c5,o5), 0,1 ,COLORGREEN);
kgreen2:STICKLINE( c5<=o5,min(c5,o5) ,l5, 0,1 ,COLORGREEN);