mt4盈利后 止损移动到开仓价，固定止损止盈ea。

frlin2003

损盈完整版.zip (983 Bytes, 下载次数: 8, 售价: 20 金钱)

2018-9-10 10:33 上传

点击文件名下载附件
售价: 20 金钱  [记录]
下载积分: 金钱 -8

1. #property copyright   "frlin2003"
   
2. #property link        "http://my.fx3q.com"
   
3. input double 浮盈  =10;
   
4. void OnTick(void)
   
5.   {   int    cnt,total;
   
6.    total=OrdersTotal();
   
7.    for(cnt=0;cnt<total;cnt++)
   
8.      {      if(!OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES))
   
9.          continue;
   
10.       if(OrderType()<=OP_SELL &&  OrderSymbol()==Symbol())  
    
11.         {         if(OrderType()==OP_BUY)
    
12.            {            if(浮盈>0)
    
13.               {               if(Bid-OrderOpenPrice()>Point*浮盈)//买价-开仓价 大于 30点
    
14.                  {    bool res=OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice(),OrderTakeProfit(),0,Blue);
    
15.                       if(!res)
    
16.                       Print("Error in OrderModify. Error code=",GetLastError());
    
17.                       else
    
18.                       Print("Order modified successfully.");                  }              }           }
    
19.          else
    
20.            {            if(浮盈>0)
    
21.               {               if((OrderOpenPrice()-Ask)>(Point*浮盈))
    
22.                  {    bool rees=OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice(),OrderTakeProfit(),0,Red);
    
23.                       if(!rees)
    
24.                       Print("Error in OrderModify. Error code=",GetLastError());
    
25.                       else
    
26.                       Print("Order modified successfully.");                  }              }           }        }     }  }

复制代码

极其粗糙的初步框架
因测试需要，改成了10点就设置平保。
经过测试，可以使用。
但是问题多多。
谁懂的协助下 增分180.


问题：
不同货币切换后，似乎要重启。邪门。
好像不是很灵敏。等等。

frlin2003

1. #property copyright   "frlin2003"
   
2. #property link        "http://my.fx3q.com"
   
3. input double 浮盈=200;
   
4. void OnTick(void)
   
5.   {
   
6.    int    cnt,total;
   
7.    bool res;
   
8.    total=OrdersTotal();
   
9.    for(cnt=0;cnt<total;cnt++)
   
10.      {
    
11.       if(!OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES))
    
12.          continue;
    
13.       if(OrderType()<=OP_SELL &&   
    
14.          OrderSymbol()==Symbol())  
    
15.         {
    
16.          if(OrderType()==OP_BUY)
    
17.            {
    
18.                if(Bid-OrderOpenPrice()>Point*浮盈)
    
19.                  {
    
20.                       res=OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice(),OrderTakeProfit(),0,Blue);
    
21.                       if(!res)
    
22.                       Print("Error in OrderModify. Error code=",GetLastError());
    
23.                       else
    
24.                       Print("Order modified successfully.");
    
25.                  }
    
26.            }
    
27.          else
    
28.            {
    
29.               {
    
30.                if((OrderOpenPrice()-Ask)>(Point*浮盈))
    
31.                  {
    
32.                       res=OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice(),OrderTakeProfit(),0,Red);
    
33.                       if(!res)
    
34.                       Print("Error in OrderModify. Error code=",GetLastError());
    
35.                       else
    
36.                       Print("Order modified successfully.");
    
37.                  }
    
38.               }
    
39.            }
    
40.         }
    
41.      }
    
42.   }

复制代码

优化中，简洁了起来。

frlin2003

shuaiping 发表于 2016-5-27 19:13
缓解气氛，所以要瞎扯点东西

瞬间将几十个单子 盈利超过10点，全部平保，欧耶，还查最后一步。
即，3位小数，4 5位小数，还处于混淆阶段

1. 
   
2. #property copyright   "frlin2003"
   
3. #property link        "http://my.fx3q.com"
   
4. input double 浮盈=100;
   
5. void OnTick(void)
   
6.   {
   
7.    int  cnt,total;
   
8.    bool res;
   
9.    total=OrdersTotal();
   
10.    for(cnt=0;cnt<total;cnt++)
    
11.      {
    
12.       if(!OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES))
    
13.          continue;
    
14.          if(OrderType()==OP_BUY && Bid-OrderOpenPrice()>Point*浮盈)
    
15.            {
    
16.                       res=OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice(),OrderTakeProfit(),0,Blue);
    
17.                       if(!res)
    
18.                       Print("Error in OrderModify. Error code=",GetLastError());
    
19.                       else
    
20.                       Print("Order modified successfully.");
    
21.            }
    
22.          if(OrderType()==OP_SELL  &&(OrderOpenPrice()-Ask)>Point*浮盈)
    
23.            {
    
24.                       res=OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice(),OrderTakeProfit(),0,Red);
    
25.                       if(!res)
    
26.                       Print("Error in OrderModify. Error code=",GetLastError());
    
27.                       else
    
28.                       Print("Order modified successfully.");
    
29.            }
    
30.      }
    
31.   }
    
32. 
    

复制代码

frlin2003

没忍住，再简洁下

1. #property copyright   "frlin2003"
   
2. #property link        "http://my.fx3q.com"
   
3. input double 浮盈=15;
   
4. void OnTick(void)
   
5.   {
   
6.    int  cnt,total;
   
7.    bool res;
   
8.    total=OrdersTotal();
   
9.    for(cnt=0;cnt<total;cnt++)
   
10.      {
    
11.       if(!OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES))
    
12.          continue;
    
13.          if(OrderType()==OP_BUY && Bid-OrderOpenPrice()>Point*浮盈)
    
14.             res=OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice(),OrderTakeProfit(),0,Blue);
    
15.          if(OrderType()==OP_SELL  &&(OrderOpenPrice()-Ask)>Point*浮盈)
    
16.             res=OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice(),OrderTakeProfit(),0,Red);
    
17.      }
    
18.   }

复制代码

frlin2003

laofuzi123 发表于 2016-5-28 09:26
F大真是闲的蛋疼，类似的持仓管理EA到处都是，为何要自己编..........

1. 
   
2. #property copyright   "frlin2003"
   
3. #property link        "http://my.fx3q.com"
   
4. input double 浮盈=300; //黄金两位数300  三位数30？ 五位数货币0.3？需测试验证。
   
5. input double 止盈=1000;
   
6. int start()
   
7.   {
   
8.    int  cnt,total;
   
9.    bool res;
   
10.    double stop, profitt;
    
11.    total=OrdersTotal();
    
12.    for(cnt=0;cnt<total;cnt++)
    
13.      {
    
14.       if(!OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES))
    
15.          continue;
    
16.          if(OrderType()==OP_BUY && Bid-OrderOpenPrice()>Point*浮盈 && Bid-OrderOpenPrice()<Point*止盈) stop=OrderOpenPrice(); profitt=OrderOpenPrice()+Point*止盈;  //开仓设置100点止盈。
    
17.          if(OrderType()==OP_BUY && Bid-OrderOpenPrice()<Point*浮盈)  stop=0;profitt=OrderOpenPrice()+Point*止盈;
    
18.          if(OrderType()==OP_SELL && (OrderOpenPrice()-Ask)>Point*浮盈 && (OrderOpenPrice()-Ask)<Point*止盈) stop=OrderOpenPrice();profitt=OrderOpenPrice()-Point*止盈;
    
19.          if(OrderType()==OP_SELL && (OrderOpenPrice()-Ask)<Point*浮盈) stop=0;profitt=OrderOpenPrice()-Point*止盈;
    
20.          res=OrderModify(OrderTicket(),OrderOpenPrice(),stop,profitt,0,Red);
    
21.      }/*
    
22.         return(0);
    
23.   }

复制代码

快靠近完整版。。。感觉上。

frlin2003

懂的人，别笑 bool搞2次

frlin2003

忘了说了，这是放在experts文件夹里，跟macd的ea同一位置。

frlin2003

理由：心血来潮。

frlin2003

为了担心怕@shuaiping 君说代码太长，硬给他挤成26行

johnLance

这是什么语言？

frlin2003

johnLance 发表于 2016-5-27 17:26
这是什么语言？

mt4自带语言

johnLance

frlin2003 发表于 2016-5-27 17:27
mt4自带语言

感觉有点像JAVA？

shuaiping

frlin2003 发表于 2016-5-27 17:22
为了担心怕@shuaiping 君说代码太长，硬给他挤成26行

莫须有！

k37336

frlin2003 发表于 2016-5-27 17:11
理由：心血来潮。

魏总好热心

k37336

frlin2003 发表于 2016-5-27 17:22
为了担心怕@shuaiping 君说代码太长，硬给他挤成26行

大S表示蔑视这个代码

k37336

johnLance 发表于 2016-5-27 17:26
这是什么语言？

比C语言还复杂的MT4语言  嘿嘿   

johnLance

k37336 发表于 2016-5-27 17:31
比C语言还复杂的MT4语言  嘿嘿

可能是C#

k37336

johnLance 发表于 2016-5-27 17:32
可能是C#

反正我不懂

frlin2003

shuaiping 发表于 2016-5-27 17:28
莫须有！

78行三条线

shuaiping

k37336 发表于 2016-5-27 17:35
反正我不懂

You know nothing, K3

k37336

shuaiping 发表于 2016-5-27 17:37
You know nothing, K3

嗯    过奖了   

qiaoke

shuaiping 发表于 2016-5-27 17:37
You know nothing, K3

你的因格力士，哇里骨得哦！

shuaiping

qiaoke 发表于 2016-5-27 17:55
你的因格力士，哇里骨得哦！

电视里的台词

k37336

shuaiping 发表于 2016-5-27 18:00
电视里的台词

说的好像很感人似的    我不知道你暗恋我？