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";
K线:="chzhshch@kxian";
笔方向:="chzhshch@bi";{处理笔关系}
线段方向:="chzhshch@tongji"(minbi);{同级别分解}
中枢高点:="chzhshch@zg"(线段方向);//一定要先调用ZG
中枢低点:="chzhshch@zd"(线段方向);
精度:=1;
//以背景块的形式画中枢
stickline(中枢高点>中枢低点,中枢高点,中枢低点,10,0),color000055;
drawline(笔方向=1,h,笔方向=-1,l,0),linedot,color555555;
drawline(笔方向=-1,l,笔方向=1,h,0),linedot,color555555;
drawline(线段方向=1,h,线段方向=-1,l,0),colorblue;
drawline(线段方向=-1,l,线段方向=1,h,0),colorblue;
//
//以框的形式画中枢
{
stickline(中枢高点>中枢低点 and 中枢高点<>ref(中枢高点,1),中枢高点,中枢低点,2,0),COLORMAGENTA;
stickline(中枢高点>中枢低点 and 中枢高点<>refx(中枢高点,1),中枢高点,中枢低点,2,0),COLORMAGENTA;
drawline(中枢高点>中枢低点 and 中枢高点<>ref(中枢高点,1),中枢高点,中枢高点>中枢低点 and 中枢高点<>refx(中枢高点,1),中枢高点,0),COLORMAGENTA;
drawline(中枢高点>中枢低点 and 中枢低点<>ref(中枢低点,1),中枢低点,中枢高点>中枢低点 and 中枢低点<>refx(中枢低点,1),中枢低点,0),COLORMAGENTA;
}
K线:="chzhshch@kxian";
笔方向:="chzhshch@bi";{处理笔关系}
if DATAPERIOD<=1 then
begin 笔方向:=线段方向;{处理段1分钟的关系}
end;
距离前端点周期:=barslast(笔方向<>0);
当前端点周期:=ref(距离前端点周期,1)+1;
端点类型:=ref(笔方向,距离前端点周期);
后一线段类型:=ref(端点类型,1);{-1=上升,1=下降}
升降差价:=if (后一线段类型>0,l-ref(h,当前端点周期),h-ref(l,当前端点周期)),linethick0;{计算点位差}
//升降幅度:=if (后一线段类型>0,(l/ref(h,当前端点周期)-1)*100,(h/ref(l,当前端点周期)-1)*100),linethick0;{计算升降幅}
//显示点位
drawnumber(笔方向=1,h,h,精度),pxup30,color3300ff,align0;
drawnumber(笔方向=-1,l,l,精度),pxdn23,colorwhite,align0;
//显示力度
//drawtext(笔方向=1,h,'+')colormagenta,pxup20,align2;
drawnumber(笔方向=1,h,升降差价,精度),colormagenta,pxup10,align0;
//drawnumber(笔方向=1,h,升降幅度,0),colormagenta,pxup20,align2;
//drawtext(笔方向=1,h,'%')colormagenta,pxup20;
drawnumber(笔方向=-1,l,升降差价,精度),colorblue,pxdn2,align0;
//drawnumber(笔方向=-1,l,升降幅度,0),colorblue,pxdn5,align2;
//drawtext(笔方向=-1,l,'%'),colorblue,pxdn5;
//显示周期数
drawtext(笔方向=1,h,'T'),pxup20,colorwhite,align1;
drawnumber(笔方向=1,h,当前端点周期,0),colorwhite,pxup20,align2;
drawtext(笔方向=-1,l,'T'),pxdn12,colorwhite,align1;
drawnumber(笔方向=-1,l,当前端点周期,0),colorwhite,pxdn12,align2;
我这个可以看到中枢的。
[此贴子已经被作者于2011-1-9 1:32:23编辑过]