绝世无双---升级版(云南股圣指标分析系统)!没有最好，只有更好！
送大家1个免费的分笔看盘指标！
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;
{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
