相關標簽:

?

?

?

RSI KDJ MACD 日周月 底背離 金叉

?

{KDJ同時金叉}

?

原理解析：
DRAWGBKLAST(收盤價>0,STRIP(自定色,自定色,0)) 輸出月K:"KDJ的K"(89,3,3),畫綠色,線寬為0 輸出月D:"KDJ的D"(89,3,3),畫綠色,線寬為0 FILLRGN(月K,月D,月K>月D),COLOR00DD00 FILLRGN(月K,月D,月K<月D),COLOR009700 輸出周K:"KDJ的K"(27,3,3),COLOR00E4F1,線寬為0 輸出周D:"KDJ的D"(27,3,3),畫黃色,線寬為0 FILLRGN(周K,周D,周K>周D),COLOR03F7FA FILLRGN(周K,周D,周K<周D),COLOR009CC3 輸出日K:"隨機指標KD的K"(5,3,3),COLOR0538F2,線寬為0 輸出日D:"隨機指標KD的D"(5,3,3),COLOR052B99,線寬為0 FILLRGN(日K,日D,日K<日D),COLOR052B99 FILLRGN(日K,日D,日K>日D),COLOR0538F2 輸出月金叉:如果月K上穿月D,返回16,否則返回0,STICK,線寬為1,畫綠色 當滿足條件月金叉時,在16位置書寫文字,COLOR09DB00 輸出周金叉:如果周K上穿周D,返回12,否則返回0,STICK,線寬為1,畫黃色 當滿足條件周金叉時,在12位置書寫文字,畫黃色 輸出日金叉:如果日K上穿日D,返回8,否則返回0,STICK,線寬為1,畫紅色 當滿足條件日金叉時,在8位置書寫文字,畫紅色 VERTLINE(日金叉 AND 周金叉 AND 月金叉,4),COLOR5B5B5B 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位置畫13號圖標 JMTJ2賦值:28*("KDJ的D"(5,3,3)<30 AND 統計21日中滿足JMCOUNT=2的天數=1) 當滿足條件JMTJ2時,在70位置畫13號圖標 當滿足條件JMTJ2時,在72位置畫13號圖標 JMTJ3賦值:28*("KDJ的D"(5,3,3)<30 AND 統計21日中滿足JMCOUNT=3的天數=1) 當滿足條件JMTJ3時,在70位置畫13號圖標 當滿足條件JMTJ3時,在72位置畫13號圖標 當滿足條件JMTJ3時,在74位置畫13號圖標 JMTJ4賦值:28*("KDJ的D"(5,3,3)<30 AND 統計21日中滿足JMCOUNT=4的天數=1) 當滿足條件JMTJ4時,在70位置畫13號圖標 當滿足條件JMTJ4時,在72位置畫13號圖標 當滿足條件JMTJ4時,在74位置畫13號圖標 當滿足條件JMTJ4時,在76位置畫13號圖標 JMTJ5賦值:28*("KDJ的D"(5,3,3)<30 AND 統計21日中滿足JMCOUNT=5的天數=1) 當滿足條件JMTJ5時,在70位置畫13號圖標 當滿足條件JMTJ5時,在72位置畫13號圖標 當滿足條件JMTJ5時,在74位置畫13號圖標 當滿足條件JMTJ5時,在76位置畫13號圖標 當滿足條件JMTJ5時,在78位置畫13號圖標 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日過濾時,在-4.75位置書寫文字,COLORFF00FF PARTLINE(0,收盤價>0),COLORFFA2AF PARTLINE(20,收盤價>0),COLORFFA2AF,POINTDOT PARTLINE(50,收盤價>0),COLORFFA2AF,POINTDOT PARTLINE(80,收盤價>0),COLORFFA2AF,POINTDOT PARTLINE(100,收盤價>0),COLORFFA2AF CXH賦值:STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1)) 輸出WARNING('HTTP://www.kzuj.com.cn',CURRENTTIME>180000 AND (CXH=1 OR CXH=6)) DRAWTEXTREL(10 ,10 ,'指標公式')

?

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

源碼：

?

?

DRAWGBKLAST(CLOSE>0,STRIP(RGB(5,5,5),RGB(90,90,90),0));月K:"KDJ.K"(89,3,3),Colorgreen,linethick0;月D:"KDJ.D"(89,3,3),Colorgreen,linethick0;FILLRGN(月K,月D,月K>月D),Color00DD00;FILLRGN(月K,月D,月K<月D),Color009700;周K:"KDJ.K"(27,3,3),Color00E4F1,linethick0;周D:"KDJ.D"(27,3,3),coloryellow,linethick0;FILLRGN(周K,周D,周K>周D),Color03f7fa;FILLRGN(周K,周D,周K<周D),Color009CC3;日K:"kd.k"(5,3,3),color0538f2,linethick0;日D:"kd.d"(5,3,3),color052b99,linethick0;FILLRGN(日K,日D,日K<日D),Color052b99;FILLRGN(日K,日D,日K>日D),color0538f2;月金叉:IF(CROSS(月K,月D),16,0),stick,linethick1,Colorgreen;DRAWTEXT(月金叉,16,'■'),Color09DB00;周金叉:IF(CROSS(周K,周D),12,0),stick,linethick1,coloryellow;DRAWTEXT(周金叉,12,'■'),coloryellow;日金叉:IF(CROSS(日K,日D),8,0),stick,linethick1,colorred;DRAWTEXT(日金叉,8,'■'),colorred;VERTLINE(日金叉 and 周金叉 and 月金叉,4),color5b5b5b;{KD在30以下多次金叉}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);DRAWICON(Jmtj,70,13);{www.88gs.com}Jmtj2:=28*("kdj.d"(5,3,3)<30 and COUNT(JmCount=2,21)=1);DRAWICON (Jmtj2,70,13);DRAWICON (Jmtj2,72,13);Jmtj3:=28*("kdj.d"(5,3,3)<30 and COUNT(JmCount=3,21)=1);DRAWICON (Jmtj3,70,13);DRAWICON (Jmtj3,72,13);DRAWICON (Jmtj3,74,13);Jmtj4:=28*("kdj.d"(5,3,3)<30 and COUNT(JmCount=4,21)=1);DRAWICON (Jmtj4,70,13);DRAWICON (Jmtj4,72,13);DRAWICON (Jmtj4,74,13);DRAWICON (Jmtj4,76,13);Jmtj5:=28*("kdj.d"(5,3,3)<30 and COUNT(JmCount=5,21)=1);DRAWICON (Jmtj5,70,13);DRAWICON (Jmtj5,72,13);DRAWICON (Jmtj5,74,13);DRAWICON (Jmtj5,76,13);DRAWICON (Jmtj5,78,13);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,COLORCYAN;{www.88gs.com}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),-4.75,'RSI頂背離'),COLORff00ff;partline(0,C>0),colorffa2af;partline(20,C>0),colorffa2af,pointdot;partline(50,C>0),colorffa2af,pointdot;partline(80,C>0),colorffa2af,pointdot;partline(100,C>0),colorffa2af;
CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.kzuj.com.cn',CURRENTTIME>180000 and (CXH=1 OR CXH=6));
DRAWTEXTREL(10 ,10 ,'指標公式');

?

?

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

?