加载中…
午夜超短EA—Momods_Night_Scalper_V3.01_Basic
(2016-01-17 13:17:10)
标签：
杂谈 |
查看原文：http://www.125808047.com/?p=1747
Momods_Night_Scalper_V3.01_Basic智能交易EA也有人称为夜间黄牛，用在eurusd, eurgbp,
eurcad, eurchf, gbpusd, gbpchf, gbpcad, usdcad, cadchf,
该EA有两个文件，一个指标Fractal_Levels.mq4放入指标文件假，Momods_Night_Scalper_V3.01_Basic.mq4放入EA文件夹。
本网收集整理智能交易EA仅为MQL4编程爱好者提供语法及相关编程技巧的学习研究之用，智能交易存在极高的风险测试请用模拟盘，请勿用于实盘。MQL4源码如下：
指标Fractal Levels.mq4源码：
//+------------------------------------------------------------------+
//| Fractal Levels.mq4 |
//| Copyright 2014, QQ:125808047 |
//+------------------------------------------------------------------+
#property copyright "www.125808047.com"
#property link "http://www.125808047.com/"
#property indicator_chart_window
#property indicator_buffers 2
#property indicator_color1 Gray
#property indicator_color2 Gray
#property indicator_width1 1
#property indicator_width2 1
double UpperFr[];
double LowerFr[];
extern double MidFractalDist = 6;
extern double OppFractalDist = 11;
extern color Line1col = Green;
extern color Line2col = Red;
extern color Line3col = DarkGreen;
extern color Line4col = DarkOrange;
double PointValue;
int refreshtime;
int init()
{
if (Digits <= 3) PointValue = 0.01; else PointValue = 0.0001;
SetIndexBuffer(0, UpperFr);
SetIndexBuffer(1, LowerFr);
SetIndexEmptyValue(0, 0);
SetIndexEmptyValue(1, 0);
SetIndexStyle(0, DRAW_ARROW);
SetIndexArrow(0, 217);
SetIndexStyle(1, DRAW_ARROW);
SetIndexArrow(1, 218);
return(0);
}
int deinit()
{
for (int i = 1; i <= 4; i++) ObjectDelete("Line" + i);
Comment("");
return(0);
}
int start()
{
int counted=IndicatorCounted();
if (counted < 0) return(-1);
if (counted > 0) counted--;
int limit=Bars-counted;
if (refreshtime != iTime(Symbol(),PERIOD_M15,0))
{
refreshtime = iTime(Symbol(),PERIOD_M15,0);
for (int i = 1; i <= 4; i++) ObjectDelete("Line" + i);
}
else return(0);
double dy;
for(i=1; i<=20; i++)
{
dy+=0.2*(High[i]-Low[i])/20;
UpperFr[i]=0; LowerFr[i]=0;
}
for(int a=1; a<Bars; a++)
{
if(iFractals(NULL, 0, MODE_UPPER,a)!=0)
{
double LastUpFractal=iFractals(NULL, 0, MODE_UPPER,a);
datetime FracUpTime =iTime(Symbol(),PERIOD_M15,a);
UpperFr[a]=High[a] + dy;
break;
}
}
for(int s=1; s<Bars; s++)
{
if(iFractals(NULL, 0, MODE_LOWER,s)!=0)
{
double LastDownFractal=iFractals(NULL, 0, MODE_LOWER,s);
datetime FracDownTime =iTime(Symbol(),PERIOD_M15,s);
LowerFr[s]=Low[s] - dy;
break;
}
}
datetime FracTime;
if (FracUpTime < FracDownTime) FracTime = FracUpTime;
else FracTime = FracDownTime;
double midFractal=NormalizeDouble((LastUpFractal+LastDownFractal)/2,Digits);
double price1 = LastUpFractal-OppFractalDist*PointValue;
double price2 = LastDownFractal+OppFractalDist*PointValue;
double price3 = midFractal-MidFractalDist*PointValue;
double price4 = midFractal+MidFractalDist*PointValue;
ObjectCreate("Line1", OBJ_TREND, 0, FracTime, price1, TimeCurrent(), price1);
ObjectSet("Line1",OBJPROP_COLOR,Line1col);
ObjectSet("Line1",OBJPROP_BACK,True);
ObjectCreate("Line2", OBJ_TREND, 0, FracTime, price2, TimeCurrent(), price2);
ObjectSet("Line2",OBJPROP_COLOR,Line2col);
ObjectSet("Line2",OBJPROP_BACK,True);
ObjectCreate("Line3", OBJ_TREND, 0, FracTime, price3, TimeCurrent(), price3);
ObjectSet("Line3",OBJPROP_COLOR,Line3col);
ObjectSet("Line3",OBJPROP_BACK,True);
ObjectCreate("Line4", OBJ_TREND, 0, FracTime, price4, TimeCurrent(), price4);
ObjectSet("Line4",OBJPROP_COLOR,Line4col);
ObjectSet("Line4",OBJPROP_BACK,True);
return(0);
}
-------------------------注意下面为EA源码--------------------------------------------------------------------
//智能交易EA Momods_Night_Scalper_V3.01_Basic 源码如下：
////////////////////////////////////////////////////////
// Momods_Night_Scalper_V3.01_Basic //
// Coded by Momods @ worldwide-invest.org //
// April 21, 2013 //
////////////////////////////////////////////////////////
// If you make money from this EA //
// please make donnation to my paypal Account //
// mohddisi@yahoo.com //
////////////////////////////////////////////////////////
//V1.3 (March 17, 2013) - Added second condition for Fractals signal
// - Added MA Slope filter
// - Added settings internally
//
//V1.4 (March 23, 2013) - Fixed a bug in displaying Open/Close hours
// - No need to add pair suffix
// - Added code to generate master magic number for all pairs based on account number
// - Faster back tests
// - hide EA name in comments from broker (enter your own)
// - Option to hide SL/TP from broker. Highly dangerous if you are not using VPS.
// - Now you can see total profit (loss) for each pair on the display
// - Revised settings for several pairs based on optimization
//
//V2.0 (March 31, 2013) - Fixed a bug in calculating trading times for friday
// - Added BB to be used either as Signal or filter.
// - Added trade spacing time filter (When a trade closes in loss, EA will wait x minutes before opening a same type trade).
// - Modified settings for EURCAD, EURGBP, and USDCAD.
//V2.1 (March 31, 2013) - Fixed a bug in calculating trade pause
//V2.2 (April 2, 2013) - Fixed another bug in session display.
//
//V2.21 (April 14, 2013) - Added Max Spread to externals
// - Fixed display bug
//
//V3.0 (April 21, 2013) - Added Auto-Timing (EA will determine your broker's GMT Offset automatically).
// - Added Daylight Saving Timing (DST) for back testing
// - Added maximo's Fractal Level indicator
// - Renamed several parameters to remove any confusion
// - Added second option to puase trades on loss based on pips from last loss (good for trading on price charts....renko...range..)
// - Added RSI indicator as signal/filter
//V3.01 (April 24, 2013) - Limited Auto timing just to get correct GMT Offset. Use manual GMT offset for trading.
#property copyright "www.125808047.com"
#property link "http://www.125808047.com/"
#import "Wininet.dll"
int InternetOpenA(string, int, string, string, int);
int InternetConnectA(int, string, int, string, string, int, int, int);
int HttpOpenRequestA(int, string, string, int, string, int, string, int);
int InternetOpenUrlA(int, string, string, int, int, int);
int InternetReadFile(int, string, int, int& OneInt[]);
int InternetCloseHandle(int);
#import
extern string EA_Name= "Momods_Night_Scalper_v3.01_Basic";
extern string C_1="Please Enter your own EA Comment below";
extern string EA_Comment="";
extern string S_1="If MAGIC=0, a unique value will be generated by EA";
extern int MAGIC = 0;
extern bool New_Trade=True;
extern string S0="----------------------";
extern double lot = 0;
extern double Risk = 7.5;
extern bool Hide_SL_TP = False;
double TakeProfit = 60;
double StopLoss = 50;
int Slippage = 3;
extern string C0=" If Max_Spread = 0, EA will use internal settings";
extern double Max_Spread = 6.0;
extern string S1="----------------------";
extern bool Use_Auto_Time = True;
extern int GMT_Offset = 0;
extern bool UseDST = FALSE;
int Open_Hour = 20;
int Close_Hour = 23;
bool TradeOnFriday = False;
int Friday_Hour =15;
extern string S2="----------------------";
extern bool Trade_Pause_On_Loss = false;
extern string P="Puase type: 1= Use Minutes, 2= Use Pips";
extern int Pause_Type=1;
extern int Trade_Pause_Minutes = 60;
extern double Trade_Pause_Pips = 20;
extern string S3="----------------------";
extern bool Allow_Second_Open_Trade=false;
extern double Distance = 12;
extern double Lot_Factor = 0.5;
string S4="----------------------";
bool Use_CCI = False;
int CCI_Period = 10;
double CCI_Entry = 200;
double CCI_Exit = 140;
string S5="----------------------";
bool Use_WPR = true;
int WPR_Period = 10;
double WPR_Entry = 91;
double WPR_Exit = 40;
string S6="----------------------";
bool Use_RSI = false;
int RSI_Period = 70;
double RSI_Entry = 50;
string S7="----------------------";
bool Use_Fractals = true;
double MidFractalDist = 5;
double OppositFractalDist=10;
extern bool Show_Fractal_Levels=False;
string S8="----------------------";
bool Use_MA_Dist = false;
double MA_Dist_Period = 4;
string Mode="0= Simple, 1= Exponential, 2= Smoothed, 3= Linear Weighted";
double MA_Dist_Mode=1;
double Dist_to_MA =4;
string S9="----------------------";
bool Use_MA1 = False;
int MA_Period1 = 75;
string Mode1="0= Simple, 1= Exponential, 2= Smoothed, 3= Linear Weighted";
int MA_Mode1 = 3;
bool Use_MA2 = False;
int MA_Period2 = 19;
string Mode2="0= Simple, 1= Exponential, 2= Smoothed, 3= Linear Weighted";
int MA_Mode2 = 3;
bool Use_MA2_Slope = False;
double MA_Slope = 1;
string S10="----------------------";
bool Use_BB = False;
int BB_Period = 10;
int BB_Dev = 2;
int BB_Range = 12;
int BB_Penetration = 2;
bool Use_BB_Direction=False;
string S11="---------Global Variables---------------";
bool Trade;
datetime Last_Time;
double Lot;
double LastUpFractal,LastDownFractal;
double midFractal;
int SpreadSampleSize = 10;
double Spread[];
string Session="";
int Magic;
int CCI_Buy_Sig;
int CCI_Sell_Sig;
int WPR_Buy_Sig;
int WPR_Sell_Sig;
int MA_Buy_Sig1;
int MA_Sell_Sig1;
int MA_Buy_Sig2;
int MA_Sell_Sig2;
int Fractals_Buy_Sig;
int Fractals_Sell_Sig;
int CCI_Exit_Buy_Sig;
int CCI_Exit_Sell_Sig;
int WPR_Exit_Buy_Sig;
int WPR_Exit_Sell_Sig;
int MA_Slope_Buy_Sig;
int MA_Slope_Sell_Sig;
int BB_Buy_Sig;
int BB_Sell_Sig;
int Trade_Pause_Buy_Sig;
int Trade_Pause_Sell_Sig;
int MA_Dist_Buy_Sig;
int MA_Dist_Sell_Sig;
int RSI_Buy_Sig;
int RSI_Sell_Sig;
double CCI_1,WPR_1, MA_1_1, MA_1_2,MA_2_1,MA_2_2,BB_U_1,BB_U_2,BB_U_3,BB_L_1,BB_L_2,BB_L_3,MA_3_1, RSI_1;
string site1 = "http://www.timezoneconverter.com/cgi-bin/zoneinfo.tzc?tz=America/New_York";
//string site2 = "http://http://localtimes.info/North_America/United_States/New_York/New_York/";
string site2 = "http://www.timezoneconverter.com/cgi-bin/zoneinfo.tzc?tz=";
int NY_Diff,GMT_Diff;
int init() {
//-----------------------------------Time Offset ----------------------------------------------------//
if (Use_Auto_Time && (IsTesting() || IsOptimization()))
{Alert("You can not use Auto Timing in back test. Please use manual GMT Offset.");return(0);}
if (Use_Auto_Time && !IsTesting() && !IsOptimization())
{
if (Minute() ==59 || Minute() ==0 )
{
Comment("Hour is changing. Please wait few minutes");
if (Minute()==59) Sleep(120000);
if (Minute()==0) Sleep(60000);
}
if (Minute() !=59 && Minute() !=0 )
{
NY_Diff= Time_Offset(site1,83);
//GMT_Diff= Time_Offset(site2,70);
//if (NY_Diff==100 || GMT_Diff==100)
if (NY_Diff==100)
{
Alert("Cant Get Auto Timing. Please use Manual GMT Offset");
return(0);
}
}
if (DST()==0) GMT_Offset=NY_Diff-4;
if (DST()==1) GMT_Offset=NY_Diff-5;
//Print("GMT_Diff = ",GMT_Diff);
Print("NY_Diff = ",NY_Diff);
Alert("Your Broker GMT_Offset = ",GMT_Offset);
}
//----------------------------------Set Magic Number --------------------------------------------------//
if (MAGIC==0) MAGIC=MathFloor(AccountNumber()/57431)*100;
if (MAGIC>0) MAGIC=MAGIC*100;
if (StringSubstr(Symbol(),0,6)=="EURCAD") {
Magic=MAGIC+1;if(Max_Spread==0)Max_Spread=6;StopLoss= 60;Open_Hour= 20;Close_Hour=23;
Use_CCI= true;CCI_Period=10;CCI_Entry=100;CCI_Exit=120;Use_WPR=true;WPR_Period=10;WPR_Entry=91;WPR_Exit=40;
Use_Fractals=true;MidFractalDist=6;OppositFractalDist=11;Use_MA1=False;MA_Period1=25;Use_MA2_Slope=False;
MA_Slope= 5;}
if (StringSubstr(Symbol(),0,6)=="EURGBP") {
Magic=MAGIC+2;if(Max_Spread==0)Max_Spread=4;StopLoss= 60;Open_Hour= 20;Close_Hour=23;Use_CCI= true;
CCI_Period=10;CCI_Entry=100;CCI_Exit=120;Use_WPR=true;WPR_Period=11;WPR_Entry=90;WPR_Exit=40;
Use_Fractals=true;MidFractalDist=5;OppositFractalDist=9;Use_MA1=False;MA_Period1=25;Use_MA2_Slope=False;
MA_Slope= 5;}
if (StringSubstr(Symbol(),0,6)=="USDCAD") {
Magic=MAGIC+3;if(Max_Spread==0)Max_Spread=4;StopLoss= 60;Open_Hour= 20;Close_Hour=23;Use_CCI= true;
CCI_Period=10;CCI_Entry=120;CCI_Exit=125;Use_WPR=true;WPR_Period=10;WPR_Entry=90;WPR_Exit=35;
Use_Fractals=true;MidFractalDist=8;OppositFractalDist=11;Use_MA1=False;MA_Period1=25;Use_MA2_Slope=False;
MA_Slope= 5;}
if (StringSubstr(Symbol(),0,6)=="EURCHF") {
Magic=MAGIC+4;if(Max_Spread==0)Max_Spread=5;StopLoss= 40;Open_Hour= 20;Close_Hour=23;Use_CCI= true;
CCI_Period=10;CCI_Entry=100;CCI_Exit=130;Use_WPR=true;WPR_Period=10;WPR_Entry=91;WPR_Exit=30;
Use_Fractals=true;MidFractalDist=7;OppositFractalDist=9;Use_MA1=False;MA_Period1=25;Use_MA2_Slope=False;
MA_Slope= 5;}
if (StringSubstr(Symbol(),0,6)=="USDCHF") {
Magic=MAGIC+5;if(Max_Spread==0)Max_Spread=4;StopLoss= 40;Open_Hour= 20;Close_Hour=23;Use_CCI= true;
CCI_Period=10;CCI_Entry=100;CCI_Exit=120;Use_WPR=true;WPR_Period=10;WPR_Entry=91;WPR_Exit=40;
Use_Fractals=true;MidFractalDist=6;OppositFractalDist=9;Use_MA1=False;MA_Period1=25;Use_MA2_Slope=False;
MA_Slope= 5;}
if (StringSubstr(Symbol(),0,6)=="GBPCHF") {
Magic=MAGIC+6;if(Max_Spread==0)Max_Spread=6;StopLoss= 50;Open_Hour= 20;Close_Hour=23;Use_CCI= true;
CCI_Period=10;CCI_Entry=100;CCI_Exit=130;Use_WPR=true;WPR_Period=10;WPR_Entry=91;WPR_Exit=30;
Use_Fractals=true;MidFractalDist=9;OppositFractalDist=15;Use_MA1=False;MA_Period1=25;Use_MA2_Slope=False;
MA_Slope= 5;}
if (StringSubstr(Symbol(),0,6)=="GBPCAD") {
Magic=MAGIC+7;if(Max_Spread==0)Max_Spread=6;StopLoss= 50;Open_Hour= 20;Close_Hour=23;Use_CCI= true;
CCI_Period=10;CCI_Entry=100;CCI_Exit=130;Use_WPR=true;WPR_Period=10;WPR_Entry=91;WPR_Exit=30;
Use_Fractals=true;MidFractalDist=7;OppositFractalDist=13;Use_MA1=False;MA_Period1=25;Use_MA2_Slope=False;
MA_Slope= 5;}
if (StringSubstr(Symbol(),0,6)=="EURUSD") {
Magic=MAGIC+8;if(Max_Spread==0)Max_Spread=4;StopLoss= 40;Open_Hour= 20;Close_Hour=23;Use_CCI= true;
CCI_Period=10;CCI_Entry=100;CCI_Exit=120;Use_WPR=true;WPR_Period=8;WPR_Entry=93;WPR_Exit=42;
Use_Fractals=True;MidFractalDist=8;OppositFractalDist=15;Use_MA1=true;MA_Period1=75;Use_MA2=true;
MA_Period2=20;Use_MA2_Slope=False;MA_Slope= 5;}
if (StringSubstr(Symbol(),0,6)=="CADJPY") Magic=MAGIC+9;
if (StringSubstr(Symbol(),0,6)=="GBPJPY") Magic=MAGIC+10;
if (StringSubstr(Symbol(),0,6)=="CADCHF") {
Magic=MAGIC+11;if(Max_Spread==0)Max_Spread=6;StopLoss= 50;Open_Hour= 20;Close_Hour=23;Use_CCI= true;
CCI_Period=10;CCI_Entry=100;CCI_Exit=130;Use_WPR=true;WPR_Period=10;WPR_Entry=91;WPR_Exit=30;
Use_Fractals=true;MidFractalDist=7;OppositFractalDist=13;Use_MA1=False;MA_Period1=25;Use_MA2_Slope=False;
MA_Slope= 5;}
if (StringSubstr(Symbol(),0,6)=="GBPUSD") {
Magic=MAGIC+12;if(Max_Spread==0)Max_Spread=4;StopLoss= 40;Open_Hour= 20;Close_Hour=23;Use_CCI= true;
CCI_Period=10;CCI_Entry=100;CCI_Exit=125;Use_WPR=true;WPR_Period=12;WPR_Entry=90;WPR_Exit=38;
Use_Fractals=true;MidFractalDist=6;OppositFractalDist=11;Use_MA1=False;MA_Period1=25;Use_MA2_Slope=False;
MA_Slope= 5;}
if (StringSubstr(Symbol(),0,6)=="USDJPY") Magic=MAGIC+13;
if (StringSubstr(Symbol(),0,6)=="AUDUSD") Magic=MAGIC+14;
if (StringSubstr(Symbol(),0,6)=="AUDCAD") Magic=MAGIC+15;
if (StringSubstr(Symbol(),0,6)=="AUDJPY") Magic=MAGIC+16;
if (StringSubstr(Symbol(),0,6)=="EURAUD") Magic=MAGIC+17;
if (StringSubstr(Symbol(),0,6)=="GBPAUD") Magic=MAGIC+18;
if (StringSubstr(Symbol(),0,6)=="EURNZD") Magic=MAGIC+19;
if (StringSubstr(Symbol(),0,6)=="GBPNZD") Magic=MAGIC+20;
if (StringSubstr(Symbol(),0,6)=="EURNOK") Magic=MAGIC+21;
if (StringSubstr(Symbol(),0,6)=="EURSEK") Magic=MAGIC+22;
if (StringSubstr(Symbol(),0,6)=="NZDUSD") Magic=MAGIC+23;
if (StringSubstr(Symbol(),0,6)=="NZDJPY") Magic=MAGIC+24;
if (StringSubstr(Symbol(),0,6)=="EURJPY") Magic=MAGIC+25;
if (StringSubstr(Symbol(),0,6)=="AUDCHF") Magic=MAGIC+26;
if (StringSubstr(Symbol(),0,6)=="NZDCHF") Magic=MAGIC+27;
if (StringSubstr(Symbol(),0,6)=="AUDNZD") Magic=MAGIC+28;
if (StringSubstr(Symbol(),0,6)=="CHFJPY") Magic=MAGIC+29;
if (StringSubstr(Symbol(),0,6)=="NZDCAD") Magic=MAGIC+30;
if (StringSubstr(Symbol(),0,6)=="USDDKK") Magic=MAGIC+31;
if (StringSubstr(Symbol(),0,6)=="USDNOK") Magic=MAGIC+32;
if (StringSubstr(Symbol(),0,6)=="USDSEK") Magic=MAGIC+33;
if (UseDST && DST()==1) GMT_Offset=GMT_Offset+1;
Open_Hour=Open_Hour+GMT_Offset;
Close_Hour=Close_Hour+GMT_Offset;
Friday_Hour=Friday_Hour+GMT_Offset;
if (Open_Hour>=24)Open_Hour=Open_Hour-24;
if (Close_Hour>=24)Close_Hour=Close_Hour-24;
return (0);
}
int deinit() {
return (0);
}
// EA Start
int start() {
//////////////////////////////////// Trade Timing ///////////////////////////////////////////////
if (Use_Auto_Time==True) {Alert("Please set Use_Auto_Time=False. Use GMT Offset below in the EA inputs");
Sleep(60000);return(0);}
Trade = true;
if (!TradeOnFriday && TimeDayOfWeek(TimeCurrent()-GMT_Offset*3600) == 5) Trade = FALSE;
if (TradeOnFriday && DayOfWeek() == 5 && TimeHour(TimeCurrent()) > (Friday_Hour)) Trade = FALSE;
if (Open_Hour < Close_Hour && (TimeHour(TimeCurrent())<Open_Hour || TimeHour(TimeCurrent())>=Close_Hour))
Trade = FALSE;
if (Open_Hour > Close_Hour && TimeHour(TimeCurrent())<Open_Hour && TimeHour(TimeCurrent())>= Close_Hour)
Trade = FALSE;
if (Month()==12 && Day()>22) Trade = FALSE;
if (Month()==1 && Day()<5) Trade = FALSE;
if (Trade && MyRealOrdersTotal(Magic)==0 && !Allow_Second_Open_Trade && Spread()<Max_Spread*PointValue() &&
(Ask-Bid)<Max_Spread*PointValue()) Session="Trade Session Open .. Waiting for trades";
if (Trade && MyRealOrdersTotal(Magic)==0 && Spread()<Max_Spread*PointValue() &&
(Ask-Bid)<Max_Spread*PointValue()) Session="Trade Session Open .. Waiting for trades";
if (Trade && MyRealOrdersTotal(Magic)==0 && (Spread()>Max_Spread*PointValue()||
(Ask-Bid)>Max_Spread*PointValue())) Session="Trade Session Open .. Spread is High .. Trading Halted";
if (Trade && MyRealOrdersTotal(Magic)>0 && (Spread()>Max_Spread*PointValue()||
(Ask-Bid)>Max_Spread*PointValue())) Session="Trade Session Open..Waiting to exit trades..Trading Halted";
if (Trade && MyRealOrdersTotal(Magic)>0 && (Spread()<Max_Spread*PointValue()||
(Ask-Bid)<Max_Spread*PointValue())) Session="Trade Session Open..Waiting to exit trades..";
if (!Trade && MyRealOrdersTotal(Magic)==0) Session="Trade Session Closed";
if (!Trade && MyRealOrdersTotal(Magic)>0) Session="Trade Session Closed .. Waiting to exit trades";
//////////////////////////// Add Disply /////////////////////////////
if (!IsTesting() && !IsOptimization())
{
Display();
if (Show_Fractal_Levels) iCustom(NULL,0,"Fractal_Levels",MidFractalDist,OppositFractalDist,0,0);
}
//////////////////// Calculate Average Spread /////////////////////
if (!IsTesting() && !IsOptimization()) Spread(Ask-Bid);
///////////////////////////// Indicator(s) /////////////////////////
if (Trade || OrdersTotal()>0)
{
if (Use_CCI) CCI_1 = iCCI(NULL, 0, CCI_Period, PRICE_CLOSE, 0);
if (Use_WPR) WPR_1 = iWPR(NULL, 0, WPR_Period, 0);
if (Use_MA1) MA_1_1 = iMA(NULL,0,MA_Period1,0,MA_Mode1,PRICE_CLOSE,1);
if (Use_MA1) MA_1_2 = iMA(NULL,0,MA_Period1,0,MA_Mode1,PRICE_CLOSE,2);
if (Use_MA2 || Use_MA2_Slope) MA_2_1 = iMA(NULL,0,MA_Period2,0,MA_Mode2,PRICE_CLOSE,1);
if (Use_MA2 || Use_MA2_Slope) MA_2_2 = iMA(NULL,0,MA_Period2,0,MA_Mode2,PRICE_CLOSE,2);
if (Use_MA_Dist) MA_3_1 = iMA(NULL,0,MA_Dist_Period,0,MA_Dist_Mode,PRICE_CLOSE,1);
if (Use_BB) BB_L_1 = iBands(NULL,0,BB_Period,BB_Dev,0,PRICE_CLOSE,MODE_LOWER,0);
if (Use_BB) BB_L_2 = iBands(NULL,0,BB_Period,BB_Dev,0,PRICE_CLOSE,MODE_LOWER,1);
if (Use_BB) BB_L_3 = iBands(NULL,0,BB_Period,BB_Dev,0,PRICE_CLOSE,MODE_LOWER,2);
if (Use_BB) BB_U_1 = iBands(NULL,0,BB_Period,BB_Dev,0,PRICE_CLOSE,MODE_UPPER,0);
if (Use_BB) BB_U_2 = iBands(NULL,0,BB_Period,BB_Dev,0,PRICE_CLOSE,MODE_UPPER,1);
if (Use_BB) BB_U_3 = iBands(NULL,0,BB_Period,BB_Dev,0,PRICE_CLOSE,MODE_UPPER,2);
if (Use_RSI) RSI_1 = iRSI(NULL, 0, RSI_Period, PRICE_CLOSE, 0);
if (Use_Fractals)
{
for(int a=1;a<Bars;a++){
if(iFractals(NULL, 0, MODE_UPPER,a)!=0){
LastUpFractal=iFractals(NULL, 0, MODE_UPPER,a);
break;
}
}
for(int s=1;s<Bars;s++){
if(iFractals(NULL, 0, MODE_LOWER,s)!=0){
LastDownFractal=iFractals(NULL, 0, MODE_LOWER,s);
break;
}
}
midFractal=(LastUpFractal+LastDownFractal)/2;
}
}
//////////////////////////////////// Trade Signals ///////////////////////////////////////////////
CCI_Buy_Sig=0;
CCI_Sell_Sig=0;
WPR_Buy_Sig=0;
WPR_Sell_Sig=0;
MA_Buy_Sig1=0;
MA_Sell_Sig1=0;
MA_Buy_Sig2=0;
MA_Sell_Sig2=0;
MA_Slope_Buy_Sig=0;
MA_Slope_Sell_Sig=0;
Fractals_Buy_Sig=0;
Fractals_Sell_Sig=0;
BB_Buy_Sig=0;
BB_Sell_Sig=0;
Trade_Pause_Buy_Sig=1;
Trade_Pause_Sell_Sig=1;
MA_Dist_Buy_Sig=0;
MA_Dist_Sell_Sig=0;
RSI_Buy_Sig=0;
RSI_Sell_Sig=0;
if (!Use_CCI) {CCI_Buy_Sig=1;CCI_Sell_Sig=1;}
if (!Use_WPR) {WPR_Buy_Sig=1;WPR_Sell_Sig=1;}
if (!Use_MA1) {MA_Buy_Sig1=1; MA_Sell_Sig1=1;}
if (!Use_MA2) {MA_Buy_Sig2=1; MA_Sell_Sig2=1;}
if (!Use_MA2_Slope) {MA_Slope_Buy_Sig=1; MA_Slope_Sell_Sig=1;}
if (!Use_Fractals) {Fractals_Buy_Sig=1; Fractals_Sell_Sig=1;}
if (!Use_BB) {BB_Buy_Sig=1; BB_Sell_Sig=1;}
if (!Use_MA_Dist) {MA_Dist_Buy_Sig=1; MA_Dist_Sell_Sig=1;}
if (!Use_RSI) {RSI_Buy_Sig=1; RSI_Sell_Sig=1;}
if (Use_CCI && CCI_1<-CCI_Entry) CCI_Buy_Sig=1;
if (Use_CCI && CCI_1>CCI_Entry) CCI_Sell_Sig=1;
if (Use_WPR && WPR_1<-WPR_Entry) WPR_Buy_Sig=1;
if (Use_WPR && WPR_1>-(100-WPR_Entry)) WPR_Sell_Sig=1;
if (Use_MA1 && MA_1_1>MA_1_2) MA_Buy_Sig1=1;
if (Use_MA1 && MA_1_1<MA_1_2) MA_Sell_Sig1=1;
if (Use_MA2 && MA_2_1>MA_2_2) MA_Buy_Sig2=1;
if (Use_MA2 && MA_2_1<MA_2_2) MA_Sell_Sig2=1;
if (Use_MA2_Slope && (MA_2_1-MA_2_2)>=MA_Slope*PointValue()) MA_Slope_Buy_Sig=1;
if (Use_MA2_Slope && (MA_2_2-MA_2_1)>=MA_Slope*PointValue()) MA_Slope_Sell_Sig=1;
if (Use_Fractals && Ask<(midFractal-MidFractalDist*PointValue()) &&
Ask<(LastUpFractal-OppositFractalDist*PointValue())) Fractals_Buy_Sig=1;
if (Use_Fractals && Bid>(midFractal+MidFractalDist*PointValue()) &&
Bid>(LastDownFractal+OppositFractalDist*PointValue())) Fractals_Sell_Sig=1;
if (Use_BB && !Use_BB_Direction && Ask<BB_L_1 && (BB_U_1-BB_L_1)>BB_Range*PointValue() &&
BB_L_1-Ask>=BB_Penetration*PointValue()) BB_Buy_Sig=1;
if (Use_BB && !Use_BB_Direction && Bid>BB_U_1 && (BB_U_1-BB_L_1)>BB_Range*PointValue() &&
Bid-BB_U_1>=BB_Penetration*PointValue()) BB_Sell_Sig=1;
if (Use_BB && Use_BB_Direction && Ask<BB_L_1 && (BB_U_1-BB_L_1)>BB_Range*PointValue() &&
BB_L_1-Ask>=BB_Penetration*PointValue() && BB_L_1>BB_L_2) BB_Buy_Sig=1;
if (Use_BB && Use_BB_Direction && Bid>BB_U_1 && (BB_U_1-BB_L_1)>BB_Range*PointValue() &&
Bid-BB_U_1>=BB_Penetration*PointValue() && BB_U_1<BB_U_2) BB_Sell_Sig=1;
if (Trade_Pause_On_Loss && Pause_Type==1 && LastClosedType(Magic)==0 && LastClosedProfit(Magic)<0 &&
(Time[0]-LastClosedTime(Magic))<Trade_Pause_Minutes*60) Trade_Pause_Buy_Sig=0;
if (Trade_Pause_On_Loss && Pause_Type==1 && LastClosedType(Magic)==1 && LastClosedProfit(Magic)<0 &&
(Time[0]-LastClosedTime(Magic))<Trade_Pause_Minutes*60) Trade_Pause_Sell_Sig=0;
if (Trade_Pause_On_Loss && Pause_Type==2 && LastClosedType(Magic)==0 &&
LastClosedPrice(Magic)-Ask<Trade_Pause_Pips*PointValue()) Trade_Pause_Buy_Sig=0;
if (Trade_Pause_On_Loss && Pause_Type==2 && LastClosedType(Magic)==1 &&
Bid-LastClosedPrice(Magic)<Trade_Pause_Pips*PointValue()) Trade_Pause_Sell_Sig=0;
if (Use_MA_Dist && Bid-MA_3_1>=Dist_to_MA*PointValue()) MA_Dist_Sell_Sig=1;
if (Use_RSI && RSI_1>=RSI_Entry) RSI_Buy_Sig=1;
if (Use_RSI && RSI_1<=(100-RSI_Entry)) RSI_Sell_Sig=1;
if (!Use_CCI && !Use_WPR && !Use_Fractals) {Print("You must use at least one signal (CCI, WPR, or Fractals");
return(0);}
//////////////////////////////////// Exit Signals ///////////////////////////////////////////////
CCI_Exit_Buy_Sig=0;
CCI_Exit_Sell_Sig=0;
WPR_Exit_Buy_Sig=0;
WPR_Exit_Sell_Sig=0;
if (Use_CCI && CCI_1>CCI_Exit) CCI_Exit_Buy_Sig=1;
if (Use_CCI && CCI_1<-CCI_Exit) CCI_Exit_Sell_Sig=1;
if (Use_WPR && WPR_1>-WPR_Exit) WPR_Exit_Buy_Sig=1;
if (Use_WPR && WPR_1<(-100+WPR_Exit)) WPR_Exit_Sell_Sig=1;
//////////////////////////////////// Close Trades ///////////////////////////////////////////////
if (OrdersTotal()>0)
{
for(int k=0; k<OrdersTotal(); k++)
{
bool cg = OrderSelect(k, SELECT_BY_POS, MODE_TRADES);
if(OrderType()==OP_BUY && OrderSymbol()==Symbol() && OrderMagicNumber()==Magic &&
(CCI_Exit_Buy_Sig==1 || WPR_Exit_Buy_Sig==1)
&& Spread()<Max_Spread*PointValue() && (Ask-Bid)<Max_Spread*PointValue())
{
//OrderClose(OrderTicket(),OrderLots(),Bid,3,Violet); // close position
CloseAll(Magic);
}
if(OrderType()==OP_SELL && OrderSymbol()==Symbol() && OrderMagicNumber()==Magic &&
(CCI_Exit_Sell_Sig==1 || WPR_Exit_Sell_Sig==1)
&& Spread()<Max_Spread*PointValue() && (Ask-Bid)<Max_Spread*PointValue())
{
//OrderClose(OrderTicket(),OrderLots(),Ask,3,Violet); // close position
CloseAll(Magic);
}
}
for(k=0; k<OrdersTotal(); k++)
{
cg = OrderSelect(k, SELECT_BY_POS, MODE_TRADES);
if(OrderType()==OP_BUY && OrderSymbol()==Symbol() && OrderMagicNumber()==Magic &&
((Ask-OrderOpenPrice())>=TakeProfit*PointValue() || (OrderOpenPrice()-Ask)>=StopLoss*PointValue()))
{
cg = OrderClose(OrderTicket(),OrderLots(),Bid,3,Violet); // close position
//CloseAll(Magic);
}
if(OrderType()==OP_SELL && OrderSymbol()==Symbol() && OrderMagicNumber()==Magic &&
((OrderOpenPrice()-Bid)>=TakeProfit*PointValue() || (Bid-OrderOpenPrice())>=StopLoss*PointValue()))
{
cg = OrderClose(OrderTicket(),OrderLots(),Ask,3,Violet); // close position
//CloseAll(Magic);
}
}
}
//////////////////////////////////// Open Trade ///////////////////////////////////////////////
if (New_Trade && Spread()<Max_Spread*PointValue() && (Ask-Bid)<Max_Spread*PointValue() &&
MyRealOrdersTotal(Magic)==0 && Trade && Time[0]!=Last_Time
&& CCI_Buy_Sig==1 && WPR_Buy_Sig==1 && MA_Buy_Sig1==1 && MA_Buy_Sig2==1&& MA_Slope_Buy_Sig==1 &&
Fractals_Buy_Sig==1 && BB_Buy_Sig==1 && Trade_Pause_Buy_Sig==1
&& MA_Dist_Buy_Sig==1 && RSI_Buy_Sig==1)
{
Lot=CalculateLots(Risk);
int Ticket_1 = OrderSend(Symbol(), OP_BUY, Lot, Ask, Slippage, 0, 0, EA_Comment, Magic, 0, Lime);
if (Ticket_1>0)
{
Last_Time=iTime(NULL,0,0);
if (!Hide_SL_TP) ModifyAll();
}
}
if (New_Trade && Spread()<Max_Spread*PointValue() && (Ask-Bid)<Max_Spread*PointValue() &&
MyRealOrdersTotal(Magic)==0 && Trade && Time[0]!=Last_Time
&& CCI_Sell_Sig==1 && WPR_Sell_Sig==1 && MA_Sell_Sig1==1 && MA_Sell_Sig2==1&& MA_Slope_Sell_Sig &&
Fractals_Sell_Sig==1 && BB_Sell_Sig==1 && Trade_Pause_Sell_Sig==1
&& MA_Dist_Sell_Sig==1 && RSI_Sell_Sig==1)
{
Lot=CalculateLots(Risk);
int Ticket_2 = OrderSend(Symbol(), OP_SELL, Lot, Bid, Slippage, 0, 0, EA_Comment, Magic, 0, Red);
if (Ticket_2>0)
{
Last_Time=iTime(NULL,0,0);
if (!Hide_SL_TP) ModifyAll();
}
}
//////////////////////////////////// Second Trade ///////////////////////////////////////////////
if (MyRealOrdersTotal(Magic)==1 && Allow_Second_Open_Trade &&
Time[0]!=Last_Time && Trade_Pause_Buy_Sig==1 && Trade_Pause_Buy_Sig==1 && LastOpenType()==0 &&
Ask<=(LastBuyPrice()-Distance*PointValue()))
{
Lot=CalculateLots(Risk*Lot_Factor);
Ticket_1 = OrderSend(Symbol(), OP_BUY, Lot, Ask, Slippage, 0, 0, EA_Comment, Magic, 0, Lime);
if (Ticket_1>0)
{
Last_Time=iTime(NULL,0,0);
if (!Hide_SL_TP) ModifyAll();
}
}
if (MyRealOrdersTotal(Magic)==1 && Allow_Second_Open_Trade &&
Time[0]!=Last_Time && Trade_Pause_Sell_Sig==1 && Trade_Pause_Sell_Sig==1 && LastOpenType()==1 &&
Bid>=(LastSellPrice()+Distance*PointValue()))
{
Lot=CalculateLots(Risk*Lot_Factor);
Ticket_2 = OrderSend(Symbol(), OP_SELL, Lot, Bid, Slippage, 0, 0, EA_Comment, Magic, 0, Red);
if (Ticket_2>0)
{
Last_Time=iTime(NULL,0,0);
if (!Hide_SL_TP) ModifyAll();
}
}
if (!Hide_SL_TP && MyRealOrdersTotal(Magic)>0) ModifyAll();
// Double check to make sure all trades have TP and SL
return (0);
}
// EA End
/////////////////////////////////////////////////////////////////////////////////////////////////////////////
int MyRealOrdersTotal(int)
{
int c=0;
int total = OrdersTotal();
for (int cnt = 0 ; cnt < total ; cnt++)
{
bool cg = OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES);
if (OrderMagicNumber() == Magic && OrderSymbol()==Symbol() && OrderType()<=OP_SELL)
{
c++;
}
}
return(c);
}
/////////////////////////////////////////////////////////////////////////////////////////////////////////////
double LastSellPrice()
{
double l_ord_open_price_8=0;
int l_ticket_24;
double ld_unused_0 = 0;
int l_ticket_20 = 0;
for (int l_pos_16 = OrdersTotal() - 1; l_pos_16 >= 0; l_pos_16--) {
bool cg = OrderSelect(l_pos_16, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() != Symbol() || OrderMagicNumber() != Magic) continue;
if (OrderSymbol() == Symbol() && OrderMagicNumber() == Magic && OrderType() == OP_SELL) {
l_ticket_24 = OrderTicket();
if (l_ticket_24 > l_ticket_20) {
l_ord_open_price_8 = OrderOpenPrice();
ld_unused_0 = l_ord_open_price_8;
l_ticket_20 = l_ticket_24;
}
}
}
return (l_ord_open_price_8);
}
//////////////////////////////////////////////////////////////////////////////////////////////////////////
double LastBuyPrice()
{
double l_ord_open_price_8=0;
int l_ticket_24=0;
double ld_unused_0 = 0;
int l_ticket_20 = 0;
for (int l_pos_16 = OrdersTotal() - 1; l_pos_16 >= 0; l_pos_16--) {
bool cg = OrderSelect(l_pos_16, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() != Symbol() || OrderMagicNumber() != Magic) continue;
if (OrderSymbol() == Symbol() && OrderMagicNumber() == Magic && OrderType() == OP_BUY ) {
l_ticket_24 = OrderTicket();
if (l_ticket_24 > l_ticket_20) {
l_ord_open_price_8 = OrderOpenPrice();
ld_unused_0 = l_ord_open_price_8;
l_ticket_20 = l_ticket_24;
}
}
}
return (l_ord_open_price_8);
}
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
int LastOpenType()
{
int l_ord_type=-1;
int l_ticket_24=0;
double ld_unused_0 = 0;
int l_ticket_20 = 0;
for (int l_pos_16 = OrdersTotal() - 1; l_pos_16 >= 0; l_pos_16--) {
bool cg = OrderSelect(l_pos_16, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() != Symbol() || OrderMagicNumber() != Magic) continue;
if (OrderSymbol() == Symbol() && OrderMagicNumber() == Magic && OrderType() <= OP_SELL) {
l_ticket_24 = OrderTicket();
if (l_ticket_24 > l_ticket_20) {
l_ord_type = OrderType();
ld_unused_0 = l_ord_type;
l_ticket_20 = l_ticket_24;
}
}
}
return (l_ord_type);
}
////////////////////////////////////////////////////////////////////////////////////////////////////////
int CloseAll(int)
{
for (int cnt = OrdersTotal()-1 ; cnt >= 0; cnt--)
{
bool cg = OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES);
if (OrderSymbol() == Symbol() && OrderMagicNumber() == Magic && OrderCloseTime()==0)
{
if(OrderType()==OP_BUY) cg = OrderClose(OrderTicket(),OrderLots(),Bid,Slippage,Blue);
if(OrderType()==OP_SELL) cg = OrderClose(OrderTicket(),OrderLots(),Ask,Slippage,Red);
}
}
return(0);
}
/////////////////////////////////////////////////////////////////////////////////////////////////////////////
double CalculateLots(double RISK)
{
int Lot_Dec;
double l_minlot_0 = MarketInfo(Symbol(), MODE_MINLOT);
double l_maxlot_8 = MarketInfo(Symbol(), MODE_MAXLOT);
double ld_ret_16 = 0.0;
if (MarketInfo(Symbol(), MODE_MINLOT) < 1.0) Lot_Dec = 1;
if (MarketInfo(Symbol(), MODE_MINLOT) < 0.1) Lot_Dec = 2;
if (MarketInfo(Symbol(), MODE_MINLOT) < 0.01) Lot_Dec = 3;
if (MarketInfo(Symbol(), MODE_MINLOT) < 0.001) Lot_Dec = 4;
if (MarketInfo(Symbol(), MODE_MINLOT) < 0.0001) Lot_Dec = 5;
if (lot > 0.0) {ld_ret_16 = lot;return (ld_ret_16);}
if (ld_ret_16 == 0.0)
{
ld_ret_16=NormalizeDouble(AccountBalance() / 100000.0 * RISK, Lot_Dec);
if (ld_ret_16 < l_minlot_0) ld_ret_16 = l_minlot_0;
if (ld_ret_16 > l_maxlot_8) ld_ret_16 = l_maxlot_8;
}
return (ld_ret_16);
}
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
double PointValue() {
if (MarketInfo(Symbol(), MODE_DIGITS) == 5.0 || MarketInfo(Symbol(), MODE_DIGITS) == 3.0)
return (10.0 * Point);
return (Point);
}
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
void ModifyAll()
{
for (int cnt = OrdersTotal()-1 ; cnt >= 0; cnt--)
{
bool cg = OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES);
if (OrderSymbol() == Symbol() && OrderMagicNumber() == Magic )
{
if (OrderStopLoss()==0 || OrderTakeProfit()==0)
{
if((OrderType()==OP_BUY))
cg = OrderModify(OrderTicket(),OrderOpenPrice(),ND(OrderOpenPrice()-PointValue()*StopLoss),
ND(OrderOpenPrice()+TakeProfit*PointValue()),0,Green);
if((OrderType()==OP_SELL))
cg = OrderModify(OrderTicket(),OrderOpenPrice(),ND(OrderOpenPrice()+PointValue()*StopLoss),
ND(OrderOpenPrice()-TakeProfit*PointValue()),0,Red);
}
}
}
}
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
double Spread(double AddValue=0)
{
double LastValue;
static double ArrayTotal=0;
if (AddValue == 0 && SpreadSampleSize <= 0) return(Ask-Bid);
if (AddValue == 0 && ArrayTotal == 0) return(Ask-Bid);
if (AddValue == 0 ) return(ArrayTotal/ArraySize(Spread));
ArrayTotal = ArrayTotal + AddValue;
ArraySetAsSeries(Spread, true);
if (ArraySize(Spread) == SpreadSampleSize)
{
LastValue = Spread[0];
ArrayTotal = ArrayTotal - LastValue;
ArraySetAsSeries(Spread, false);
ArrayResize(Spread, ArraySize(Spread)-1 );
ArraySetAsSeries(Spread, true);
ArrayResize(Spread, ArraySize(Spread)+1 );
}
else ArrayResize(Spread, ArraySize(Spread)+1 );
// Print("ArraySize = ",ArraySize(lSpread)," AddedNo. = ",AddValue);
ArraySetAsSeries(Spread, false);
Spread[0] = AddValue;
return(NormalizeDouble(ArrayTotal/ArraySize(Spread), Digits));
}
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
double ND(double Price)
{
double ND_Price=0;
ND_Price = NormalizeDouble(Price,Digits);
return(ND_Price);
}
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
void Display()
{
Comment(
"\n*=====================*",
"\n "+EA_Name,
"\n*=====================*",
"\n "+Session,
"\n*=====================*",
"\n Broker Time = ", TimeToStr(TimeCurrent(), TIME_MINUTES),
"\n Start Hour = "+DoubleToStr(Open_Hour,2),
"\n End Hour = "+DoubleToStr(Close_Hour,2),
"\n",
"\n Magic Number = "+Magic,
"\n Maximum Spread = "+DoubleToStr(Max_Spread,1),
"\n Average Spread = "+DoubleToStr(Spread()/PointValue(),1),
"\n Lot size = " +DoubleToStr(CalculateLots(Risk),2),
"\n Stop Loss = "+DoubleToStr(StopLoss,0),
"\n*=====================*",
"\n Total Profit (Loss) = "+DoubleToStr(TotalProfit()+Profit(),2),
"\n*=====================*",
"\n B A L A N C E = " + DoubleToStr(AccountBalance(),2),
"\n E Q U I T Y = " + DoubleToStr(AccountEquity(),2),
"\n Leverage = " + DoubleToStr(AccountLeverage(),2),
"\n*=====================*"
);
}
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
double TotalProfit()
{
double profit = 0;
int cnt = OrdersHistoryTotal();
for (int i=0; i < cnt; i++) {
if (!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY)) continue;
if (OrderSymbol() == Symbol() && OrderMagicNumber() == Magic) profit += OrderProfit();
}
return (profit);
}
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
double Profit()
{
int c=0;
int total = OrdersTotal();
double Profit=0;
for (int cnt = 0 ; cnt < total ; cnt++)
{
bool cg = OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES);
if (OrderMagicNumber() == Magic && OrderType()<=OP_SELL)
{
Profit=Profit+OrderProfit();
}
}
return(Profit);
}
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
int LastClosedType(int) {
int xyz=OrdersHistoryTotal() - 2;
if (!IsTesting() && !IsOptimization()) xyz=0;
int l_ord_type=-1;
int l_ticket_24=0;
double ld_unused_0 = 0;
int l_ticket_20 = 0;
for (int l_pos_16 = OrdersHistoryTotal() - 1; l_pos_16 >= xyz; l_pos_16--) {
bool cg = OrderSelect(l_pos_16, SELECT_BY_POS, MODE_HISTORY);
if (OrderSymbol() != Symbol() || OrderMagicNumber() != Magic) continue;
if (OrderSymbol() == Symbol() && OrderMagicNumber() == Magic && OrderType() <= OP_SELL) {
l_ticket_24 = OrderTicket();
if (l_ticket_24 > l_ticket_20) {
l_ord_type = OrderType();
ld_unused_0 = l_ord_type;
l_ticket_20 = l_ticket_24;
}
}
}
return (l_ord_type);
}
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////
double LastClosedProfit(int) {
int xyz=OrdersHistoryTotal() - 2;
if (!IsTesting() && !IsOptimization()) xyz=0;
double l_ord_profit=0;
int l_ticket_24=0;
double ld_unused_0 = 0;
int l_ticket_20 = 0;
for (int l_pos_16 = OrdersHistoryTotal() - 1; l_pos_16 >= xyz; l_pos_16--) {
bool cg = OrderSelect(l_pos_16, SELECT_BY_POS, MODE_HISTORY);
if (OrderSymbol() != Symbol() || OrderMagicNumber() != Magic) continue;
if (OrderSymbol() == Symbol() && OrderMagicNumber() == Magic && OrderType() <= OP_SELL) {
l_ticket_24 = OrderTicket();
if (l_ticket_24 > l_ticket_20) {
l_ord_profit = OrderProfit();
ld_unused_0 = l_ord_profit;
l_ticket_20 = l_ticket_24;
}
}
}
return (l_ord_profit);
}
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////
double LastClosedPrice(int) {
int xyz=OrdersHistoryTotal() - 2;
if (!IsTesting() && !IsOptimization()) xyz=0;
double l_ord_price=0;
int l_ticket_24=0;
double ld_unused_0 = 0;
int l_ticket_20 = 0;
for (int l_pos_16 = OrdersHistoryTotal() - 1; l_pos_16 >= xyz; l_pos_16--) {
bool cg = OrderSelect(l_pos_16, SELECT_BY_POS, MODE_HISTORY);
if (OrderSymbol() != Symbol() || OrderMagicNumber() != Magic) continue;
if (OrderSymbol() == Symbol() && OrderMagicNumber() == Magic && OrderType() <= OP_SELL) {
l_ticket_24 = OrderTicket();
if (l_ticket_24 > l_ticket_20) {
l_ord_price = OrderClosePrice();
ld_unused_0 = l_ord_price;
l_ticket_20 = l_ticket_24;
}
}
}
return (l_ord_price);
}
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////
datetime LastClosedTime(int) {
int xyz=OrdersHistoryTotal() - 2;
if (!IsTesting() && !IsOptimization()) xyz=0;
datetime l_ord_time=0;
int l_ticket_24=0;
datetime ld_unused_0 = 0;
int l_ticket_20 = 0;
for (int l_pos_16 = OrdersHistoryTotal() - 1; l_pos_16 >= xyz; l_pos_16--) {
bool cg = OrderSelect(l_pos_16, SELECT_BY_POS, MODE_HISTORY);
if (OrderSymbol() != Symbol() || OrderMagicNumber() != Magic) continue;
if (OrderSymbol() == Symbol() && OrderMagicNumber() == Magic && OrderType() <= OP_SELL) {
l_ticket_24 = OrderTicket();
if (l_ticket_24 > l_ticket_20) {
l_ord_time = OrderCloseTime();
ld_unused_0 = l_ord_time;
l_ticket_20 = l_ticket_24;
}
}
}
return (l_ord_time);
}
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////
int DST() {
int month_0 = Month();
int day_4 = Day();
int day_of_week_8 = DayOfWeek();
if (day_of_week_8 == 0) day_of_week_8 = 7;
if (month_0 > 3 && month_0 < 10) return (0);
if (month_0 > 10 || month_0 < 3) return (1);
if (month_0 == 3 && 31 - day_4 + day_of_week_8 >= 7) return (1);
if (month_0 == 10 && 31 - day_4 + day_of_week_8 < 7) return (1);
return (0);
}
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Major part of this code was done by maximo @ worldwide-invest.org
int Time_Offset(string site,int location)
{
string msg1 = "";
string msg2 = "";
int HOUR=100;
int Time_Diff;
int HttpOpen = InternetOpenA("HTTP_Test", 0, "", "", 0);
int HttpConnect = InternetConnectA(HttpOpen, "", 80, "", "", 3, 0, 1);
int HttpRequest = InternetOpenUrlA(HttpOpen, site, NULL, 0, 0, 0);
Comment ("Looking Time Offset");
int read[1];
string Buffer = " "; // 10 characters are read at a time
string page = ""; // join each 10 onto page string
int Nchars = 16000; // how many bytes to read to find GMT in HTML source
while (true)
{
InternetReadFile(HttpRequest, Buffer, StringLen(Buffer), read);
if (read[0] > 0) page = page + StringSubstr(Buffer, 0, read[0]);
else break;
Nchars = Nchars - StringLen(Buffer);
if (Nchars <= 0) break;
}
int index=StringFind(page, "Current Date and Time in", 0);
if (index > 0)
{
msg1 = StringSubstr(page,index+location,2);
//msg2 = StringSubstr(page,location+3,2);
msg2 = StringSubstr(page,index+location+6,4);
HOUR=StrToInteger(msg1);
if (HOUR>=0 && HOUR<=11)
{
if (msg2=="A.M.") HOUR=HOUR;
if (msg2=="P.M.") HOUR=12+HOUR;
}
}
if (HttpRequest > 0) InternetCloseHandle(HttpRequest);
if (HttpConnect > 0) InternetCloseHandle(HttpConnect);
if (HttpOpen > 0) InternetCloseHandle(HttpOpen);
if (HOUR==100) return (HOUR);
if (Hour()>=HOUR) Time_Diff=Hour()-HOUR;
if (Hour()<HOUR) Time_Diff=24-HOUR+Hour();
return (Time_Diff);
}
喜欢
0
赠金笔
前一篇：黄金甲五币联动EA