通达信外部数据采集系统V2.5(本文提供源码 副图指标调用大数据) 增加更强大的通达信幅图指标数据系统
流通股东数据号默认201-220
解禁限shou据号默认数221-224
股东户数数据号默认229 -232
机构持股数据号默认225-228
必须默认 不然肯定弄混,不解释。
提示有病毒属于误报,亲测数据完整有效,输出格式自己研究吧
以下代码的股东数据、解禁数据、机构持股 请自行按照序列号编辑 {十大流通股东副图}
{股东数据直接放在:TDX\T0002\SIGNALS\EXTERN_USER.TXT--可以将下载的自定义数据直接复制到这里即可}
DRAWRECTREL(0,0,998,998,RGB(0,28,0));
DRAWRECTREL(40,0,40,998,RGB(128,128,128));
DRAWRECTREL(430,0,430,998,RGB(128,128,128));
DRAWRECTREL(515,0,515,998,RGB(128,128,128));
DRAWRECTREL(595,0,595,998,RGB(128,128,128));
DRAWRECTREL(740,0,740,998,RGB(128,128,128));
DRAWRECTREL(0,100,998,100,RGB(128,128,128));
DRAWTEXT_FIX(ISLASTBAR,0.010,0.020,0,'序号'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.015,0.120,0,'一'),COLOR00FFFF;
DRAWTEXT_FIX(ISLASTBAR,0.015,0.207,0,'二'),COLOR00FF00;
DRAWTEXT_FIX(ISLASTBAR,0.015,0.294,0,'三'),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,0.015,0.381,0,'四'),COLORFFFF00;
DRAWTEXT_FIX(ISLASTBAR,0.015,0.468,0,'五'),COLORLIRED;
DRAWTEXT_FIX(ISLASTBAR,0.015,0.555,0,'六'),COLOR00FFFF;
DRAWTEXT_FIX(ISLASTBAR,0.015,0.642,0,'七'),COLOR00FF00;
DRAWTEXT_FIX(ISLASTBAR,0.015,0.729,0,'八'),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,0.015,0.816,0,'九'),COLORFFFF00;
DRAWTEXT_FIX(ISLASTBAR,0.015,0.903,0,'十'),COLORLIRED;
DRAWTEXT_FIX(ISLASTBAR,0.18,0.020,0,'十大流通股东名称'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.050, 0.120, 0, EXTERNSTR(0,201) ),COLOR00FFFF;
DRAWTEXT_FIX(ISLASTBAR,0.050, 0.207, 0, EXTERNSTR(0,202) ),COLOR00FF00;
DRAWTEXT_FIX(ISLASTBAR,0.050, 0.294, 0, EXTERNSTR(0,203) ),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,0.050, 0.381, 0, EXTERNSTR(0,204) ),COLORFFFF00;
DRAWTEXT_FIX(ISLASTBAR,0.050, 0.468, 0, EXTERNSTR(0,205) ),COLORLIRED;
DRAWTEXT_FIX(ISLASTBAR,0.050, 0.555, 0, EXTERNSTR(0,206) ),COLOR00FFFF;
DRAWTEXT_FIX(ISLASTBAR,0.050, 0.642, 0, EXTERNSTR(0,207) ),COLOR00FF00;
DRAWTEXT_FIX(ISLASTBAR,0.050, 0.729, 0, EXTERNSTR(0,208) ),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,0.050, 0.816, 0, EXTERNSTR(0,209) ),COLORFFFF00;
DRAWTEXT_FIX(ISLASTBAR,0.050, 0.903, 0, EXTERNSTR(0,210) ),COLORLIRED;
DRAWTEXT_FIX(ISLASTBAR,0.447,0.020,0,'持股量(万股)'),COLORGREEN;
DRAWNUMBER_FIX(ISLASTBAR,0.440, 0.120, 0, EXTERNVALUE(0,201) ),COLOR00FFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.440, 0.207, 0, EXTERNVALUE(0,202) ),COLOR00FF00;
DRAWNUMBER_FIX(ISLASTBAR,0.440, 0.294, 0, EXTERNVALUE(0,203) ),COLORLIGRAY;
DRAWNUMBER_FIX(ISLASTBAR,0.440, 0.381, 0, EXTERNVALUE(0,204) ),COLORFFFF00;
DRAWNUMBER_FIX(ISLASTBAR,0.440, 0.468, 0, EXTERNVALUE(0,205) ),COLORLIRED;
DRAWNUMBER_FIX(ISLASTBAR,0.440, 0.555, 0, EXTERNVALUE(0,206) ),COLOR00FFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.440, 0.642, 0, EXTERNVALUE(0,207) ),COLOR00FF00;
DRAWNUMBER_FIX(ISLASTBAR,0.440, 0.729, 0, EXTERNVALUE(0,208) ),COLORLIGRAY;
DRAWNUMBER_FIX(ISLASTBAR,0.440, 0.816, 0, EXTERNVALUE(0,209) ),COLORFFFF00;
DRAWNUMBER_FIX(ISLASTBAR,0.440, 0.903, 0, EXTERNVALUE(0,210) ),COLORLIRED;
DRAWTEXT_FIX(ISLASTBAR,0.532,0.020,0,'持股比例 %'),COLORGREEN;
DRAWNUMBER_FIX(ISLASTBAR,0.525, 0.120, 0, EXTERNVALUE(0,211) ),COLOR00FFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.525, 0.207, 0, EXTERNVALUE(0,212) ),COLOR00FF00;
DRAWNUMBER_FIX(ISLASTBAR,0.525, 0.294, 0, EXTERNVALUE(0,213) ),COLORLIGRAY;
DRAWNUMBER_FIX(ISLASTBAR,0.525, 0.381, 0, EXTERNVALUE(0,214) ),COLORFFFF00;
DRAWNUMBER_FIX(ISLASTBAR,0.525, 0.468, 0, EXTERNVALUE(0,215) ),COLORLIRED;
DRAWNUMBER_FIX(ISLASTBAR,0.525, 0.555, 0, EXTERNVALUE(0,216) ),COLOR00FFFF;
DRAWNUMBER_FIX(ISLASTBAR,0.525, 0.642, 0, EXTERNVALUE(0,217) ),COLOR00FF00;
DRAWNUMBER_FIX(ISLASTBAR,0.525, 0.729, 0, EXTERNVALUE(0,218) ),COLORLIGRAY;
DRAWNUMBER_FIX(ISLASTBAR,0.525, 0.816, 0, EXTERNVALUE(0,219) ),COLORFFFF00;
DRAWNUMBER_FIX(ISLASTBAR,0.525, 0.903, 0, EXTERNVALUE(0,220) ),COLORLIRED;
DRAWTEXT_FIX(ISLASTBAR,0.638,0.020,0,'增减 万股 比例'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.605, 0.120, 0, EXTERNSTR(0,211) ),COLOR00FFFF;
DRAWTEXT_FIX(ISLASTBAR,0.605, 0.207, 0, EXTERNSTR(0,212) ),COLOR00FF00;
DRAWTEXT_FIX(ISLASTBAR,0.605, 0.294, 0, EXTERNSTR(0,213) ),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,0.605, 0.381, 0, EXTERNSTR(0,214) ),COLORFFFF00;
DRAWTEXT_FIX(ISLASTBAR,0.605, 0.468, 0, EXTERNSTR(0,215) ),COLORLIRED;
DRAWTEXT_FIX(ISLASTBAR,0.605, 0.555, 0, EXTERNSTR(0,216) ),COLOR00FFFF;
DRAWTEXT_FIX(ISLASTBAR,0.605, 0.642, 0, EXTERNSTR(0,217) ),COLOR00FF00;
DRAWTEXT_FIX(ISLASTBAR,0.605, 0.729, 0, EXTERNSTR(0,218) ),COLORLIGRAY;
DRAWTEXT_FIX(ISLASTBAR,0.605, 0.816, 0, EXTERNSTR(0,219) ),COLORFFFF00;
DRAWTEXT_FIX(ISLASTBAR,0.605, 0.903, 0, EXTERNSTR(0,220) ),COLORLIRED;
DRAWTEXT_FIX(ISLASTBAR,0.850,0.020,0,'统计分析'),COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0.748,0.120,0,'1、前十大股东持股合计:'),COLORYELLOW;
QSDGDCGBL:=EXTERNVALUE(0,211)+EXTERNVALUE(0,212)+EXTERNVALUE(0,213)+EXTERNVALUE(0,214)+EXTERNVALUE(0,215)
+EXTERNVALUE(0,216)+EXTERNVALUE(0,217)+EXTERNVALUE(0,218)+EXTERNVALUE(0,219)+EXTERNVALUE(0,220);
QSDGDCGSL:=EXTERNVALUE(0,201)+EXTERNVALUE(0,202)+EXTERNVALUE(0,203)+EXTERNVALUE(0,204)+EXTERNVALUE(0,205)
+EXTERNVALUE(0,206)+EXTERNVALUE(0,207)+EXTERNVALUE(0,208)+EXTERNVALUE(0,209)+EXTERNVALUE(0,210);
环比增减1:=(FINONE(245,0,0)-FINONE(245,0,1))/FINONE(245,0,1)*100;
HG111:=IF(环比增减1>0,VARCAT(VARCAT( '增加 ' ,VAR2STR( 环比增减1,2)),' % '),IF(环比增减1<0,VARCAT(VARCAT( '减少 ' ,VAR2STR(-环比增减1,2)),' % '),' '));
HGH111:=STRCAT(STRCAT('占总股本 ',STRCAT(CON2STR(FINVALUE(245)/FINVALUE(238)*100,2),' % ')),STRCAT('占流通盘 ',STRCAT(CON2STR(FINVALUE(245)/FINVALUE(239)*100,2),' % ')));
SDGDCGLXFX:=IF(FINONE(245,0,0)<FINONE(245,0,1) AND FINONE(245,0,1)<FINONE(245,0,2) AND FINONE(245,0,2)<FINONE(245,0,3),'连续三季度减少',IF(FINVALUE(245)>FINONE(245,0,1) AND FINONE(245,0,1)>FINONE(245,0,2) AND FINONE(245,0,2)>FINONE(245,0,3),'连续三季度增加',''));
DRAWTEXT_FIX(ISLASTBAR,0.760,0.207,0,STRCAT(STRCAT('持股比 ',STRCAT(CON2STR(QSDGDCGBL,2),' % ')),STRCAT('持股数 ',STRCAT(CON2STR(QSDGDCGSL,2),' 万股')))),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.760,0.294,0,HGH111),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.760,0.381,0,STRCAT('较上期 ',STRCAT(HG111,SDGDCGLXFX))),COLORYELLOW;
|
评论内容只代表网友观点,与本站立场无关!
本网提供的公式文件说明:
* alg格式飞狐股票公式,可以用飞狐交易师或者交易师软件导入;
* fnc格式大智慧新一代公式指标,可以用大智慧股票软件使用,少部分可以用分析家股票软件引入使用;
* exp格式大智慧经典版股票公式,仅可以用大智慧经典版股票软件引入使用;
* tni和tnc格式通达信股票公式,仅可以用通达信新引入使用,例如可以用通达信股票软件引入使用;
* tne,tn6格式通达信公式,可以用通达信公式编辑器5.0版导入,推荐通达信金融终端版本;
* hxf格式同花顺股票公式,仅可以用同花顺股票软件引入使用。
以上的各种软件都可以在本网股票软件栏目找到!
* 关于股票公式时间限制,如果在引入大智慧公式,交易师公式或者飞狐公式的时候,发现公式名称栏是空白的,这时候调整电脑时间到1997年,又能出现公式名称,并且能正常显示,可能是公式使用期限已过。
* 关于还原公式源码如果你忘记了自己编写的大智慧公式,通达信公式,同花顺公式,操盘手公式,飞狐公式,博易大师公式,金字塔公式,文华公式和交易师公式等等公式的密码,本网可帮恢复源码,有.偿.服.务无意勿扰,点击在线咨询联系我。
* 关于股票公式源码编辑
本网提供的源码,一般都可以编辑成公式,如果不明白公式的编辑,在本页右侧教程录像可参考,或者找公式教程资料学习,请搜索:教程
* 如果您发现软件内容或者链接错误,请点击报告错误谢谢!
* 站内提供的所有软件包含源码均是由网上搜集,若侵犯了你的版权利益,请联系通知我们!