求益盟操盘手“资金博弈”的通达信源码

求益盟操盘手“资金博弈”的通达信源码

操盘手主力版里的资金博弈指标源码
jgV:=(BIGORDER(1,3)-BIGORDER(2,3))*vol;

dhV:=(BIGORDER(1,2)-BIGORDER(2,2)-BIGORDER(1,3)+BIGORDER(2,3))*vol;

zhV:=(BIGORDER(1,1)-BIGORDER(2,1)-BIGORDER(1,2)+BIGORDER(2,2))*vol;

shV:=(BIGORDER(2,1)-BIGORDER(1,1))*vol;

tD:=COUNT(BIGORDER(1,0),0);

myD:=min(tD,60);

超级资金:ema(jgV,myD)*myD/capital,COLORMAGENTA;

大户资金:ema(dhV,myD)*myD/capital,color3399FF ;

中户资金:ema(zhV,myD)*myD/capital,colorcyan;

散户资金:ema(shV,myD)*myD/capital,colorgreen;

0,color333333,PRECIS0,layer7

1、海风2号 ma5:ma(close,5),colorffffff,linethick2; ma13:ma(close,13),color00ff00; ma21:ma(close,21),color00ffff,linethick2; ma34:ma(close,34),colorff00ff; {ma55:ma(close,55),color0000ff;} {ma120:=ma(close,120),colorffff00;} 天使:=ema(c,2),color000000; 魔鬼:=ema(slope(c,21)*20+c,42),color000000; 买:=cross(天使,魔鬼); 卖:=cross(魔鬼,天使); drawicon(买,l*0.97,1); drawtext(买,l*0.95,'进攻'),coloryellow; drawicon(卖,h*1.03,2); drawtext(卖,h*1.05,'撤退'),colorwhite; stickline(天使>=魔鬼,low,high,0.01,0),color0000dd; stickline(天使>=魔鬼,close,open,2,1),colorred; {stickline(天使>=魔鬼,close,open,3,0),color0000cc; stickline(天使>=魔鬼,close,open,2,0),color0000dd; stickline(天使>=魔鬼,close,open,1,0),color0000ff;} {stickline(天使<魔鬼,close,open,1,0),coloreeee00; stickline(天使<魔鬼,close,open,2,0),colordddd00; stickline(天使<魔鬼,close,open,3,0),colorcccc00;} stickline(天使<魔鬼,low,high,0.01,0),colorffdd00; stickline(天使<魔鬼,close,open,2,0),colorffff00; stickline(cross(天使,魔鬼),open,close,2.5,0),coloryellow; stickline(cross(魔鬼,天使),open,close,2.5,0),colorwhite; 2、益盟操盘手 var1:=(100 - ((90 * (hhv(high,14) - close)) / (hhv(high,14) - llv(low,14)))); var2:=(100 - ((90 * (hhv(high,14) - close)) / (hhv(high,14) - llv(low,14)))); var3:=(100 - ma(((100 * (hhv(high,6) - close)) / (hhv(high,6) - llv(low,6))),34)); dir1:=abs(close-ref(close,5)); vir1:=sum(abs(close-ref(close,1)),5); er1:=dir1/vir1; cs1:=er1*(0.8-2/8)+2/8; cq1:=cs1*cs1; ama1:ema(dma(close,cq1),2) ,colorwhite; dir2:=abs(close-ref(close,10)); vir2:=sum(abs(close-ref(close,1)),10); er2:=dir2/vir2; cs2:=er2*(0.8-2/24)+2/24; cq2:=cs2*cs2; ama2:ema(dma(close,cq2),2),colorgreen,linethick2; ama3:if(ama2/ref(ama2,1)>0.997,ama2,drawnull),coloryellow,linethick2; ama4:if(ama2/ref(ama2,1)>1.001,ama2,drawnull),colorred,linethick2; stickline((var2 < ma(var3,6)),close,open,3,1),color008000; stickline((var2 > ma(var3,6)),open,close,3,1),colorred; stickline(((open > close) and (var2 > ma(var3,6))),(open * 0.998),(close * 1.0001),2.3,0),color008000; stickline(((open < close) and (var2 < ma(var3,6))),(close * 0.998),(open * 1.002),2.3,0),colorred; stickline(((open > close) and (var2 < ma(var3,6))),close,open,2.3,0),color008000; drawicon(cross(var2,ma(var3,6)),(low - (low*0.04)),7); drawicon(cross(ma(var3,6),var1),(high+(high*0.03)),8); pt:=ref(h,1)-ref(l,1); cdp:=(ref(h,1)+ref(l,1)+ref(c,1)*2)/4; ah:=cdp+pt; al:=cdp-pt; nh:=cdp*2-ref(l,1); nl:=cdp*2-ref(h,1); 强:if(ah>ref(c,1)*1.1,ref(c,1)*1.1,ah)nodraw; 阻:if(nh>强,(强-cdp)*0.618+cdp,nh)nodraw,colorcyan; m:=if(al=x3,low,high,0.1,1),colorred; stickline(x2>=x3,close,open,2,2),colorred; stickline(x2>=x3,close,open,2,8),colorbrown; stickline(x2hy1,low,high,1,0),colorred; stickline(c>hy1,close,open,4.5,0),colorred; stickline(c>hy1,close,open,4,0),colorred; stickline(c>hy1,close,open,3,0),colorred; stickline(c>hy1,close,open,2,0),colorred; stickline(c<=hy1,close,open,4.5,0),colorff4242; stickline(c<=hy1,close,open,4,0),colorff4242; stickline(c<=hy1,close,open,3,0),colorff4242; stickline(c<=hy1,close,open,2,0),colorff4242; stickline(c<=hy1,low,high,1,0),colorff4242; drawtext(cross(close,hy1),low,'买点'),linethick2,coloryellow; drawtext(cross(hy1,close),high*1.08,'卖点'),linethick3,colorwhite; app:=(vol / (((high - low) * 2) - abs((close - open)))); zl:=if((close > open),(app * (high - low)),if((close < open),(app * ((high - open) + (close - low))),(vol / 2))); sf:=if((close > open),(0 - (app * ((high - close) + (open - low)))),if((close < open),(0 - (app * (high - low))),(0 - (vol / 2)))); 库存能量:=ma((zl + sf),2); 库存平均:=ma((zl + sf),5); drawtext(cross(库存能量,库存平均),l*0.97,''),colorff00ff,linethick4; 5、上出下买+三背离 a:=ma(close,17)+abs(ma(close,17)-ref(ma(close,17),1)); b:=ma(close,17)+ma(close,17)-ref(ma(close,17),1); 分水岭:if(ma(close,17)操作线); if(s,分水岭,drawnull),color00ff00,pointdot,linethick4; pm:ma(c,5),colorffffcc,linethick2; if(pm>ref(pm,1),pm,drawnull),colorred,linethick2; if(pm=ref(pm,1),pm,drawnull),colorred; if(pmc and ref("macd.dif",a1+1)<"macd.dif" and cross("macd.dif","macd.dea"); drawtext(b1>0,l-0.02,'★m'),color00ffff; a2:=barslast(ref(cross("kdj.k","kdj.d"),1)); b2:=ref(c,a2+1)>c and ref("kdj.k",a2+1)<"kdj.k" and cross("kdj.k","kdj.d"); drawtext(b2,l-0.10,'◎k'),colorff00ff; a3:=barslast(ref(cross("rsi.rsi1","rsi.rsi2"),1)); b3:=ref(c,a3+1)>c and ref("rsi.rsi1",a3+1)<"rsi.rsi1" and cross("rsi.rsi1","rsi.rsi2"); drawtext(b3>0,l-0.18,'◆r'),color0000ff; c1:=barslast(ref(cross("macd.dea","macd.dif"),1)); d1:=ref(c,c1+1)"macd.dif" and cross("macd.dea","macd.dif"); drawtext(d1>0,h+0.16,'★m'),color00ff00; c2:=barslast(ref(cross("kdj.d","kdj.k"),1)); d2:=ref(c,c2+1)"kdj.k" and cross("kdj.d","kdj.k"); drawtext(d2>0,h+0.08,'◎k'),colorffffcc; c3:=barslast(ref(cross("rsi.rsi2","rsi.rsi1"),1)); d3:=ref(c,c3+1)"rsi.rsi1" and cross("rsi.rsi2","rsi.rsi1"); drawtext(d3>0,h+0.04,'◆r'),colorff9900; 6、变色kdj rsv:=(close-llv(low,9))/(hhv(high,9)-llv(low,9))*100; k:sma(rsv,3,1),colorwhite; d:sma(k,3,1),coloryellow; j:3*k-2*d,coloryellow; if(kref(k,1),k,drawnull),colorred,linethick1; if(d>ref(d,1),d,drawnull),colorred,linethick1; if(j>ref(j,1),j,drawnull),colorff00ff,linethick1; 7、变色rsi n:=3; n1:=5;n2:=10;n3:=20;n4:=1;m1:=7;m2:=2; lc :=ref(c,n4); rsi1:sma(max(c-lc,0),n1,1)/sma(abs(c-lc),n1,1)*100,colorred,linethick1; rsi2:sma(max(c-lc,0),n2,1)/sma(abs(c-lc),n2,1)*100,color0099ff; rsi3:sma(max(c-lc,0),n3,1)/sma(abs(c-lc),n3,1)*100,coloryellow,linethick1; if(rsi1rsi1,rsi2,drawnull),coloraa8800,linethick1; if(rsi3>rsi2,rsi3,drawnull)coloraa8800,linethick1; ty:=rsi1;{通用曲线值的引入} aa:=ref(ty,n)=hhv(ty,2*n+1); bb:=backset(aa,n+1); cc:=filter(bb,n) and ty=hhv(ty,n+1); drawicon(cc,ty*1.07,10); aa2:=ref(ty,n)=llv(ty,2*n+1); bb2:=backset(aa2,n+1); cc2:=filter(bb2,n) and ty=llv(ty,n+1); drawicon(cc2,ty*0.95,11); gg:=islastbar and ref(cc,barslast(cc)); hh:=backset(gg,barslast(cc)+1); ii:=hh>ref(hh,1); jj:=ref(barslast(cc),1); kk:=backset(ii,jj+2); ll:=kk>ref(kk,1); drawline(ll,ty,ii,ty,1),colorred; cs:=(ref(ty,barslast(ii))-ref(ty,barslast(ll)))/(barslast(ll)-barslast(ii)); 阻力线:=ref(ty,barslast(ii))+barslast(ii)*cs; 阻力值:阻力线,linethick0; drawicon(cross(ty,阻力线),阻力线*0.99,12); gg2:=islastbar and ref(cc2,barslast(cc2)); hh2:=backset(gg2,barslast(cc2)+1); ii2:=hh2>ref(hh2,1); jj2:=ref(barslast(cc2),1); kk2:=backset(ii2,jj2+2); ll2:=kk2>ref(kk2,1); drawline(ll2,ty,ii2,ty,1),colorgreen; 8、变色macd dif1:=ema(close,12) - ema(close,26); dea1:=ema(dif1,9); macd1:=2*(dif1-dea1),stick; macd2:=ema(macd1,3); stickline(macd1>macd2 and macd1>0,0,macd1,1,0),colorred; stickline(macd1>macd2 and macd1<0,0,macd1,1,0),colorgreen; stickline(macd1=0 or macd1<=0,0,0,50,1),colorwhite; dif:dif1,color33ff33; dea:dea1,coloryellow; macd:macd1,nodraw,colormagenta; 强:if(dif1>=dea1,dif1,drawnull),colorred,linethick2;