最爱主升浪 发表于 2023-4-28 17:41:26

小股民MACD 通达信副图指标源码

{小股民MACD}
DIF:(EMA(CLOSE,12) - EMA(CLOSE,26)),COLORRED,NODRAW;
DEA:EMA(DIF,9),COLOR00FFFF,NODRAW;
MACD:2*(DIF-DEA),NODRAW;
DIFK:=EMA(DIF,3);
DIFD:=EMA(DIFK,3);
DKK:4*DIF-3*DEA,COLORFF00FF,NODRAW;
DDD:EMA(DKK,5),COLOR2588FF,NODRAW;
DRAWICON(CROSS(DDD,DKK),DKK,2);
DRAWICON(CROSS(DKK,DDD),DDD,1);
TRLSX1:= MAX(MAX((HHV(DIF,13)-LLV(DIF,13)),ABS(REF(DIF,1)-HHV(DIF,13))),ABS(REF(DIF,1)-LLV(DIF,13)));
TRLSX2:=EMA(TRLSX1,13);
TRLSX3:=REF(DIF,1)-REF(TRLSX2,1);
支撑:HHV(TRLSX3,13),COLORFFFFFF,NODRAW;
RSV14:=(CLOSE - LLV(LOW,14))/(HHV(HIGH,14) - LLV(LOW,14))-0.5;
K14:=EMA(RSV14,3),COLORFF00FF,NODRAW;
D14:=EMA(K14,3),COLORGREEN,NODRAW;
J14:=3*K14-2*D14;

DRAWBAND(DIF,RGB(200,50,55),DEA,RGB(50,100,10));
MACDXG2:=REF(COUNT(DIF>0 AND MACD<0 AND MACDREF(MACD,1);
STICKLINE(MACDXG2,MACD*1.2,0,2.8,0),COLORRED;
STICKLINE(MACD>REF(MACD,1) AND MACD>0,0,MACD,1.8,0),COLOR000055;
STICKLINE(MACD>REF(MACD,1) AND MACD>0,0,MACD,1.1,0),COLOR000099;
STICKLINE(MACD>REF(MACD,1) AND MACD>0,0,MACD,0.6,0),COLOR0000BB;

STICKLINE(MACD<=REF(MACD,1) AND MACD>0,0,MACD,1.8,0),COLOR888888;
STICKLINE(MACD<=REF(MACD,1) AND MACD>0,0,MACD,1.1,0),COLORBBBBBB;
STICKLINE(MACD<=REF(MACD,1) AND MACD>0,0,MACD,0.6,0),COLORDDDDDD;

STICKLINE(MACD>REF(MACD,1) AND MACD<0,0,MACD,1.8,0),COLOR3377AA;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,0,MACD,1.1,0),COLOR3388BB;
STICKLINE(MACD>REF(MACD,1) AND MACD<0,0,MACD,0.6,0),COLOR4499CC;

STICKLINE(MACD<=REF(MACD,1) AND MACD<0,0,MACD,1.8,0),COLORFF3300;
STICKLINE(MACD<=REF(MACD,1) AND MACD<0,0,MACD,1.1,0),COLORFF5500;
STICKLINE(MACD<=REF(MACD,1) AND MACD<0,0,MACD,0.6,0),COLORFF7700;

STICKLINE(J14<-0.5,0,0.15,1.8,0),COLORFF00FF;

支撑,COLORFFFFFF;
IF(C>0,DIF,DRAWNULL),COLORRED,LINETHICK1;
IF(C>0,DEA,DRAWNULL),COLOR00FFFF,LINETHICK1;
IF(DEA IF(DIF<=REF(DIF,1),DIF,DRAWNULL),COLORBLUE,LINETHICK1;
IF(C,DKK,DRAWNULL),COLORFF00FF,LINETHICK1;
IF(DKK<=REF(DKK,1),DKK,DRAWNULL),COLORCYAN,LINETHICK1;
IF(C,DDD,DRAWNULL),COLOR2255FF,LINETHICK1;
IF(DDD<=REF(DDD,1),DDD,DRAWNULL),COLOR33FF33,LINETHICK1;

KDJXG:=REF(COUNT(J14=3,1) AND REF(J14,1)<-0.4 AND J14>REF(J14,1);
DRAWICON(FILTER(KDJXG,3),MACD*1.2,11),COLORFF00EE;

准备介入点:=REF(CROSS(0,MACD),3) AND COUNT(DIF>0 AND MACD DRAWICON(准备介入点,0.05,9);

TS:=BARSLAST(MACD>=0 AND REF(MACD,1)<0);
红柱面积:0.091*IF(MACD<0 AND REF(MACD,1)>=0,SUM(REF(MACD,1),TS),0),COLORMAGENTA,LINETHICK0;
STICKLINE(MACD<0 AND REF(MACD,1)>=0,0,红柱面积,4,0),COLORWHITE;
TS1:=BARSLAST(MACD<=0 AND REF(MACD,1)>0);
绿柱面积:0.1*IF(MACD>0 AND REF(MACD,1)<=0,SUM(REF(MACD,1),TS1),0),COLORGREEN,LINETHICK0;
STICKLINE(MACD>0 AND REF(MACD,1)<=0,0,绿柱面积,4,0),COLORGREEN;

A1:=CROSS(DIF,DEA) AND DIF<-0.1;

底背离:=REF(CLOSE,A1+1)>CLOSE AND DIF>REF(DIF,A1+1) AND CROSS(DIF,DEA);
STICKLINE(底背离,0,0.03,6,0),COLOR00FF00;
底背:DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORRED,LINETHICK2;
DRAWTEXT(底背离,0.12,' 底背离'),COLORFF00FF;
A2:=BARSLAST(REF(CROSS(DEA,DIF),1));
顶背离:=REF(CLOSE,A2+1)DIF AND CROSS(DEA,DIF);
顶背:DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORGREEN,LINETHICK2;
AA:=COUNT(CROSS(DIF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIF,DEA) AND DEA<0 AND COUNT(AA=2,21)=1;
DRAWTEXT(二次金叉,0.2,' 二次金叉'),COLORYELLOW;

低金:=BARSLAST(REF(CROSS(DIF,DEA),1));
STICKLINE(低金,0,0.01,6,0),COLORYELLOW;
DRAWTEXT(低金,0.10,' 低金'),COLORWHITE;
DRAWTEXT(低金 AND 二次金叉 AND 底背离,0.5,'三全项'),COLOR0000FF;
DRAWTEXT(低金 AND 底背离,0.4,'二全项'),COLOR0000FF;
DRAWTEXT(二次金叉 AND 低金,0.3,'一全项'),COLOR0000FF;
DRAWTEXT(二次金叉 AND 底背离,0.2,'无全项'),COLOR0000FF;

只是看闹热 发表于 2023-5-6 01:39:56

my god！好东西！

脱凡神从 发表于 2023-5-7 18:56:40

谢谢，谢谢！找了很久了！

高抱派党些 发表于 2023-5-9 16:02:24

找了很久了，多谢！

123458516 发表于 2023-7-24 22:30:32

谢谢，谢谢！找了很久了！

123460014 发表于 2023-9-5 15:14:50

沙发，多多点赞好好学习

315126zuoguiqin 发表于 2024-1-29 08:36:42

居然有免费的，很好

一莲水清青虐 发表于 2024-2-5 15:51:24

这个资源我有了，不过还是感谢楼主分享

段琰baby 发表于 2024-4-2 04:30:53

楼主哪儿来的这么多好东西！

123458895 发表于 2024-4-10 10:46:21

已收藏，以后会常来！
页: [1]
查看完整版本: 小股民MACD 通达信副图指标源码