显示支撑和阻力区域的“热力地图”--RR_Support and Resistance Heat Map

wccmcd

下载请回复，金币的不要，谢谢。
RR_Support and Resistance Heat Mapv1.mq4 (4.37 KB, 下载次数: 49)

2014-4-15 14:43 上传

点击文件名下载附件
下载积分: 金钱 -8

代码：

1. 
   
2. //+------------------------------------------------------------------+
   
3. //|                              Support and Resistance Heat Map.mq4 |
   
4. //|                                  Copyright c 2009, Ronald Raygun |
   
5. //|                                                                  |
   
6. //+------------------------------------------------------------------+
   
7. #property copyright "Copyright c 2009, Ronald Raygun"
   
8. #property link      ""
   
9. #property indicator_chart_window
   
10. //---- input parameters
    
11. extern double    Multiplier = 10.0;
    
12. extern double    MaxPriceUsed = 0.0;
    
13. extern double    MinPriceUsed = 0.0;
    
14. extern int       MaxBars = 0;
    
15. extern int       BarsShift = 0;
    
16. extern int       Step = 1; // value to control roughness (to reduce hline-step)
    
17. double Ratio = 0.0;
    
18. int DQ_ADJUST []  = { 0 , 0 , 1 , 1 , 1 , 1 , 1 };
    
19. int DQADJ;
    
20. //+------------------------------------------------------------------+
    
21. //| Custom indicator initialization function                         |
    
22. //+------------------------------------------------------------------+
    
23. int init()
    
24. {
    
25.    DQADJ = DQ_ADJUST [ Digits ]; // DQADJ is adjustment for deci-quotes (3-5 digits) brokers
    
26.    start();
    
27.    return(0);
    
28. }
    
29. //+------------------------------------------------------------------+
    
30. //| Custom indicator deinitialization function                       |
    
31. //+------------------------------------------------------------------+
    
32. int deinit()
    
33.   {
    
34. //----
    
35.    for (int j = ObjectsTotal(); j >= 0; j--) {
    
36.    string OriginalName = ObjectName(j);  
    
37.    if(0 == StringFind(OriginalName, StringConcatenate("S/R EA: ", Symbol(), " ", Period()))) {
    
38.       ObjectDelete(ObjectName(j));
    
39.    }
    
40.    }  
    
41.    ObjectDelete("StartingBar");
    
42. //----
    
43.    return(0);
    
44.   }
    
45.   
    
46. //+------------------------------------------------------------------+
    
47. //| Custom indicator iteration function                              |
    
48. //+------------------------------------------------------------------+
    
49. int start()
    
50. {
    
51.    int counted_bars=IndicatorCounted();
    
52.    double MaxPrice;
    
53.    double MinPrice;
    
54.    int BarsUsed;
    
55.    if(MaxPriceUsed == 0) MaxPrice = WindowPriceMax();
    
56.    else MaxPrice = MaxPriceUsed;
    
57.    if(MinPriceUsed == 0) MinPrice = WindowPriceMin();
    
58.    else MinPrice = MinPriceUsed;
    
59.    if(MaxBars == 0) BarsUsed = WindowBarsPerChart() + BarsShift;
    
60.    else BarsUsed = MaxBars + BarsShift;
    
61.    ObjectDelete("StartingBar");
    
62.    ObjectCreate("StartingBar", OBJ_VLINE, 0, Time[BarsUsed], 0);
    
63.    ObjectSet("StartingBar", OBJPROP_COLOR, Aqua);
    
64.    ObjectSet("StartingBar", OBJPROP_STYLE, STYLE_DASH);
    
65.    
    
66.    ObjectDelete("ShiftBar");
    
67.    ObjectCreate("ShiftBar", OBJ_VLINE, 0, Time[BarsShift], 0);
    
68.    ObjectSet("ShiftBar", OBJPROP_COLOR, Aqua);
    
69.    ObjectSet("ShiftBar", OBJPROP_STYLE, STYLE_DASH);   
    
70.    
    
71.    if(BarsShift == 0) ObjectDelete("ShiftBar");
    
72.    int CrossCount = 0;
    
73.    int CountsCrossed = 0;
    
74.    Ratio = 0.0;
    
75.    
    
76.    int Roughness = DQADJ*Step;
    
77.    double PriceStep = ( (MaxPrice - MinPrice) / Point )/Roughness;   
    
78.    Print( "PriceStep = "+PriceStep );
    
79.    for (int i=0; i<PriceStep; i++)
    
80.    {
    
81.       double Price_i = MinPrice + (i *Roughness * Point);
    
82.       string ObjName = StringConcatenate("S/R EA: ", Symbol(), " ", Period(), " ", D2STR(Price_i));
    
83.       ObjectDelete(ObjName);
    
84.       ObjectCreate(ObjName, OBJ_TREND, 0, Time[BarsUsed], Price_i, Time[BarsShift], Price_i);
    
85.       for (int k=0; k<BarsUsed; k++)
    
86.       {
    
87.          if(High[k] >= Price_i && Low[k] <= Price_i ) CrossCount++;
    
88.       }
    
89.       CountsCrossed = CrossCount;
    
90.       double CC = CrossCount*Step;
    
91.       double BU = BarsUsed;
    
92.       Ratio = CC / BU * Multiplier;
    
93.       Print("Ratio: ", DoubleToStr(Ratio,2));
    
94.       Print("CrossCount: ", CrossCount);
    
95.       Print("BarsUsed: ", BarsUsed);
    
96.       double d_RedValue = 255 * Ratio;
    
97.       int RedValue = d_RedValue;
    
98.       if(Ratio > 1) RedValue = 255;
    
99.   
    
100.       int GreenValue = 255 - RedValue;
     
101.       
     
102.       color LineColor = (RedValue + GreenValue * 256);
     
103.       ObjectSet(ObjName, OBJPROP_COLOR, LineColor);
     
104.       ObjectSet(ObjName, OBJPROP_STYLE, STYLE_SOLID);
     
105.       ObjectSet(ObjName, OBJPROP_BACK, true);
     
106.       Ratio = 0;     
     
107.       CrossCount = 0;
     
108.    }
     
109.    
     
110.    return(0);
     
111. }
     
112. //+------------------------------------------------------------------+
     
113. //| D2STR
     
114. //+------------------------------------------------------------------+
     
115. string D2STR(double Price)
     
116. {
     
117.    return( DoubleToStr(Price,Digits) );
     
118. }
     

复制代码

趋势追随者

研究下。。。。

ynboyinkm

W姐,太花太花~~

wccmcd

W姐,太花太花~~[/quote]
换颜色就好了啊。。。

My风之子

我才不会回复你的帖子呢！！

ynboyinkm

W姐,太花太花~~[/quote]
换了也花,叫你花姐算了{:soso_e120:}

573

花                                   好花。。。。。。。。。。。。。。。。。。。。。。。

等机会

等机会，如果您要查看本帖隐藏内容请回复

gdk123

谢谢分享  

谁伴我闯荡

研究研究，感谢分享！~~~

lgq_88888

谢谢分享  

zoeying

这个新奇，开开来看看如何

soeasy

显示支撑和阻力区域的“热力地图”--RR_Support and Resistance Heat Map

大巴

应该把成交量也考虑进去了吧

淘淘乐

太花太花

babyblue

好东东是要支持的哟，这些冷眼真的赚疯了不知道搞了多少金币

wwauto

谢谢分享！！

唐老鸭

谢谢分享

zgqcn

不错哈

sun001002003

下载了，还是扣了8个金币