if DATAPERIOD=0 then minbi:="fbase.var2#min1"; if DATAPERIOD=1 then minbi:="fbase.var2#min5"; if DATAPERIOD=2 then minbi:="fbase.var2#min30"; if DATAPERIOD=3 then minbi:="fbase.var2#min60"; if DATAPERIOD=4 then minbi:="fbase.var2#day"; if DATAPERIOD=5 then minbi:="fbase.var2#day"; if DATAPERIOD=6 then minbi:="fbase.var2#week"; if DATAPERIOD=7 then minbi:="fbase.var2#month"; if DATAPERIOD=8 then minbi:="fbase.var2#year";
var1:="chzhshch@kxian"; var2:="chzhshch@bi";{处理笔关系}
var3:="chzhshch@tongji"(minbi);{同级别分解} zg:="chzhshch@zg"(var3);//一定要先调用ZG zd:="chzhshch@zd"(var3);
pre:=2; //设置小数点位数 if STKTYPE=0 then pre:=1; if STKTYPE=11 then pre:=3; //以背景块的形式画中枢 stickline(zg>zd,zg,zd,10,0),color000055;
drawline(var2=1,h,var2=-1,l,0),linedot,coloryellow; drawline(var2=-1,l,var2=1,h,0),linedot,coloryellow;
drawline(var3=1,h,var3=-1,l,0),colorFF6600; drawline(var3=-1,l,var3=1,h,0),colorFF6600;
//以框的形式画中枢 { stickline(zg>zd and zg<>ref(zg,1),zg,zd,2,0),COLORMAGENTA; stickline(zg>zd and zg<>refx(zg,1),zg,zd,2,0),COLORMAGENTA; drawline(zg>zd and zg<>ref(zg,1),zg,zg>zd and zg<>refx(zg,1),zg,0),COLORMAGENTA; drawline(zg>zd and zd<>ref(zd,1),zd,zg>zd and zd<>refx(zd,1),zd,0),COLORMAGENTA; } var1:="chzhshch@kxian"; var2:="chzhshch@bi";{处理笔关系} if DATAPERIOD<=1 then begin var2:=var3;{处理段1分钟的关系} end; pre:=2; {设置小数点位数} if STKTYPE=0 then pre:=1; if STKTYPE=11 then pre:=3;
a1:=barslast(var2<>0); a2:=ref(var2,a1); aa1:=ref(a1+1,1); aa2:=ref(a2,1); a3:=if (aa2>0,l-ref(h,aa1),h-ref(l,aa1)),linethick0;{计算点位差} //显示点位 drawnumber(var2=1,h,h,pre),pxup65,color3300ff,align0; drawnumber(var2=-1,l,l,pre),pxdn50,colorffff00,align0; //显示力度 drawtext(var2=1,h,'+')colormagenta,pxup20,align2; drawnumber(var2=1,h,a3,pre),colormagenta,pxup20; drawnumber(var2=-1,l,a3,pre),colorgreen,pxdn5,align0; //显示周期数 drawtext(var2=1,h,'T'),pxup45,coloryellow,align1; drawnumber(var2=1,h,aa1,0),coloryellow,pxup45,align2; drawtext(var2=-1,l,'T'),pxdn30,coloryellow,align1; drawnumber(var2=-1,l,aa1,0),coloryellow,pxdn30,align2;
kline(o,h,l,c,1); stickline(DATAPERIOD=6 and c/ref(c,1)>=1.097,o,c,8,1); //显示最后没完成的点位 aa9:=hhv(h,a1); aa11:=llv(l,a1); drawnumber( islastbar and a2=-1,aa9,aa9,pre),align2,color3300ff; drawnumber( islastbar and a2=1,aa11,aa11,pre),align2,colorffff00; //显示最后没完成的力度 drawtext( islastbar and a2=-1, aa9,'+ '),align2,colormagenta,pxdn20; drawnumber( islastbar and a2=-1, aa9,a3,pre),align2,colormagenta,pxdn20; drawnumber( islastbar and a2=1, aa11,a3,pre),align2,colorgreen,pxup20; //显示最后没完成的周期 drawtext( islastbar and a2=-1, aa9,'T'),coloryellow,align1,pxdn40; drawnumber(islastbar and a2=-1, aa9,aa1,0),coloryellow,align2,pxdn40; drawtext( islastbar and a2=1, aa11,'T'),coloryellow,align1,pxup40; drawnumber(islastbar and a2=1, aa11,aa1,0),coloryellow,align2,pxup40;
|