【分析家】分析家分时解盘公式

终于改好了，送给大家

input:n(15,1,100);
fsbs:=BARSCOUNT(CLOSE);
DRAWTEXTREL(50,0,'龙虎看盘'),LINETHICK6,Coloryellow;
DRAWTEXTREL(200,0,'   '+STKLABEL+'   '+STKNAME+'   '+date),LINETHICK6,ColorFFFF80;
yy:=DATE;
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:=FINANCE(7)*N/1000;
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(总,2)),LINETHICK2,COLORccffcc;end;
IF BARSTATUS=2 and (db) THEN BEGIN DRAWTEXTREL(200,350,'■大单买入：'+NUMTOSTRN(db,2)),LINETHICK2,color5050FF;end;
IF BARSTATUS=2 and (db/总*100) THEN BEGIN DRAWTEXTREL(400,350,'占：'+NUMTOSTRN(db/总*100,2)),LINETHICK2,COLORYELLOW;end;
IF BARSTATUS=2 and (ds) THEN BEGIN DRAWTEXTREL(600,350,'■大单卖出：'+NUMTOSTRN(ds,2)),LINETHICK2,color00FF00;end;
IF BARSTATUS=2 and (ds/总*100) THEN BEGIN DRAWTEXTREL(800,350,'占：'+NUMTOSTRN(ds/总*100,2)),LINETHICK2,COLORYELLOW;end;
IF BARSTATUS=2 and (-(db-ds)) THEN BEGIN DRAWTEXTREL(200,500,'□■大单买卖净量：'+NUMTOSTRN(-(db-ds),2)),LINETHICK2,COLORccffcc;end;
IF BARSTATUS=2 and (-(db-ds)/总*100) THEN BEGIN DRAWTEXTREL(450,500,'占：'+NUMTOSTRN(-(db-ds)/总*100,2)),LINETHICK2,COLORccffcc;end;
IF BARSTATUS=2 and (sb) THEN BEGIN DRAWTEXTREL(200,650,'□小单买入'+NUMTOSTRN(sb,2)),LINETHICK2,COLORFF00FF;end;
IF BARSTATUS=2 and (sb/总*100) THEN BEGIN DRAWTEXTREL(400,650,'占：'+NUMTOSTRN(sb/总*100,2)),LINETHICK2,COLORYELLOW;end;
IF BARSTATUS=2 and (ss) THEN BEGIN DRAWTEXTREL(600,650,'□小单卖出'+NUMTOSTRN(ss,2)),LINETHICK2,COLOR008000;end;
IF BARSTATUS=2 and (ss/总*100) THEN BEGIN DRAWTEXTREL(800,650,'占：'+NUMTOSTRN(ss/总*100,2)),LINETHICK2,COLORYELLOW;end;
IF BARSTATUS=2 and (fsbs) THEN BEGIN DRAWTEXTREL(200,800,'■■■■成交总笔数：'+NUMTOSTRN(fsbs,2)),LINETHICK2,COLORffff54;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,COLORffff54;end;

STICKLINE((总 AND DISPSTATUS=2),0,总,50,1),COLORFFFFFF;
STICKLINE((db+ds+sb+ss AND DISPSTATUS=2),0,总,45,0),COLOR008000;
STICKLINE((db+ds+sb AND DISPSTATUS=2),0,db+ds+sb,45,0),colorFF00FF;
STICKLINE((db+ds AND BARSTATUS=2),0,db+ds,45,0),color00FF00;
STICKLINE((db AND BARSTATUS=2),0,db,45,0),color5050FF;股票论坛 www.55188.com