请高手把通达信的这条主力资金（开始控盘、控盘、主力出货、主力吸货）指标公式源码改为可在大智慧上使用

　　VAR2:=(((CLOSE - MA(CLOSE,6)) / MA(CLOSE,6)) * 100);

　　VAR3:=(((CLOSE - MA(CLOSE,12)) / MA(CLOSE,12)) * 100);

　　VAR4:=(((CLOSE - MA(CLOSE,24)) / MA(CLOSE,24)) * 100);

　　VAR5:=(((VAR2 + (2 * VAR3)) + (3 * VAR4)) / 6);

　　VAR6:=MA(VAR5,3);

　　开始控盘:(VAR6 <= (0 - 10)),COLOR00AAFF;

　　STICKLINE((VAR6 <= (0 - 10)),0,(0 - 20),3.5,0),COLOR00AAFF;

　　STICKLINE((VAR6 <= (0 - 10)),0,(0 - 20),3.5,0),COLOR0044FF;

　　STICKLINE((VAR6 <= (0 - 10)),0,(0 - 20),2.5,0),COLOR0088FF;

　　STICKLINE((VAR6 <= (0 - 10)),0,(0 - 20),3,0),COLOR00AAFF;

　　VAR1:=EMA(EMA(CLOSE,3),1);

　　控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;

　　STICKLINE(控盘<0,控盘,0,3.5,0),COLORFFAA00;

　　STICKLINE(控盘<0,控盘,0,3.5,0),COLORFF4400;

　　STICKLINE(控盘<0,控盘,0,2.5,0),COLORFF8800;

　　STICKLINE(控盘<0,控盘,0,0,0),COLORFFAA00;

　　主力出货:0,COLORFFAA00;

　　STICKLINE(控盘>REF(控盘,3) AND 控盘>0,控盘,0,3.5,0),COLOR000088;

　　STICKLINE(控盘>REF(控盘,3) AND 控盘>0,控盘,0,2.5,0),COLOR0000AA;

　　STICKLINE(控盘>REF(控盘,3) AND 控盘>0,控盘,0,1.5,0),COLOR0000CC;

　　STICKLINE(控盘>REF(控盘,3) AND 控盘>0,控盘,0,1,0),COLOR0000EE;

　　主力吸货:0,COLOR0000FF;

　　STICKLINE(控盘<REF(控盘,3) AND 控盘>0,控盘,0,3.5,0),COLOR008800;

　　STICKLINE(控盘<REF(控盘,3) AND 控盘>0,控盘,0,2.5,0),COLOR00AA00;

　　STICKLINE(控盘<REF(控盘,3) AND 控盘>0,控盘,0,1.5,0),COLOR00CC00;

　　STICKLINE(控盘<REF(控盘,3) AND 控盘>0,控盘,0,1,0),COLOR00EE00;

　　STICKLINE(DDX.DDX<0,0,DDX.DDX,3.5,0),COLOR008800;

　　STICKLINE(DDX.DDX<0,0,DDX.DDX,2.5,0),COLOR00AA00;

　　STICKLINE(DDX.DDX<0,0,DDX.DDX,1.5,0),COLOR00CC00;

　　STICKLINE(DDX.DDX<0,0,DDX.DDX,1,0),COLOR00EE00;

　　对倒出货洗盘:0,COLOR00FF00;

　　黄色底部吸货:0,COLORYELLOW;

　　
 

　　DRAWTEXT(CROSS(控盘,0),0-3,买。追),COLORFF00FF;

　　DRAWTEXT(CROSS(0,控盘),0-0,卖),COLORGREEN;

　　DATA:=5;

　　{多头买入} DRAWICON(ZIG(3,DATA)>REF(ZIG(3,DATA),1)

　　AND REF(ZIG(3,DATA),1)<=REF(ZIG(3,DATA),2)

　　AND REF(ZIG(3,DATA),2)<=REF(ZIG(3,DATA),3),L*0.98,7);

　　{多头卖出} DRAWICON(ZIG(3,DATA)<REF(ZIG(3,DATA),1)

　　AND REF(ZIG(3,DATA),1)>=REF(ZIG(3,DATA),2)

　　AND REF(ZIG(3,DATA),2)>=REF(ZIG(3,DATA),3),H*1.02,8);

　　 大智慧指标改成通达信指标：控盘指标

　　DDKP:=EMA((WINNER(CLOSE) * 70),3); 
WWKP:=EMA(((WINNER((CLOSE * 1.1)) - WINNER((CLOSE * 0.9))) * 80),3); 
主力控盘:((DDKP / (DDKP + WWKP)) * 100),LINETHICK2,COLORYELLOW;
顶:90, LINETHICK2 ,COLORRED;
风险:80,,COLORYELLOW; 平衡:50,COLORGREEN;
安全:20,COLORBLUE; 
底:0, LINETHICK2 ,COLORWHITE;
DRAWTEXT(CROSS(主力控盘,20),安全,买入),COLORYELLOW; 
DRAWTEXT(CROSS(主力控盘,50),平衡,买入),COLORRED;

　　 求文档: 经传主力控盘指标通达信源码

　　 网上现在流传的经传主力控盘源码基本上无真实的。
主要是模仿了指标的形态，指标的内在算法是完全偏离的。
可与正版进行对比。
主力控盘指标，主要是反映主力对股价的控制能力，算法极其复杂。 请高手给我把通达信主力控盘公式改成选出开始控盘的选股公式

　　 VAR1:=EMA(EMA(CLOSE,9),9);
控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
开始控盘:CROSS(控盘,0);
测试通过，
希望能够帮助你！ 求通达信主图筹码分布公式，若得以实现，再追加50分

　　 看你提的问题，水平不错，非常希望认识你，和你交流。你提出的问题我建议你看雪峰的 股市分析实战技法 这本书。我的QQ号码是361488535。欢迎交流。 请高手将这个通达信指标改成选股公式。选出当天主力控盘系数大于60的股票 谢谢

　　 ZLCM:=EMA(WINNER(CLOSE)*70,3);{//主力筹码估算}
SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3);{//小筹码估算}
ZZLKP:=ZLCM/(ZLCM+SHCM)*100;{//主力控盘筹码比率}
主力控盘系数:INTPART(ZZLKP)>60;