飞狐筹码变化副图指标

源码

N:=9;

      VarA2:=COST(0)+0.1*(COST(100)-COST(0));
      VarA3:=COST(0)+0.2*(COST(100)-COST(0));
      VarA4:=COST(0)+0.3*(COST(100)-COST(0));
      VarA5:=COST(0)+0.4*(COST(100)-COST(0));
      VarA6:=COST(0)+0.5*(COST(100)-COST(0));
      VarA7:=COST(0)+0.6*(COST(100)-COST(0));
      VarA8:=COST(0)+0.7*(COST(100)-COST(0));
      VarA9:=COST(0)+0.8*(COST(100)-COST(0));
      VarA10:=COST(0)+0.9*(COST(100)-COST(0));
      VarA11:=COST(100);
      VarB1:=WINNER(VarA2);
      VarB2:=WINNER(VarA3)-WINNER(VarA2);
      VarB3:=WINNER(VarA4)-WINNER(VarA3);
      VarB4:=WINNER(VarA5)-WINNER(VarA4);
      VarB5:=WINNER(VarA6)-WINNER(VarA5);
      VarB6:=WINNER(VarA7)-WINNER(VarA6);
      VarB7:=WINNER(VarA8)-WINNER(VarA7);
      VarB8:=WINNER(VarA9)-WINNER(VarA8);
      VarB9:=WINNER(VarA10)-WINNER(VarA9);
      VarB10:=WINNER(VarA11)-WINNER(VarA10);
      VarC1:=ABS((VarB1-REF(VarB1,N))/REF(VarB1,N));
      VarC2:=ABS((VarB2-REF(VarB2,N))/REF(VarB2,N));
      VarC3:=ABS((VarB3-REF(VarB3,N))/REF(VarB3,N));
      VarC4:=ABS((VarB4-REF(VarB4,N))/REF(VarB4,N));
      VarC5:=ABS((VarB5-REF(VarB5,N))/REF(VarB5,N));
      VarC6:=ABS((VarB6-REF(VarB6,N))/REF(VarB6,N));
      VarC7:=ABS((VarB7-REF(VarB7,N))/REF(VarB7,N));
      VarC8:=ABS((VarB8-REF(VarB8,N))/REF(VarB8,N));
      VarC9:=ABS((VarB9-REF(VarB9,N))/REF(VarB9,N));
      VarC10:=ABS((VarB10-REF(VarB10,N))/REF(VarB10,N));
      VarE:=VarC1+VarC2+VarC3+VarC4+VarC5+VarC6+VarC7+VarC8+VarC9+VarC10;
      VarF:SMA(1/(1+VarE)*100,5,1);