请教程序编写？

N:=BARSLAST(DATE<>REF(DATE,1))+1;

A:REF(C,N);//昨天的收盘价
B:VALUEWHEN(N=1,H);
D:VALUEWHEN(N=1,L);
C<MAX(A,MAX(B,D)),BPK;
C>MIN(A,MIN(B,D)),SPK;
AUTOFILTER;

仅供参考；