划线钻石图公式源码

DIF:(2*EMA(CLOSE,12)-EMA(EMA(CLOSE,12),12)-(2*EMA(CLOSE,26)-EMA(EMA(CLOSE,26),26)))/2.2;

DEA:2.1*EMA(DIF,9)-EMA(EMA(DIF,9),9);

MACD:2.8*(DIF-DEA),COLORSTICK;

DRAWICON(REF(DIF,1)>REF(DIF,2) AND DIF<REF(DIF,1) AND DIF>0 AND DIF>DEA,DIF*1.1,2),COLORGREEN;

DRAWICON(CROSS(DEA,DIF) AND DIF>0,DIF,37),COLORGREEN;

DRAWICON(REF(DIF,1)<REF(DIF,2) AND DIF>REF(DIF,1) AND DIF<0 AND DIF<DEA,DIF*1.1,1),COLORRED;

DRAWICON(CROSS(DIF,DEA) AND DIF<0,DIF,36),COLORRED;

VAR1:=MACD<0 AND MACD>REF(MACD,1) AND REF(MACD,1)<REF(MACD,2) AND REF(MACD,2)<REF(MACD,3) AND REF(MACD,3)<REF(MACD,4);

STICKLINE(VAR1,0,MACD,0.3,0),COLORRED;

VAR2:=MACD>0 AND MACD<REF(MACD,1) AND REF(MACD,1)>REF(MACD,2) AND REF(MACD,2)>REF(MACD,3) AND REF(MACD,3)>REF(MACD,4);

STICKLINE(VAR2,0,MACD,0.3,0),COLORGREEN;

VAR3:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9));

VAR4:=SMA(VAR3,9,3);

VAR5:=SMA(VAR4,9,3);

VAR6:=3*VAR4-2*VAR5;

VAR7:=CROSS(VAR4,VAR5);

VAR8:=CROSS(VAR5,VAR4);

VAR9:=REF(CLOSE,1);

VAR10:=SMA(MAX(CLOSE-VAR9,0),6,1)/SMA(ABS(CLOSE-VAR9),6,1)*100;

VAR11:=CROSS(DIF,DEA) AND (VAR7 OR (VAR6<20 AND VAR10<20));

VAR12:=CROSS(DEA,DIF) AND (VAR8 OR (VAR6>80 AND VAR10>80));

DRAWICON(VAR11,DEA*1,25);

DRAWICON(VAR12,DEA*1,24);

VAR13:=100-100*(HHV(HIGH,40)-CLOSE)/(HHV(HIGH,40)-LLV(LOW,40))-50;

NOTEXTLU:IF(VAR13>24.99,DIF,DRAWNULL),COLORRED,LINETHICK2;

NOTEXTLU2:IF(VAR13<(-40.009998),DIF,DRAWNULL),COLORGREEN,LINETHICK2;

NOTEXT0:0,DOTLINE,COLORLIGRAY;

VAR14:=IF(PERIOD=0,0.7,IF(PERIOD=1,1.2,IF(PERIOD=2,2,IF(PERIOD=3,2.5,IF(PERIOD=4,3,IF(PERIOD=5,5.5,IF(PERIOD=6,6,IF(PERIOD=7,7,IF(PERIOD=8,3.5,4)))))))));

VAR15:=BARSLAST(CROSS(MACD,0));

VAR16:=REF(VAR15,1)>0 AND VAR15=0;

VAR17:=BARSLAST(VAR16);

VAR18:=REF(VAR15,VAR17+1);

VAR19:=HHVBARS(MACD,VAR17+VAR18);

VAR20:=IF(VAR19>VAR17,REF(MACD,VAR19),0);

VAR21:=IF(VAR19>VAR17,REF(HIGH,VAR19),0);

VAR22:=IF(REF(HIGH,1)=HHV(HIGH,VAR17+VAR18),REF(HIGH,1),0);

VAR23:=(VAR22-VAR21)/VAR21*100;

VAR24:=COUNT(CROSS(0,MACD),VAR17+VAR18);

VAR25:=MACD>0 AND MACD<VAR20 AND HIGH=HHV(HIGH,VAR17+VAR18) AND VAR20>0 AND VAR24=1;

VAR26:=REF(VAR25,1) AND HIGH<REF(HIGH,1) AND MACD>0 AND VAR20>0;

VAR27:=LLVBARS(MACD,VAR17+VAR18);

VAR28:=IF(VAR27>VAR17,REF(MACD,VAR27),0);

VAR29:=IF(VAR27>VAR17,REF(LOW,VAR27),0);

VAR30:=IF(REF(LOW,1)=LLV(LOW,VAR17+VAR18),REF(LOW,1),0);

VAR31:=(VAR29-VAR30)/VAR29*100;

VAR32:=COUNT(CROSS(MACD,0),VAR17+VAR18);

VAR33:=MACD<0 AND MACD>VAR28 AND LOW=LLV(LOW,VAR17+VAR18) AND VAR28<0 AND COUNT(CROSS(MACD,0),VAR17+VAR18)<=3;

VAR34:=REF(VAR33,1) AND LOW>REF(LOW,1) AND MACD<0 AND VAR28<0;

前高:IF(VAR26,VAR21,DRAWNULL),NODRAW,COLOR7FFF00;

现高:IF(VAR26,VAR22,DRAWNULL),NODRAW,COLORGREEN;

幅度_顶:IF(VAR26,VAR23,DRAWNULL),NODRAW,COLORYELLOW;

原低:IF(VAR34,VAR29,DRAWNULL),NODRAW,COLORLIMAGENTA;

现低:IF(VAR34,VAR30,DRAWNULL),NODRAW,COLORRED;

幅度_底:IF(VAR34,VAR31,0),NODRAW,COLORYELLOW;

DRAWICON(VAR34,MACD,26);

DRAWICON(VAR26,MACD,27);

VAR35:=BACKSET(VAR26,VAR19+1);

VAR36:=BACKSET(VAR34,VAR27+1);

NOTEXTMACDL:DRAWLINE(REF(VAR36,1)=0 AND VAR36=1 AND MACD<0,MACD,VAR34,MACD,0),COLORRED;

NOTEXTMACDH:DRAWLINE(REF(VAR35,1)=0 AND VAR35=1 AND MACD>0,MACD,VAR26,MACD,0),COLORGREEN;

涨家数:INDEXADV,NODRAW,COLORRED;

跌家数:INDEXDEC,NODRAW,COLORGREEN;

正量能:涨家数/(涨家数+跌家数)*100,NODRAW,COLORMAGENTA;

负量能:跌家数/(涨家数+跌家数)*100,NODRAW,COLORYELLOW;