通达信随心MACD 很敏感的钻石指标公式源码

 
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,24);
DEA:=EMA(DIFF,9);
ADIF:ATAN((DIFF/REF(DIFF,1)-1)*100)*180/3.1416 NODRAW;
RADIF:REF(ADIF,1) NODRAW;
C2:=IF(V>MA(V,150)*0.98,0.1,-0.1);
C1:=IF(V<MA(V,150)*0.98,-0.1,0.1);
B2:=EMA(CLOSE,55)-MA(CLOSE,60) DOTLINE COLORGREEN;
B3:=EMA(B2,9) DOTLINE COLORCYAN;
DRAWBAND(B2,RGB(120,50,50),B3,RGB(50,120,50));
MACD:=2*(DIFF-DEA), STICK,LINETHICK1 COLORCYAN;
N:=20;
MID:=MA(C,20);
VART1:=POW((C-MID),2);
VART2:=MA(VART1,N);
VART3:=SQRT(VART2);
UPPER:=MID+2*VART3;
LOWER:=MID-2*VART3;
BOLL:=REF(MID,1),COLORGREEN;
UB:=REF(UPPER,1),COLOR00FFFF;
LB:=REF(LOWER,1),COLOR00FFFF NODRAW;
BLTJ:=REF(L,1)<REF(LB,1) AND L>LB;
BLLDT:BARSLAST(BLTJ ) NODRAW;

JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1)) COLORRED NODRAW;
底背离:REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA) NODRAW;

STICKLINE(底背离,0,0.03,1.2,1),COLOR00FF00;
{底背:DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORRED,LINETHICK2 CROSSDOT;}
DRAWTEXT(底背离,0.1,' 底背离'),COLORFF00FF;
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1)) ;
顶背离:REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF) CROSSDOT COLORRED NODRAW;
{顶背:DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORBLUE,LINETHICK2 CROSSDOT;}
底背D:BARSLAST(底背离)+1 NODRAW COLORRED;
顶背D:A2+1 COLORGREEN NODRAW;

{判断天地量}
AA:=SUMBARS(VOL,CAPITAL);
地量:=VOL<MA(VOL,AA)*21/100 AND VOL>0;
天量:=VOL>MA(VOL,AA)*34/10 ;
MACDA:2*(DIFF-DEA), STICK,LINETHICK1 COLORCYAN;
NOTEXT3:IF(地量 AND PERIOD>4,MACD*1.5,DRAWNULL) STICK LINETHICK6 COLORYELLOW;
NOTEXT4:IF(天量 AND PERIOD>4,MACD*1.5,DRAWNULL) STICK LINETHICK6 COLORAAAAFF;
NOTEXT5:IF(V<=MA(V,5)*0.22,MACD,DRAWNULL) STICK LINETHICK4 COLORBLUE;
NOTEXT:IF(REF(MACD,1)<=MACD,MACD,DRAWNULL) STICK COLORRED;
NOTEXT1:0 LINETHICK3 COLORGRAY;
NOTEXT8:IF(V>MA(V,150)*0.98,0,DRAWNULL) COLORRED LINETHICK2 CIRCLEDOT ;
DEAA:DEA COLORYELLOW;
DIFA:DIFF COLORWHITE ;
DIFF1:EMA(CLOSE,12)-EMA(CLOSE,26) DOTLINE COLORGREEN NODRAW;
DEA1:EMA(DIFF1,9) DOTLINE COLORCYAN NODRAW;

底背:DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORRED,LINETHICK2 CROSSDOT;

顶背:DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORBLUE,LINETHICK2 CROSSDOT;

强:IF(DIFF>MA(DIFF,2),DIFF,DRAWNULL),COLORRED LINETHICK2;
弱:IF(DEA>MA(DEA,2),DEA,DRAWNULL),COLORMAGENTA LINETHICK2;
必买: DRAWICON(REF(TROUGHBARS(3,15,1),1)=0 AND HIGH>LOW,0,25),COLORRED ,LINETHICK4;
必卖: DRAWICON(REF(PEAKBARS(3,15,1),1)=1,0,27),COLORRED,LINETHICK8;
B1:A1 NODRAW;
TOP:A2 NODRAW;
BSR:((BIDORDERVOL-BIDCANCELVOL)/(OFFERORDERVOL-OFFERCANCELVOL)-1)*10 NODRAW;
NOTEXTBRS:IF(BSR>0,DEA,DRAWNULL) COLORFFFFFF LINETHICK2 CIRCLEDOT;

HSJ:=BARSLAST(CROSS(DIFF,0) AND DIFF>=0 )+1 NODRAW;
LSJ:=BARSLAST(CROSS(0,DIFF) AND DIFF<0 )+1 NODRAW;
T:IF(DIFF>0,HSJ,LSJ) NODRAW;
IF(T=1,ABS(MACD),0) STICK LINETHICK2 COLORMAGENTA;
IF(CROSS(DEA,0),ABS(MACD),0) STICK LINETHICK2 COLORYELLOW;

S:IF(HSJ>1,SUM(ABS(MACD),T),DRAWNULL) NODRAW ;
DRAWNUMBER(ISLASTBAR ,ABS(MACD*1.02),S) COLORYELLOW;
DRAWNUMBER(T=1 ,ABS(MACD*1.02),REF(S,1)) ;
T2:REF(T,T)+T NODRAW;
Q1S:REF(S,T) NODRAW;
Q2S:=REF(S,T2) NODRAW;
BL:=Q1S/Q2S NODRAW;
{E2T:BARSLAST(CROSS(DIF,DEA) AND FILTER(CROSS(DIF,DEA) ,5) )+1 NODRAW;
E6T:BARSLAST(CROSS(DEA,DIF) AND FILTER(CROSS(DEA,DIF) ,5) )+1 NODRAW;
ET:IF(DIF>=DEA,E2T,E6T) NODRAW;
ES:SUM(ABS(DIF-DEA),ET) NODRAW;
BZ:=MAX(ABS(DEA),ABS(DIF));
XS:=IF(DIF<0,-1,1);
IF(ET=1,DIF,DRAWNULL) CIRCLEDOT LINETHICK2;
DRAWNUMBER(ISLASTBAR ,DIF*1.05,ES) COLORYELLOW;
DRAWNUMBER(ET=1 ,BZ*XS*1.05,REF(ES,1)) COLORYELLOW;};

TTJ:=IF(BARSLAST(顶背离=1)+1=144 OR BARSLAST(顶背离=1)+1=89 OR BARSLAST(顶背离=1)+1=13 OR BARSLAST(顶背离=1)+1=47 OR BARSLAST(顶背离=1)+1=1 OR BARSLAST(顶背离=1)+1=8 OR BARSLAST(顶背离=1)+1=21 OR BARSLAST(顶背离=1)+1=34 OR BARSLAST(顶背离=1)+1=55,1,O) ;
TTJA:=IF( BARSLAST(底背离=1)+1=144 OR BARSLAST(底背离=1)+1=89 OR BARSLAST(底背离=1)+1=8 OR BARSLAST(底背离=1)+1=1 OR BARSLAST(底背离=1)+1=47 OR BARSLAST(底背离=1)+1=13 OR BARSLAST(底背离=1)+1=21 OR BARSLAST(底背离=1)+1=34 OR BARSLAST(底背离=1)+1=55,1,O) ;
DRAWNUMBER((BARSLAST(顶背离=1)+1<144 AND TTJ=1 AND CURRBARSCOUNT<233) OR ISLASTBAR,MIN(DIFF,DEA)*0.98,BARSLAST(顶背离=1)+1) COLORGREEN;
DRAWNUMBER((BARSLAST(底背离=1)+1<144 AND TTJA=1 AND CURRBARSCOUNT<233)OR ISLASTBAR,0,BARSLAST(底背离=1)+1) COLORYELLOW;
 



来函数检测结果如下
该公式包含未来函数:PEAK
该公式包含未来函数:PEAKBARS
该公式包含未来函数:TROUGH
该公式包含未来函数:TROUGHBARS
该公式包含未来函数:CAPITAL

解密、定制、编写公式指标请联系QQ或微信同号:88652583
置顶指标

相关指标公式

DIFF赋值:收盘价的12日指数移动平均-收盘价的24日指数移动平均
DEA赋值:DIFF的9日指数移动平均
输出ADIF:(DIFF/1日前的DIFF-1)*100的反正切*180/3.1416 NODRAW
输出RADIF:1日前的ADIF NODRAW
C2赋值:如果成交量(手)>成交量(手)的150日简单移动平均*0.98,返回0.1,否则返回-0.1
C1赋值:如果成交量(手)<成交量(手)的150日简单移动平均*0.98,返回-0.1,否则返回0.1
B2赋值:收盘价的55日指数移动平均-收盘价的60日简单移动平均 DOTLINE 画绿色
B3赋值:B2的9日指数移动平均 DOTLINE 画青色
画带状线
MACD赋值:2*(DIFF-DEA), STICK,线宽为1 画青色
N赋值:20
MID赋值:收盘价的20日简单移动平均
VART1赋值:(收盘价-MID)的2乘幂
VART2赋值:VART1的N日简单移动平均
VART3赋值:VART2的开方
UPPER赋值:MID+2*VART3
LOWER赋值:MID-2*VART3
BOLL赋值:1日前的MID,画绿色
UB赋值:1日前的UPPER,COLOR00FFFF
LB赋值:1日前的LOWER,COLOR00FFFF NODRAW
BLTJ赋值:1日前的最低价<1日前的LB AND 最低价>LB
输出BLLDT:上次BLTJ距今天数 NODRAW
JCCOUNT赋值:统计上次DEA>=0距今天数日中满足DIFF上穿DEA的天数
A1赋值:上次1日前的DIFF上穿DEA距今天数 画红色 NODRAW
输出底背离:A1+1日前的收盘价>收盘价 AND DIFF>A1+1日前的DIFF AND DIFF上穿DEA NODRAW
当满足条件底背离时,在0和0.03位置之间画柱状线,宽度为1.2,1不为0则画空心柱.,COLOR00FF00
当满足条件底背离时,在0.1位置书写文字,COLORFF00FF
A2赋值:上次1日前的DEA上穿DIFF距今天数
输出顶背离:A2+1日前的收盘价<收盘价 AND A2+1日前的DIFF>DIFF AND DEA上穿DIFF CROSSDOT 画红色 NODRAW
输出底背D:上次底背离距今天数+1 NODRAW 画红色
输出顶背D:A2+1 画绿色 NODRAW
AA赋值:成交量(手)累加至当前流通股本(手)的天数
地量赋值:成交量(手)<成交量(手)的AA日简单移动平均*21/100 AND 成交量(手)>0
天量赋值:成交量(手)>成交量(手)的AA日简单移动平均*34/10
输出MACDA:2*(DIFF-DEA), STICK,线宽为1 画青色
输出NOTEXT3:如果地量ANDPERIOD>4,返回MACD*1.5,否则返回无效数 STICK 线宽为6 画黄色
输出NOTEXT4:如果天量ANDPERIOD>4,返回MACD*1.5,否则返回无效数 STICK 线宽为6 COLORAAAAFF
输出NOTEXT5:如果成交量(手)<=成交量(手)的5日简单移动平均*0.22,返回MACD,否则返回无效数 STICK 线宽为4 画蓝色
输出NOTEXT:如果1日前的MACD<=MACD,返回MACD,否则返回无效数 STICK 画红色
输出NOTEXT1:0 线宽为3 画深灰色
输出NOTEXT8:如果成交量(手)>成交量(手)的150日简单移动平均*0.98,返回0,否则返回无效数 画红色 线宽为2 CIRCLEDOT
输出DEAA:DEA 画黄色
输出DIFA:DIFF 画白色
输出DIFF1:收盘价的12日指数移动平均-收盘价的26日指数移动平均 DOTLINE 画绿色 NODRAW
输出DEA1:DIFF1的9日指数移动平均 DOTLINE 画青色 NODRAW
输出底背:当满足条件A1=0时,在DEA位置画直线起点,当满足条件底背离时,在DEA位置画直线终点,0表示是否延长.,画红色,线宽为2 CROSSDOT
输出顶背:当满足条件A2=0时,在DEA位置画直线起点,当满足条件顶背离时,在DEA位置画直线终点,0表示是否延长.,画蓝色,线宽为2 CROSSDOT
输出强:如果DIFF>DIFF的2日简单移动平均,返回DIFF,否则返回无效数,画红色 线宽为2
输出弱:如果DEA>DEA的2日简单移动平均,返回DEA,否则返回无效数,画洋红色 线宽为2
输出必买: 当满足条件1日前的收盘价15%之字转向的前1个波谷位置=0ANDHIGH>最低价时,在0位置画25号图标,画红色 ,线宽为4
输出必卖: 当满足条件1日前的收盘价15%之字转向的前1个波峰位置=1时,在0位置画27号图标,画红色,线宽为8
输出B1:A1 NODRAW
输出TOP:A2 NODRAW
输出BSR:((累计总有效委买量-累计总有效撤买量)/(累计总有效委卖量-累计总有效撤卖量)-1)*10 NODRAW
输出NOTEXTBRS:如果BSR>0,返回DEA,否则返回无效数 COLORFFFFFF 线宽为2 CIRCLEDOT
HSJ赋值:上次DIFF上穿0ANDDIFF>=0距今天数+1 NODRAW
LSJ赋值:上次0上穿DIFFANDDIFF<0距今天数+1 NODRAW
输出T:如果DIFF>0,返回HSJ,否则返回LSJ NODRAW
如果T=1,返回MACD的绝对值,否则返回0 STICK 线宽为2 画洋红色
如果DEA上穿0,返回MACD的绝对值,否则返回0 STICK 线宽为2 画黄色
输出S:如果HSJ>1,返回MACD的绝对值的T日累和,否则返回无效数 NODRAW
当满足条件是否最后一个周期时,在MACD*1.02的绝对值位置书写数字 画黄色
当满足条件T=1时,在MACD*1.02的绝对值位置书写数字
输出T2:T日前的T+T NODRAW
输出Q1S:T日前的S NODRAW
Q2S赋值:T2日前的S NODRAW
BL赋值:Q1S/Q2S NODRAW

TTJ赋值:如果上次顶背离=1距今天数+1=144ORBARSLAST(顶背离=1)+1=89ORBARSLAST(顶背离=1)+1=13ORBARSLAST(顶背离=1)+1=47ORBARSLAST(顶背离=1)+1=1ORBARSLAST(顶背离=1)+1=8ORBARSLAST(?返回背离=1)+1=21ORBARSLAST(顶背离=1)+1=34ORBARSLAST(顶背离=1)+1=55,否则返回1
TTJA赋值:如果上次底背离=1距今天数+1=144ORBARSLAST(底背离=1)+1=89ORBARSLAST(底背离=1)+1=8ORBARSLAST(底背离=1)+1=1ORBARSLAST(底背离=1)+1=47ORBARSLAST(底背离=1)+1=13ORBARSLAST(?返回背离=1)+1=21ORBARSLAST(底背离=1)+1=34ORBARSLAST(底背离=1)+1=55,否则返回1
当满足条件(上次顶背离=1距今天数+1<144ANDTTJ=1ANDCURRBARSCOUNT<233)ORISLASTBAR时,在DIFF和DEA的较小值*0.98位置书写数字 画绿色
当满足条件(上次底背离=1距今天数+1<144ANDTTJA=1ANDCURRBARSCOUNT<233)ORISLASTBAR时,在0位置书写数字 画黄色

指标安装下载帮助  |   联系我们  |  乐淘公式网  |  公式网   |  指标公式  |   加入收藏   |  设为主页

@2005-2025 浙ICP备2024071487号-1 乐淘公式网公式网均来源互联网收集整理,如不慎侵犯了你的权益,请联系我们告知,我们将做删除处理
免责声明:乐淘公式网所有指标公式及文章由网络收集,不保障实时性和真实性, 仅供学习研究并不构成投资建议,请勿以此为依据进行股票交易,由此引起的投资亏损与本站无关。
QQ:88652583 微信 88652583
sitemap站点地图