周MACD+超跌码+变色主图指标公式源码[通达信公式]

相关标签:macd交易主图公式源码 、 通达信ox主图公式源码 、 通达信超牛macd指标 、 通达信副图macd指标 、 猪羊变色主图指标源码 、 macd指标公式交叉变色 、 文华macd变色指标公式 、 极品变色macd指标公式 、 通达信主图叠加macd 、 通达信精准主图macd 、 通达信分时主图macd 、 通达信新macd指标公式 、 macd背离指标公式源码 、 文华macd指标公式源码 、 变色带macd指标源码 、

原理解析：
RC赋值:前收盘价*1.1 DK赋值:"平滑异同平均的MACD"(60,130,45)*2 控盘赋值:DK 当满足条件控盘<0AND控盘<1日前的控盘时,在控盘+RC和RC位置之间画柱状线,宽度为0.05,0不为0则画空心柱.,画淡蓝色 当满足条件控盘<0AND控盘>1日前的控盘时,在控盘+RC和RC位置之间画柱状线,宽度为0.05,0不为0则画空心柱.,画白色 当满足条件控盘>1日前的控盘AND控盘>0时,在控盘+RC和RC位置之间画柱状线,宽度为0.05,0不为0则画空心柱.,画红色 当满足条件控盘<1日前的控盘AND控盘>0时,在控盘+RC和RC位置之间画柱状线,宽度为0.05,0不为0则画空心柱.,COLOR00FF00 KS赋值:(收盘价-收盘价的13日简单移动平均)/收盘价的13日简单移动平均*(-100) RKS赋值:1日前的KS MLS赋值:RKS/KS>=1.23 AND RKS>=8 AND 收盘价/1日前的收盘价>=1.02 输出超跌:当满足条件KS>=8时,在最高价和最低价位置之间画柱状线,宽度为0,1不为0则画空心柱.,画白色,线宽为1 当满足条件KS>=8时,在开盘价和收盘价位置之间画柱状线,宽度为7,1不为0则画空心柱.,画白色,线宽为1 输出反弹:当满足条件MLS=1时,在最高价和最低价位置之间画柱状线,宽度为0,1不为0则画空心柱.,画洋红色,线宽为1 当满足条件MLS=1时,在开盘价和收盘价位置之间画柱状线,宽度为7,1不为0则画空心柱.,画洋红色,线宽为1 输出MA5:收盘价的5日指数移动平均,画白色 线宽为1 如果MA5>=1日前的MA5,返回MA5,否则返回无效数,线宽为2,画红色 如果MA5<=1日前的MA5,返回MA5,否则返回无效数,线宽为1,画绿色 输出MA10:收盘价的10日指数移动平均,画白色 线宽为1 如果MA10>=1日前的MA10,返回MA10,否则返回无效数,线宽为2,画红色 如果MA10<=1日前的MA10,返回MA10,否则返回无效数,线宽为1,画绿色 输出MA20:收盘价的20日指数移动平均,画白色 线宽为1 如果MA20>=1日前的MA20,返回MA20,否则返回无效数,线宽为2,画红色 如果MA20<=1日前的MA20,返回MA20,否则返回无效数,线宽为1,画绿色 输出M30:收盘价的30日指数移动平均,画白色 POINTDOT 如果M30>=1日前的M30,返回M30,否则返回无效数,线宽为2,COLOR0066FF 如果M30<=1日前的M30,返回M30,否则返回无效数,线宽为1,画青色 输出M60:收盘价的60日指数移动平均,画白色 POINTDOT 如果M60>=1日前的M60,返回M60,否则返回无效数,线宽为2,画黄色 如果M60<=1日前的M60,返回M60,否则返回无效数,线宽为1,COLORCC9900 输出M120:收盘价的120日指数移动平均,画白色 POINTDOT 如果M120>=1日前的M120,返回M120,否则返回无效数,线宽为1,COLOR0066FF POINTDOT 如果M120<=1日前的M120,返回M120,否则返回无效数,线宽为1,画白色 POINTDOT 输出M240:收盘价的240日指数移动平均,画白色 POINTDOT 如果M240>=1日前的M240,返回M240,否则返回无效数,线宽为1,COLOR0066FF POINTDOT 如果M240<=1日前的M240,返回M240,否则返回无效数,线宽为1,画洋红色 POINTDOT 当满足条件收阳线时,在横轴0.01纵轴0.9位置书写文字,画红色 当满足条件收阳线时,在横轴1纵轴1位置书写文字,画红色

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

源码：

{MACD}
RC:=DYNAINFO(3)*1.1;
DK:="MACD.MACD"(60,130,45)*2;
控盘:=DK;
STICKLINE(控盘<0 AND 控盘<REF(控盘,1),控盘+RC,RC,0.05,0),COLORLIBLUE;
STICKLINE(控盘<0 AND 控盘>REF(控盘,1),控盘+RC,RC,0.05,0),COLORWHITE;
STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘+RC,RC,0.05,0),COLORRED;
STICKLINE(控盘<REF(控盘,1) AND 控盘>0,控盘+RC,RC,0.05,0),COLOR00FF00;
{超跌反弹原码}{加在主图即可}
KS:=(C-MA(C,13))/MA(C,13)*(-100);
RKS:=REF(KS,1);
MLS:=RKS/KS>=1.23 AND RKS>=8 AND C/REF(C,1)>=1.02;
超跌:STICKLINE(KS>=8,H,L,0,1),COLORWHITE,LINETHICK1;
STICKLINE(KS>=8,O,C,7,1),COLORWHITE,LINETHICK1;
反弹:STICKLINE(MLS=1,H,L,0,1),COLORMAGENTA,LINETHICK1;
STICKLINE(MLS=1,O,C,7,1),COLORMAGENTA,LINETHICK1;
MA5:EMA(C,5),COLORWHITE LINETHICK1;
IF(MA5>=REF(MA5,1),MA5,DRAWNULL),LINETHICK2,COLORRED;
IF(MA5<=REF(MA5,1),MA5,DRAWNULL),LINETHICK1,COLORGREEN;
MA10:EMA(C,10),COLORWHITE LINETHICK1;
IF(MA10>=REF(MA10,1),MA10,DRAWNULL),LINETHICK2,COLORRED;
IF(MA10<=REF(MA10,1),MA10,DRAWNULL),LINETHICK1,COLORGREEN;
MA20:EMA(C,20),COLORWHITE LINETHICK1;
IF(MA20>=REF(MA20,1),MA20,DRAWNULL),LINETHICK2,COLORRED;
IF(MA20<=REF(MA20,1),MA20,DRAWNULL),LINETHICK1,COLORGREEN;
M30:EMA(C,30),COLORWHITE POINTDOT;
IF(M30>=REF(M30,1),M30,DRAWNULL),LINETHICK2,COLOR0066FF;
IF(M30<=REF(M30,1),M30,DRAWNULL),LINETHICK1,COLORCYAN;
M60:EMA(C,60),COLORWHITE POINTDOT;
IF(M60>=REF(M60,1),M60,DRAWNULL),LINETHICK2,COLORYELLOW;
IF(M60<=REF(M60,1),M60,DRAWNULL),LINETHICK1,COLORCC9900;
M120:EMA(C,120),COLORWHITE POINTDOT;
IF(M120>=REF(M120,1),M120,DRAWNULL),LINETHICK1,COLOR0066FF POINTDOT;
IF(M120<=REF(M120,1),M120,DRAWNULL),LINETHICK1,COLORWHITE POINTDOT;
M240:EMA(C,240),COLORWHITE POINTDOT;
IF(M240>=REF(M240,1),M240,DRAWNULL),LINETHICK1,COLOR0066FF POINTDOT;
IF(M240<=REF(M240,1),M240,DRAWNULL),LINETHICK1,COLORMAGENTA POINTDOT;DRAWTEXT_FIX(C>O,0.01,0.9,0,' WWW.CXH99.COM '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

 

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