相關標簽:

?

原理解析：
輸出DIFF:收盤價的12日指數移動平均-收盤價的27日指數移動平均 輸出DEA:DIFF的9日指數移動平均 MACD賦值:2*(DIFF-DEA) 當滿足條件MACD>=0時,在MACD和0位置之間畫柱狀線,寬度為4,1不為0則畫空心柱.,COLORF00FF0 當滿足條件MACD<0時,在MACD和0位置之間畫柱狀線,寬度為4,1不為0則畫空心柱.,畫白色 當滿足條件MACD<1日前的MACDANDMACD>0時,在0和MACD位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR00AAFF 當滿足條件MACD<1日前的MACDANDMACD>0時,在0和MACD位置之間畫柱狀線,寬度為3.3,0不為0則畫空心柱.,COLOR00BBFF 當滿足條件MACD<1日前的MACDANDMACD>0時,在0和MACD位置之間畫柱狀線,寬度為2.2,0不為0則畫空心柱.,COLOR00CCFF 當滿足條件MACD<1日前的MACDANDMACD>0時,在0和MACD位置之間畫柱狀線,寬度為1.65,0不為0則畫空心柱.,COLOR00DDFF 當滿足條件MACD<1日前的MACDANDMACD>0時,在0和MACD位置之間畫柱狀線,寬度為1.1,0不為0則畫空心柱.,COLOR00EEFF 當滿足條件MACD<1日前的MACDANDMACD>0時,在0和MACD位置之間畫柱狀線,寬度為0.55,0不為0則畫空心柱.,COLOR00FFFF 當滿足條件MACD>=1日前的MACDANDMACD>0時,在0和MACD位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR0000AA 當滿足條件MACD>=1日前的MACDANDMACD>0時,在0和MACD位置之間畫柱狀線,寬度為3.3,0不為0則畫空心柱.,COLOR0011BB 當滿足條件MACD>=1日前的MACDANDMACD>0時,在0和MACD位置之間畫柱狀線,寬度為2.2,0不為0則畫空心柱.,COLOR0022CC 當滿足條件MACD>=1日前的MACDANDMACD>0時,在0和MACD位置之間畫柱狀線,寬度為1.65,0不為0則畫空心柱.,COLOR0033DD 當滿足條件MACD>=1日前的MACDANDMACD>0時,在0和MACD位置之間畫柱狀線,寬度為1.1,0不為0則畫空心柱.,COLOR0044EE 當滿足條件MACD>=1日前的MACDANDMACD>0時,在0和MACD位置之間畫柱狀線,寬度為0.55,0不為0則畫空心柱.,COLOR0055FF 當滿足條件MACD>1日前的MACDANDMACD<0時,在0和MACD位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLORAA00BB 當滿足條件MACD>1日前的MACDANDMACD<0時,在0和MACD位置之間畫柱狀線,寬度為3.3,0不為0則畫空心柱.,COLORBB11BB 當滿足條件MACD>1日前的MACDANDMACD<0時,在0和MACD位置之間畫柱狀線,寬度為2.2,0不為0則畫空心柱.,COLORCC22BB 當滿足條件MACD>1日前的MACDANDMACD<0時,在0和MACD位置之間畫柱狀線,寬度為1.65,0不為0則畫空心柱.,COLORDD33BB 當滿足條件MACD>1日前的MACDANDMACD<0時,在0和MACD位置之間畫柱狀線,寬度為1.1,0不為0則畫空心柱.,COLOREE44BB 當滿足條件MACD>1日前的MACDANDMACD<0時,在0和MACD位置之間畫柱狀線,寬度為0.55,0不為0則畫空心柱.,COLORFF55BB 當滿足條件MACD<=1日前的MACDANDMACD<0時,在0和MACD位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLORFFAA00 當滿足條件MACD<=1日前的MACDANDMACD<0時,在0和MACD位置之間畫柱狀線,寬度為3.3,0不為0則畫空心柱.,COLORFFBB11 當滿足條件MACD<=1日前的MACDANDMACD<0時,在0和MACD位置之間畫柱狀線,寬度為2.2,0不為0則畫空心柱.,COLORFFCC22 當滿足條件MACD<=1日前的MACDANDMACD<0時,在0和MACD位置之間畫柱狀線,寬度為1.65,0不為0則畫空心柱.,COLORFFDD33 當滿足條件MACD<=1日前的MACDANDMACD<0時,在0和MACD位置之間畫柱狀線,寬度為1.1,0不為0則畫空心柱.,COLORFFEE44 當滿足條件MACD<=1日前的MACDANDMACD<0時,在0和MACD位置之間畫柱狀線,寬度為0.55,0不為0則畫空心柱.,COLORFFFF55 如果DIFF<0,返回DIFF,否則返回0,畫紅色,線寬為1 如果DIFF<0,返回0,否則返回DIFF,畫黃色,線寬為1 如果DIFF<DEA,返回DIFF,否則返回DEA,COLOR00FF00,線寬為1 如果DIFF>DEA,返回DEA,否則返回DEA,畫白色,線寬為1 低位金叉賦值:DIFF上穿DEA AND DIFF<-0.1 當滿足條件低位金叉時,在0和-0.18位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,畫黃色 當滿足條件低位金叉時,在-0.3位置書寫文字,畫黃色 JCCOUNT賦值:統計上次DEA>=0距今天數日中滿足DIFF上穿DEA的天數 二次金叉賦值:DIFF上穿DEA AND DEA<0 AND 統計21日中滿足JCCOUNT=2的天數=1 當滿足條件二次金叉時,在0和-0.18位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLORFF00FF 當滿足條件二次金叉時,在DEA*1.1位置畫13號圖標 當滿足條件二次金叉時,在-0.4位置書寫文字,COLORFF00FF A1賦值:上次1日前的DIFF上穿DEA距今天數 底背離賦值:A1+1日前的收盤價>收盤價 AND DIFF>A1+1日前的DIFF AND DIFF上穿DEA 當滿足條件底背離時,在0和0.13位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLOR00FF00 當滿足條件A1=0時,在DEA位置畫直線起點，當滿足條件底背離時,在DEA位置畫直線終點,0表示是否延長.,畫紅色,線寬為2 當滿足條件底背離時,在0.2位置書寫文字,COLOR00FF00 A2賦值:上次1日前的DEA上穿DIFF距今天數 頂背離賦值:A2+1日前的收盤價<收盤價 AND A2+1日前的DIFF>DIFF AND DEA上穿DIFF 當滿足條件A2=0時,在DEA位置畫直線起點，當滿足條件頂背離時,在DEA位置畫直線終點,0表示是否延長.,畫綠色,線寬為2 當滿足條件收陽線時,在橫軸0.01縱軸0.9位置書寫文字,畫紅色 當滿足條件收陽線時,在橫軸1縱軸1位置書寫文字,畫紅色

?

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

源碼：

?

?

DIFF:EMA(CLOSE,12)-EMA(CLOSE,27);
DEA:EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
STICKLINE(MACD>=0,MACD,0,4,1),COLORF00FF0;
STICKLINE(MACD<0,MACD,0,4,1),COLORWHITE;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,4,0 ),COLOR00AAFF;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,3.3,0 ),COLOR00BBFF;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2.2,0 ),COLOR00CCFF;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,1.65,0 ),COLOR00DDFF;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,1.1,0 ),COLOR00EEFF;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,0.55,0 ),COLOR00FFFF;
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,4 ,0 ),COLOR0000AA;
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,3.3 ,0 ),COLOR0011BB;
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,2.2,0 ),COLOR0022CC;
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,1.65 ,0 ),COLOR0033DD;
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,1.1 ,0 ),COLOR0044EE;
STICKLINE(MACD>=REF(MACD,1)AND MACD>0,0,MACD,0.55 ,0 ),COLOR0055FF;
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,4,0 ),COLORAA00BB;
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,3.3 ,0 ),COLORBB11BB;
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,2.2,0 ),COLORCC22BB;
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,1.65,0 ),COLORDD33BB;
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,1.1,0 ),COLOREE44BB;
STICKLINE(MACD>REF(MACD,1)AND MACD<0,0,MACD,0.55 ,0 ),COLORFF55BB;
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,4,0 ),COLORFFAA00;
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,3.3 ,0 ),COLORFFBB11;
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,2.2,0 ),COLORFFCC22;
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,1.65 ,0 ),COLORFFDD33;
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,1.1 ,0 ),COLORFFEE44;
STICKLINE(MACD<=REF(MACD,1)AND MACD<0,0,MACD,0.55 ,0 ),COLORFFFF55;
IF(DIFF<0,DIFF,0),COLORRED,LINETHICK1;
IF(DIFF<0,0,DIFF),COLORYELLOW,LINETHICK1;
IF(DIFF<DEA,DIFF,DEA),COLOR00FF00,LINETHICK1;
IF(DIFF>DEA,DEA,DEA),COLORWHITE,LINETHICK1;
低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;
STICKLINE(低位金叉,0,-0.18,6,0),COLORYELLOW;
DRAWTEXT(低位金叉,-0.3, '低位金叉'),COLORYELLOW;
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
STICKLINE(二次金叉,0,-0.18,6,0),COLORFF00FF;
DRAWICON(二次金叉,DEA*1.1,13) ;
DRAWTEXT(二次金叉,-0.4, '二次金叉'),COLORFF00FF;
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.13,6,0),COLOR00FF00;
DRAWLINE(A1=0,DEA,底背離,DEA,0),COLORRED,LINETHICK2;
DRAWTEXT(底背離,0.2, '底背離'),COLOR00FF00;
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,LINETHICK2;
DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.kzuj.com.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

?

?

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

?