股大師資金控盤指標源碼

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

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

② 求經傳軟體主力控盤指標公式，主力狀態公式

主力控盤

N:=35;M:=35;N1:=3;

B1:=(HHV(H,N)-C)/(HHV(H,N)-LLV(LOW,N))*100- M;

B2:=SMA(B1,N,1)+100;

B3:=(C-LLV(L,N))/(HHV(H,N)- LLV(L,N))*100;

B4:=SMA(B3,3,1);

B5:=SMA(B4,3,1)+100;

B6:=B5-B2;

控盤程度:(IF(B6>N1,B6-N1+2,0))*2.5,COLORYELLOW;

控盤度:100,COLORRED;

STICKLINE( 控盤程度,0,控盤程度 ,1.7,0 ),COLOR00FFFF;

STICKLINE( 控盤程度 AND 控盤程度>100,100,控盤程度 ,1.7,0 ),COLORRED;

主力狀態

ZLCM:=EMA(WINNER(CLOSE)*70,3);{//主力籌碼估算}

SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3);{//散戶籌碼估算}

ZSHTL:=SHCM/(ZLCM+SHCM)*100;{//散戶套牢籌碼比率}

ZZLKP:=ZLCM/(ZLCM+SHCM)*100;{//主力控盤籌碼比率}

ZCMZL:=MA(ZLCM+SHCM,13);{//市場籌碼總量}

ZZNTS:=BARSLAST(ZSHTL<90 AND REF(ZSHTL,1)>90);{//走牛天數}

ZSHJJ:=EMA(ZSHTL,89);{//散戶警戒}

ZZLJJ:=EMA(ZZLKP,89);{//主力警戒}

ZJLRQD:=INTPART(ZZLKP-ZZLJJ);{//資金流入強度}

SH8:=EMA(ZSHTL,8);

DKB:=IF(ZZLKP-REF(ZZLKP,1)>ZSHTL-REF(ZSHTL,1),1,0);

{散戶套牢籌碼}

STICKLINE(C>0,ZSHTL,ZZLKP,1,0),COLORFFFFFF;

{散戶籌碼警戒}

STICKLINE(ZSHJJ>REF(ZSHJJ,1),ZSHTL,ZSHJJ,2,0),COLOR00FF00;

{主力控盤籌碼}

STICKLINE(C>0,ZZLKP,0,1,0),COLORA4A4A4;

{築頂風險區}

STICKLINE(ZZLKP>75,ZZLKP,0,1,0),COLORFFFFFF;

{頂部:(ZZLKP>75),COLORFFFFFF;}

{主力籌碼警戒}

STICKLINE(ZZLJJ>REF(ZZLJJ,1),ZZLKP,ZZLJJ,2,0),COLORRED;

{築底散兵坑}

STICKLINE(ZSHTL>=90,ZZLKP,0,2,0),COLOR66FFCC;

{底部:(ZSHTL>=90),COLOR66FFCC;}

{籌碼總量上升}

IF(ZCMZL,ZCMZL>REF(ZCMZL,1),0),COLOR0066FF,LINETHICK1;

(2)股大師資金控盤指標源碼擴展閱讀：

{//------【數值顯示】}

散戶套牢系數:INTPART(ZSHTL),COLORCYAN,LINETHICK2;

主力控盤系數:INTPART(ZZLKP),COLORYELLOW,LINETHICK2;

資金流入強度:ZJLRQD,LINETHICK2,COLORRED;

資金流入強度2:IF(ZJLRQD<10,ZJLRQD,0),LINETHICK2,COLORWHITE;

市場籌碼總量:INTPART(ZCMZL),COLORWHITE,LINETHICK0;

DRAWICON(CROSS(主力控盤系數,散戶套牢系數),散戶套牢系數-5,11)。

③ 求文檔: 經傳主力控盤指標通達信源碼

{N 1 300 35
M 1 500 35
N1 1 1000 3}
B1:=(HHV(H,N)-C)/(HHV(H,N)-LLV(LOW,N))*100- M;
B2:=SMA(B1,N,1)+100;
B3:=(C-LLV(L,N))/(HHV(H,N)- LLV(L,N))*100;
B4:=SMA(B3,3,1);
B5:=SMA(B4,3,1)+100;
B6:=B5-B2;
控盤程度版:(IF(B6>N1,B6-N1,0))*2.5,COLORYELLOW;
控盤度:100,COLORRED;
STICKLINE( 控盤程度,0,控盤程度 ,7,0 ),COLOR00FFFF;
STICKLINE( 控盤程度 AND 控盤程度>100,100,控盤程度 ,7,0 ),COLORRED;

這個是網權上現在流傳的經傳主力控盤源碼。主要是模仿了指標的形態，指標的內在演算法是完全偏離不真實的。

④ 主力資金監測通達信指標公式源碼

源碼導入進去是錯誤的

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

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);
開始控盤:=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;
{去除了收費專用函數和未來函數部分}