大智慧主力吸筹副图源码

input:N(5,1,60),Z(4,1,100);
 幅度:=ABS((C-REF(C,1))/REF(C,1));
 转折:=IF(C>=O,幅度,0-幅度);
 变异速度:=转折*1000000/INDEXC;
 神风:SUM(变异速度,Z)*5,linethick1,COLORRED;
 定律:SUM(0-变异速度,Z)*5,linethick1,colorblue;
 Var1:=EMA(HHV(HIGH,500),21);
 Var2:=EMA(HHV(HIGH,250),21);
 Var3:=EMA(HHV(HIGH,90),21);
 Var4:=EMA(LLV(LOW,500),21);
 Var5:=EMA(LLV(LOW,250),21);
 Var6:=EMA(LLV(LOW,90),21);
 Var7:=EMA((Var4*0.96+Var5*0.96+Var6*0.96+Var1*0.558+Var2*0.558+Var3*0.558)/6,21);
 Var8:=EMA((Var4*1.25+Var5*1.23+Var6*1.2+Var1*0.55+Var2*0.55+Var3*0.65)/6,21);
 Var9:=EMA((Var4*1.3+Var5*1.3+Var6*1.3+Var1*0.68+Var2*0.68+Var3*0.68)/6,21);
 VarA:=EMA((Var7*3+Var8*2+Var9)/6*1.738,21);
 VarB:=REF(LOW,1);
 VarC:=SMA(ABS(LOW-VarB),3,1)/SMA(MAX(LOW-VarB,0),3,1)*100;
 VarD:=EMA(IF(CLOSE*1.35<=VarA,VarC*10,VarC/10),3);
 VarE:=LLV(LOW,30);
 VarF:=HHV(VarD,30);
 Var10:=IF(MA(CLOSE,58),1,0);
 吸筹:EMA(IF(LOW<=VarE,(VarD+VarF*2)/2,0),3)/618*Var10,colorYELLOW;
 吸:=STICKLINE(吸筹>0 ,0 ,吸筹 ,4 ,1);
 ㊣:吸筹,colorRED;
 STICKLINE(吸筹>0,0 ,㊣*1.2,6,0 ),COLORRED;
 STICKLINE(吸筹>0,0 ,㊣*0.8,6,0 ),COLORRED;
 VarG:=HHV(HIGH,30);
 发筹:EMA(IF(HIGH>=VarG,(VarD+VarF*2)/2,0),3)/618*Var10,colorBLUE;
 呼:=STICKLINE(发筹>0 ,0 ,发筹 ,3 ,1);
 ⊙:发筹,colorred;
 STICKLINE(发筹>0,0 ,⊙*1.2,3,0 ),COLORGREEN;
 STICKLINE(发筹>0,0 ,⊙*0.8,3,0 ),COLORGREEN;