帮我编制一下悟多编制的飞狐缠中驱指标,改成通达信即时突破日线中驱报警
下面是悟多的飞狐缠中驱指标源码:
走势中驱
//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";{处理笔关系}
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;
drawnumber(var3=1,h,h,2),pxup20,colormagenta,align2;
drawnumber(var3=-1,l,l,2),pxdn5,colorgreen;
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);