通达信统一化主图未加密选股指标公式源码

通达信统一化主图未加密选股指标公式源码

源码正文：

N:=5;M:=13{XG51};
市盈率:C/FINANCE(33),NODRAW{XG51};
每股收益:FINANCE(33),NODRAW{XG51};
公积金:FINANCE(18),NODRAW{XG51};
流通股本:FINANCE(7)/100000000,NODRAW{XG51};
总股本:FINANCE(1)/100000000,NODRAW{XG51};
换手率％:vol/CAPITAL*100,COLORWHITE,
NODRAW{XG51};
ma5:MA(C,N),COLORRED{XG51};
MA18:=MA(CLOSE,18){XG51};
MA13:MA(C,M),COLORCYAN,LINETHICK2{XG51};
VAR1:=C=HHV(C,4) AND REF(C,1)=LLV(C,4){XG51};
VAR2:=C=LLV(C,4) AND (REF(C,1)<REF(C,2) OR REF(C,1)<REF(C,3)) OR REF(C,1)=LLV(C,4) AND C<REF(C,2) OR REF(C,2)=LLV(C,4) AND REF(C,1)=HHV(C,4) AND C<REF(C,1) OR REF(C,3)=LLV(C,4) AND C<REF(C,1) AND C<REF(C,2){XG51};
VAR3:=REF(C,1)=LLV(C,4) AND C>=REF(C,2) OR REF(C,2)=LLV(C,4) AND REF(C,1)<=REF(C,3) AND REF(C,2)<REF(C,4) AND C>=REF(C,1){XG51};
A:=(3*C+L+O+H)/6{XG51};
VAR4:=(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{XG51};
mtm:=C-REF(C,1){XG51};
DX:=100*ema(EMA(MTM,6),6)/EMA(EMA(Abs(MTM),6),6){XG51};
CB:=EMA(VAR4,13){XG51};
stICKLINE(CLOSE>=OPEN,CLOSE,OPEN,3,0),COLOR0000FF{XG51};
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,0.5,0),COLORCC66FF;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,3,0),COLORFF9900{XG51};
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,0.5,0),COLORFFCC00{XG51};

STICKLINE(VAR1,C,(O+C)/2,3,0),COLORFF11FF;
STICKLINE(VAR1,C,(O+C)/2,0.5,0),COLORFFddfF{XG51};

STICKLINE(VAR2,C,(O+C)/2,3,0),COLOR999999;
STICKLINE(VAR2,C,(O+C)/2,0.5,0),COLORFFBBFF{XG51};

STICKLINE(VAR3,O,(O+C)/2,3,0),COLOR00BB00{XG51};
STICKLINE(VAR3,O,(O+C)/2,0.5,0),COLOR00FF00{XG51};
卖:=HHV(DX,2)=HHV(DX,7) AND COUNT(DX>50,2) AND crOSS(MA(DX,2),DX){XG51};
DRAWTEXT(FILTER(卖=1,1),HIGH*1.02,'卖'),COLORCYAN{XG51};
买:=LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)){XG51};
DRAWTEXT(FILTER(买=1,5),LOW-0.03,'买'),COLORWHITE{XG51};
加仓:=SMA(EMA((C-REF(C,1))/REF(C,1),5)*100,3,1)*10{XG51};
DRAWTEXT(FILTER((CROSS(加仓,0) OR CROSS(CLOSE,CB)) AND 买=1,3),LOW-0.03,'加'),COLORRED{XG51};
跟:=MA18>=REF(MA18,3) AND CROSS(CLOSE,MA18){XG51};
DRAWTEXT(跟,LOW*0.96,'跟'),COLORCC66FF{X-G^5-1-C-N-{};

通达信KDJ至尊未加密选股指标公式源码

源码正文：

N:=9;M1:=3;M2:=3{XG51};
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100{XG51};
K:SMA(RSV,M1,1),COLORRED,LINETHICK2{XG51};
D:Sma(K,M2,1),COLORBLUE,LINETHICK2{XG51};
J:3*K-2*D,COLORLIMAGENTA,LINETHICK2{XG51};
obv:=K;
P:=5{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){XG51};
S11:=R11>REF(R11,1){XG51};
DRAWLINE(D1,OBV,S11,OBV,1),COLOR0000FF{XG51};
T11:=BACKSET(ISLASTBAR,BARSLAST(D2)+1){XG51};
U11:=T11>REF(T11,1){XG51};
DRAWLINE(D2,OBV,U11,OBV,1),COLORFFFF00{XG51};
STICKLINE(C>0,下,下,1,0),COLOR00FF00{XG51};
STICKLINE(C>0,上,上,1,0),COLORFF00FF{XG51};
DRAWTEXT(CROSS(OBV,上*1.01),上,'上'),COLORFFFFFF{XG51};
DRAWTEXT(CROSS(下*0.99,OBV),下,'下'),COLORFFFFFF{XG51};
bbi:=(ema(CLOSE,3)+EMA(CLOSE,6)+EMA(CLOSE,12)+EMA(CLOSE,24))/4{XG51};
ebbi:=(EMA(C,6)+EMA(C,18)+EMA(C,54)+EMA(C,162))/4{XG51};
FF1:=EMA(C,3)>EMA(C,7) AND EMA(C,7)>EMA(C,21) AND EMA(C,21)>EMA(C,54){XG51};
difF:=EMA(CLOSE,12)-EMA(CLOSE,26){XG51};
DEA:=EMA(DIFF,9){XG51};
主升浪:IF(BBI>EBBI AND FF1 AND DIFF>DEA,10,0),COLORBLUE,POINTDOT{XG51};
STICKLINE(主升浪,10,0,1,1),COLORBLUE{XG51};
DRAWICON(CROSS(K,D) AND CROSS(J,D),10,1);{XG51};
DRAWICON(D1,OBV,27){XG51};
DRAWICON(D2,OBV,25){XG51};
VAR0004:="kdj.K#WEEK"(9,3,3){XG51};
VAR0005:="kdJ.D#WEEK"(9,3,3){XG51};
VAR0006:="KDJ.K#MONTH"(9,3,3){XG51};
VAR0007:="KDJ.D#MONTH"(9,3,3){XG51};
周金叉:IF(CROSS(VAR0004,VAR0005),15,0)LINESTICK, COLORWHITE{XG51};
月金叉:IF(CROSS(VAR0006,VAR0007),20,0)LINESTICK,COLORBLUE{XG51};
DRAWTEXT(周金叉,16,'周金叉'),COLORWHITE{XG51};
DRAWTEXT(月金叉,20,'月金叉'),COLORBLUE{XG51};
抄底:IF(REF(COUNT(K<REF(K,1),5)>=5,1) AND COUNT(K<30,5)>=2 AND COUNT(J<0,3)>0 AND CROSS(J,0),60,50),COLOR00FFFF{XG51};
TJ00:=BARSLAST(REF(CROSS(K,D) AND REF(K,1)<35,1)){XG51};
TJ11:=C<REF(C,TJ00+1)*1.1 AND REF(K,1)<60 AND (TJ00+1)<25 AND (TJ00+1)>5 AND K>REF(K,TJ00+1) AND CROSS(K,D){XG51};
加仓:IF(TJ11,35,0),COLORCYAN{XG51};
A22:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),1)){XG51};
DRAWICON(CROSS(K,D),K,1){XG51};
DRAWICON(CROSS(D,K),D,2){X.G-5~1.C.N.{};