‹‹ 上一主题 | 下一主题 ››
 278 1 ...10111213141516171819
发新话题
打印

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

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

理想小六级同学

Rank: 3Rank: 3Rank: 3

理想币
711 个 
注册时间
2008-7-24 
211楼 大 中 小 发表于 2008-7-27 11:07  只看该作者
尊重老师！！！！！！！！！

TOP

哀股地摊

理想小二级同学

Rank: 1

理想币
26 个 
注册时间
2008-7-16 
212楼 大 中 小 发表于 2008-8-2 21:19  只看该作者

请教老师

怎么加到大智慧里？

TOP

小米亚

理想小五级同学

Rank: 3Rank: 3Rank: 3

理想币
432 个 
注册时间
2007-11-16 
213楼 大 中 小 发表于 2008-8-3 13:07  只看该作者
謝謝千鈞老師分享!!!

TOP

梦想随风

理想小四级同学

Rank: 2Rank: 2

理想币
216 个 
注册时间
2008-8-1 
214楼 大 中 小 发表于 2008-8-3 13:24  只看该作者
非常不错，精品指标。大力支持

TOP

不败永远东方

理想初一级同学

Rank: 3Rank: 3Rank: 3

理想币
2371 个 
注册时间
2008-7-28 
215楼 大 中 小 发表于 2008-8-4 23:02  只看该作者
顶上去
借用一位朋友的漂亮图,谢谢!

附件

864380_wa5.gif (121.25 KB)

2008-8-4 23:02

864380_wa5.gif


TOP

布兰奇

理想小六级同学

Rank: 3Rank: 3Rank: 3

理想币
206 个 
注册时间
2004-12-21 
216楼 大 中 小 发表于 2008-8-5 00:49  只看该作者
祝贺老师火炬传递成功！

谢谢老师的精品公式 ！

TOP

啸傲无用

理想小三级同学

Rank: 2Rank: 2

理想币
0 个 
注册时间
2007-12-12 
217楼 大 中 小 发表于 2008-8-5 02:33  只看该作者
非常不错，精品指标。

TOP

偶不后悔

理想大二级同学

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

理想币
29864 个 
注册时间
2008-6-28 
218楼 大 中 小 发表于 2008-8-5 14:18  只看该作者
谢谢老师的精品公式 ！

TOP

流浪一蜗牛

理想小三级同学

Rank: 2Rank: 2

理想币
120 个 
注册时间
2008-6-24 
219楼 大 中 小 发表于 2008-8-5 14:35  只看该作者
谢谢老师的精品公式 ！

TOP

涨停板1689

理想小六级同学

Rank: 3Rank: 3Rank: 3

理想币
90 个 
注册时间
2008-1-3 
220楼 大 中 小 发表于 2008-8-5 16:38  只看该作者
恭喜千钧老师！
大礼收下了。

TOP

大头飞鱼

理想小六级同学

Rank: 3Rank: 3Rank: 3

理想币
290 个 
注册时间
2007-5-21 
221楼 大 中 小 发表于 2008-8-7 19:11  只看该作者

回复 楼主 的帖子

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

TOP

快乐鑫2008

理想小三级同学

Rank: 2Rank: 2

理想币
33 个 
注册时间
2008-5-7 
222楼 大 中 小 发表于 2008-8-7 22:03  只看该作者
谢谢 老师的奥运礼物。

TOP

忍者2009

理想初三级同学

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

游侠

理想币
2943 个 
注册时间
2008-3-22 
223楼 大 中 小 发表于 2008-8-7 23:12  只看该作者
感谢楼主提供，辛苦了。。。。。。

TOP

lhyxf

理想初一级同学

Rank: 3Rank: 3Rank: 3

理想币
1109 个 
注册时间
2002-6-11 
224楼 大 中 小 发表于 2008-8-7 23:52  只看该作者
祝贺老师火炬传递成功

谢谢老师发公式

TOP

秋波万千

理想小三级同学

Rank: 2Rank: 2

理想币
136 个 
注册时间
2007-2-10 
225楼 大 中 小 发表于 2008-8-8 11:50  只看该作者
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

‹‹ 上一主题 | 下一主题 ››
 278 1 ...10111213141516171819
发新话题

理想论坛上的网友发表的帖子纯属个人意见，理想论坛不负任何责任！ 免责声明
信息产业部信息备案：津ICP备05011481号      天津市通信管理局电子公告专项备案：060006号
茂名市公安局网警备案：4409013011161号　感谢群英网络提供带宽支持
理想论坛值班电话[8:30～17:30]： 022-23707282 　15022655188(紧急)
找密码：1006267111; 实战区：1006637222; 软件区：1006648222; 降佣：1006801999; 广告：1006269111