资金监测改加(通达信)

资金监测改加(通达信)

源码正文：

VAR1:=vol/((HIGH-LOW)*2-Abs(CLOSE-OPEN)){XG51};
主动买盘:=IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)){XG51};
主动卖盘:=IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-VOL/2)){XG51};
空:=(ema(CLOSE,9)-Ema(CLOSE,2))/2*800000{XG51};
多:=(EMA(CLOSE,2)-EMA(CLOSE,9))/2*800000{XG51};
stICKLINE(C<O ,0,VOL,3.2,0),COLORFF1100{XG51};
STICKLINE(C<O ,0,VOL,2.7,0),COLORFF3300{XG51};
STICKLINE(C<O ,0,VOL,2.1,0),COLORFF5500{XG51};
STICKLINE(C<O ,0,VOL,1.5,0),COLORFF7700{XG51};
STICKLINE(C<O ,0,VOL,0.9,0),COLORFF9900{XG51};
STICKLINE(C<O ,0,VOL,0.3,0),COLORFFBB00{XG51};
STICKLINE(C=O AND C<REF(C,1),0,VOL,3.2,0),COLOR006000{XG51};
STICKLINE(C=O AND C<REF(C,1),0,VOL,2.7,0),COLOR007500{XG51};
STICKLINE(C=O AND C<REF(C,1),0,VOL,2.1,0),COLOR009100{XG51};
STICKLINE(C=O AND C<REF(C,1),0,VOL,1.5,0),COLOR00A600{XG51};
STICKLINE(C=O AND C<REF(C,1),0,VOL,0.9,0),COLOR00BB00{XG51};
STICKLINE(C=O AND C<REF(C,1),0,VOL,0.3,0),COLOR00CC00{XG51};
STICKLINE(C=O AND C>REF(C,1),0,VOL,3.2,0),COLOR555555{XG51};
STICKLINE(C=O AND C>REF(C,1),0,VOL,2.7,0),COLOR777777{XG51};
STICKLINE(C=O AND C>REF(C,1),0,VOL,2.1,0),COLOR999999{XG51};
STICKLINE(C=O AND C>REF(C,1),0,VOL,1.5,0),COLORBBBBBB{XG51};
STICKLINE(C=O AND C>REF(C,1),0,VOL,0.9,0),COLORDDDDDD{XG51};
STICKLINE(C=O AND C>REF(C,1),0,VOL,0.3,0),COLORFFFFFF{XG51};
STICKLINE(C>O,0,VOL,3.2,0),COLORFF11FF{XG51};
STICKLINE(C>O,0,VOL,2.7,0),COLORFF33FF{XG51};
STICKLINE(C>O,0,VOL,2.1,0),COLORFF55FF{XG51};
STICKLINE(C>O,0,VOL,1.5,0),COLORFF77FF{XG51};
STICKLINE(C>O,0,VOL,0.9,0),COLORFF99FF{XG51};
STICKLINE(C>O,0,VOL,0.3,0),COLORFFBBFF{XG51};
STICKLINE(主动买盘>0,0,主动买盘,3.2,0),COLOR000055{XG51};
STICKLINE(主动买盘>0,0,主动买盘,2.7,0),COLOR000077{XG51};
STICKLINE(主动买盘>0,0,主动买盘,2.1,0),COLOR000099{XG51};
STICKLINE(主动买盘>0,0,主动买盘,1.5,0),COLOR0000BB{XG51};
STICKLINE(主动买盘>0,0,主动买盘,0.9,0),COLOR0000DD{XG51};
STICKLINE(主动买盘>0,0,主动买盘,0.3,0),COLOR0000FF{XG51};
STICKLINE(主动卖盘<0,0,主动卖盘,3.2,0),COLOR006000{XG51};
STICKLINE(主动卖盘<0,0,主动卖盘,2.7,0),COLOR007500{XG51};
STICKLINE(主动卖盘<0,0,主动卖盘,2.1,0),COLOR009100{XG51};
STICKLINE(主动卖盘<0,0,主动卖盘,1.5,0),COLOR00A600{XG51};
STICKLINE(主动卖盘<0,0,主动卖盘,0.9,0),COLOR00BB00{XG51};
STICKLINE(主动卖盘<0,0,主动卖盘,0.3,0),COLOR00CC00{XG51};
VAR1A:=(CLOSE*2.5+HIGH+LOW)/4*600000{XG51};
VAR1D:=(CLOSE*2.5+HIGH+LOW)/4*800000{XG51};
离合:EMA(VAR1D,5)-EMA(VAR1D,13),COLORFFFFFF,LINETHICK2{XG51};
定位:1.1*EMA(EMA(VAR1D,5)-EMA(VAR1D,13),2),COLORFF5600,LINETHICK2{XG51};
做主:(多-空),COLOR00FFFF,LINETHICK3{XG51};
IF(做主<REF(做主,1),做主,DRAWNULL),COLORFFFF00,LINETHICK5{XG51};
IF(做主>REF(做主,1),做主,DRAWNULL),COLORFF00FF,LINETHICK4{XG51};
XJ:=VOL / ((H - L) * 2.5 - ABS(C - O)){XG51};
XL:=IF(C > O,XJ * (H - L),IF(C < O,XJ * (H - O + (C - L)),VOL / 2)) + IF(C > O,0 - XJ * (H - C + (O - L)),IF(C < O,0 - XJ * (H - L),0 - VOL / 2)){XG51};
HSL:=XL / 20 / 1.15{XG51};
STICKLINE(HSL *4 >= 0,HSL *4 *17,0,0.3,1),COLORBLUE{XG51};
STICKLINE(HSL *4 < 0,HSL *4 *17,0,0.3,1),COLORRED{X_G=5?1_C_N_{};

一个老指标，但很实用(通达信)

源码正文：

本指标是135主图指标，虽然是老指标了，但很实用，没有的就拿去用，有的就请支持一下。呵呵。。。。。
ema13:Ema(C,13),COLORRED,LINETHICK2{XG51};
EMA17:EMA(C,17),COLORWHITE,LINETHICK2{XG51};
EMA34:EMA(C,34),COLORBLUE{XG51};
EMA55:EMA(C,55),COLORFF00FF{XG51};
EMA120:EMA(C,120),COLORFFCC66{XG51};
AR1:=EMA55>EMA34 AND EMA34>EMA13{XG51};
AR2:=BArslAst((C-EMA13)/EMA13*100<-6){XG51};
AR3:=EMA13>=REF(EMA13,2){XG51};
AR4:=COUNT(crOSS(C,EMA13),AR2)=1{XG51};
AR5:=AR1 AND AR2 AND AR3 AND AR4{XG51};
AR6:=AR5 AND FILTER(AR5,10){XG51};
DRAWTEXT(AR6,L-0.09,'红杏出墙'),COLORBLUE;

BR1:=COUNT(BETWEEN((C-REF(C,1))/REF(C,1)*100,0,5) ,5)=5{XG51};
BR2:=Abs((EMA13-EMA34)+(EMA34-EMA55))/C<0.2{XG51};
BR3:=C>EMA55 AND (REF(C,1)<REF(EMA55,1) OR REF(C,2)<REF(EMA55,2) OR REF(C,3)<REF(EMA55,3) OR REF(C,4)<REF(EMA55,4) OR REF(C,5)<REF(EMA55,5)){XG51};
BR4:=BR1 AND BR2 AND BR3{XG51};
DRAWTEXT(BR4 AND FILTER(BR4,10),L-0.09,'蚂蚁上树'),COLOR00C5FF;

CR1:=(C-REF(C,1))/REF(C,1)*100>0.5{XG51};
CR2:=V>MA(V,5)*0.6{XG51};
CR3:=COUNT(CROSS(EMA13,EMA55),3)=1{XG51};
CR4:=ABS(EMA34-EMA55)/EMA55<0.03{XG51};
CR5:=EMA55<=EMA120 AND EMA55>=REF(EMA55,1){XG51};
CR6:=FILTER(CR1 AND CR2 AND CR3 AND CR4 AND CR5,2);

DRAWTEXT(CR6,L-0.09,'红衣侠女'),COLORF00FF0{XG51};
DR1:=EMA13>EMA34 AND EMA34<EMA55{XG51};
DR2:=BARSLAST(CROSS(C,EMA55) ){XG51};
DR3:=H=HHV(H,DR2){XG51};
DR4:=BARSLAST(DR3){XG51};
DR5:=COUNT(O>C AND C<REF(C,1) AND C>EMA55 AND BETWEEN((C-EMA55)/EMA55,0,0.02),DR4)=1{XG51};
DR6:=C>REF(C,1) {XG51};
DR7:= DR1 AND DR5 AND DR6 {XG51};
DR8:=DR7 AND FILTER(DR7 ,10){XG51};
DRAWTEXT(DR8,L-0.09,'黑客点击'),COLORD6BA63;

ER:=BARSLAST(REF(CROSS(EMA55,EMA34),1)) AND CROSS(EMA34,EMA55){XG51};
DRAWTEXT(ER,L-0.09,'均线互换'),COLOR0099FF;

FR:=BARSLAST(REF(CROSS(EMA34,EMA13),1)) AND CROSS(EMA13,EMA34){XG51};
DRAWTEXT(FR,L-0.09,'梅开二度'),COLORRED;

GR1:=BARSLAST(BETWEEN("bias.BIAS2"(6,13,24),0,5) ){XG51};
GR2:=EMA13>EMA34 AND EMA34>EMA55 AND EMA13>REF(EMA13,1){XG51};
GR3:=COUNT("BIAS.BIAS2"(6,13,24)>10 AND H=HHV(H,GR1),GR1){XG51};
GR4:=H=HHV(H,GR1){XG51};
GR5:="macd.MacD"(12,26,9)<REF("MACD.MACD"(12,26,9),1){XG51};
GR6:=GR2 AND GR3 AND GR4{XG51};
GR7:=GR2 AND GR3 AND GR4 AND GR5{XG51};
DRAWTEXT(GR6 AND GR7,H+0.13,'见好就收!'),COLOR00FF00;

HR2:=EMA13>=REF(EMA13,3) AND EMA34>=REF(EMA34,1) AND EMA55>=REF(EMA55,1)
AND CROSS(C,EMA13) AND CROSS(C,EMA34) AND CROSS(C,EMA55){XG51};
DRAWTEXT(HR2 AND FILTER(HR2,10),L-0.09,'三线推进'),COLORFFC8FF{XG51};
A1:=GR6 AND GR7{XG51};
A2:=HR2 AND FILTER(HR2,10){XG51};
A3:=AR6{XG51};
A4:=BR4 AND FILTER(BR4,10){XG51};
A5:=CR6{XG51};
A6:=DR8{XG51};
A7:=ER{XG51};
LC:=REF(CLOSE,1){XG51};
rsi:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;

DRAWTEXT(CROSS(84,RSI),H+0.13,'小鸡快跑'),COLOR00FF00;

STICKLINE(FR OR A1 OR A2 OR A3 OR A4 OR A5 OR A6 OR A7,H,L,0,0),COLORRED{XG51};
STICKLINE(FR OR A1 OR A2 OR A3 OR A4 OR A5 OR A6 OR A7,O,C,3,0),COLORRED{X+G*5=1+C+N+{};