老班长

源码在2楼，不会使用源码的直接下载1楼附件导入！此源码适用于大智慧1.

老班长

{新龙虎看盘原码}

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;

{散户跟风系数

1. 散户跟风：（小买单-小卖单）／总手×100；

2. 散户跟风，在60以上并且股票上涨，这是散户行情；

3. 散户跟风，在30以下并且股票上涨，这是主力拉抬的结果，说明抛压性的卖单不 多；

4. 散户跟风，在负的30以下并且股价下跌，可能是是主力故意打压或者出伙；

5. 散户跟风，在负的60以上并且股价下跌，则为散户抛售。

成交笔数分析要点如下：
（１）在股价高档时，成交笔数较大，且股价下跌，为卖出时机。
（２）在股价低档时，成交笔数放大，且股介上升，为买入时机。
（３）在股价高档时，成交笔数放大，且股价上升，仍有一段上升波段。
（４）在股价低档时，成交笔缩小，表即将反转，为介入时机。
（５）成交笔数分析较不适用于短线操作。

成交手数:
    就是每笔交易的平均成交量/手数，它是用来测知大户是否进场买卖股票的有效方法，
从每笔手数的变动情形可以分析股价行情的短期变化。
1.每笔手数增大表示有大额的买卖，每笔手数减小表示参加买卖的多是小额散户。
2.在下跌行情中，每笔手数逐渐增大，显示有大户买进，股价可能于近日止跌。
3.在上涨行情中，每笔手数逐渐增大，显示有大户出货股价可能于近日止涨下跌。
4.在上涨或下跌行情中，每笔手数没有显著的变化，表示行情仍将继续一段时期。
5.在一段大行情的终了，进入盘局时，每笔手数很小且无大变化，则表示大户正在观望。

主力持仓量

　　股价的涨跌，在一定程度上是由该股筹码的分布状况以及介入资金量的大小决定的。
那么，如何估算主力持仓数量呢？笔者总结有以下三种方法：
　　1、通过实战的摸索，在判断主力持仓量上可通过即时成交的内外盘统计进行测算，
公式一：当日主力买入量＝(外盘×1/2＋内盘×1/10)÷2，然后将若干天进行累加。

根据笔者经验，至少换手率达到100%以上才可以停止追踪。所取时间一般以60至120个交易日为宜。
因为一个波段主力的建仓周期通常在55天左右。该公式需要投资者每日对目标个股不厌其烦地统计
分析，这样误差率较小。
　　2、将底部周期内每天的成交量乘以经验参数，即可大致估算出主力的持仓量。
公式二：主力持仓量＝阶段总成交量(参照公式一条件)×（经验估值1/3或1/4)，
为谨慎起见，可以确认较低持仓量，即用1/4的结果。
   3.持仓比例：本计算周期主力持仓量 /流通盘.}

陪你听风

呵呵，没用过，试一下

益逢

:P

c8988728

能不能更成 通达信 可用的？

poseiodn

使用中 谢谢

zenghehai

/:012

yzlong

好东西 /:018

dldanran

很不错滴说 我先试试

mihu

谢谢提供 /:015