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 Dirty Rat Trade"
  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=12.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. }
  55. //+------------------------------------------------------------------+
  56. //| expert start function |
  57. //+------------------------------------------------------------------+
  58. int start()
  59. {
  60. //----
  63. int cnt, ticket, total;
  64. double faster, slower;
  67. if(Bars<100)
  68. {
  69. Print("bars less than 100");
  70. return(0);
  71. }
  72. if(TakeProfit<10)
  73. {
  74. Print("TakeProfit less than 10");
  75. return(0); // check TakeProfit
  76. }
  79. faster = iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_MAIN,0);
  80. slower = iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_SIGNAL,0);
  82. int isCrossed = Crossed (faster,slower);
  84. total = OrdersTotal();
  85. if(total < 1)
  86. {
  87. if(isCrossed == 1)
  88. {
  89. ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,Ask-StopLoss*Point,Ask+TakeProfit*Point,"Agent86",12345,0,Green);
  90. if(ticket>0)
  91. {
  92. if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("BUY order opened : ",OrderOpenPrice());
  93. }
  94. else Print("Error opening BUY order : ",GetLastError());
  95. return(0);
  96. }
  97. if(isCrossed == 2)
  98. {
  100. ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,Ask+StopLoss,Bid-TakeProfit*Point,"Agent86",12345,0,Red);
  101. if(ticket>0)
  102. {
  103. if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("SELL order opened : ",OrderOpenPrice());
  104. }
  105. else Print("Error opening SELL order : ",GetLastError());
  106. return(0);
  107. }
  108. return(0);
  109. }
  110. for(cnt=0;cnt<total;cnt++)
  111. {
  112. OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
  113. if(OrderType()<=OP_SELL && OrderSymbol()==Symbol())
  114. {
  115. if(OrderType()==OP_BUY) // long position is opened
  116. {
  117. // should it be closed?
  118. if(isCrossed == 2)
  119. {
  120. OrderClose(OrderTicket(),OrderLots(),Bid,3,Violet); // close position
  121. return(0); // exit
  122. }
  124. // should it be closed?
  125. if(isCrossed == 1)
  126. {
  127. OrderClose(OrderTicket(),OrderLots(),Ask,3,Violet); // close position
  128. return(0); // exit
  129. }
  130. }
  131. }
  132. }
  133. return(0);
  134. }
  135. //+------------------------------------------------------------------+
  136.  
Powered by spacepaste. Paste removal.