通达信筹码涨升副图源码

SW:=38;BW:=66;
 CJ:=(H+L+2*O+3*C)/7;
 DN:=INTPART(276/POW(PERIOD+3-1.7,2)-1.1);
 DS:=INTPART(1.8*DN);
 DB:=INTPART(0.5*DN);
 DC:=INTPART(0.67*DN);
短筹:SMA(FORCAST(PWINNER(SW,BW*CJ/100)*100,DC),DS,DS-1),COLORRED;
抢筹:=IF(SLOPE(短筹,DB)>=0,SLOPE(短筹,DB)*POW(DN/2.71,1.5),0);
活筹:短筹/4.8+1.2*抢筹-2,COLORWHITE,LINETHICK2;
 XC:=BARSLAST(活筹>=短筹/2);
吸筹:HHV(XC,DB),NODRAW;
上涨角:HHV(ATAN(SLOPE(活筹,DC)*2.1)*180/3.14159,DC),NODRAW;