打印

[飞狐] 为庆祝奥运圣火在鹤城传递圆满成功，送【千钧自选股全息】源码！

本主题由估界文于 2008-7-13 20:23 加入精华本主题被作者加入到个人文集中

一发千钧

指标区班长

Rank: 8 Rank: 8 Rank: 8 Rank: 8 Rank: 8 Rank: 8 Rank: 8 Rank: 8

理想币: 22323 个
注册时间: 2007-3-16

楼主大中小发表于 2008-7-13 20:04 只看该作者

为庆祝奥运圣火在鹤城传递圆满成功，送【千钧自选股全息】源码！

本文来自：理想论坛 www.55188.com 作者：一发千钧点击13626次

原文：http://www.55188.com/viewthread.php?tid=2134708

同时也为感谢论坛的朋友们的祝贺和支持！
大家可能一直为每天都有一遍又一遍的反复观察自选股而感到麻烦和厌倦。
【千钧自选股全息】正是为解决朋友们的麻烦而设计的。
在这个指标中、你可以随时观察你的自选股的涨跌、资金流入、流出情况。
不用再去翻自选股。
原来下载过涨幅引用的朋友可以继续使用原来的引用公式。
源码在大家的手中、你可以根据你的喜好修改、但千钧有一点要求：
如果大家尊重理想，尊重千钧。
请尽量不要改动【理想千钧制作】这六个字！！！

源码：

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;

公式文件：
01、引用

涨幅引用.ALG (916 Bytes)

02、主公式

自选股全息.ALG (9.54 KB)

TOP

逊志时敏

理想初二级同学

Rank: 4 Rank: 4 Rank: 4 Rank: 4

理想币: 1072 个
注册时间: 2007-10-26

2楼大中小发表于 2008-7-13 20:06 只看该作者

引用:

原帖由 一发千钧 于 2008-7-13 20:04 发表
同时也为感谢论坛的朋友们的祝贺和支持！
大家可能一直为每天都有一遍又一遍的反复观察自选股而感到麻烦和厌倦。
【千钧自选股全息】正是为解决朋友们的麻烦而设计的。
在这个指标中、你可以随时观察你的自选股的 ...

谢谢老师的礼物！

[ 本帖最后由逊志时敏于 2008-7-13 20:08 编辑 ]

TOP

入股市者

理想初一级同学

Rank: 3 Rank: 3 Rank: 3

理想币: 1294 个
注册时间: 2007-11-2

3楼大中小发表于 2008-7-13 20:06 只看该作者

先顶。。。。。。。。。。。谢谢老师

TOP

晕3

理想小六级同学

Rank: 3 Rank: 3 Rank: 3

理想币: 358 个
注册时间: 2008-6-8

4楼大中小发表于 2008-7-13 20:07 只看该作者

同喜同喜,祝贺楼主!!!!!!!!!!!!!!!!

TOP

抢酷先锋队

理想初一级同学

Rank: 3 Rank: 3 Rank: 3

理想币: 329 个
注册时间: 2007-6-21

5楼大中小发表于 2008-7-13 20:07 只看该作者

谢谢老师,晕啊,沙发没坐上,前面的几位腿好长啊

TOP

独立寒秋8899

理想初二级同学

Rank: 4 Rank: 4 Rank: 4 Rank: 4

理想币: 3869 个
注册时间: 2008-6-27

6楼大中小发表于 2008-7-13 20:07 只看该作者

大智慧啊可惜
恭喜千钧！

TOP

股海扬帆2008

理想初一级同学

Rank: 3 Rank: 3 Rank: 3

理想币: 984 个
注册时间: 2008-1-2

7楼大中小发表于 2008-7-13 20:07 只看该作者

谢谢老师。。。。。。。。。。。。。。。

TOP

方很少

理想小五级同学

Rank: 3 Rank: 3 Rank: 3

理想币: 165 个
注册时间: 2007-11-1

8楼大中小发表于 2008-7-13 20:08 只看该作者

祝贺老师火炬传递成功

谢谢老师发公式

TOP

估界文

指标区班长

Rank: 8 Rank: 8 Rank: 8 Rank: 8 Rank: 8 Rank: 8 Rank: 8 Rank: 8

理想币: 29990 个
注册时间: 2007-7-26

9楼大中小发表于 2008-7-13 20:08 只看该作者

非常不错，精品指标。

TOP

小黄猫A

理想初三级同学

Rank: 4 Rank: 4 Rank: 4 Rank: 4

理想币: 2003 个
注册时间: 2007-9-15

10楼 大中小发表于 2008-7-13 20:10 只看该作者

恭喜千钧老师！
大礼收下了。

TOP

桂枝

桂枝者，温和顺势之意也

理想初一级同学

Rank: 3 Rank: 3 Rank: 3

上善若水

理想币: 1223 个
注册时间: 2008-1-28

11楼 大中小发表于 2008-7-13 20:11 只看该作者

非常不错，精品指标。

TOP

悟净斋

理想初二级同学

Rank: 4 Rank: 4 Rank: 4 Rank: 4

理想币: 1259 个
注册时间: 2008-3-2

12楼 大中小发表于 2008-7-13 20:11 只看该作者

同喜同贺！
谢谢千钧老师！

TOP

一片红jimin

理想初一级同学

Rank: 3 Rank: 3 Rank: 3

理想币: 94 个
注册时间: 2007-11-5

13楼 大中小发表于 2008-7-13 20:12 只看该作者

谢谢老师,祝贺楼主!

TOP

理想福娃

理想小二级同学

Rank: 1

理想币: 80 个
注册时间: 2008-3-27

14楼 大中小发表于 2008-7-13 20:14 只看该作者

祝贺老师火炬传递成功！

谢谢老师的精品公式！

TOP

精彩

理想初一级同学

Rank: 3 Rank: 3 Rank: 3

理想币: 653 个
注册时间: 2003-2-3

15楼 大中小发表于 2008-7-13 20:14 只看该作者

谢谢老师.........

TOP

	四川成都权证+期货低佣	短线合作+山西低佣
全国办理权万一股万三		超低价购买飞狐交易师	↑论坛黄金广告位招商↑
权证交易最低佣金万一	超级基金实盘炒股大赛		权证低佣无五元