通达信MACD面积副图指标公式源码
可以通过调整参数来调整macd的周期，参数的R，参数为1是大周期，参数为2是正常周期macd。
可以通过调整参数来调整macd的周期，参数的R，参数为1是大周期，参数为2是正常周期macd。
看到那个蓝色图标和红色图标。
公式是划线公式，使用未来函数，非喜勿扰，绕道即可。
MACD面积 源码是：
{参数R默认2}
R:=1;
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,COLORRED;
绿面积:=ABS(IF(MACD<0,SUM(MACD,BARSLAST(MACD>0)),0)),NODRAW,COLORLIGREEN;
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),COLORRED;
T2:=BARSLAST(CROSS(MACD<0,0.5));
绿柱最低:=FILTERX(LLV(MACD,T2+1)=MACD,T2);
STICKLINE(绿柱最低,0,MACD,0.5,0),COLORCYAN;
DRAWNUMBER(红柱最高,0,ABS(BB)),COLORRED;
DRAWNUMBER(绿柱最低,0,ABS(AA))DRAWABOVE,COLORGREEN;
{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)),COLORGREEN;
DEA1:=EMA(DIF1,9*R),COLORYELLOW;
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,'底背'),COLORMAGENTA;
积顶背:=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,COLORYELLOW;
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),COLORRED;
STICKLINE(绿柱最低,0,MACD,1.2,0),COLORYELLOW;
STICKLINE(快线最低,DIFF*0.98,DIFF*1.0002,2,0),COLORBLUE;
STICKLINE(快线最高,DIFF*0.98,DIFF*1.0002,2,0),COLORMAGENTA;
{DRAWTEXT(红柱最高,MACD,'柱最高')COLORRED,DRAWABOVE;
DRAWTEXT(快线最高,DIFF,'快线最高')COLORMAGENTA,DRAWABOVE;
DRAWTEXT(绿柱最低,MACD,'柱最低')COLORYELLOW;
DRAWTEXT(快线最低,DIFF*0.990,'快线最低')COLORBLUE;}
STICKLINE(绿柱最低,0,MACD,0.5,0),COLORCYAN;
DRAWNUMBER(红柱最高,0,ABS(BB)),COLORRED;
DRAWNUMBER(绿柱最低,0,ABS(AA))DRAWABOVE,COLORGREEN;
未来函数检测结果如下：
该公式没有未来函数
定制指标公式、软件请联系QQ或微信同号：88652583
R赋值:1
输出DIFF:收盘价的12*R日指数移动平均-收盘价的26*R日指数移动平均
输出DEA:DIFF的9*R日指数移动平均
输出平滑异同平均线:2*(DIFF-DEA), COLORSTICK,线宽为2
红面积赋值:如果MACD>0,返回MACD的上次MACD<0距今天数日累和,否则返回0,NODRAW,画红色
绿面积赋值:如果MACD<0,返回MACD的上次MACD>0距今天数日累和,否则返回0的绝对值,NODRAW,画淡绿色
AA赋值:对绿面积*100(进行)四舍五入
BB赋值:对红面积*100(进行)四舍五入
T1赋值:上次MACD>0上穿0.5距今天数
红柱最高赋值:T1+1日内MACD的最高值=MACD的T1日反向过滤
当满足条件红柱最高时,在0和MACD位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,画红色
T2赋值:上次MACD<0上穿0.5距今天数
绿柱最低赋值:T2+1日内MACD的最低值=MACD的T2日反向过滤
当满足条件绿柱最低时,在0和MACD位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,画青色
当满足条件红柱最高时,在0位置书写数字,画红色
当满足条件绿柱最低时,在0位置书写数字显示在位置之上,画绿色
QN1赋值:12
QN2赋值:26
QM赋值:9
QDIFF赋值: 收盘价的QN1*R日指数移动平均-收盘价的QN2*R日指数移动平均
QDEA赋值:QDIFF的QM*R日指数移动平均
输出今日交叉价:((1日前的收盘价的QN2日指数移动平均*(QN2-1)*(QN1+1))+(1日前的QDEA*(QN1+1)* (QN2+1))-(1日前的收盘价的QN1日指数移动平均*(QN1-1)*(QN2+1)))/(2*(QN2-QN1))NODRAW
输出明日交叉价:((收盘价的QN2日指数移动平均*(QN2-1)*(QN1+1))+(QDEA*(QN1+1)*(QN2+1))-(收盘价的QN1日指数移动平均*(QN1-1)*(QN2+1)))/(2*(QN2-QN1))NODRAW
SS赋值:12*R
LL赋值:26*R
DIFQ赋值:收盘价的SS日指数移动平均-收盘价的LL日指数移动平均
ZY1赋值:1日前的收盘价的SS日指数移动平均
ZY2赋值:1日前的收盘价的LL日指数移动平均
ZD赋值:1日前的DIFQ
JY1赋值:收盘价的SS日指数移动平均
JY2赋值:收盘价的LL日指数移动平均
输出今日DIF拐头价:(ZD*(SS+1)*(LL+1)-(SS-1)*(LL+1)*ZY1+(SS+1)*(LL-1)*ZY2)/(2*(LL-SS))NODRAW
输出明日DIF拐头价:(DIFQ*(SS+1)*(LL+1)-(SS-1)*(LL+1)*JY1+(SS+1)*(LL-1)*JY2)/(2*(LL-SS))NODRAW
DD赋值:(MACD/2+(DEA*(QM-1)/(QM+1)))/(1-2/(QM+1))
输出柱子变向价:(DD*(QN1+1)*(QN2+1)-(QN2+1)*(QN1-1)*收盘价的QN1日指数移动平均+(QN1+1)*(QN2-1)*收盘价的QN2日指数移动平均)/(2*((QN2+1)-(QN1+1)))NODRAW
DIF1赋值:(收盘价的12*R日指数移动平均-收盘价的26*R日指数移动平均),画绿色
DEA1赋值:DIF1的9*R日指数移动平均,画黄色
MACD1赋值:2*(DIF1-DEA1),COLORSTICK
红面积1赋值:MACD1的上次MACD1<0距今天数日累和*1,COLOR0000FF,NODRAW
红面积2赋值:MACD1的(MACD1<0累加至2的天数*1-上次MACD1<0距今天数+1)日累和,NODRAW
绿面积1赋值:MACD1的上次MACD1>0距今天数日累和*1,COLORFFFF00,NODRAW
绿面积2赋值:MACD1的(MACD1>0累加至2的天数*1-上次MACD1>0距今天数+1)日累和
积底背赋值:DIF1上穿DEA1 AND 最近上次0上穿DIF1距今天数日一直存在DIF1<0 AND 绿面积1<绿面积2 AND DIF1>(DIF1上穿DEA1累加至2的天数-1)日前的DIF1
当满足条件积底背时,在DIF1位置书写文字,画洋红色
积顶背赋值:DEA1上穿DIF1 AND 最近上次DIF1上穿0距今天数日一直存在DIF1>0 AND 红面积1>红面积2 AND DIF1<(DEA1上穿DIF1累加至2的天数-1)日前的DIF1
当满足条件积顶背时,在DEA1位置书写文字显示在位置之上,画黄色
QT1赋值:上次MACD>0上穿0.5距今天数
QT2赋值:上次MACD<0上穿0.5距今天数
快线最高赋值:QT1+1日内DIFF的最高值=DIFF的QT1日反向过滤
快线最低赋值:QT2+1日内DIFF的最低值=DIFF的QT2日反向过滤
当满足条件红柱最高时,在0和MACD位置之间画柱状线,宽度为1.2,0不为0则画空心柱.,画红色
当满足条件绿柱最低时,在0和MACD位置之间画柱状线,宽度为1.2,0不为0则画空心柱.,画黄色
当满足条件快线最低时,在DIFF*0.98和DIFF*1.0002位置之间画柱状线,宽度为2,0不为0则画空心柱.,画蓝色
当满足条件快线最高时,在DIFF*0.98和DIFF*1.0002位置之间画柱状线,宽度为2,0不为0则画空心柱.,画洋红色
当满足条件绿柱最低时,在0和MACD位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,画青色
当满足条件红柱最高时,在0位置书写数字,画红色
当满足条件绿柱最低时,在0位置书写数字显示在位置之上,画绿色
