把有庄公式改成选股公式

编写要求：

源码：VAR1:=EMA(EMA(CLOSE,13),13);控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;无庄控盘:=控盘<0;有庄控盘:=控盘>REF(控盘,1) AND 控盘>0;VAR2:=100*WINNER(CLOSE*0.35);主力出货:=控盘0;高度控盘:VAR2>50 AND COST(85)0,COLOR00FFFF,LINETHICK0;A10:=CROSS(控盘,0);控盘B:=FILTER(IF(A10,1,0),5);{分时价格原码}JJ:=DYNAINFO(11);{波段买卖原码}P:=55;S:=8;M1:=3;财:(EMA(CLOSE,S)-EMA(CLOSE,P))*10,COLORRED,LINETHICK0;神:EMA(财,M1),COLORGREEN,LINETHICK0;{股价与均线偏离买卖条件}BTJ1:=(C-JJ)/JJ<-0.01;BTJ11:=(C-JJ)/JJ<-0.01;BTJ12:=BARSLAST(JJ<=REF(JJ,1))>=6 AND (C-JJ)/JJ<0.005;STJ1:=(C-JJ)/JJ>0.005;{控盘买卖条件}STJ01:=控盘0.5;STJ02:=控盘>0;BTJ2:=控盘>REF(控盘,1) AND 控盘<-0.2;BTJ22:=控盘>REF(控盘,1) AND 控盘<0 ;{波段买卖条件}BTJ3:=CROSS(财,神) AND 财<-0.3;BTJ32:=CROSS(财,神) AND 财<-0.1;STJ31:=CROSS(神,财);STJ32:=CROSS(神,财) AND 财>1.618;{以下为信号};BTJ81:=FILTER(BTJ1 AND BTJ2 AND BTJ3,13);BTJ811:=FILTER(BTJ11 AND BTJ2 AND BTJ3,13);BTJ82:=FILTER(BTJ12 AND BTJ22 AND BTJ32,13);STJ81:=FILTER(STJ1 AND STJ01 AND STJ31,13);STJ82:=FILTER(STJ02 AND STJ32 ,13);STJ83:=STJ81 AND STJ82;DIFF:(EMA(CLOSE,8) - EMA(CLOSE,55))*10,COLORRED,LINETHICK0;DEA:EMA(DIFF,3),COLORGREEN,LINETHICK0;庄:=BTJ11 AND BTJ2 AND BTJ3;有庄:FILTER(庄,55),COLORWHITE;

解答：

 VAR1:=EMA(EMA(CLOSE,13),13);