相關標簽:

?

?

?

原理解析：
DIFF賦值:收盤價的SHORT日指數移動平均-收盤價的LONG日指數移動平均 DEA賦值:DIFF的M日指數移動平均 MACD2賦值:2*(DIFF-DEA) VERTLINE(收盤價<0 AND DIFF上穿0),COLOR80 VERTLINE(收盤價<0 AND MACD2上穿0),COLOR80 VERTLINE(收盤價<0 AND 0上穿DIFF),COLOR808080 VERTLINE(收盤價<0 AND 0上穿MACD2),COLOR808080 DU0賦值:DIFF上穿0 UD0賦值:0上穿DIFF TDU0賦值:上次DU0距今天數 TUD0賦值:上次UD0距今天數 DU3賦值:1日前的DU0 UD3賦值:1日前的UD0 TDU3賦值:上次DU3距今天數 TUD3賦值:上次UD3距今天數 UDGLINE賦值:如果TDU3<TUD3,返回TDU3日前的2日內最高價的最高值,否則返回TUD3日前的2日內最低價的最低值 JDU0賦值:1日前的收盤價<=1日前的UDGLINE AND 收盤價>UDGLINE AND TDU0<TUD0 JUD0賦值:1日前的收盤價>=1日前的UDGLINE AND 收盤價<UDGLINE AND TUD0<TDU0 JDU1賦值:JDU0 AND 統計TDU0日中滿足JDU0的天數=1 JUD1賦值:JUD0 AND 統計TUD0日中滿足JUD0的天數=1 JDU2賦值:JDU1 AND 1日前的上次JUD1距今天數<1日前的上次JDU1距今天數 JUD2賦值:JUD1 AND 1日前的上次JUD1距今天數>1日前的上次JDU1距今天數 JDU3賦值:JDU1 AND 1日前的上次JUD1距今天數>1日前的上次JDU1距今天數 JUD3賦值:JUD1 AND 1日前的上次JUD1距今天數<1日前的上次JDU1距今天數 BSLINE賦值:如果上次JDU2距今天數<上次JUD2距今天數,返回如果1日前的0上穿MACD2,返回2日內最低價的最低值,否則返回上次1日前的0上穿MACD2距今天數日前的2日內最低價的最低值,否則返回如果1日前的MACD2上穿0,返回2日內最高價的最高值,否則返回上次1日前的MACD2上穿0距今天數日前的2日內最高價的最高值 當滿足條件JDU1ORBARSLAST(JDU1)<上次JUD1距今天數時,在0位置畫10號圖標,ALIGN4 當滿足條件JUD1ORBARSLAST(JDU1)>上次JUD1距今天數時,在0位置畫11號圖標,ALIGN5 當滿足條件MACD2>=0時,在0和MACD2位置之間畫柱狀線,寬度為6,1不為0則畫空心柱.,COLORFF 當滿足條件MACD2>=0ANDMACD2<1日前的MACD2時,在0和MACD2位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLORFF 當滿足條件MACD2<0時,在0和MACD2位置之間畫柱狀線,寬度為6,0不為0則畫空心柱.,COLORFFFF00 當滿足條件MACD2<0ANDMACD2>1日前的MACD2時,在0和MACD2位置之間畫柱狀線,寬度為6,1不為0則畫空心柱.,COLORFFFF00 輸出DIF:DIFF,線寬為2,COLORFFFF 輸出平滑異同平均:DEA,COLORFF00 輸出DEF:MACD2,線寬為0,COLORFFFF00 當滿足條件收盤價>0時,在0和0位置之間畫柱狀線,寬度為10,0不為0則畫空心柱.,COLOR808080 DEFUT賦值:上次MACD2上穿0距今天數 DEFDT賦值:上次0上穿MACD2距今天數 DEFUL賦值:如果MACD2>=0,返回DEFUT+1日內MACD2的最高值,否則返回DEFDT+1日前的DEFUT+1日內MACD2的最高值 DEFDL賦值:如果MACD2<0,返回DEFDT+1日內MACD2的最低值,否則返回DEFUT+1日前的DEFDT+1日內MACD2的最低值 DEFU2L賦值:DEFUT+1日前的DEFUL DEFD2L賦值:DEFDT+1日前的DEFDL 當滿足條件4日內MACD2的最低值>0ANDMACD2<1日前的MACD2ANDREF(MACD2,1)>2日前的MACD2ANDREF(MACD2,2)>3日前的MACD2時,在MACD2位置畫5號圖標,ALIGN0 當滿足條件4日內MACD2的最高值<0ANDMACD2>1日前的MACD2ANDREF(MACD2,1)<2日前的MACD2ANDREF(MACD2,2)<3日前的MACD2時,在MACD2位置畫4號圖標 當滿足條件(JUD1ORBARSLAST(JDU1)>上次JUD1距今天數)ANDMACD2>=0ANDREF(MACD2,1)<1日前的DEFU2LANDMACD2>DEFU2L時,在MACD2位置畫12號圖標,ALIGN0 當滿足條件(JDU1ORBARSLAST(JDU1)<上次JUD1距今天數)ANDMACD2<0ANDREF(MACD2,1)>1日前的DEFD2LANDMACD2<DEFD2L時,在MACD2位置畫12號圖標 EXPLAIN(JDU2,'注意長線趨勢空轉多') EXPLAIN(JUD2,'注意長線趨勢多轉空') EXPLAIN(JDU1 OR 上次JDU1距今天數<上次JUD1距今天數,'長線為多頭趨勢') EXPLAIN(JUD1 OR 上次JDU1距今天數>上次JUD1距今天數,'長線為空頭趨勢') EXPLAINEX(JDU1 OR 上次JDU1距今天數<上次JUD1距今天數,'MACD多頭防守價',BSLINE,2,1) EXPLAINEX(JUD1 OR 上次JDU1距今天數>上次JUD1距今天數,'MACD空頭防守價',BSLINE,2,1) EXPLAIN((JDU1 OR 上次JDU1距今天數<上次JUD1距今天數) AND 收盤價<BSLINE,'防守價跌破：多頭小心') EXPLAIN((JUD1 OR 上次JDU1距今天數>上次JUD1距今天數) AND 收盤價>BSLINE,'防守價突破：空頭小心') EXPLAIN((JUD1 OR 上次JDU1距今天數>上次JUD1距今天數) AND MACD2上穿0,'空頭注意今明兩日高點壓力\N找日落K線放空，用線控盤') EXPLAIN((JDU1 OR 上次JDU1距今天數<上次JUD1距今天數) AND 0上穿MACD2,'多頭注意今明兩日低點支撐\N找日出K線做多，用線控盤') EXPLAIN((JUD1 OR 上次JDU1距今天數>上次JUD1距今天數) AND MACD2>=0 AND 1日前的MACD2<1日前的DEFU2L AND MACD2>DEFU2L,'DEF柱狀特殊研判\N空頭注意今明兩日高點壓力') EXPLAIN((JDU1 OR 上次JDU1距今天數<上次JUD1距今天數) AND MACD2<0 AND 1日前的MACD2>1日前的DEFD2L AND MACD2<DEFD2L,'DEF柱狀特殊研判\N多頭注意今明兩日低點支撐') EXPLAINEX((1日前的JUD1ORBARSLAST(JDU1)>上次JUD1距今天數) AND 1日前的MACD2上穿0,'空頭注意壓力',2日內最高價的最高值,2,1) EXPLAIN((1日前的JUD1ORBARSLAST(JDU1)>上次JUD1距今天數) AND 1日前的MACD2上穿0,'找日落K線放空，用線控盤') EXPLAINEX((1日前的JDU1ORBARSLAST(JDU1)<上次JUD1距今天數) AND 0上穿1日前的MACD2,'多頭注意支撐',2日內最低價的最低值,2,1) EXPLAIN((1日前的JDU1ORBARSLAST(JDU1)<上次JUD1距今天數) AND 0上穿1日前的MACD2,'找日出K線進場，用線控盤') EXPLAIN(4日內MACD2的最低值>0 AND MACD2<1日前的MACD2 AND 1日前的MACD2>2日前的MACD2 AND 2日前的MACD2>3日前的MACD2,'請注意DEF柱狀縮頭') EXPLAIN(4日內MACD2的最高值<0 AND MACD2>1日前的MACD2 AND 1日前的MACD2<2日前的MACD2 AND 2日前的MACD2<3日前的MACD2,'請注意DEF柱狀縮腳')

?

?來源:程序化99（ www.weiqiv.net.cn ）

源碼：

?

?

?

DIFF:=EMA(CLOSE,SHORT)-EMA(CLOSE,LONG);
DEA:=EMA(DIFF,M);
MACD2:=2*(DIFF-DEA);
VERTLINE(CLOSE<0 AND CROSS(DIFF,0)),color80;
VERTLINE(CLOSE<0 AND CROSS(MACD2,0)),color80;
VERTLINE(CLOSE<0 AND CROSS(0,DIFF)),color808080;
VERTLINE(CLOSE<0 AND CROSS(0,MACD2)),color808080;
DU0:=CROSS(DIFF,0);
UD0:=CROSS(0,DIFF);
TDU0:=BARSLAST(DU0);
TUD0:=BARSLAST(UD0);
DU3:=REF(DU0,1);
UD3:=REF(UD0,1);
TDU3:=BARSLAST(DU3);
TUD3:=BARSLAST(UD3);
UDGLINE:=IF(TDU3<TUD3,REF(HHV(HIGH,2),TDU3),REF(LLV(LOW,2),TUD3));
JDU0:=REF(CLOSE,1)<=REF(UDGLINE,1) AND CLOSE>UDGLINE AND TDU0<TUD0;
JUD0:=REF(CLOSE,1)>=REF(UDGLINE,1) AND CLOSE<UDGLINE AND TUD0<TDU0;
JDU1:=JDU0 AND COUNT(JDU0,TDU0)=1;
JUD1:=JUD0 AND COUNT(JUD0,TUD0)=1;
JDU2:=JDU1 AND REF(BARSLAST(JUD1),1)<REF(BARSLAST(JDU1),1);
JUD2:=JUD1 AND REF(BARSLAST(JUD1),1)>REF(BARSLAST(JDU1),1);
JDU3:=JDU1 AND REF(BARSLAST(JUD1),1)>REF(BARSLAST(JDU1),1);
JUD3:=JUD1 AND REF(BARSLAST(JUD1),1)<REF(BARSLAST(JDU1),1);
BSLINE:=IF(BARSLAST(JDU2)<BARSLAST(JUD2),IF(REF(CROSS(0,MACD2),1),LLV(LOW,2),REF(LLV(LOW,2),BARSLAST(REF(CROSS(0,MACD2),1)))),IF(REF(CROSS(MACD2,0),1),HHV(HIGH,2),REF(HHV(HIGH,2),BARSLAST(REF(CROSS(MACD2,0),1)))));
DRAWICON(JDU1 OR BARSLAST(JDU1)<BARSLAST(JUD1),0,10),ALIGN4;
DRAWICON(JUD1 OR BARSLAST(JDU1)>BARSLAST(JUD1),0,11),ALIGN5;
STICKLINE(MACD2>=0,0,MACD2,6,1),colorFF;
STICKLINE(MACD2>=0 AND MACD2<REF(MACD2,1),0,MACD2,6,0),colorFF;
STICKLINE(MACD2<0,0,MACD2,6,0),colorFFFF00;
STICKLINE(MACD2<0 AND MACD2>REF(MACD2,1),0,MACD2,6,1),colorFFFF00;
DIF:DIFF,LINETHICK2,colorFFFF;
MACD:DEA,colorFF00;
DEF:MACD2,LINETHICK0,colorFFFF00;
STICKLINE(CLOSE>0,0,0,10,0),color808080;
DEFUT:=BARSLAST(CROSS(MACD2,0));
DEFDT:=BARSLAST(CROSS(0,MACD2));
DEFUL:=IF(MACD2>=0,HHV(MACD2,DEFUT+1),REF(HHV(MACD2,DEFUT+1),DEFDT+1));
DEFDL:=IF(MACD2<0,LLV(MACD2,DEFDT+1),REF(LLV(MACD2,DEFDT+1),DEFUT+1));
DEFU2L:=REF(DEFUL,DEFUT+1);
DEFD2L:=REF(DEFDL,DEFDT+1);
DRAWICON(LLV(MACD2,4)>0 AND MACD2<REF(MACD2,1) AND REF(MACD2,1)>REF(MACD2,2) AND REF(MACD2,2)>REF(MACD2,3),MACD2,5),ALIGN0;
DRAWICON(HHV(MACD2,4)<0 AND MACD2>REF(MACD2,1) AND REF(MACD2,1)<REF(MACD2,2) AND REF(MACD2,2)<REF(MACD2,3),MACD2,4);
DRAWICON((JUD1 OR BARSLAST(JDU1)>BARSLAST(JUD1)) AND MACD2>=0 AND REF(MACD2,1)<REF(DEFU2L,1) AND MACD2>DEFU2L,MACD2,12),ALIGN0;
DRAWICON((JDU1 OR BARSLAST(JDU1)<BARSLAST(JUD1)) AND MACD2<0 AND REF(MACD2,1)>REF(DEFD2L,1) AND MACD2<DEFD2L,MACD2,12);
EXPLAIN(JDU2,'注意長線趨勢空轉多');
EXPLAIN(JUD2,'注意長線趨勢多轉空');
EXPLAIN(JDU1 OR BARSLAST(JDU1)<BARSLAST(JUD1),'長線為多頭趨勢');
EXPLAIN(JUD1 OR BARSLAST(JDU1)>BARSLAST(JUD1),'長線為空頭趨勢');
EXPLAINEX(JDU1 OR BARSLAST(JDU1)<BARSLAST(JUD1),'MACD多頭防守價',BSLINE,2,1);
EXPLAINEX(JUD1 OR BARSLAST(JDU1)>BARSLAST(JUD1),'MACD空頭防守價',BSLINE,2,1);
EXPLAIN((JDU1 OR BARSLAST(JDU1)<BARSLAST(JUD1)) AND CLOSE<BSLINE,'防守價跌破：多頭小心');
EXPLAIN((JUD1 OR BARSLAST(JDU1)>BARSLAST(JUD1)) AND CLOSE>BSLINE,'防守價突破：空頭小心');
EXPLAIN((JUD1 OR BARSLAST(JDU1)>BARSLAST(JUD1)) AND CROSS(MACD2,0),'空頭注意今明兩日高點壓力\n找日落K線放空，用線控盤');
EXPLAIN((JDU1 OR BARSLAST(JDU1)<BARSLAST(JUD1)) AND CROSS(0,MACD2),'多頭注意今明兩日低點支撐\n找日出K線做多，用線控盤');
EXPLAIN((JUD1 OR BARSLAST(JDU1)>BARSLAST(JUD1)) AND MACD2>=0 AND REF(MACD2,1)<REF(DEFU2L,1) AND MACD2>DEFU2L,'DEF柱狀特殊研判\n空頭注意今明兩日高點壓力');
EXPLAIN((JDU1 OR BARSLAST(JDU1)<BARSLAST(JUD1)) AND MACD2<0 AND REF(MACD2,1)>REF(DEFD2L,1) AND MACD2<DEFD2L,'DEF柱狀特殊研判\n多頭注意今明兩日低點支撐');
EXPLAINEX((REF(JUD1 OR BARSLAST(JDU1)>BARSLAST(JUD1),1)) AND CROSS(REF(MACD2,1),0),'空頭注意壓力',HHV(HIGH,2),2,1);
EXPLAIN((REF(JUD1 OR BARSLAST(JDU1)>BARSLAST(JUD1),1)) AND CROSS(REF(MACD2,1),0),'找日落K線放空，用線控盤');
EXPLAINEX((REF(JDU1 OR BARSLAST(JDU1)<BARSLAST(JUD1),1)) AND CROSS(0,REF(MACD2,1)),'多頭注意支撐',LLV(LOW,2),2,1);
EXPLAIN((REF(JDU1 OR BARSLAST(JDU1)<BARSLAST(JUD1),1)) AND CROSS(0,REF(MACD2,1)),'找日出K線進場，用線控盤');
EXPLAIN(LLV(MACD2,4)>0 AND MACD2<REF(MACD2,1) AND REF(MACD2,1)>REF(MACD2,2) AND REF(MACD2,2)>REF(MACD2,3),'請注意DEF柱狀縮頭');
EXPLAIN(HHV(MACD2,4)<0 AND MACD2>REF(MACD2,1) AND REF(MACD2,1)<REF(MACD2,2) AND REF(MACD2,2)<REF(MACD2,3),'請注意DEF柱狀縮腳');

?

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

?