spacepaste

Paste details

reply | raw

  1.  
  2. //+------------------------------------------------------------------+
  3. //| My_First_EA_edits.mq4 |
  4. //| Agent86's Version of Dirty Rat |
  5. //| http://www.iclbiz.com/joomla |
  6. //+------------------------------------------------------------------+
  7. #property copyright "Agent86"
  8. #property link "www.iclbiz.com/joomla"
  10. //---- input parameters
  11. extern double TakeProfit=200.0;
  12. extern double Lots=0.1;
  13. extern double StopLoss=120.0;
  14. //+------------------------------------------------------------------+
  15. //| expert initialization function |
  16. //+------------------------------------------------------------------+
  17. int init()
  18. {
  19. //----
  21. //----
  22. return(0);
  23. }
  24. //+------------------------------------------------------------------+
  25. //| expert deinitialization function |
  26. //+------------------------------------------------------------------+
  27. int deinit()
  28. {
  29. //----
  31. //----
  32. return(0);
  33. }
  35. int Crossed_1 (double line1 , double line2)
  36. {
  37. static int last_direction = 0;
  38. static int current_direction = 0;
  40. if(line1>line2)current_direction = 1; //up
  41. if(line1<line2)current_direction = 2; //down
  45. if(current_direction != last_direction) //changed
  46. {
  47. last_direction = current_direction;
  48. return (last_direction);
  49. }
  50. else
  51. {
  52. return (0);
  53. }
  54. }
  56. //my attempt to make/duplicate a function to make 5min and 4hr MACD agreement
  57. int Crossed_2 (double line1 , double line2)
  58. {
  59. static int last_direction = 0;
  60. static int current_direction = 0;
  62. if(line1>line2)current_direction = 1; //up
  63. if(line1<line2)current_direction = 2; //down
  67. if(current_direction != last_direction) //changed
  68. {
  69. last_direction = current_direction;
  70. return (last_direction);
  71. }
  72. else
  73. {
  74. return (0);
  75. }
  76. }
  77. //+------------------------------------------------------------------+
  78. //| expert start function |
  79. //+------------------------------------------------------------------+
  80. int start()
  81. {
  82. //----
  85. int cnt, ticket, total;
  86. double faster_1, slower_1;
  87. double faster_2, slower_2;
  89. if(Bars<100)
  90. {
  91. Print("bars less than 100");
  92. return(0);
  93. }
  94. if(TakeProfit<10)
  95. {
  96. Print("TakeProfit less than 10");
  97. return(0); // check TakeProfit
  98. }
  99. // added PERIOD_H4 to try to trade both 5min and 4hr MACD agreement ?
  100. faster_1 = iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_MAIN,0); //MODE_MAIN
  101. slower_1 = iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_SIGNAL,0); //MODE_SIGNAL
  102. faster_2 = iMACD(NULL,PERIOD_H4,12,26,9,PRICE_CLOSE,MODE_MAIN,0); //MODE_MAIN
  103. slower_2 = iMACD(NULL,PERIOD_H4,12,26,9,PRICE_CLOSE,MODE_SIGNAL,0); //MODE_SIGNAL
  105. int isCrossed_1 = Crossed_1 (faster_1,slower_1);
  106. int isCrossed_2 = Crossed_2 (faster_2,slower_2);
  108. total = OrdersTotal();
  109. if(total < 1)
  110. {
  111. if(isCrossed_1 && isCrossed_2 == 1) //thought this would make them agree ?
  112. {
  113. ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,Ask-StopLoss*Point,Ask+TakeProfit*Point,"Agent86",12345,0,Green);
  114. if(ticket>0)
  115. {
  116. if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("BUY order opened : ",OrderOpenPrice());
  117. }
  118. else Print("Error opening BUY order : ",GetLastError());
  119. return(0);
  120. }
  121. if(isCrossed_1 && isCrossed_2 == 2) //and this should agree ?
  122. {
  124. ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,Ask+StopLoss*Point,Bid-TakeProfit*Point,"Agent86",12345,0,Red);
  125. if(ticket>0)
  126. {
  127. if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("SELL order opened : ",OrderOpenPrice());
  128. }
  129. else Print("Error opening SELL order : ",GetLastError());
  130. return(0);
  131. }
  132. return(0);
  133. }
  134. for(cnt=0;cnt<total;cnt++)
  135. {
  136. OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
  137. if(OrderType()<=OP_SELL && OrderSymbol()==Symbol())
  138. {
  139. if(OrderType()==OP_BUY) // long position is opened
  140. {
  141. // should it be closed?
  142. if(isCrossed_1 == 2)
  143. {
  144. OrderClose(OrderTicket(),OrderLots(),Bid,3,Violet); // close position
  145. return(0); // exit
  146. }
  148. // should it be closed?
  149. if(isCrossed_1 == 1)
  150. {
  151. OrderClose(OrderTicket(),OrderLots(),Ask,3,Violet); // close position
  152. return(0); // exit
  153. }
  154. }
  155. }
  156. }
  157. return(0);
  158. }
  159. //+------------------------------------------------------------------+
  160.  
Powered by spacepaste. Paste removal.