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

?

?

原理解析：
M賦值:55 N賦值:34 LC賦值:1日前的收盤價(jià) RSI賦值:(((收盤價(jià)-LC)和0的較大值的3日[1日權(quán)重]移動(dòng)平均 / (收盤價(jià)-LC)的絕對值的3日[1日權(quán)重]移動(dòng)平均) * 100) FF賦值:收盤價(jià)的3日指數(shù)移動(dòng)平均 MA15賦值:收盤價(jià)的21日指數(shù)移動(dòng)平均 VAR1賦值:如果年份>=2038ANDMONTH>=1,返回0,否則返回1 VAR2賦值:1日前的最低價(jià)*VAR1 VAR3賦值:最低價(jià)-VAR2的絕對值的3日[1日權(quán)重]移動(dòng)平均/最低價(jià)-VAR2和0的較大值的3日[1日權(quán)重]移動(dòng)平均*100*VAR1 VAR4賦值:如果收盤價(jià)*1.3,返回VAR3*10,否則返回VAR3/10的3日指數(shù)移動(dòng)平均*VAR1 VAR5賦值:30日內(nèi)最低價(jià)的最低值*VAR1 VAR6賦值:30日內(nèi)VAR4的最高值*VAR1 VAR7賦值:如果收盤價(jià)的58日簡單移動(dòng)平均,返回1,否則返回0*VAR1 VAR8賦值:如果最低價(jià)<=VAR5,返回(VAR4+VAR6*2)/2,否則返回0的3日指數(shù)移動(dòng)平均/618*VAR7*VAR1 輸出主力吸籌:如果VAR8>100,返回100,否則返回VAR8*VAR1,畫洋紅色 輸出莊家吸籌:當(dāng)滿足條件主力吸籌>-150時(shí),在0和主力吸籌位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,畫黃色 輸出散戶: 100*(M日內(nèi)最高價(jià)的最高值-收盤價(jià))/(M日內(nèi)最高價(jià)的最高值-M日內(nèi)最低價(jià)的最低值),畫綠色,線寬為2 RSV賦值:(收盤價(jià)-N日內(nèi)最低價(jià)的最低值)/(N日內(nèi)最高價(jià)的最高值-N日內(nèi)最低價(jià)的最低值)*100 K賦值:RSV的3日[1日權(quán)重]移動(dòng)平均 D賦值:K的3日[1日權(quán)重]移動(dòng)平均 J賦值:3*K-2*D 輸出莊家:J的6日指數(shù)移動(dòng)平均,畫紅色,線寬為2 輸出換手:成交量(手)的1日累和/當(dāng)前流通股本(手)*100,畫洋紅色,NODRAW 輸出跌家:大盤的下跌家數(shù),COLOR99FF99,NODRAW TIPTEXT(ISNULL(1日后的&收盤價(jià)),0,' www.kzuj.com.cn '),畫紅色 TIPTEXT(ISNULL(1日前的收盤價(jià)),0,'同花順程序化交易')

?

?來源:程序化99（ www.kzuj.com.cn ）

源碼：

?

?

?

M:=55;
N:=34;
LC:=REF(CLOSE,1);
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);
FF:=EMA(CLOSE,3);
MA15:=EMA(CLOSE,21);
VAR1:=IF(YEAR>=2038 AND MONTH>=1,0,1);
VAR2:=REF(LOW,1)*VAR1;
VAR3:=SMA(ABS(LOW-VAR2),3,1)/SMA(MAX(LOW-VAR2,0),3,1)*100*VAR1;
VAR4:=EMA(IF(CLOSE*1.3,VAR3*10,VAR3/10),3)*VAR1;
VAR5:=LLV(LOW,30)*VAR1;
VAR6:=HHV(VAR4,30)*VAR1;
VAR7:=IF(MA(CLOSE,58),1,0)*VAR1;
VAR8:=EMA(IF(LOW<=VAR5,(VAR4+VAR6*2)/2,0),3)/618*VAR7*VAR1;
主力吸籌:IF(VAR8>100,100,VAR8)*VAR1,colormagenta;
莊家吸籌:STICKLINE(主力吸籌>-150,0,主力吸籌,1,0),coloryellow;
散戶: 100*(HHV(HIGH,M)-CLOSE)/(HHV(HIGH,M)-LLV(LOW,M)),colorgreen,LINETHICK2;
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
莊家:EMA(J,6),colorred,LINETHICK2;
換手:SUM(VOL,1)/CAPITAL*100,colormagenta,NODRAW;
跌家:INDEXDEC,COLOR99FF99,NODRAW;
TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.kzuj.com.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?