请高手帮我改个选股公式，谢谢

更新时间2019-01-07 23:21:06

VAR2:=(((CLOSE - MA(CLOSE,6)) / MA(CLOSE,6)) * 100);

VAR3:=(((CLOSE - MA(CLOSE,12)) / MA(CLOSE,12)) * 100);

VAR4:=(((CLOSE - MA(CLOSE,24)) / MA(CLOSE,24)) * 100);

VAR5:=(((VAR2 + (2 * VAR3)) + (3 * VAR4)) / 6);

VAR6:=MA(VAR5,3);

开始控盘:=STICKLINE((VAR6 <= (0 - 10)),0,(0 - 20),3.5,0);

STICKLINE((VAR6 <= (0 - 10)),0,(0 - 20),3.5,0);

STICKLINE((VAR6 <= (0 - 10)),0,(0 - 20),2.5,0);

STICKLINE((VAR6 <= (0 - 10)),0,(0 - 20),3,0);

VAR1:=EMA(EMA(CLOSE,3),1);

控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;

STICKLINE(控盘<0,控盘,0,3.5,0);

STICKLINE(控盘<0,控盘,0,3.5.2,0);

STICKLINE(控盘<0,控盘,0,2.5,0);

STICKLINE(控盘<0,控盘,0,0,0);

主力出货:0,COLORFFAA00;

STICKLINE(控盘>REF(控盘,3) AND 控盘>0,控盘,0,3.5,0);

STICKLINE(控盘>REF(控盘,3) AND 控盘>0,控盘,0,2.5,0);

STICKLINE(控盘>REF(控盘,3) AND 控盘>0,控盘,0,1.5,0);

STICKLINE(控盘>REF(控盘,3) AND 控盘>0,控盘,0,1,0);

主力吸货:0,COLOR0000FF;

STICKLINE(控盘<REF(控盘,3) AND 控盘>0,控盘,0,3.5,0);

STICKLINE(控盘<REF(控盘,3) AND 控盘>0,控盘,0,2.5,0);

STICKLINE(控盘<REF(控盘,3) AND 控盘>0,控盘,0,1.5,0);

STICKLINE(控盘<REF(控盘,3) AND 控盘>0,控盘,0,1,0);

STICKLINE(DDX<0,0,DDX,3.5,0);

STICKLINE(DDX<0,0,DDX,2.5,0);

STICKLINE(DDX<0,0,DDX,1.5,0);

STICKLINE(DDX<0,0,DDX,1,0);

对倒出货洗盘:0,COLOR00FF00;

黄色底部吸货:0,COLORYELLOW;

DRAWTEXT(CROSS(控盘,0),0-3,'买。追'),COLORFF00FF;

DRAWTEXT(CROSS(0,控盘),0-0,'卖'),COLORGREEN;

DATA:=5;

{多头买入} DRAWICON(ZIG(3,DATA)>REF(ZIG(3,DATA),1)

AND REF(ZIG(3,DATA),1)<=REF(ZIG(3,DATA),2)

AND REF(ZIG(3,DATA),2)<=REF(ZIG(3,DATA),3),L*0.98,1);

{多头卖出} DRAWICON(ZIG(3,DATA)<REF(ZIG(3,DATA),1)

AND REF(ZIG(3,DATA),1)>=REF(ZIG(3,DATA),2)

AND REF(ZIG(3,DATA),2)>=REF(ZIG(3,DATA),3),H*1.02,2);

请高手帮我改成通达信选股公式，要求：

1、选出当日出现红色箭头的票

2、选出的带箭头的柱子高度大于40，谢谢
请高手帮我改个选股公式，谢谢

说明：这个公式中的红箭头是用未来函数的ZIG之字转向函数选出的。

VAR1:=EMA(EMA(CLOSE,3),1);

KP:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;

DATA:=5;

KP>40 AND ZIG(3,DATA)>REF(ZIG(3,DATA),1)

AND REF(ZIG(3,DATA),1)<=REF(ZIG(3,DATA),2)

AND REF(ZIG(3,DATA),2)<=REF(ZIG(3,DATA),3);