{筹码进场大智慧机构ddx}

v1:=(c*2+h+l)/4*10;
v2:=ema(v1,13)-ema(v1,34);
v3:=ema(v2,5);
v4:=2*(v2-v3)*0.5;
庄秘撤: if(v4<=0,v4,0),color00ff00,linethick2;
庄秘进: if(v4>=0,v4,0),colorff00ff,linethick2;
v5:=(hhv(indexh,8)-indexc)/(hhv(indexh,8)-llv(indexl,8))*8;
v6:=ema(3*v5-2*sma(v5,18,1),5);
v7:=(indexc-llv(indexl,8))/(hhv(indexh,8)-llv(indexl,8))*10;
v8:=(indexc*2+indexh+indexl)/4;
v9:=ema(v8,13)-ema(v8,34);
va:=ema(v9,3);
vb:=(v9-va)/2;
大筹金进场: if(vb>=0,vb,20{高低调整}),coloryellow,linethick2;
大筹金撤走: if(vb<=0,vb,0),colorblue,linethick2;
aa:=winner(close+close*15/100)*100;
bb:=winner(close+close*0/100)*100;
cc:=aa-bb;
dd:=(winner(close-close*0.1/100)-winner(close-close*15/100))*100;
ee:=cc<3 and dd<0.5 and open<>low;
a1:=dynainfo(6);
a2:=if(low>a1,0,if(high<a1,1,(a1-low+0.01)/(high-low+0.01)));
a3:=vol/winner(low);
a4:=ref(hhv(close,120),1);
a5:=ref(llv(close,120),1);
a6:=100*(close-a5)/(a4-a5);
a7:=a2>0 or a2=1;
a8:=a7 and a3/ref(a3,3)>=3 and a6<80;
a9:=ref(a8,1) or ref(a8,2) or ref(a8,3) or ref(a8,4);
a10:=a8 and a9;
a11:=if(filter(a8,3),5,0);
a12:=if(filter(a10,3) or ee,10,0);
筹码进场日:if(a11,8,0),colorred;
stickline(a12,0,15,5,0),colorff00ff;
筹码加仓日:if(a12,88,0),linethick0;
stickline(a12,0,15,5,0),colorff00ff;
stickline(a11,0,5,5,0),colorff7700;
stickline(a11,0,5,4.5,0),colorff8800;
stickline(a11,0,5,4,0),colorff9900;
stickline(a11,0,5,3.5,0),colorffaa00;
stickline(a11,0,5,3,0),colorffbb00;
stickline(a11,0,5,2.5,0),colorffcc00;
stickline(a11,0,5,2,0),colorffdd00;
stickline(a11,0,5,1,0),colorffee00;
stickline(a12,0,15,4.5,0),color102099;
stickline(a12,0,15,4,0),color1020aa;
stickline(a12,0,15,3.5,0),color1020bb;
stickline(a12,0,15,3,0),color1020cc;
stickline(a12,0,15,2.5,0),color1020dd;
stickline(a12,0,15,2,0),color1020ee;
stickline(a12,0,15,1,0),color1020ff;
drawtext(a11,38,'筹码进场'),colorred;
drawtext(a12,60,'筹码加仓');
var1:=ref(low,1);
var2:=sma(abs(low-var1),13,1)/sma(max(low-var1,0),13,1)*4;
var3:=ema(var2,13);
var4:=llv(low,34);
var5:=ema(if(low<=var4,var3,0),3);
stickline(var5>ref(var5,1),0,var5,7,0 ),colorred;
stickline(var5<ref(var5,1),0,var5,2,1),colorgreen;
var6:=100-3*sma((close-llv(low,75))/(hhv(high,75)-llv(low,75))*100,20,1)+2*sma(sma((close-
llv(low,75))/(hhv(high,75)-llv(low,75))*100,20,1),15,1);
var7:=100-3*sma((open-llv(low,75))/(hhv(high,75)-llv(low,75))*100,20,1)+2*sma(sma((open-llv
(low,75))/(hhv(high,75)-llv(low,75))*100,20,1),15,1);
var8:=var6<ref(var7,1) and vol>ref(vol,1) and close>ref(close,1);
drawtext(var8 and count(var8,30)=1,50,'注意★有筹码进场迹象');
var9:=hhv(var8,10);
stickline(var8=10,20,10,5,0),color6666ff;
vara:=if(var9 and cross(ma(close,3),ma(close,5)),20,0);
vare:=ma(100*(close-llv(close,34))/(hhv(high,34)-llv(low,34)),5)-20;
varf:=100-3*sma((close-llv(low,75))/(hhv(high,75)-llv(low,75))*100,20,1)+2*sma(sma((close-llv(low,75))/(hhv(high,75)-llv(low,75))*100,20,1),15,1);
var10:=100-3*sma((open-llv(low,75))/(hhv(high,75)-llv(low,75))*100,20,1)+2*sma(sma
((open-llv(low,75))/(hhv(high,75)-llv(low,75))*100,20,1),15,1);
var11:=varf<ref(var10,1) and vol>ref(vol,1) and close>ref(close,1);
drawtext(var11 and count(var11,40)=1,30,'大资金活动'),linethick1,colorff00ff;
a01:=dynainfo(3);
a03:=barscount(close);
a04:=(sma((close / hhv(high,120)),3,1) * 100);
a05:=if((a03 > 20),a04,0);
a06:=if((low > a01),0,if((high < a01),1,(((a01 - low) + 0.009) / ((high - low) + 0.009))));
a07:=dma(a06,(vol / capital)) * 60;
a09:=if((((a07 > 0) and (a07 > ref(a07,1))) and (a05 <= 200)),a07,0);
趋势:=ema(var3,3)-10;
stickline(趋势>80,趋势,80,6,0);
drawtext(cross(趋势,0),0,'▲'),color0000ff;
stickline((a09 > 0 and (趋势<20 or 趋势>ref(趋势,1)and 趋势<50)),0,a09,5,0),colorffff00;
机构建仓区:0,linethick0,colorffff00;