MACD面积板块红绿蛇条指标公式源码[同花顺公式]

相关标签: 世界最毒的毒蛇第一名 、 红绿相间的蛇是不是毒蛇 、 绿和白混在一起的蛇 、 真正的鸡冠蛇图片 、 竹叶青蛇图片 、 一段红一段绿的蛇 、 红绿多种颜色蛇 、 绿白的蛇 、 水蛇红绿相间的蛇 、 虎斑颈槽蛇 、 红色的蛇是什么蛇 、 红黄绿相间的蛇 、

原理解析：
输出DIFF : 收盘价的7日指数移动平均 - 收盘价的26日指数移动平均 输出DEA : DIFF的6日指数移动平均 输出平滑异同平均 : 2*(DIFF-DEA), COLORSTICK 赋值: DEA-DIFF 绿柱面积赋值:如果平滑异同平均<0,返回平滑异同平均的上次JC<0距今天数日累和,否则返回0 红柱面积赋值:如果平滑异同平均>0,返回平滑异同平均的上次JC>0距今天数日累和,否则返回0 本次最低价赋值:上次JC<0距今天数日内最低价的最低值 本次最高价赋值:上次JC>0距今天数日内最高价的最高值 X1赋值:如果平滑异同平均<0,返回上次DIFF上穿DEA距今天数,否则返回0 前次绿柱面积赋值:X1+1日前的绿柱面积 前次最低价赋值:X1+1日前的本次最低价 Y1赋值:如果(绿柱面积<0ANDABS(绿柱面积)<前次绿柱面积的绝对值AND本次最低价<前次最低价),返回1,否则返回0 RS1赋值: 平滑异同平均<0 AND 1日前的平滑异同平均<0 AND 收盘价<前次最低价AND 绿柱面积的绝对值<前次绿柱面积的绝对值 AND 平滑异同平均的绝对值<1日前的平滑异同平均的绝对值 底背驰赋值: 如果DIFF上穿DEA,返回1日前的Y1,否则返回0 当满足条件底背驰时,在-0.01位置书写文字,COLOR00FFFF 当满足条件底背驰时,在0和-0.01位置之间画柱状线,宽度为4,0不为0则画空心柱.,COLOR0000FF 当满足条件底背驰时,在0位置画23号图标,画黄色 画带状线 输出遵:如果DIFF>=DEA,返回DIFF,否则返回无效数,画红色 输出守:如果DEA>=DIFF,返回DEA,否则返回无效数,COLORFF9900 输出纪:如果DIFF>=DEA,返回DEA,否则返回无效数,COLOR00FFFF 输出律:如果DEA>=DIFF,返回DIFF,否则返回无效数,COLOR00FF00 X2赋值:如果平滑异同平均>0,返回上次DEA上穿DIFF距今天数,否则返回0 前次红柱面积赋值:X2+1日前的红柱面积 COM前次最高价赋值:X2+1日前的本次最高价 Y2赋值:如果(红柱面积>0AND红柱面积<前次红柱面积AND本次最高价>前次最高价),返回1,否则返回0 RS2赋值: 平滑异同平均>0 AND 1日前的平滑异同平均>0 AND 收盘价>前次最高价 AND 红柱面积的绝对值<前次红柱面积的绝对值 AND 平滑异同平均的绝对值<1日前的平滑异同平均的绝对值 顶背驰赋值: 如果DEA上穿DIFF,返回1日前的Y2,否则返回0 当满足条件顶背驰时,在0位置画19号图标,COLOR00FF00 当满足条件顶背驰时,在0和0.01位置之间画柱状线,宽度为4,0不为0则画空心柱.,COLOR00FF00 当满足条件顶背驰时,在0.01位置书写文字,COLORFF0000 输出买:如果底背驰,返回0.1,否则返回0,COLOR0000FF 输出卖:如果顶背驰,返回0.1,否则返回0,COLOR00FF00

 来源:程序化99（ WWW.CXH99.COM ）

源码：

DIFF : EMA(CLOSE,7) - EMA(CLOSE,26);DEA : EMA(DIFF,6);MACD : 2*(DIFF-DEA), COLORSTICK;JC := DEA-DIFF;绿柱面积:=IF(MACD<0,SUM(MACD,BARSLAST(JC<0)),0);红柱面积:=IF(MACD>0,SUM(MACD,BARSLAST(JC>0)),0);本次最低价:=LLV(L,BARSLAST(JC<0));本次最高价:=HHV(H,BARSLAST(JC>0));X1:=IF (MACD<0,BARSLAST(CROSS(DIFF,DEA)),0);前次绿柱面积:=REF(绿柱面积,X1+1);前次最低价:=REF(本次最低价,X1+1);Y1:=IF((绿柱面积<0 AND ABS(绿柱面积)<ABS(前次绿柱面积)AND 本次最低价<前次最低价 ),1,0);RS1:= MACD<0 AND REF(MACD,1)<0 AND C<前次最低价AND ABS(绿柱面积)<ABS(前次绿柱面积) AND ABS(MACD)<ABS(REF(MACD,1));底背驰:= IF (CROSS(DIFF,DEA),REF(Y1,1),0);DRAWTEXT(底背驰,-0.01,'底背离'),COLOR00FFFF;STICKLINE(底背驰,0,-0.01,4,0),COLOR0000FF;DRAWICON(底背驰,0,23),coloryellow;DRAWBAND(DIFF,RGB(200,50,55),DEA,RGB(50,100,10));遵:IF(DIFF>=DEA,DIFF,DRAWNULL),colorred;守:IF(DEA>=DIFF,DEA,DRAWNULL),COLORFF9900;纪:IF(DIFF>=DEA,DEA,DRAWNULL),COLOR00FFFF;律:IF(DEA>=DIFF,DIFF,DRAWNULL),COLOR00FF00;X2:=IF (MACD>0,BARSLAST(CROSS(DEA,DIFF)),0);前次红柱面积:=REF(红柱面积,X2+1);///www..com前次最高价:=REF(本次最高价,X2+1);Y2:=IF((红柱面积>0 AND 红柱面积<前次红柱面积 AND 本次最高价>前次最高价 ),1,0);RS2:= MACD>0 AND REF(MACD,1)>0 AND C>前次最高价 AND ABS(红柱面积)<ABS(前次红柱面积) AND ABS(MACD)<ABS(REF(MACD,1));顶背驰:= IF (CROSS(DEA,DIFF),REF(Y2,1),0);DRAWICON(顶背驰,0,19),COLOR00FF00;STICKLINE(顶背驰,0,0.01,4,0),COLOR00FF00;DRAWTEXT(顶背驰,0.01,'顶背离'),COLORFF0000;买:IFF(底背驰,0.1,0),COLOR0000FF;卖:IFF(顶背驰,0.1,0),COLOR00FF00;

公式导入教程: 【通达信公式源码导入方法教程】 【同花顺公式源码导入方法教程】 【大智慧新一代公式源码导入方法教程】