老指标新用法：macd有狼心(通达信)，龙戏珠副图(通达信)

老指标新用法：macd有狼心(通达信)

{macd有狼心}

dif1:=ema(CLOSE,12)-Ema(CLOSE,26),COLOR00FF00,LINETHICK1;

DEA1:=EMA(DIF1,9),COLOR00FF00,LINETHICK1;

DRAWICON(crOSS(DIF1,DEA1),DEA1,1);

DRAWICON(CROSS(DEA1,DIF1),DEA1,2);

{主升浪消失出局}DI:=EMA(CLOSE,4)-EMA(CLOSE,13),COLORMAGENTA,LINETHICK2;

D1:=EMA(DI,5),COLORGRAY;

D2:=EMA(DI,10),COLORGRAY;

D3:=EMA(DI,20),COLORGRAY;

D4:=EMA(DI,30),COLORGRAY;

D5:=EMA(DI,60),COLORGRAY;

D6:=EMA(DI,90),COLORGRAY;

D7:=EMA(DI,120),COLORGRAY;

D8:=EMA(DI,250),COLORGRAY;

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),COLORRED;

STICKLINE(AA,DIF1,DEA1,3,0),COLORE6E8FA;

{柱状线}MacD1:=(DIF1-DEA1)*2;

STICKLINE(MACD1>REF(MACD1,1),0,MACD1,3.2,0),COLOR0000FF;

STICKLINE(MACD1>REF(MACD1,1),0,MACD1,2.7,0),,COLOR0000FF;

STICKLINE(MACD1>REF(MACD1,1),0,MACD1,2.1,0),COLOR0000FF;

STICKLINE(MACD1>REF(MACD1,1),0,MACD1,1.5,0),COLOR0000FF;

STICKLINE(MACD1>REF(MACD1,1),0,MACD1,0.9,0),COLOR0000FF;

STICKLINE(MACD1>REF(MACD1,1),0,MACD1,0.3,0),COLORCC66FF;

STICKLINE(MACD1<REF(MACD1,1),0,MACD1,3.2,0),COLORFF9900;

STICKLINE(MACD1<REF(MACD1,1),0,MACD1,2.7,0),COLORFF9900;

STICKLINE(MACD1<REF(MACD1,1),0,MACD1,2.1,0),COLORFF9900;

STICKLINE(MACD1<REF(MACD1,1),0,MACD1,1.5,0),COLORFF9900;

STICKLINE(MACD1<REF(MACD1,1),0,MACD1,0.9,0),COLORFF9900;

STICKLINE(MACD1<REF(MACD1,1),0,MACD1,0.3,0),COLORFFCC00;

STICKLINE(MACD1>=0 OR MACD1<=0,0,0,50,1),COLORWHITE;

{买点提示}A1:=BArslAST(REF(CROSS(DIF1,DEA1),1));

BL:=REF(CLOSE,A1+1)>CLOSE AND DIF1>REF(DIF1,A1+1) AND CROSS(DIF1,DEA1);

{STICKLINE(BL,0,1,2,0),COLOR00FF00;}

DRAWICON(BL,DEA1,23);

A2:=BARSLAST(REF(CROSS(DEA1,DIF1),1));

DBL:=REF(CLOSE,A2+1)<CLOSE AND REF(DIF1,A2+1)>DIF1 AND CROSS(DEA1,DIF1);

DRAWICON(DBL,DEA1,12);

低位金叉:=CROSS(DIF1,DEA1) AND DIF1<-0.1;

DRAWTEXT(低位金叉,DIF1,' 低位金叉');

JCCOUNT:=COUNT(CROSS(DIF1,DEA1),BARSLAST(DEA1>=0));

二次金叉:=CROSS(DIF1,DEA1) AND DEA1<0 AND COUNT(JCCOUNT=2,21)=1;

DRAWICON(二次金叉,DEA1*1.04,13) ;

DRAWTEXT(二次金叉,-0.1,' 二次金叉'),COLORFF00FF;

A10:=BARSLAST(REF(CROSS(DIF1,DEA1),1));

底背离:=REF(CLOSE,A10+1)>CLOSE AND DIF1>REF(DIF1,A10+1) AND CROSS(DIF1,DEA1);

DRAWLINE(A10=0,DEA1,底

背离,DEA1,0),COLORRED,LINETHICK2;

DRAWTEXT(底背离,-0.50,' 底背离'),COLOR00FF00;

A20:=BARSLAST(REF(CROSS(DEA1,DIF1),1));

顶背离:=REF(CLOSE,A20+1)<CLOSE AND REF(DIF1,A20+1)>DIF1 AND CROSS(DEA1,DIF1);

DRAWLINE(A20=0,DEA1,顶背离,DEA1,0),COLORWHITE,LINETHICK2;

{趋势柱状线}WY1001:=(2*CLOSE+HIGH+LOW)/4;

WY1002:=EMA(WY1001,4);

WY1003:=EMA(WY1002,4);

WY1004:=EMA(WY1003,4);

X:=(WY1004-REF(WY1004,1))/REF(WY1004,1)*100;

X1:=IF(X<REF(X,1),X,DRAWNULL),COLORWHITE,LINETHICK2;

XO:=MA(X,2),COLOR9932CD;

SI:=REF(X,1);

STICKLINE(X>SI,X,SI,2.3,0),COLOR0000FF;

STICKLINE(X>SI,X,SI,0.3,0),COLORCC66FF;

STICKLINE(X<SI,X,SI,2.3,0),COLOR00BB00;

STICKLINE(X<SI,X,SI,0.3,0),COLOR00FF00;

STICKLINE(底背离,X,SI,1,0),COLORYELLOW;

STICKLINE(低位金叉,X,SI,1,0),COLORWHITE;

STICKLINE(低位金叉 AND 底背离,X,SI,0.1,0),COLORYELLOW;

{买点2，可省}

VAR2:=REF(LOW,1);

VAR3:=SMA(Abs(LOW-VAR2),3,1)/SMA(MAX(LOW-VAR2,0),3,1)*100;

VAR4:=EMA(IF(CLOSE*1.3,VAR3*10,VAR3/10),3);

VAR5:=LLV(LOW,13);

VAR6:=HHV(VAR4,13);

VAR7:=IF(MA(CLOSE,34),1,0);

VAR8:=EMA(IF(LOW<=VAR5,(VAR4+VAR6*2)/2,0),3)/618*VAR7;

VAR9:=IF(VAR8>100,100,VAR8);

VAR10:=IF(VAR9>-120,VAR9,0);

VAR11:=VAR10<REF(VAR10,1);

DRAWTEXT(VAR11 AND REF(NOT(VAR11),1),0,'☆'),COLORYELLOW;

{走势线}DIF:DIF1,LINETHICK1,COLORGREEN;

DEA:DEA1,LINETHICK1,COLORGREEN;

DIF2:IF(MACD>REF(MACD,1),DIF1,DRAWNULL),COLORRED,LINETHICK1;

DEA2:IF(DEA1<DIF1,DEA1,DRAWNULL),COLORFF00FF,LINETHICK1;

{主力进}VAR12:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);

VAR13:=SMA(ABS(LOW-VAR12),13,1)/SMA(MAX(LOW-VAR12,0),10,1);

VAR14:=EMA(VAR13,10);

VAR15:=LLV(LOW,33);

VAR16:=EMA(IF(LOW<=VAR15,VAR14,0),3);

主力进场:=IF(VAR16>REF(VAR16,1),VAR16,0),COLORRED,NODRAW;

STICKLINE(主力进场,X,SI,0.1,0),COLORRED;

龙戏珠副图(通达信)

DRAWBAND(20,RGB(0,255,250),-20,RGB(155,50,50));子1:=

SMA(maX(C-REF(C,1),0),5,1)/SMA(Abs(C-REF(C,1)),5,1)*100;

子2:=SMA(MAX(C-REF(C,1),0),10,1)/SMA(ABS(C-REF(C,1)),10,1)*100;

水1:=ema(子1,2);

水2:=EMA(子2,2);

山水3:(水1-水2),COLORDBDB70 ,LINETHICK4;

鲤鱼现身:IF(山水3>REF(山水3,1),山水3,DRAWNULL),COLORFF00FF,LINETHICK4;

山水4:-山水3,COLORB5A642 ,LINETHICK4;

鲤鱼跃龙门:IF(山水3>0,山水4,DRAWNULL),COLORYELLOW,LINETHICK4;

鲤鱼跳龙门:IF(山水3>0,山水3,DRAWNULL),COLORYELLOW,LINETHICK4;

DRAWBAND(山水3,RGB(240,50,50),山水4,RGB(50,98,240));

DRAWBAND(鲤鱼跳龙门,RGB(235,0,230),鲤鱼跃龙门,RGB(0,104,154));

RSVP:=(C-LLV(L,30))/(HHV(H,30)-LLV(L,30))*20-20;

KV:=SMA(RSVP,3,1);

DV:=SMA(KV,3,1);

JV:=3*KV-2*DV;

ZDZK1:=EMA(JV,6);

ZDZK2:=REF(ZDZK1,1);

猛龙出海:IF(ZDZK1>=ZDZK2,ZDZK1+2,ZDZK2),COLORYELLOW,LINETHICK5;

做空:IF(ZDZK2-ZDZK1,ZDZK2,ZDZK1),COLORGREEN,LINETHICK5;

DRAWBAND(做空,RGB(0,255,250),猛龙出海,RGB(255,50,50));

mtm:=C-REF(C,1);

金龙起舞:30*EMA(EMA(MTM,12),12)/EMA(EMA(ABS(MTM),12),12)LINETHICK3,COLORWHITE;

多空趋势线:MA(金龙起舞,6)LINETHICK3,COLORYELLOW;

DRAWBAND(多空趋势线,RGB(0,22,224),金龙起舞,RGB(255,50,50));

底线:0,COLORWHITE,POINTDOT,LINETHICK4;