macd和kdj二合一

1. {MACD和KDJ二合一}
   
2. 
   
3. RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
   
4. K:SMA(RSV,3,1),PRECISION2,linethick0,colorwhite;
   
5. D:SMA(K,3,1),PRECISION2,linethick0,coloryellow;
   
6. J:3*K-2*D,PRECISION2,linethick0,COLORMAGENTA;
   
7. 分开:c>0,COLORBLACK;
   
8. DIFF:(EMA(CLOSE,12) - EMA(CLOSE,26)),linethick0,COLORCYAN;
   
9. DEA:EMA(DIFF,9),COLORBLUE,LINETHICK0;
   
10. MACD:2*(DIFF-DEA),linethick0,PRECISION3,COLORRED;
    
11. 
    
12. a:=SYSPARAM(3)-SYSPARAM(2)+1;
    
13. jh:=hhv(max(k,max(d,j)),a);
    
14. jl:=llv(min(k,min(d,j)),a);
    
15. 
    
16. diffh:=hhv(max(diff,max(dea,macd)),a);
    
17. diffl:=llv(min(diff,min(dea,macd)),a);
    
18. b1:=SYSPARAM(3)-barpos;
    
19. hlast:=refx(max(jh,diffh),b1);
    
20. llast:=refx(min(jl,diffl),b1);
    
21. hl:=hlast-llast;  
    
22. jhl:=refx(jh,b1)-refx(jl,b1);   
    
23. diffhl:=refx(diffh,b1)-refx(diffl,b1);   
    
24. hl2:=hlast+llast;  
    
25. jhl2:=refx(jh,b1)+refx(jl,b1);  
    
26. diffhl2:=refx(diffh,b1)+refx(diffl,b1);   
    
27. jp:=hl/jhl;     
    
28. diffp:=hl/diffhl;   
    
29. {AAAAAAAA:1000000000000000000000000000000000000,colorblack,linethick0;}
    
30. 
    
31. DIFF2:=(DIFF-diffhl2/2)*diffp+hl2/2-35;//DIFF
    
32. PARTLINE(C,DIFF2),COLORCYAN;
    
33. DEA2:=(DEA-diffhl2/2)*diffp+hl2/2-35;
    
34. PARTLINE(C,DEA2),COLORBLUE;//DEA
    
35. STICKLINE(DIFF2>DEA2,0,DIFF2-DEA2,0,0),COLORRED;//MACD
    
36. STICKLINE(DIFF2<DEA2,0,DIFF2-DEA2,0,0),COLORCYAN;//MACD
    
37. 
    
38. k2:=(k-jhl2/2)*jp+hl2/2;//k
    
39. PARTLINE(C,k2),colorwhite;
    
40. d2:=(d-jhl2/2)*jp+hl2/2;//d
    
41. PARTLINE(C,d2),coloryellow;
    
42. j2:=(j-jhl2/2)*jp+hl2/2;//j
    
43. PARTLINE(C,j2),COLORMAGENTA;
    
44. 
    
45. k3:=hl/4;
    
46. k4:=jhl/4;
    
47. DRAWTEXT(islastbar,hlast-k3/3,'  KD'+'\n'+'  J用'),coloryellow;
    
48. STICKLINE(islastbar,hlast,llast,2,0),colorwhite;
    
49. STICKLINE(islastbar,llast,llast,8,0),colorwhite;
    
50. STICKLINE(islastbar,k3+llast,k3+llast,8,0),colorwhite;
    
51. STICKLINE(islastbar,k3*2+llast,k3*2+llast,8,0),colorwhite;
    
52. STICKLINE(islastbar,k3*3+llast,k3*3+llast,8,0),colorwhite;
    
53. STICKLINE(islastbar,hlast,hlast,8,0),colorwhite;
    
54. DRAWNUMBER(islastbar,llast,jl,0),shift1,colorwhite;
    
55. DRAWNUMBER(islastbar,k3+llast,k4+jl,0),shift1,colorwhite;
    
56. DRAWNUMBER(islastbar,k3*2+llast,k4*2+jl,0),shift1,colorwhite;
    
57. DRAWNUMBER(islastbar,k3*3+llast,k4*3+jl,0),shift1,colorwhite;
    
58. DRAWNUMBER(islastbar,hlast,jh,0),shift1,colorwhite;