同花順主力持倉公式

1、同花順主力持倉公式主力持倉 TOPWINN 1，999，1IF(PERIODNAME<>"日線")統(tǒng)計:"該指標(biāo)只在日線周期下有效。"RETURN;r1:=ZDMR-1;r2:=BDMR-1;r3:=-ZDMC-1;r4:=-BDMC-1;x:=(ZDMR+BDMR)/SHGZG*30;y:=-(ZDMC+BDMC)/SHGZG*30;x1:=(ZDMR+BDMR)/SHGZG*100;y1:=-(ZDMC+BDMC)/SHGZG*100;a1=SUM(x1,0);b1=SUM(y1,0);主力持倉:=a1+b1;r:=(ZDMR-1+BDM

2、R-1)-(ZDMC-1+BDMC-1)/SHGZG*100;b:=SUM(r,0);STICKLINE(x1>0,x+b,b,2),colorred;STICKLINE(y1<0,b,b+y,2),colorgreen;IF(ISNULL(r1) 統(tǒng)計:"本指標(biāo)由同花順金融研究中心提供，每晚11點后提供當(dāng)天的數(shù)據(jù)。" RETURN;a=(ZDMR-1+BDMR-1);b=(ZDMC-1+BDMC-1);a3=SUM(a,n)/1000000;b3=SUM(b,n)/1000000;VOL1=SUM(VOL,n)/1000000;IF(a3>b3) y=a

3、3-b3; z=y/VOL1*100; 統(tǒng)計:TOSTRING(n,0)+"天機(jī)構(gòu)買入"+TOSTRING(a3,1)+"萬手,賣出"+TOSTRING(b3,1)+"萬手.凈買入"+TOSTRING(y,1)+"萬手.占總成交"+TOSTRING(z,1)+"."ELSE y=b3-a3; z=y/VOL1*100; 統(tǒng)計:TOSTRING(n,0)+"天機(jī)構(gòu)買入"+TOSTRING(a3,1)+"萬手,賣出"+TOSTRING(b3,1)+"

4、萬手.凈賣出"+TOSTRING(y,1)+"萬手.占總成交"+TOSTRING(z,1)+"."=同花順l2公式函數(shù)2主力買賣大單N 1，100，1IF(PERIODNAME<>"日線")統(tǒng)計:"該指標(biāo)只在日線周期下有效。"RETURN;r1:=ZDMR-1;r2:=BDMR-1;r3:=-ZDMC-1;r4:=-BDMC-1;STICKLINE(r2>0,r1,r1+r2,8),color160060;STICKLINE(r1>0,0,r1,8),color0000ff;STI

5、CKLINE(r3<0,0,r3,8),color00ff00;STICKLINE(r4<0,r3,r3+r4,8),color166000;x1:=(ZDMR+BDMR);y1:=-(ZDMC+BDMC);a1=MA(x1,n);b1=MA(y1,n);凈買入:a1+b1;凈買入比值:(a1+b1)/VOL*100;IF(ISNULL(r1) 統(tǒng)計:"本指標(biāo)由同花順金融研究中心提供，每晚11點后提供當(dāng)天的數(shù)據(jù)。" RETURN;a=(ZDMR-1+BDMR-1);b=(ZDMC-1+BDMC-1);a3=SUM(a,n)/1000000;b3=SUM(b,n)

6、/1000000;VOL1=SUM(VOL,n)/1000000;IF(a3>b3) y=a3-b3; z=y/VOL1*100; 統(tǒng)計:TOSTRING(n,0)+"天機(jī)構(gòu)買入"+TOSTRING(a3,1)+"萬手,賣出"+TOSTRING(b3,1)+"萬手.凈買入"+TOSTRING(y,1)+"萬手.占總成交"+TOSTRING(z,1)+"."ELSE y=b3-a3; z=y/VOL1*100; 統(tǒng)計:TOSTRING(n,0)+"天機(jī)構(gòu)買入"+TOSTR

7、ING(a3,1)+"萬手,賣出"+TOSTRING(b3,1)+"萬手.凈賣出"+TOSTRING(y,1)+"萬手.占總成交"+TOSTRING(z,1)+"."=資金流向IF(STRFIND(PERIODNAME,"分鐘",1)>0)統(tǒng)計:"該指標(biāo)只在日線、周線、月線、季線和年線周期下有效。"RETURN;資金流出:-ZJLC-1;資金流入:ZJLR-1;資金流向:資金流出+資金流入;IF(ISNULL(資金流出) AND ISNULL(資金流入)=機(jī)構(gòu)動向IF(

8、PERIODNAME<>"日線")當(dāng)日機(jī)構(gòu)動向:"本指標(biāo)只適用于日線周期"RETURN;z:0;a:=ZDMR-1+BDMR-1;b:=ZDMC-1+BDMC-1;bl:=(a-b)/(a+b)*100;IF(ABS(bl)<30)當(dāng)日機(jī)構(gòu)動向:bl;ELSE 今日機(jī)構(gòu)動向:bl;大單凈量日線IF(STRFIND(PERIODNAME,"分鐘",1)>0)統(tǒng)計:"該指標(biāo)只在日線、周線、月線、季線和年線周期下有效。"RETURN;r:=(ZDMR-1+BDMR-1)-(ZDMC-1+BDMC-

9、1)/SHGZG*100;大單凈量:r;STICKLINE(r>0,0,r,8),color0000ff;STICKLINE(r<0,0,r,8),color00ff00;r0:=(IF(ISNULL(ZDMR-1),0,ZDMR)+IF(ISNULL(BDMR-1),0,BDMR)-(IF(ISNULL(ZDMC-1),0,ZDMC)+IF(ISNULL(BDMC-1),0,BDMC) /SHGZG*100;MA5:MA(r0,5);MA10:MA(r0,10);MA20:MA(r0,20);RETURN r0;上證BBD大單凈差BBD:100*(BIGBUYCOUNT1+WAI

10、TBUYCOUNT1-BIGSELLCOUNT1-WAITSELLCOUNT1);大單凈額:BIGBUYMONEY1+WAITBUYMONEY1-BIGSELLMONEY1-WAITSELLMONEY1;三日BBD:SUM(大單凈差BBD,3);五日BBD:SUM(大單凈差BBD,5);十日BBD:SUM(大單凈差BBD,10);BBD持續(xù)出現(xiàn)紅柱，資金流入幅度不斷加大. BBD指標(biāo)首次翻綠，且資金流出幅度不斷加大機(jī)構(gòu)控盤度IF(ISNULL(LV_D_SUPER_HLD_RATIO-1)=0) x:=LV_D_SUPER_HLD_RATIO*100; STICKLINE(x>x1,x,

11、x*2-x1,5),colorred; STICKLINE(x<x1,x,x*2-x1,5),colorgreen; RETURN x;ddx:=(ZDMR-1+BDMR-1)-(ZDMC-1+BDMC-1)/ TV_D_PUBLIC_SHARES *100;/判斷新股IF(ISNULL(LV_D_SUPER_HLD_RATIO) bl:=(ZDMR-1+BDMR-1)/TV_D_PUBLIC_SHARES*100; IF(ISNULL(bl1)=0) bl:=bl1;ELSE bl:=LV_D_SUPER_HLD_RATIO*100;/ /bl 是起始比例x:=bl;x1:=x1;re

12、t:=x1+ddx;IF(ddx > 0) IF(x1>95) ret := x1+ddx*0.1; ELSE IF(x1>90) ret := x1+ddx*0.5; ELSE IF(x1>85) ret := x1+ddx*0.8;IF(ddx < 0) IF(x1<5) ret := x1+ddx*0.1; ELSE IF(x1<10) ret := x1+ddx*0.5; ELSE IF(x1<15) ret := x1+ddx*0.8;IF(ISNULL(ret) ret := bl;IF(ret > 97.18) ret :=

13、97.18;IF(ret < 2.08) ret := 2.08;x:=ret; STICKLINE(x>x1,x,x*2-x1,5),colorred; STICKLINE(x<x1,x,x*2-x1,5),colorgreen;RETURN ret;在機(jī)構(gòu)控盤度上升過程中，股價也在穩(wěn)步上漲，投資者只要持股待漲即可；當(dāng)機(jī)構(gòu)控盤出現(xiàn)回調(diào)時，可考慮出貨或觀望大盤控盤度IF(CODETYPE>0) RETURN "該指標(biāo)只用于指數(shù)。" IF(ISNULL(LV_D_SUPER_HLD_RATIO-1)=0) x:=LV_D_SUPER_HLD_RATIO

14、*100; RETURN x;ddx:=(BIGBUYCOUNT1-1+WAITBUYCOUNT1-1-BIGSELLCOUNT1-1-WAITSELLCOUNT1-1)/TV_D_PUBLIC_SHARES*100;/判斷新股IF(ISNULL(LV_D_SUPER_HLD_RATIO) bl:=(ZDMR-1+BDMR-1)/TV_D_PUBLIC_SHARES*100; IF(ISNULL(bl1)=0) bl:=bl1;ELSE bl:=LV_D_SUPER_HLD_RATIO*100;/ /bl 是起始比例x:=bl;x1:=x1;ret:=x1+ddx;IF(ddx > 0)

15、 IF(x1>95) ret := x1+ddx*0.1; ELSE IF(x1>90) ret := x1+ddx*0.5; ELSE IF(x1>85) ret := x1+ddx*0.8;IF(ddx < 0) IF(x1<5) ret := x1+ddx*0.1; ELSE IF(x1<10) ret := x1+ddx*0.5; ELSE IF(x1<15) ret := x1+ddx*0.8;IF(ISNULL(ret) ret := bl;IF(ret > 97.18) ret := 97.18;IF(ret < 2.08)

16、ret := 2.08;x:=ret;RETURN ret;機(jī)構(gòu)控盤度（副圖）VAR1:=EMA(EMA(CLOSE,9),9);控盤:=(VAR1-REF(VAR1,1)/REF(VAR1,1)*1000;STICKLINE(控盤<0,控盤,0,1,0),COLORWHITE;A10:=CROSS(控盤,0);無莊控盤:IF(控盤<0,控盤,0),COLORWHITE,NODRAW;開始控盤:IF(A10,5,0),LINETHICK1,COLORYELLOW;STICKLINE(控盤>REF(控盤,1) AND 控盤>0,控盤,0,1,0),COLORRED;有莊控

17、盤:IF(控盤>REF(控盤,1) AND 控盤>0,控盤,0),COLORRED,NODRAW;VAR2:=100*WINNER(CLOSE*0.95);STICKLINE(VAR2>50 AND COST(85)<CLOSE AND 控盤>0,控盤,0,1,0),COLORFF00FF;高度控盤:IF(VAR2>50 AND COST(85)<CLOSE AND 控盤>0,控盤,0),COLORFF00FF,NODRAW;STICKLINE(控盤<REF(控盤,1) AND 控盤>0,控盤,0,1,0),COLOR00FF00;主力出貨:IF(控盤<