有老师能帮我把飞狐的悟多分笔分段公式改为金字塔可用吗?能的话,万分感谢!!!
//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";{处理笔关系}
var5:="chzhshch@tongji"(minbi);{同级别分解}
zg:="chzhshch@zg"(var5);//一定要先调用ZG
zd:="chzhshch@zd"(var5);
//以背景块的形式画中枢
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(var5=1,h,h,2),pxup20,colormagenta,align2;
drawnumber(var5=-1,l,l,2),pxdn5,colorgreen;
//以框的形式画中枢
{
stickline(zg>zd and zg<>ref(zg,1),zg,zd,2,0),linethick1,COLORMAGENTA;
stickline(zg>zd and zg<>refx(zg,1),zg,zd,2,0),linethick1,COLORMAGENTA;
drawline(zg>zd and zg<>ref(zg,1),zg,zg>zd and zg<>refx(zg,1),zg,0),linethick1,COLORMAGENTA;
drawline(zg>zd and zd<>ref(zd,1),zd,zg>zd and zd<>refx(zd,1),zd,0),linethick1,COLORMAGENTA;
}
end;
STICKLINE(CLOSE>=OPEN,OPEN,CLOSE,3,1), COLORRED;
STICKLINE(CLOSE>=OPEN,HIGH,CLOSE,0,1), COLORRED;
STICKLINE(CLOSE>=OPEN,LOW,OPEN,0,0), COLORRED;
STICKLINE(C<=O,C,O,3,0),COLORCYAN;
STICKLINE(C<=O,C,O,1,0),COLORCYAN;
STICKLINE(C<=O,H,L,0,0),COLORCYAN;
wx:=MA(c,0);
M5:MA(CLOSE,P1),colormagenta;
M13:MA(CLOSE,P2)*if(n<2,wx,1),colorgreen;
小于30 :=ESTDATA(1);资金流入:=ESTDATA(2);资金流出:=ESTDATA(3);
资金存量:=ESTDATA(4);五日比:=ESTDATA(5);三日新高:=ESTDATA(6);
zt:=ESTDATA(10);A:=ESTDATA(11);B:=ESTDATA(12);dt:=ESTDATA(13);
PP:=ESTDATA(14);QQ:=STKCOUNT('A股板块');P:=SYSPARAM(1);
ZZS:=STKCOUNT('A股板块')+STKCOUNT('B股板块')+STKCOUNT('H股板块')+STKCOUNT('基金板块')+STKCOUNT('权证板块');
日涨跌:(C/REF(C,1)-1)*100,LINETHICK0,PRECISION2;
周涨跌:(C/ref(c,BARSLAST(WEEKDAY
[0 ,fx30,'--------30分 '),colorwhite,align2,pxup10;
DRAWNUMBER(islastbar and fx30>0 ,fx30,fx30,2),align2,colorwhite,pxup10;
drawtext(islastbar and fx60>0 and fx60>=fx30 ,fx60,'------60分 '),colorgreen,align2,pxup10;
DRAWNUMBER(islastbar and fx60>0 and fx60>=fx30 ,fx60,fx60,2),align2,colorgreen,pxup10;
drawtext(islastbar and fxday>0 and fxday>=fx60,fxday ,'----日线 '),colormagenta,align2,pxup10;
DRAWNUMBER(islastbar and fxday>0 and fxday>=fx60,fxday,fxday,2),align2,colormagenta,pxup10;
{drawtext(islastbar and fxw>0,fxw,'--周线 '),colorred,align2,pxup10;
DRAWNUMBER(islastbar and fxw>0,fxw,fxw,2),align2,colorred,pxup10;
}
end;
以上为飞狐源码,此公式在飞狐运行还需要以下.DLL文件:chzhshch.dll
晕,怎么上传.LL文件啊
][此贴子已经被作者于2010-11-2 19:41:15编辑过]