同花順主力持倉公式

...wd......wd......wd...同花順主力持倉公式主力持倉TOPWINN1，999，1IF(PERIODNAME<>"日線"){統(tǒng)計:"該指標只在日線周期下有效。";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]+BDMR[-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)計:"本指標由同花順金融研究中心提供，每晚11點后提供當天的數(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=a3-b3;z=y/VOL1*100;統(tǒng)計:TOSTRING(n,0)+"天機構(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)+"天機構(gòu)買入"+TOSTRING(a3,1)+"萬手,賣出"+TOSTRING(b3,1)+"萬手.凈賣出"+TOSTRING(y,1)+"萬手.占總成交"+TOSTRING(z,1)+"％.";}=========================================================同花順l2公式函數(shù)2主力買賣大單N1，100，1IF(PERIODNAME<>"日線"){統(tǒng)計:"該指標只在日線周期下有效。";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;STICKLINE(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)計:"本指標由同花順金融研究中心提供，每晚11點后提供當天的數(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=a3-b3;z=y/VOL1*100;統(tǒng)計:TOSTRING(n,0)+"天機構(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)+"天機構(gòu)買入"+TOSTRING(a3,1)+"萬手,賣出"+TOSTRING(b3,1)+"萬手.凈賣出"+TOSTRING(y,1)+"萬手.占總成交"+TOSTRING(z,1)+"％.";}=====================================資金流向IF(STRFIND(PERIODNAME,"分鐘",1)>0){統(tǒng)計:"該指標只在日線、周線、月線、季線和年線周期下有效。";RETURN;}資金流出:-ZJLC[-1];資金流入:ZJLR[-1];資金流向:資金流出+資金流入;IF(ISNULL(資金流出)ANDISNULL(資金流入))==================================================機構(gòu)動向IF(PERIODNAME<>"日線"){當日機構(gòu)動向:"本指標只適用于日線周期";RETURN;}z:0;a:=ZDMR[-1]+BDMR[-1];b:=ZDMC[-1]+BDMC[-1];bl:=(a-b)/(a+b)*100;IF(ABS(bl)<30)當日機構(gòu)動向:bl;ELSE今日機構(gòu)動向:bl;大單凈量日線IF(STRFIND(PERIODNAME,"分鐘",1)>0){統(tǒng)計:"該指標只在日線、周線、月線、季線和年線周期下有效。";RETURN;}r:=((ZDMR[-1]+BDMR[-1])-(ZDMC[-1]+BDMC[-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);RETURNr0;上證BBD大單凈差BBD:100*(BIGBUYCOUNT1+WAITBUYCOUNT1-BIGSELLCOUNT1-WAITSELLCOUNT1);大單凈額:BIGBUYMONEY1+WAITBUYMONEY1-BIGSELLMONEY1-WAITSELLMONEY1;三日BBD:SUM(大單凈差BBD,3);五日BBD:SUM(大單凈差BBD,5);十日BBD:SUM(大單凈差BBD,10);BBD持續(xù)出現(xiàn)紅柱，資金流入幅度不斷加大.BBD指標首次翻綠，且資金流出幅度不斷加大機構(gòu)控盤度IF(ISNULL(LV_D_SUPER_HLD_RATIO[-1])==0){x:=LV_D_SUPER_HLD_RATIO*100;STICKLINE(x>x[1],x,x*2-x[1],5),colorred;STICKLINE(x<x[1],x,x*2-x[1],5),colorgreen;RETURNx;}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(bl[1])==0)bl:=bl[1];}ELSEbl:=LV_D_SUPER_HLD_RATIO*100;////bl是起始比例x:=bl;x1:=x[1];ret:=x1+ddx;IF(ddx>0){IF(x1>95)ret:=x1+ddx*0.1;ELSEIF(x1>90)ret:=x1+ddx*0.5;ELSEIF(x1>85)ret:=x1+ddx*0.8;}IF(ddx<0){IF(x1<5)ret:=x1+ddx*0.1;ELSEIF(x1<10)ret:=x1+ddx*0.5;ELSEIF(x1<15)ret:=x1+ddx*0.8;}IF(ISNULL(ret))ret:=bl;IF(ret>97.18)ret:=97.18;IF(ret<2.08)ret:=2.08;x:=ret;STICKLINE(x>x[1],x,x*2-x[1],5),colorred;STICKLINE(x<x[1],x,x*2-x[1],5),colorgreen;RETURNret;在機構(gòu)控盤度上升過程中，股價也在穩(wěn)步上漲，投資者只要持股待漲即可；當機構(gòu)控盤出現(xiàn)回調(diào)時，可考慮出貨或觀望大盤控盤度IF(CODETYPE>0){RETURN"該指標只用于指數(shù)。";}IF(ISNULL(LV_D_SUPER_HLD_RATIO[-1])==0){x:=LV_D_SUPER_HLD_RATIO*100;RETURNx;}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(bl[1])==0)bl:=bl[1];}ELSEbl:=LV_D_SUPER_HLD_RATIO*100;////bl是起始比例x:=bl;x1:=x[1];ret:=x1+ddx;IF(ddx>0){IF(x1>95)ret:=x1+ddx*0.1;ELSEIF(x1>90)ret:=x1+ddx*0.5;ELSEIF(x1>85)ret:=x1+ddx*0.8;}IF(ddx<0){IF(x1<5)ret:=x1+ddx*0.1;ELSEIF(x1<10)ret:=x1+ddx*0.5;ELSEIF(x1<15)ret:=x1+ddx*0.8;}IF(ISNULL(ret))ret:=bl;IF(ret>97.18)ret:=97.18;IF(ret<2.08)ret:=2.08;x:=ret;RETURNret;機構(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;有莊控盤:IF(控盤>REF(控盤,1)AND控盤>0,控盤,0),COLORRED,NODRAW;VAR2:=100*WINNER(CLOSE*0.95);STICKLINE(VAR2>50ANDCOST(85)<CLOSEAND控盤>0,控盤,0,1,0),COLORFF00FF;高度控盤:IF(VAR2>50ANDCOST(85)<CLOSEAND控盤>0,控盤,0),COLORFF00FF,NODRAW;STICKLINE(控盤<REF(控盤,1)AND控盤>0,控盤,0,1,0),CO