红块大涨主图指标(通达信)

源码正文：

ma5:MA(C,5){XG51};
MA10:MA(C,10){XG51};
MA20:MA(C,20){XG51};
MA40:MA(C,40){XG51};
MA60:MA(C,60);{XG51};
stICKLINE(MA5>=MA60 AND MA60>=MA10,MA10,MA60,4,0),COLORYELLOW{XG51};
STICKLINE(MA5>=MA10 AND MA5<=MA60,MA10,MA5,4,0),COLORYELLOW{XG51};
STICKLINE(MA20>=MA60 AND MA60>=MA40,MA40,MA60,4,0),COLORFF00FF{XG51};
STICKLINE(MA20>=MA40 AND MA20<MA60,MA40,MA20,4,0),COLORFF00FF{XG51};
STICKLINE(MA5>=MA20 AND MA20>=MA10,MA10,MA20,4,0),COLORRED{XG51};
STICKLINE(MA5>=MA10 AND MA5<MA20,MA10,MA5,4,0),COLORRED{XG51};
STICKLINE(C>=O,H,L,0,0),COLORWHITE{XG51};
STICKLINE(C<O,H,L,0,0),COLORFFFF52{XG51};
STICKLINE(C>=O,C,O,4,1),COLORWHITE{XG51};
STICKLINE(C<O,C,O,4,0),COLORFFFF52{X=G+5-1=C=N={};

源码正文：

现价:=C*3,COLORWHITE{XG51};
顶部:= COst(95) ,COLORFFFF33{XG51};
卖出:= COST(75)*3 ,COLORCYAN;
买入:= COST(30) ,COLORWHITE{XG51};
底部:= COST(5) {XG51};
空:=ema(C,5){XG51};
均衡:=Ema(空,5),COLORRED{XG51};
中轨:=HHV(MA(H,13),13),COLORWHITE,LINETHICK2{XG51};
趋势:=LLV(MA(H,13),1),COLOR00FF00,LINETHICK2{XG51};
HHH:=(crOSS(均衡,趋势))*5;

CS:=(CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100{XG51};
YJD:= (EMA(CS,3)-50)*2{XG51};
筹码集中度:=COST(10)/(COST(80)-COST(10)){XG51};
筹码1:=EMA(筹码集中度,1)*10,LINETHICK2,COLOR3399FF{XG51};
筹码3:=EMA(筹码集中度,3)*10,LINETHICK2,COLORWHITE{XG51};
买线:=EMA(C,2){XG51};
卖线:=EMA(SLOPE(C,21)*20+C,42);
BU:=CROSS(买线,卖线){XG51};
SEL:=CROSS(卖线,买线){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};
VARR3:=EXPMEMA(VAR1,M){XG51};
VARR4:=EXPMEMA(VAR2,M){XG51};
pdi:=VAR1,COLORBLUE{XG51};
mdi:=VAR2,COLORCYAN{XG51};
涨:=(VAR1>VARR3) AND (VAR2<VARR3),COLORRED{XG51};
顶:=85{XG51};
中:=50{XG51};
底:=20{XG51};
VA1:=HHV(HIGH,9)-LLV(LOW,9){XG51};
VA2:=HHV(HIGH,9)-CLOSE{XG51};
VA3:=CLOSE-LLV(LOW,9){XG51};
VA4:=VA2/VA1*100-70{XG51};
VA5:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100{XG51};
VA6:=(2*CLOSE+HIGH+LOW)/4{XG51};
VA7:=SMA(VA3/VA1*100,3,1){XG51};
VA8:=LLV(LOW,34){XG51};
VA9:=SMA(VA7,3,1)-SMA(VA4,9,1){XG51};
VAA:=IF(VA9>100,VA9-100,0){XG51};
VAB:=HHV(HIGH,34){XG51};
AAA:= VAA*2{XG51};
BBB:= EMA((VA6-VA8)/(VAB-VA8)*100,13){XG51};
Vac:=EMA(0.667*REF(BB,1)+0.333*BB,2){XG51};
CCC:=SMA(VA5,20,1),COLORWHITE{XG51};
CCC1:=SMA(CCC,5,1),COLORCYAN{XG51};
出:=IF((CROSS(CCC,CCC1) AND (CCC1 < 顶) ),80,0)/23,COLORWHITE{XG51};
volUME:=VOL,VOLSTICK{XG51};
主力启动线:=MA(VOLUME,5),COLORWHITE,LINETHICK2{XG51};
主力洗盘线:=MA(VOLUME,35),COLORBLUE,LINETHICK2{XG51};
资金异动线:=MA(VOLUME,135),COLORYELLOW,LINETHICK2{XG51};
击:=STICKLINE(CROSS(主力启动线,资金异动线) OR ((主力洗盘线 > 资金异动线)
AND CROSS(主力启动线,主力洗盘线)),0,VOL,2,0),COLORBLUE{XG51};
动:=STICKLINE(主力启动线>REF(主力启动线,1) AND (CROSS(VOL,主力启动线)
AND (REF(VOL,1)<REF(资金异动线,1) AND REF(VOL,2)<REF(资金异动线,2)))
,0,VOL,3,0),COLORCYAN{XG51};
V1:=CLOSE/REF(CLOSE,3)>=1.1{XG51};
V2:=BACKSET(V1,2){XG51};
V3:=REF(CLOSE,3)*1.1{XG51};
V4:=CROSS(C,V3){XG51};
OK:=STICKLINE((V2 AND COUNT(V2,2)=1),VOL,0,3,0),COLORWHITE;

bollL:=MA(CLOSE,20),COLORWHITE{XG51};
UP:=BOLLL+2*STD(CLOSE,20),COLOR808080 {XG51};
LO:=BOLLL-2*STD(CLOSE,20),COLORCYAN{XG51};
DSLX:=((CLOSE/INDEXC)*10000),COLORFFFFFF,{XG51};
DSLxma1:=MA(DSLX,5),COLOR0000FF{XG51};
DSLXMA2:=MA(DSLX,10),COLOR00FF00{XG51};
DSLXMA3:=MA(DSLX,0);DSLXMA4:=MA(DSLX,0){XG51};
DI:(EMA(CLOSE,3)-EMA(CLOSE,13))*2,COLORYELLOW,LINETHICK2{XG51};
D1:=EMA(DI,5),COLORBROWN{XG51};
D2:=EMA(DI,10),COLORBROWN{XG51};
D3:=EMA(DI,20),COLORBROWN{XG51};
D4:=EMA(DI,30),COLORBROWN{XG51};
D5:=EMA(DI,60),COLORBROWN{XG51};
D6:=EMA(DI,90),COLORBROWN{XG51};
D7:=EMA(DI,120),COLORBROWN{XG51};
D8:=EMA(DI,250),COLORBROWN{XG51};
AA:STICKLINE(DI>=REF(DI,1) AND D1>=REF(D1,1) AND D2>=REF(D2,1) AND D3>=REF(D3,1) AND
D4>=REF(D4,1) AND D5>=REF(D5,1) AND D6>=REF(D6,1) AND D7>=REF(D7,1) AND
D8>=REF(D8,1) AND C>EMA(C,11) AND DI>-0.8,DI,0,2,0)*2,COLORWHITE{XG51};
0,LINETHICK2;

VAR3:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100{XG51};
VAR4:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100{XG51};
VAR5:=(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100{XG51};
VAR6:=(VAR3+VAR4+VAR5)/3{XG51};
VAR7:=EMA(VAR6,5){XG51};
RSVV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
K:=SMA(RSVV,3,1){XG51};
D:=SMA(K,3,1){XG51};
J:=3*K-2*D{XG51};
日均价:=(C*3+H+L+O)/6{XG51};
JF1:=SMA(SMA(EMA(日均价,5)*2-MA(日均价,5),3,1),3,1),COLOR999900{XG51};
补偿:=FLOOR(((JF1-MA(JF1,5))/MA(JF1,5)*100)){XG51};
风:=SMA(SMA((EMA(日均价,(5+ABS(补偿)))),2,1),2,1),COLORRED,LINETHICK2{XG51};
上轨:=风+2*STD(风,10),COLORYELLOW{XG51};
下轨:=风-2*STD(风,10),COLORYELLOW{XG51};
无盐:=EMA(日均价,5)*2-MA(日均价,5){XG51};
修正:=SMA(SMA(EMA(日均价,5)*2-MA(日均价,5),2,1),2,1),COLOR999900{XG51};
夺命:=(MA(C,5)+MA(C,13))/2{XG51};
追风:=MA(C,5)-MA(C,13)+MA(C,8),COLORWHITE,LINETHICK2{XG51};
UU:=(3*C+H+2*O)/6{XG51};
DSSA:=SMA(XMA(UU,2),2,1),LINETHICK2{XG51};
部:=DSSA*1,COLORBLUE{XG51};
BOLL:=(3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)
-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),13,1))/(3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)
-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),5,1)){XG51};
魔花A2:BOLL+2*STD(CLOSE,3){XG51};
B2:BOLL-2*STD(CLOSE,3){XG51};
A4:BOLL+2*STD(CLOSE,7){XG51};
B4:BOLL-2*STD(CLOSE,7){XG51};
A5:BOLL+2*STD(CLOSE,9){XG51};
B5:BOLL-2*STD(CLOSE,9){XG51};
A6:BOLL+2*STD(CLOSE,11){XG51};
B6:BOLL-2*STD(CLOSE,11){XG51};
A7:BOLL+2*STD(CLOSE,13){XG51};
B7:BOLL-2*STD(CLOSE,13){XG51};
A8:BOLL+2*STD(CLOSE,15){XG51};
B8:BOLL-2*STD(CLOSE,15){XG51};
A9:BOLL+2*STD(CLOSE,17){XG51};
B9:BOLL-2*STD(CLOSE,17){XG51};
A10:BOLL+2*STD(CLOSE,19){XG51};
B10:BOLL-2*STD(CLOSE,19){XG51};

A13:BOLL+2*STD(CLOSE,2){XG51};
B13:BOLL-2*STD(CLOSE,2){XG51};
A14:BOLL+2*STD(CLOSE,4){XG51};
B14:BOLL-2*STD(CLOSE,4){XG51};
A15:BOLL+2*STD(CLOSE,6){XG51};
B15:BOLL-2*STD(CLOSE,6){XG51};
A16:BOLL+2*STD(CLOSE,8){XG51};
B16:BOLL-2*STD(CLOSE,8){XG51};
A17:BOLL+2*STD(CLOSE,10){XG51};
B17:BOLL-2*STD(CLOSE,10){XG51};
A18:BOLL+2*STD(CLOSE,12){XG51};
B18:BOLL-2*STD(CLOSE,12){XG51};
A19:BOLL+2*STD(CLOSE,14){XG51};
B19:BOLL-2*STD(CLOSE,14){XG51};
A20:BOLL+2*STD(CLOSE,16){XG51};
B20:BOLL-2*STD(CLOSE,16){XG51};
A21:BOLL+2*STD(CLOSE,18){XG51};
B21:BOLL-2*STD(CLOSE,18){XG51};
A23:BOLL+1.6*STD(CLOSE,22),COLORBLUE, LINETHICK1{XG51};
B23:BOLL-1.6*STD(CLOSE,22),COLORBLUE, LINETHICK1{XG51};

2,COLORCYAN,LINETHICK2{XG51};
0,COLORCYAN,LINETHICK2{XG51};
(-1.5),COLORFF4242{XG51};
4,COLORBLUE,LINETHICK2{XG51};

强弱线:6.5*MA(((C+L+(H+C)/2)/3-LLV(L,13)) /(HHV(H,13)-LLV(L,13)),3),COLORWHITE{XG51};
辅助线:6.5*((C+L+(H+C)/2)/3-LLV(L,21))/(HHV(H,21)-LLV(L,21)),COLORFFFFFA{XG51};
MA1:=MA(CLOSE,5){XG51};
MA2:=MA(CLOSE,13){XG51};
MA3:=MA(CLOSE,34){XG51};
MA4:=MA(CLOSE,60){XG51};
MA5:=MA(C,120){XG51};
MA6:=MA(C,250);

dif:=EMA(CLOSE,40)-EMA(CLOSE,41){XG51};
DEA:=EMA(DIF,6){XG51};
macd:=(DIF-DEA)*6,COLORSTICK{XG51};
wr:=100*(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34)){XG51};
PSY:=COUNT(CLOSE>REF(CLOSE,1),13)/13*100{XG51};
AR:=SUM(HIGH-OPEN,26)/SUM(OPEN-LOW,26)*100{XG51};
roc:=100*(CLOSE-REF(CLOSE,12))/REF(CLOSE,12){XG51};
mcst:=dma(AMOUNT/(100*VOL),VOL/CAPITAL),COLORGREEN{XG51};
RSV:=(((CLOSE - LLV(LOW,33)) / (HHV(HIGH,33) - LLV(LOW,33))) * 100){XG51};
Y0:=SMA(RSV,7,1)/4{XG51};
Y1:=SMA(SMA(RSV,7,1),4,1)/4{XG51};
Y3:=SMA(SMA(SMA(RSV,7,1),4,1),6,1)/4;

根:=( ((辅助线<1.5) AND (A23>1.5)AND (B23>0.5) AND (A23<2.2))
OR (强弱线<2 AND (A23>1.5)AND (B23>0.4) AND (A23<2.2)AND(辅助线>2.5)
AND(O+C*3+L)/5>MA3)
OR (强弱线<2 AND (A23>1)AND (B23>0.5) AND (A23<1.8)AND(辅助线>2.5)
AND(O+C*3+L)/5>MA3))*2
,COLORCYAN,LINETHICK3;

花种:=((DI>0 AND DI<0.8 AND (DI>=REF(DI,1) AND D1>=REF(D1,1) AND D2>=REF(D2,1) AND D3>=REF(D3,1) AND
D4>=REF(D4,1) AND D5>=REF(D5,1) AND D6>=REF(D6,1) AND D7>=REF(D7,1) AND
D8>=REF(D8,1) AND C>EMA(C,11) ) AND 3<(辅助线+强弱线)/2)
AND (MA1/MA2)<1.028 AND MA1>风 AND C/O<1.05 AND REF(C,1)/REF(C,2)<1.068
AND VOL/REF(VOL,1)<5 )
, COLORBLUE,LINETHICK2;

JJJ:=(CROSS(主力启动线,资金异动线) OR ((主力洗盘线 > 资金异动线)
AND CROSS(主力启动线,主力洗盘线)))*4,COLORBLUE{XG51};
DDD:=((主力启动线>REF(主力启动线,1)) AND CROSS(VOL,主力启动线)
AND (REF(VOL,1)<REF(资金异动线,1)) AND REF(VOL,2)<REF(资金异动线,2))*4
,COLORCYAN{XG51};
KKK:=((V2 AND COUNT(V2,2)=1))*4,COLORWHITE{XG51};
含苞欲放:((DDD=4 AND 花种>0) OR (BU AND 花种>0 ) )*2.3,COLORLIMAGENTA,LINETHICK2{XG51};
LONG2:(CROSS(DI,0.5) AND MA2>MA3 AND MA3>MA4
AND 部/风<1.05 AND 部>REF(部,1) AND 部>上轨)*1.5
,COLORBLUE ,LINETHICK2{XG51};
吐蕊:(JJJ=4 AND 花种>0 AND LONG2>0 ) *1.8,COLORBLUE,LINETHICK2{XG51};
怒放:(吐蕊>0 AND 含苞欲放>0)
*3.5,COLORWHITE,LINETHICK2;

ZF:=(C/REF(C,1)-1)*100{XG51};
势:=SUM(ZF,3),COLORFFFFFF,LINETHICK2{XG51};
RO:=(100*(CLOSE-REF(CLOSE,12))/REF(CLOSE,12)){XG51};
OKK:=EMA((ZF,3)+((100*(CLOSE-REF(CLOSE,12))/REF(CLOSE,12))/2),5){XG51};
TYP:=(HIGH+LOW+CLOSE)/3{XG51};
cci:=(TYP-MA(TYP,88))/(0.015*AVEDEV(TYP,88))/10,COLORCYAN{XG51};
M1:=EMA(C,13){XG51};
M2:=EMA(C,34){XG51};
A:((CROSS(RO, OKK) AND OKK>REF(OKK,1) AND OKK<8 AND C>M1 AND CCI>5
AND 势<5 AND 势>REF(势,1) AND RO>5 AND M1-M2<0.68
)OR (CROSS(RO,势)AND CROSS(RO, OKK) AND CROSS(势,OKK))AND CCI>5
AND CCI<18 AND 势>0 AND RO>5)
*4,COLORWHITE{X_G-5-1_C_N_{};