自用 MACD 指标

暗香盈袖

//------------------------------------------------------------------------
// 简称:MACD_0
// 名称:自建 MACD 指标
// 类别: 交易指令
// 类型: 用户应用
//------------------------------------------------------------------------
Params         
        //参数定义
        Integer LongPrd(26);
        Integer ShortPrd(12);
        Integer M(9);
GlobalVars       
        //全局变量定义
Vars               
        //局部变量定义
Begin               
        //策略执行区
        Numeric DIF = EMA(Close,ShortPrd) - EMA(Close,LongPrd);
        Numeric DEA = EMA(DIF,M);
        Numeric Ret = 2*(DIF-DEA);
       
        PlotNumeric("DIF",DIF,Rgb(255,33,33));       
        PlotNumeric("DEA",DEA,Rgb(204,204,204));
        SetShapeStyle("DIF",0,0,0);
       
        if(DIF>REF(DIF,1))
        {        PartLine("DIF",1,REF(DIF,1),0,DIF,Rgb(255,00,00));    }          Else
        {        PartLine("DIF",1,REF(DIF,1),0,DIF,Rgb(00,255,00));    }
       
        If(Ret>0)
        {               
                if(ABS(Ret)>= REF(ABS(Ret),1))
                {        PlotStickLine("MACD",Ret,0,Rgb(255,33,33));                        }                Else
                {        PlotStickLine("MACD",Ret,0,Rgb(196,196,00));                }
        }
        Else
        {
                if(ABS(Ret)>= REF(ABS(Ret),1))
                {        PlotStickLine("MACD",Ret,0,Rgb(00,224,102));                }                Else
                {        PlotStickLine("MACD",Ret,0,Rgb(00,112,196));                }
        }
       
        SetShapeStyle("MACD",3,0,1);
        SetShapeStyle("DEA ",0,0,1);
       
        PlotNumeric(" ",DIF*1.12,Rgb(16,16,16));

End

双面佛

赞！

huanggc66

感谢分享！有文华版的吗？

蓝箭666

看了多少遍这样的好东西不会设置，太可惜了。
那位大师帮我教一下，怎样才能添加到k线应用当中。

暗香盈袖

蓝箭666 发表于 2019-8-7 18:05
看了多少遍这样的好东西不会设置，太可惜了。
那位大师帮我教一下，怎样才能添加到k线应用当中。

小兄弟，送给你一个现成的，引入指标、调用指标应该会吧，呵呵

蓝箭666

暗香盈袖 发表于 2019-8-7 19:57
小兄弟，送给你一个现成的，引入指标、调用指标应该会吧，呵呵

大哥，我的电脑怎么打不开这个文件。
引入指标、调用指标可以让文华的客服人员帮我解决。

暗香盈袖

蓝箭666 发表于 2019-8-11 15:25
大哥，我的电脑怎么打不开这个文件。
引入指标、调用指标可以让文华的客服人员帮我解决。

这个是盘立方的指标，不是文华的

暗香盈袖

蓝箭666 发表于 2019-8-11 15:25
大哥，我的电脑怎么打不开这个文件。
引入指标、调用指标可以让文华的客服人员帮我解决。

这个是文华的

蓝箭666

暗香盈袖 发表于 2019-8-11 20:36
这个是文华的

大哥您好,等我有时间了把我的电脑拿到修电脑的给我看看，是什么问题打不开文件。
非常感谢您，大哥。

暗香盈袖

蓝箭666 发表于 2019-8-12 15:21
大哥您好,等我有时间了把我的电脑拿到修电脑的给我看看，是什么问题打不开文件。
非常感谢您，大哥。

首先把压缩文件解压，然后点击：文华-系统工具-指标管理器，打开指标管理器，再指标管理器上点击：导入导出-导入，在弹出窗口中选择刚才解压出来的指标文件，点击确定（或打开）即可完成引入

暗香盈袖

蓝箭666 发表于 2019-8-12 15:21
大哥您好,等我有时间了把我的电脑拿到修电脑的给我看看，是什么问题打不开文件。
非常感谢您，大哥。

指标引入后，在K线图界面输入“MCD" 即可将指标调出。
效果图：

蓝箭666

暗香盈袖 发表于 2019-8-12 16:10
指标引入后，在K线图界面输入“MCD" 即可将指标调出。
效果图：

大哥您好，刚才我把电脑拿到电脑城去修理，修理人员帮我导入到指标管理器，这个指标第19行有一个错误，麦语言的赋值运算符号为“：=”，“=”代表的是比较符号“等于”。由于这个错误不能加人。麻烦您修改一下。

暗香盈袖

蓝箭666 发表于 2019-8-12 18:03
大哥您好，刚才我把电脑拿到电脑城去修理，修理人员帮我导入到指标管理器，这个指标第19行有一个错误，麦 ...

文华的“MCD"源码：

SHORT:=12;
LONG:=26;
M:=9;
DIF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG),COLORAA0000,PRECIS1,NOTEXT;
DEA:EMA(DIF,M),COLOR2266AA,PRECIS1,NOTEXT;
MCD:4*(DIF-DEA),COLORFF2121,PRECIS1,NODRAW,NOTEXT;

STICKLINE1(MCD>=REF(MCD,1) AND MCD>0,0,MCD,0,0),COLORFF2121;  //阳柱加长_红色
STICKLINE1(MCD< REF(MCD,1) AND MCD>0,0,MCD,0,0),COLORBBBB00;  //阳柱缩短_黄色
STICKLINE1(MCD< REF(MCD,1) AND MCD<0,0,MCD,0,0),COLOR3366FF;  //阴柱加长_蓝色
STICKLINE1(MCD> REF(MCD,1) AND MCD<0,0,MCD,0,0),COLOR00CC00;  //阴柱缩短_绿色

DRAWCOLORLINE(DEA<REF(DEA,1),DEA,COLORAAAA44,COLOR2266AA);
DRAWCOLORLINE(DIF<REF(DIF,1),DIF,COLOR00AA00,COLORAA0000);

振幅H-L)/MINPRICE,COLORBBBBBB,PRECIS0,NODRAW;
实体C-O)/MINPRICE,COLOR33AACC,PRECIS0,NODRAW;
上影H-MAX(C,O))/MINPRICE,COLOR33AACC,PRECIS0,NODRAW;
下影MIN(C,O)-L)/MINPRICE,COLOR33AACC,PRECIS0,NODRAW;
均价:GETPRICE('AVPRICE'),COLORFFCC66,PRECIS0,NODRAW;
到均价CLOSE-均价)/MINPRICE,COLORCCAA55,PRECIS0,NODRAW;

暗香盈袖

蓝箭666 发表于 2019-8-12 18:03
大哥您好，刚才我把电脑拿到电脑城去修理，修理人员帮我导入到指标管理器，这个指标第19行有一个错误，麦 ...

已回复，等待审核，回个帖子居然要审核，我看你还是用盘立方的吧，这里毕竟不是文华的坛子

双面佛

暗香盈袖 发表于 2019-8-12 19:40
已回复，等待审核，回个帖子居然要审核，我看你还是用盘立方的吧，这里毕竟不是文华的坛子

放出来了。

蓝箭666

暗香盈袖 发表于 2019-8-12 19:35
文华的“MCD"源码：

SHORT:=12;

大哥您好，上面语法还有些错误，我依照您发的下面文华语法检查修改过了，可以用了。
谢谢您，大哥。

暗香盈袖

双面佛 发表于 2019-8-13 16:15
放出来了。

版主好，这个 PlotText 函数是怎么用的，能举个例子吗？ 谢谢。

双面佛

这个函数比较简单： PlotText(k,"多");

PlotText
说明 绘制一个字符串
语法 Bool PlotText(Numeric value,String text,Integer BarsBack=0)
参数 Value 价格
Text 字符串内容

BarsBack K线位置，默认为当前K线
备注 在价格为value的位置绘制一个字符串

暗香盈袖

双面佛 发表于 2019-8-19 17:39
这个函数比较简单： PlotText(k,"多");

PlotText

谢谢版主