5
浏览{新龙虎看盘原码}
input:n(403,1,10000);
DRAWTEXTREL(30,5,STKLABEL),LINETHICK6,Colorffff00;
DRAWTEXTREL(150,5,STKNAME),LINETHICK5,Color00ffff;
DRAWTEXTREL(740,150, " 高"),LINETHICK4,Color00ffff;
DRAWTEXTREL(740,300, " 原"),LINETHICK4,Color00ffff;
DRAWTEXTREL(740,450, " 阳"),LINETHICK4,Color00ffff;
DRAWTEXTREL(740,600, " 光"),LINETHICK4,Color00ffff;
DRAWTEXTREL(740,750, " 新"),LINETHICK4,ColorFF00FF;
DRAWTEXTREL(740,900, " 编"),LINETHICK4,Color00FF00;
DRAWTEXTREL(800,100," 新"),LINETHICK6,Color00ff00;
DRAWTEXTREL(800,300," 龙"),LINETHICK6,Color00ff00;
DRAWTEXTREL(800,500," 虎"),LINETHICK6,Colorffffff;
DRAWTEXTREL(800,700," 看"),LINETHICK6,Color0000ff;
DRAWTEXTREL(800,900," 盘"),LINETHICK6,Color00FFFF;
DRAWTEXTREL(20,520,"----------------2007.07.11--3.36版--------------------2007.07.07--1.0版---------------------"),LINETHICK1,Coloreeeeee;
a:=BUYVOL*c/100;
bz:=sum(a,0);
b:=c*SELLVOL/100;
sz:=sum(b,0);
z:=bz+sz;
cz:=bz-sz;
xb5:=if(a<=5 ,a,0);b5:=sum(xb5,0);
xs5:=if(b<=5 ,b,0);s5:=sum(xs5,0);
xb10:=if(a<=10 and a>=5 ,a,0);b10:=sum(xb10,0);
xs10:=if(b<=10 and b>=5,b,0);s10:=sum(xs10,0);
xb30:=if(a<=30 and a>=10 ,a,0);b30:=sum(xb30,0);
xs30:=if(b<=30 and b>=10 ,b,0);s30:=sum(xs30,0);
xb50:=if(a<=50 and a>=30 ,a,0);b50:=sum(xb50,0);
xs50:=if(b<=50 and b>=30 ,b,0);s50:=sum(xs50,0);
xb70:=if(a<=70 and a>=50 ,a,0);b70:=sum(xb70,0);
xs70:=if(b<=70 and b>=50 ,b,0);s70:=sum(xs70,0);
xb100:=if(a<=100 and a>=70,a,0);b100:=sum(xb100,0);
xs100:=if(b<=100 and b>=70,b,0);s100:=sum(xs100,0);
xb150:=if(a>=100 ,a,0);b150:=sum(xb150,0);
xs150:=if(b>=100 ,b,0);s150:=sum(xs150,0);
j5:=b5-s5;
j10:=b10-s10;
j30:=b30-s30;
j50:=b50-s50;
j70:=b70-s70;
j100:=b100-s100;
j150:=b150-s150;
IF BARSTATUS=2 and (z) THEN BEGIN DRAWTEXTREL(320,5," ■总成交金额(万元):"+NUMTOSTRN(DYNAINFO(10)/10000,2)),LINETHICK4,COLORccffcc;end;
IF BARSTATUS=2 and (bz) THEN BEGIN DRAWTEXTREL(30,550,"■■■买入金额:"+NUMTOSTRN(bz,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (sz) THEN BEGIN DRAWTEXTREL(250,550," ■■■卖出金额:"+NUMTOSTRN(sz,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b5) THEN BEGIN DRAWTEXTREL(30,600," 5 万大单买入:" +NUMTOSTRN(b5,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s5) THEN BEGIN DRAWTEXTREL(250,600," 5 万大单卖出:"+NUMTOSTRN(s5,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b10) THEN BEGIN DRAWTEXTREL(30,650," 10 万大单买入:"+NUMTOSTRN(b10,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s10) THEN BEGIN DRAWTEXTREL(250,650," 10 万大单卖出:"+NUMTOSTRN(s10,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b30) THEN BEGIN DRAWTEXTREL(30,700," 30 万大单买入:"+NUMTOSTRN(b30,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s30) THEN BEGIN DRAWTEXTREL(250,700," 30 万大单卖出:"+NUMTOSTRN(s30,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b50) THEN BEGIN DRAWTEXTREL(30,750," 50 万大单买入:"+NUMTOSTRN(b50,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s50) THEN BEGIN DRAWTEXTREL(250,750," 50 万大单卖出:"+NUMTOSTRN(s50,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b70) THEN BEGIN DRAWTEXTREL(30,800," 70 万大单买入:"+NUMTOSTRN(b70,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s70) THEN BEGIN DRAWTEXTREL(250,800," 70 万大单卖出:"+NUMTOSTRN(s70,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b100) THEN BEGIN DRAWTEXTREL(30,850,"100 万大单买入:"+NUMTOSTRN(b100,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s100) THEN BEGIN DRAWTEXTREL(250,850," 100 万大单卖出:"+NUMTOSTRN(s100,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b150) THEN BEGIN DRAWTEXTREL(30,900,"150 万大单买入:"+NUMTOSTRN(b150,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s150) THEN BEGIN DRAWTEXTREL(250,900," 150 万大单卖出:"+NUMTOSTRN(s150,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (cz) THEN BEGIN DRAWTEXTREL(470,550," ■■ 净买入金额:"+NUMTOSTRN(cz,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j5) THEN BEGIN DRAWTEXTREL(470,600, " 5 万大单净买入; "+NUMTOSTRN(j5,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j10) THEN BEGIN DRAWTEXTREL(470,650, " 10万大单净买入; "+NUMTOSTRN(j10,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j30) THEN BEGIN DRAWTEXTREL(470,700, " 30万大单净买入; "+NUMTOSTRN(j30,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j50) THEN BEGIN DRAWTEXTREL(470,750, " 50万大单净买入; "+NUMTOSTRN(j50,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j70) THEN BEGIN DRAWTEXTREL(470,800, " 70万大单净买入; "+NUMTOSTRN(j70,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j100) THEN BEGIN DRAWTEXTREL(470,850," 100万大单净买入; "+NUMTOSTRN(j100,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j150) THEN BEGIN DRAWTEXTREL(470,900," 150万大单净买入; "+NUMTOSTRN(j150,2)),LINETHICK1,COLORccff00;end;
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);
大单卖均价:=大卖金/大单卖出;
成交笔数:=sum(if(BUYVOL>0,1,0),0)+sum(if(SELLVOL>0,1,0),0);
大单净量:=大单买入-大单卖出;
增减仓总额:=bz-sz;
当日主力买入量:=(主动买入/2-主动卖出/10)/2;
主力持仓量:=sum(当日主力买入量,SUMBARS(VOL ,FINANCE2(36)))/4;
比例:=主力持仓量/FINANCE2(36);
DRAWTEXTABS(20,25,"■ 大单买入: "+大单买入),Color8000FF,LINETHICK2;
DRAWTEXTABS(20,40,"■ 小单买入: "+小单买入),Color2F73FF,LINETHICK2;
DRAWTEXTABS(20,55,"■ 大单卖出: "+大单卖出),Color00FF00,LINETHICK2;
DRAWTEXTABS(20,70,"■ 小单卖出: "+小单卖出),ColorB4B043,LINETHICK2;
DRAWTEXTABS(20,85,"■ 大单净量: "+大单净量),Color00FFFF,LINETHICK2;
DRAWTEXTABS(20,100,"■大单买均价: "+大单买均价),ColorFFFFFF,LINETHICK2;
DRAWTEXTABS(20,115,"■大单卖均价: "+大单卖均价),COLORccff00,LINETHICK2;
DRAWTEXTABS(230,25,"∑ 总成交手数: "+DYNAINFO(8)),ColorFFFFFF,LINETHICK2;
DRAWTEXTABS(230,40,"总成交笔数(深): "+DYNAINFO(52)),Color00FFFF,LINETHICK2;
DRAWTEXTABS(230,55,"每笔成交手(深): "+DYNAINFO(53)),LINETHICK2;
DRAWTEXTABS(230,70,"总成交笔数(沪): "+成交笔数*3),Color00FF00,LINETHICK2;
DRAWTEXTABS(230,85,"每笔成交手(沪): "+INTPART((主动买入+主动卖出)/成交笔数/3)),LINETHICK2;
DRAWTEXTABS(230,100,"收盘价获利比例: "+WINNER(c )*100+" %"),Color2F73FF,LINETHICK2;
DRAWTEXTABS(230,115," 委比: "+DYNAINFO(15)*100+" %"),Color8000FF,LINETHICK2;
DRAWTEXTABS(430,25,"人均大约持股: "+INTPART(FINANCE2(36)/extradata("散户线")*10000)),COLORred,LINETHICK2;
DRAWTEXTABS(430,40,"大约持股比例: "+INTPART(FINANCE2(36)/extradata("散户线")*10000)/FINANCE2(36)+" %"),Color8000FF,LINETHICK2;
DRAWTEXTABS(430,55," 主力持仓量: "+INTPART(主力持仓量)),Color2F73FF,LINETHICK2;
DRAWTEXTABS(430,70,"主力持仓比例: "+比例+" %"),Color00FF00,LINETHICK2;
DRAWTEXTABS(430,85,"散户跟风系数: "+FLOOR((小单买入-小单卖出)/DYNAINFO(8)*100)+" %"),Color00FFFF,LINETHICK2;
DRAWTEXTABS(430,100,"本日增减仓量: "+INTPART(sum(BUYVOL,0)-sum(SELLVOL,0))),COLORccff00,LINETHICK2;
DRAWTEXTABS(430,115," 买卖意愿: "+(sum(BUYVOL,0)-sum(SELLVOL,0))/DYNAINFO(8)*100+" %"),COLORred,LINETHICK2;
DRAWTEXTABS(160,25," 占"+FLOOR(大单买入/(主动买入+主动卖出)*100)+"%"),Color8000FF,LINETHICK2;
DRAWTEXTABS(160,40," 占"+FLOOR(小单买入/(主动买入+主动卖出)*100)+" %"),Color2F73FF,LINETHICK2;
DRAWTEXTABS(160,55," 占"+FLOOR(大单卖出/(主动买入+主动卖出)*100)+" %"),Color00FF00,LINETHICK2;
DRAWTEXTABS(160,70," 占"+FLOOR(小单卖出/(主动买入+主动卖出)*100)+" %"),ColorA8A800,LINETHICK2;
DRAWTEXTABS(160,85," 占"+FLOOR(大单净量/(主动买入+主动卖出)*100)+" %"),Color00FFFF,LINETHICK2;
DRAWTEXTABS(20,127,"☆ 机构评级:"+Extrastring("评级")),COLORred,LINETHICK2;STICKLINE((DYNAINFO(8) AND DISPSTATUS=2),0,DYNAINFO(8),60,1),COLORFFFFFF;
DRAWTEXTABS(20,141,"■五日增减仓: "+INTPART(sum(当日主力买入量,5))),COLORccff00,LINETHICK2;
DRAWTEXTABS(230,141,"■十日增减仓: "+INTPART(sum(当日主力买入量,10))),COLORccff00,LINETHICK2;
STICKLINE((大单买入+大单卖出+小单买入+小单卖出 AND DISPSTATUS=2),0,DYNAINFO(8),60,0),Color8000FF;
STICKLINE((大单卖出+小单买入+小单卖出 AND DISPSTATUS=2),0,大单卖出+小单买入+小单卖出,60,0),Color2F73FF;
STICKLINE((小单卖出+大单卖出 AND BARSTATUS=2),0,小单卖出+大单卖出,60,0),Color00FF00;
STICKLINE((小单卖出 AND BARSTATUS=2),0,小单卖出,60,0),ColorB4B043;