打印

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

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

点点婴儿

理想高一级同学

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

理想币: 3234 个
注册时间: 2007-10-27

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

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

但这个不算。这个以有发过

TOP

红树林园

理想小六级同学

Rank: 3 Rank: 3 Rank: 3

理想币: 547 个
注册时间: 2007-12-22

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

指标不错，谢谢千钧老师。

TOP

传奇红颜

理想小六级同学

Rank: 3 Rank: 3 Rank: 3

理想币: 66 个
注册时间: 2007-7-8

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

谢谢老师!!!!

TOP

追梦理想

理想小四级同学

Rank: 2 Rank: 2

理想币: 88 个
注册时间: 2007-7-27

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

通达信能用吗，能否改成通达信的啊，谢谢啊

TOP

真没办法2008

理想小五级同学

Rank: 3 Rank: 3 Rank: 3

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

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

谢谢老师,祝贺楼主!

TOP

安息香

理想小六级同学

Rank: 3 Rank: 3 Rank: 3

理想币: 292 个
注册时间: 2007-5-17

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

恭贺老师凯旋。精品指标，谢老师

TOP

迎财神365

理想初一级同学

Rank: 3 Rank: 3 Rank: 3

理想币: 364 个
注册时间: 2008-1-4

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

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

TOP

晕3

理想小六级同学

Rank: 3 Rank: 3 Rank: 3

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

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

请教老师,这个怎么用,我弄进去怎么什么都没有,谢谢!!!

TOP

散户茶舍

理想小四级同学

Rank: 2 Rank: 2

理想币: 137 个
注册时间: 2008-6-13

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

我的怎么这样啊？

[ 本帖最后由散户茶舍于 2008-7-13 20:20 编辑 ]

附件

2008-07-13_201514.png (1.87 KB)

2008-7-13 20:19

TOP

短线游子

理想初二级同学

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

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

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

祝贺老师火炬传递成功！

谢谢老师的精品公式！

TOP

良朋挚友

理想初一级同学

Rank: 3 Rank: 3 Rank: 3

理想币: 749 个
注册时间: 2008-3-21

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

引用:

原帖由 逊志时敏 于 2008-7-13 20:06 发表

谢谢老师的礼物！

先顶 thx 再下载:D 谢谢老师

TOP

开心易友

理想小六级同学

Rank: 3 Rank: 3 Rank: 3

理想币: 416 个
注册时间: 2007-11-18

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

引用:

原帖由 一发千钧 于 2008-7-13 20:04 发表
为庆祝奥运圣火在鹤城传递圆满成功，送【千钧自选股全息】源码！
本文来自：理想论坛  www.55188.com    作者：一发千钧    点击70次
--------------------------------------------------------------------------------
原文：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;

祝贺老师火炬传递成功,谢谢老师发公式 !!!!

TOP

看花904988

理想初二级同学

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

理想币: 1267 个
注册时间: 2008-1-25

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

向前冲向前冲向前冲

TOP

拼搏易数

理想初一级同学

Rank: 3 Rank: 3 Rank: 3

理想币: 712 个
注册时间: 2007-6-22

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

祝贺老师火炬传递成功！
谢谢老师的精品指标！

TOP

苹果519

理想小四级同学

Rank: 2 Rank: 2

理想币: 225 个
注册时间: 2008-6-22

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

祝贺老师火炬传递成功

谢谢老师发公式

TOP

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