比特币通信协议 - 币圈消息

比特币通信协议篇11、二、TURN简介。在典型的情况下,TURN客户端连接到内网中,并且通过一个或者多个NAT到 详细

[EA]Price Action V1

  [复制链接]
862 14
pantianqiong 发表于 2014-5-8 14:15:00 | 只看该作者 |阅读模式 打印 上一主题 下一主题
//|$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
//  Price Action V1
//  
//|$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
#define     NL    "\n"

extern double Lots = 1;
extern double TP = 100;
extern int   TradeType      = 0;          // 0 to follow the trend, 1 to force buy, 2 to force sell
extern int leverage = 5;
extern double MaximumLossinMoney = 1000;
extern int   MagicNumber        = 250346;
extern bool UseAlerts = false;

//+-------------+
//| Custom init |
//|-------------+
int init()
  {

  }

//+----------------+
//| Custom DE-init |
//+----------------+
int deinit()
  {

  }

void sendEmail()
{
  if (UseAlerts==true) SendMail("YTF Alert", "New order has been added  "+OrdersTotal()+"   Balance = " +AccountBalance() + " Equity = "+AccountEquity() +" Current Price: " + Close[0]);
  return;
}

void DrawHorizentalLine()
{
ObjectCreate("TProfit", OBJ_HLINE, 0, Time[1], Close[0]+500*Point);            
            ObjectSet("Tprofit", OBJPROP_STYLE, STYLE_SOLID);
            ObjectSet("Tprofit", OBJPROP_COLOR, MediumSeaGreen);
}


//+------------------------------------------------------------------------+
//| Closes everything
//+------------------------------------------------------------------------+
void CloseAll()
{
  for(int i=OrdersTotal()-1;i>=0;i--)
{
    OrderSelect(i, SELECT_BY_POS);
    bool result = false;
        if ( OrderType() == OP_BUY && OrderMagicNumber()== MagicNumber)  result = OrderClose( OrderTicket(), OrderLots(), MarketInfo(OrderSymbol(), MODE_BID), 5, Red );
        if ( OrderType() == OP_SELL && OrderMagicNumber()==MagicNumber)  result = OrderClose( OrderTicket(), OrderLots(), MarketInfo(OrderSymbol(), MODE_ASK), 5, Red );
        if (UseAlerts) PlaySound("alert.wav");
}
  return;
}


void CloseAllBuy()
{
  for(int i=OrdersTotal()-1;i>=0;i--)
{
    OrderSelect(i, SELECT_BY_POS);
    bool result = false;
        if ( OrderType() == OP_BUY && OrderMagicNumber()==MagicNumber)  result = OrderClose( OrderTicket(), OrderLots(), MarketInfo(OrderSymbol(), MODE_BID), 5, Red );
        if (UseAlerts) PlaySound("alert.wav");
}
  return;
}

void CloseAllSell()
{
  for(int i=OrdersTotal()-1;i>=0;i--)
{
    OrderSelect(i, SELECT_BY_POS);
    bool result = false;
        if ( OrderType() == OP_SELL && OrderMagicNumber()==MagicNumber)  result = OrderClose( OrderTicket(), OrderLots(), MarketInfo(OrderSymbol(), MODE_ASK), 5, Red );
        if (UseAlerts) PlaySound("alert.wav");
}
  return;
}
   
//+------------------------------------------------------------------------+
//| cancels all orders that are in profit
//+------------------------------------------------------------------------+







//+------------------------------------------------------------------------+
//| cancels all pending orders
//+------------------------------------------------------------------------+

//+-----------+
//| Main      |
//+-----------+
int start()
  {
   int      OrdersBUY, ticket;
   int      OrdersSELL;
   double   BuyLots, SellLots, BuyProfit, SellProfit;

//+------------------------------------------------------------------+
//  Determine last order price                                       |
//-------------------------------------------------------------------+


      if(OrdersTotal()==0 && TradeType ==1 )
        {
         ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,Ask-TP*Point,Ask+leverage*TP*Point,"MLTrendETF",MagicNumber,0,Green);
         TradeType=2;
         
         if(ticket>0)
           {
            if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) sendEmail();
           }
         else Print("Error opening BUY order : ",GetLastError());
         return(0);
        }

      if(OrdersTotal()==0 && TradeType ==2)
        {
         ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,Bid+TP*Point,Bid-TP*leverage*Point,"MLTrendETF",MagicNumber,0,Green);
         TradeType = 1;
         if(ticket>0)
           {
            if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) sendEmail();
           }
         else Print("Error opening BUY order : ",GetLastError());
         return(0);
        }



  } // start()
收藏
收藏0
转播
转播
分享
分享
分享
淘帖0

精彩评论14

跳转到指定楼层
15#
.冰 发表于 2014-5-9 17:10:08 | 只看该作者
没介绍什么类型的啊,就不下了~~~~~~~~
14#
tokio147 发表于 2014-5-9 15:19:40 | 只看该作者
回测不了?是不是缺少了DLL?
13#
zhaoxj 发表于 2014-5-9 10:58:18 | 只看该作者
0FX有你更精彩


12#
ahuang62 发表于 2014-5-8 13:05:13 | 只看该作者
呵呵,回测不能开单的EA
11#
569250324 发表于 2014-5-8 03:20:54 | 只看该作者
这个看不到
10#
zzpp05 发表于 2014-5-8 00:33:31 | 只看该作者
好像不能用啊
9#
人民币 发表于 2014-5-7 22:20:24 | 只看该作者
路过。。看下 这个
8#
lapneng 发表于 2014-5-7 21:44:16 | 只看该作者
无法测试哦, !!!! >.<
7#
jiuhongzhi 发表于 2014-5-7 20:59:00 | 只看该作者
你是个好人





您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

发布主题
阅读排行更多+

Powered by 顺水鱼MT4外汇EA网! X3.2© 2001-2017 顺水MT4外汇EA公司.( 陕ICP备17014341号-1