通达信〖新筹码异动〗显示筹码异动强度并按获利盘比例分段变色源码

筹码异动:WINNER(CLOSE)*100,NODRAW,COLORLIBLUE;
平均成本:COST(50),NODRAW;
STICKLINE(筹码异动>0,筹码异动,0,5,1),COLOR8080FF;
STICKLINE(筹码异动>6,筹码异动,6,5,1),COLOR00FF00;
STICKLINE(筹码异动>20,筹码异动,20,4,1),COLORFFF500;
STICKLINE(筹码异动>50,筹码异动,50,2,0),COLOR0000FF;
STICKLINE(筹码异动>80,筹码异动,80,2,0),COLORYELLOW;
VAR1:=SMA(MAX((CLOSE-REF(CLOSE,1)),0), 8, 1)/SMA(Abs((CLOSE-REF(CLOSE,1))), 8.000, 1)*100;
VAR2:=SMA(MAX((CLOSE-REF(CLOSE,1)),0), 55, 1)/SMA(ABS((CLOSE-REF(CLOSE,1))), 55.000, 1)*100;
VAR3:=VAR1<=20 AND VAR2<=49;
VAR11:=REF(VAR3,1)=1;
VAR12:=REF(SMA(MAX(CLOSE-REF(CLOSE,2),0),7,1)/SMA(ABS(CLOSE-REF(CLOSE,2)),7,1)*100<12,1)=1;
VAR13:=crOSS(SMA(MAX(CLOSE-REF(CLOSE,1),0),7,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100,12);
VAR14:=VAR11+VAR12+VAR13=3;
VAR15:=CLOSE/REF(CLOSE,1)>1.05 AND HIGH/CLOSE<1.01 AND CLOSE>REF(CLOSE,1);
VAR16:=FILTER(VAR15,34);
STICKLINE(VAR16,0,60,2,0),COLORMAGENTA;
STICKLINE(VAR16,0,60,0.1,0),COLORWHITE;
DRAWICON(VAR16,60*1.002,34);