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=1000.0;
  12. extern double Lots=0.1;
  13. extern double StopLoss=500.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_1 = 0;
  38. static int current_direction_1 = 0;
  40. if(line1>line2)current_direction_1 = 1; //up
  41. if(line1<line2)current_direction_1 = 2; //down
  45. if(current_direction_1 != last_direction_1) //changed
  46. {
  47. last_direction_1 = current_direction_1;
  48. return (last_direction_1);
  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_2 = 0;
  60. static int current_direction_2 = 0;
  62. if(line1>line2)current_direction_2 = 1; //up
  63. if(line1<line2)current_direction_2 = 2; //down
  67. if(current_direction_2 != last_direction_2) //changed
  68. {
  69. last_direction_2 = current_direction_2;
  70. return (last_direction_2);
  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. {
  112. if(isCrossed_1 == 1 && isCrossed_2 == 1) //thought this would make them agree ?
  113. {
  114. ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,Ask-StopLoss*Point,Ask+TakeProfit*Point,"Agent86",12345,0,Green);
  115. if(ticket>0)
  116. {
  117. if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("BUY order opened : ",OrderOpenPrice());
  118. }
  119. else Print("Error opening BUY order : ",GetLastError());
  120. return(0);
  121. }
  123. if(isCrossed_1 == 2 && isCrossed_2 == 2) //and this should agree ?
  124. {
  125. ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,Ask+StopLoss*Point,Bid-TakeProfit*Point,"Agent86",12345,0,Red);
  126. if(ticket>0)
  127. {
  128. if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("SELL order opened : ",OrderOpenPrice());
  129. }
  130. else Print("Error opening SELL order : ",GetLastError());
  131. return(0);
  132. }
  133. return(0);
  134. }
  135. for(cnt=0;cnt<total;cnt++)
  136. {
  137. OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
  138. if(OrderType()<=OP_SELL && OrderSymbol()==Symbol())
  139. {
  140. if(OrderType()==OP_BUY) // long position is opened
  141. {
  142. // should it be closed?
  143. if(isCrossed_1 == 2)
  144. {
  145. OrderClose(OrderTicket(),OrderLots(),Bid,3,Violet); // close position
  146. return(0); // exit
  147. }
  149. // should it be closed?
  150. if(isCrossed_1 == 1)
  151. {
  152. OrderClose(OrderTicket(),OrderLots(),Ask,3,Violet); // close position
  153. return(0); // exit
  154. }
  155. }
  156. }
  157. }
  158. return(0);
  159. }
  160. //+------------------------------------------------------------------+
  161.  
Powered by spacepaste. Paste removal.