这个是在《金字塔程序化交易指南（高级篇）》里看到的，本人只是加了些注释，希望对新人有所帮助。

//如果最新值比满足条件的“高值”高，说明在上涨，红色K线

//如果最新值比满足条件的“低值”低，说明在下跌，绿色K线

//若最新值界于“高值”和“低值”之间，则与前一周期的颜色相同

HH1:=IF(H<REF(H,2) AND REF(H,1)<REF(H,2),REF(H,2),0);

LL1:=IF(L>REF(L,2) AND REF(L,1)>REF(L,2),REF(L,2),0);

HH2:=VALUEWHEN(HH1>0,HH1);  //寻找“高值”---比+1周期和+2周期都高

LL2:=VALUEWHEN(LL1>0,LL1);    //寻找“低值”---比+1周期和+2周期都低

K1:=IF(CLOSE>HH2,-3,IF(CLOSE<LL2,1,0));

{最新值 与“高值”比：

  若最新值比“高值”高，返回-3；

     否则

       最新值 与“低值”比：

       若最新值比“低值”低，返回1；

       若最新值界于“高值”和“低值”之间---即中间值，返回0；}

K2:=VALUEWHEN(K1<>0,K1);//寻找第一个比“高值”高 或者 比“低值”低的

G:=IF(K2=1,HH2,LL2); //若找到的第一个 比“低值”低，返回当时的“高值”

                                 //若找到的第一个 比“高值”高，返回当时的“低值”

G1:=VALUEWHEN(ISLASTBAR,G);  //是否是最后一个周期

W1:=K2;

//上升红色，下降绿色

STICKLINE(W1>0,OPEN,CLOSE,8,1),COLORCYAN; 

STICKLINE(W1<=0,OPEN,CLOSE,8,1),COLORRED;