设为首页收藏本站
开启辅助访问 QQ在线咨询

路路发智能交易研发中心

 找回密码
 立即注册
路路发智能交易研发中心»首页 › MT4智能交易编程教程 › MT4编程培训基础班（视频教程） › MT4智能交易编程示例 Exposure指标
返回列表 发新帖
查看: 2928|回复: 0

MT4智能交易编程示例 Exposure指标

[复制链接]
MT4智能交易

管理员

MT4软件工程师

Rank: 9Rank: 9Rank: 9

积分
6521
帖子
2771
主题
2761
QQ
发表于 2014-4-4 14:37:59 | 显示全部楼层 |阅读模式
MT4智能交易编程示例 Exposure指标
  1. #property copyright   "路路发智能交易研发中心"
  2. #property link        "http://www.ea668.com"

  4. #property strict

  6. #property indicator_separate_window
  7. #property indicator_buffers 1
  8. #property indicator_minimum 0.0
  9. #property indicator_maximum 0.1

  11. #define SYMBOLS_MAX 1024
  12. #define DEALS          0
  13. #define BUY_LOTS       1
  14. #define BUY_PRICE      2
  15. #define SELL_LOTS      3
  16. #define SELL_PRICE     4
  17. #define NET_LOTS       5
  18. #define PROFIT         6

  20. input color InpColor=LightSeaGreen;  // Text color

  22. string ExtName="Exposure";
  23. string ExtSymbols[SYMBOLS_MAX];
  24. int    ExtSymbolsTotal=0;
  25. double ExtSymbolsSummaries[SYMBOLS_MAX][7];
  26. int    ExtLines=-1;
  27. string ExtCols[8]={"Symbol",
  28.                    "Deals",
  29.                    "Buy lots",
  30.                    "Buy price",
  31.                    "Sell lots",
  32.                    "Sell price",
  33.                    "Net lots",
  34.                    "Profit"};
  35. int    ExtShifts[8]={ 10, 80, 130, 180, 260, 310, 390, 460 };
  36. int    ExtVertShift=14;
  37. double ExtMapBuffer[];
  38. //+------------------------------------------------------------------+
  39. //| Custom indicator initialization function                         |
  40. //+------------------------------------------------------------------+
  41. void OnInit()
  42.   {
  43.         IndicatorShortName(ExtName);
  44.    SetIndexBuffer(0,ExtMapBuffer);
  45.    SetIndexStyle(0,DRAW_NONE);
  46.    IndicatorDigits(0);
  47.         SetIndexEmptyValue(0,0.0);
  48.   }
  49. //+------------------------------------------------------------------+
  50. //|                                                                  |
  51. //+------------------------------------------------------------------+
  52. void OnDeinit(const int reason)
  53.   {
  54.    int windex=WindowFind(ExtName);
  55.    if(windex>0)
  56.       ObjectsDeleteAll(windex);
  57.   }
  58. //+------------------------------------------------------------------+
  59. //| Custom indicator iteration function                              |
  60. //+------------------------------------------------------------------+
  61. int OnCalculate(const int rates_total,
  62.                 const int prev_calculated,
  63.                 const datetime &time[],
  64.                 const double &open[],
  65.                 const double &high[],
  66.                 const double &low[],
  67.                 const double &close[],
  68.                 const long& tick_volume[],
  69.                 const long& volume[],
  70.                 const int& spread[])
  71.   {
  72.    string name;
  73.    int    i,col,line,windex=WindowFind(ExtName);
  74. //----
  75.    if(windex<0)
  76.       return(rates_total);
  77. //---- header line
  78.    if(ExtLines<0)
  79.      {
  80.       for(col=0; col<8; col++)
  81.         {
  82.          name="Head_"+string(col);
  83.          if(ObjectCreate(name,OBJ_LABEL,windex,0,0))
  84.            {
  85.             ObjectSet(name,OBJPROP_XDISTANCE,ExtShifts[col]);
  86.             ObjectSet(name,OBJPROP_YDISTANCE,ExtVertShift);
  87.             ObjectSetText(name,ExtCols[col],9,"Arial",InpColor);
  88.            }
  89.         }
  90.       ExtLines=0;
  91.      }
  92. //----
  93.    ArrayInitialize(ExtSymbolsSummaries,0.0);
  94.    int total=Analyze();
  95.    if(total>0)
  96.      {
  97.       line=0;
  98.       for(i=0; i<ExtSymbolsTotal; i++)
  99.         {
  100.          if(ExtSymbolsSummaries[i][DEALS]<=0) continue;
  101.          line++;
  102.          //---- add line
  103.          if(line>ExtLines)
  104.            {
  105.             int y_dist=ExtVertShift*(line+1)+1;
  106.             for(col=0; col<8; col++)
  107.               {
  108.                name="Line_"+string(line)+"_"+string(col);
  109.                if(ObjectCreate(name,OBJ_LABEL,windex,0,0))
  110.                  {
  111.                   ObjectSet(name,OBJPROP_XDISTANCE,ExtShifts[col]);
  112.                   ObjectSet(name,OBJPROP_YDISTANCE,y_dist);
  113.                  }
  114.               }
  115.             ExtLines++;
  116.            }
  117.          //---- set line
  118.          int    digits=(int)MarketInfo(ExtSymbols[i],MODE_DIGITS);
  119.          double buy_lots=ExtSymbolsSummaries[i][BUY_LOTS];
  120.          double sell_lots=ExtSymbolsSummaries[i][SELL_LOTS];
  121.          double buy_price=0.0;
  122.          double sell_price=0.0;
  123.          if(buy_lots!=0)  buy_price=ExtSymbolsSummaries[i][BUY_PRICE]/buy_lots;
  124.          if(sell_lots!=0) sell_price=ExtSymbolsSummaries[i][SELL_PRICE]/sell_lots;
  125.          name="Line_"+string(line)+"_0";
  126.          ObjectSetText(name,ExtSymbols[i],9,"Arial",InpColor);
  127.          name="Line_"+string(line)+"_1";
  128.          ObjectSetText(name,DoubleToStr(ExtSymbolsSummaries[i][DEALS],0),9,"Arial",InpColor);
  129.          name="Line_"+string(line)+"_2";
  130.          ObjectSetText(name,DoubleToStr(buy_lots,2),9,"Arial",InpColor);
  131.          name="Line_"+string(line)+"_3";
  132.          ObjectSetText(name,DoubleToStr(buy_price,digits),9,"Arial",InpColor);
  133.          name="Line_"+string(line)+"_4";
  134.          ObjectSetText(name,DoubleToStr(sell_lots,2),9,"Arial",InpColor);
  135.          name="Line_"+string(line)+"_5";
  136.          ObjectSetText(name,DoubleToStr(sell_price,digits),9,"Arial",InpColor);
  137.          name="Line_"+string(line)+"_6";
  138.          ObjectSetText(name,DoubleToStr(buy_lots-sell_lots,2),9,"Arial",InpColor);
  139.          name="Line_"+string(line)+"_7";
  140.          ObjectSetText(name,DoubleToStr(ExtSymbolsSummaries[i][PROFIT],2),9,"Arial",InpColor);
  141.         }
  142.      }
  143. //---- remove lines
  144.    if(total<ExtLines)
  145.      {
  146.       for(line=ExtLines; line>total; line--)
  147.         {
  148.          name="Line_"+string(line)+"_0";
  149.          ObjectSetText(name,"");
  150.          name="Line_"+string(line)+"_1";
  151.          ObjectSetText(name,"");
  152.          name="Line_"+string(line)+"_2";
  153.          ObjectSetText(name,"");
  154.          name="Line_"+string(line)+"_3";
  155.          ObjectSetText(name,"");
  156.          name="Line_"+string(line)+"_4";
  157.          ObjectSetText(name,"");
  158.          name="Line_"+string(line)+"_5";
  159.          ObjectSetText(name,"");
  160.          name="Line_"+string(line)+"_6";
  161.          ObjectSetText(name,"");
  162.          name="Line_"+string(line)+"_7";
  163.          ObjectSetText(name,"");
  164.         }
  165.      }
  166. //---- to avoid minimum==maximum
  167.    ExtMapBuffer[Bars-1]=-1;
  168. //----
  169.    return(rates_total);
  170.   }
  171. //+------------------------------------------------------------------+
  172. //|                                                                  |
  173. //+------------------------------------------------------------------+
  174. int Analyze()
  175.   {
  176.    double profit;
  177.    int    i,index,type,total=OrdersTotal();
  178. //----
  179.    for(i=0; i<total; i++)
  180.      {
  181.       if(!OrderSelect(i,SELECT_BY_POS)) continue;
  182.       type=OrderType();
  183.       if(type!=OP_BUY && type!=OP_SELL) continue;
  184.       index=SymbolsIndex(OrderSymbol());
  185.       if(index<0 || index>=SYMBOLS_MAX) continue;
  186.       //----
  187.       ExtSymbolsSummaries[index][DEALS]++;
  188.       profit=OrderProfit()+OrderCommission()+OrderSwap();
  189.       ExtSymbolsSummaries[index][PROFIT]+=profit;
  190.       if(type==OP_BUY)
  191.         {
  192.          ExtSymbolsSummaries[index][BUY_LOTS]+=OrderLots();
  193.          ExtSymbolsSummaries[index][BUY_PRICE]+=OrderOpenPrice()*OrderLots();
  194.         }
  195.       else
  196.         {
  197.          ExtSymbolsSummaries[index][SELL_LOTS]+=OrderLots();
  198.          ExtSymbolsSummaries[index][SELL_PRICE]+=OrderOpenPrice()*OrderLots();
  199.         }
  200.      }
  201. //----
  202.    total=0;
  203.    for(i=0; i<ExtSymbolsTotal; i++)
  204.      {
  205.       if(ExtSymbolsSummaries[i][DEALS]>0) total++;
  206.      }
  207. //----
  208.    return(total);
  209.   }
  210. //+------------------------------------------------------------------+
  211. //|                                                                  |
  212. //+------------------------------------------------------------------+
  213. int SymbolsIndex(string SymbolName)
  214.   {
  215.    bool found=false;
  216.    int  i;
  217. //----
  218.    for(i=0; i<ExtSymbolsTotal; i++)
  219.      {
  220.       if(SymbolName==ExtSymbols[i])
  221.         {
  222.          found=true;
  223.          break;
  224.         }
  225.      }
  226. //----
  227.    if(found)
  228.       return(i);
  229.    if(ExtSymbolsTotal>=SYMBOLS_MAX)
  230.       return(-1);
  231. //----
  232.    i=ExtSymbolsTotal;
  233.    ExtSymbolsTotal++;
  234.    ExtSymbols[i]=SymbolName;
  235.    ExtSymbolsSummaries[i][DEALS]=0;
  236.    ExtSymbolsSummaries[i][BUY_LOTS]=0;
  237.    ExtSymbolsSummaries[i][BUY_PRICE]=0;
  238.    ExtSymbolsSummaries[i][SELL_LOTS]=0;
  239.    ExtSymbolsSummaries[i][SELL_PRICE]=0;
  240.    ExtSymbolsSummaries[i][NET_LOTS]=0;
  241.    ExtSymbolsSummaries[i][PROFIT]=0;
  242. //----
  243.    return(i);
  244.   }
  245. //+------------------------------------------------------------------+
复制代码




智能

相关帖子

外汇智能交易，成就财富梦想！
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则


MT4编程培训|EA定制开发|QQ在线咨询|路路发智能交易研发中心

GMT+8, 2024-12-22 15:47 , Processed in 0.158893 second(s), 26 queries .

© 2009-2022 520EA.com EA668.com

快速回复 返回顶部 返回列表