求高手编一个通达信顶背离选股公式，像图片这样，股价比前一波高，MACD的DIF却比前一波低的选股公式。

您好
现在做这个公式需要很多的操作，比较麻烦，您可以看看均线操作为宜：
均线八大法则
1、均线从下降逐渐走平且略向上方抬头，而价格从均线下方向上方突破，为买进信号。
2、价格位于均线之上运行，回档时未跌破均线后又再度上升时为买进时机。
3、价格位于均线之上运行，回档时跌破均线，但短期均线继续呈上升趋势，此时为买进时机。
4、价格位于均线以下运行，突然暴跌，距离均线太远，极有可能向均线靠近(物极必反，下跌反弹)，此时为买进时机。
5、价格位于均线之上运行，连续数日大涨，离均线愈来愈远，说明近期内购买者获利丰厚，随时都会产生获利回吐的卖压，应暂时卖出。
6、均线从上升逐渐走平，而价格从均线上方向下跌破均线时说明卖压渐重，应卖出所持。
7、价格位于均线下方运行，反弹时未突破均线，且均线跌势减缓，趋于水平后又出现下跌趋势，此时为卖出时机。

macd顶底背离副图 diff:ema(close,12) - ema(close,26); dea:ema(diff,9); macd:2*(diff-dea),colorstick; a1:=barslast(ref(cross(diff,dea),1)); b1:=ref(c,a1+1)>c and ref(diff,a1+1)c and ref("kdj.k"(9,3,3),a2+1)<"kdj.k"(9,3,3) and cross("kdj.k"(9,3,3),"kdj.d"(9,3,3)); a3:=barslast(ref(cross("rsi.rsi1"(6,12,24),"rsi.rsi2"(6,12,24)),1)); b3:=ref(c,a3+1)>c and ref("rsi.rsi1"(6,12,24),a3+1)<"rsi.rsi1"(6,12,24) and cross("rsi.rsi1"(6,12,24),"rsi.rsi2"(6,12,24)); c1:=barslast(ref(cross(dea,diff),1)); d1:=ref(c,c1+1)diff and cross(dea,diff); c2:=barslast(ref(cross("kdj.d"(9,3,3),"kdj.k"(9,3,3)),1)); d2:=ref(c,c2+1)"kdj.k"(9,3,3) and cross("kdj.d"(9,3,3),"kdj.k"(9,3,3)); c3:=barslast(ref(cross("rsi.rsi2"(6,12,24),"rsi.rsi1"(6,12,24)),1)); d3:=ref(c,c3+1)"rsi.rsi1"(6,12,24) and cross("rsi.rsi2"(6,12,24),"rsi.rsi1"(6,12,24)); macd底背:if(b1>0,-0.1,0),colorred,pointdot; kdj底背:if(b2>0,-0.1,0),colorff00ff,pointdot; rsi底背:if(b3>0,-0.1,0),coloryellow,pointdot; macd顶背:if(d1>0,0.1,0),color00ff00,pointdot; kdj顶背:if(d2>0,0.1,0),colorffcc66,pointdot; rsi顶背:if(d3>0,0.1,0),colorwhite,pointdot; stickline(b1>0,-0.1,0,2,0),colorred; stickline(b2>0,-0.1,0,2,0),colorff00ff; stickline(b3>0,-0.1,0,2,0),coloryellow; stickline(d1>0,0.1,0,2,0),color00ff00; stickline(d2>0,0.1,0,2,0),colorffcc66; stickline(d3>0,0.1,0,2,0),colorwhite;