[文华源码] 文华财经各种顶底背离主图源码

1. DIFELSEF := EMA(CLOSE,12) - EMA(CLOSE,26);
   
2. DEA:= EMA(DIFELSEF,9);
   
3. LC := REF(CLOSE,1);
   
4. RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
   
5. RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
   
6. RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
   
7. K:=SMA(RSV,3,1);
   
8. D:=SMA(K,3,1);
   
9. J:=3*K-2*D;
   
10. TR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);
    
11. HD := HIGH-REF(HIGH,1);
    
12. LD := REF(LOW,1)-LOW;
    
13. PDM:= SUM(IFELSE(HD>0 && HD>LD,HD,0),14);
    
14. MDM:= SUM(IFELSE(LD>0 && LD>HD,LD,0),14);
    
15. PDI:= PDM*100/TR;
    
16. MDI:= MDM*100/TR;
    
17. A1:=BARSLAST(REF(CROSS(DIFELSEF,DEA),1));
    
18. B1:=REF(CLOSE,A1+1)>CLOSE && REF(DIFELSEF,A1+1)
    
19. <DIFELSEF && CROSS(DIFELSEF,DEA);
    
20. A2:=BARSLAST(REF(CROSS(K,D),1));
    
21. B2:=REF(CLOSE,A2+1)>CLOSE && REF(K,A2+1)<K && CROSS(K,D);
    
22. A3:=BARSLAST(REF(CROSS(RSI1,RSI2),1));
    
23. B3:=REF(CLOSE,A3+1)>CLOSE && REF(RSI1,A3+1)
    
24. <RSI1 && CROSS(RSI1,RSI2);
    
25. C1:=BARSLAST(REF(CROSS(DEA,DIFELSEF),1));
    
26. D1:=REF(CLOSE,C1+1)<CLOSE && REF(DIFELSEF,C1+1)
    
27. >DIFELSEF && CROSS(DEA,DIFELSEF);
    
28. C2:=BARSLAST(REF(CROSS(D,K),1));
    
29. D2:=REF(CLOSE,C2+1)<CLOSE && REF(K,C2+1)>K && CROSS(D,K);
    
30. C3:=BARSLAST(REF(CROSS(RSI2,RSI1),1));
    
31. D3:=REF(CLOSE,C3+1)<CLOSE && REF(RSI1,C3+1)
    
32. >RSI1 && CROSS(RSI2,RSI1);
    
33. C4:=BARSLAST(REF(CROSS(MDI,PDI),1));
    
34. D4:=REF(CLOSE,C4+1)<CLOSE && REF(MDI,C4+1)>MDI && CROSS(MDI,PDI);
    
35. A4:=BARSLAST(REF(CROSS(PDI,MDI),1));
    
36. B4:=REF(CLOSE,A4+1)>CLOSE && REF(PDI,A4+1)<PDI && CROSS(PDI,MDI);
    
37. STICKLINE(B4,LOW,LOW-0.06,COLORBLUE,0);
    
38. DRAWTEXT(B4,LOW-20,'D底');
    
39. PLAYSOUND(CROSSUP(B4,LOW),'F');
    
40. STICKLINE(D4,HIGH,HIGH+0.06,COLORWHITE,0);
    
41. DRAWTEXT(D4,HIGH+20,'D顶');
    
42. PLAYSOUND(CROSSDOWN(D4,HIGH),'E');
    
43. STICKLINE(B1,LOW,LOW-0.06,COLORGREEN,0);
    
44. DRAWTEXT(B1,LOW-10,'M底');
    
45. PLAYSOUND(CROSSUP(B1,LOW),'F');
    
46. STICKLINE(B2,LOW,LOW-0.06,COLORYELLOW,0);
    
47. DRAWTEXT(B2,LOW-6,'K底');
    
48. PLAYSOUND(CROSSUP(B2,LOW),'F');
    
49. STICKLINE(B3,LOW,LOW-0.04,COLORRED,0);
    
50. DRAWTEXT(B3,LOW-16,'R底');
    
51. PLAYSOUND(CROSSUP(B3,LOW),'F');
    
52. STICKLINE(D1,HIGH,HIGH+0.06,COLORMAGENTA,0);
    
53. DRAWTEXT(D1,HIGH+10,'M顶');
    
54. PLAYSOUND(CROSSDOWN(D1,HIGH),'E');
    
55. STICKLINE(D2,HIGH,HIGH+0.06,COLORLIGHTRED,0);
    
56. DRAWTEXT(D2,HIGH+6,'K顶');
    
57. PLAYSOUND(CROSSDOWN(D2,HIGH),'E');
    
58. STICKLINE(D3,HIGH,HIGH+0.06,COLORLIGHTGREEN,0);
    
59. DRAWTEXT(D3,HIGH+16,'R顶');
    
60. PLAYSOUND(CROSSDOWN(D3,HIGH),'E');
    
61. MA13:=MA(CLOSE,13),COLORWHITE;
    
62. VLL:=CROSS(MA(CLOSE,13),MA(CLOSE,21));
    
63. DRAWTEXT(VLL,MA13-10,'圆底');
    
64. PLAYSOUND(CROSSUP(VLL,MA13),'F');

复制代码