能帮忙改一下逻辑么

106212

找到了论坛MACD顶部背离的源代码
老师可以帮忙改成底部背离么，逻辑对称的
原帖在这里：https://www.weistock.com/bbs/forum.php?mod=viewthread&tid=51&highlight=%B1%B3%C0%EB


MACD指标的背离就是指MACD指标的图形的走势正好和K线图的走势方向正好相反。当股价K线图上的股票走势一峰比一峰高，股价一直在向上涨，而MACD指标图形上的由红柱构成的图形的走势是一峰比一峰低，即当股价的高点比前一次的高点高、而MACD指标的高点比指标的前一次高点低，这叫顶背离现象。顶背离现象一般是股价在高位即将反转转势的信号，表明价格短期内即将下跌，是卖出的信号。
一、MACD顶部背离的策略思路：

1，本波红柱面积没有创新高：本波红柱的面积小于前一波红柱的面积。
2，本波红柱长度没有创新高：本波红柱过程中的MACD最高值小于前一波红柱中的最高值。
3，行情价格出现了新高：      本波红柱过程中的行情的最高价大于前一波红柱中的最高价。

     以上思路是严格的MACD顶背离的判断，即价格新高，但柱子面积和柱子长度都没有新高。

二、金字塔策略源码

//全局变量
variable:gsumr=0;  //gsum红柱总和
variable:glongr=0;  //glong最长红柱
variable:ghighr=0;   //glow红柱区域最高价

//中间变量
//MACD指标
DIFF := EMA(CLOSE,12) - EMA(CLOSE,26);
DEA  := EMA(DIFF,9);
MACD := 2*(DIFF-DEA);
gnum:=barslast(ref(macd>0,1) and macd<0);   //红转绿
bnum:=barslast(ref(macd<0,1) and macd>0);   //绿转红

if ref(macd,1)<0 and macd>0 then
begin
  gsumr:=0;                          //红柱开始，清0
  glongr:=0;                         //红柱开始，清0
  ghighr:=high;                    //红柱开始，初始化
end
if macd>0 then
begin
  gsumr:=gsumr+macd;                                          //累加
if abs(macd)>abs(glongr) then glongr:=macd；  //如果红柱更长，则记录
if high>ghighr then ghighr:=high;                         //如果价格更高，则记录
end
numb:=max(gnum,bnum)+1;                        //两次红柱/绿柱之间间隔

//交易条件
con1:=abs(gsumr)<abs(ref(gsumr,numb));  //面积小于前一波--面积没创新高
con2:=abs(glongr)<abs(ref(glongr,numb));  //柱子长度小于前一波----长度没创新高
con3:=ghighr>ref(ghighr,numb);                  //价格大于前一波-----价格创新高

//下单模块
//当红柱开始收缩时（牛市即将结束，可能反转向下（或高位盘整）），如果出现顶背离，则少量建仓
if all(macd>0,3) and ref(macd,1)>macd and ref(macd,1)>ref(macd,2) then
begin
if con1 and con2 and con3 then buyshort(1,1,market);//顶背离，面积没创新高,长度没创新高,价格创新高
end

//红柱消失、绿柱开始放出时（上涨行情（或高位盘整）已经结束），如果出现顶背离，则加仓
if ref(macd>0,1) and macd<0 then
begin
if con1 and con2 and con3  then 加:buyshort(1,1,market);//低背离，面积没创新低,长度没创新低,价格创新低
end
//如果上穿零轴，平仓离场

if  CROSS(MACD,0)  then sellshort(holding<0,holding,market);

资深技术05

仅供参考

[PEL] 复制代码

//全局变量
variable:gsumr=0;  //gsum红柱总和
variable:glongr=0;  //glong最长红柱
variable:gshortr=0;  //glong最短红柱
variable:ghighr=0;   //glow红柱区域最高价
variable:glowr=0;   //glow红柱区域最低价

//中间变量
//MACD指标
DIFF := EMA(CLOSE,12) - EMA(CLOSE,26);
DEA  := EMA(DIFF,9);
MACD := 2*(DIFF-DEA);
gnum:=barslast(ref(macd>0,1) and macd<0);   //红转绿
bnum:=barslast(ref(macd<0,1) and macd>0);   //绿转红

if cross(macd,0) then
begin
  gsumr:=0;                          //红柱开始，清0
  glongr:=0;   
  gshortr:=0;                      //红柱开始，清0
  ghighr:=high;                    //红柱开始，初始化
  glowr:=0;
end

if macd>0 then
begin
  gsumr:=gsumr+macd;                                          //累加
if abs(macd)>abs(glongr) then glongr:=macd；  //如果红柱更长，则记录
if abs(macd)<abs(gshortr) or gshortr=0 then gshortr:=macd;
if high>ghighr then ghighr:=high; 
if low<glowr then glowr:=low;                        //如果价格更高，则记录
end

numb:=max(gnum,bnum)+1;                        //两次红柱/绿柱之间间隔

//顶背离
con1:=abs(gsumr)<abs(ref(gsumr,numb));  //面积小于前一波--面积没创新高
con2:=abs(glongr)<abs(ref(glongr,numb));  //柱子长度小于前一波----长度没创新高
con3:=ghighr>ref(ghighr,numb);                  //价格大于前一波-----价格创新高



//低背离，面积没创新低,长度没创新低,价格创新低
con11:=abs(gsumr)>abs(ref(gsumr,numb));  //面积大于前一波--
con22:=abs(gshortr)>abs(ref(gshortr,numb));  //柱子长度大于前一波
con33:=glowr<ref(glowr,numb);                  //价格新低