标题：同花顺指标改成金字塔

A1:=CLOSE>REF(CLOSE,4);
A2:=0;
i:=1;
WHILE i DO
BEGIN
IF REF(A1,i-1) THEN
BEGIN
A2:=A2+1;
I:=I+1;
END
IF NOT(REF(A1,i-1)) THEN BREAK;
END


T9:=IF(A2=9,9,0);
T1:=IF(A2>0 AND A2<=8,1,0)*A2;
DRAWTEXT(T9=9,H*1.04,'9'),colorgreen;
DRAWTEXT(T1>5,H*1.04,NUMTOSTR(T1,0)),COLORff00ff;
B1:=CLOSE<REF(CLOSE,4);//www.70822.com

B2:=0;
j:=1;
WHILE j DO
BEGIN
IF REF(B1,j-1) THEN
BEGIN
B2:=B2+1;
j:=j+1;
END
IF NOT(REF(B1,j-1)) THEN BREAK;
END

N9:=IF(B2=9,9,0);
N1:=IF(B2>0 AND B2<=8,1,0)*B2;
DRAWTEXT(N9=9,L*0.98,'9'),colorred;
DRAWTEXT(N1>5,L*0.98,NUMTOSTR(N1,0)),colorligreen;