Changeset 4

Timestamp:

May 30, 2008, 2:13:47 PM (16 years ago)

Author:

george

Message:

Upraveno: Podmínka pro uzavírání pokynů upravena na dynamické trailing stopy.

File:

• MovingAverageCrossing.mq4 (modified) (6 diffs)

MovingAverageCrossing.mq4

@@ -7 +7 @@
 #property link      ""
 
-#define MAGICMA  20050610
+#define MAGICMA  1000000
 
 extern double Lots               = 0.1;
@@ -14 +14 @@
 extern double ShortMovingPeriod       = 5;
 extern double ShortMovingShift        = 0;
-extern double LongMovingPeriod       = 100;
+extern double LongMovingPeriod       = 20;
 extern double LongMovingShift        = 0;
+extern double PricePeriod       = 2;
 extern double MinDerivation      = 0.0002;
 extern double MinimumDistance    = 0.04;
+extern double BaseTrailingStop  = 50;
+extern double TrailingStopPart  = 0.6;
 
 int MathSign(double Value)
@@ -38 +41 @@
   static int SameDirectionCount = 0;
   static int LastPolarity;
+  double TrailingStop;
   
   // Go trading only for first tiks of new bar
@@ -59 +63 @@
   }
 */
-
+  RefreshRates();
+  
   // Sell conditions
   for(int i=0; i < OrdersTotal(); i++)
@@ -68 +73 @@
     if(OrderType() == OP_BUY)
     {
-      if(PolarityChanged && (Polarity == -1))  
-        OrderClose(OrderTicket(), OrderLots(), Bid, 3, White);
+      TrailingStop = (Bid - OrderOpenPrice()) * TrailingStopPart + BaseTrailingStop * Point;
+      Print("TrailingStop: " + TrailingStop + ", OpenPrice: " + OrderOpenPrice() + ", Bid: " + Bid);
+      if(Bid > OrderStopLoss() + TrailingStop)
+      {
+        OrderModify(OrderTicket(), OrderOpenPrice(), Bid - TrailingStop, OrderTakeProfit(), 0, Green);
+      }
+      //if(PolarityChanged && (Polarity == -1))  
+      //  OrderClose(OrderTicket(), OrderLots(), Bid, 3, White);
     }
     if(OrderType() == OP_SELL)
     {
-     if(PolarityChanged && (Polarity == 1))  
-        OrderClose(OrderTicket(), OrderLots(), Ask, 3, White);
+      TrailingStop = (OrderOpenPrice() - Ask) * TrailingStopPart + BaseTrailingStop * Point;
+      if(Ask < OrderStopLoss() - TrailingStop)
+      {
+        OrderModify(OrderTicket(), OrderOpenPrice(), Ask + TrailingStop, OrderTakeProfit(), 0, Green);
+      }
+      //if(PolarityChanged && (Polarity == 1))  
+      //  OrderClose(OrderTicket(), OrderLots(), Ask, 3, White);
     }
   }
@@ -82 +98 @@
   if(PolarityChanged)
   {
-    if(Polarity == -1) res = OrderSend(Symbol(), OP_SELL, Lots, Bid, 3, 0, 0, "", MAGICMA, 0, Red);
-    if(Polarity == 1) res = OrderSend(Symbol(), OP_BUY, Lots, Ask, 3, 0, 0, "", MAGICMA, 0, Blue);
+    if(Polarity == -1) res = OrderSend(Symbol(), OP_SELL, Lots, Bid, 3, Bid + BaseTrailingStop * Point, 0, "", MAGICMA, 0, Red);
+    if(Polarity == 1) res = OrderSend(Symbol(), OP_BUY, Lots, Ask, 3, Ask - BaseTrailingStop * Point, 0, "", MAGICMA, 0, Blue);
     PolarityChanged = false;
   }