|
前面一位大师发了五星级收费指标《筹码涨升排序》，可惜是加密的，又限大智慧的，现在将(通达信、大智慧)源码放送，供大家交流学习，感谢修改公式的老师和原作者！若有冒犯，请海涵\
用法如下：
不要看本公式就只两条简单的线,因为最重要的是他的用法，不知道怎么用，再好的指标也产生不了使用价值,公式的重点是最后不显示的“吸筹”“上涨角”,
用“吸筹”排序找底部的股票(值越大越好，说明主力拥有大量的筹码)，可以用“上涨角”排序找正在上涨的股票(值越大,说明主力极具向上攻击力)。
源码如下：
通达信
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;
―――――――――――――――――――――――――――――――――
大智慧
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;
2013419017183833.jpg
20134194221514482.jpg
20134194223929033.jpg
| 
