主力陣地指標源碼

『壹』 小弟跪求經傳軟體的主力狀態的指標源代碼。。。急急急

{主力狀態}
ZLCM:=EMA(WINNER(CLOSE)*7,3);{主力籌碼估算}
SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*8,3);{散戶籌碼估算}
ZSHTL:=SHCM/(ZLCM+SHCM)*10;{散戶套牢籌碼比率}
ZCMZL:=MA(ZLCM+SHCM,13);{市場籌碼總量}
ZZNTS:=BARSLAST(ZSHTL<9 AND REF(ZSHTL,1)>9);{走牛天數}
ZSHJJ:=EMA(ZSHTL,89);
中線強勢:IF(ZLCM/(ZLCM+SHCM)*20-4>0,2*(ZLCM/(ZLCM+SHCM)*20-4),0),COLORRED,LINETHICK2;{主力控盤籌碼比率}
ZZLJJ:=EMA(中線強勢,89);
ZJLRQD:=IF(INTPART(中線強勢-ZZLJJ)>0,INTPART(中線強勢-ZZLJJ)-1,0),COLORBLUE,LINETHICK2;{資金流入強度}
短線強勢:IF(ZJLRQD>0 AND C>REF(C,1),ZJLRQD*1.5,0),LINETHICK3,COLORMAGENTA;
SH8:=EMA(ZSHTL,8);
DKB:=IF(中線強勢-REF(中線強勢,1)>ZSHTL-REF(ZSHTL,1),1,0);
{主力控盤籌碼}
STICKLINE(C>0,中線強勢,0,1.5,0),COLORRED;
{築底散兵坑}
STICKLINE(ZSHTL>=90,中線強勢,0,1.5,0),COLOR66FFCC;
{------【數值顯示】}
散戶套牢系數:=INTPART(ZSHTL),COLORCYAN,LINETHICK2;
中線控盤:INTPART(中線強勢)/5,COLORYELLOW,LINETHICK2;
短線超跌:IF(-ZJLRQD>0,ZJLRQD,0),LINETHICK2,COLORBLUE;
STICKLINE(短線超跌,ZJLRQD,0,1.5,0),COLORBLUE;
市場籌碼總量:=INTPART(ZCMZL),COLORWHITE,LINETHICK0;
STICKLINE(短線強勢,ZJLRQD*1.5,0,1.5,0),COLORMAGENTA;
STICKLINE(中線控盤,中線控盤,0,1.5,0),COLORYELLOW;

『貳』 通達信金牛判勢指標源碼和機構震倉指標怎麼寫，如下圖效果

1. 金牛判勢主圖公式：

• DRAWGBK(C>O,RGB(60,0,0),RGB(0,0,0),1,2,1);

• DRAWTEXT_FIX(1,0.88,5,0,'~☆~皓天~☆~'),COLORBLUE;

• Z1:=STRCAT(HYBLOCK,' ');

• Z2:=STRCAT(Z1,DYBLOCK);

• Z3:=STRCAT(Z2,' ');

• DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLORRED;

• 金牛:(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1+XMA(XMA(H,25),25),DOTLINE,COLORYELLOW;

• 金鑽趨勢:XMA(XMA(L,25),25)-(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1,LINETHICK2,COLORRED;

• 金牛2:EMA(金鑽趨勢,25)COLORCYAN,LINETHICK2;

• DRAWBAND(金鑽趨勢,RGB(55,0,0),金牛2,RGB(0,91,0));

• DRAWKLINE(H,O,L,C);

• STICKLINE(金鑽趨勢>LOW AND 金鑽趨勢<HIGH,金鑽趨勢,MIN(MIN(OPEN,CLOSE),金鑽趨勢),2,0),COLORYELLOW;

• STICKLINE(金鑽趨勢>MIN(C,O) AND 金鑽趨勢<MAX(C,O),金鑽趨勢,MIN(OPEN,CLOSE),2,0),COLORYELLOW;

• STICKLINE(金鑽趨勢>HIGH,OPEN,CLOSE,2,0),COLORYELLOW;

• STICKLINE(金鑽趨勢>HIGH,HIGH,LOW,0,0),COLORYELLOW;

• VAR23:=100*XMA(XMA((C-REF(C,1)),6),6)/XMA(XMA(ABS((C-REF(C,1))),6),6);

• 回調買:=LLV(VAR23,2)=LLV(VAR23,7) AND COUNT(VAR23<0,2) AND CROSS(VAR23,MA(VAR23,2));

• XG:=金鑽趨勢>HIGH AND 回調買 AND L<=金鑽趨勢;

• DRAWTEXT(XG,L,'▲買入'),COLORRED;

• JJ:=(HIGH+LOW+CLOSE)/3;

• QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);

• QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(CLOSE,OPEN)),QJ0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW)));

• QJ2:=IF(CAPITAL=0,QJ0*(MIN(OPEN,CLOSE)-LOW),QJ0*IF(HIGH=LOW,1,(JJ-MIN(CLOSE,OPEN))));

• QJ3:=IF(CAPITAL=0,QJ0*(HIGH-MAX(OPEN,CLOSE)),QJ0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE))));

• QJ4:=IF(CAPITAL=0,QJ0*(MAX(CLOSE,OPEN)-JJ),QJ0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJ)));

• DDX:=((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,10000,10000),COLOR00AAAA,LINETHICK;

• V2:=SMA(IF(C>=REF(C,1),DDX,-DDX/100),2,1);

• V5:=SMA(V2*120/FROMOPEN*5,2,1);

• V10:=SMA(V5,5,1);

• V20:=SMA(V10,5,1);

• DY:=CURRBARSCOUNT=1 AND C<REF(C,1);

• DY2:=REF(V2,1)-DY;

• XG2:=C>O AND DY2<0.02 AND MA(C,5)>MA(C,60) AND C/REF(C,1)>=1.02 AND H<金牛;

• {DRAWTEXT(XG2,L,'▲抓牛'),COLORYELLOW;}

• DRAWTEXT(XG2 AND L<金鑽趨勢,L,'↖金鑽起漲'),COLORMAGENTA;

2機構震倉副圖公式：

• 
  

  

• VAR1:=(CLOSE+HIGH+LOW)/3;

• VAR2:=EMA(VAR1,10);

• VAR3:=REF(VAR2,1);

• 綠探底震倉:IF(VAR2,10,DRAWNULL),COLORGREEN,LINETHICK9;

• 紅買: IF(VAR2>VAR3,10,DRAWNULL), COLORRED,LINETHICK9;

• 藍賣: IF(VAR2<VAR3,10,DRAWNULL),COLORFFFF00,LINETHICK9;

• RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;

• 上穿買:SMA(RSV,3,1),COLORRED;

• 下穿賣:SMA(上穿買,3,1),COLORFFFF00;

希望我的回答能使你滿意。