?

同花順好用MA副圖指標源碼

?

原理解析：
填充背景 輸出DIF:收盤價的5日指數移動平均-收盤價的10日指數移動平均,畫紅色,線寬為2 輸出DEA:DIF的3日指數移動平均,畫白色,線寬為2 當滿足條件DIF上穿DEA時,在DIF-0位置書寫文字,畫紅色 當滿足條件DEA上穿DIF時,在DIF+0位置書寫文字,畫綠色 輸出MACD彩柱:(DIF-DEA)*2,COLORSTICK 當滿足條件((MACD彩柱<1日前的MACD彩柱)AND(MACD彩柱>0))時,在0和MACD彩柱位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,畫淡藍色,線寬為2 當滿足條件((MACD彩柱>1日前的MACD彩柱)AND(MACD彩柱<0))時,在0和MACD彩柱位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORFF00FF,線寬為2 輸出持倉段:如果DIF<0,返回DIF,否則返回0,畫黃色,線寬為2 輸出加倉段:如果DIF<0,返回0,否則返回DIF,畫紅色,線寬為2 輸出白線空倉段:如果DIF<DEA,返回DIF,否則返回DEA,畫白色,線寬為2 輸出趨勢強弱:如果DIF>DEA,返回DEA,否則返回DEA,COLORFFFF00,線寬為2 AA賦值:統計上次DEA>=0距今天數日中滿足DIF上穿DEA的天數 二次金叉賦值:DIF上穿DEA AND DEA<0 AND 統計21日中滿足AA=2的天數=1 當滿足條件二次金叉時,在0.2位置書寫文字,畫黃色 A1賦值:上次1日前的DIF上穿DEA距今天數 底背離賦值:A1+1日前的收盤價>收盤價 AND DIF>A1+1日前的DIF AND DIF上穿DEA 當滿足條件底背離時,在0和0.03位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR00FF00 輸出底背:當滿足條件A1=0時,在DEA位置畫直線起點，當滿足條件底背離時,在DEA位置畫直線終點,0表示是否延長.,畫紅色,線寬為4 當滿足條件底背離時,在0.12位置書寫文字,COLORFF00FF A2賦值:上次1日前的DEA上穿DIF距今天數 頂背離賦值:A2+1日前的收盤價<收盤價 AND A2+1日前的DIF>DIF AND DEA上穿DIF 輸出頂背:當滿足條件A2=0時,在DEA位置畫直線起點，當滿足條件頂背離時,在DEA位置畫直線終點,0表示是否延長.,畫綠色,線寬為4

?

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

源碼：

?

?

DRAWGBK(V>1,STRIP(RGB(60,100,255),RGB(180,180,255),1));
DIF:EMA(CLOSE,5)-EMA(CLOSE,10),colorred,LINETHICK2;
DEA:EMA(DIF,3),colorwhite,LINETHICK2;
DRAWTEXT(CROSS(DIF,DEA),DIF-0,'建倉'),colorred;
DRAWTEXT(CROSS(DEA,DIF),DIF+0,'空倉'),colorgreen;
MACD彩柱:(DIF-DEA)*2,COLORSTICK;
STICKLINE(((MACD彩柱<REF(MACD彩柱,1)) AND (MACD彩柱>0)),0,MACD彩柱,1,0),COLORLIBLUE,LINETHICK2;
STICKLINE(((MACD彩柱>REF(MACD彩柱,1)) AND (MACD彩柱<0)),0,MACD彩柱,1,0),COLORFF00FF,LINETHICK2;
持倉段:IF(DIF<0,DIF,0),coloryellow,LINETHICK2;
加倉段:IF(DIF<0,0,DIF),colorred,LINETHICK2;
白線空倉段:IF(DIF<DEA,DIF,DEA),colorwhite,LINETHICK2;
趨勢強弱:IF(DIF>DEA,DEA,DEA),ColorFFFF00,LINETHICK2;
AA:=COUNT(CROSS(DIF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIF,DEA) AND DEA<0 AND COUNT(AA=2,21)=1;
DRAWTEXT(二次金叉,0.2,' 二次金叉'),coloryellow;
A1:=BARSLAST(REF(CROSS(DIF,DEA),1));
底背離:=REF(CLOSE,A1+1)>CLOSE AND DIF>REF(DIF,A1+1) AND CROSS(DIF,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,DIF),1));
頂背離:=REF(CLOSE,A2+1)<CLOSE AND REF(DIF,A2+1)>DIF AND CROSS(DEA,DIF);
頂背:DRAWLINE(A2=0,DEA,頂背離,DEA,0),colorgreen,LINETHICK4;
TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.kzuj.com.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?