[大智慧指标] [转载]黄金分割线

1. DRAWGBKLAST(v>1,STRIP(RGB(0,0,0),RGB(90,90,90),0));
   
2. ah:hhvall(h);  al:llvall(l); {注意指标叠加该函数有循环或分支中将不准确,慎重使用叠加方式}
   
3. ahl:=ah-al;
   
4. a19:al+ahl*0.191,coloraaaaaa;
   
5. a38:al+ahl*0.382,color00aaaa;
   
6. a50:al+ahl*0.500,LINETHICK1,POINTDOT,COLORGREEN;
   
7. a61:al+ahl*0.618,color00aaaa;
   
8. a80:al+ahl*0.809,coloraaaaaa;
   
9. {标注数字}y:=999;
   
10. DRAWTEXTREL(0,0,'100%  '+ah),coloraaaaaa;
    
11. DRAWTEXTREL(0,y*0.191,'0.809%  '+a80),coloraaaaaa;
    
12. DRAWTEXTREL(0,y*0.382,'0.618%  '+a61),color00aaaa;
    
13. DRAWTEXTREL(0,y*0.500,'0.50%  '+a50),color00aaaa;
    
14. DRAWTEXTREL(0,y*0.618,'0.382%  '+a38),color00aaaa;
    
15. DRAWTEXTREL(0,y*0.809,'0.191%  '+a19),coloraaaaaa;
    
16. DRAWTEXTREL(0,y-30,'最高  '+ah),coloraaaaaa;
    
17. 
    
18. DRAWTEXTREL(900,0,'100%  '+ah),coloraaaaaa;
    
19. DRAWTEXTREL(900,y*0.191,'0.809%  '+a80),coloraaaaaa;
    
20. DRAWTEXTREL(900,y*0.382,'0.618%  '+a61),color00aaaa;
    
21. DRAWTEXTREL(900,y*0.500,'0.50%  '+a50),color00aaaa;
    
22. DRAWTEXTREL(900,y*0.618,'0.382%  '+a38),color00aaaa;
    
23. DRAWTEXTREL(900,y*0.809,'0.191%  '+a19),coloraaaaaa;
    
24. DRAWTEXTREL(900,y-30,'最高  '+ah),coloraaaaaa;
    
25. 
    
26. {竖线}
    
27. W:=BARSLAST(DISPSTATUS=1);
    
28. P:=BACKSET(DISPSTATUS=2,W/2+1);
    
29. VERTLINE(CROSS(P,0.5),4),COLOR889999;
    
30. 
    
31. DRAWTEXTREL(500,0,'最高' ),COLORRED;
    
32. DRAWTEXTREL(500,900+76,'最低'),color00ff00;
    
33. DRAWTEXTREL(500,0.50*(900+76),'0.5'),color0099ff;
    
34. DRAWTEXTREL(500,0.191*(900+76),'0.809'),COLORYELLOW;
    
35. DRAWTEXTREL(500,0.382*(900+76),'0.618'),COLORYELLOW;
    
36. DRAWTEXTREL(500,0.618*(900+76),'0.382'),COLORYELLOW;
    
37. DRAWTEXTREL(500,0.809*(900+76),'0.191'),COLORYELLOW;
    
38. 
    
39. 
    
40. RSV:=(((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100);
    
41. K:=SMA(RSV,3,1);
    
42. D:=SMA(K,3,1);
    
43. J:=((3 * K) - (2 * D));
    
44. RSV24:=(((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100);
    
45. K24:=SMA(RSV24,3,1);
    
46. D24:=SMA(K24,3,1);
    
47. J24:=((3 * K24) - (2 * D24));
    
48. 压力位:=IF(CROSS(J24,J),HIGH,REF(HIGH,BARSLAST(CROSS(J24,J))));
    
49. 支撑位:=IF(CROSS(J,J24),LOW,REF(LOW,BARSLAST(CROSS(J,J24))));
    
50. 
    
51. TJ:=IF((C-REF(C,1))/REF(C,1)>0.025,1,0);
    
52. yl:=IF(C>REF(O,BARSLAST(TJ =1)),REF(O,BARSLAST(TJ =1)),0);
    
53. FT:=BARSLAST(yl);
    
54. YLX:=REF(yl,FT);
    
55. bt:=IF(C<OPEN and ref(C,1)>ref(OPEN,1),ref(C,1),0);
    
56. XFT:=BARSLAST(bt);
    
57. XYLX:=REF(bt,XFT);
    
58. 平台调下:=CROSS(XYLX,C);
    
59. 平台突破:=CROSS(C,YLX);
    
60. 
    
61. VAR2:=REF(LOW,1);
    
62. VAR3:=SMA(ABS(LOW-VAR2),13,1)/SMA(MAX(LOW-VAR2,0),13,1)*100;
    
63. VAR4:=EMA(IF(CLOSE*1.2,VAR3*13,VAR3/13),13);
    
64. VAR5:=LLV(LOW,34);
    
65. VAR6:=HHV(VAR4,34);
    
66. VAR7:=IF(LLV(LOW,56),1,0);
    
67. VAR8:=EMA(IF(LOW<=VAR5,(VAR4+VAR6*2)/2,0),3)/618*VAR7;
    
68. 主力进场:=VAR8>REF(VAR8,1);
    
69. 进场:=ref(主力进场,1);
    
70. DRAWTEXT(进场 and  平台突破 ,L * 0.97,'进'),ALIGN1,COLOR0000FF;
    
71. DRAWTEXT(进场 and  平台突破 ,L * 0.94,'场'),ALIGN1,COLOR0000FF;
    
72. DRAWICON(进场 and 平台突破 and L=支撑位,L* 0.93,1),ALIGN1,VALIGN2;

复制代码

下载 (236.33 KB)

2018-10-20 09:20