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

?

?

原理解析：
輸出DIFF:收盤價的12日指數(shù)移動平均-收盤價的26日指數(shù)移動平均 輸出DEA:DIFF的6日指數(shù)移動平均 輸出平滑異同平均:(DIFF-DEA)*2, COLORSTICK,線寬為2 低位金叉賦值:DIFF上穿DEA AND DIFF<-0.1 當(dāng)滿足條件低位金叉時,在0和0.08位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,畫黃色 當(dāng)滿足條件低位金叉時,在0.16位置書寫文字,畫白色 JCCOUNT賦值:統(tǒng)計上次DEA>=0距今天數(shù)日中滿足DIFF上穿DEA的天數(shù) 二次金叉賦值:DIFF上穿DEA AND DEA<0 AND 統(tǒng)計21日中滿足JCCOUNT=2的天數(shù)=1 當(dāng)滿足條件二次金叉時,在0和0.06位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLORFF00FF 當(dāng)滿足條件二次金叉時,在DEA*0.9位置畫1號圖標(biāo) 當(dāng)滿足條件二次金叉時,在0.2位置書寫文字,畫黃色 A1賦值:上次1日前的DIFF上穿DEA距今天數(shù) 底背離賦值:A1+1日前的收盤價>收盤價 AND DIFF>A1+1日前的DIFF AND DIFF上穿DEA 當(dāng)滿足條件底背離時,在0和0.03位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR00FF00 輸出底背:當(dāng)滿足條件A1=0時,在DEA位置畫直線起點，當(dāng)滿足條件底背離時,在DEA位置畫直線終點,0表示是否延長.,畫紅色,線寬為4 當(dāng)滿足條件底背離時,在0.12位置書寫文字,COLORFF00FF A2賦值:上次1日前的DEA上穿DIFF距今天數(shù) 頂背離賦值:A2+1日前的收盤價<收盤價 AND A2+1日前的DIFF>DIFF AND DEA上穿DIFF 輸出頂背:當(dāng)滿足條件A2=0時,在DEA位置畫直線起點，當(dāng)滿足條件頂背離時,在DEA位置畫直線終點,0表示是否延長.,畫綠色,線寬為3 當(dāng)滿足條件低位金叉AND二次金叉AND底背離時,在0.25位置書寫文字,COLOR0000FF,線寬為2 TIPTEXT(ISNULL(1日后的&收盤價),0,' www.kzuj.com.cn '),畫紅色 TIPTEXT(ISNULL(1日前的收盤價),0,'同花順程序化交易')

?

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

源碼：

?

?

DIFF:EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:EMA(DIFF,6);
MACD:(DIFF-DEA)*2, COLORSTICK,LINETHICK2;
低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;
STICKLINE(低位金叉,0,0.08,6,0),coloryellow;
DRAWTEXT(低位金叉,0.16,' 低位金叉'),colorwhite;
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
STICKLINE(二次金叉,0,0.06,6,0),COLORFF00FF;
DRAWICON(二次金叉,DEA*0.9,1) ;
DRAWTEXT(二次金叉,0.2,' 二次金叉'),coloryellow;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
底背離:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);
STICKLINE(底背離,0,0.03,6,0),COLOR00FF00;
底背:DRAWLINE(A1=0,DEA,底背離,DEA,0),colorred,LINETHICK4;
DRAWTEXT(底背離,0.12,' 底背離'),COLORFF00FF;
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
頂背離:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF);
頂背:DRAWLINE(A2=0,DEA,頂背離,DEA,0),colorgreen,LINETHICK3;
DRAWTEXT(低位金叉 AND 二次金叉 AND 底背離,0.25,'三全項'),COLOR0000FF,LINETHICK2;
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)入方法教程】

?