有庄公式改成大智慧的

九毛八公式指标

请老师帮我把通达信有庄公式改成大智慧的，谢谢！ 源码：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,LINETHICK2; 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,LINETHICK2; 神:=EMA(财,M1),COLORGREEN,LINETHICK1; {股价与均线偏离买卖条件} BTJ1:=(C-JJ)/JJ<-0.01; BTJ11:=(C-JJ)/JJ<-0.01; BTJ12:=LAST(JJ>=REF(JJ,1),5,1) 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(财,神) 财<-0.1; stj31: =CROSS(神,财);STJ32:=CROSS(神,财) 财>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; DEA:= EMA(DIFF,3),COLORGREEN; 庄:= BTJ11 AND BTJ2 AND BTJ3; 有庄:FILTER(庄,55),COLORWHITE;

公式模块：

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); 主力出货:=控盘<REF(控盘,1) AND 控盘>0; 高度控盘:VAR2>50 AND COST(85)<CLOSE AND 控盘>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:=控盘<REF(控盘,1) AND 控盘>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;