牛熊线源码(通达信)

源码正文：

参数：M1 2 100 7
M2 2 100 21
N 2 100 4
S 2 100 2
M 2 100 20
用法注释：判断股票运行趋势强弱的方法，被称为“牛熊三色”，牛熊三色每翻红一色，就可以增加1/3的仓位，三色全翻红的时候基本可以满仓。这三色分别是：macd指标，difF金叉DEA，即maCD出现红柱的时候即为翻红；SAR指标，股价重新回到SRA指标以上，SAR转向到股价之下运行即为翻红；expma指标，7号操盘线（参数7）金叉2号操盘线（参数21）即为翻红。
源码：
EXP1:EXPMA(CLOSE,M1){XG51};
EXP2:EXPMA(CLOSE,M2){XG51};
A:IF(CLOSE>SAR(N,S,M),SAR(N,S,M),DRAWNULL),CIRCLEDOT,COLORWHITE{XG51};
B:IF(CLOSE<SAR(N,S,M),SAR(N,S,M),DRAWNULL),CIRCLEDOT,COLORGREEN{XG51};
高1:=REF(HHV(H,150),3){XG51};
低1:=REF(LLV(L,150),3){XG51};
H3:=高1-(高1-低1)*0.5{XG51};
中轴:REFDATE(H3,DATE),POINTDOT,COLORBLACK,LINETHICK3{XG51};
B1:=ema(C,12){XG51};
B2:=EMA(C,26){XG51};
B3:=(B1-B2)*2{XG51};
WDIF:中轴+B3{XG51};
WDEA:EMA(WDIF,9){XG51};
MacD:=2*(WDIF-WDEA){XG51};
stICKLINE(MACD>0,中轴,中轴+MACD,0,1),COLORBLUE{XG51};
STICKLINE(MACD<0,中轴,中轴+MACD,0,1),COLORLIGREEN{X=G-5_1=C=N={};

源码正文：

LOCK:=1;M8:=ema(CLOSE,8);M13:=Ema(M8,13){XG51};
VAR1:=EMA(M13,62);VAR2:=(CLOSE+HIGH+LOW)/3{XG51};
VAR3:=EMA(VAR2,10)*LOCK;VAR4:=REF(VAR3,1)*LOCK{XG51};
stICKLINE(VAR3>VAR4,VAR3,VAR4,4,1),COLORWHITE{XG51};
STICKLINE(VAR3<VAR4,VAR3,VAR4,4,1),COLOR00CC33{XG51};
DRAWTEXT(crOSS(VAR3,VAR4),L-0.0,'←顺'),COLORWHITE{XG51};
DRAWTEXT(CROSS(VAR4,VAR3),H+0.0,'←逆'),COLORCYAN{XG51};
C3:=REF(C,1); 涨停:=IF((C-C3)*100/C3>=(10-0.01*100/C3),2,0){XG51};
STICKLINE(涨停,OPEN,CLOSE,1,0),COLORBLUE{XG51};
跌停:=IF((C3-C)*100/C3>=(10-0.01*100/C3),2,0){XG51};
STICKLINE(跌停,OPEN,CLOSE,1,0),COLORYELLOW{XG51};
QC:=REF(CLOSE,1){XG51};
RSV:=(((CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9)))*100){XG51};
K:=SMA(RSV,3,1){XG51};
D:=SMA(K,3,1){XG51};
YX:=((CLOSE>QC) AND C>O){XG51};
KK:=HHV(K,5){XG51};
HH:=HHV(D,5){XG51};
D1:=REF(D,1){XG51};
K1:=REF(K,1){XG51};
DRAWTEXT((((D1<30) AND CROSS(K,D)) AND YX),(LOW * 0.99),'●←短买！'),COLORBLUE{XG51};
压力:MA(REF(HHV(C,30),1),2),COLOR9DFFFF{XG51};
支撑:MA(REF(LLV(C,30),1),2),COLORABFF46; AA1:=AMOUNT/V;BB1:=L<AA1*0.9{XG51};
DA:=(EMA(C,1)+EMA(C,2)+EMA(C,3)+EMA(C,4))/4{XG51};
DB:=(EMA(C,10)+EMA(C,20)+EMA(C,40)+EMA(C,80))/4{XG51};
DRAWTEXT(CROSS(DA-DB,0),L*0.98,'★B'),COLORLIMAGENTA{XG51};
AF:=CROSS(AA1,BB1){XG51};
DRAWTEXT(AF,LLV(L,4),'止损线'),COLORBLUE{XG51};
TYP1:=(HIGH+LOW+CLOSE)/3{XG51};
C1:=(TYP1-MA(TYP1,14))/(0.015*AVEDEV(TYP1,14)){XG51};
C2:=(TYP1-MA(TYP1,55))/(0.015*AVEDEV(TYP1,55)){XG51};
cci背:=IF(LLV(CCI,2)>LLV(CCI,7) AND LLV(L,2)<=LLV(L,7) AND HHV(H,10)>MA(CLOSE,60),1,0),COLORRED{XG51};
DRAWICON(CCI背 AND REF(CCI,1)<-150 AND C>O,L*0.98,1){XG51};
DRAWTEXT(CCI背 AND REF(CCI,1)<-150 AND C>O,L*0.9,'杀'),COLORCYAN{XG51};
XL1:=((LLV(LOW,3) = LLV(LOW,60)) AND ((CLOSE / REF(CLOSE,1)) >= 1.04)){XG51};
DRAWTEXT(FILTER(((XL1 > 0) AND LOW),5),(LOW - 0.4),'●买点'){XG51};
XL2:=(((CLOSE - EMA(CLOSE,21)) / EMA(CLOSE,21)) * 100){XG51};
XL3:=CROSS(XL2,(0 - 20)){XG51};
DRAWTEXT((XL3 > 0),(LOW - 0.2),'●绝对底部'){X-G_5-1-C-N-{};