//+------------------------------------------------------------------+
//| 10points 3.mq4 |
//| Copyright ?2005, Alejandro Galindo |
//| http://elCactus.com |
//+------------------------------------------------------------------+
#property copyright "Copyright ?2005, Alejandro Galindo"
#property link "http://elCactus.com"
extern double TakeProfit = 40;
extern double Lots = 0.1;
extern double InitialStop = 0;
extern double TrailingStop = 20;
extern int MaxTrades=10;
extern int Pips=15;
extern int SecureProfit=10;
extern int AccountProtection=1;
extern int OrderstoProtect=3;
extern int ReverseCondition=0;
extern double EURUSDPipValue=10;
extern double GBPUSDPipValue=10;
extern double USDCHFPipValue=10;
extern double USDJPYPipValue=9.715;
extern int StartYear=2005;
extern int StartMonth=1;
extern int EndYear=2005;
extern int EndMonth=12;
extern int EndHour=22;
extern int EndMinute=30;
extern int mm=0;
extern int risk=12;
extern int AccountisNormal=0;
int OpenOrders=0, cnt=0;
int slippage=5;
double sl=0, tp=0;
double BuyPrice=0, SellPrice=0;
double lotsi=0, mylotsi=0;
int mode=0, myOrderType=0;
bool ContinueOpening=True;
double LastPrice=0;
int PreviousOpenOrders=0;
double Profit=0;
int LastTicket=0, LastType=0;
double LastClosePrice=0, LastLots=0;
double Pivot=0;
double PipValue=0;
string text="", text2="";
//+------------------------------------------------------------------+
//| expert initialization function |
//+------------------------------------------------------------------+
int init()
{
//----
//----
return(0);
}
//+------------------------------------------------------------------+
//| expert deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//----
//----
return(0);
}
//+------------------------------------------------------------------+
//| expert start function |
//+------------------------------------------------------------------+
int start()
{
//----
if (AccountisNormal==1)
{
if (mm!=0)
{
lotsi=MathCeil(AccountBalance()*risk/10000);
}
else
{
lotsi=Lots;
}
}
else
{ // then is mini
if (mm!=0) {
lotsi=MathCeil(AccountBalance()*risk/10000)/10;
}
else
{
lotsi=Lots;
}
}
if (lotsi>100)
{
lotsi=100;
}
OpenOrders=0;
//统计已经开仓的单子的数目
for(cnt=0;cnt<OrdersTotal();cnt++)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol()==Symbol())
{
OpenOrders++;
}
}
/*
if (OpenOrders<1)
{
if (TimeYear(CurTime())<StartYear) { return(0); }
if (TimeMonth(CurTime())<StartMonth) { return(0); }
if (TimeYear(CurTime())>EndYear) { return(0); }
if (TimeMonth(CurTime())>EndMonth ) { return(0); }
}
*/
if (Symbol()=="EURUSD") { PipValue=EURUSDPipValue; }
if (Symbol()=="GBPUSD") { PipValue=GBPUSDPipValue; }
if (Symbol()=="USDJPY") { PipValue=USDJPYPipValue; }
if (Symbol()=="USDCHF") { PipValue=USDCHFPipValue; }
if (PipValue==0) {
PipValue=5;
}
if (PreviousOpenOrders>OpenOrders)
{
for(cnt=OrdersTotal();cnt>=0;cnt--)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
mode=OrderType();
if (OrderSymbol()==Symbol())
{
if (mode==OP_BUY) {
OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),slippage,Blue);
}
if (mode==OP_SELL) {
OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),slippage,Red);
}
return(0);
}
}
}
PreviousOpenOrders=OpenOrders;
if (OpenOrders>=MaxTrades)
{
ContinueOpening=False;
} else {
ContinueOpening=True;
}
if (LastPrice==0)
{
for(cnt=0;cnt<OrdersTotal();cnt++)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
mode=OrderType();
if (OrderSymbol()==Symbol())
{
LastPrice=OrderOpenPrice();
if (mode==OP_BUY) {
myOrderType=2;
}
if (mode==OP_SELL) {
myOrderType=1;
}
}
}
}
//如果没有开仓呢
Print("OpenOrders=",OpenOrders);
if (OpenOrders<1)
{
myOrderType=3;
//如果最后一根K线的macd值它前面一根K线的macd值,需要开买单
Print("iMACD(NULL,0,14,26,9,PRICE_CLOSE,MODE_MAIN,0) =",iMACD(NULL,0,14,26,9,PRICE_CLOSE,MODE_MAIN,0));
Print("iMACD(NULL,0,14,26,9,PRICE_CLOSE,MODE_MAIN,1) =",iMACD(NULL,0,14,26,9,PRICE_CLOSE,MODE_MAIN,1));
if (iMACD(NULL,0,14,26,9,PRICE_CLOSE,MODE_MAIN,0)>iMACD(NULL,0,14,26,9,PRICE_CLOSE,MODE_MAIN,1)) {
myOrderType=2;
Print("买单");
}
//如果最后一根K线的macd值它前面一根K线的macd值,需要开卖单
if (iMACD(NULL,0,14,26,9,PRICE_CLOSE,MODE_MAIN,0)<iMACD(NULL,0,14,26,9,PRICE_CLOSE,MODE_MAIN,1)) {
myOrderType=1;
Print("卖单");
}
//单子方向反转。默认不反转
if (ReverseCondition==1){
if (myOrderType==1) {
myOrderType=2;
}
else {
if (myOrderType==2) {
myOrderType=1;
}
}
}
}
// if we have opened positions we take care of them
for(cnt=OrdersTotal();cnt>=0;cnt--)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() == Symbol())
{
if (OrderType()==OP_SELL)
{
//如果设置了移动止损
if (TrailingStop>0)
{
Print("OP_SELL OrderOpenPrice() = ",OrderOpenPrice(),",OrderClosePrice=",OrderClosePrice(),",Ask=",Ask,",Bid=",Bid,",Pips=",Pips,",Point=",Point);
if (OrderOpenPrice()-Ask>=(TrailingStop+Pips)*Point)
{
if (OrderStopLoss()>(Ask+Point*TrailingStop))
{
OrderModify(OrderTicket(),OrderOpenPrice(),Ask+Point*TrailingStop,OrderClosePrice()-TakeProfit*Point-TrailingStop*Point,800,Purple);
return(0);
}
}
}
}
if (OrderType()==OP_BUY)
{
if (TrailingStop>0)
{
Print("OP_BUY OrderOpenPrice() = ",OrderOpenPrice(),",OrderClosePrice=",OrderClosePrice(),",Ask=",Ask,",Bid=",Bid,",Pips=",Pips,",Point=",Point);
if (Bid-OrderOpenPrice()>=(TrailingStop+Pips)*Point)
{
if (OrderStopLoss()<(Bid-Point*TrailingStop))
{
OrderModify(OrderTicket(),OrderOpenPrice(),Bid-Point*TrailingStop,OrderClosePrice()+TakeProfit*Point+TrailingStop*Point,800,Yellow);
return(0);
}
}
}
}
}
}
Profit=0;
LastTicket=0;
LastType=0;
LastClosePrice=0;
LastLots=0;
for(cnt=0;cnt<OrdersTotal();cnt++)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol()==Symbol())
{
LastTicket=OrderTicket();
if (OrderType()==OP_BUY) { LastType=OP_BUY; }
if (OrderType()==OP_SELL) { LastType=OP_SELL; }
LastClosePrice=OrderClosePrice();
LastLots=OrderLots();
if (LastType==OP_BUY)
{
if (OrderClosePrice()<OrderOpenPrice())
{
Profit=Profit-(OrderOpenPrice()-OrderClosePrice())*OrderLots()/Point;
}
if (OrderClosePrice()>OrderOpenPrice())
{
Profit=Profit+(OrderClosePrice()-OrderOpenPrice())*OrderLots()/Point;
}
}
if (LastType==OP_SELL)
{
if (OrderClosePrice()>OrderOpenPrice())
{
Profit=Profit-(OrderClosePrice()-OrderOpenPrice())*OrderLots()/Point;
}
if (OrderClosePrice()<OrderOpenPrice())
{
Profit=Profit+(OrderOpenPrice()-OrderClosePrice())*OrderLots()/Point;
}
}
//Print(Symbol,":",Profit,",",LastLots);
}
}
Print("Profit=",Profit,",PipValue=",PipValue);
Profit=Profit*PipValue;
text2="Profit: $"+DoubleToStr(Profit,2)+" +/-";
if (OpenOrders>=(MaxTrades-OrderstoProtect) && AccountProtection==1)
{
//Print(Symbol,":",Profit);
if (Profit>=SecureProfit)
{
OrderClose(LastTicket,LastLots,LastClosePrice,slippage,Yellow);
ContinueOpening=False;
return(0);
}
}
if (!IsTesting())
{
if (myOrderType==3) {
text="No conditions to open trades";
}
else
{
text="";
}
Comment("LastPrice=",LastPrice,
" Previous open orders=",PreviousOpenOrders,
"\nContinue opening=",ContinueOpening,
" OrderType=",myOrderType,"\n",
text2,"\nLots=",
lotsi,"\n",text);
}
if (myOrderType==1 && ContinueOpening)
{
//LastPrice是上一个单子的开单价格
//如果根据
Print("准备下卖单 Bid=",Bid,",LastPrice=",LastPrice,",Pips=",Pips);
if ((Bid-LastPrice)>=Pips*Point || OpenOrders<1)
{
SellPrice=Bid;
LastPrice=0;
if (TakeProfit==0) {
tp=0;
}
else {
tp=SellPrice-TakeProfit*Point;
}
if (InitialStop==0) {
sl=0;
}
else {
sl=SellPrice+InitialStop*Point;
}
if (OpenOrders!=0)
{
mylotsi=lotsi;
for(cnt=1;cnt<=OpenOrders;cnt++)
{
if (MaxTrades>12)
{
mylotsi=NormalizeDouble(mylotsi*1.5,2);
}
else {
mylotsi=NormalizeDouble(mylotsi*2,2);
}
}
} else {
mylotsi=lotsi;
}
if (mylotsi>100) {
mylotsi=100;
}
OrderSend(Symbol(),OP_SELL,mylotsi,SellPrice,slippage,sl,tp,NULL,0,0,Red);
return(0);
}
}
if (myOrderType==2 && ContinueOpening)
{
Print("准备下买单 Ask=",Ask,",LastPrice=",LastPrice,",Pips=",Pips);
if ((LastPrice-Ask)>=Pips*Point || OpenOrders<1)
{
BuyPrice=Ask;
LastPrice=0;
if (TakeProfit==0) {
tp=0;
}
else {
tp=BuyPrice+TakeProfit*Point;
}
if (InitialStop==0) {
sl=0;
}
else {
sl=BuyPrice-InitialStop*Point;
}
if (OpenOrders!=0) {
mylotsi=lotsi;
for(cnt=1;cnt<=OpenOrders;cnt++)
{
if (MaxTrades>12) {
mylotsi=NormalizeDouble(mylotsi*1.5,2);
}
else {
mylotsi=NormalizeDouble(mylotsi*2,2);
}
}
} else {
mylotsi=lotsi;
}
if (mylotsi>100) {
mylotsi=100;
}
OrderSend(Symbol(),OP_BUY,mylotsi,BuyPrice,slippage,sl,tp,NULL,0,0,Blue);
return(0);
}
}
//----
return(0);
}
//+------------------------------------------------------------------+