把红绿灯副图做个选股公式

 网友求助：

VAR1W:=1;

A:=指数平滑移动平均(收盘价,5);
VAR1:=((收盘价 + 最高价) / 2);
B:=指数平滑移动平均(VAR1,15);
JJ:=(2 * (A - B));
收盘:=JJ;
最高:=(((JJ + 向前引用(JJ,1)) / 2) + 0.1);
开盘:=向前引用(JJ,1);
最低:=(((JJ + 向前引用(JJ,1)) / 2) - 0.1);
AAV:=((最高 + 最低) / 2);
KS:=(((收盘价 - 简单移动平均(收盘价,13)) / 简单移动平均(收盘价,13)) * (0 - 100));
金线:=指数平滑移动平均(((KS / 10) + 指数平滑移动平均(收盘价,10)),3);
画柱线(((收盘 >= 开盘) AND VAR1W),开盘,收盘,5,0),colorFF;
画柱线(((收盘 >= 开盘) AND VAR1W),最低,收盘,0.5,1),colorFF;
画柱线(((收盘 >= 开盘) AND VAR1W),最高,收盘,0.5,1),colorFF;
画柱线(((收盘 >= AAV) AND VAR1W),AAV,收盘,5,0),colorFFFF;
画柱线(((收盘 <= AAV) AND VAR1W),AAV,收盘,5,0),colorFF0000;
画柱线(((收盘 <= 开盘) AND VAR1W),开盘,收盘,5,0),colorFF0000;
画柱线(((收盘 <= 开盘) AND VAR1W),开盘,最高,0.5,0),colorFFFF00;
画柱线(((收盘 <= 开盘) AND VAR1W),开盘,最低,0.5,0),colorFFFF00;
ZYH:(指数平滑移动平均(收盘,5) * VAR1W),colorFF00FF;
ZYG:(指数平滑移动平均(收盘,15) * VAR1W),colorFFFF;
警界区:=(动态移动平均(收盘价,(成交量 ))) * VAR1W);
DDG:=(((收盘价 - 警界区) / 警界区) * 100);
提款路线:=指数平滑移动平均(DDG,3);
启动提款机:条件函数(((提款路线 < (0 - 22)) AND VAR1W),888,0),LINETHICK0;
画图标(((提款路线 < (0 - 24)) AND VAR1W),(0 - 0.1),10);
画图标(((提款路线 < (0 - 24)) AND VAR1W),(0 - 0.2),10);
显示文字((交叉函数(ZYH,ZYG) AND (提款路线 < (0 - 24))),'买 进'),colorFF00FF;
AAK:=条件函数((((简单移动平均(成交量,5) / 240) >= 5) AND ((收盘价 > (向前引用(收盘价,1) * 0.98)) = 1)),88,0);
BBK:=条件函数(((((((收盘价 / 向前引用(收盘价,1)) >= 1) AND (((成交量 / 流通盘大小) * 100) <= 30)) AND (((成交量 / 流通盘大小) * 100) >= 1.5)) AND ((最高价 / 收盘价) <= 1.001)) AND (AAK >= 1)),93,0);
显示文字(((BBK > 90) AND VAR1W),最低,'追 涨'),colorFFFF;
生命线:0,点状线;
红灯:条件函数(((金线 <= 收盘价) AND VAR1W),收盘价,0),LINETHICK0,colorFF;
画图标(((金线 <= 收盘价) AND VAR1W),0.001,10);
绿灯:条件函数(((金线 >= 收盘价) AND VAR1W),收盘价,0),LINETHICK0,colorFF00;
画图标(((金线 >= 收盘价) AND VAR1W),0.001,11);
升跌:=指数平滑移动平均((((收盘价 / 简单移动平均(((((2 * 收盘价) + 最高价) + 最低价) / 4),10)) - 1) * 100),3);
黄灯:条件函数(((升跌 >= 0) AND VAR1W),收盘价,0),LINETHICK0,colorFFFF;
画图标(((升跌 >= 0) 0,12);
绿灯1:条件函数(((升跌 <= 0) AND VAR1W),收盘价,0),LINETHICK0,colorFF00;
画图标(((升跌 <= 0) AND VAR1W),0,11);
画图标((VAR1W),0,50);
画图标((AND VAR1W),0,12);

以上是副图源码，请老师帮忙做个选股公式，出现（追涨）的地方

解答如下：

{红灯:条件函数(((金线 <= 收盘价) AND VAR1W),收盘价,0),LINETHICK0,colorFF;}
KS:=(((收盘价 - 简单移动平均(收盘价,13)) / 简单移动平均(收盘价,13)) * (0 - 100));
金线:=指数平滑移动平均(((KS / 10) + 指数平滑移动平均(收盘价,10)),3);
金线 <= 收盘价;

{绿灯:条件函数(((金线 >= 收盘价) AND VAR1W),收盘价,0),LINETHICK0,colorFF00;}
KS:=(((收盘价 - 简单移动平均(收盘价,13)) / 简单移动平均(收盘价,13)) * (0 - 100));
金线:=指数平滑移动平均(((KS / 10) + 指数平滑移动平均(收盘价,10)),3);
金线 >= 收盘价;