通达信周线翻红主图及未加密选股指标公式源码

通达信周线翻红主图及未加密选股指标公式源码

源码正文：

M5:ma(C,5),COLORBLUE{XG51};
M10:MA(C,10),COLORWHITE,LINETHICK2{XG51};
M15:MA(C,15),COLORBLUE{XG51};
TJ:=M5>REF(M5,1) AND M10>REF(M10,1) AND M15>=REF(M15,10){XG51};
T:=BArslAst(crOSS(TJ,0.5)){XG51};
TT:=BARSLAST(WEEKOFYEAR!=REF(WEEKOFYEAR,1)){XG51};
HH:=MAX(MAX(M5,M10),M15){XG51};
LL:=MIN(MIN(M5,M10),M15){XG51};
NH:=HH/LL*100-100{XG51};
ZZF:=(C-REF(C,TT+1))/REF(C,TT+1)*100{XG51};
ZZF1:=REF(ZZF,TT+1){XG51};
TJ2:=CROSS(ZZF>20,0.5) OR CROSS(ZZF1>20,0.5){XG51};
JD:=(ATAN((M5/REF(M5,1)-1)*100)*180/3.1415926){XG51};
TJA:=ZZF1>0 AND ZZF1>0 {XG51};
DT:=M10/M15*100-100>1 AND H/MAX(C,O)<1.03{XG51};
BL:=MIN(C,O)/M5{XG51};
BL5:=M5/M10*100-100{XG51};
XG:=TJ2 AND C=HHV(C,5) AND BETWEEN(T,0,5)AND TJA AND NH<12 AND DT AND BL<1.045 AND BL5<7.2 AND JD<77.5{XG51};
STICKLINE(CROSS(XG,0.5),C,O,1.8,0),COLORLIMAGENTA{XG51};
STICKLINE(CROSS(XG,0.5),H,L,0,0),COLORLIMAGENTA{XG51};
DRAWTEXT(CROSS(XG,0.5),L*0.98,'周线翻红'),COLORBLUE{X+G*5*1+C+N+{};

通达信超好用的OBV未加密选股指标公式源码

源码正文：

P:=5{XG51};
VP:=IF(CAPITAL=0,AMOUNT/100000000,vol){XG51};
VA:=IF(CLOSE>REF(CLOSE,1),VP,-VP){XG51};
obv:SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0),LINETHICK2{XG51};
M12:ema(OBV,12){XG51};
M50:Ema(OBV,50),LINETHICK2,COLOR00FF00{XG51};
A1:=REF(OBV,P)=HHV(OBV,2*P+1){XG51};
B1:=FILTER(A1,P){XG51};
C1:=BacKSET(B1,P+1){XG51};
D1:=FILTER(C1,P){XG51};
A2:=REF(OBV,P)=LLV(OBV,2*P+1){XG51};
B2:=FILTER(A2,P){XG51};
C2:=BACKSET(B2,P+1){XG51};
D2:=FILTER(C2,P){XG51};
上:REF(OBV,BArslAst(D1)),COLORFF00FF,NODRAW{XG51};
下:REF(OBV,BARSLAST(D2)),COLOR00FF00,NODRAW{XG51};
向上:crOSS(OBV,上*1.01),NODRAW{XG51};
相对能量:(OBV-下)/(上-下)*100,COLORBLUE,NODRAW{XG51};
R11:=BACKSET(ISLASTBAR,BARSLAST(D1)+1);
S11:=R11>REF(R11,1){XG51};
DRAWLINE(D1,OBV,S11,OBV,1),COLORBLUE{XG51};
T11:=BACKSET(ISLASTBAR,BARSLAST(D2)+1){XG51};
U11:=T11>REF(T11,1){XG51};
DRAWLINE(D2,OBV,U11,OBV,1),COLOR00FF00{XG51};
STICKLINE(C>0,下,下,1,0),COLOR00FF00{XG51};
STICKLINE(C>0,上,上,1,0),COLORFF00FF{XG51};
DRAWTEXT(CROSS(OBV,上*1.01),上,'上'),COLORBLUE{XG51};
DRAWTEXT(CROSS(下*0.99,OBV),下,'下'),COLORBLUE{XG51};
DRAWICON(D1,OBV,1){XG51};
DRAWICON(D2,OBV,2){XG51};
IF(M12>M50,M12,DRAWNULL),COLORFFFF00{XG51};
IF(M50>REF(M50,1),M50,DRAWNULL),COLORWHITE,LINETHICK2{X_G^5.1_C_N_{};