spacepaste

Paste details

reply | raw

  1.  
  2. //+------------------------------------------------------------------+
  3. //| My_First_EA_edits.mq4 |
  4. //| Agent86's Dirty Rat Trade |
  5. //| http://www.iclbiz.com/joomla |
  6. //+------------------------------------------------------------------+
  7. #property copyright "Agent86 My First EA"
  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 (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. int Crossed_2 (double line1 , double line2) //i'll use this later for my macd agreement
  57. {
  58. static int last_direction_2 = 0;
  59. static int current_direction_2 = 0;
  61. if(line1>line2)current_direction_2 = 1; //up
  62. if(line1<line2)current_direction_2 = 2; //down
  66. if(current_direction_2 != last_direction_2) //changed
  67. {
  68. last_direction_2 = current_direction_2;
  69. return (last_direction_2);
  70. }
  71. else
  72. {
  73. return (0);
  74. }
  75. }
  79. //+------------------------------------------------------------------+
  80. //| expert start function |
  81. //+------------------------------------------------------------------+
  82. int start()
  83. {
  84. //----
  87. int cnt, ticket, total;
  88. double faster, slower, faster_2, slower_2;
  91. if(Bars<100)
  92. {
  93. Print("bars less than 100");
  94. return(0);
  95. }
  96. if(TakeProfit<10)
  97. {
  98. Print("TakeProfit less than 10");
  99. return(0); // check TakeProfit
  100. }
  103. faster = iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_MAIN,0); //MODE_MAIN
  104. slower = iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_SIGNAL,0); //MODE_SIGNAL
  105. faster_2 = iMACD(NULL,PERIOD_H4,12,26,9,PRICE_CLOSE,MODE_UPPER,0); //MODE_MAIN
  106. slower_2 = iMACD(NULL,PERIOD_H4,12,26,9,PRICE_CLOSE,MODE_UPPER,0); //MODE_SIGNAL
  108. int isCrossed = Crossed (faster,slower);
  109. int isCrossed_2 = Crossed_2 (faster_2,slower_2); // i'll use this later
  111. total = OrdersTotal();
  112. if(total < 1)
  113. {
  114. if(isCrossed == 1)
  115. {
  116. ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,Ask-StopLoss*Point,Ask+TakeProfit*Point,"Agent86",12345,0,Green);
  117. if(ticket>0)
  118. {
  119. if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("BUY order opened : ",OrderOpenPrice());
  120. }
  121. else Print("Error opening BUY order : ",GetLastError());
  122. return(0);
  123. }
  124. if(isCrossed == 2)
  125. {
  126. ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,Ask+StopLoss*Point,Bid-TakeProfit*Point,"Agent86",12345,0,Red);
  127. if(ticket>0)
  128. {
  129. if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("SELL order opened : ",OrderOpenPrice());
  130. }
  131. else Print("Error opening SELL order : ",GetLastError());
  132. return(0);
  133. }
  134. return(0);
  135. }
  136. for(cnt=0;cnt<total;cnt++)
  137. {
  138. OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
  139. if(OrderType()<=OP_SELL && OrderSymbol()==Symbol())
  140. {
  141. if(OrderType()==OP_BUY) // long position is opened
  142. {
  143. // should it be closed?
  144. if(isCrossed == 2)
  145. {
  146. OrderClose(OrderTicket(),OrderLots(),Bid,3,Violet); // close position
  147. return(0); // exit
  148. }
  150. // should it be closed?
  151. if(isCrossed == 1)
  152. {
  153. OrderClose(OrderTicket(),OrderLots(),Ask,3,Violet); // close position
  154. return(0); // exit
  155. }
  156. }
  157. }
  158. }
  159. return(0);
  160. }
  161. //+------------------------------------------------------------------+
  162.  
Powered by spacepaste. Paste removal.