自用组合副图公式之金蛇狂舞(通达信)

自用组合副图公式之金蛇狂舞(通达信)

源码正文：

短期:100*(C-LLV(L,5))/(HHV(C,5)-LLV(L,5)),COLORRED{XG51};
中期:100*(C-LLV(L,10))/(HHV(C,10)-LLV(L,10)),COLORBLUE{XG51};
中长期:100*(C-LLV(L,20))/(HHV(C,20)-LLV(L,20)),COLORmaGENTA{XG51};
长期:100*(C-LLV(L,30))/(HHV(C,30)-LLV(L,30)),COLORWHITE,LINETHICK2{XG51};
强市线:80,POINTDOT{XG51};
弱市线:20,POINTDOT{XG51};
分水岭:50,POINTDOT{XG51};
LG:=C-REF(C,1){XG51};
AA1:=LG-REF(LG,7){XG51};
AA2:=LG-REF(LG,18){XG51};
AA3:=LG-REF(LG,29){XG51};
AA4:=LG-REF(LG,47){XG51};
AA5:=LG-REF(LG,76){XG51};
AA6:=LG-REF(LG,123){XG51};
AA7:=LG-REF(LG,199){XG51};
BB1:=(AA1+AA2+AA3+AA4+AA5+AA6+AA7){XG51};
U:=BB1-REF(BB1,1){XG51};
BB2:=SMA(U,5,1){XG51};
YY1:=BB1-REF(BB1,1){XG51};
绿1:=ema(EMA(EMA(YY1,8),8),14),COLOR00FA00,LINETHICK4{XG51};
绿2:=EMA(EMA(绿1,3),3),COLORFFFF00,LINETHICK3{XG51};
红1:=EMA(EMA(绿2,3),3),COLORWHITE,LINETHICK3{XG51};
红2:=EMA(红1,11),COLORFF00FF,LINETHICK3{XG51};
mtm:=C-REF(C,1){XG51};
ZLGJ:=100*EMA(EMA(MTM,N1),N1)/EMA(EMA(Abs(MTM),N1),N1),COLORRED{XG51};
MAZL:=MA(ZLGJ,N2),COLORBLUE{XG51};
VA1:=REF((LOW+OPEN+CLOSE+HIGH)/4,1){XG51};
VA2:=SMA(ABS(LOW-VA1),13,1)/SMA(MAX(LOW-VA1,0),10,1){XG51};
VA3:=EMA(VA2,10){XG51};
VA4:=LLV(LOW,33){XG51};
VAR5:=EMA(IF(LOW<=VA4,VA3,0),3){XG51};
主力进场:IF(VAR5>REF(VAR5,1),VAR5,0),COLORWHITE,NODRAW{XG51};
stICKLINE(VAR5>REF(VAR5,1),0,VAR5,3,0 ),COLOR000055{XG51};
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,2.6,0 ),COLOR000077{XG51};
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,2.1,0 ),COLOR000099{XG51};
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,1.5,0 ),COLOR0000BB{XG51};
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,0.9,0 ),COLOR0000DD{XG51};
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,0.3,0 ),COLOR0000FF{XG51};
洗盘:IF(VAR5<REF(VAR5,1),VAR5,0),COLORCYAN,NODRAW{XG51};
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,3,0),COLOR005500{XG51};
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,2.6,0),COLOR007700{XG51};
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,2.1,0),COLOR009900{XG51};
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,1.5,0),COLOR00BB00{XG51};
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,0.9,0),COLOR00DD00{XG51};
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,0.3,0),COLOR00FF00{XG51};
ZF:=(C/REF(C,1)-1)*100{XG51};
趋势:SUM(ZF,3),COLORFFFFFF,LINETHICK1{XG51};
difF:=EMA(CLOSE,12)-EMA(CLOSE,26){XG51};
DEA:=EMA(DIFF,9){XG51};
roc:(100*(CLOSE-REF(CLOSE,12))/REF(CLOSE,12)){XG51};
OK:EMA((ZF,3)+((100*(CLOSE-REF(CLOSE,12))/REF(CLOSE,12))/2),5){XG51};
N:=15;M:=20{XG51};
TR:=EXPMEMA(MAX(MAX(H-L,ABS(H-REF(C,1))),ABS(REF(C,1)-L)),N){XG51};
HD:=H-REF(H,1){XG51};
LD:=REF(L,1)-L{XG51};
DMP:=EXPMEMA(IF(HD>0 AND HD>LD,HD,0),N){XG51};
DMM:=EXPMEMA(IF(LD>0 AND LD>HD,LD,0),N){XG51};
VAR1:=DMP*100/TR{XG51};
VAR2:=DMM*100/TR{XG51};
VAR3:=EXPMEMA(VAR1,M){XG51};
VAR4:=EXPMEMA(VAR2,M){XG51};
DRAWBAND(VAR3,RGB(150,30,50),VAR4,RGB(30,110,50)){XG51};
pdi:EMA(VAR1,13),COLORBLUE{XG51};
mdi:EMA(VAR2,13),COLORCYAN{XG51};
STICKLINE(VAR1>VAR3 AND VAR2<VAR3,VAR3,VAR1,0,0.5),COLORRED{XG51};
MA1:=EMA(H,3){XG51};
MA5:=EMA(C,5){XG51};
WY1001:=(2*CLOSE+HIGH+LOW)/4{XG51};
WY1002:=EMA(WY1001,4){XG51};
WY1003:=EMA(WY1002,4){XG51};
WY1004:=EMA(WY1003,4){XG51};
XYS0:=(WY1004-REF(WY1004,1))/REF(WY1004,1)*100{XG51};
XYS1:=MA(XYS0,2){XG51};
XYS2:=MA(XYS0,1){XG51};
VV1:=V>REF(V,1)*1.03{XG51};
VV2:=(MA(C,5)-MA(C,10))/MA(C,10)<0.03 AND
(MA(C,10)-MA(C,20))/MA(C,20)<0.06{XG51};
XG560:=IF(MA(C,5)>MA(C,10) AND MA(C,10)>MA(C,20) AND MA(C,20)>MA(C,60) AND MA(C,1)>MA(C,5)
AND VV1 AND C>O AND VV2,1,0)*20{XG51};
VV3:=(MA(C,3)-MA(C,5))/MA(C,5)<0.02 AND
(MA(C,5)-MA(C,10))/MA(C,10)<0.03 AND (MA(C,10)-MA(C,20))/MA(C,20)<0.06{XG51};
A1:=MA(CLOSE,5){XG51};
A2:=MA(CLOSE,10){XG51};
A3:=MA(CLOSE,20){XG51};
A4:=MA(CLOSE,30){XG51};
筹码集中度:=COST(10)/(COST(80)-COST(10)){XG51};
筹码1:EMA(筹码集中度,1)*10,LINETHICK2,COLOR3399FF{XG51};
筹码3:EMA(筹码集中度,3)*10,LINETHICK2,COLORWHITE{XG51};
筹码5:EMA(筹码集中度,5)*10,LINETHICK1{XG51};
筹码13:EMA(筹码集中度,13)*10,LINETHICK1{XG51};
筹码34:EMA(筹码集中度,34)*10,LINETHICK1{XG51};
筹码55:EMA(筹码集中度,55)*10,LINETHICK1{XG51};
DDD:(COUNT(A1<A2 AND A2<A3 AND A3<A4,3)=3 AND crOSS(XYS2,XYS1)
AND C>O AND 筹码1<60 AND C>MA5)*30,COLORCYAN{XG51};
{XG51};
TYP:=(HIGH+LOW+CLOSE)/3{XG51};
cci:=(TYP-MA(TYP,88))/(0.015*AVEDEV(TYP,88))/10,COLORCYAN{XG51};
0{XG51};
5;

 

{X^G_5_1^C^N^{}

量柱指标凹口平衡线选(通达信)

源码正文：

一个高手的精品指标，请大家一起验证一下。 (通达信副图指标)
凹口平衡线，很难用公式准确表达出来，这里只是比较近似的选择出来，还要人工做个性化的判断确认。
但已经过滤了不少了。请各高手改进，并发表出来供大家分享。

N:=8{XG51};
BL:=4{XG51};
中点:=(H+L)/2{XG51};
本日跌率:=(O-C)*100/O{XG51};
比前跌率:=(REF(C,1)-C)*100/REF(C,1){XG51};
大阴K:FILTER(比前跌率>BL,N) {XG51};
天数:=BArslAst(大阴K){XG51};
JC:=REF(C,天数){XG51};
下凹:=HHV(中点,天数)<REF(中点,天数){XG51};
选股:RANGE(C,JC*0.97,JC*1.02) AND 下凹 AND 天数>=N {X-G-5+1-C-N-{};