一发千钧老师的飞狐指标【DDE金指】
-
相关简介:C/C++ Code 复制内容到剪贴板 AA:=IF(C=(HHV(C,11)+LLV(C,11))/2,vol,0);BB:=IF(C(HHV(C,11)+LLV(C,11))/2,vol,0);AG:=STKCOUNT( 'A股板块' )*1780000; 机构线:SUM((AA-BB),22)/IF(CAPITAL1,AG,CAPITAL),ColorEE33EE;操作线:EMA(机构线,7),ColorEEEE00; bk:= '自选股' ; stksum:=STKCOU
-
文章来源:择股网作者:股海网发布时间:2009-09-20浏览次数:
C/C++ Code复制内容到剪贴板
- AA:=IF(C>=(HHV(C,11)+LLV(C,11))/2,vol,0);BB:=IF(C<(HHV(C,11)+LLV(C,11))/2,vol,0);AG:=STKCOUNT('A股板块')*1780000;
- 机构线:SUM((AA-BB),22)/IF(CAPITAL<1,AG,CAPITAL),ColorEE33EE;操作线:EMA(机构线,7),ColorEEEE00;
- bk:='自选股';
- stksum:=STKCOUNT(bk);dcount:=DATACOUNT;yygs4:='涨幅引用.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,yygs4,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];dm_max6:=var_indi[6];dm_max7:=var_indi[7];dm_max8:=var_indi[8];
- dm_max9:=var_indi[9];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];max6:=var_px[dm_max6];max7:=var_px[dm_max7];
- max8:=var_px[dm_max8];max9:=var_px[dm_max9];
- DRAWTEXTEX(c,1,30,0,'【涨幅排序】'),Color0000FF;
- DRAWTEXTEX(c,1,20,150,'1:'+STKNAMEEX(dmstr[dm_max1])+':'+NUMTOSTR(max1,2)),Color00AAFF;
- DRAWTEXTEX(c,1,20,250,'2:'+STKNAMEEX(dmstr[dm_max2])+':'+NUMTOSTR(max2,2)),Color00AAFF;
- DRAWTEXTEX(c,1,20,350,'3:'+STKNAMEEX(dmstr[dm_max3])+':'+NUMTOSTR(max3,2)),Color00AAFF;
- DRAWTEXTEX(c,1,20,450,'4:'+STKNAMEEX(dmstr[dm_max4])+':'+NUMTOSTR(max4,2)),Color00AAFF;
- DRAWTEXTEX(c,1,20,550,'5:'+STKNAMEEX(dmstr[dm_max5])+':'+NUMTOSTR(max5,2)),Color00AAFF;
- DRAWTEXTEX(c,1,20,650,'6:'+STKNAMEEX(dmstr[dm_max6])+':'+NUMTOSTR(max6,2)),Color00AAFF;
- DRAWTEXTEX(c,1,20,750,'7:'+STKNAMEEX(dmstr[dm_max7])+':'+NUMTOSTR(max7,2)),Color00AAFF;
- DRAWTEXTEX(c,1,20,850,'8:'+STKNAMEEX(dmstr[dm_max8])+':'+NUMTOSTR(max8,2)),Color00AAFF;
- DRAWTEXTEX(c,1,20,950,'9:'+STKNAMEEX(dmstr[dm_max9])+':'+NUMTOSTR(max9,2)),Color00AAFF;
- yygs5:='涨幅引用.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,yygs5,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];dm_max6:=var_indi[6];dm_max7:=var_indi[7];dm_max8:=var_indi[8];
- dm_max9:=var_indi[9];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];max6:=var_px[dm_max6];max7:=var_px[dm_max7];
- max8:=var_px[dm_max8];max9:=var_px[dm_max9];
- DRAWTEXTEX(c,1,250,0,'【跌幅排序】'),,Color00FF00;
- DRAWTEXTEX(c,1,240,150,'1:'+STKNAMEEX(dmstr[dm_max1])+':'+NUMTOSTR(max1,2)),colorFF8800;
- DRAWTEXTEX(c,1,240,250,'2:'+STKNAMEEX(dmstr[dm_max2])+':'+NUMTOSTR(max2,2)),colorFF8800;
- DRAWTEXTEX(c,1,240,350,'3:'+STKNAMEEX(dmstr[dm_max3])+':'+NUMTOSTR(max3,2)),colorFF8800;
- DRAWTEXTEX(c,1,240,450,'4:'+STKNAMEEX(dmstr[dm_max4])+':'+NUMTOSTR(max4,2)),colorFF8800;
- DRAWTEXTEX(c,1,240,550,'5:'+STKNAMEEX(dmstr[dm_max5])+':'+NUMTOSTR(max5,2)),colorFF8800;
- DRAWTEXTEX(c,1,240,650,'6:'+STKNAMEEX(dmstr[dm_max6])+':'+NUMTOSTR(max6,2)),colorFF8800;
- DRAWTEXTEX(c,1,240,750,'7:'+STKNAMEEX(dmstr[dm_max7])+':'+NUMTOSTR(max7,2)),colorFF8800;
- DRAWTEXTEX(c,1,240,850,'8:'+STKNAMEEX(dmstr[dm_max8])+':'+NUMTOSTR(max8,2)),colorFF8800;
- DRAWTEXTEX(c,1,240,950,'9:'+STKNAMEEX(dmstr[dm_max9])+':'+NUMTOSTR(max9,2)),colorFF8800;
- yygs:='涨幅引用.ZJA';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,yygs,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];dm_max6:=var_indi[6];dm_max7:=var_indi[7];dm_max8:=var_indi[8];
- dm_max9:=var_indi[9];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];max6:=var_px[dm_max6];max7:=var_px[dm_max7];
- max8:=var_px[dm_max8];max9:=var_px[dm_max9];
- DRAWTEXTEX(c,1,535,0,'【资金入场排序】'),,ColorFF00FF;
- DRAWTEXTEX(c,1,520,150,'1:'+STKNAMEEX(dmstr[dm_max1])+':'+NUMTOSTR(max1,0)+' 万'),color00AAFF;
- DRAWTEXTEX(c,1,520,250,'2:'+STKNAMEEX(dmstr[dm_max2])+':'+NUMTOSTR(max2,0)+' 万'),color00AAFF;
- DRAWTEXTEX(c,1,520,350,'3:'+STKNAMEEX(dmstr[dm_max3])+':'+NUMTOSTR(max3,0)+' 万'),color00AAFF;
- DRAWTEXTEX(c,1,520,450,'4:'+STKNAMEEX(dmstr[dm_max4])+':'+NUMTOSTR(max4,0)+' 万'),color00AAFF;
- DRAWTEXTEX(c,1,520,550,'5:'+STKNAMEEX(dmstr[dm_max5])+':'+NUMTOSTR(max5,0)+' 万'),color00AAFF;
- DRAWTEXTEX(c,1,520,650,'6:'+STKNAMEEX(dmstr[dm_max6])+':'+NUMTOSTR(max6,0)+' 万'),color00AAFF;
- DRAWTEXTEX(c,1,520,750,'7:'+STKNAMEEX(dmstr[dm_max7])+':'+NUMTOSTR(max7,0)+' 万'),color00AAFF;
- DRAWTEXTEX(c,1,520,850,'8:'+STKNAMEEX(dmstr[dm_max8])+':'+NUMTOSTR(max8,0)+' 万'),color00AAFF;
- DRAWTEXTEX(c,1,520,950,'9:'+STKNAMEEX(dmstr[dm_max9])+':'+NUMTOSTR(max9,0)+' 万'),color00AAFF;
- yygs2:='涨幅引用.ZJB';
- 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,-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];dm_max6:=var_indi[6];dm_max7:=var_indi[7];dm_max8:=var_indi[8];
- dm_max9:=var_indi[9];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];max6:=var_px[dm_max6];max7:=var_px[dm_max7];
- max8:=var_px[dm_max8];max9:=var_px[dm_max9];
- DRAWTEXTEX(c,1,785,0,'【资金离场排序】'),colorEEEEEE;
- DRAWTEXTEX(c,1,770,150,'1:'+STKNAMEEX(dmstr[dm_max1])+':'+NUMTOSTR(max1,0)+' 万'),colorFF8800;
- DRAWTEXTEX(c,1,770,250,'2:'+STKNAMEEX(dmstr[dm_max2])+':'+NUMTOSTR(max2,0)+' 万'),colorFF8800;
- DRAWTEXTEX(c,1,770,350,'3:'+STKNAMEEX(dmstr[dm_max3])+':'+NUMTOSTR(max3,0)+' 万'),colorFF8800;
- DRAWTEXTEX(c,1,770,450,'4:'+STKNAMEEX(dmstr[dm_max4])+':'+NUMTOSTR(max4,0)+' 万'),colorFF8800;
- DRAWTEXTEX(c,1,770,550,'5:'+STKNAMEEX(dmstr[dm_max5])+':'+NUMTOSTR(max5,0)+' 万'),colorFF8800;
- DRAWTEXTEX(c,1,770,650,'6:'+STKNAMEEX(dmstr[dm_max6])+':'+NUMTOSTR(max6,0)+' 万'),colorFF8800;
- DRAWTEXTEX(c,1,770,750,'7:'+STKNAMEEX(dmstr[dm_max7])+':'+NUMTOSTR(max7,0)+' 万'),colorFF8800;
- DRAWTEXTEX(c,1,770,850,'8:'+STKNAMEEX(dmstr[dm_max8])+':'+NUMTOSTR(max8,0)+' 万'),colorFF8800;
- DRAWTEXTEX(c,1,770,950,'9:'+STKNAMEEX(dmstr[dm_max9])+':'+NUMTOSTR(max9,0)+' 万'),colorFF8800;
- DRAWTEXTEX(c,1,455,150,'理'),Color00A100;DRAWTEXTEX(c,1,455,300,'想'),Color00A100;
- DRAWTEXTEX(c,1,455,450,'千'),Color00A100;DRAWTEXTEX(c,1,455,600,'钧'),Color00A100;
- DRAWTEXTEX(c,1,455,750,'制'),Color00A100;DRAWTEXTEX(c,1,455,900,'作'),Color00A100;
- stksum:=STKCOUNT(bk);
- variable:dmstr[stksum]='';
- for k=1 to stksum do
- begin
- dm:=stkfromblk(bk,k);
- dmstr[k]:=dm;
- end;
- DRAWTEXTEX(C,1,395,0,' 共有:'+numtostr(stksum,0)+'只'),COLOR00FFFF;
下载链接:( 说明:股海资源如需解压密码的请输入本站域名:www.guhai.com.cn请仔细输入!)
|
上一篇:多空力道★最新版(附通达信、大智慧源码文件)
下一篇:仿(龙行九天)