节点 › EA发布区 › [EA分享] 5M剥头皮系统源码

qoevdav 发表于 2013-4-19 21:58:37

[EA分享] 5M剥头皮系统源码

#include <stdlib.mqh>

extern double Lots = 1.0;
extern double TakeProfit = 10;
extern double Stoploss = 17;
extern double TrailingStop = 9;
extern double Slippage = 2;
extern double risk = 5.0;
extern double Pips = 16;
extern double Perc = 5;
double Points;
//int color arrow_color=CLR_NONE;

int init ()
{
Points = MarketInfo (Symbol(), MODE_POINT);
//----
return(0);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int deinit()
{
return(0);
}
//+------------------------------------------------------------------+

//+------------------------------------------------------------------+
//| expert start function |
//+------------------------------------------------------------------+
int start()
{
double Levv=0;
int cnt=0, total;

if(Bars<10)
{
Print("bars less than 100");
return(0);
}
if(OrdersTotal()<1)
{
if(AccountFreeMargin()<(1*Lots))
{
Print("BrokeAsAJoke");
return(0);
}
Levv= (MathCeil(AccountEquity() * risk / 10000)/10);


// (BUY)
if (Close>Close)
{
OrderSend(Symbol(),OP_BUY,Levv,Bid,Slippage,Bid-Stoploss*Points,Ask+TakeProfit*Points,0,0,Red);
return(0);
}

// (SELL)
if (Close<Close)
{
OrderSend(Symbol(),OP_SELL,Levv,Ask,Slippage,Ask+Stoploss*Points,Bid-TakeProfit*Points,0,0,Red);
return(0);
}
}

total=OrdersTotal();
for(cnt=0;cnt<OrdersTotal();cnt++)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if(OrderType()<=OP_SELL && OrderSymbol()==Symbol())
{
if(OrderType()==OP_BUY)
{
//if((OrderOpenTime() - (CurTime() >= 300))|| (AccountProfit() >2))
if((CurTime() - (OrderOpenTime() >= 300)) || (AccountProfit() >2))
{
OrderClose(OrderTicket(),OrderLots(),Ask,0,Violet);
return(0);
}
}
}
}

total=OrdersTotal();
for(cnt=0;cnt<OrdersTotal();cnt++)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if(OrderType()<=OP_BUY && OrderSymbol()==Symbol())
{
if(OrderType()==OP_SELL)
{
//if ((OrderOpenTime() - (CurTime() >= 300))|| (AccountProfit() >2))//1 Day//
if((CurTime() - (OrderOpenTime() >= 300)) || (AccountProfit() >2))
{
OrderClose(OrderTicket(),OrderLots(),Bid,0,Violet);
return(0);
}
}
}
}
}

晴天雨天 发表于 2013-4-19 21:58:58

谢谢分享源码....

pjj9 发表于 2013-4-23 09:57:21

点点滴滴

听香水榭 发表于 2013-4-23 22:48:10

liujian101 发表于 2013-5-12 00:36:04

陈伟 发表于 2013-5-18 16:14:34

爱和恨

沉浮落雁 发表于 2013-7-11 03:29:42

if (Close>Close) ？ 着实是垃圾额

猫猫不哭 发表于 2013-7-11 13:55:28

猫猫不哭 发表于 2013-7-11 14:04:46

天蓝蓝 发表于 2013-8-25 12:38:15

二维22121

查看完整版本: [EA分享] 5M剥头皮系统源码