通达信红圆圈趋势能量未加密选股指标公式源码

源码正文：

difF:ema(CLOSE,6) - Ema(CLOSE,13),LINEstICK,COLORBLUE{XG51};
IF(DIFF>=REF(DIFF,1),DIFF,DRAWNULL),COLORWHITE,LINETHICK3{XG51};
DEA:EMA(DIFF,5){XG51};
macd:=2*(DIFF-DEA){XG51};
A:=MacD{XG51};
G:=MA(MACD,2){XG51};
J:=MA(MACD,3){XG51};
J1:=MA(MACD,5){XG51};
STICKLINE(crOSS(MA(A,1),G),0.05,0,4,1),COLORBLUE,LINETHICK2{XG51};
STICKLINE(CROSS(MA(A,1),G),0.07,0,2,0),COLORMAGENTA,LINETHICK2{XG51};
STICKLINE(CROSS(MA(A,1),G),0.09,0,1,0),COLORBLUE{XG51};
VAR13:=IF(YEAR>=2018 AND MONTH>=11 AND DAY>=1,0,1){XG51};
AA:=(MA(C,1)+MA(C,3)+MA(C,5)+MA(C,7)+MA(C,9))/5{XG51};
BB:=(MA(C,2)+MA(C,4)+MA(C,6)+MA(C,8)+MA(C,10))/5{XG51};
CC:=EMA(AA,2){XG51};
DD:=EMA(BB,5){XG51};
VAR14:=MAX(EMA(AA,2)-EMA(BB,5),0)*1.2{XG51};
VAR15:=EMA(VAR14,5){XG51};
SS:=EMA(VAR15,2){XG51};
风险系数:=(VAR15-SS)/10*VAR13{XG51};
波浪系数:VAR15*VAR13,STICK,COLORFF00FF{XG51};
A10:=波浪系数,LINETHICK1 {XG51};
B:MA(A10,3),COLORBLUE,LINETHICK2{XG51};
B2:=MA(B,2)*2-B{XG51};
STICKLINE(B>B2,1.5*B,B2,3,0),COLOR0000FF{XG51};
STICKLINE(B<B2,1.5*B,B2,3,0),COLORYELLOW{XG51};
STICKLINE(VAR15>REF(VAR15,1) AND VAR13,VAR15,0,2,0),COLOR0099FF{XG51};
STICKLINE(VAR15>REF(VAR15,1) AND VAR13,VAR15,SS,3.5,0),COLORBLUE{XG51};
STICKLINE(VAR15<REF(VAR15,1) AND VAR13,0,VAR15,2,0),COLORCYAN{XG51};
STICKLINE(VAR15<REF(VAR15,1) AND VAR13,VAR15,SS,3.5,0),COLORFFCC33{XG51};
WB:=CROSS(DIFF,DEA){XG51};
WS:=CROSS(DEA,DIFF){XG51};
DRAWICON(WB,(DEA * 1.02),23){XG51};
DRAWICON(WS,(DEA * 1.01),17){X_G~5_1_C_N_{};

源码正文：

N1:=18{XG51};
N2:=50{XG51};
N3:=89{XG51};
N4:=180{XG51};
DRAWBAND(ma(C,18),RGB(185,20,30),MA(C,50),RGB(0,100,100));DRAWKLINE(H,O,L,C){XG51};
MA18:MA(C,18),COLORRED{XG51};
MA50:MA(C,50),COLORBLUE{XG51};
MA89:MA(C,N3),COLORFF00FF{XG51};
MA180:MA(C,N4),COLORWHITE{XG51};
超买:=MA(C,10)*IF(CAPITAL=0,1.04,1.1),POINTDOT,COLORCYAN,LINETHICK2{XG51};
DRAWTEXT(crOSS(MA(C,N1),MA(C,N2)),MA(C,N2)*0.99,'↖金叉'),LINETHICK2,COLORFF00FF{XG51};
{XG51};
ZD:=100*(C-REF(C,1))/REF(C,1){XG51};
涨停:=ZD>=9.90{XG51};
stICKLINE((涨停>0 AND C=H),O, H, 3, 0),LINETHICK3, COLORBLUE{XG51};
大阳线:=ZD>=5.00 AND ZD<9.90{XG51};
STICKLINE((大阳线>0 AND C<=H),O, C, 3, 0),LINETHICK3, COLORFF00FF{XG51};

STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C<=MA(C,18)*1.03,H,C,0.05,0), COLOR0000FF;
STICKLINE(CROSS(MA(C,18),MA(C,50))AND C<=MA(C,18)*1.03,C,O,3,0), COLOR0066FF;
STICKLINE(CROSS(MA(C,18),MA(C,50))AND C<=MA(C,18)*1.03,O,L,0.05,0), COLOR0099FF;
STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C<=MA(C,18)*1.03 AND C<O,O,(C-O)/2+O,3,0),COLORFFFF80{XG51};
STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C>MA(C,18)*1.03 AND C>O,C,(C-O)/2+O,3,0),COLORWHITE{XG51};
STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C>MA(C,18)*1.03 AND C>O,O,(C-O)/2+O,3,0),COLORBLUE{XG51};
STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C>MA(C,18)*1.03 AND C>O,C,H,0.5,0),COLORWHITE{XG51};
STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C>MA(C,18)*1.03 AND C<O,C,(C-O)/2+O,3,0),COLORWHITE{XG51};
STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C>MA(C,18)*1.03 AND C<O,O,(C-O)/2+O,3,0),COLORFFFF80{XG51};
STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C>MA(C,18)*1.03 AND C<O,O,H,0.5,0),COLORFFFF80{XG51};
STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C>MA(C,18)*1.03 AND C<O,C,L,0.5,0),COLORWHITE{XG51};
STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C<MA(C,18) AND C>=O,C,(C-O)/2+O,3,0),COLORBLUE{XG51};
STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C<MA(C,18) AND C>=O,O,(C-O)/2+O,3,0),COLORWHITE{XG51};
STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C<MA(C,18) AND C>=O,C,H,0.5,0),COLORBLUE{XG51};
STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C<MA(C,18) AND C<O,C,(C-O)/2+O,3,0),COLORBLUE{XG51};
STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C<MA(C,18) AND C<O,O,(C-O)/2+O,3,0),COLORFFFF80{XG51};
STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C<MA(C,18) AND C<O,O,H,0.5,0),COLORFFFF80{XG51};
STICKLINE(CROSS(MA(C,18),MA(C,50)) AND C<MA(C,18) AND C<O,C,L,0.5,0),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0.00,0,0,'所属行业：')COLOR0080FF{XG51};
DRAWTEXT_FIX(1,0.06,0,0,HYBLOCK)COLOR0080FF{XG51};
DRAWTEXT_FIX(1,0.12,0,0,'所属地区：')COLOR00FFFF{XG51};
DRAWTEXT_FIX(1,0.18,0,0,DYBLOCK)COLOR00FFFF{XG51};
DRAWTEXT_FIX(1,0.00,0.06,0,'主营业务：')COLOR0000FF{XG51};
DRAWTEXT_FIX(1,0.06,0.06,0,EXTERNSTR(0,1))COLOR0000FF{XG51};
年:=YEAR,NODRAW{XG51};
月:=MONTH,NODRAW{XG51};
星期:=WEEkdAY,NODRAW{XG51};
日1:=DATETODAY(DATE){XG51};
上市日:=REF(DATE,TOTALBARSCOUNT-CURRBARSCOUNT){XG51};
自然日:=日1-DATETODAY(上市日)+1{XG51};
ZB:=(自然日-REF(自然日,1))!=星期-REF(星期,1)
OR TOTALBARSCOUNT-CURRBARSCOUNT=0{XG51};
本周第几天:=BArslAST(ZB)+1{XG51};
本月第几天:=BARSLAST(年*100+月!=REF(年*100+月,1))+1{XG51};
MA1:=REF(C,本周第几天){XG51};
MA2:=REF(MA1,本周第几天){XG51};
MA3:=REF(MA2,本周第几天){XG51};
MA4:=REF(MA3,本周第几天){XG51};
MA5:=REF(MA4,本周第几天){XG51};
MA6:=REF(MA5,本周第几天){XG51};
MA7:=REF(MA6,本周第几天){XG51};
MA8:=REF(MA7,本周第几天){XG51};
MA9:=REF(MA8,本周第几天){XG51};
五周价:=(C+MA1+MA2+MA3+MA4)/5{XG51};
五周:=REFDATE(五周价,DATE),COLOR9E9E21,LINETHICK1{XG51};
CC:=IF(CURRBARSCOUNT<18,CONST(REF(C,1)),DRAWNULL),COLORRED{XG51};
止赢:1.05*CC,COLORBLUE,NODRAW{XG51};
止损:0.97*CC,COLORFF00FF,NODRAW{XG51};
N:=15{XG51};
A1:=REF(H,N)=HHV(H,2*N+1){XG51};
B1:=FILTER(A1,N){XG51};
C1:=BacKSET(B1,N+1){XG51};
D1:=FILTER(C1,N){XG51};
A2:=REF(L,N)=LLV(L,2*N+1){XG51};
B2:=FILTER(A2,N){XG51};
C2:=BACKSET(B2,N+1){XG51};
D2:=FILTER(C2,N){XG51};
E1:=(REF(LLV(L,2*N),1)+REF(HHV(H,2*N),1))/2{XG51};
E2:=(H+L)/2{XG51};
H1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(C)=1{XG51};
L1:=(D2 AND NOT(D1 AND E1<E2)){XG51};
H2:=D1 AND NOT(D2 AND E1>=E2){XG51};
X1:=REF(BARSLAST(H1),1)+1{XG51};
F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,L,10000),X1)){XG51};
G1:=F1>REF(F1,1){XG51};
I1:=BACKSET(G1,2){XG51};
LD:=I1>REF(I1,1){XG51};
L2:=LD OR ISLASTBAR OR BARSCOUNT(C)=1{XG51};
X2:=REF(BARSLAST(L2),1)+1{XG51};
F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,H,0),X2)){XG51};
G2:=F2>REF(F2,1){XG51};
I2:=BACKSET(G2,2){XG51};
HD:=I2>REF(I2,1){XG51};
R1:=BACKSET(ISLASTBAR,BARSLAST(HD)+1){XG51};
S1:=R1>REF(R1,1){XG51};
T1:=BACKSET(ISLASTBAR,BARSLAST(LD)+1){XG51};
U1:=T1>REF(T1,1){XG51};
R2:=BACKSET(S1,REF(BARSLAST(HD),1)+2){XG51};
S2:=R2>REF(R2,1){XG51};
T2:=BACKSET(U1,REF(BARSLAST(LD),1)+2){XG51};
U2:=T2>REF(T2,1){XG51};
NOTEXT1:DRAWLINE(S2,H,S1,H,1),LINETHICK2,COLORWHITE{XG51};
NOTEXT2:DRAWLINE(U2,L,U1,L,1),LINETHICK2,COLORCYAN{X=G_5?1=C=N={};