通达信筹码集中主图及未加密选股指标公式源码

通达信筹码集中主图及未加密选股指标公式源码

源码正文：

M5:ma(C,5){XG51};
M10:MA(C,10){XG51};
M20:MA(C,20){XG51};
M60:MA(C,60){XG51};
YC5:=PPART(5)*100{XG51};
YC100:=PPART(100)*100{XG51};
C85:=COst(85){XG51};
C15:=COST(15){XG51};
B1:=C85-C15{XG51};
B2:=(C85+C15)/2{XG51};
B3:=B1/B2*100<15 AND YC5>90 AND YC100<15{XG51};
ZF:=RANGE((C-REF(C,1))/REF(C,1)*100,-3,3) AND M5>=REF(M5,1);
XG:=EVERY(ZF,3) AND M10>=M20 AND B3 AND M5>M60 AND asr>80{XG51};
STICKLINE(crOSS(XG,0.5),C,O,1.8,0),COLORMAGENTA{XG51};
STICKLINE(CROSS(XG,0.5),H,L,0,0),COLORMAGENTA{XG51};
DRAWTEXT(CROSS(XG,0.5),L*0.95,'木直筹码'),COLORBLUE{X*G+5^1*C*N*{};

通达信均线分笔动能主图未加密选股指标公式源码

源码正文：

MD6:ma(C,3){XG51};
MD5:MA(C,8){XG51};
MD4:MA(C,21){XG51};
MD3:MA(C,55){XG51};
MD2:MA(C,144){XG51};
MD1:MA(C,377){XG51};
L1:=IF(MD2>=MD1,1,0){XG51};
L2:=IF(MD3>MD2 OR (MD3=MD2 AND L1=0),1,0){XG51};
L3:=IF(MD4>MD3 OR (MD4=MD3 AND L2=0),1,0){XG51};
L4:=IF(MD5>MD4 OR (MD5=MD4 AND L3=0),1,0){XG51};
L5:=IF(MD6>MD5 OR (MD6=MD5 AND L4=0),1,0){XG51};
L6:=IF(C>MD6 OR (C=MD6 AND L5=0),1,0){XG51};
LL1:=L1+L2*2+L3*4{XG51};
LL2:=L4+L5*2+L6*4{XG51};
GG:=IF(LL2=7 OR LL2=3,H,0.5*L){XG51};
GD:=IF(LL2=0 OR LL2=4,L,1.5*H){XG51};
均线顶0:=LL2=7 OR (LL2=3 AND (REF(LL2,1)=7 OR REF(LL2,1)=3) AND (H>REF(H,1) )) {XG51};
均线底0:=LL2=0 OR (LL2=4 AND (REF(LL2,1)=0 OR REF(LL2,1)=4) AND (L<REF(L,1))) {XG51};
GG2:=IF(均线顶0,H,0.9*H){XG51};
GD2:=IF(均线底0,L,1.1*L){XG51};
均线顶A:=FILTERX(均线顶0 AND GG2=HHV(GG2,BArslAst(均线底0)),BARSLAST(均线底0)){XG51};
均线底A:=FILTERX(均线底0 AND GD2=LLV(GD2,BARSLAST(均线顶0)),BARSLAST(均线顶0)){XG51};
均线顶:=FILTERX(均线顶A AND GG2=HHV(GG2,BARSLAST(均线底A)),BARSLAST(均线底A)){XG51};
均线底:=FILTERX(均线底A AND GD2=LLV(GD2,BARSLAST(均线顶A)),BARSLAST(均线顶A)){XG51};
顶高:=REF(H,BARSLAST(均线顶)){XG51};
底底:=REF(L,BARSLAST(均线底)){XG51};
修正顶:=均线顶{XG51};
修正底:=均线底{XG51};
X1:=IF(修正底,BARSLAST(修正顶),IF(修正顶,BARSLAST(修正底),0)){XG51};
EREA:=IF(修正底,SQRT(X1)*(REF(H,X1)-L),IF(修正顶,(H-REF(L,X1))*SQRT(X1),0)){XG51};
Y1:=REF(X1,X1)+X1{XG51};
EREA2:=REF(EREA,Y1){XG51};
V1:=IF(修正底 OR 修正顶, SUM(V,X1)/10000,0){XG51};
DRAWNUMBER(修正底 ,L*0.97,V1),COLORBLUE{XG51};
DRAWNUMBER(修正底 ,L*0.98,EREA),COLORWHITE{XG51};
DRAWTEXT(修正底 ,L*0.99,CON2STR(L,2)),COLORCYAN{XG51};
DRAWNUMBER( 修正顶,H*1.03,V1),COLORBLUE{XG51};
DRAWNUMBER( 修正顶,H*1.02,EREA),COLORWHITE{XG51};
DRAWTEXT( 修正顶,H*1.01,CON2STR(H,2)),COLORLICYAN{XG51};
DRAWLINE(修正底,LOW,修正顶 AND EREA > EREA2, HIGH,0),COLORLIMAGENTA,LINETHICK3{XG51};
DRAWLINE(修正底,LOW,修正顶 AND EREA <= EREA2 , HIGH,0),COLORLIMAGENTA,LINETHICK1{XG51};
DRAWLINE(修正顶,HIGH,修正底 AND EREA > EREA2 , LOW,0),COLORCYAN,LINETHICK3{XG51};
DRAWLINE(修正顶,HIGH,修正底 AND EREA <= EREA2 , LOW,0),COLORCYAN,LINETHICK1{XG51};
{X~G_5_1~C~N~{};