股神顶底背离副图指标公式源码[同花顺公式]

相关标签:

原理解析：
A赋值:成交量(手)*收盘价 B赋值:A的1日累和/成交量(手)的1日累和 B1赋值:B的17日指数移动平均 资金赋值:(B-B1)*100/B 输出DIFF : 资金的10日指数移动平均 - 资金的20日指数移动平均 输出DEA : DIFF的6日指数移动平均 输出平滑异同平均 : 2*(DIFF-DEA), COLORSTICK 当满足条件平滑异同平均>=0时,在平滑异同平均和0位置之间画柱状线,宽度为4,1不为0则画空心柱.,COLORF00FF0 当满足条件平滑异同平均<0时,在平滑异同平均和0位置之间画柱状线,宽度为3.1,1不为0则画空心柱.,画白色 当满足条件平滑异同平均<1日前的平滑异同平均ANDMACD>0时,在0和平滑异同平均位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLOR00AAFF 当满足条件平滑异同平均<1日前的平滑异同平均ANDMACD>0时,在0和平滑异同平均位置之间画柱状线,宽度为2.2,0不为0则画空心柱.,COLOR00BBFF 当满足条件平滑异同平均<1日前的平滑异同平均ANDMACD>0时,在0和平滑异同平均位置之间画柱状线,宽度为1.8,0不为0则画空心柱.,COLOR00CCFF 当满足条件平滑异同平均<1日前的平滑异同平均ANDMACD>0时,在0和平滑异同平均位置之间画柱状线,宽度为1.3,0不为0则画空心柱.,COLOR00DDFF 当满足条件平滑异同平均<1日前的平滑异同平均ANDMACD>0时,在0和平滑异同平均位置之间画柱状线,宽度为0.9,0不为0则画空心柱.,COLOR00EEFF 当满足条件平滑异同平均<1日前的平滑异同平均ANDMACD>0时,在0和平滑异同平均位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,COLOR00FFFF 当满足条件平滑异同平均>=1日前的平滑异同平均ANDMACD>0时,在0和平滑异同平均位置之间画柱状线,宽度为4,0不为0则画空心柱.,COLOR0000AA 当满足条件平滑异同平均>=1日前的平滑异同平均ANDMACD>0时,在0和平滑异同平均位置之间画柱状线,宽度为3.3,0不为0则画空心柱.,COLOR0011BB 当满足条件平滑异同平均>=1日前的平滑异同平均ANDMACD>0时,在0和平滑异同平均位置之间画柱状线,宽度为2.2,0不为0则画空心柱.,COLOR0022CC 当满足条件平滑异同平均>=1日前的平滑异同平均ANDMACD>0时,在0和平滑异同平均位置之间画柱状线,宽度为1.65,0不为0则画空心柱.,COLOR0033DD 当满足条件平滑异同平均>=1日前的平滑异同平均ANDMACD>0时,在0和平滑异同平均位置之间画柱状线,宽度为1.1,0不为0则画空心柱.,COLOR0044EE 当满足条件平滑异同平均>=1日前的平滑异同平均ANDMACD>0时,在0和平滑异同平均位置之间画柱状线,宽度为0.55,0不为0则画空心柱.,COLOR0055FF 当满足条件平滑异同平均>1日前的平滑异同平均ANDMACD<0时,在0和平滑异同平均位置之间画柱状线,宽度为4,0不为0则画空心柱.,COLORAA00BB 当满足条件平滑异同平均>1日前的平滑异同平均ANDMACD<0时,在0和平滑异同平均位置之间画柱状线,宽度为3.3,0不为0则画空心柱.,COLORBB11BB 当满足条件平滑异同平均>1日前的平滑异同平均ANDMACD<0时,在0和平滑异同平均位置之间画柱状线,宽度为2.2,0不为0则画空心柱.,COLORCC22BB 当满足条件平滑异同平均>1日前的平滑异同平均ANDMACD<0时,在0和平滑异同平均位置之间画柱状线,宽度为1.65,0不为0则画空心柱.,COLORDD33BB 当满足条件平滑异同平均>1日前的平滑异同平均ANDMACD<0时,在0和平滑异同平均位置之间画柱状线,宽度为1.1,0不为0则画空心柱.,COLOREE44BB 当满足条件平滑异同平均>1日前的平滑异同平均ANDMACD<0时,在0和平滑异同平均位置之间画柱状线,宽度为0.55,0不为0则画空心柱.,COLORFF55BB 当满足条件平滑异同平均<=1日前的平滑异同平均ANDMACD<0时,在0和平滑异同平均位置之间画柱状线,宽度为4,0不为0则画空心柱.,COLORFFAA00 当满足条件平滑异同平均<=1日前的平滑异同平均ANDMACD<0时,在0和平滑异同平均位置之间画柱状线,宽度为3.3,0不为0则画空心柱.,COLORFFBB11 当满足条件平滑异同平均<=1日前的平滑异同平均ANDMACD<0时,在0和平滑异同平均位置之间画柱状线,宽度为2.2,0不为0则画空心柱.,COLORFFCC22 当满足条件平滑异同平均<=1日前的平滑异同平均ANDMACD<0时,在0和平滑异同平均位置之间画柱状线,宽度为1.65,0不为0则画空心柱.,COLORFFDD33 当满足条件平滑异同平均<=1日前的平滑异同平均ANDMACD<0时,在0和平滑异同平均位置之间画柱状线,宽度为1.1,0不为0则画空心柱.,COLORFFEE44 当满足条件平滑异同平均<=1日前的平滑异同平均ANDMACD<0时,在0和平滑异同平均位置之间画柱状线,宽度为0.55,0不为0则画空心柱.,COLORFFFF55 如果DIFF<0,返回DIFF,否则返回0,画红色,线宽为1 如果DIFF<0,返回0,否则返回DIFF,画黄色,线宽为1 如果DIFF<DEA,返回DIFF,否则返回DEA,COLOR00FF00,线宽为1 如果DIFF>DEA,返回DEA,否则返回DEA,画白色,线宽为1 低位金叉赋值:DIFF上穿DEA AND DIFF<-0.1 当满足条件低位金叉时,在0和-4.5位置之间画柱状线,宽度为2,0不为0则画空心柱.,画黄色 当满足条件低位金叉时,在-4位置书写文字,画黄色 JCCOUNT赋值:统计上次DEA>=0距今天数日中满足DIFF上穿DEA的天数 二次金叉赋值:DIFF上穿DEA AND DEA<0 AND 统计21日中满足JCCOUNT=2的天数=1 当满足条件二次金叉时,在0和-2.5位置之间画柱状线,宽度为5,0不为0则画空心柱.,COLORFF00FF 当满足条件二次金叉时,在DEA*1.2位置画11号图标 当满足条件二次金叉时,在-2位置书写文字,COLORFF00FF A1赋值:上次1日前的DIFF上穿DEA距今天数 底背离赋值:A1+1日前的收盘价>收盘价 AND DIFF>A1+1日前的DIFF AND DIFF上穿DEA 当满足条件底背离时,在0和2.5位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLOR00FF00 当满足条件A1=0时,在DEA位置画直线起点，当满足条件底背离时,在DEA位置画直线终点,0表示是否延长.,画红色,线宽为2 当满足条件底背离时,在2位置书写文字,COLOR00FF00 A2赋值:上次1日前的DEA上穿DIFF距今天数 顶背离赋值:A2+1日前的收盘价<收盘价 AND A2+1日前的DIFF>DIFF AND DEA上穿DIFF 当满足条件顶背离时,在0和4.5位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLORFFFF00 当满足条件A2=0时,在DEA位置画直线起点，当满足条件顶背离时,在DEA位置画直线终点,0表示是否延长.,COLORFFFF00,线宽为2 当满足条件顶背离时,在4位置书写文字,COLORFFFF00 TIPTEXT(ISNULL(1日后的&收盘价),0,' WWW.CXH99.COM '),画红色 TIPTEXT(ISNULL(1日前的收盘价),0,'同花顺程序化交易')

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

源码：

A:=VOL*CLOSE;
B:=SUM(A,1)/SUM(VOL,1);
B1:=EMA(B,17);
资金:=(B-B1)*100/B;
DIFF : EMA(资金,10) - EMA(资金,20);
DEA : EMA(DIFF,6);
MACD : 2*(DIFF-DEA), COLORSTICK;
STICKLINE(MACD>=0,MACD,0,4,1),COLORF00FF0;
STICKLINE(MACD<0,MACD,0,3.1,1),colorwhite;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,3,0 ),COLOR00AAFF;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2.2,0 ),COLOR00BBFF;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,1.8,0 ),COLOR00CCFF;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,1.3,0 ),COLOR00DDFF;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,0.9,0 ),COLOR00EEFF;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,0.5,0 ),COLOR00FFFF;
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,4 ,0 ),COLOR0000AA;
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,3.3 ,0 ),COLOR0011BB;
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2.2,0 ),COLOR0022CC;
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,1.65 ,0 ),COLOR0033DD;
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,1.1 ,0 ),COLOR0044EE;
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,0.55 ,0 ),COLOR0055FF;
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,4,0 ),COLORAA00BB;
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,3.3 ,0 ),COLORBB11BB;
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2.2,0 ),COLORCC22BB;
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,1.65,0 ),COLORDD33BB;
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,1.1,0 ),COLOREE44BB;
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,0.55 ,0 ),COLORFF55BB;
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,4,0 ),COLORFFAA00;
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,3.3 ,0 ),COLORFFBB11;
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2.2,0 ),COLORFFCC22;
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,1.65 ,0 ),COLORFFDD33;
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,1.1 ,0 ),COLORFFEE44;
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,0.55 ,0 ),COLORFFFF55;
IF(DIFF<0,DIFF,0),colorred,LINETHICK1;
IF(DIFF<0,0,DIFF),coloryellow,LINETHICK1;
IF(DIFF<DEA,DIFF,DEA),COLOR00FF00,LINETHICK1;
IF(DIFF>DEA,DEA,DEA),colorwhite,LINETHICK1;
低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;
STICKLINE(低位金叉,0,-4.5,2,0),coloryellow;
DRAWTEXT(低位金叉,-4,' 低位金叉'),coloryellow;
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
STICKLINE(二次金叉,0,-2.5,5,0),COLORFF00FF;
DRAWICON(二次金叉,DEA*1.2,11) ;
DRAWTEXT(二次金叉,-2,' 二次金叉'),COLORFF00FF;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);
STICKLINE(底背离,0,2.5,3,0),COLOR00FF00;
DRAWLINE(A1=0,DEA,底背离,DEA,0),colorred,LINETHICK2;
DRAWTEXT(底背离,2,' 底背离'),COLOR00FF00;
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF);
STICKLINE(顶背离,0,4.5,3,0),COLORFFFF00;
DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORFFFF00,LINETHICK2;
DRAWTEXT(顶背离,4,' 顶背离'),COLORFFFF00;
TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' WWW.CXH99.COM '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花顺程序化交易');

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