AR1:=IF(((EMA(CLOSE,5))/(EMA(EMA(CLOSE,9),16))<=0.85) AND ((CLOSE)/(REF(CLOSE,1))>0.905) AND ((CLOSE)/(REF(CLOSE,1))<1.05) AND ((VOL/CAPITAL)*(100)<5),50,0);

AR8:=((HHV(HIGH,21)-CLOSE)/(HHV(HIGH,21)-LLV(LOW,21)))*(100)-10;

AR9:=((CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21)))*(100);

AR10:=SMA(AR9,13,8);

AR11:=SMA(AR8,21,8);

红男:SMA(AR10,13,8),colorred;

绿女:MA((((-100))*(HHV(HIGH,34)-CLOSE))/(HHV(HIGH,34)-LLV(LOW,34))+100,5),COLOR00ff00;

缠绵:DRAWTEXT(CROSS(红男,绿女)AND 红男<50 AND 绿女>REF(绿女,1) OR CROSS(红男,绿女)AND 红男<20 AND 红男>REF(红男,2),25,'↑'),linethick6,coloryellow;

悱恻:DRAWTEXT(CROSS(绿女,红男)AND 绿女>80 ,90,'↓'),linethick6,colorwhite;

男欢女爱:DRAWTEXT(红男-AR11<(-65)AND AR1 OR 红男-AR11<(-65)AND 绿女>REF(绿女,1),LOW,'■'),coloryellow;