通达信选股指标“黄金坑”求改为大智慧

编写要求：

N:=20;M:=10; XZ1:=(C/REF(C,1)-1)*100; XZ2:=CONST(HHV(XZ1,N)); XZ3:=CONST(LLV(XZ1,N)); T:=EXPMEMA(MAX(MAX(H-L,ABS(H-REF(C,1))),ABS(REF(C,1)-L)),M); HD:=H-REF(H,1); LD:=REF(L,1)-L; DMP:=EXPMEMA(IF(HD>0 AND HD>LD,HD,0),M); DMM:=EXPMEMA(IF(LD>0 AND LD>HD,LD,0),M); VAR1:=DMP/T; VAR2:=DMM/T; VAR3:=EXPMEMA(VAR1,M); VAR4:=EXPMEMA(VAR2,M); VAR5:=IF(VAR3>VAR4,XZ2,XZ3); VAR6:=REF(VAR5,2)>0 AND LAST(VAR5<0,1,1); VAR7:=REF(VAR5,3)>0 AND LAST(VAR5<0,2,1); 黄金坑:(VAR6 OR VAR7) AND VAR5>0,COLORYELLOW;

解答：

?N:=20;M:=10;
XZ1:=(C/REF(C,1)-1)*100;
XZ2:=HHV(XZ1,N);
XZ3:=LLV(XZ1,N);
T:=EMA(MAX(MAX(H-L,ABS(H-REF(C,1))),ABS(REF(C,1)-L)),M);
HD:=H-REF(H,1);
LD:=REF(L,1)-L;
DMP:=EMA(IF(HD>0 AND HD>LD,HD,0),M);
DMM:=EMA(IF(LD>0 AND LD>HD,LD,0),M);
VAR1:=DMP/T;
VAR2:=DMM/T;
VAR3:=EMA(VAR1,M);
VAR4:=EMA(VAR2,M);
VAR5:=IF(VAR3>VAR4,XZ2,XZ3);
VAR6:=REF(VAR5,2)>0 AND ref(VAR5<0,1);
VAR7:=REF(VAR5,3)>0 AND ref(VAR5<0,2);
黄金坑:(VAR6 OR VAR7) AND VAR5>0;