同花顺l2公式函数[资料]

同花顺l2公式函数[资料] 同花顺l2公式函数.txt-//自私，让我们只看见自己却容不下别人。如果发短信给你喜欢的人， 他不回，不要再发。看着你的相片，我就特冲动的想P成黑白挂墙上!有时，不是世界太虚伪， 只是，我们太天真。主力持仓 TOPWIN N 1，999，1 IF(PERIODNAME<>"日线") {统计:"该指标只在日线周期下有效。"; 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)) { 统计:"本指标由同花顺金融研究中心提供，每晚11点后提供当天的数据。"; 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; 统计:TOSTRING(n,0)+"天机构买入"+TOSTRING(a3,1)+"万手,卖出"+TOSTRING(b3,1)+"万 手.净买入"+TOSTRING(y,1)+"万手.占总成交"+TOSTRING(z,1)+",."; } ELSE { y=b3-a3; z=y/VOL1*100; 统计:TOSTRING(n,0)+"天机构买入"+TOSTRING(a3,1)+"万手,卖出"+TOSTRING(b3,1)+"万 手.净卖出"+TOSTRING(y,1)+"万手.占总成交"+TOSTRING(z,1)+",."; } ========================================================= 同花顺l2公式函数2 主力买卖大单 N 1，100，1 IF(PERIODNAME<>"日线") { 统计:"该指标只在日线周期下有效。"; 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)) { 统计:"本指标由同花顺金融研究中心提供，每晚11点后提供当天的数据。"; 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; 统计:TOSTRING(n,0)+"天机构买入"+TOSTRING(a3,1)+"万手,卖出"+TOSTRING(b3,1)+"万 手.净买入"+TOSTRING(y,1)+"万手.占总成交"+TOSTRING(z,1)+",."; } ELSE { y=b3-a3; z=y/VOL1*100; 统计:TOSTRING(n,0)+"天机构买入"+TOSTRING(a3,1)+"万手,卖出"+TOSTRING(b3,1)+"万 手.净卖出"+TOSTRING(y,1)+"万手.占总成交"+TOSTRING(z,1)+",."; } ===================================== 资金流向 IF(STRFIND(PERIODNAME,"分钟",1)>0) { 统计:"该指标只在日线、周线、月线、季线和年线周期下有效。"; RETURN; } 资金流出:-ZJLC[-1]; 资金流入:ZJLR[-1]; 资金流向:资金流出+资金流入; IF(ISNULL(资金流出) AND ISNULL(资金流入)) ================================================== 机构动向 IF(PERIODNAME<>"日线") { 当日机构动向:"本指标只适用于日线周期"; RETURN; } z:0; a:=ZDMR[-1]+BDMR[-1]; b:=ZDMC[-1]+BDMC[-1]; bl:=(a-b)/(a+b)*100; IF(ABS(bl)<30) 当日机构动向:bl; ELSE 今日机构动向:bl; 大单净量日线 IF(STRFIND(PERIODNAME,"分钟",1)>0) { 统计:"该指标只在日线、周线、月线、季线和年线周期下有效。"; 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); RETURN r0; 上证BBD 大单净差BBD:100*(BIGBUYCOUNT1+WAITBUYCOUNT1-BIGSELLCOUNT1-WAITSELLCOUNT1); 大单净额:BIGBUYMONEY1+WAITBUYMONEY1-BIGSELLMONEY1-WAITSELLMONEY1; 三日BBD:SUM(大单净差BBD,3); 五日BBD:SUM(大单净差BBD,5); 十日BBD:SUM(大单净差BBD,10); 机构控盘度 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 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 := 97.18; IF(ret < 2.08) ret := 2.08; x:=ret; STICKLINE(x>x[1],x,x*2-x[1],5),colorred; STICKLINE(x0) { RETURN "该指标只用于指数。"; } IF(ISNULL(LV_D_SUPER_HLD_RATIO[-1])==0) { x:=LV_D_SUPER_HLD_RATIO*100; RETURN x; } ddx:=(BIGBUYCOUNT1[-1]+WAITBUYCOUNT1[-1]-BIGSELLCOUNT1[-1]-WAITSELLCOUNT1[-1])/T V_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]; } ELSE bl:=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; 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) ret := 2.08; x:=ret;