相關標簽:

?

?

?

原理解析：
A賦值:成交量(手)*收盤價 B賦值:A的1日累和/成交量(手)的1日累和 B1賦值:B的17日指數移動平均 資金賦值:(B-B1)*100/B 輸出DIFF : 資金的10日指數移動平均 - 資金的20日指數移動平均 輸出DEA : DIFF的6日指數移動平均 輸出平滑異同平均 : 2*(DIFF-DEA), COLORSTICK 當滿足條件平滑異同平均>=0時,在平滑異同平均和0位置之間畫柱狀線,寬度為4,1不為0則畫空心柱.,COLORF00FF0 當滿足條件平滑異同平均<0時,在平滑異同平均和0位置之間畫柱狀線,寬度為3.1,1不為0則畫空心柱.,畫白色 當滿足條件平滑異同平均<1日前的平滑異同平均ANDMACD>0時,在0和平滑異同平均位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR00AAFF 當滿足條件平滑異同平均<1日前的平滑異同平均ANDMACD>0時,在0和平滑異同平均位置之間畫柱狀線,寬度為2.2,0不為0則畫空心柱.,COLOR00BBFF 當滿足條件平滑異同平均<1日前的平滑異同平均ANDMACD>0時,在0和平滑異同平均位置之間畫柱狀線,寬度為1.8,0不為0則畫空心柱.,COLOR00CCFF 當滿足條件平滑異同平均<1日前的平滑異同平均ANDMACD>0時,在0和平滑異同平均位置之間畫柱狀線,寬度為1.3,0不為0則畫空心柱.,COLOR00DDFF 當滿足條件平滑異同平均<1日前的平滑異同平均ANDMACD>0時,在0和平滑異同平均位置之間畫柱狀線,寬度為0.9,0不為0則畫空心柱.,COLOR00EEFF 當滿足條件平滑異同平均<1日前的平滑異同平均ANDMACD>0時,在0和平滑異同平均位置之間畫柱狀線,寬度為0.5,0不為0則畫空心柱.,COLOR00FFFF 當滿足條件平滑異同平均>=1日前的平滑異同平均ANDMACD>0時,在0和平滑異同平均位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLOR0000AA 當滿足條件平滑異同平均>=1日前的平滑異同平均ANDMACD>0時,在0和平滑異同平均位置之間畫柱狀線,寬度為3.3,0不為0則畫空心柱.,COLOR0011BB 當滿足條件平滑異同平均>=1日前的平滑異同平均ANDMACD>0時,在0和平滑異同平均位置之間畫柱狀線,寬度為2.2,0不為0則畫空心柱.,COLOR0022CC 當滿足條件平滑異同平均>=1日前的平滑異同平均ANDMACD>0時,在0和平滑異同平均位置之間畫柱狀線,寬度為1.65,0不為0則畫空心柱.,COLOR0033DD 當滿足條件平滑異同平均>=1日前的平滑異同平均ANDMACD>0時,在0和平滑異同平均位置之間畫柱狀線,寬度為1.1,0不為0則畫空心柱.,COLOR0044EE 當滿足條件平滑異同平均>=1日前的平滑異同平均ANDMACD>0時,在0和平滑異同平均位置之間畫柱狀線,寬度為0.55,0不為0則畫空心柱.,COLOR0055FF 當滿足條件平滑異同平均>1日前的平滑異同平均ANDMACD<0時,在0和平滑異同平均位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLORAA00BB 當滿足條件平滑異同平均>1日前的平滑異同平均ANDMACD<0時,在0和平滑異同平均位置之間畫柱狀線,寬度為3.3,0不為0則畫空心柱.,COLORBB11BB 當滿足條件平滑異同平均>1日前的平滑異同平均ANDMACD<0時,在0和平滑異同平均位置之間畫柱狀線,寬度為2.2,0不為0則畫空心柱.,COLORCC22BB 當滿足條件平滑異同平均>1日前的平滑異同平均ANDMACD<0時,在0和平滑異同平均位置之間畫柱狀線,寬度為1.65,0不為0則畫空心柱.,COLORDD33BB 當滿足條件平滑異同平均>1日前的平滑異同平均ANDMACD<0時,在0和平滑異同平均位置之間畫柱狀線,寬度為1.1,0不為0則畫空心柱.,COLOREE44BB 當滿足條件平滑異同平均>1日前的平滑異同平均ANDMACD<0時,在0和平滑異同平均位置之間畫柱狀線,寬度為0.55,0不為0則畫空心柱.,COLORFF55BB 當滿足條件平滑異同平均<=1日前的平滑異同平均ANDMACD<0時,在0和平滑異同平均位置之間畫柱狀線,寬度為4,0不為0則畫空心柱.,COLORFFAA00 當滿足條件平滑異同平均<=1日前的平滑異同平均ANDMACD<0時,在0和平滑異同平均位置之間畫柱狀線,寬度為3.3,0不為0則畫空心柱.,COLORFFBB11 當滿足條件平滑異同平均<=1日前的平滑異同平均ANDMACD<0時,在0和平滑異同平均位置之間畫柱狀線,寬度為2.2,0不為0則畫空心柱.,COLORFFCC22 當滿足條件平滑異同平均<=1日前的平滑異同平均ANDMACD<0時,在0和平滑異同平均位置之間畫柱狀線,寬度為1.65,0不為0則畫空心柱.,COLORFFDD33 當滿足條件平滑異同平均<=1日前的平滑異同平均ANDMACD<0時,在0和平滑異同平均位置之間畫柱狀線,寬度為1.1,0不為0則畫空心柱.,COLORFFEE44 當滿足條件平滑異同平均<=1日前的平滑異同平均ANDMACD<0時,在0和平滑異同平均位置之間畫柱狀線,寬度為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和-4.5位置之間畫柱狀線,寬度為2,0不為0則畫空心柱.,畫黃色 當滿足條件低位金叉時,在-4位置書寫文字,畫黃色 JCCOUNT賦值:統計上次DEA>=0距今天數日中滿足DIFF上穿DEA的天數 二次金叉賦值:DIFF上穿DEA AND DEA<0 AND 統計21日中滿足JCCOUNT=2的天數=1 當滿足條件二次金叉時,在0和-2.5位置之間畫柱狀線,寬度為5,0不為0則畫空心柱.,COLORFF00FF 當滿足條件二次金叉時,在DEA*1.2位置畫11號圖標 當滿足條件二次金叉時,在-2位置書寫文字,COLORFF00FF A1賦值:上次1日前的DIFF上穿DEA距今天數 底背離賦值:A1+1日前的收盤價>收盤價 AND DIFF>A1+1日前的DIFF AND DIFF上穿DEA 當滿足條件底背離時,在0和2.5位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR00FF00 當滿足條件A1=0時,在DEA位置畫直線起點，當滿足條件底背離時,在DEA位置畫直線終點,0表示是否延長.,畫紅色,線寬為2 當滿足條件底背離時,在2位置書寫文字,COLOR00FF00 A2賦值:上次1日前的DEA上穿DIFF距今天數 頂背離賦值:A2+1日前的收盤價<收盤價 AND A2+1日前的DIFF>DIFF AND DEA上穿DIFF 當滿足條件頂背離時,在0和4.5位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLORFFFF00 當滿足條件A2=0時,在DEA位置畫直線起點，當滿足條件頂背離時,在DEA位置畫直線終點,0表示是否延長.,COLORFFFF00,線寬為2 當滿足條件頂背離時,在4位置書寫文字,COLORFFFF00 TIPTEXT(ISNULL(1日后的&收盤價),0,' www.kzuj.com.cn '),畫紅色 TIPTEXT(ISNULL(1日前的收盤價),0,'同花順程序化交易')

?

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

源碼：

?

?

A:=VOL*CLOSE;
B:=SUM(A,1)/SUM(VOL,1);
B1:=EMA(B,17);
資金:=(B-B1)*100/B;
DIFF : EMA(資金,10) - EMA(資金,20);
DEA : EMA(DIFF,6);
MACD : 2*(DIFF-DEA), COLORSTICK;
STICKLINE(MACD>=0,MACD,0,4,1),COLORF00FF0;
STICKLINE(MACD<0,MACD,0,3.1,1),colorwhite;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,3,0 ),COLOR00AAFF;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,2.2,0 ),COLOR00BBFF;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,1.8,0 ),COLOR00CCFF;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,1.3,0 ),COLOR00DDFF;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,0.9,0 ),COLOR00EEFF;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,0.5,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,-4.5,2,0),coloryellow;
DRAWTEXT(低位金叉,-4,' 低位金叉'),coloryellow;
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
STICKLINE(二次金叉,0,-2.5,5,0),COLORFF00FF;
DRAWICON(二次金叉,DEA*1.2,11) ;
DRAWTEXT(二次金叉,-2,' 二次金叉'),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,2.5,3,0),COLOR00FF00;
DRAWLINE(A1=0,DEA,底背離,DEA,0),colorred,LINETHICK2;
DRAWTEXT(底背離,2,' 底背離'),COLOR00FF00;
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
頂背離:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF);
STICKLINE(頂背離,0,4.5,3,0),COLORFFFF00;
DRAWLINE(A2=0,DEA,頂背離,DEA,0),COLORFFFF00,LINETHICK2;
DRAWTEXT(頂背離,4,' 頂背離'),COLORFFFF00;
TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.kzuj.com.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?