这是在论坛淘到的一些东西的凑合，对原作者不一一列出了，请大家参详，再优化下，特别是加上顶的显示。。。。。，先多谢了！

快:(MA(L,1))*0.97,LINETHICK2;
慢:(MA(L,3)*0.97)*0.97,LINETHICK2;
A:=(3*C+L+O+H)/6;
X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+
14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+
REF(A,20))/210;
MTM:=C-REF(C,1);
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
CB:=EMA(X,13);
买:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0);
DRAWICON(FILTER(买=1,5),L*0.97,1);
N:=10;
T1:=CONST(HHVBARS(V,N));
T0:IF(CURRBARSCOUNT<=N+7,CONST(IF(T1=0,C,REF(C,T1))),DRAWNULL);
IF(CURRBARSCOUNT=T1+1,T0,DRAWNULL),CIRCLEDOT;
DRAWTEXT(ISLASTBAR,T0,' 量能评台');
DRAWICON(C>T0 AND C>T0,L*0.98,7);
地量1:=VOL<LLV(VOL,14)*1.001;

DRAWTEXT(地量1>0 AND REF(RSI,1)<25,L,'-----------换手最小'),LINETHICK3,COLORYELLOW;