相關標簽:

?

?

原理解析：
輸出月K:"KDJ的K"(89,3,3),COLOR00FF00 輸出月D:"KDJ的D"(89,3,3),COLOR00FF00,線寬為2 輸出周K:"KDJ的K"(27,3,3),畫紅色 輸出周D:"KDJ的D"(27,3,3),畫紅色,線寬為2 輸出日K:"KDJ的K"(5,3,3),畫白色 輸出日D:"KDJ的D"(5,3,3),畫白色,線寬為2 輸出日金叉:如果日K上穿日D,返回50,否則返回0,COLORFFFFFF 當滿足條件日金叉時,在50位置書寫文字,COLORFFFFFF 輸出周金叉:如果周K上穿周D,返回30,否則返回0,畫紅色 當滿足條件周金叉時,在30位置書寫文字,畫紅色 輸出月金叉:如果月K上穿月D,返回20,否則返回0,COLOR0080FF 當滿足條件月金叉時,在20位置書寫文字,畫黃色 JM賦值:"KDJ的K"(5,3,3)上穿"KDJ的D"(5,3,3) JMCOUNT賦值:統計上次"KDJ的D"(5,3,3)>=30距今天數日中滿足JM的天數 JMTJ賦值:28*("KDJ的D"(5,3,3)<30 AND 統計21日中滿足JMCOUNT=1的天數=1) 當滿足條件JMTJ時,在70位置書寫文字,畫白色 JMTJ2賦值:28*("KDJ的D"(5,3,3)<30 AND 統計21日中滿足JMCOUNT=2的天數=1) 當滿足條件JMTJ2時,在70位置書寫文字,畫黃色 JMTJ3賦值:28*("KDJ的D"(5,3,3)<30 AND 統計21日中滿足JMCOUNT=3的天數=1) 當滿足條件JMTJ3時,在70位置書寫文字,畫黃色 JMTJ4賦值:28*("KDJ的D"(5,3,3)<30 AND 統計21日中滿足JMCOUNT=4的天數=1) 當滿足條件JMTJ4時,在70位置書寫文字,畫黃色 JMTJ5賦值:28*("KDJ的D"(5,3,3)<30 AND 統計21日中滿足JMCOUNT=5的天數=1) 當滿足條件JMTJ5時,在70位置書寫文字,畫黃色 0,畫黃色 DIFF賦值:收盤價的12日指數移動平均-收盤價的26日指數移動平均 DEA賦值:DIFF的9日指數移動平均 MACD賦值:2*(DIFF-DEA) A1賦值:上次1日前的DIFF上穿DEA距今天數 B1賦值:A1+1日前的收盤價>收盤價 AND A1+1日前的DIFF<DIFF AND DIFF上穿DEA 輸出MACD底背離:當滿足條件B1>0的5日過濾時,在0和0.75位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,畫綠色 當滿足條件B1>0的5日過濾時,在0.57位置書寫文字,畫綠色 RSV賦值:(收盤價-9日內最低價的最低值)/(9日內最高價的最高值-9日內最低價的最低值)*100 K賦值:RSV的3日[1日權重]移動平均 D賦值:K的3日[1日權重]移動平均 A2賦值:上次1日前的K上穿D距今天數 B2賦值:A2+1日前的收盤價>收盤價 AND A2+1日前的K<K AND K上穿D 輸出KDJ底背離:當滿足條件B2>0的5日過濾時,在0和1位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,畫黃色 當滿足條件B2>0的5日過濾時,在0.80位置書寫文字,畫黃色 賦值:1日前的收盤價 RSI1賦值:收盤價-LC和0的較大值的6日[1日權重]移動平均/收盤價-LC的絕對值的6日[1日權重]移動平均*100 RSI2賦值:收盤價-LC和0的較大值的12日[1日權重]移動平均/收盤價-LC的絕對值的12日[1日權重]移動平均*100 A3賦值:上次1日前的RSI1上穿RSI2距今天數 B3賦值:A3+1日前的收盤價>收盤價 AND A3+1日前的RSI1<RSI1 AND RSI1上穿RSI2 輸出RSI底背離:當滿足條件B3>0的5日過濾時,在0和0.5位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,畫白色 當滿足條件B3>0的5日過濾時,在0.25位置書寫文字,畫白色 2,畫紅色 C1賦值:上次1日前的DEA上穿DIFF距今天數 D1賦值:C1+1日前的收盤價<收盤價 AND C1+1日前的DIFF>DIFF AND DEA上穿DIFF 輸出MACD頂背離:當滿足條件D1>0的5日過濾時,在2和1.25位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLOR0066FF 當滿足條件D1>0的5日過濾時,在1.47位置書寫文字,COLOR0066FF C2賦值:上次1日前的D上穿K距今天數 D2賦值:C2+1日前的收盤價<收盤價 AND C2+1日前的K>K AND D上穿K 輸出KDJ頂背離:當滿足條件D2>0的5日過濾時,在2和1位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,畫紅色 當滿足條件D2>0的5日過濾時,在1.2位置書寫文字,畫紅色 C3賦值:上次1日前的RSI2上穿RSI1距今天數 D3賦值:C3+1日前的收盤價<收盤價 AND C3+1日前的RSI1>RSI1 AND RSI2上穿RSI1 輸出RSI頂背離:當滿足條件D3>0的5日過濾時,在2和1.5位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,COLORFF00FF 當滿足條件D3>0的5日過濾時,在1.75位置書寫文字,COLORFF00FF 0,COLORFFA2AF 20,COLORFFA2AF,POINTDOT 50,COLORFFA2AF 80,COLORFFA2AF,POINTDOT 100,COLORFFA2AF TIPTEXT(ISNULL(1日后的&收盤價),0,' www.kzuj.com.cn '),畫紅色 TIPTEXT(ISNULL(1日前的收盤價),0,'同花順程序化交易')

?

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

源碼：

?

?

?

月K:"KDJ.K"(89,3,3),COLOR00FF00;
月D:"KDJ.D"(89,3,3),COLOR00FF00,LINETHICK2;
周K:"KDJ.K"(27,3,3),colorred;
周D:"KDJ.D"(27,3,3),colorred,LINETHICK2;
日K:"KDJ.K"(5,3,3),colorwhite;
日D:"KDJ.D"(5,3,3),colorwhite,LINETHICK2;
日金叉:IF(CROSS(日K,日D),50,0),COLORFFFFFF;
DRAWTEXT(日金叉,50,'日叉'),COLORFFFFFF;
周金叉:IF(CROSS(周K,周D),30,0),colorred;
DRAWTEXT(周金叉,30,'周叉'),colorred;
月金叉:IF(CROSS(月K,月D),20,0),COLOR0080FF;
DRAWTEXT(月金叉,20,'月叉'),coloryellow;
JM:=CROSS("KDJ.K"(5,3,3),"KDJ.D"(5,3,3));
JMCOUNT:=COUNT(JM,BARSLAST("KDJ.D"(5,3,3)>=30));
JMTJ:=28*("KDJ.D"(5,3,3)<30 AND COUNT(JMCOUNT=1,21)=1);
DRAWTEXT (JMTJ,70,'①'),colorwhite;
JMTJ2:=28*("KDJ.D"(5,3,3)<30 AND COUNT(JMCOUNT=2,21)=1);
DRAWTEXT (JMTJ2,70,'②'),coloryellow;
JMTJ3:=28*("KDJ.D"(5,3,3)<30 AND COUNT(JMCOUNT=3,21)=1);
DRAWTEXT (JMTJ3,70,'③'),coloryellow;
JMTJ4:=28*("KDJ.D"(5,3,3)<30 AND COUNT(JMCOUNT=4,21)=1);
DRAWTEXT (JMTJ4,70,'④'),coloryellow;
JMTJ5:=28*("KDJ.D"(5,3,3)<30 AND COUNT(JMCOUNT=5,21)=1);
DRAWTEXT (JMTJ5,70,'⑤'),coloryellow;
0,coloryellow;
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA);
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);
MACD底背離:STICKLINE(FILTER(B1>0,5),0,0.75,3,0),colorgreen;
DRAWTEXT(FILTER(B1>0,5),0.57,'MACD底背離'),colorgreen;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
A2:=BARSLAST(REF(CROSS(K,D),1));
B2:=REF(C,A2+1)>C AND REF(K,A2+1)<K AND CROSS(K,D);
KDJ底背離:STICKLINE(FILTER(B2>0,5),0,1,3,0),coloryellow;
DRAWTEXT(FILTER(B2>0,5),0.80,'KDJ底背離'),coloryellow;
LC :=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
A3:=BARSLAST(REF(CROSS(RSI1,RSI2),1));
B3:=REF(C,A3+1)>C AND REF(RSI1,A3+1)<RSI1 AND CROSS(RSI1,RSI2);
RSI底背離:STICKLINE(FILTER(B3>0,5),0,0.5,3,0),colorwhite;
DRAWTEXT(FILTER(B3>0,5),0.25,'RSI底背離'),colorwhite;
2,colorred;
C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));
D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);
MACD頂背離:STICKLINE(FILTER(D1>0,5),2,1.25,3,0),COLOR0066FF;
DRAWTEXT(FILTER(D1>0,5),1.47,'MACD頂背離'),COLOR0066FF;
C2:=BARSLAST(REF(CROSS(D,K),1));D2:=REF(C,C2+1)<C AND REF(K,C2+1)>K AND CROSS(D,K);
KDJ頂背離:STICKLINE(FILTER(D2>0,5),2,1,3,0),colorred;
DRAWTEXT(FILTER(D2>0,5),1.2,'KDJ頂背離'),colorred;
C3:=BARSLAST(REF(CROSS(RSI2,RSI1),1));
D3:=REF(C,C3+1)<C AND REF(RSI1,C3+1)>RSI1 AND CROSS(RSI2,RSI1);
RSI頂背離:STICKLINE(FILTER(D3>0,5),2,1.5,3,0),COLORFF00FF;
DRAWTEXT(FILTER(D3>0,5),1.75,'RSI頂背離'),COLORFF00FF;
0,COLORFFA2AF;
20,COLORFFA2AF,POINTDOT;
50,COLORFFA2AF;
80,COLORFFA2AF,POINTDOT;
100,COLORFFA2AF;TIPTEXT(ISNULL(REFX(&CLOSE,1)),0,' www.kzuj.com.cn '),colorred;
TIPTEXT(ISNULL(REF(CLOSE,1)),0,'同花順程序化交易');

?

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

?