//if DATAPERIOD>=1 and dataperiod<=8 then
begin
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";{处理笔关系}
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),pxup20,color3300ff; {显示数字}
drawnumber(var2=-1,l,l,pre),pxdn5,colorffff00,align0;
//显示周期
drawtext(var2=1,h,'T'),pxup65,coloryellow,align1;
drawnumber(var2=1,h,aa1,0),coloryellow,pxup65,align2;
drawtext(var2=-1,l,'T'),pxdn50,coloryellow,align1;
drawnumber(var2=-1,l,aa1,0),coloryellow,pxdn50,align2;
var3:="chzhshch@tongji"(minbi);{同级别分解}
zg:="chzhshch@zg"(var3);//一定要先调用ZG
zd:="chzhshch@zd"(var3);
//以背景块的形式画中枢
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;
end;
//kline(o,h,l,c,1);
STICKLINE(C>=O,O,C,8,0),COLOR0000AA;
STICKLINE(C>=O,O,C,7,0),COLOR0011BB;
STICKLINE(C>=O,O,C,6,0),COLOR0022CC;
STICKLINE(C>=O,O,C,5,0),COLOR0033DD;
STICKLINE(C>=O,O,C,4,0),COLOR0044EE;
STICKLINE(C>=O,O,C,3,0),COLOR0055FF;
STICKLINE(C>=O,O,C,2,0),COLOR0066FF;
STICKLINE(C>=O,O,C,1,0),COLOR0077FF;
STICKLINE(C>=O,C,H,0,0),colorred;
STICKLINE(C>=O,O,L,0,0),colorred;
STICKLINE(C<O,C,O,8,0),COLOR00AA00;
STICKLINE(C<O,C,O,7,0),COLOR00BB11;
STICKLINE(C<O,C,O,6,0),COLOR00CC22;
STICKLINE(C<O,C,O,5,0),COLOR00DD33;
STICKLINE(C<O,C,O,4,0),COLOR00EE44;
STICKLINE(C<O,C,O,3,0),COLOR00FF55;
STICKLINE(C<O,C,O,2,0),COLOR00FF66;
STICKLINE(C<O,C,O,1,0),COLOR00FF77;
STICKLINE(C<O,L,H,0,0),COLORGREEN;
ma5:=ma(c,5);
ma13:=ma(c,13);
ma21:=ma(c,21);
ma34:=ma(c,34);
ma55:=ma(c,55);
ma89:=ma(c,89);
ma144:=ma(c,144);
ma233:=ma(c,233);
tmp1:=if(c>ma5,1,0);
tmp2:=if(c>ma13,1,0);
tmp3:=if(c>ma21,1,0);
tmp4:=if(c>ma34,1,0);
tmp5:=if(c>ma55,1,0);
tmp6:=if(c>ma89,1,0);
tmp7:=if(c>ma144,1,0);
tmp8:=if(c>ma233,1,0);
LEI:tmp1+tmp2+tmp3+tmp4+tmp5+tmp6+tmp7+tmp8+1,linethick0;
N1:=BARSLAST(var2<0);
N2:=BARSLAST(var2>0);
x1:=llv(LEI,N2);
x2:=HHV(LEI,N1);
类别:if(N1>N2,X1,X2),LINETHICK0;
DRAWTEXT(ISLASTBAR,h*1.1,'类别 '+NUMTOSTR(类别,0)
+' ')ALIGN2,LINETHICK3,Color00fff {原文链接：http://www.55188.com/thread-6885035-1-1.html}
