"通达信版本落叶?执迷老师筹码分布主图指标的修改需求"
[通达信] 5229
效果图如下 这是源码: //各种筹码线 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); 在此感谢所有分享指标和帮我们改编指标的老师们,谢谢你们的辛勤和汗水!! |
相关股票
延展阅读
楼主 |
2楼 |
3楼 |
4楼 |
5楼 |
6楼 |
7楼 |
8楼 |