手机版 官方微博
官方微信
扫描关注:理想财富微信公众号
理想论坛App
扫描下载理想论坛App
RSS

希望老师帮忙改下指标,谢谢!!

[通达信]
设置
2376 7 魅族江南 Lv.2 发表于 · 2016-10-17 02:18 举报 显示全部楼层 复制 正序浏览 |
跳转到指定楼层
此图是落叶·执迷老师的筹码分布主图我觉得这个指标很好,但我是通达信的用不了,希望老师能帮我改成通达信版本的。谢谢老师啦!!!
效果图如下

这是源码:
//各种筹码线
cost(20),linethick2,colorgray;
cost(50),linethick2,colorred;
cost(80),linethick2,colorgray;
//mcst:市场成本均线
mcst:DMA(AMOUNT/(100*VOL),VOL/CAPITAL),linedot,colorred;
FILLRGN(mcst>cost(50),mcst,cost(50)),colorcc99cc;
FILLRGN(mcst<=cost(50),mcst,cost(50)),color9999cc;
//元旦主图的(一部分) 作者:千钧
DRAWTEXTEX(CLOSE,1,530,1,STRLEFT(BLKNAME,100)),ColorFFB060;
QSW:=F10FIND('控盘情况:',1);
IF QSW>0 THEN BEGIN
WZ1:=F10FIND('-',QSW)-4;
WZ2:=F10FIND('-',WZ1+20)-4;
WZ3:=F10FIND('公司简况',WZ1);
T1:=F10TEXT(WZ1,10);
T2:=IF(WZ2<WZ3,F10TEXT(WZ2,10),'');
LS:=14;
HS1:=STRTONUM(F10TEXT(WZ1+LS,10));
HS2:=IF(WZ2<WZ3,STRTONUM(F10TEXT(WZ2+LS,10)),0);
END;
DRAWTEXTEX(c,1,560,80,' 报表日期:'+t1+' 账户总数:'+NUMTOSTR(hs1,0)+' 户'),colorgray;
DRAWTEXTEX(c,1,560,180,' 报表日期:'+t2+' 账户总数:'+NUMTOSTR(hs2,0)+' 户'),colorgray;
hsc:=abs(hs1-hs2);hscb:=hsc/hs2*100;
DRAWTEXTEX(hs1>hs2,1,570,130,'市场筹码较上期分散'+' 增加'+NUMTOSTR(hsc,0)+'户'+NUMTOSTR(hscb,0)+'%'),Color00FF00;
DRAWTEXTEX(hs1<hs2,1,570,130,'市场筹码较上期集中'+' 减少'+NUMTOSTR(hsc,0)+'户'+NUMTOSTR(hscb,0)+'%'),Color0000FF;
//控盘情况(部分) 作者:千钧
a:=F10FIND('【十大流通股东】:',1);a0:=F10FIND('主要指标:',1);
QSq:=F10FIND('按照资产负债率排名',5000);QSZ:=F10FIND('按照每股收益排名',5000);
GD:=STRTONUM(STRRIGHT(F10TEXT(F10FIND('占流通A股比例:',500),22),8));
a1:=F10FIND(' 1│',a);a2:=F10FIND(' 2│',a1);a3:=F10FIND(' 3│',a2);
a4:=F10FIND(' 4│',a3);a5:=F10FIND(' 5│',a4);a6:=F10FIND(' 6│',a5);
a7:=F10FIND(' 7│',a6);a8:=F10FIND(' 8│',a7);a9:=F10FIND(' 9│',a8);
a10:=F10FIND('10│',a9);{hj:=FINANCE(7)/gd1;}
DRAWTEXTEX(C,1,130,0,''+F10TEXT(a1,0)+'\n'+F10TEXT(a2,0)+'\n'+F10TEXT(a3,0)
+'\n'+F10TEXT(a4,0)+'\n'+F10TEXT(a5,0)+'\n'+F10TEXT(a6,0)+'\n'+F10TEXT(a7,0)
+'\n'+F10TEXT(a8,0)+'\n'+F10TEXT(a9,0)+'\n'+F10TEXT(a10,0)),colorgray;
DRAWTEXTEX(C,1,0,10,'证券代码: '+STKLABEL+'\n\n证券名称:'+STKNAME),colorgray;
DRAWTEXTEX(c,1,0,80,'每股收益:'+'第 '+F10TEXT(QSz+50,0)+' 位'),ColorAAAAAA;
DRAWTEXTEX(c,1,0,120,'资产负债:'+'第 '+F10TEXT(QSq+52,0)+' 位'),ColorAAAAAA;
DRAWTEXTEX(C,1,0,160,'大股东占:'+NUMTOSTR(GD,2)+' %'),ColorAAAAAA;

KLINE(O,H,L,C,0);


在此感谢所有分享指标和帮我们改编指标的老师们,谢谢你们的辛勤和汗水!!

相关股票

魅族江南
Lv.2
发表于 2016-10-22 13:36 复制 查看全部楼层
有没有老师看到,帮忙改一下。谢谢!!
魅族江南
Lv.2
发表于 2016-10-22 10:39 复制 查看全部楼层
@魅族江南 顶上去让老师看到!!!期待老师出手!!!
魅族江南
Lv.2
发表于 2016-10-20 07:41 复制 查看全部楼层
@魅族江南 顶一下让老师看到!!
魅族江南
Lv.2
发表于 2016-10-18 11:50 复制 查看全部楼层
@魅族江南 恳请老师出手帮帮忙吧!!
魅族江南
Lv.2
发表于 2016-10-18 08:01 复制 查看全部楼层
@魅族江南 那位老师愿意帮下忙?谢谢!!
魅族江南
Lv.2
发表于 2016-10-17 12:04 复制 查看全部楼层
@王费神 谢谢帮顶!!期待老师出手!!谢谢!!
王费神
Lv.5
发表于 2016-10-17 10:14 复制 查看全部楼层
期待
您需要登录后才可以回帖 免费注册登录

本版积分规则

回顶部 到页底
快速回复 返回顶部 返回列表