主动性买卖量（公式）
参数N=20
Var1:=AMOUNT/VOL/100;
Var2:=REF(ASKPRICE(1),1);
Var3:=REF(BIDPRICE(1),1);
Var4:=(Var2-Var3)*0.35;
Var5:=IF(Var1>=Var2-Var4,VOL,IF(Var1<Var2-Var4 AND Var1>Var3+Var4,BUYVOL,0));
Var6:=IF(Var1<=Var3+Var4,VOL,IF(Var1<Var2-Var4 AND Var1>Var3+Var4,SELLVOL,0));
J: SUM(Var5,0);
大单买量:SUM(IF(AMOUNT>=50000,Var5,0),0);
小单买量:SUM(IF(AMOUNT<50000,Var5,0),0);
T: SUM(Var6,0);
大单卖量:SUM(IF(AMOUNT>=50000,Var6,0),0);
小单卖量:SUM(IF(AMOUNT<50000,Var6,0),0);
小单买卖和:大单买量+大单卖量;
大单买卖和:小单买量+小单卖量;
Var2;
P: Var1;
Var3;
VOL, VOLSTICK;
U: EMA(J-T,3);
Var7:=BARSLAST(CLOSE>REF(CLOSE,1));
Var8:=BARSLAST(CLOSE<REF(CLOSE,1));
Var9:=SUM(IF(REF(CLOSE,Var7)<=CLOSE,VOL,0),0);
VarA:=SUM(IF(REF(CLOSE,Var8)>=CLOSE,VOL,0),0);
U1: EMA(Var9-VarA,3);
主力持筹（用于将分笔数据提取后在日线上显示出来）
主动性大买量:SELFDATA('大买量' ),stick;
主动性大卖量:SELFDATA('大卖量' ),stick;
大单买卖差:主动性大买量-主动性大卖量,stick,colorred;
主力仓量:sum(主动性大买量-主动性大卖量,0);
三天前主力仓量:ref(主力仓量,3),POINTDOT,colorblack;
五天前主力仓量:ref(主力仓量,5),POINTDOT,colorblue;
主力三天增减量:主力仓量-三天前主力仓量,COLORBROWN,POINTDOT;
主力五天增减量:主力仓量-五天前主力仓量,COLORBLUE,POINTDOT;
十天前主力量:ref(主力仓量,10),stick,coloryellow;
二十天前主力量:ref(主力仓量,20),stick,coloryellow;
主力二十增减量:主力仓量-二十天前主力量,COLORYELLOW,POINTDOT;
Var9:=主力仓量;
Var10:十天前主力量;
主力十天增减:Var9-Var10,COLORBROWN,stick;
MA(主力仓量,5),colorblack,pointdot;
MA(主力仓量,10),colorblue,pointdot;
MA(主力仓量,30),colorred;
怎么用呢？，开讲了：
在“自定义数据”中建立两个数据
1。起名为“大买量” ，属性选“股票相关序列”把‘指标“点上沟，然后指向公式”主动性买卖量“中的”大单买量“然后OK，该数据设定完了
2，起名为“大卖量” ，属性选“股票相关序列”把‘指标“点上沟，然后指向公式”主动性买卖量“中的”大单卖量“然后OK，该数据设定完了
上面两个数据设定完后，即可用分析家的分笔数据算这两个数据了，现存30天的即可了，否则数据量太大，这两个数据算一遍要一个多钟头（以后不用这么久了，只保留每天的分笔即可，其他天的剪切到别的目录下，这样每天收盘后只用两三分钟即可了）
算完数据后，将”主力持筹“公式引入到个股的副图中，既可看到主力当天增减仓，三天增减仓，五天增减仓，二十天增减仓的具体数值了，主力增减仓一目了然
分笔数据越详尽越好（即每分钟达到20笔以上为最好，那样服务器发来的并笔现象就少，数据就越有参考价值，现在大智慧L2的数据就有极高的参考价值，最高的数据可达到一只股的交易一天4600笔（240分钟）），可供大家参考，下面是000001的效果图：
QUOTE:
原帖由 pcx123 于 2006-12-14 17:12 发表
请教依然大哥，如若把分笔数据进行更小的细分，比如按成交金额分20、30、50、70、90、110细分算出，然后根据当天的每笔金额乘上一个经验系数来加权累加，这种想法是否可行？
仔细看我的公式，已默认50000元或以上的成交为大单，小于5万元的为小单，你自己可以改，但公认5万元为一个分界线，然后根据当天的每笔金额乘上一个经验系数来加权累加，这种想法是否可行？——没试过，还是客观数据好
--> 给依然传的公式增加解盘文字,把这个复制后粘贴到主力持筹公式的后面EXPLAINEX(1,'主力仓量: ',主力仓量,2,0),COLOR0000ff;
EXPLAINEX(1,'三天前主力仓量: ',三天前主力仓量,2,0),COLOR0000ff;
EXPLAINEX(1,'五天前主力仓量: ',五天前主力仓量,2,0),COLOR0000ff;
EXPLAINEX(1,'十天前主力量: ',十天前主力量,2,0),COLOR0000ff;
EXPLAINEX(1,'二十天前主力量: ',二十天前主力量,2,0),COLOR0000ff;
EXPLAINEX(1,'主力三天增减量: ',主力三天增减量,2,0),COLOR0000ff;
EXPLAINEX(1,'主力五天增减量: ',主力五天增减量,2,0),COLOR0000ff;
EXPLAINEX(1,'主力十天增减: ',主力十天增减,2,0),COLOR0000ff;
EXPLAINEX(1,'主力二十增减量: ',主力二十增减量,2,0),COLOR0000ff;
再请教，以下步骤对否？
1、从本网站上下到分笔数据，比如（20061130.PRP），把它拷贝到dzh2(我用的是传统行情版)的data\sh或data\sz目录下。
２、点“工具”－》“自定义数据管理”－》“新建”－》起名为“大买量” ，属性选“股票相关序列”把‘指标“点上勾，点“指标”，找到指标“主动性买卖量“，分析周期选择“分笔成交”，指标线选择”大单买量”。之后刷新数据。
3、再用“主力持筹”看结果。
--> 看到这么多人不会搞主力持筹数据，现决定将所有数据上传，两年的数据，并且是采用大智慧L2的高速行情数据（数据较其它数据源都要详尽得多）采集的，极具参考价值（尤其是近两个月的数据更准确——采用L2数据所致），全部通用于大智慧L2，分析家6.0,分析家5.0，飞狐4.5，飞狐4.9,下载后从自定义数据中用覆盖方式引入，覆盖大买量，大卖量，共9个包。
http://bbs./viewthread.php?tid=1011399&extra=page%3D1&page=101
非常感谢老大的分笔数据数据.我把您给的公式分解了一下可能容易看一些主力增减量.
1.主力增减量:
大买:=SELFDATA('大买量' ),stick;
大卖:=SELFDATA('大卖量' ),stick;
买卖差:=大买-大卖,stick,colorwhite;
仓量:=sum(大买-大卖,0);
Var9:=仓量;
三天前仓:=ref(仓量,3) ;
五天前仓:=ref(仓量,5) colorblue;
三天增减量:仓量-三天前仓,COLORcyan;
五天增减量:仓量-五天前仓,COLORBLUE;
十天前量:=ref(仓量,10),stick,coloryellow;
Var10:=十天前量;
二十天前量:=ref(仓量,20),stick,;
十天增减:Var9-Var10 coloryellow;
二十增减量:仓量-二十天前量 colorgray;
2.主力仓量:
大买:=SELFDATA('大买量' );
大卖:=SELFDATA('大卖量' );
买卖差
大买-大卖),colorstick;
仓量:sum(大买-大卖,0),stick,;
三天前仓:ref(仓量,3) colorwhite;
五天前仓:ref(仓量,5) colorblue;
十天前量:ref(仓量,10) coloryellow;
二十天前量:ref(仓量,20) colorgray;
3.平均仓量:
大买:=SELFDATA('大买量' ),stick;
大卖:=SELFDATA('大卖量' ),stick;
买卖差:=大买-大卖,stick,colorwhite;
仓量:=sum(大买-大卖,0);
ma5:MA(仓量,5);
ma10:MA(仓量,10),colorblue;
ma30:MA(仓量,30);
ma50:MA(仓量,50),CIRCLEDOT;
drawtext(ma(仓量,50)>ref(ma(仓量,50),1),ma(仓量,50),'o')
更新一下成交笔数处理的小程序，现在可以自动下载全景网文件（不保留），直接产生BS.TXT文件
程序用法很简单，双击运行一下就可以了，不用自己去下载文件了
程序会简单分析一下当前时间和日期，如果是晚8点之前运行，则下载的是前一天的数据，如果是8点之后，处理的是当天的数据，请确保你的机器时间正确！
如果你想补充某天的数据，请在dos窗口运行程序，后面跟20061216形式的日期参数，如果服务器上还有那一天数据的话，就会自动生成BS文件了。
另外，程序会删除原来的BS.txt文件，再次运行程序前，请自行拷贝保留或改名BS.txt文件。
http://bbs./viewthread.php?tid=1011399&extra=page%3D1&page=102
你：（分析家，大智慧L2通用）
平均仓量
大买:SELFDATA('大买量' ),stick;
大卖:SELFDATA('大卖量' ),stick;
买卖差:大买-大卖,stick,colorred;
仓量:=sum(大买-大卖,0);
ma5:MA(仓量,5);
ma10:MA(仓量,10),colorblue;
ma30:MA(仓量,30);
ma50:MA(仓量,50),CIRCLEDOT;
drawtext(ma(仓量,50)>ref(ma(仓量,50),1),ma(仓量,50),'o');
综合老师的原始指标和vrvr23的修改版，根据自己的理解和需要改了个，看看大家喜不喜欢 ^_^
公式是飞狐的，不知道分析家能不能用，源码如下：
大买:=SELFDATA('大买量');
大卖:=SELFDATA('大卖量');
当日增减大买-大卖),LINETHICK0;
仓量:sum(大买-大卖,0),stick,COLORGRAY;
三天前仓:=ref(仓量,3);
五天前仓:=ref(仓量,5);
十天前仓:=ref(仓量,10);
廿天前仓:=ref(仓量,20);
三天增减:仓量-三天前仓,LINETHICK0;
五天增减:仓量-五天前仓,LINETHICK0;
十天增减:仓量-十天前仓,LINETHICK0;
廿天增减:仓量-廿天前仓,LINETHICK0;
廿天图1:FILLRGN(廿天增减<0,廿天增减,0),colorffff00;
廿天图2:FILLRGN(廿天增减>0,廿天增减,0),color00ffff;
廿天图3:仓量-廿天前仓,COLORWHITE;
十天图1:FILLRGN(十天增减<0,十天增减,0),colorffaa00;
十天图2:FILLRGN(十天增减>0,十天增减,0),color00aaff;
十天图3:仓量-十天前仓,COLORWHITE;
五天图1:FILLRGN(五天增减<0,五天增减,0),colorff5500;
五天图2:FILLRGN(五天增减>0,五天增减,0),color0055ff;
五天图3:仓量-五天前仓,COLORWHITE;
三天图1:FILLRGN(三天增减<0,三天增减,0),colorff0000;
三天图2:FILLRGN(三天增减>0,三天增减,0),color003399;
三天图3:仓量-三天前仓,COLORWHITE;
当日图1:STICKLINE(当日增减>0,当日增减,0,6,0),COLOR0000ff;
当日图2:STICKLINE(当日增减<0,当日增减,0,6,0),color00ff00;
ma5:MA(仓量,5),colorred;
ma10:MA(仓量,10),COLORGRAY;
ma30:MA(仓量,30),colorgreen;
ma50:MA(仓量,50),CIRCLEDOT,COLORMAGENTA;
drawtext(ma(仓量,50)>ref(ma(仓量,50),1),ma(仓量,50),'o'),COLORBLUE;
QUOTE:
原帖由 Surreal 于 2006-12-16 20:25 发表
这个修改版强调了主力在不同时间段的筹码增减量，我觉得这个很重要，不知是不是这样。老师可以讲讲吗
对了，源码中的笑脸是冒号和左括号
很好啊，发挥得很不错。强调筹码在不同时间段的筹码增减量，思路极好，谢谢你的好公式
利多方舟
if DISPSTATUS=2 then aaa:=BARPOS;
if DISPSTATUS=1 then bbb:=BARPOS;
ddd:=aaa-bbb;
if DISPSTATUS=2 then aaa:=BARPOS;
if DISPSTATUS=1 then bbb:=BARPOS;
ddd:=aaa-bbb;
hh:=hhv(h,ddd);;
ll:=llv(l,ddd);
e:=(hh-ll)/100;
DRAWTEXT(BARSTATUS=2,hh-3*e,STKLABEL+' '+STKNAME+' '),Colorred,align2;
换手率:=100*v/capital;
RH:=H-L;
R:=DYNAINFO(13)*100;
DRAWTEXT(BARSTATUS=2,hh-3*e,'当日振幅:'+NUMTOSTRN(R,2)+'% '+NUMTOSTRN(RH,2)+'元 '+' 当前换手率:'+NUMTOSTRN(换手率,2)+'% '+' '),Colorblue,align2;
DRAWTEXT(BARSTATUS=2,hh-11*e,' 机构评级:'+selfstring('评级')+' '),colorred,align2;
年:MA(CLOSE,26),colorred,linethick2;
反压线:HHV(FORCAST(C,10),18),coloree8fff,linethick1;
M5:MA(C,5),ColorFFFfff,linethick1;
M10:MA(C,10),Color00Ffff,linethick1;
M60:MA(C,60),Color208fff,linethick1;
M90:MA(C,90),Color00ff00,linethick0;
M125:MA(C,125),Color00Ffff,linethick0;
M250:MA(C,250),Color00ff00,linethick0;
指导线: EMA((EMA(C,4)+EMA(C,6)+EMA(C,12)+EMA(C,24))/4,2),linethick0,ColorFFffFF;界: MA(CLOSE,21),linethick0,Color00FFFF;
上限: 界+3*STD(C,20),linethick0,Color00FFFF;
卖: 界+2*STD(C,20),linethick0,ColorFF00FF;
买: 界-2*STD(C,20),linethick0,ColorF0FF00;
下限: 界-2.9*STD(close,20),linethick0,Color00FF00;
DRAWTEXT(((c>界 and 指导线>界 and cross(界,l))),l,'▲'),Color0000ff,ALIGN1,VALIGN0;
DRAWTEXT(((c>界 and 指导线>界 and cross(界,l))),l*0.997,'↑'),Color0000ff,ALIGN1,VALIGN0;
DRAWTEXT(((c>界 and 指导线>界 and cross(指导线,界))),l,'买点'),ALIGN1,VALIGN0,Color00578C;
DRAWTEXT(((c>界 and 指导线>界 and cross(指导线,界))),l,'⊕'),ALIGN1,VALIGN0,Colorffffff;
DRAWICON(cross(H,上限),h,10),ALIGN1,VALIGN2;
DRAWICON(cross(上限,H),h,9),ALIGN1,VALIGN2;
DRAWTEXT(h>上限 and cross(h,上限),h,'●'),ALIGN1,VALIGN2,Color0000ff;
DRAWTEXT(cross(H,上限),H,'＿'),linethick2,ALIGN1,VALIGN2,Color00ffff;
DRAWTEXT(h>卖 and cross(上限,H),h,'▼'),ALIGN1,VALIGN2,Color00ff00;
DRAWTEXT(cross(上限,H),H,'＿'),linethick2,ALIGN1,VALIGN2,Colorff00ff;
DRAWTEXT(cross(下限,L),l,'限'),ALIGN1,VALIGN0,Color00ff00;
DRAWTEXT(cross(下限,L),l,'￣'),ALIGN1,VALIGN0,Color00ff00;
DRAWTEXT(cross(买,L),l,'△'),ALIGN1,VALIGN0,ColorFFFFFF;
DRAWTEXT(cross(买,L),l,'￣'),ALIGN1,VALIGN0,ColorFFFFFF;
DRAWTEXT(cross(买,C),L,'▲'),ALIGN1,VALIGN0,Colorffff00;
DRAWTEXT(cross(买,C),L,'￣'),ALIGN1,VALIGN0,Colorffff00;
STICKLINE(C>=年 AND C>=O,C,O,7,0),COLORRED;
STICKLINE(C>=年 AND C>=O,H,L,0,0),COLORRED;
STICKLINE(C>=年 AND C<O,C,O,7,1),COLORRED;
STICKLINE(C>=年 AND C<O,O,H,0,0),COLORRED;
STICKLINE(C>=年 AND C<O,C,L,0,0),COLORRED;
STICKLINE(C<年 AND C>O,C,O,7,1),COLORffff00;
STICKLINE(C<年 AND C<=O,C,O,7,1),COLORffff00;
STICKLINE(C<年 AND C<=O,H,L,0,1),COLORffff00;
STICKLINE(C<年 AND C>O,C,H,0,1),COLORffff00;
STICKLINE(C<年 AND C>O,O,L,0,1),COLORffff00;
gj:=if(c=INDEXC,(INDEXC+INDEXh+INDEXl+INDEXO)/4,AMOUNT/(v+0.01)/100);
明日阻力:=l+(gj-l)+(c-l);
明日支撑:=l+(c-gj);
今日阻力:=REF(明日阻力 , 1);
今日支撑:=REF(明日支撑 , 1);
STICKLINE(BARSTATUS=2 and c>=今日阻力,今日阻力,今日阻力,30,0),Color0000FF;
STICKLINE(BARSTATUS=2 and c<今日阻力,今日阻力,今日阻力,30,0),Color00FF00;
STICKLINE(BARSTATUS=2 and c>=今日支撑,今日支撑,今日支撑,30,0),ColorFF00FF;
STICKLINE(BARSTATUS=2 and c<今日支撑,今日支撑,今日支撑,30,0),ColorFF8800;
DRAWTEXT(BARSTATUS=2 ,hh,'---------------------------------- '),ColorFFFFFF,align2;
DRAWTEXT(BARSTATUS=2 and c>=今日支撑,hh-3*e,' 今日支撑=：'+NUMTOSTRN(今日支撑 ,2 )+' '),ColorFF00FF,align2;
DRAWTEXT(BARSTATUS=2 and c<今日支撑,hh-3*e,' 今日支撑=：'+NUMTOSTRN(今日支撑 ,2 )+' '),ColorFF8800,align2;
DRAWTEXT(BARSTATUS=2 and c>=今日阻力,hh-7*e,' 今日阻力=：'+NUMTOSTRN(今日阻力 ,2 )+' '),Color0000FF,align2;
DRAWTEXT(BARSTATUS=2 and c<今日阻力,hh-7*e,' 今日阻力=：'+NUMTOSTRN(今日阻力 ,2 )+' '),Color00FF00,align2;
DRAWTEXT(BARSTATUS=2 ,hh-3*e,' 明日阻力=：'+NUMTOSTRN(明日阻力 ,2 )+' '),Colorblue,align2;
DRAWTEXT(BARSTATUS=2 ,hh-7*e,' 明日支撑=：'+NUMTOSTRN(明日支撑 ,2 )+' '),Colorblue,align2;
DRAWTEXT(BARSTATUS=2 ,hh-10*e,'---------------------------------- '),ColorFFFFFF,align2;
DRAWTEXT(BARSTATUS=2 and v>ref(v,1) and ma(v,5)>ref(ma(v,5),1),hh-13*e,'今日成交量大于昨日,且有继续增大趋势'+' '),Color8285FF,align2;
DRAWTEXT(BARSTATUS=2 and v<ref(v,1) and ma(v,5)>ref(ma(v,5),1),hh-13*e,'今日成交量小于昨日，但有放大迹象'+' '),Color8285FF,align2;
DRAWTEXT(BARSTATUS=2 and v>ref(v,1)and ma(v,5)<ref(ma(v,5),1),hh-13*e,'今日成交量大于昨日, 但有缩小迹象'+' '),Color8285FF,align2;
DRAWTEXT(BARSTATUS=2 and v<ref(v,1)and ma(v,5)<ref(ma(v,5),1),hh-13*e,'今日成交量小于昨日，且有缩小迹象'+' '),Color8285FF,align2;
if DISPSTATUS=2 then begin;
var100:='所属板块:';
if inblock('电力')=1 then var100:=var100+' 电力';
if inblock('电脑')=1 then var100:=var100+' 电脑';
if inblock('电器')=1 then var100:=var100+' 电器';
if inblock('电子信息')=1 then var100:=var100+' 电子信息';
if inblock('房地产')=1 then var100:=var100+' 房地产';
if inblock('纺织服装')=1 then var100:=var100+' 纺织服装';
if inblock('钢铁')=1 then var100:=var100+' 钢铁';
if inblock('工程建筑')=1 then var100:=var100+' 工程建筑';
if inblock('供水供气')=1 then var100:=var100+' 供水供气';
if inblock('化工')=1 then var100:=var100+' 化工';
if inblock('化纤')=1 then var100:=var100+' 化纤';
if inblock('机械')=1 then var100:=var100+' 机械';
if inblock('建材')=1 then var100:=var100+' 建材';
if inblock('交通工具')=1 then var100:=var100+' 交通工具';
if inblock('交通设施')=1 then var100:=var100+' 交通设施';
if inblock('教育传媒')=1 then var100:=var100+' 教育传媒';
if inblock('金融')=1 then var100:=var100+' 金融';
if inblock('旅游酒店')=1 then var100:=var100+' 旅游酒店';
if inblock('煤炭石油')=1 then var100:=var100+' 煤炭石油';
if inblock('酿酒食品')=1 then var100:=var100+' 酿酒食品';
if inblock('农林牧渔')=1 then var100:=var100+' 农林牧渔';
if inblock('其他行业')=1 then var100:=var100+' 其他行业';
if inblock('汽车')=1 then var100:=var100+' 汽车';
if inblock('汽配')=1 then var100:=var100+' 汽配';
if inblock('商业连锁')=1 then var100:=var100+' 商业连锁';
if inblock('石化')=1 then var100:=var100+' 石化';
if inblock('通信')=1 then var100:=var100+' 通信';
if inblock('外贸')=1 then var100:=var100+' 外贸';
if inblock('医药')=1 then var100:=var100+' 医药';
if inblock('仪电仪表')=1 then var100:=var100+' 仪电仪表';
if inblock('有色金属')=1 then var100:=var100+' 有色金属';
if inblock('运输物流')=1 then var100:=var100+' 运输物流';
if inblock('造纸印刷')=1 then var100:=var100+' 造纸印刷';
if inblock('安徽')=1 then var100:=var100+' 安徽';
if inblock('北京')=1 then var100:=var100+' 北京';
if inblock('福建')=1 then var100:=var100+' 福建';
if inblock('甘肃')=1 then var100:=var100+' 甘肃';
if inblock('广东')=1 then var100:=var100+' 广东';
if inblock('广西')=1 then var100:=var100+' 广西';
if inblock('贵州')=1 then var100:=var100+' 贵州';
if inblock('海南')=1 then var100:=var100+' 海南';
if inblock('河北')=1 then var100:=var100+' 河北';
if inblock('河南')=1 then var100:=var100+' 河南';
if inblock('黑龙江')=1 then var100:=var100+' 黑龙江';
if inblock('湖北')=1 then var100:=var100+' 湖北';
if inblock('湖南')=1 then var100:=var100+' 湖南';
if inblock('吉林')=1 then var100:=var100+' 吉林';
if inblock('江苏')=1 then var100:=var100+' 江苏';
if inblock('江西')=1 then var100:=var100+' 江西';
if inblock('辽宁')=1 then var100:=var100+' 辽宁';
if inblock('内蒙古')=1 then var100:=var100+' 内蒙古';
if inblock('宁夏')=1 then var100:=var100+' 宁夏';
if inblock('青海')=1 then var100:=var100+' 青海';
if inblock('山东')=1 then var100:=var100+' 山东';
if inblock('山西')=1 then var100:=var100+' 山西';
if inblock('陕西')=1 then var100:=var100+' 陕西';
if inblock('上海')=1 then var100:=var100+' 上海';
if inblock('深圳')=1 then var100:=var100+' 深圳';
if inblock('四川')=1 then var100:=var100+' 四川';
if inblock('天津')=1 then var100:=var100+' 天津';
if inblock('***')=1 then var100:=var100+' ***';
if inblock('新疆')=1 then var100:=var100+' 新疆';
if inblock('云南')=1 then var100:=var100+' 云南';
if inblock('浙江')=1 then var100:=var100+' 浙江';
if inblock('重庆')=1 then var100:=var100+' 重庆';
if inblock('3G')=1 then var100:=var100+' 3G';
if inblock('H股')=1 then var100:=var100+' H股';
if inblock('QFII持股')=1 then var100:=var100+' QFII持股';
if inblock('ST')=1 then var100:=var100+' ST';
if inblock('奥运')=1 then var100:=var100+' 奥运';
if inblock('创投')=1 then var100:=var100+' 创投';
if inblock('次新股')=1 then var100:=var100+' 次新股';
if inblock('大盘')=1 then var100:=var100+' 大盘';
if inblock('股权改革')=1 then var100:=var100+' 股权改革';
if inblock('股权投资')=1 then var100:=var100+' 股权投资';
end;
DRAWTEXT(BARSTATUS=2,hh-15*e,var100+' '),COLORblue,align2;
DD:=FINANCE( 1);
SS:=FINANCE( 7);
FF:=FINANCE(18);
GG:=FINANCE(33);
zz:=FINANCE(53);
JJ:=FINANCE(40);
MM:=JJ/SS;
TH:=DYNAINFO(39);
DRAWTEXT(BARSTATUS=2,hh-7*e,'总股本:'+NUMTOSTRN(DD,0)+'万股' +' 流通A股:'+NUMTOSTRN(SS,0)+'万股'+' 市盈率:'+NUMTOSTRN(HH,2)+'%'+' 每股收益:'+NUMTOSTRN(GG,3)+' '),COLORblue,align2;
DRAWTEXT(BARSTATUS=2,hh-19*e,' 2006基金一季持股:'+SELFDATA('2006基金一季持股')+' 2006基金二季持股:'+SELFDATA('基金2006二季持股明细')+' 2006中期户均持股数:'+SELFDATA('2006中期户均持股数')+' '),colorred,align2;
DRAWTEXT(BARSTATUS=2,hh-24*e,' 2006基金一季持股增减量:'+SELFDATA('2006基金一季持股增减量')+' 基金2006二季持股比率明细:'+SELFDATA('基金2006二季持股比率明细')+' 2006中期户均持股变动率:'+SELFDATA('2006中期户均持股变动率')+' '),colorred,align2;
DRAWTEXT(BARSTATUS=2,hh-29*e,' 2006基金一季持股比例:'+SELFDATA('2006基金一季持股比例')+' QFII2006二季度持股量:'+SELFDATA('QFII2006二季度持股量')+' '),colorred,align2;
DRAWTEXT(BARSTATUS=2,hh-34*e,' 盘口主力日增减:'+SELFDATA('盘口主力日增减量')+' '),colorred,align2;
DRAWTEXT(BARSTATUS=2,hh-39*e,' 龙虎榜主力三日增减:'+SELFDATA('龙虎榜主力三日增减')+' '),colorred,align2;
DRAWTEXT(BARSTATUS=2,hh-44*e,' 龙虎榜主力五日增减:'+SELFDATA('龙虎榜主力五日增减')+' '),colorred,align2;
DRAWTEXT(BARSTATUS=2,hh-49*e,' 龙虎榜主力十日增减:'+SELFDATA('龙虎榜主力十日增减')+' '),colorred,align2;
DRAWTEXT(BARSTATUS=2,hh-54*e,' 龙虎榜主力二十日增减:'+SELFDATA('龙虎榜主力二十日增减')+' '),colorred,align2;
DRAWTEXT(BARSTATUS=2,hh-59*e,' RSP(125天):'+SELFDATA('RSP(125天)')+' 主力持仓成本(60天):'+SELFDATA('主力持仓成本(60天)')+' '),colorred,align2;
DRAWTEXT(BARSTATUS=2,hh-64*e,' 2006一季户均持股:'+SELFDATA('2006一季户均持股')+' '),colorred,align2;
DRAWTEXT(BARSTATUS=2,hh-69*e,' 2006一季户均持股增幅:'+SELFDATA('2006一季户均持股增幅')+' 主力上上周增仓率精算:'+SELFDATA('主力上上周增仓率精算')+' '),colorred,align2;
DRAWTEXT(BARSTATUS=2,hh-74*e,' 主力均额五天增幅:'+SELFDATA('主力均额五天增幅')+' 主力总增仓占流通率精算:'+SELFDATA('主力总增仓占流通率精算')+' 主力上周增仓率精算:'+SELFDATA('主力上周增仓率精算')+' '),colorred,align2;
DRAWTEXT(BARSTATUS=2,hh-79*e,' 主力均额十天增幅:'+SELFDATA('主力均额十天增幅')+' 主力上上周增仓率:'+SELFDATA('主力上上周增仓率')+' '),colorred,align2;
DRAWTEXT(BARSTATUS=2,hh-84*e,' 主力均额二十天增幅:'+SELFDATA('主力均额二十天增幅')+' 05主力持股率:'+SELFDATA('05主力持股率')+' 主力总增仓占流通率:'+SELFDATA('主力总增仓占流通率')+' 主力上周增仓率:'+SELFDATA('主力上周增仓率')+' '),colorred,align2;
DRAWTEXT(BARSTATUS=2,hh-89*e,' 2006三季户均持股变动率:'+SELFDATA('2006三季户均持股变动率')+' 2006三季基金持股率:'+SELFDATA('2006三季基金持股率')+' '),colorred,align2;
DRAWTEXT(BARSTATUS=2,hh-94*e,' 2006基金三季持股:'+SELFDATA('2006基金三季持股数')+' 2006三季户均持股:'+SELFDATA('2006三季户均持股')+' 未来12个月股票收益率:'+ SELFDATA('未来12个月股票收益率')+' '),colorred,align2;
DRAWTEXT(BARSTATUS=2,hh-99*e,' 主力第四周成交比率:'+SELFDATA('主力第四周成交比率')+' 主力第四周成交增幅:'+SELFDATA('主力第四周成交增幅')+' 价值评估体系排序定位:'+SELFDATA('价值评估体系排序定位')+' '),colorred,align2;
以上公式见34页669楼
主图代码在飞狐中通不过,这样稍微改一改才行
{五日换手和}
换手率:=VOL/FINANCE(7),VOLSTICK;
换手率和:=SUM(换手率,5);
{解盘}
drawtext(barpos=sysparam(2),h,
' '+blkname{板块}
+'\n 流通 '+NUMTOSTR(FINANCE(7),0)+'万 '{资料}
+'每股收益 '+NUMTOSTR(FINANCE(33),2)+'元 '{资料}
+'净资收益率 '+NUMTOSTR(FINANCE(37),2)+'％ '{资料}
+'主营增长 '+NUMTOSTR(FINANCE(53),2)+'％ '{资料}
+'利润增长 '+NUMTOSTR(FINANCE(54),0)+'％'{资料}
+'\n 当天增减 '+NUMTOSTR("主力持筹.当天增减",0)+' '{主力动态}
+'主力仓量 '+NUMTOSTR("主力持筹.主力仓量",0)+' '
+'获利盘 '+NUMTOSTR(winner(c)*100,0)+'％ '
+'五天换手 '+NUMTOSTR(换手率和,0)+'％ '{五日换手}
+'\n 三天增减 '+NUMTOSTR("主力持筹.三天增减",0)+' '{主力动态}
+'\n 五天增减 '+NUMTOSTR("主力持筹.五天增减",0)+' '{主力动态}
+'\n 十天增减 '+NUMTOSTR("主力持筹.十天增减",0)+' '{主力动态}
+'\n 廿天增减 '+NUMTOSTR("主力持筹.廿天增减",0)+' '{主力动态}
),ALIGN4,COLORCYAN;
先建立一个公式:
主力持仓率:SELFDATA('持仓率');
基金持股数:SELFDATA('持股数')/1000;
基金持股率:SELFDATA('持股率');
上周增仓率:SELFDATA('上周增仓');
三周增仓率:SELFDATA('三周增仓');
EXPLAINEX(1,'主 力 持 仓 率: ',主力持仓率,2,0),COLOR0000ff;
EXPLAINEX(1,'基金持股数(千万): ',基金持股数,2,0),COLOR0000ff;
EXPLAINEX(1,'基 金 持 股 率: ',基金持股率,2,0),COLOR0000ff;
EXPLAINEX(1,'主力上周增仓率: ',上周增仓率,2,0),COLOR0000ff;
EXPLAINEX(1,'主力三周增仓率: ',三周增仓率,2,0),COLOR0000ff;
然后再建立对应的自定义数据:
持仓率
持股数(我以千万位单位)
持股率
上周增仓
三周增仓
CGT:=LTRIM(IF(F10=4,F10TEXT(HJW+42,36)-'│'-'─',IF(F10=5,F10TEXT
(HJW+8,0)-'流通',F10TEXT(HJW+IF(F10=2,20,12),60))));
持股:=IF(F10=4,STRLEFT(CGT,STRFIND(CGT,' ',3)-1),STRLEFT
(CGT,STRFIND(CGT,IF(F10=2,' ',IF(F10=5,'万','(万股')),1)-1));
CGT1:=LTRIM(IF(F10=5,STRRIGHT(CGT-持股,STRLEN(CGT-持股)-
STRFIND(CGT-持股,'％',1)-3),CGT-持股));
比例:=STRTONUM(IF(F10=4,STRLEFT(CGT1,STRFIND(CGT1,' ',3)-1),IF
(F10=2,STRLEFT(CGT1,STRFIND(CGT1,'%',1)-1),
IF(F10=5,STRMID(CGT1,STRFIND(CGT1,'股',1)+2,STRFIND
(CGT1,'％',5)),STRMID(CGT,STRFIND(CGT,':',10)+1,STRFIND(CGT,'％',10)
-1)))));
//变化:=STRTONUM(STRRIGHT(CGT,STRLEN(CGT)-STRFIND(CGT,' ',16)));//
维赛特
SJT:=IF(F10=2,F10FIND('流通股东名',HJW+50),IF(F10=5,F10FIND('十大流
通股东情况',HJW+50),F10FIND('截止日期',HJW+10)));
IF SJT>JSW1 OR SJT<0 THEN BREAK;
END;
当期:=STRTONUM(持股[1]),COLORFF,LINETHICK;
当期（%）:=比例[1],PRECISION2,COLORCC,LINETHICK;
上期:=STRTONUM(持股[2]),COLORFFFF,LINETHICK;
上期（%）:=比例[2],PRECISION2,COLORCCDD,LINETHICK;
±比例:=当期（%）-上期（%）,PRECISION2,COLORCC00DD,LINETHICK;
前二:=STRTONUM(持股[3]),LINETHICK,COLORFFFF00;
前二（%）:=比例[3],PRECISION2,COLORCDDD00,LINETHICK;
前三:=STRTONUM(持股[4]),COLORFF00,LINETHICK;
前三（%）:=比例[4],PRECISION2,COLORAD00,LINETHICK;
{将变化持股数对应显示在对应位置}
A2:=SYSPARAM(2);//最初
A3:=SYSPARAM(3);//最后
A5:=SYSPARAM(5);//最低
A6:=MIN(MIN(RS1,RS2),MIN(RS3,RS4));//最小值
AG:=INTPART((A3-A2)/8);//柱宽控制
{排序}
股东增幅HS1-HS2)/HS2*100,PRECISION2,linethick,Color008987;
持股增幅RS1-RS2)/RS2*100,PRECISION2,linethick,COLORRED;
主力增幅当期-上期)/上期*100,PRECISION2,LINETHICK,ColorFA7D7D;
主力占流通比增幅:(当期（%）-上期（%）)/当期（%）
*100,PRECISION2,LINETHICK,ColorFFA935;
{-------------------【图解模板】-------------------}
{柱线}
{持股数柱线}
STICKLINE(BARPOS=A3-AG*1-10 AND
HS1>100,0,RS1,AG*3,1),LINETHICK2,ColorFFDDFF;
STICKLINE(BARPOS=A3-AG*2-15 AND
HS2>100,0,RS2,AG*3,1),LINETHICK2,ColorF1FFB5;
STICKLINE(BARPOS=A3-AG*3-20 AND
HS3>100,0,RS3,AG*3,1),LINETHICK2,ColorB9FFBC;
STICKLINE(BARPOS=A3-AG*4-25 AND
HS4>100,0,RS4,AG*3,1),LINETHICK2,ColorB9FFFF;
{10大股东画柱线}
STICKLINE(BARPOS=A3-AG*1-6 AND 当期>0,0,当
期,AG*3,0),LINETHICK2,ColorFFDDFF;
STICKLINE(BARPOS=A3-AG*2-11 AND 上期>0,0,上
期,AG*3,0),LINETHICK2,ColorF1FFB5;
STICKLINE(BARPOS=A3-AG*3-16 AND 前二>0,0,前
二,AG*3,0),LINETHICK2,ColorB9FFBC;
STICKLINE(BARPOS=A3-AG*4-21 AND 前三>0,0,前
三,AG*3,0),LINETHICK2,ColorB9FFFF;
{显示文字}
DRAWTEXT(A2=BARPOS AND HS1>100,A6,'户均持股'),PXUP50,ColorFFC800;
DRAWTEXT(A2=BARPOS AND HS1>100,(A5+A6)/2,'股东户
数'),PXUP10,ColorFA7D7D;
DRAWTEXT(A2=BARPOS AND HS1>100,A5,'报表时间'),COLORDD00;
{10大股东显示文字}
DRAWTEXT(A3=BARPOS AND 当期>0 ,(A5+A6)/2,'主力持股数
(万)'),PXUP60,ALIGN2,SHIFT4,COLORRED;
DRAWTEXT(A3=BARPOS AND 当期>0 ,A5,'主力占流通
比'),PXUP35,ALIGN2,SHIFT2,COLORMAGENTA;
{户均持股}
DRAWNUMBER(BARPOS=A3-AG*1-10 AND
HS1>100,A6,RS1,2),PXUP50,ALIGN,ColorFFC800;
DRAWNUMBER(BARPOS=A3-AG*2-15 AND
HS2>100,A6,RS2,2),PXUP50,ALIGN,ColorFFC800;
DRAWNUMBER(BARPOS=A3-AG*3-20 AND
HS3>100,A6,RS3,2),PXUP50,ALIGN,ColorFFC800;
DRAWNUMBER(BARPOS=A3-AG*4-25 AND
HS4>100,A6,RS4,2),PXUP50,ALIGN,ColorFFC800;
{股东户数}
DRAWNUMBER(BARPOS=A3-AG*1-10 AND HS1>100,
(A5+A6)/2,HS1,0),PXUP10,ALIGN,ColorFA7D7D;
DRAWNUMBER(BARPOS=A3-AG*2-15 AND HS2>100,
(A5+A6)/2,HS2,0),PXUP10,ALIGN,ColorFA7D7D;
DRAWNUMBER(BARPOS=A3-AG*3-20 AND HS3>100,
(A5+A6)/2,HS3,0),PXUP10,ALIGN,ColorFA7D7D;
DRAWNUMBER(BARPOS=A3-AG*4-25 AND HS4>100,
(A5+A6)/2,HS4,0),PXUP10,ALIGN,ColorFA7D7D;
{10大股东持股}
DRAWNUMBER(BARPOS=A3-AG*1-6 AND 当期>0,(A5+A6)/2,当
期,2),PXUP60,ALIGN,COLORRED;
DRAWNUMBER(BARPOS=A3-AG*2-11 AND 上期>0,(A5+A6)/2,上
期,2),PXUP60,ALIGN,COLORRED;
DRAWNUMBER(BARPOS=A3-AG*3-16 AND 前二>0,(A5+A6)/2,前
二,2),PXUP60,ALIGN,COLORRED;
DRAWNUMBER(BARPOS=A3-AG*4-21 AND 前三>0,(A5+A6)/2,前
三,2),PXUP60,ALIGN,COLORRED;
{10大股东%}
DRAWNUMBER(BARPOS=A3-AG*1-6 AND 当期>0,A5,当期
（%）,2),PXUP35,ALIGN,COLORMAGENTA;
DRAWNUMBER(BARPOS=A3-AG*2-11 AND 上期>0,A5,上期
（%）,2),PXUP35,ALIGN,COLORMAGENTA;
DRAWNUMBER(BARPOS=A3-AG*3-16 AND 前二>0,A5,前二
（%）,2),PXUP35,ALIGN,COLORMAGENTA;
DRAWNUMBER(BARPOS=A3-AG*4-21 AND 前三>0,A5,前三
（%）,2),PXUP35,ALIGN,COLORMAGENTA;
{时间}
DRAWTEXT(BARPOS=A3-AG*1-12 AND HS1>100,A5,T1),COLORDD00;
DRAWTEXT(BARPOS=A3-AG*2-17 AND HS2>100,A5,T2),COLORDD00;
DRAWTEXT(BARPOS=A3-AG*3-22 AND HS3>100,A5,T3),COLORDD00;
DRAWTEXT(BARPOS=A3-AG*4-27 AND HS4>100,A5,T4),COLORDD00;
//
http://bbs./viewthread.php?tid=1011399&extra=page%3D1&page=109
QUOTE:
原帖由
迷思 于 2006-12-18 11:25 发表
晕，谁说没事作啊？我们还得好好练功呢，这次跟着老师做了个000739，以后得学会怎么自己发现739才行啊
老师您正好没事，不如推荐一下好书吧！
我前面提到过，《高胜算炒盘》，《幽灵的礼物》，《操作生涯不是梦》《通向金融王国的自由之路》，《股市真规则》，《全面解读巴菲特》都值得反复阅读。。。
QUOTE:
原帖由 买涨杀跌 于 2006-12-18 16:21 发表
楼主你好，恭喜你带着大家在000739上赚了不少钱！！！
我有个问题请教您一下，为什么600383，600030。。。这些股票拉升的时候换手就偏小，739拉升的时候换手比较大，对于739的大换手率您是怎么理解的？？
有两个原因：1，当一只股票创出历史新高后，解放了所有套牢盘，主力已高度控盘，不需多大量即可拉升，000739上面还有许多套牢盘，必须高换手才可上行，2，当市场比较一致看好某只股时，市场的抛压也会比较轻，600030就是如此，那么多小非上市（12亿小非——远超600030当时的流通盘5亿），小非全部获利10多倍以上，但他没有多大换手继续上行，说明市场对它高度认同——价值还被低估，仍有较大上涨空间，因此在基金主力作多下，后市仍继续上涨
