绝世无双---升级版(云南股圣指标分析系统)!没有最好，只有更好！
送大家1个免FEI的分笔看盘指标！ input:n(15,1,100); fsbs:=BARSCOUNT(CLOSE); DRAWTEXTREL(50,0,'龙虎看盘'),LINETHICK6,Coloryellow; DRAWTEXTREL(200,0,' '+STKLABEL+' '+STKNAME+' '),LINETHICK6,Colorred; yy1:=WEEKDAY; IF BARSTATUS=2 and (yy1=5) THEN BEGIN DRAWTEXTREL(800,0,'星期五'),LINETHICK6,COLORffef40;end; IF BARSTATUS=2 and (yy1=4) THEN BEGIN DRAWTEXTREL(800,0,'星期四'),LINETHICK6,COLORffef40;end; IF BARSTATUS=2 and (yy1=3) THEN BEGIN DRAWTEXTREL(800,0,'星期三'),LINETHICK6,COLORffef40;end; IF BARSTATUS=2 and (yy1=2) THEN BEGIN DRAWTEXTREL(800,0,'星期二'),LINETHICK6,COLORffef40;end; IF BARSTATUS=2 and (yy1=1) THEN BEGIN DRAWTEXTREL(800,0,'星期一'),LINETHICK6,COLORffef40;end; IF BARSTATUS=2 and (yy1=6) THEN BEGIN DRAWTEXTREL(800,0,'星期六'),LINETHICK6,COLORffef40;end; IF BARSTATUS=2 and (yy1=0) THEN BEGIN DRAWTEXTREL(800,0,'星期日'),LINETHICK6,COLORffef40;end; XS1:=VOL/CAPITAL*100; XS:=IF(XS1<100,100,XS1); dbv:=if(v>=xs and BUYVOL,v,0);{大单主买} dsv:=if(v>=xs and SELLVOL,v,0);{大单主卖} sbv:=if(v<xs and BUYVOL,v,0);{小单买} ssv:=if(v<xs and SELLVOL,v,0);{小单卖} {求和} db:=sum(dbv,0); ds:=sum(dsv,0); sb:=sum(sbv,0); ss:=sum(ssv,0); 总:=DYNAINFO( 8); IF BARSTATUS=2 and (总) THEN BEGIN DRAWTEXTREL(200,200,'■■■总成交手：'+NUMTOSTRN(总,0)),LINETHICK2,COLORccffcc;end; IF BARSTATUS=2 and (db) THEN BEGIN DRAWTEXTREL(200,350,'■大单买入：'+NUMTOSTRN(db,0)),LINETHICK2,color5050FF;end; IF BARSTATUS=2 and (db/总*100) THEN BEGIN DRAWTEXTREL(400,350,'占：'+NUMTOSTRN(db/总*100,0)+' %'),LINETHICK2,COLORYELLOW;end; IF BARSTATUS=2 and (ds) THEN BEGIN DRAWTEXTREL(600,350,'■大单卖出：'+NUMTOSTRN(ds,0)),LINETHICK2,color00FF00;end; IF BARSTATUS=2 and (ds/总*100) THEN BEGIN DRAWTEXTREL(800,350,'占：'+NUMTOSTRN(ds/总*100,0)+' %'),LINETHICK2,COLORYELLOW;end; IF BARSTATUS=2 and (sb) THEN BEGIN DRAWTEXTREL(200,650,'□小单买入'+NUMTOSTRN(sb,0)),LINETHICK2,COLORFF00FF;end; IF BARSTATUS=2 and (sb/总*100) THEN BEGIN DRAWTEXTREL(400,650,'占：'+NUMTOSTRN(sb/总*100,0)+' %'),LINETHICK2,COLORYELLOW;end; IF BARSTATUS=2 and (ss) THEN BEGIN DRAWTEXTREL(600,650,'□小单卖出：'+NUMTOSTRN(ss,0)),LINETHICK2,COLOR00FF00;end; IF BARSTATUS=2 and (ss/总*100) THEN BEGIN DRAWTEXTREL(800,650,'占：'+NUMTOSTRN(ss/总*100,0)+' %'),LINETHICK2,COLORYELLOW;end; IF BARSTATUS=2 and (fsbs) THEN BEGIN DRAWTEXTREL(200,800,'■■■■成交总笔数：'+NUMTOSTRN(fsbs,2)),LINETHICK2,COLOR0000ff;end; 散户跟风系数:=sb/(db*10+ds)*100; ht:=if(c>o,1,-1); IF BARSTATUS=2 and (散户跟风系数*ht) THEN BEGIN DRAWTEXTREL(600,800,'□■散户跟风系数：'+NUMTOSTRN(散户跟风系数*ht,2)),LINETHICK2,COLORyellow;end; DRAWGBKLAST(CLOSE>0,strip(RGB(15,58,65),RGB(8,8,5),2)); dd:=LN(FINANCE2(37)/(n*10))*ATAN(FINANCE2(37))*100; 主动买入:=SUM(BUYVOL,0); 主动卖出:=SUM(SELLVOL,0); 大单买:=if(BUYVOL>=dd,BUYVOL,0); 大单卖:=if(SELLVOL>dd,SELLVOL,0); 大单买入:=SUM(大单买,0); 大单卖出:=SUM(大单卖,0); 小单买入:=主动买入-大单买入; 小单卖出:=主动卖出-大单卖出; 大买金:=sum(if(BUYVOL>=dd,BUYVOL,0)*c,0); 大单买均价:=大买金/大单买入; 大卖金:=sum(if(SELLVOL>dd,SELLVOL,0)*c,0); 大单卖均价:=大卖金/大单卖出; DRAWTEXTREL(200,500,'□■大单买均价: '+NUMTOSTRN(大单买均价,2)),LINETHICK2,COLORccffcc; DRAWTEXTREL(600,500,'■□大单卖均价: '+NUMTOSTRN(大单卖均价,2)),LINETHICK2,COLORccffcc; |
