相關(guān)標(biāo)簽:

?

自用成交
網(wǎng)上源碼組合
參數(shù)N=5

DRAWGBKLAST(DATE>900101,STRIP(RGB(75,75,75),RGB(0,0,0),0));
DRAWTEXTABS(10,10,STKLABEL+' '+STKNAME+' '+BKNAME),COLOR00FFFF;
總股本（億）:FINANCE2(35)/10000,COLORYELLOW,LINETHICK0;
流通（億）:FINANCE2(37)/10000,COLORFFFFFF,LINETHICK0;
均價(jià):=(3*C+H+L+O)/6;
VAR1x:=(8*均價(jià)+7*REF(均價(jià),1)+6*REF(均價(jià),2)+5*REF(均價(jià),3)+4*REF(均價(jià),4)+3*REF(均價(jià),5)+2*REF(均價(jià),6)+REF(均價(jià),8))/36;
VAR2x:=(LLV(VAR1x,2)+LLV(VAR1x,4)+LLV(VAR1x,6))/3;
SZ1:=REF(VAR1x,1)=REF(VAR2x,1) AND VAR1x>VAR2x AND CLOSE>VAR1x;
SZ2:=VAR1x>VAR2x AND VAR1x>REF(VAR1x,1) AND VAR2x>REF(VAR2x,1) AND H/VAR1x<1.1 AND L>VAR2x AND CLOSE>VAR1x;
SZ3:=VAR1x>VAR2x AND VAR1x>REF(VAR1x,1) AND VAR2x>=REF(VAR2x,1) AND H/VAR1x>1.1;
SZ4:=VAR1x>VAR2x AND VAR1x>REF(VAR1x,1) AND VAR2x>REF(VAR2x,1) AND CLOSE>VAR2x AND CLOSE<VAR1x;
SZ5:=(VAR1x>VAR2x AND VAR2x>REF(VAR2x,1) AND VAR1x<>REF(VAR1x,1) AND CLOSE<VAR2x) OR (VAR1x>VAR2x AND VAR1x<REF(VAR1x,1) AND VAR2x<REF(VAR2x,1) AND CLOSE<VAR2x);
SZ6:=REF(VAR1x,1)>REF(VAR2x,1) AND VAR1x=VAR2x AND CLOSE<VAR2x;
XD1:=VAR1x=VAR2x AND CLOSE<VAR2x OR (VAR1x<REF(VAR1x,1) AND VAR2x<REF(VAR2x,1) AND REF(VAR1x,1)=REF(VAR2x,1) AND CLOSE<VAR2x);
XD2:=VAR1x=VAR2x AND CLOSE>VAR1x;
SAT:=(AMOUNT/C)/(HHV(AMOUNT,N)/HHV(C,N));
量能飽和度:=IF(SAT>1,1,SAT)*100;
IF BARSTATUS=2 AND SZ1 THEN BEGIN
DRAWTEXTABS(320,25,'調(diào)整結(jié)束短線介入'),COLORRED;
END
ELSE
IF BARSTATUS=2 AND SZ2 THEN BEGIN
DRAWTEXTABS(320,25,'上升通道走勢(shì)良好'),COLORRED;
END
ELSE
IF BARSTATUS=2 AND SZ3 THEN BEGIN
DRAWTEXTABS(320,25,'股價(jià)偏離注意調(diào)整'),COLORRED;
END
ELSE
IF BARSTATUS=2 AND SZ4 THEN BEGIN
DRAWTEXTABS(320,25,'上升通道調(diào)整洗盤'),COLORGREEN;{http://www.kzuj.com.cn}
END
ELSE
IF BARSTATUS=2 AND SZ5 THEN BEGIN
DRAWTEXTABS(320,25,'轉(zhuǎn)向特征注意離場(chǎng)'),COLORGREEN;{http://www.kzuj.com.cn}
END
ELSE
IF BARSTATUS=2 AND SZ6 THEN BEGIN
DRAWTEXTABS(320,25,'通道改變堅(jiān)決離場(chǎng)'),COLORGREEN;{http://www.kzuj.com.cn}
END
ELSE
IF BARSTATUS=2 AND XD1 THEN BEGIN
DRAWTEXTABS(320,25,'下跌通道只宜觀望'),COLORGREEN;{http://www.kzuj.com.cn}
END
ELSE
IF BARSTATUS=2 AND XD2 THEN BEGIN
DRAWTEXTABS(320,25,'短期底部準(zhǔn)備進(jìn)入'),COLORYELLOW;
END;
AB1:=COST(0.33);
AB2:=COST(5);
AB3:=COST(15);
AB4:=COST(55);
AB5:=COST(97);
AA1:=COST(90);
AA2:=COST(70);
AA3:=COST(30);
AA4:=COST(10);
獲利:=WINNER(CLOSE)*100;
套牢:=100-WINNER(CLOSE)*100;
DRAWTEXTABS(15,25,'量能飽和度:'+NUMTOSTRN(量能飽和度,2)+'%'),COLOR00FFFF;
DRAWTEXTABS(15,40,'90成本:'+NUMTOSTRN(AA1,2)),COLOR00FFFF;
DRAWTEXTABS(15,55,'70成本:'+NUMTOSTRN(AA2,2)),COLOR00FFFF;
DRAWTEXTABS(15,70,'30成本:'+NUMTOSTRN(AA3,2)),COLOR00FFFF;
DRAWTEXTABS(15,85,'10成本:'+NUMTOSTRN(AA4,2)),COLOR00FFFF;
VOL,VOLSTICK;
T1:1/VOL*1000>0.01 AND "KDJ.J"<0;
選股:REF(T1,1)=1 AND T1=0;
選股*MIN(vol*3,MA(V,5)*2),COLORYELLOW,LINETHICK3;

{程序化交易 www.kzuj.com.cn }


{程序化交易 www.kzuj.com.cn }


{程序化交易 www.kzuj.com.cn }
{程序化交易 www.kzuj.com.cn }

?

公式導(dǎo)入教程: 【通達(dá)信公式源碼導(dǎo)入方法教程】 【同花順公式源碼導(dǎo)入方法教程】 【大智慧新一代公式源碼導(dǎo)入方法教程】

?