五星级收费指标《筹码涨升排序》麻烦老师改为通达信版本

五星级收费指标《筹码涨升排序》 麻烦老师改为通达信版本，先谢了！！！！！！！！ input:SW(38,11,111),BW(66,33,111); CJ:=(H+L+2*O+3*C)/7; DN:=INTPART(276/POW(DATATYPE-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),linethick0; 上涨角:HHV(atan(slope(活筹,DC)*2.1)*180/3.14159,DC),linethick0;

爱约股解答：

{INPUT:SW(38,11,111),BW(66,33,111);}

SW:=38;BW:=33;

CJ:=(H+L+2*O+3*C)/7;

DN:=INTPART(276/POW(PERIOD-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),LINETHICK0;

上涨角:HHV(ATAN(SLOPE(活筹,DC)*2.1)*180/3.14159,DC),LINETHICK0;