[大智慧极品指标源码]------机构入场
var1c:=(high - min(open,close)); var2c:=(close - open);
var3c:=(min(open,close) - low); var4c:=(high - low);
var5c:=((vol * var1c) / var4c); var6c:=((vol * var2c) / var4c); var7c:=((vol * var3c) / var4c); var8c:=((var5c - var6c) - var7c);
大机构:((sum(var8c,13) / ma(vol,13)) / 13),linethick1,color0000ff; 小机构:((sum(var8c,21) / ma(vol,21)) / 21),linethick1,colorffff00; 散户:((sum(var8c,30) / ma(vol,30))/ 30),colorff00ff;
股票:((sum(var8c,125) / ma(vol,125)) / 125),linethick2,color00ffff; var4:=ma(close,5); var5:=ma(close,10); var6:=ma(close,30); var7:=ma(close,60); var8:=ema(cost(85),7); var9:=ema(cost(15),7);
vara:=(sum(((close * vol) * 100),4) / sum((vol * 100),4)); varb:=(intpart((vara * 100)) / 100);
varc:=(sum(((close * vol) * 100),7) / sum((vol * 100),7)); vard:=(intpart((varc * 100)) / 100);
vare:=(sum(((close * vol) * 100),28) / sum((vol * 100),28));
varf:=(intpart((vare * 100)) / 100); 短线趋势:(ema(close,5) - ema(close,10)); 中线趋势:ema(短线趋势,9);
var10:=((0 - ((100 * (hhv(close,5) - close)) / (hhv(close,5) - llv(low,5)))) + 100); var11:=((0 - ((100 * (hhv(close,10) - close)) / (hhv(close,10) - llv(low,10)))) + 100); var12:=((0 - ((100 * (hhv(close,20) - close)) / (hhv(close,20) - llv(low,20)))) + 100); var13:=((0 - ((100 * (hhv(close,30) - close)) / (hhv(close,30) - llv(low,30)))) + 100); var14:=ref(中线趋势,1); var15:=中线趋势; var16:=(var15 - var14); var17:=ref(短线趋势,1); var18:=短线趋势; var19:=(var18 - var17); var1a:=open; var1b:=close;
发现机构入场:if((((((((var1a <= var4) and (var1a <= var5)) and (var1a <= var6)) and (var1b >= var4)) and (var1b >= varf)) and (var16 > 0)) and (var19 > 0)),0.5,0),linethick2,color00ff00;
短线指标:if(((((cross(短线趋势,中线趋势) and (短线趋势 < 0)) and (中线趋势 < (0 - 0.2))) and (var11 > 45)) and (var16 > 0)),0.3,0.1),colorff0000;