請高手把通達信的這條主力資金（開始控盤、控盤、主力出貨、主力吸貨）指標公式源碼改為可以在同花順上使

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);

開始控盤:=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,2,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;

對倒出貨洗盤:0,COLOR00FF00;

黃色底部吸貨:0,coloryellow;

DRAWTEXT(CROSS(控盤,0),0-3,'買。追'),COLORFF00FF;

DRAWTEXT(CROSS(0,控盤),0-0,'賣'),colorgreen;

{去除了收費專用函數和未來函數部分}