 | |  |  |
飞狐板块资金源码公式：
引用公式：
1、涨幅引用
HH:=HIGH;LL:=LOW;OO:=O;CC:=CLOSE;C0:=ref(C,1);
VV:VOL;A0:DYNAINFO(14)*100;D:=FINANCE(30)/FINANCE(1)/10;
SZ:=CC*FINANCE(7);JJ:=AMOUNT/VOL/100;
E:=JJ/FINANCE(30)/FINANCE(1)/10;ZF:(CC/C0-1)*100;
a:=IF(BUYVOL>=1,AMOUNT/100000000,0);
b:=IF(SELLVOL>=1,AMOUNT/100000000,0);
a3:=sum(IF(ZF>0,AMOUNT/100000000,0),WEEKDAY);
b3:=sum(IF(ZF<0,AMOUNT/100000000,0),WEEKDAY);
A1:SUM(a-b,0);A2:a3-b3;
2、主公式：
板块资金【自用】
DRAWGBK(1,0,0,0);
bk:='板块指数';stksum:=STKCOUNT(bk);dcount:=DATACOUNT;
yygs0:='涨幅引用.A0';
variable:dmstr[stksum]='',var_px[stksum]=0,var_indi[stksum]=0;
for k=1 to stksum do
begin
dm:=stkfromblk(bk,k);
dmstr[k]:=dm;
temp1:=stkindi(dm,yygs0,0,-1);
var_px[k]:=temp1[dcount];
var_indi[k]:=temp1[dcount];
end;
Num1:=sortpos(var_indi,1,1,stksum);
dm_max1:=var_indi[1]; dm_max2:=var_indi[2];dm_max3:=var_indi[3]; dm_max4:=var_indi[4];dm_max5:=var_indi[5];
max1:=var_px[dm_max1]; max2:=var_px[dm_max2]; max3:=var_px[dm_max3];max4:=var_px[dm_max4]; max5:=var_px[dm_max5];
DRAWTEXTEX(c,1,35,30,'【涨幅前五名】'),Color00FFFF;
DRAWTEXTEX(c,1,20,150,'1:'+STKNAMEEX(dmstr[dm_max1])+':'+NUMTOSTR(max1,2)),Color0000FF;
DRAWTEXTEX(c,1,20,300,'2:'+STKNAMEEX(dmstr[dm_max2])+':'+NUMTOSTR(max2,2)),Color0000FF;
DRAWTEXTEX(c,1,20,450,'3:'+STKNAMEEX(dmstr[dm_max3])+':'+NUMTOSTR(max3,2)),Color0000FF;
DRAWTEXTEX(c,1,20,600,'4:'+STKNAMEEX(dmstr[dm_max4])+':'+NUMTOSTR(max4,2)),Color0000FF;
DRAWTEXTEX(c,1,20,750,'5:'+STKNAMEEX(dmstr[dm_max5])+':'+NUMTOSTR(max5,2)),Color0000FF;
yygs1:='涨幅引用.A0';
variable:dmstr[stksum]='',var_px[stksum]=0,var_indi[stksum]=0;
for k=1 to stksum do
begin
dm:=stkfromblk(bk,k);
dmstr[k]:=dm;
temp1:=stkindi(dm,yygs1,0,-1);
var_px[k]:=temp1[dcount];
var_indi[k]:=temp1[dcount];
end;
Num1:=sortpos(var_indi,0,1,stksum);
dm_max1:=var_indi[1];dm_max2:=var_indi[2];dm_max3:=var_indi[3]; dm_max4:=var_indi[4];dm_max5:=var_indi[5];
max1:=var_px[dm_max1]; max2:=var_px[dm_max2]; max3:=var_px[dm_max3];max4:=var_px[dm_max4]; max5:=var_px[dm_max5];
DRAWTEXTEX(c,1,255,30,'【跌幅前五名】'),ColorFFFF00;
DRAWTEXTEX(c,1,240,150,'1:'+STKNAMEEX(dmstr[dm_max1])+':'+NUMTOSTR(max1,2)),colorgreen;
DRAWTEXTEX(c,1,240,300,'2:'+STKNAMEEX(dmstr[dm_max2])+':'+NUMTOSTR(max2,2)),colorgreen;
DRAWTEXTEX(c,1,240,450,'3:'+STKNAMEEX(dmstr[dm_max3])+':'+NUMTOSTR(max3,2)),colorgreen;
DRAWTEXTEX(c,1,240,600,'4:'+STKNAMEEX(dmstr[dm_max4])+':'+NUMTOSTR(max4,2)),colorgreen;
DRAWTEXTEX(c,1,240,750,'5:'+STKNAMEEX(dmstr[dm_max5])+':'+NUMTOSTR(max5,2)),colorgreen;
yygs2:='涨幅引用.a1';stksum:=STKCOUNT(bk);dcount:=datacount;
variable:dmstr[stksum]='',var_px[stksum]=0,var_indi[stksum]=0;
for k=1 to stksum do
begin
dm:=stkfromblk(bk,k);
dmstr[k]:=dm;
temp1:=stkindi(dm,yygs2,0,0);
var_px[k]:=temp1[dcount];
var_indi[k]:=temp1[dcount];
end;
Num1:=sortpos(var_indi,1,1,stksum);
dm_max1:=var_indi[1];dm_max2:=var_indi[2];dm_max3:=var_indi[3]; dm_max4:=var_indi[4];dm_max5:=var_indi[5];
max1:=var_px[dm_max1]; max2:=var_px[dm_max2]; max3:=var_px[dm_max3]; max4:=var_px[dm_max4]; max5:=var_px[dm_max5];
DRAWTEXTEX(c,1,540,30,'【资金增幅前五名】'),,Color00FFFF;
DRAWTEXTEX(c,1,520,150,'1:'+STKNAMEEX(dmstr[dm_max1])+':'+NUMTOSTR(max1,2)+' 亿'),color0000FF;
DRAWTEXTEX(c,1,520,300,'2:'+STKNAMEEX(dmstr[dm_max2])+':'+NUMTOSTR(max2,2)+' 亿'),color0000FF;
DRAWTEXTEX(c,1,520,450,'3:'+STKNAMEEX(dmstr[dm_max3])+':'+NUMTOSTR(max3,2)+' 亿'),color0000FF;
DRAWTEXTEX(c,1,520,600,'4:'+STKNAMEEX(dmstr[dm_max4])+':'+NUMTOSTR(max4,2)+' 亿'),color0000FF;
DRAWTEXTEX(c,1,520,750,'5:'+STKNAMEEX(dmstr[dm_max5])+':'+NUMTOSTR(max5,2)+' 亿'),color0000FF;
yygs3:='涨幅引用.a1';
variable:dmstr[stksum]='',var_px[stksum]=0,var_indi[stksum]=0;
for k=1 to stksum do
begin
dm:=stkfromblk(bk,k);
dmstr[k]:=dm;
temp1:=stkindi(dm,yygs3,0,0);
var_px[k]:=temp1[dcount];
var_indi[k]:=temp1[dcount];
end;
Num1:=sortpos(var_indi,0,1,stksum);
dm_max1:=var_indi[1];
dm_max2:=var_indi[2];
dm_max3:=var_indi[3];
dm_max4:=var_indi[4];
dm_max5:=var_indi[5];
min1:=var_px[dm_max1];
min2:=var_px[dm_max2];
min3:=var_px[dm_max3];
min4:=var_px[dm_max4];
min5:=var_px[dm_max5];
DRAWTEXTEX(c,1,785,30,'【资金增幅后五名】'),colorFFFF00;
DRAWTEXTEX(c,1,770,150,'1:'+STKNAMEEX(dmstr[dm_max1])+':'+NUMTOSTR(min1,2)+' 亿'),colorgreen;
DRAWTEXTEX(c,1,770,300,'2:'+STKNAMEEX(dmstr[dm_max2])+':'+NUMTOSTR(min2,2)+' 亿'),colorgreen;
DRAWTEXTEX(c,1,770,450,'3:'+STKNAMEEX(dmstr[dm_max3])+':'+NUMTOSTR(min3,2)+' 亿'),colorgreen;
DRAWTEXTEX(c,1,770,600,'4:'+STKNAMEEX(dmstr[dm_max4])+':'+NUMTOSTR(min4,2)+' 亿'),colorgreen;
DRAWTEXTEX(c,1,770,750,'5:'+STKNAMEEX(dmstr[dm_max5])+':'+NUMTOSTR(min5,2)+' 亿'),colorgreen;
yygs4:='涨幅引用.ZF';
variable:dmstr[stksum]='',var_px[stksum]=0,var_indi[stksum]=0;
for k=1 to stksum do
begin
dm:=stkfromblk(bk,k);
dmstr[k]:=dm;
temp1:=stkindi(dm,yygs4,0,7);
var_px[k]:=temp1[dcount];
var_indi[k]:=temp1[dcount];
end;
Num1:=sortpos(var_indi,1,1,stksum);
dm_max1:=var_indi[1];dm_max2:=var_indi[2]; dm_max3:=var_indi[3]; dm_max4:=var_indi[4];dm_max5:=var_indi[5];
max1:=var_px[dm_max1]; max2:=var_px[dm_max2]; max3:=var_px[dm_max3];max4:=var_px[dm_max4]; max5:=var_px[dm_max5];
EXPLAIN(1,' 【周涨幅--前五名】'),Color00EEFF;
EXPLAIN(1,'1:'+STKNAMEEX(dmstr[dm_max1])+' 涨幅:'+NUMTOSTR(max1,2)+'%'),Color0088FF;
EXPLAIN(1,'2:'+STKNAMEEX(dmstr[dm_max2])+' 涨幅:'+NUMTOSTR(max2,2)+'%'),Color0088FF;
EXPLAIN(1,'3:'+STKNAMEEX(dmstr[dm_max3])+' 涨幅:'+NUMTOSTR(max3,2)+'%'),Color0088FF;
EXPLAIN(1,'4:'+STKNAMEEX(dmstr[dm_max4])+' 涨幅:'+NUMTOSTR(max4,2)+'%'),Color0088FF;
EXPLAIN(1,'5:'+STKNAMEEX(dmstr[dm_max5])+' 涨幅:'+NUMTOSTR(max5,2)+'%'),Color0088FF;
yygs5:='涨幅引用.ZF';
variable:dmstr[stksum]='',var_px[stksum]=0,var_indi[stksum]=0;
for k=1 to stksum do
begin
dm:=stkfromblk(bk,k);
dmstr[k]:=dm;
temp1:=stkindi(dm,yygs5,0,7);
var_px[k]:=temp1[dcount];
var_indi[k]:=temp1[dcount];
end;
Num1:=sortpos(var_indi,0,1,stksum);
dm_max1:=var_indi[1];dm_max2:=var_indi[2];dm_max3:=var_indi[3]; dm_max4:=var_indi[4];dm_max5:=var_indi[5];
max1:=var_px[dm_max1]; max2:=var_px[dm_max2]; max3:=var_px[dm_max3];max4:=var_px[dm_max4]; max5:=var_px[dm_max5];
EXPLAIN(1,' 【周涨幅--后五名】'),ColorFFFF00;
EXPLAIN(1,'1:'+STKNAMEEX(dmstr[dm_max1])+' 涨幅:'+NUMTOSTR(max1,2)+'%'),Color00dd00;
EXPLAIN(1,'2:'+STKNAMEEX(dmstr[dm_max2])+' 涨幅:'+NUMTOSTR(max2,2)+'%'),Color00dd00;
EXPLAIN(1,'3:'+STKNAMEEX(dmstr[dm_max3])+' 涨幅:'+NUMTOSTR(max3,2)+'%'),Color00dd00;
EXPLAIN(1,'4:'+STKNAMEEX(dmstr[dm_max4])+' 涨幅:'+NUMTOSTR(max4,2)+'%'),Color00dd00;
EXPLAIN(1,'5:'+STKNAMEEX(dmstr[dm_max5])+' 涨幅:'+NUMTOSTR(max5,2)+'%'),Color00dd00;
yygs6:='涨幅引用.a2';
variable:dmstr[stksum]='',var_px[stksum]=0,var_indi[stksum]=0;
for k=1 to stksum do
begin
dm:=stkfromblk(bk,k);
dmstr[k]:=dm;
temp1:=stkindi(dm,yygs6,0,7);
var_px[k]:=temp1[dcount];
var_indi[k]:=temp1[dcount];
end;
Num1:=sortpos(var_indi,1,1,stksum);
dm_max1:=var_indi[1];dm_max2:=var_indi[2];dm_max3:=var_indi[3]; dm_max4:=var_indi[4];dm_max5:=var_indi[5];
max1:=var_px[dm_max1]; max2:=var_px[dm_max2]; max3:=var_px[dm_max3]; max4:=var_px[dm_max4]; max5:=var_px[dm_max5];
EXPLAIN(1,'===================================================='),colorFFFFFF;
EXPLAIN(1,' 【周资金流入前五名】'),colorFF00FF;
EXPLAIN(1,'1:'+STKNAMEEX(dmstr[dm_max1])+' '+NUMTOSTR(max1,0)+' 亿'),Color00DDFF;
EXPLAIN(1,'2:'+STKNAMEEX(dmstr[dm_max2])+' '+NUMTOSTR(max2,0)+' 亿'),Color00DDFF;
EXPLAIN(1,'3:'+STKNAMEEX(dmstr[dm_max3])+' '+NUMTOSTR(max3,0)+' 亿'),Color00DDFF;
EXPLAIN(1,'4:'+STKNAMEEX(dmstr[dm_max4])+' '+NUMTOSTR(max4,0)+' 亿'),Color00DDFF;
EXPLAIN(1,'5:'+STKNAMEEX(dmstr[dm_max5])+' '+NUMTOSTR(max5,0)+' 亿'),Color00DDFF;
yygs7:='涨幅引用.a2';
variable:dmstr[stksum]='',var_px[stksum]=0,var_indi[stksum]=0;
for k=1 to stksum do
begin
dm:=stkfromblk(bk,k);
dmstr[k]:=dm;
temp1:=stkindi(dm,yygs7,0,7);
var_px[k]:=temp1[dcount];
var_indi[k]:=temp1[dcount];
end;
Num1:=sortpos(var_indi,0,1,stksum);
dm_max1:=var_indi[1]; dm_max2:=var_indi[2];dm_max3:=var_indi[3]; dm_max4:=var_indi[4]; dm_max5:=var_indi[5];
max1:=var_px[dm_max1]; max2:=var_px[dm_max2]; max3:=var_px[dm_max3]; max4:=var_px[dm_max4]; max5:=var_px[dm_max5];
EXPLAIN(1,' 【周资金流出前五名】'),color00FF00;
EXPLAIN(1,'1:'+STKNAMEEX(dmstr[dm_max1])+' '+NUMTOSTR(max1,0)+' 亿'),ColorFFEE00;
EXPLAIN(1,'2:'+STKNAMEEX(dmstr[dm_max2])+' '+NUMTOSTR(max2,0)+' 亿'),ColorFFEE00;
EXPLAIN(1,'3:'+STKNAMEEX(dmstr[dm_max3])+' '+NUMTOSTR(max3,0)+' 亿'),ColorFFEE00;
EXPLAIN(1,'4:'+STKNAMEEX(dmstr[dm_max4])+' '+NUMTOSTR(max4,0)+' 亿'),ColorFFEE00;
EXPLAIN(1,'5:'+STKNAMEEX(dmstr[dm_max5])+' '+NUMTOSTR(max5,0)+' 亿'),ColorFFEE00;
stksum:=STKCOUNT(bk);
variable:dmstr[stksum]='';
for k=1 to stksum do
begin
dm:=stkfromblk(bk,k);
dmstr[k]:=dm;
end;
DRAWTEXTEX(C,1,420,30,' 共有:'+numtostr(stksum,0)+'只'),COLOR00FFFF;
DRAWTEXTEX(c,1,455,150,'一'),ColorFFFF00;
DRAWTEXTEX(c,1,455,270,'发'),ColorFFFF00;
DRAWTEXTEX(c,1,455,390,'千'),ColorFFFF00;
DRAWTEXTEX(c,1,455,510,'钧'),ColorFFFF00;
DRAWTEXTEX(c,1,455,630,'制'),ColorFFFF00;
DRAWTEXTEX(c,1,455,750,'作'),ColorFFFF00;
DRAWTEXTEX(c,1,320,900,'========2009==【理想论坛荣誉出==0325========'),Color00FF00;
//
公式文件：
涨幅引用.alg
(943 Bytes, 下载次数: 116)
板块资金【自用】.alg
(11.67 KB, 下载次数: 138)
|
| |  | |  |
|
