<十线全红>B1变红时设为选股公式

<十线全红>B1变红时设为选股公式

编写要求：

请老师编写<十线全红>第一条线B1变红时设为选股公式QJJ:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));XVL:=(IF(CLOSE>OPEN,QJJ*(HIGH-LOW),IF(CLOSEOPEN,0-QJJ*(HIGH-CLOSE+OPEN-LOW),IF(CLOSEREF(B1,1),B1,DRAWNULL),COLORRED;A2:IF(B2>REF(B2,1),B2,DRAWNULL),COLORRED;A3:IF(B3>REF(B3,1),B3,DRAWNULL),COLORRED;A4:IF(B4>REF(B4,1),B4,DRAWNULL),COLORRED;A5:IF(B5>REF(B5,1),B5,DRAWNULL),COLORRED;A6:IF(B6>REF(B6,1),B6,DRAWNULL),COLORRED;A7:IF(B7>REF(B7,1),B7,DRAWNULL),COLORRED;A8:IF(B8>REF(B8,1),B8,DRAWNULL),COLORRED;A9:IF(B9>REF(B9,1),B9,DRAWNULL),COLORRED;A10:IF(B10>REF(B10,1),B10,DRAWNULL),COLOR16DCF8,LINETHICK1;

解答：

QJJ:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));

XVL:=(IF(CLOSE>OPEN,QJJ*(HIGH-LOW),IF(CLOSE<OPEN,QJJ*(HIGH-OPEN+CLOSE-LOW),VOL/2))+IF(CLOSE>OPEN,0-QJJ*(HIGH-CLOSE+OPEN-LOW),IF(CLOSE<OPEN,0-QJJ*(HIGH-LOW),0-VOL/2)));