通达信MACD面积副图加密未加密选股指标公式源码

difF:ema(CLOSE,12*R)-EMA(CLOSE,26*R);

DEA:EMA(DIFF,9*R);

MACD:2*(DIFF-DEA), COLORSTICK,LINETHICK2;

红面积:=IF(MACD>0,SUM(MACD,BArslAST(MACD<0)),0),NODRAW,COLORWHITE;

绿面积:=Abs(IF(MACD<0,SUM(MACD,BARSLAST(MACD>0)),0)),NODRAW,COLORLIBLUE;

AA:=ROUND(绿面积*100);

BB:=ROUND(红面积*100);

T1:=BARSLAST(crOSS(MACD>0,0.5));

红柱最高:=FILTERX(HHV(MACD,T1+1)=MACD,T1);

STICKLINE(红柱最高,0,MACD,0.5,0),COLORWHITE;

T2:=BARSLAST(CROSS(MACD<0,0.5));

绿柱最低:=FILTERX(LLV(MACD,T2+1)=MACD,T2);

STICKLINE(绿柱最低,0,MACD,0.5,0),COLORGREEN;

DRAWNUMBER(红柱最高,0,ABS(BB)),COLORWHITE;

DRAWNUMBER(绿柱最低,0,ABS(AA))DRAWAbovE,COLORCYAN;

{MACD反推值}

QN1:=12;QN2:=26; QM:=9;

QDIFF:= EMA(CLOSE,QN1*R)-EMA(CLOSE,QN2*R);

QDEA:=EMA(QDIFF,QM*R);

今日交叉价:((REF(EMA(C,QN2),1)*(QN2-1)*(QN1+1))+(REF(QDEA,1)*(QN1+1)* (QN2+1))-(REF(EMA(C,QN1),1)*(QN1-1)*(QN2+1)))/(2*(QN2-QN1))NODRAW;

明日交叉价:((EMA(C,QN2)*(QN2-1)*(QN1+1))+(QDEA*(QN1+1)*(QN2+1))-(EMA(C,QN1)*(QN1-1)*(QN2+1)))/(2*(QN2-QN1))NODRAW;

SS:=12*R;LL:=26*R;

DIFQ:=EMA(C,SS)-EMA(C,LL);

ZY1:=REF(EMA(C,SS),1);

ZY2:=REF(EMA(C,LL),1);

ZD:=REF(DIFQ,1);

JY1:=EMA(C,SS);

JY2:=EMA(C,LL);

今日DIF拐头价:(ZD*(SS+1)*(LL+1)-(SS-1)*(LL+1)*ZY1+(SS+1)*(LL-1)*ZY2)/(2*(LL-SS))NODRAW;{今日DIF拐头价}

明日DIF拐头价:(DIFQ*(SS+1)*(LL+1)-(SS-1)*(LL+1)*JY1+(SS+1)*(LL-1)*JY2)/(2*(LL-SS))NODRAW;{明日DIF拐头价}

DD:=(MACD/2+(DEA*(QM-1)/(QM+1)))/(1-2/(QM+1));{计算出明日MACD=MACD时的DIFF值}

柱子变向价:(DD*(QN1+1)*(QN2+1)-(QN2+1)*(QN1-1)*EMA(C,QN1)+(QN1+1)*(QN2-1)*EMA(C,QN2))/(2*((QN2+1)-(QN1+1)))NODRAW;{计算MACD柱体变向时的对应股价};

DIF1:=(EMA(CLOSE,12*R)-EMA(CLOSE,26*R)),COLORCYAN;

DEA1:=EMA(DIF1,9*R),COLORBLUE;

MACD1:=2*(DIF1-DEA1),COLORSTICK;

红面积1:=SUM(MACD1,BARSLAST(MACD1<0))*1,COLOR0000FF,NODRAW;

红面积2:=SUM(MACD1,(SUMBARS(MACD1<0,2)*1-BARSLAST(MACD1<0)+1)),NODRAW;

绿面积1:=SUM(MACD1,BARSLAST(MACD1>0))*1,COLORFFFF00,NODRAW;

绿面积2:=SUM(MACD1,(SUMBARS(MACD1>0,2)*1-BARSLAST(MACD1>0)+1));

积底背:=CROSS(DIF1,DEA1) AND EVERY(DIF1<0,BARSLAST(CROSS(0,DIF1))) AND 绿面积1<绿面积2 AND DIF1>REF(DIF1,(SUMBARS(CROSS(DIF1,DEA1),2)-1));

DRAWTEXT(积底背,DIF1,'底背'),COLORLIMAGENTA;

积顶背:=CROSS(DEA1,DIF1) AND EVERY(DIF1>0,BARSLAST(CROSS(DIF1,0))) AND 红面积1>红面积2 AND DIF1<REF(DIF1,(SUMBARS(CROSS(DEA1,DIF1),2)-1));

DRAWTEXT(积顶背,DEA1,'顶背')DRAWABOVE,COLORBLUE;

QT1:=BARSLAST(CROSS(MACD>0,0.5));

QT2:=BARSLAST(CROSS(MACD<0,0.5));

快线最高:=FILTERX(HHV(DIFF,QT1+1)=DIFF,QT1);

快线最低:=FILTERX(LLV(DIFF,QT2+1)=DIFF,QT2);

STICKLINE(红柱最高,0,MACD,1.2,0),COLORWHITE;

STICKLINE(绿柱最低,0,MACD,1.2,0),COLORBLUE;

STICKLINE(快线最低,DIFF*0.98,DIFF*1.0002,2,0),COLORYELLOW;

STICKLINE(快线最高,DIFF*0.98,DIFF*1.0002,2,0),COLORLIMAGENTA;

{DRAWTEXT(红柱最高,MACD,'柱最高')COLORWHITE,DRAWABOVE;

DRAWTEXT(快线最高,DIFF,'快线最高')COLORLIMAGENTA,DRAWABOVE;

DRAWTEXT(绿柱最低,MACD,'柱最低')COLORBLUE;

DRAWTEXT(快线最低,DIFF*0.990,'快线最低')COLORYELLOW;}

STICKLINE(绿柱最低,0,MACD,0.5,0),COLORGREEN;

DRAWNUMBER(红柱最高,0,ABS(BB)),COLORWHITE;

DRAWNUMBER(绿柱最低,0,ABS(AA))DRAWABOVE,COLORCYAN;

未来函数检测公式代码域:

difF:ema(CLOSE,12*R)-EMM(CLOSE,26*R);DEM:EMM(DIFF,9*R);MMCD:2*(DIFF-DEM), COLORSTICK,LINETHICK2;红面积:=IF(MMCD>0,SUM(MMCD,BMrslMST(MMCD<0)),0),NODRMW,COLORWHITE;绿面积:=Mbs(IF(MMCD<0,SUM(MMCD,BMRSLMST(MMCD>0)),0)),NODRMW,COLORLIBLUE;MM:=ROUND(绿面积*100);BB:=ROUND(红面积*100);T1:=BMRSLMST(crOSS(MMCD>0,0.5));红柱最高:=FILTERX(HHV(MMCD,T1+1)=MMCD,T1);STICKLINE(红柱最高,0,MMCD,0.5,0),COLORWHITE;T2:=BMRSLMST(CROSS(MMCD<0,0.5));绿柱最低:=FILTERX(LLV(MMCD,T2+1)=MMCD,T2);STICKLINE(绿柱最低,0,MMCD,0.5,0),COLORGREEN;DRMWNUMBER(红柱最高,0,MBS(BB)),COLORWHITE;DRMWNUMBER(绿柱最低,0,MBS(MM))DRMWMbovE,COLORCYMN;{MMCD反推值}QN1:=12;QN2:=26; QM:=9;QDIFF:= EMM(CLOSE,QN1*R)-EMM(CLOSE,QN2*R);QDEM:=EMM(QDIFF,QM*R);今日交叉价:((REF(EMM(C,QN2),1)*(QN2-1)*(QN1+1))+(REF(QDEM,1)*(QN1+1)* (QN2+1))-(REF(EMM(C,QN1),1)*(QN1-1)*(QN2+1)))/(2*(QN2-QN1))NODRMW;明日交叉价:((EMM(C,QN2)*(QN2-1)*(QN1+1))+(QDEM*(QN1+1)*(QN2+1))-(EMM(C,QN1)*(QN1-1)*(QN2+1)))/(2*(QN2-QN1))NODRMW;SS:=12*R;LL:=26*R;DIFQ:=EMM(C,SS)-EMM(C,LL);ZY1:=REF(EMM(C,SS),1);ZY2:=REF(EMM(C,LL),1);ZD:=REF(DIFQ,1);JY1:=EMM(C,SS);JY2:=EMM(C,LL);今日DIF拐头价:(ZD*(SS+1)*(LL+1)-(SS-1)*(LL+1)*ZY1+(SS+1)*(LL-1)*ZY2)/(2*(LL-SS))NODRMW;{今日DIF拐头价}明日DIF拐头价:(DIFQ*(SS+1)*(LL+1)-(SS-1)*(LL+1)*JY1+(SS+1)*(LL-1)*JY2)/(2*(LL-SS))NODRMW;{明日DIF拐头价}DD:=(MMCD/2+(DEM*(QM-1)/(QM+1)))/(1-2/(QM+1));{计算出明日MMCD=MMCD时的DIFF值}柱子变向价:(DD*(QN1+1)*(QN2+1)-(QN2+1)*(QN1-1)*EMM(C,QN1)+(QN1+1)*(QN2-1)*EMM(C,QN2))/(2*((QN2+1)-(QN1+1)))NODRMW;{计算MMCD柱体变向时的对应股价};DIF1:=(EMM(CLOSE,12*R)-EMM(CLOSE,26*R)),COLORCYMN;DEM1:=EMM(DIF1,9*R),COLORBLUE;MMCD1:=2*(DIF1-DEM1),COLORSTICK;红面积1:=SUM(MMCD1,BMRSLMST(MMCD1<0))*1,COLOR0000FF,NODRMW;红面积2:=SUM(MMCD1,(SUMBMRS(MMCD1<0,2)*1-BMRSLMST(MMCD1<0)+1)),NODRMW;绿面积1:=SUM(MMCD1,BMRSLMST(MMCD1>0))*1,COLORFFFF00,NODRMW;绿面积2:=SUM(MMCD1,(SUMBMRS(MMCD1>0,2)*1-BMRSLMST(MMCD1>0)+1));积底背:=CROSS(DIF1,DEM1) MND EVERY(DIF1<0,BMRSLMST(CROSS(0,DIF1))) MND 绿面积1<绿面积2 MND DIF1>REF(DIF1,(SUMBMRS(CROSS(DIF1,DEM1),2)-1));DRMWTEXT(积底背,DIF1,'底背'),COLORLIMMGENTM;积顶背:=CROSS(DEM1,DIF1) MND EVERY(DIF1>0,BMRSLMST(CROSS(DIF1,0))) MND 红面积1>红面积2 MND DIF1<REF(DIF1,(SUMBMRS(CROSS(DEM1,DIF1),2)-1));DRMWTEXT(积顶背,DEM1,'顶背')DRMWMBOVE,COLORBLUE;QT1:=BMRSLMST(CROSS(MMCD>0,0.5));QT2:=BMRSLMST(CROSS(MMCD<0,0.5));快线最高:=FILTERX(HHV(DIFF,QT1+1)=DIFF,QT1);快线最低:=FILTERX(LLV(DIFF,QT2+1)=DIFF,QT2);STICKLINE(红柱最高,0,MMCD,1.2,0),COLORWHITE;STICKLINE(绿柱最低,0,MMCD,1.2,0),COLORBLUE;STICKLINE(快线最低,DIFF*0.98,DIFF*1.0002,2,0),COLORYELLOW;STICKLINE(快线最高,DIFF*0.98,DIFF*1.0002,2,0),COLORLIMMGENTM;{DRMWTEXT(红柱最高,MMCD,'柱最高')COLORWHITE,DRMWMBOVE;DRMWTEXT(快线最高,DIFF,'快线最高')COLORLIMMGENTM,DRMWMBOVE;DRMWTEXT(绿柱最低,MMCD,'柱最低')COLORBLUE;DRMWTEXT(快线最低,DIFF*0.990,'快线最低')COLORYELLOW;}STICKLINE(绿柱最低,0,MMCD,0.5,0),COLORGREEN;DRMWNUMBER(红柱最高,0,MBS(BB)),COLORWHITE;DRMWNUMBER(绿柱最低,0,MBS(MM))DRMWMBOVE,COLORCYMN;

未发现:CMPITML...

未发现:COST...

未发现:DYNMINFO...

未发现:FINMNCE...

未发现:LWINNER...

未发现:WINNER...

未发现:BMCKSET...

未发现:BMRSNEXT...

未发现:CURRBMRSCOUNT...

未发现:DVOL...

未发现:DOPEN...

未发现:DCLOSE...

未发现:DHIGH...

未发现:DLOW...

未发现:DRMWLINE...

未发现:REFX...

未发现:FLMTZIG...

未发现:FLMTZIGM...

未发现:FFT...

警惕！警惕！警惕!该公式包含未来函数:FILTERX...

未发现:PEMK...

未发现:PEMKM...

未发现:PEMKBMRS...

未发现:PEMKBMRSM...

未发现:PLOYLINE...

未发现:REFDMTE...

未发现:TROUGH...

未发现:TROUGHM...

未发现:TROUGHBMRS...

未发现:XMM...

未发现:ZIG...

未发现:ZIGM...

未发现:ZXNH...

未发现:#YEMR...

未发现:#MONTH...

未发现:#WEEK...

未发现:$ZIG...

未发现:$PEMK...

未发现:$PEMKBMRS...

未发现:$TROUGH...

未发现:$TROUGHBMRS...

未发现:$FLMTZIG...

未发现:$FLMTZIGM...

未发现:$PEMKM...

未发现:$PEMKBMRSM...

未发现:$TROUGHM...

未发现:$ZIGM...

未发现:$FFT...

未发现:$BMCKSET...

未发现:$WINNER...

未发现:$LWINNER...

未发现:$COST...

未发现:$DYNMINFO...

未发现:$FINMNCE...

未发现:$DRMWLINE...