把{蒙蒙高买卖选股}等三个选股合成一个选股

把{蒙蒙高买卖选股}等三个选股合成一个选股

编写要求：

解答：

网友求助：

{蒙蒙高买卖选股}
VAR1:=(C-EMA(C,6))/EMA(C,6);
VAR2:=EMA(EMA(VAR1,3),3);
VAR3:=EMA(EMA(VAR1,3),2);
VAR4:=100*( VAR2+ VAR3);
VAR5:=EMA(VAR4,2.5);
VAR02:=EMA(EMA(VAR1,3),3);
VAR03:=EMA(EMA(VAR1,3),2);
VAR04:=100*( VAR02+ VAR03);
BI:=100*(H+L)/2/EMA(C,17)-100;
BUY1:=VAR4>REF(VAR4,1) AND REF(VAR4,1)<REF(VAR4,2) AND REF(VAR4,2)<REF(VAR4,3);
BUY2:=REF(BI,1)>0 AND BUY1 AND VAR4<-2;
BUY3:=REF(BI,1)<0 AND BUY1 AND REF(VAR4,1)<-3;
BUY4:=VAR4<0 AND CROSS(VAR4,VAR5) AND BUY1;
BUY:=(BUY2 OR BUY3 OR BUY4) AND (EMA(INDEXC,5)>REF(EMA(INDEXC,5),1) OR VAR04>=REF(VAR04,1));
BUY;

VAR1:=1;
VAR2:=((((2*CLOSE)+HIGH)+LOW) / 4);
VAR4:=LLV(LOW,5);
VAR5:=HHV(HIGH,4);
C1:=(EMA((((VAR2-VAR4)/(VAR5-VAR4))*100),4)*VAR1);
C2:=(EMA(((0.667*REF(C1,1))+(0.333*C1)),2)*VAR1);
种金:CROSS(C1,C2);

VAR1:=EMA(EMA(CLOSE,3),1);
控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
追买:CROSS(控盘,0);