通达信副图指标底部吸筹（附源码）

Var1:=(CLOSE+LOW+HIGH)/3; 　　

Var2:=SUM((Var1-REF(LOW,1)-(HIGH-Var1))*VOL/100000/(HIGH-LOW),0); 　　

Var3:=EMA(Var2,1); 　　

Var4:=Var3; 　　

Var5:=MA(Var3,12); 　　

Var6:=MA(Var3,26); 　　

Var7:=(Var4-Var5)*60; 　　

主力拉升: IF(Var7>0.05,Var7,0); 　　

Var8:=(Var5-Var6)*30; 　　

均线: IF(Var8>0.05,Var8,0); 　　

Var9:=CAPITAL/EMA(VOL,5)/30*1.1; 　　

套牢线: Var9; 　　

VarA:=IF(CROSS(Var7,Var9),50,0); 　　

关注: FILTER(VarA,7); 　　

DRAWICON(关注=50,0,1); 　　

VarB:=EMA(HHV(HIGH,500),21); 　　

VarC:=EMA(HHV(HIGH,250),21); 　　

VarD:=EMA(HHV(HIGH,90),21); 　　

VarE:=EMA(LLV(LOW,500),21); 　　

VarF:=EMA(LLV(LOW,250),21); 　　

Var10:=EMA(LLV(LOW,90),21); 　　

Var11:=EMA((VarE*0.96+VarF*0.96+Var10*0.96+VarB*0.558+VarC*0.558+VarD*0.558)/6,21); 　　

Var12:=EMA((VarE*1.25+VarF*1.23+Var10*1.2+VarB*0.55+VarC*0.55+VarD*0.65)/6,21); 　　

Var13:=EMA((VarE*1.3+VarF*1.3+Var10*1.3+VarB*0.68+VarC*0.68+VarD*0.68)/6,21); 　　

Var14:=EMA((Var11*3+Var12*2+Var13)/6*1.738,21); 　　

Var15:=REF(LOW,1); 　　

Var16:=SMA(ABS(LOW-Var15),3,1)/SMA(MAX(LOW-Var15,0),3,1)*100; 　　

Var17:=EMA(IF(CLOSE*1.35<=Var14,Var16*10,Var16/10),3); 　　

Var18:=LLV(LOW,30); 　　

Var19:=HHV(Var17,30); 　　

Var1A:=IF(MA(CLOSE,58),1,0); 　　

Var1B:=EMA(IF(LOW<=Var18,(Var17+Var19*2)/2,0),3)/618*Var1A; 　　

Var1C:=IF(Var1B>50,50,Var1B); 　　

底部吸筹: STICKLINE(Var1C>0,0,Var1C,4,1);