通达信寻庄乖离选股指标公式源码

通达信寻庄乖离选股指标公式源码

源码正文：

P:=3;N:=6{XG51};
BC:=(IF(C>(H+L+C)/3,(H*0.618+L*0.382)*0.382,(H*0.382+L*0.618)*0.382)+(O*0.382+C*0.618)*0.618){XG51};
高:=HHV(BC,P){XG51};
低:=LLV(BC,P){XG51};
DT:=BC=高{XG51};
DL:=BC=低{XG51};
高T:=BArslAst(DT){XG51};
低T:=BARSLAST(DL){XG51};
H1:=REF(BC,高T){XG51};
L1:=REF(BC,低T){XG51};
中:=(H1+L1)/2{XG51};
A浪:=ema(中,N),COLORRED{XG51};
主浪:(Ema(A浪,N*12)),COLOR6600FF,LINETHICK2{XG51};
GO:=(O-主浪)*O{XG51};
GH:=(H-主浪)*H,LINETHICK{XG51};
GL:=(L-主浪)*L,LINETHICK{XG51};
GC:=(C-主浪)*C,LINETHICK{XG51};
GK:(BC-主浪)*BC,COLORWHITE{XG51};
折线:EMA(-(BC-主浪)*BC+主浪,1),COLORCYAN{XG51};
STICKLINE(GK>折线,GK,折线,5,0),COLORGRAY{XG51};
STICKLINE(GK<折线,GK,折线,5,0),COLORYELLOW{XG51};
LXX:主浪,COLORBLUE,LINETHICK2{XG51};
变线:(BC+折线)/2,COLORLIMAGENTA{XG51};
WQFS:=IF(INDEXC=C,56,SUMBARS(vol,CAPITAL)){XG51};
FSH:=REF(HHV(BC,WQFS*0.618),1){XG51};
FSL:=REF(LLV(BC,WQFS),1){XG51};
潮:=(BC-FSL)/((FSH+FSL)/2)*100,COLOR6600FF,LINETHICK2{XG51};
水:=(FSH-BC)/((FSL+FSH)/2)*100{XG51};
XP:=BARSLAST(crOSS(潮,水)){XG51};
HGL:REF(HHV(GK,XP+1),1),COLORRED,DOTLINE{XG51};
LGL:REF(LLV(GK,XP+1),1),COLORAAAA00,DOTLINE{XG51};
STICKLINE(GC>=GO,GL,GH,0,0),COLORWHITE;
STICKLINE(GC>GO,GO,GC,2,0),COLORWHITE{XG51};
STICKLINE(GC>GO,GO,GC,1,0),COLORCC66FF{XG51};
STICKLINE(GC<GO,GO,GC,2,0),COLORAAAA00,COLORYELLOW{XG51};
STICKLINE(GC<GO,GO,GC,1,0),COLORFFCCAA,COLORAAAA00{XG51};
STICKLINE(GC<GO,GL,GH,0,0),COLOR00BB00{XG51};
DRAWKLINE(H,O,L,C){XG51};
DRAWTEXT(CROSS(GC,0),-5,'★'),COLORBLUE{XG51};
DRAWTEXT(CROSS(GC,LXX),5,'★'),COLORRED{XG51};
分界线:0,COLORBROWN{X-G_5~1-C-N-{};