求一个红色持股预警，感谢！！

暴风雪天

请老师根据下列公式，编个选股预警公式。要求在变成红色时（持股）预警！

H1:=REF(HIGH,1);
L1:=REF(LOW,1);
D1:=HIGH>H1 AND LOW>=L1
AND CLOSE>REF(CLOSE,1);
D11:=HIGH>H1 AND LOW>=L1
AND CLOSE<=REF(CLOSE,1);
D2:=LOW<L1 AND HIGH<H1;
D3:=HIGH>H1 AND LOW<L1
AND CLOSE>REF(CLOSE,1);
D31:=HIGH>H1 AND LOW<L1
AND CLOSE<=REF(CLOSE,1);
D4:=HIGH<=H1 AND LOW>=L1;
FR1:SUM(IF(D1,HIGH,IF(D11,LOW,IF(D2,-HIGH,IF(D3,
HIGH,IF(D31,-HIGH,IF(D4,0,0)))))),0)/100,LINETHICK3,COLORGREEN;

持股:IF(FR1>=REF(FR1,1),FR1,DRAWNULL),LINETHICK3,COLORRED;
持币:IF(FR1<REF(FR1,1),FR1,DRAWNULL),LINETHICK3,COLORGREEN;

新人报道

H1:=REF(HIGH,1);
L1:=REF(LOW,1);
D1:=HIGH>H1 AND LOW>=L1
AND CLOSE>REF(CLOSE,1);
D11:=HIGH>H1 AND LOW>=L1
AND CLOSE<=REF(CLOSE,1);
D2:=LOW<L1 AND HIGH<H1;
D3:=HIGH>H1 AND LOW<L1
AND CLOSE>REF(CLOSE,1);
D31:=HIGH>H1 AND LOW<L1
AND CLOSE<=REF(CLOSE,1);
D4:=HIGH<=H1 AND LOW>=L1;
FR1:=SUM(IF(D1,HIGH,IF(D11,LOW,IF(D2,-HIGH,IF(D3,
HIGH,IF(D31,-HIGH,IF(D4,0,0)))))),0)/100,;
持股:=IF(FR1>=REF(FR1,1),FR1,DRAWNULL);
持币:=IF(FR1<REF(FR1,1),FR1,DRAWNULL);
XG:CROSS(持股,REF(FR1,1));