通达信KDJ衍生MACD公式

 通达信KDJ衍生MACD公式

{牛牛指标网提供：www.tdx001.com}

复制内容到剪贴板

1. {公式名称：KDJ＿MACD };   
2. {原创及版权：属于JIPGEMLING.见凌见};   
3. {参数设置：SHORT(2,300,12); LONG(2,300,26); MID(2,100,9)};   
4. {参数设置：M1(2,100,4); M2(2,100,3); NXCCI(6,60,9)};   
5. {参数设置：YS(1,4,1) ;1=MACD由RSV衍生,2=由K衍生;3=由D衍生;4=由J衍生};   
6. {坐标线位置： -50;-20;20;50;80;100 };   
7. {额外Y轴分界 值1=0 };   
8. {系统设置：多日线=10日}   
9. {TDX版，中高分辨率屏幕};   
10.   
11. {特色参数; 可作分时线的技术指标};   
12. T:=PERIOD;   
13. SJ:=T>1;   
14. SHORT:=IF(SJ,SHORT,18);   
15. LONG:=IF(SJ,LONG,38);   
16. MID:=IF(SJ,MID,SQRT(SHORT*LONG)/2);   
17. NXCCI:=9;   
18. {经原点校正之KDJ，可用于抄新股};   
19. BG:=BARSCOUNT(CLOSE);   
20. LL:=LLV(L,SHORT);   
21. HH:=HHV(H,SHORT);   
22. CC:=CLOSE;   
23. RSV:=(CC-LL)/(1.001*HH-LL)*100;   
24. RSV_JGL:=IF(BG>0,RSV,50);   
25. KK:SMA(RSV_JGL,M1,1);   
26. DD:SMA(KK,M2,1);   
27. JJ:2.7*KK-1.7*DD;   
28. {附加显示};   
29. TS:=(KK>REF(KK,1) OR (DD>REF(DD,1)))AND (C>(H+L)/2);   
30. FH:=JJ>REF(JJ,1)OR TS;   
31.   
32. FF:=NOT(FH);   
33. RF:=REF(JJ,1);ZJ:=ABS(JJ-RF);   
34. STICKLINE(FH,JJ,RF,4,0),COLOR1389DE;   
35. STICKLINE(FH AND ZJ<4,JJ,RF-3,4,0),COLOR1389DE;   
36. STICKLINE(FH,JJ,RF,3.4,0),COLOR1399DD;   
37. STICKLINE(FH,JJ,RF,2,0),COLOR13AADD;   
38. STICKLINE(FH,JJ,RF,0.7,0),COLOR13BBDD;   
39. STICKLINE(FH AND ZJ<4,JJ,RF-3,3.4,0),COLOR1399DD;   
40. STICKLINE(FH AND ZJ<4,JJ,RF-3,2,0),COLOR13AADD;   
41. STICKLINE(FH AND ZJ<4,JJ,RF-3,0.7,0),COLOR13BBDD;   
42. STICKLINE(FH AND ZJ<4,JJ+1,RF-4,0.0,0),COLOR13DDDD;   
43. STICKLINE(FF,JJ,RF,4,0),COLOR139813;   
44. STICKLINE(FF AND ZJ<4,JJ-3,RF,4,0),COLOR139813;   
45. STICKLINE(FF,JJ,RF,3,0),COLOR33AA33;   
46. STICKLINE(FF,JJ,RF,2,0),COLOR33CC33;   
47. STICKLINE(FF,JJ,RF,0.8,0),COLOR33E833;   
48. STICKLINE(FF AND ZJ<4,JJ-3,RF,3,0),COLOR33AA33;   
49. STICKLINE(FF AND ZJ<4,JJ-3,RF,2,0),COLOR33CC33;   
50. STICKLINE(FF AND ZJ<4,JJ-3,RF,0.8,0),COLOR33E833;   
51. STICKLINE(FF AND ZJ<4,JJ-5,RF+1,0.0,0),COLOR33FF33;   
52. SGG:=T>6 OR (T<=5 AND C>=1.099*REF(C,1)OR(T=6 AND C>=1.15*REF(C,1)));   
53. 送果果:DRAWICON(IF(SGG,FH,0),(3*JJ+RF)/4,17);{17号图标};   
54.   
55. {由RSV或JJ 衍生 XD_MACD};   
56. DIF_XD:1.7*(EMA(IF(YS=1,RSV_JGL,IF(YS=2,KK,IF(YS=3,DD,JJ))),LONG)-50),COLORABCDEF;   
57. DEA_XD:EMA(DIF_XD,MID),COLORGREEN;   
58. MACD_XD:2*(DIF_XD-DEA_XD),COLORCYAN,COLORSTICK;   
59. 转强:IF(DIF_XD>REF(DIF_XD,1)OR FH,DIF_XD,DRAWNULL),COLORRED,LINETHICK1;   
60.   
61. {附加：NX_CCI显示};   
62. BS:=NXCCI;   
63. ZQ:=IF(T=5,20*BS,IF(T=6,4*BS,IF(T=7,BS,IF(T=9,2*BS,   
64.     IF(T=10,BS/2,DRAWNULL)))));   
65. CHL:=(C+H+L)/3;   
66. NXL:=CHL-MA(CHL,ZQ);   
67. NX_CCI:NXL/(0.15*AVEDEV(CHL,ZQ))-30,COLOR338933,LINETHICK1;   
68. STICKLINE(NXL<0 AND ZQ,-30.5,-31,5,0),COLORFF8933;   
69. STICKLINE(NXL>=0 AND ZQ,-29.5,-30,5,0),COLOR1389FE;   
70. SS:DRAWTEXT(CROSS(-30,NX_CCI) AND ZQ,-36,'X'),COLORGREEN;   
71. WW:DRAWTEXT(CROSS(NX_CCI,-30) AND ZQ,-25,'N'),COLORRED;   
72. {以下推2个空格，可以减少莫名奇妙退出};   

D1864380.gif