主動性買賣量（公式）

主動性買賣量（公式）

參數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的效果圖：

仔細看我的公式，已默認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; 

很好啊，發揮得很不錯。強調籌碼在不同時間段的籌碼增減量，思路極好，謝謝你的好公式

利多方舟


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

原帖由 迷思 于 2006-12-18 11:25 發表


暈，誰說沒事作?。课覀冞€得好好練功呢，這次跟著老師做了個000739，以后得學會怎么自己發現739才行啊老師您正好沒事，不如推薦一下好書吧！

我前面提到過，《高勝算炒盤》，《幽靈的禮物》，《操作生涯不是夢》《通向金融王國的自由之路》，《股市真規則》，《全面解讀巴菲特》都值得反復閱讀。。。

有兩個原因：1，當一只股票創出歷史新高后，解放了所有套牢盤，主力已高度控盤，不需多大量即可拉升，000739上面還有許多套牢盤，必須高換手才可上行，2，當市場比較一致看好某只股時，市場的拋壓也會比較輕，600030就是如此，那么多小非上市（12億小非——遠超600030當時的流通盤5億），小非全部獲利10多倍以上，但他沒有多大換手繼續上行，說明市場對它高度認同——價值還被低估，仍有較大上漲空間，因此在基金主力作多下，后市仍繼續上漲