{盘口分析-飞狐版-BY 舍得快乐}
input:n1(2,1,50),n2(18,1,100),柱形参数(2,1,4);
市净率:=C/FINANCE(34);
DRAWTEXTEX(1,1,29,29,STKLABEL),LINETHICK6,Colorcc99ff;DRAWTEXTEX(1,1,144,29,STKNAME),LINETHICK6,Colorff0000;
DRAWTEXTEX(1,1,30,30,STKLABEL),LINETHICK6,Colorffff00;DRAWTEXTEX(1,1,145,30,STKNAME),LINETHICK6,Color00ffff;
DRAWTEXTEX(1,1,746,189,'盘 口 分 析'),LINETHICK6,Color00ffff;DRAWTEXTEX(1,1,748,191,'盘 口 分 析'),LINETHICK6,Color0000ff;
DRAWTEXTEX(1,1,295,45,'流通:'+NUMTOSTR(FINANCE(7),0)+' 收益:'+NUMTOSTR(FINANCE(33),2)+' 市盈:'+NUMTOSTR(DYNAINFO(39),2)+' 市净:'+NUMTOSTR(市净率,2)+' 换手:'+NUMTOSTR(DYNAINFO(37)*100,2)),LINETHICK3,Color9999ff;
DRAWTEXTEX(1,1,20,120,'---------------------------------------------------------'),LINETHICK3,Colorffffff;
mr:=BUYVOL*c/100;zmr:=sum(mr,0);mc:=SELLVOL*c/100;zmc:=sum(mc,0);rch:=zmr+zmc;rcc:=zmr-zmc;
mr0:=if(mr<5 ,mr,0);zmr0:=sum(mr0,0);mc0:=if(mc<5 ,mc,0);zmc0:=sum(mc0,0);
mr5:=if(mr<10 and mr>=5 ,mr,0);zmr5:=sum(mr5,0);mc5:=if(mc<10 and mc>=5,mc,0);zmc5:=sum(mc5,0);
mr10:=if(mr<25 and mr>=10 ,mr,0);zmr10:=sum(mr10,0);mc10:=if(mc<25 and mc>=10 ,mc,0);zmc10:=sum(mc10,0);
mr25:=if(mr<50 and mr>=25 ,mr,0);zmr25:=sum(mr25,0);mc25:=if(mc<50 and mc>=25 ,mc,0);zmc25:=sum(mc25,0);
mr50:=if(mr<75 and mr>=50 ,mr,0);zmr50:=sum(mr50,0);mc50:=if(mc<75 and mc>=50 ,mc,0);zmc50:=sum(mc50,0);
mr75:=if(mr<100 and mr>=75,mr,0);zmr75:=sum(mr75,0);mc75:=if(mc<100 and mc>=75,mc,0);zmc75:=sum(mc75,0);
mr100:=if(mr>=100 ,mr,0);zmr100:=sum(mr100,0);mc100:=if(mc>=100 ,mc,0);zmc100:=sum(mc100,0);
jg:=10*n2;mr200:=if(mr>jg ,mr,0);zmr200:=sum(mr200,0);mc200:=if(mc>jg,mc,0);zmc200:=sum(mc200,0);mmc200:=zmr200-zmc200;
mmc0:=zmr0-zmc0;mmc5:=zmr5-zmc5;mmc10:=zmr10+zmr25+zmr50-zmc10-zmc25-zmc50;mmc75:=zmr75+zmr100-zmc75-zmc100;
DRAWTEXTEX(1,1,20,492,'---------------------------------------------------------'),LINETHICK3,Colorffffff;
DRAWTEXTEX(BARSTATUS=2 and (zmr),1,34,545,' 总买入: '+NUMTOSTR(zmr,2)),LINETHICK2,COLORff00ff;
DRAWTEXTEX(BARSTATUS=2 and (zmc),1,261,545,' 总卖出: '+NUMTOSTR(zmc,2)),LINETHICK2,COLORffff00;
DRAWTEXTEX(BARSTATUS=2 and (zmr0),1,17,608,' 5万下小单买入: ' +NUMTOSTR(zmr0,2)),LINETHICK1,COLOR0000ff;
DRAWTEXTEX(BARSTATUS=2 and (zmc0),1,264,608,' 5万下小单卖出: '+NUMTOSTR(zmc0,2)),LINETHICK1,COLOR00ff00;
DRAWTEXTEX(BARSTATUS=2 and (zmr5),1,17,660,' 5 万中单买入: '+NUMTOSTR(zmr5,2)),LINETHICK1,COLOR9900ff;
DRAWTEXTEX(BARSTATUS=2 and (zmc5),1,264,660,' 5 万中单卖出: '+NUMTOSTR(zmc5,2)),LINETHICK1,COLOR99ff00;
DRAWTEXTEX(BARSTATUS=2 and (zmr10),1,17,712,' 10 万大单买入: '+NUMTOSTR(zmr10,2)),LINETHICK1,COLOR0000ff;
DRAWTEXTEX(BARSTATUS=2 and (zmc10),1,264,712,' 10 万大单卖出: '+NUMTOSTR(zmc10,2)),LINETHICK1,COLOR00ff00;
DRAWTEXTEX(BARSTATUS=2 and (zmr25),1,17,764,' 25 万大单买入: '+NUMTOSTR(zmr25,2)),LINETHICK1,COLOR9900ff;
DRAWTEXTEX(BARSTATUS=2 and (zmc25),1,264,764,' 25 万大单卖出: '+NUMTOSTR(zmc25,2)),LINETHICK1,COLOR99ff00;
DRAWTEXTEX(BARSTATUS=2 and (zmr50),1,17,816,' 50 万大单买入: '+NUMTOSTR(zmr50,2)),LINETHICK1,COLOR0000ff;
DRAWTEXTEX(BARSTATUS=2 and (zmc50),1,264,816,' 50 万大单卖出: '+NUMTOSTR(zmc50,2)),LINETHICK1,COLOR00ff00;
DRAWTEXTEX(BARSTATUS=2 and (zmr75),1,17,868,' 75 万大单买入: '+NUMTOSTR(zmr75,2)),LINETHICK1,COLOR9900ff;
DRAWTEXTEX(BARSTATUS=2 and (zmc75),1,264,868,' 75 万大单卖出: '+NUMTOSTR(zmc75,2)),LINETHICK1,COLOR99ff00;
DRAWTEXTEX(BARSTATUS=2 and (zmr100),1,17,920,'100 万大单买入: '+NUMTOSTR(zmr100,2)),LINETHICK1,COLOR0000ff;
DRAWTEXTEX(BARSTATUS=2 and (zmc100),1,264,920,' 100 万大单卖出: '+NUMTOSTR(zmc100,2)),LINETHICK1,COLOR00ff00;
DRAWTEXTEX(BARSTATUS=2 and (zmr+zmc),1,475,545,' 成交总额: '+NUMTOSTR(zmr+zmc,2)),LINETHICK2,COLOR6699ff;
DRAWTEXTEX(BARSTATUS=2 and (rcc) and rcc<0,1,480,608,' 总成交净额: '+NUMTOSTR(rcc,2)),LINETHICK1,COLORffff00;
DRAWTEXTEX(BARSTATUS=2 and (rcc) and rcc>0,1,480,608,' 总成交净额: '+NUMTOSTR(rcc,2)),LINETHICK1,COLOR9966ff;
DRAWTEXTEX(BARSTATUS=2 and (mmc0) and mmc0<0,1,480,660,' 小单净额: '+NUMTOSTR(mmc0,2)),LINETHICK1,COLORff9900;
DRAWTEXTEX(BARSTATUS=2 and (mmc0) and mmc0>0,1,480,660,' 小单净额: '+NUMTOSTR(mmc0,2)),LINETHICK1,COLOR9966ff;
DRAWTEXTEX(BARSTATUS=2 and (mmc5) and mmc5<0,1,480,712,' 中单净额: '+NUMTOSTR(mmc5,2)),LINETHICK1,COLORff6600;
DRAWTEXTEX(BARSTATUS=2 and (mmc5) and mmc5>0,1,480,712,' 中单净额: '+NUMTOSTR(mmc5,2)),LINETHICK1,COLOR9966ff;
DRAWTEXTEX(BARSTATUS=2 and (mmc10) and mmc10<0,1,480,764,' 大单净额: '+NUMTOSTR(mmc10,2)),LINETHICK1,COLORff9900;
DRAWTEXTEX(BARSTATUS=2 and (mmc10) and mmc10>0,1,480,764,' 大单净额: '+NUMTOSTR(mmc10,2)),LINETHICK1,COLOR0000ff;
DRAWTEXTEX(BARSTATUS=2 and mmc75<0,1,480,816,' 特大净额: '+NUMTOSTR(mmc75,2)),LINETHICK1,COLORff6600;
DRAWTEXTEX(BARSTATUS=2 and mmc75>0,1,480,816,' 特大净额: '+NUMTOSTR(mmc75,2)),LINETHICK1,COLOR0000ff;
xzj:=mmc0+mmc5;dzj:=mmc10+mmc75;
DRAWTEXTEX(BARSTATUS=2 and xzj<0,1,725,640,'小资金流出: '+NUMTOSTR(ABS(xzj),2)),LINETHICK3,COLORff9900;
DRAWTEXTEX(BARSTATUS=2 and xzj>0,1,725,640,'小资金流入: '+NUMTOSTR(xzj,2)),LINETHICK3,COLOR9966ff;
DRAWTEXTEX(BARSTATUS=2 and dzj<0,1,725,734,'大资金流出: '+NUMTOSTR(ABS(dzj),2)),LINETHICK3,COLORff9900;
DRAWTEXTEX(BARSTATUS=2 and dzj>0,1,725,734,'大资金流入: '+NUMTOSTR(dzj,2)),LINETHICK3,COLOR0000ff;
DRAWTEXTEX(BARSTATUS=2 and mmc200<0,1,479,898,' 大机构减仓: '+NUMTOSTR(abs(mmc200),2)),LINETHICK4,COLOReeeeee;
DRAWTEXTEX(BARSTATUS=2 and mmc200<0,1,480,899,' 大机构减仓: '+NUMTOSTR(abs(mmc200),2)),LINETHICK4,COLORff0000;
DRAWTEXTEX(BARSTATUS=2 and mmc200>0,1,479,898,' 大机构增仓: '+NUMTOSTR(mmc200,2)),LINETHICK4,COLOReeeeee;
DRAWTEXTEX(BARSTATUS=2 and mmc200>0,1,480,899,' 大机构增仓: '+NUMTOSTR(mmc200,2)),LINETHICK4,COLOR0000ff;
mrl:=SUM(BUYVOL,0);mcl:=SUM(SELLVOL,0);dydd:=100*n1;tddr:=SUM(if(BUYVOL>800,BUYVOL,0),0);tddc:=SUM(if(SELLVOL>800,SELLVOL,0),0);
ddr:=SUM(if(BUYVOL>dydd,BUYVOL,0),0);ddc:=SUM(if(SELLVOL>dydd,SELLVOL,0),0);xdr:=mrl-ddr;xdc:=mcl-ddc;
dr:=sum(if(BUYVOL>dydd,BUYVOL,0)*c,0);drj:=dr/ddr;dc:=sum(if(SELLVOL>dydd,SELLVOL,0)*c,0);dcj:=dc/ddc;zb:=sum(if(BUYVOL>0,1,0),0)+sum(if(SELLVOL>0,1,0),0);
DRAWTEXTEX(1,0,20,55,' 总买入量: '+NUMTOSTR(mrl,0)),Color0099ff,LINETHICK2;DRAWTEXTEX(1,0,215,55,' 总卖出量: '+NUMTOSTR(mcl,0)),Colorffff66,LINETHICK2;
DRAWTEXTEX(1,0,20,74,'■ 特大买入: '+NUMTOSTR(tddr,0)),Color0000FF,LINETHICK2;DRAWTEXTEX(1,0,170,74,''+NUMTOSTR(FLOOR(tddr/(mrl+mcl)*100),0)+' %'),Color0000ff,LINETHICK2;
DRAWTEXTEX(1,0,215,74,'■ 特大卖出: '+NUMTOSTR(tddc,0)),Color00ff00,LINETHICK2;DRAWTEXTEX(1,0,365,74,''+NUMTOSTR(FLOOR(tddc/(mrl+mcl)*100),0)+' %'),Color00ff00,LINETHICK2;
DRAWTEXTEX(1,0,20,93,'■ 大单买入: '+NUMTOSTR(ddr,0)),Colorcc66ff,LINETHICK2;DRAWTEXTEX(1,0,170,93,''+NUMTOSTR(FLOOR(ddr/(mrl+mcl)*100),0)+' %'),Colorcc66ff,LINETHICK2;
DRAWTEXTEX(1,0,215,93,'■ 大单卖出: '+NUMTOSTR(ddc,0)),Colorff9966,LINETHICK2;DRAWTEXTEX(1,0,365,93,''+NUMTOSTR(FLOOR(ddc/(mrl+mcl)*100),0)+' %'),Colorff9966,LINETHICK2;
DRAWTEXTEX(1,0,20,112,'■ 小单买入: '+NUMTOSTR(xdr,0)),Color99ccFF,LINETHICK2;DRAWTEXTEX(1,0,170,112,''+NUMTOSTR(FLOOR(xdr/(mrl+mcl)*100),0)+' %'),Color99ccFF,LINETHICK2;
DRAWTEXTEX(1,0,215,112,'■ 小单卖出: '+NUMTOSTR(xdc,0)),Colorccffcc,LINETHICK2;DRAWTEXTEX(1,0,365,112,''+NUMTOSTR(FLOOR(xdc/(mrl+mcl)*100),0)+' %'),Colorccffcc,LINETHICK2;
DRAWTEXTEX(1,0,20,131,' 大单买均价: '+NUMTOSTR(drj,3)),Color6600FF,LINETHICK2;DRAWTEXTEX(1,0,215,131,' 大单卖均价: '+NUMTOSTR(dcj,3)),Color99ff33,LINETHICK2;
DRAWTEXTEX(1,0,415,55,' 总成交量: '+NUMTOSTR((mrl+mcl),0)),Colorccccff,LINETHICK2;DRAWTEXTEX(1,0,415,74,' 特大净量: '+NUMTOSTR((tddr-tddc),0)),Colorcc66ff,LINETHICK2;
DRAWTEXTEX(1,0,415,93,' 大单净量: '+NUMTOSTR((ddr-ddc),0)),Colorccff33,LINETHICK2;DRAWTEXTEX(1,0,415,112,' 小单净量: '+NUMTOSTR((xdr-xdc),0)),Colorffcc66,LINETHICK2;
DRAWTEXTEX(1,0,415,131,' 总买净量: '+NUMTOSTR((mrl-mcl),0)+' 总笔数: '+NUMTOSTR(zb,0)+' 每笔 '+NUMTOSTR(((mrl+mcl)/zb),2)+' 手'),Color00ffff,LINETHICK2;
DRAWTEXTEX(1,0,562,96,'参数1:'+NUMTOSTR(dydd,0)+' 参数2:'+NUMTOSTR(jg,0)),LINETHICK3,Colorffffff;
{柱形1}
STICKLINE(柱形参数=1 AND BARPOS=SYSPARAM(3),0,DYNAINFO(8),80,1),COLORFFFFFF;
STICKLINE(柱形参数=1 AND BARPOS=SYSPARAM(3),tddc+ddc+xdc,tddc+ddc+xdc,120,1),COLORCCFFFF,LINETHICK3;
STICKLINE(柱形参数=1 AND BARPOS=SYSPARAM(3),0,DYNAINFO(8)+tddr+tddc,60,0),Color99ccFF;
STICKLINE(柱形参数=1 AND BARPOS=SYSPARAM(3),0,tddr+tddc+ddr+ddc+xdc,60,0),Colorcc66ff;
STICKLINE(柱形参数=1 AND BARPOS=SYSPARAM(3),0,tddr+tddc+ddc+xdc,60,0),Color0000FF;
STICKLINE(柱形参数=1 AND BARPOS=SYSPARAM(3),0,tddc+ddc+xdc,60,0),Color00ff00;
STICKLINE(柱形参数=1 AND BARPOS=SYSPARAM(3),0,ddc+xdc,60,0),Colorff9966;
STICKLINE(柱形参数=1 AND BARPOS=SYSPARAM(3),0,xdc,60,0),Colorccffcc;
{柱形2}
STICKLINE(柱形参数=2 AND BARPOS=SYSPARAM(3),0,DYNAINFO(8),80,1),COLORFFFFFF;
STICKLINE(柱形参数=2 AND BARPOS=SYSPARAM(3),ddc+xdc,ddc+xdc,120,1),COLORCCFFFF,LINETHICK3;
STICKLINE(柱形参数=2 AND BARPOS=SYSPARAM(3),0,DYNAINFO(8),60,0),Color99ccFF;
STICKLINE(柱形参数=2 AND BARPOS=SYSPARAM(3),0,ddr+ddc+xdc,60,0),Colorcc66ff;
STICKLINE(柱形参数=2 AND BARPOS=SYSPARAM(3),0,ddc+xdc+tddr,60,0),Color0000FF;
STICKLINE(柱形参数=2 AND BARPOS=SYSPARAM(3),0,ddc+xdc,60,0),Color00ff00;
STICKLINE(柱形参数=2 AND BARPOS=SYSPARAM(3),0,ddc+xdc-tddc,60,0),Colorff9966;
STICKLINE(柱形参数=2 AND BARPOS=SYSPARAM(3),0,xdc,60,0),Colorccffcc;
{柱形3}
STICKLINE(柱形参数=3 AND BARPOS=SYSPARAM(3),0,DYNAINFO(8),80,1),COLORFFFFFF;
STICKLINE(柱形参数=3 AND BARPOS=SYSPARAM(3),ddc+xdc,ddc+xdc,120,1),COLORCCFFFF,LINETHICK3;
STICKLINE(柱形参数=3 AND BARPOS=SYSPARAM(3),DYNAINFO(8),DYNAINFO(8)+tddr+tddc,120,0),Color00ff00;
STICKLINE(柱形参数=3 AND BARPOS=SYSPARAM(3),DYNAINFO(8),DYNAINFO(8)+tddr,120,0),Color0000FF;
STICKLINE(柱形参数=3 AND BARPOS=SYSPARAM(3),0,DYNAINFO(8),60,0),Color99ccFF;
STICKLINE(柱形参数=3 AND BARPOS=SYSPARAM(3),0,ddr+ddc+xdc,60,0),Colorcc66ff;
STICKLINE(柱形参数=3 AND BARPOS=SYSPARAM(3),0,ddc+xdc,60,0),Colorff9966;
STICKLINE(柱形参数=3 AND BARPOS=SYSPARAM(3),0,xdc,60,0),Colorccffcc;
{柱形4}
STICKLINE(柱形参数=4 AND BARPOS=SYSPARAM(3),0,DYNAINFO(8),80,1),COLORFFFFFF;
STICKLINE(柱形参数=4 AND BARPOS=SYSPARAM(3),ddc+xdc,ddc+xdc,120,1),COLORCCFFFF,LINETHICK3;
STICKLINE(柱形参数=4 AND BARPOS=SYSPARAM(3),DYNAINFO(8),DYNAINFO(8)+tddr+tddc,120,0),Color00ff00;
STICKLINE(柱形参数=4 AND BARPOS=SYSPARAM(3),DYNAINFO(8),DYNAINFO(8)+tddr,120,0),Color0000FF;
//STICKLINE(柱形参数=3 AND BARPOS=SYSPARAM(3),0,DYNAINFO(8),60,0),Color99ccFF;
STICKLINE(柱形参数=4 AND BARPOS=SYSPARAM(3),0,ddr+ddc+xdr+xdc,60,0),Colorff9966;
STICKLINE(柱形参数=4 AND BARPOS=SYSPARAM(3),0,ddr+xdr+xdc,60,0),Colorcc66ff;
STICKLINE(柱形参数=4 AND BARPOS=SYSPARAM(3),0,xdr+xdc,60,0),Colorccffcc;
STICKLINE(柱形参数=4 AND BARPOS=SYSPARAM(3),0,xdr,60,0),Color99ccFF;  |
