//+------------------------------------------------------------------+
//| exp_iCustom_v1.mq4 |
//| * |
//| * |
//+------------------------------------------------------------------+
#property copyright "Integer"
#property link "for-good-letters@yandex.ru"
/*
Ýêñïåðò ïðåäíàçíà÷åí äëÿ ðàáîòû ñ ëþáûì Custom èíäèêòîðîì, çà èñêëþ÷åíèåì èíäèêàòîðîâ ñî ñòðîêîâûìè ïàðàìåòðàìè.
Âîçìîæíà îïòèìèçàöèÿ 5-è ïàðàìåòðîâ èíäèêàòîðà.
*/
extern int TimeFrame=0; // ðàáî÷èé òàéìôðåéì ýêñïåðòà: 0 - òàéìôðåéì ãðàôèêà íà êîòîðîì ðàáîòàåò ýêñïåðò èëè êîòîðûé âûáðàí â òåñòåðå. Èëè êîíêðåòíîå çíà÷åíèå 1,5,15,30,60,240,1440...
extern string iCustomName="ââåäèòå èìÿ èíäèêàòîðà"; // èìÿ Custom èíäèêàòîðà
extern string iCustomParam="ââåäèòå ñïèñîê ïàðàìåòðîâ ÷åðåç ðàçäåëèòåëü /"; // ñïèñîê ïàðàìåòðîâ ÷åðåç ðàçäåëèòåëü "/". Äëÿ ïåðåìåííûõ òèïà bool âìåñòî íà÷åíèÿ true èñïîëüçóåòñÿ 1, âìåñòî false - 0. Åñëè â ïàðàìåòðàõ èíäèêàòîðà åñò ñòðîêîâûå ïåðåìåííûå, ýêñïåðò ðàáîòàòü íå áóäåò!!!
extern int iBuyBufIndex=0; // èíäåêñ áóôåðà ñî ñòðåëêàìè íà ïîêóïêó
extern int iSellBufIndex=1; // èíäåêñ áóôåðà ñî ñòðåëêàìè íà ïðîäàæó
extern int iShift=1; // ñäâèã èíäèêàòîðà. 1 - íà ñôîðìèðîâàííûõ áàðàõ, 0 - íà ôîðìèðóþùåìñÿ áàðå (íå ðåêîìåíäóåòñÿ). Òàêæå ìîæåò áûòü ââåäåíî çíà÷åíèå 2,3,4...
extern bool Opt_1_Use=false; // âêëþ÷åíèÿ èñïîëüçîâàíèÿ îïòèìèçèðóåìîé ïåðåìåííîé 1. Ïðè âêëþ÷åíèè îïòèìèçèðóåìîé ïåðåìåííîé âìåñòî çíà÷åíèÿ èç ñòðîêè iCustomParam, îïðåäåëÿåìîãî ïåðåìåííîé Opt_X_Index áóäåò èñïîëüçîâàòüñÿ çíà÷åíèå ïåðåìåííîé Opt_X_Value
extern int Opt_1_Index=0; // èíäåêñ îïòèìèçèðóåìîé ïåðåìåííîé 1 â ìàññèâå ïàðàìåòðîâ (â ñòðîêå iCustomParam). Îòñ÷åò íà÷èíàåòñÿ ñ íóëÿ.
extern double Opt_1_Value=0; // çíà÷åíèå îïòèìèçèðóåìîé ïåðåìåííîé 1
extern bool Opt_2_Use=false; // âêëþ÷åíèÿ èñïîëüçîâàíèÿ îïòèìèçèðóåìîé ïåðåìåííîé 2
extern int Opt_2_Index=0; // èíäåêñ îïòèìèçèðóåìîé ïåðåìåííîé 2 â ìàññèâå ïàðàìåòðîâ (â ñòðîêå iCustomParam). Îòñ÷åò íà÷èíàåòñÿ ñ íóëÿ.
extern double Opt_2_Value=0; // çíà÷åíèå îïòèìèçèðóåìîé ïåðåìåííîé 2
extern bool Opt_3_Use=false; // âêëþ÷åíèÿ èñïîëüçîâàíèÿ îïòèìèçèðóåìîé ïåðåìåííîé 3
extern int Opt_3_Index=0; // èíäåêñ îïòèìèçèðóåìîé ïåðåìåííîé 3 â ìàññèâå ïàðàìåòðîâ (â ñòðîêå iCustomParam). Îòñ÷åò íà÷èíàåòñÿ ñ íóëÿ.
extern double Opt_3_Value=0; // çíà÷åíèå îïòèìèçèðóåìîé ïåðåìåííîé 3
extern bool Opt_4_Use=false; // âêëþ÷åíèÿ èñïîëüçîâàíèÿ îïòèìèçèðóåìîé ïåðåìåííîé 4
extern int Opt_4_Index=0; // èíäåêñ îïòèìèçèðóåìîé ïåðåìåííîé 4 â ìàññèâå ïàðàìåòðîâ (â ñòðîêå iCustomParam). Îòñ÷åò íà÷èíàåòñÿ ñ íóëÿ.
extern double Opt_4_Value=0; // çíà÷åíèå îïòèìèçèðóåìîé ïåðåìåííîé 4
extern bool Opt_5_Use=false; // âêëþ÷åíèÿ èñïîëüçîâàíèÿ îïòèìèçèðóåìîé ïåðåìåííîé 5
extern int Opt_5_Index=0; // èíäåêñ îïòèìèçèðóåìîé ïåðåìåííîé 5 â ìàññèâå ïàðàìåòðîâ (â ñòðîêå iCustomParam). Îòñ÷åò íà÷èíàåòñÿ ñ íóëÿ.
extern double Opt_5_Value=0; // çíà÷åíèå îïòèìèçèðóåìîé ïåðåìåííîé 5
extern int MMMethod=0; // ìåòîä ÌÌ: 0-Lots, 1-÷àñòü (Risk) îò ñâîáîäíûõ ñðåäñòâ, 2-÷àñòü (Risk) îò ñâîáîäíûõ ñðåäñòâ íîðìèðîâàííûõ ïî çíà÷åíèþ MeansStep (íàïðèìåð Risk=0.1, MeansStep=1000, åñëè ñðåäñòâ ìåíüøå 2000, ëîò ðàâåí 0.1, åñëè ñðåäñòâ ñòàëî 2000 èëè áîëåå - 0.2 ëîòà, 3000 è áîëåå - 0.3 ëîòà è ò.ä. )
extern double Lots=0.1; // êîëè÷åñòîâ ëîòîâ ïðè MMMethod=0
extern double Risk=0.1; // ðèñê. Âåëè÷èíà îò ñðåäñòâ ïðè FixedLot=false
extern int MeansType=3; // òèï ñðåäñòâ èñïîëüçóåìûõ ïðè ðàñ÷åòå ðàçìåðà ëîòà. 1 - Balance, 2 - Equity, 3 - FreeMargin
extern double MeansStep=1000; // øàã ñðåäñòâ. Èñïîëüçóåòñÿ ïðè MMMethod=2
extern int LotsDigits=1; // Êîëè÷åñòâî çíàêîâ ïîñëå çàïÿòîé ó ðàçìåðà ëîòà
extern int Slippage=3; // äîïóñòèìîå îòêëîíåíèå îò çàïðîøåííîé öåíû
extern int StopLoss=25; // ñòîïëîññ
extern int TakeProfit=25; // òåéêïðîôèò
extern int Magic_N=96778; // ìàãèê
extern int MaxOrdersCount=-1; // äîïóñòèìîå îáùåå êîëè÷åñòâî îòêðûòûõ îðäåðîâ. -1 - íå îãðíè÷åíî
extern int MaxBuyCount=-1; // äîïóñòèìîå êîëè÷åñòâî îòêðûòûõ îðäåðîâ buy. -1 - íå îãðíè÷åíî
extern int MaxSellCount=-1; // äîïóñòèìîå êîëè÷åñòâî îòêðûòûõ îðäåðîâ sell. -1 - íå îãðíè÷åíî
extern int SleepBars=1; // òàéìàóò ïîñëå îòêðûòèÿ îðäåðà â êîëè÷åñòâå áàðîâ ðàáî÷åãî òàéìôðåéìà
extern bool CancelSleeping=true; // âêëþ÷åíèå îòìåíû òàéìàóòà ïðè îòêðûòèè îðäåðà ïðîòèâîïîëîæíîãî íàïðàâëåíèÿ.
extern bool CloseOnRev=false; // çàêðûòèå îðäåðîâ ïðîòèâîïîëîæíîãî íàïðàâëåíèÿ ïåðåä îòêðûòèåì
extern bool TrailingStop_Use=false; // âêëþ÷åíèå ôóíêöèè òðåéëèíãñòîïà
extern int TrailingStopStart=50; // ïðèáûëü îðäåðà ïðè êîòîðîé íà÷èíàåò ðàáîòàòü òðåéëèíãñòîï
extern int TrailingStop=15; // óðîâåíü òðåéëèíãñòîïà
extern bool BreakEven_Use=false; // âêëþ÷åíèå ôóíêöèè áåçóáûòêà
extern int BreakEvenStart=30; // ïðèáûëü îðäåðà ïðè êîòîðîé ñðàáàòûâàåò áåçóáûòîê
extern int BreakEvenLevel=15; // óðîâåíü íà êîòîðûé óñòàíàâëèâàåòñÿ ñòîïëîññ îò öåíû ñðàáàòûâàíèÿ áåçóáûòêà
double ParArr[];
int LastBuyTime,LastSellTime;
//+------------------------------------------------------------------+
//| expert initialization function |
//+------------------------------------------------------------------+
int init()
{
//----
fSplitStrToDouble(iCustomParam,ParArr,"/");
if(TimeFrame==0)TimeFrame=Period();
if(Opt_1_Use){
if(Opt_1_Index<ArraySize(ParArr))ParArr[Opt_1_Index]=Opt_1_Value;
}
if(Opt_2_Use){
if(Opt_2_Index<ArraySize(ParArr))ParArr[Opt_2_Index]=Opt_2_Value;
}
if(Opt_3_Use){
if(Opt_3_Index<ArraySize(ParArr))ParArr[Opt_3_Index]=Opt_3_Value;
}
if(Opt_4_Use){
if(Opt_4_Index<ArraySize(ParArr))ParArr[Opt_4_Index]=Opt_4_Value;
}
if(Opt_5_Use){
if(Opt_5_Index<ArraySize(ParArr))ParArr[Opt_5_Index]=Opt_5_Value;
}
return(0);
}
//+------------------------------------------------------------------+
//| expert deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//----
//----
return(0);
}
//+------------------------------------------------------------------+
//| expert start function |
//+------------------------------------------------------------------+
int start()
{
static bool ft=false;
if(!ft){
for(int i=0;i<OrdersTotal();i++){
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic_N){
if(OrderType()==OP_BUY)LastBuyTime=MathMax(LastBuyTime,OrderOpenTime());
if(OrderType()==OP_SELL)LastSellTime=MathMax(LastSellTime,OrderOpenTime());
}
}
else{
return(0);
}
}
for(i=0;i<HistoryTotal();i++){
if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY)){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic_N){
if(OrderType()==OP_BUY)LastBuyTime=MathMax(LastBuyTime,OrderOpenTime());
if(OrderType()==OP_SELL)LastSellTime=MathMax(LastSellTime,OrderOpenTime());
}
}
else{
return(0);
}
}
if(LastBuyTime>LastSellTime)LastSellTime=0;
if(LastSellTime>LastBuyTime)LastBuyTime=0;
LastBuyTime=TimeFrame*60*MathFloor(LastBuyTime/(TimeFrame*60));
LastSellTime=TimeFrame*60*MathFloor(LastSellTime/(TimeFrame*60));
ft=true;
}
double buyarrow=fGetCustomValue(TimeFrame,iCustomName,iBuyBufIndex,ParArr,iShift);
double sellarrow=fGetCustomValue(TimeFrame,iCustomName,iSellBufIndex,ParArr,iShift);
bool BuySignal=false;
bool SellSignal=false;
if(buyarrow!=EMPTY_VALUE && buyarrow!=0)BuySignal=true;
if(sellarrow!=EMPTY_VALUE && sellarrow!=0)SellSignal=true;
if(BuySignal || SellSignal){
if(CloseOnRev){
fOrderCloseMarket(SellSignal,BuySignal);
}
}
if(BuySignal && SellSignal){
BuySignal=false;
SellSignal=false;
}
if(BuySignal || SellSignal){
int BuyCount,SellCount;
int Total=fMarketOrdersTotal(BuyCount,SellCount);
if(Total==-1)return(0);
if(Total<MaxOrdersCount || MaxOrdersCount==-1){
if(BuySignal){
if(BuyCount<MaxBuyCount || MaxBuyCount==-1){
if(iTime(NULL,TimeFrame,0)>=LastBuyTime+TimeFrame*60*SleepBars){
fOrderOpenBuy();
}
}
}
if(SellSignal){
if(SellCount<MaxSellCount || MaxSellCount==-1){
if(iTime(NULL,TimeFrame,0)>=LastSellTime+TimeFrame*60*SleepBars){
fOrderOpenSell();
}
}
}
}
}
if(TrailingStop_Use)fTrailingWithStart();
if(BreakEven_Use)fBreakEvenToLevel();
return(0);
}
//+------------------------------------------------------------------+
double fGetLotsSimple(int aTradeType){
double retlot;
double Means;
switch(MMMethod){
case 0:
retlot=Lots;
break;
case 1:
switch (MeansType){
case 1:
Means=AccountBalance();
break;
case 2:
Means=AccountEquity();
break;
case 3:
Means=AccountFreeMargin();
break;
default:
Means=AccountBalance();
}
retlot=AccountBalance()/1000*Risk;
break;
case 2:
switch (MeansType){
case 1:
Means=AccountBalance();
break;
case 2:
Means=AccountEquity();
break;
case 3:
Means=AccountFreeMargin();
break;
default:
Means=AccountBalance();
}
if(Means<MeansStep){
Means=MeansStep;
}
retlot=(MeansStep*MathFloor(Means/MeansStep))/1000*Risk;
break;
default:
retlot=Lots;
}
if(retlot<1.0/MathPow(10,LotsDigits))retlot=1.0/MathPow(10,LotsDigits) ;
retlot=NormalizeDouble(retlot,LotsDigits);
if(AccountFreeMarginCheck(Symbol(),aTradeType,retlot)<=0){
return(-1);
}
if(GetLastError()==134){
return(-2);
}
return(retlot);
}
int fOrderOpenBuy(){
RefreshRates();
double lts=fGetLotsSimple(OP_BUY);
if(lts>0){
if(!IsTradeContextBusy()){
double slts=ND(Ask-Point*StopLoss);
if(StopLoss==0)slts=0;
double tpts=ND(Ask+Point*TakeProfit);
if(TakeProfit==0)tpts=0;
int irv=OrderSend(Symbol(),OP_BUY,lts,ND(Ask),Slippage,slts,tpts,NULL,Magic_N,0,CLR_NONE);
if(irv>0){
LastBuyTime=iTime(NULL,TimeFrame,0);
if(CancelSleeping)LastSellTime=0;
return(irv);
}
else{
Print ("Error open BUY. "+fMyErDesc(GetLastError()));
return(-1);
}
}
else{
static int lt2=0;
if(lt2!=iTime(NULL,TimeFrame,0)){
lt2=iTime(NULL,TimeFrame,0);
Print("Need open buy. Trade Context Busy");
}
return(-2);
}
}
else{
static int lt3=0;
if(lt3!=iTime(NULL,TimeFrame,0)){
lt3=iTime(NULL,TimeFrame,0);
if(lts==-1)Print("Need open buy. No money");
if(lts==-2)Print("Need open buy. Wrong lots size");
}
return(-3);
}
}
int fOrderOpenSell(){
RefreshRates();
double lts=fGetLotsSimple(OP_SELL);
if(lts>0){
if(!IsTradeContextBusy()){
double slts=ND(Bid+Point*StopLoss);
if(StopLoss==0)slts=0;
double tpts=ND(Bid-Point*TakeProfit);
if(TakeProfit==0)tpts=0;
int irv=OrderSend(Symbol(),OP_SELL,lts,ND(Bid),Slippage,slts,tpts,NULL,Magic_N,0,CLR_NONE);
if(irv>0){
LastSellTime=iTime(NULL,TimeFrame,0);
if(CancelSleeping)LastBuyTime=0;
return(irv);
}
else{
Print ("Error open SELL. "+fMyErDesc(GetLastError()));
return(-1);
}
}
else{
static int lt2=0;
if(lt2!=iTime(NULL,TimeFrame,0)){
lt2=iTime(NULL,TimeFrame,0);
Print("Need open sell. Trade Context Busy");
}
return(-2);
}
}
else{
static int lt3=0;
if(lt3!=iTime(NULL,TimeFrame,0)){
lt3=iTime(NULL,TimeFrame,0);
if(lts==-1)Print("Need open sell. No money");
if(lts==-2)Print("Need open sell. Wrong lots size");
}
return(-3);
}
}
string fMyErDesc(int aErrNum){
string pref="Err Num: "+aErrNum+" - ";
switch(aErrNum){
case 0: return(pref+"NO ERROR");
case 1: return(pref+"NO RESULT");
case 2: return(pref+"COMMON ERROR");
case 3: return(pref+"INVALID TRADE PARAMETERS");
case 4: return(pref+"SERVER BUSY");
case 5: return(pref+"OLD VERSION");
case 6: return(pref+"NO CONNECTION");
case 7: return(pref+"NOT ENOUGH RIGHTS");
case 8: return(pref+"TOO FREQUENT REQUESTS");
case 9: return(pref+"MALFUNCTIONAL TRADE");
case 64: return(pref+"ACCOUNT DISABLED");
case 65: return(pref+"INVALID ACCOUNT");
case 128: return(pref+"TRADE TIMEOUT");
case 129: return(pref+"INVALID PRICE");
case 130: return(pref+"INVALID STOPS");
case 131: return(pref+"INVALID TRADE VOLUME");
case 132: return(pref+"MARKET CLOSED");
case 133: return(pref+"TRADE DISABLED");
case 134: return(pref+"NOT ENOUGH MONEY");
case 135: return(pref+"PRICE CHANGED");
case 136: return(pref+"OFF QUOTES");
case 137: return(pref+"BROKER BUSY");
case 138: return(pref+"REQUOTE");
case 139: return(pref+"ORDER LOCKED");
case 140: return(pref+"LONG POSITIONS ONLY ALLOWED");
case 141: return(pref+"TOO MANY REQUESTS");
case 145: return(pref+"TRADE MODIFY DENIED");
case 146: return(pref+"TRADE CONTEXT BUSY");
case 147: return(pref+"TRADE EXPIRATION DENIED");
case 148: return(pref+"TRADE TOO MANY ORDERS");
//---- mql4 run time errors
case 4000: return(pref+"NO MQLERROR");
case 4001: return(pref+"WRONG FUNCTION POINTER");
case 4002: return(pref+"ARRAY INDEX OUT OF RANGE");
case 4003: return(pref+"NO MEMORY FOR FUNCTION CALL STACK");
case 4004: return(pref+"RECURSIVE STACK OVERFLOW");
case 4005: return(pref+"NOT ENOUGH STACK FOR PARAMETER");
case 4006: return(pref+"NO MEMORY FOR PARAMETER STRING");
case 4007: return(pref+"NO MEMORY FOR TEMP STRING");
case 4008: return(pref+"NOT INITIALIZED STRING");
case 4009: return(pref+"NOT INITIALIZED ARRAYSTRING");
case 4010: return(pref+"NO MEMORY FOR ARRAYSTRING");
case 4011: return(pref+"TOO LONG STRING");
case 4012: return(pref+"REMAINDER FROM ZERO DIVIDE");
case 4013: return(pref+"ZERO DIVIDE");
case 4014: return(pref+"UNKNOWN COMMAND");
case 4015: return(pref+"WRONG JUMP");
case 4016: return(pref+"NOT INITIALIZED ARRAY");
case 4017: return(pref+"DLL CALLS NOT ALLOWED");
case 4018: return(pref+"CANNOT LOAD LIBRARY");
case 4019: return(pref+"CANNOT CALL FUNCTION");
case 4020: return(pref+"EXTERNAL EXPERT CALLS NOT ALLOWED");
case 4021: return(pref+"NOT ENOUGH MEMORY FOR RETURNED STRING");
case 4022: return(pref+"SYSTEM BUSY");
case 4050: return(pref+"INVALID FUNCTION PARAMETERS COUNT");
case 4051: return(pref+"INVALID FUNCTION PARAMETER VALUE");
case 4052: return(pref+"STRING FUNCTION INTERNAL ERROR");
case 4053: return(pref+"SOME ARRAY ERROR");
case 4054: return(pref+"INCORRECT SERIES ARRAY USING");
case 4055: return(pref+"CUSTOM INDICATOR ERROR");
case 4056: return(pref+"INCOMPATIBLE ARRAYS");
case 4057: return(pref+"GLOBAL VARIABLES PROCESSING ERROR");
case 4058: return(pref+"GLOBAL VARIABLE NOT FOUND");
case 4059: return(pref+"FUNCTION NOT ALLOWED IN TESTING MODE");
case 4060: return(pref+"FUNCTION NOT CONFIRMED");
case 4061: return(pref+"SEND MAIL ERROR");
case 4062: return(pref+"STRING PARAMETER EXPECTED");
case 4063: return(pref+"INTEGER PARAMETER EXPECTED");
case 4064: return(pref+"DOUBLE PARAMETER EXPECTED");
case 4065: return(pref+"ARRAY AS PARAMETER EXPECTED");
case 4066: return(pref+"HISTORY WILL UPDATED");
case 4067: return(pref+"TRADE ERROR");
case 4099: return(pref+"END OF FILE");
case 4100: return(pref+"SOME FILE ERROR");
case 4101: return(pref+"WRONG FILE NAME");
case 4102: return(pref+"TOO MANY OPENED FILES");
case 4103: return(pref+"CANNOT OPEN FILE");
case 4104: return(pref+"INCOMPATIBLE ACCESS TO FILE");
case 4105: return(pref+"NO ORDER SELECTED");
case 4106: return(pref+"UNKNOWN SYMBOL");
case 4107: return(pref+"INVALID PRICE PARAM");
case 4108: return(pref+"INVALID TICKET");
case 4109: return(pref+"TRADE NOT ALLOWED");
case 4110: return(pref+"LONGS NOT ALLOWED");
case 4111: return(pref+"SHORTS NOT ALLOWED");
case 4200: return(pref+"OBJECT ALREADY EXISTS");
case 4201: return(pref+"UNKNOWN OBJECT PROPERTY");
case 4202: return(pref+"OBJECT DOES NOT EXIST");
case 4203: return(pref+"UNKNOWN OBJECT TYPE");
case 4204: return(pref+"NO OBJECT NAME");
case 4205: return(pref+"OBJECT COORDINATES ERROR");
case 4206: return(pref+"NO SPECIFIED SUBWINDOW");
case 4207: return(pref+"SOME OBJECT ERROR");
default: return(pref+"WRONG ERR NUM");
}
}
double ND(double v){return(NormalizeDouble(v,Digits));}
int fMarketOrdersTotal(int & aBuyCount,int & aSellCount){
for(int i=0;i<OrdersTotal();i++){
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic_N){
switch (OrderType()){
case OP_BUY:
aBuyCount++;
break;
case OP_SELL:
aSellCount++;
break;
}
}
}
else{
return(-1);
}
}
return(aBuyCount+aSellCount);
}
int fOrderCloseMarket(bool aCloseBuy=true,bool aCloseSell=true){
int tErr=0;
for(int i=OrdersTotal()-1;i>=0;i--){
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic_N){
if(OrderType()==OP_BUY && aCloseBuy){
RefreshRates();
if(!IsTradeContextBusy()){
if(!OrderClose(OrderTicket(),OrderLots(),ND(Bid),Slippage,CLR_NONE)){
Print("Error close BUY "+OrderTicket()+" "+fMyErDesc(GetLastError()));
tErr=-1;
}
}
else{
static int lt1=0;
if(lt1!=iTime(NULL,TimeFrame,0)){
lt1=iTime(NULL,TimeFrame,0);
Print("Need close BUY "+OrderTicket()+". Trade Context Busy");
}
return(-2);
}
}
if(OrderType()==OP_SELL && aCloseSell){
RefreshRates();
if(!IsTradeContextBusy()){
if(!OrderClose(OrderTicket(),OrderLots(),ND(Ask),Slippage,CLR_NONE)){
Print("Error close SELL "+OrderTicket()+" "+fMyErDesc(GetLastError()));
tErr=-1;
}
}
else{
static int lt2=0;
if(lt2!=iTime(NULL,TimeFrame,0)){
lt2=iTime(NULL,TimeFrame,0);
Print("Need close SELL "+OrderTicket()+". Trade Context Busy");
}
return(-2);
}
}
}
}
}
return(tErr);
}
int fSplitStrToDouble(string aString,double & aArray[],string aDelimiter){
string tmp_str="";
string tmp_char="";
ArrayResize(aArray,0);
for(int i=0;i<StringLen(aString);i++){
tmp_char=StringSubstr(aString,i,1);
if(tmp_char==aDelimiter){
if(StringTrimLeft(StringTrimRight(tmp_str))!=""){
ArrayResize(aArray,ArraySize(aArray)+1);
aArray[ArraySize(aArray)-1]=StrToDouble(tmp_str);
}
tmp_str="";
}
else{
if(tmp_char!=" ")tmp_str=tmp_str+tmp_char;
}
}
if(StringTrimLeft(StringTrimRight(tmp_str))!=""){
ArrayResize(aArray,ArraySize(aArray)+1);
aArray[ArraySize(aArray)-1]=StrToDouble(tmp_str);
}
return(ArraySize(aArray));
}
void fBreakEvenToLevel(){
double slts;
for(int i=0;i<OrdersTotal();i++){
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic_N){
if(OrderType()==OP_BUY){
RefreshRates();
if(ND(Bid-OrderOpenPrice())>=ND(Point*BreakEvenStart)){
slts=ND(OrderOpenPrice()+Point*(BreakEvenStart-BreakEvenLevel));
if(ND(OrderStopLoss())<slts){
if(!IsTradeContextBusy()){
if(!OrderModify(OrderTicket(),OrderOpenPrice(),slts,OrderTakeProfit(),0,CLR_NONE)){
Print("Error breakeven BUY "+OrderTicket()+" "+fMyErDesc(GetLastError()));
}
}
else{
static int lt1=0;
if(lt1!=iTime(NULL,TimeFrame,0)){
lt1=iTime(NULL,TimeFrame,0);
Print("Need breakeven BUY "+OrderTicket()+". Trade Context Busy");
}
}
}
}
}
if(OrderType()==OP_SELL){
RefreshRates();
if(ND(OrderOpenPrice()-Ask)>=ND(Point*BreakEvenStart)){
slts=ND(OrderOpenPrice()-Point*(BreakEvenStart-BreakEvenLevel));
if(ND(OrderStopLoss())>slts || ND(OrderStopLoss())==0){
if(!IsTradeContextBusy()){
if(!OrderModify(OrderTicket(),OrderOpenPrice(),slts,OrderTakeProfit(),0,CLR_NONE)){
Print("Error breakeven SELL "+OrderTicket()+" "+fMyErDesc(GetLastError()));
}
}
else{
static int lt2=0;
if(lt2!=iTime(NULL,TimeFrame,0)){
lt2=iTime(NULL,TimeFrame,0);
Print("Need breakeven SELL "+OrderTicket()+". Trade Context Busy");
}
}
}
}
}
}
}
}
}
void fTrailingWithStart(){
double slts;
for(int i=0;i<OrdersTotal();i++){
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic_N){
if(OrderType()==OP_BUY){
RefreshRates();
if(ND(Bid-OrderOpenPrice())>=ND(Point*TrailingStopStart)){
slts=ND(Bid-Point*TrailingStop);
if(ND(OrderStopLoss())<slts){
if(!IsTradeContextBusy()){
if(!OrderModify(OrderTicket(),OrderOpenPrice(),slts,OrderTakeProfit(),0,CLR_NONE)){
Print("Error trailingstop BUY "+OrderTicket()+" "+fMyErDesc(GetLastError()));
}
}
else{
static int lt1=0;
if(lt1!=iTime(NULL,TimeFrame,0)){
lt1=iTime(NULL,TimeFrame,0);
Print("Need trailingstop BUY "+OrderTicket()+". Trade Context Busy");
}
}
}
}
}
if(OrderType()==OP_SELL){
RefreshRates();
if(ND(OrderOpenPrice()-Ask)>=ND(Point*TrailingStopStart)){
slts=ND(Ask+Point*TrailingStop);
if(!IsTradeContextBusy()){
if(ND(OrderStopLoss())>slts || ND(OrderStopLoss())==0){
if(!OrderModify(OrderTicket(),OrderOpenPrice(),slts,OrderTakeProfit(),0,CLR_NONE)){
Print("Error trailingstop SELL "+OrderTicket()+" "+fMyErDesc(GetLastError()));
}
}
}
else{
static int lt2=0;
if(lt2!=iTime(NULL,TimeFrame,0)){
lt2=iTime(NULL,TimeFrame,0);
Print("Need trailingstop SELL "+OrderTicket()+". Trade Context Busy");
}
}
}
}
}
}
}
}
double fGetCustomValue(int TimeFrame,string aName,int aIndex,double aParArr[],int aShift){
double tv;
switch (ArraySize(aParArr)){
case 0:
tv=iCustom(NULL,TimeFrame,aName,aIndex,aShift);
break;
case 1:
tv=iCustom(NULL,TimeFrame,aName,aParArr[0],aIndex,aShift);
break;
case 2:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aIndex,aShift);
break;
case 3:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aIndex,aShift);
break;
case 4:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aIndex,aShift);
break;
case 5:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aIndex,aShift);
break;
case 6:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aIndex,aShift);
break;
case 7:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aIndex,aShift);
break;
case 8:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aIndex,aShift);
break;
case 9:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aIndex,aShift);
break;
case 10:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aIndex,aShift);
break;
case 11:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aIndex,aShift);
break;
case 12:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aIndex,aShift);
break;
case 13:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aIndex,aShift);
break;
case 14:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aIndex,aShift);
break;
case 15:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aIndex,aShift);
break;
case 16:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aIndex,aShift);
break;
case 17:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aIndex,aShift);
break;
case 18:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aIndex,aShift);
break;
case 19:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aIndex,aShift);
break;
case 20:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aIndex,aShift);
break;
case 21:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aIndex,aShift);
break;
case 22:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aIndex,aShift);
break;
case 23:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aIndex,aShift);
break;
case 24:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aIndex,aShift);
break;
case 25:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aIndex,aShift);
break;
case 26:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aIndex,aShift);
break;
case 27:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aIndex,aShift);
break;
case 28:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aIndex,aShift);
break;
case 29:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aIndex,aShift);
break;
case 30:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aIndex,aShift);
break;
case 31:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aIndex,aShift);
break;
case 32:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aParArr[31],
aIndex,aShift);
break;
case 33:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aParArr[31],
aParArr[32],
aIndex,aShift);
break;
case 34:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aParArr[31],
aParArr[32],
aParArr[33],
aIndex,aShift);
break;
case 35:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aParArr[31],
aParArr[32],
aParArr[33],
aParArr[34],
aIndex,aShift);
break;
case 36:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aParArr[31],
aParArr[32],
aParArr[33],
aParArr[34],
aParArr[35],
aIndex,aShift);
break;
case 37:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aParArr[31],
aParArr[32],
aParArr[33],
aParArr[34],
aParArr[35],
aParArr[36],
aIndex,aShift);
break;
case 38:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aParArr[31],
aParArr[32],
aParArr[33],
aParArr[34],
aParArr[35],
aParArr[36],
aParArr[37],
aIndex,aShift);
break;
case 39:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aParArr[31],
aParArr[32],
aParArr[33],
aParArr[34],
aParArr[35],
aParArr[36],
aParArr[37],
aParArr[38],
aIndex,aShift);
break;
case 40:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aParArr[31],
aParArr[32],
aParArr[33],
aParArr[34],
aParArr[35],
aParArr[36],
aParArr[37],
aParArr[38],
aParArr[39],
aIndex,aShift);
break;
case 41:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aParArr[31],
aParArr[32],
aParArr[33],
aParArr[34],
aParArr[35],
aParArr[36],
aParArr[37],
aParArr[38],
aParArr[39],
aParArr[40],
aIndex,aShift);
break;
case 42:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aParArr[31],
aParArr[32],
aParArr[33],
aParArr[34],
aParArr[35],
aParArr[36],
aParArr[37],
aParArr[38],
aParArr[39],
aParArr[40],
aParArr[41],
aIndex,aShift);
break;
case 43:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aParArr[31],
aParArr[32],
aParArr[33],
aParArr[34],
aParArr[35],
aParArr[36],
aParArr[37],
aParArr[38],
aParArr[39],
aParArr[40],
aParArr[41],
aParArr[42],
aIndex,aShift);
break;
case 44:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aParArr[31],
aParArr[32],
aParArr[33],
aParArr[34],
aParArr[35],
aParArr[36],
aParArr[37],
aParArr[38],
aParArr[39],
aParArr[40],
aParArr[41],
aParArr[42],
aParArr[43],
aIndex,aShift);
break;
case 45:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aParArr[31],
aParArr[32],
aParArr[33],
aParArr[34],
aParArr[35],
aParArr[36],
aParArr[37],
aParArr[38],
aParArr[39],
aParArr[40],
aParArr[41],
aParArr[42],
aParArr[43],
aParArr[44],
aIndex,aShift);
break;
case 46:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aParArr[31],
aParArr[32],
aParArr[33],
aParArr[34],
aParArr[35],
aParArr[36],
aParArr[37],
aParArr[38],
aParArr[39],
aParArr[40],
aParArr[41],
aParArr[42],
aParArr[43],
aParArr[44],
aParArr[45],
aIndex,aShift);
break;
case 47:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aParArr[31],
aParArr[32],
aParArr[33],
aParArr[34],
aParArr[35],
aParArr[36],
aParArr[37],
aParArr[38],
aParArr[39],
aParArr[40],
aParArr[41],
aParArr[42],
aParArr[43],
aParArr[44],
aParArr[45],
aParArr[46],
aIndex,aShift);
break;
case 48:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aParArr[31],
aParArr[32],
aParArr[33],
aParArr[34],
aParArr[35],
aParArr[36],
aParArr[37],
aParArr[38],
aParArr[39],
aParArr[40],
aParArr[41],
aParArr[42],
aParArr[43],
aParArr[44],
aParArr[45],
aParArr[46],
aParArr[47],
aIndex,aShift);
break;
case 49:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aParArr[31],
aParArr[32],
aParArr[33],
aParArr[34],
aParArr[35],
aParArr[36],
aParArr[37],
aParArr[38],
aParArr[39],
aParArr[40],
aParArr[41],
aParArr[42],
aParArr[43],
aParArr[44],
aParArr[45],
aParArr[46],
aParArr[47],
aParArr[48],
aIndex,aShift);
break;
case 50:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aParArr[31],
aParArr[32],
aParArr[33],
aParArr[34],
aParArr[35],
aParArr[36],
aParArr[37],
aParArr[38],
aParArr[39],
aParArr[40],
aParArr[41],
aParArr[42],
aParArr[43],
aParArr[44],
aParArr[45],
aParArr[46],
aParArr[47],
aParArr[48],
aParArr[49],
aIndex,aShift);
break;
case 51:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aParArr[31],
aParArr[32],
aParArr[33],
aParArr[34],
aParArr[35],
aParArr[36],
aParArr[37],
aParArr[38],
aParArr[39],
aParArr[40],
aParArr[41],
aParArr[42],
aParArr[43],
aParArr[44],
aParArr[45],
aParArr[46],
aParArr[47],
aParArr[48],
aParArr[49],
aParArr[50],
aIndex,aShift);
break;
case 52:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aParArr[31],
aParArr[32],
aParArr[33],
aParArr[34],
aParArr[35],
aParArr[36],
aParArr[37],
aParArr[38],
aParArr[39],
aParArr[40],
aParArr[41],
aParArr[42],
aParArr[43],
aParArr[44],
aParArr[45],
aParArr[46],
aParArr[47],
aParArr[48],
aParArr[49],
aParArr[50],
aParArr[51],
aIndex,aShift);
break;
case 53:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aParArr[31],
aParArr[32],
aParArr[33],
aParArr[34],
aParArr[35],
aParArr[36],
aParArr[37],
aParArr[38],
aParArr[39],
aParArr[40],
aParArr[41],
aParArr[42],
aParArr[43],
aParArr[44],
aParArr[45],
aParArr[46],
aParArr[47],
aParArr[48],
aParArr[49],
aParArr[50],
aParArr[51],
aParArr[52],
aIndex,aShift);
break;
case 54:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aParArr[31],
aParArr[32],
aParArr[33],
aParArr[34],
aParArr[35],
aParArr[36],
aParArr[37],
aParArr[38],
aParArr[39],
aParArr[40],
aParArr[41],
aParArr[42],
aParArr[43],
aParArr[44],
aParArr[45],
aParArr[46],
aParArr[47],
aParArr[48],
aParArr[49],
aParArr[50],
aParArr[51],
aParArr[52],
aParArr[53],
aIndex,aShift);
break;
case 55:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aParArr[31],
aParArr[32],
aParArr[33],
aParArr[34],
aParArr[35],
aParArr[36],
aParArr[37],
aParArr[38],
aParArr[39],
aParArr[40],
aParArr[41],
aParArr[42],
aParArr[43],
aParArr[44],
aParArr[45],
aParArr[46],
aParArr[47],
aParArr[48],
aParArr[49],
aParArr[50],
aParArr[51],
aParArr[52],
aParArr[53],
aParArr[54],
aIndex,aShift);
break;
case 56:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aParArr[31],
aParArr[32],
aParArr[33],
aParArr[34],
aParArr[35],
aParArr[36],
aParArr[37],
aParArr[38],
aParArr[39],
aParArr[40],
aParArr[41],
aParArr[42],
aParArr[43],
aParArr[44],
aParArr[45],
aParArr[46],
aParArr[47],
aParArr[48],
aParArr[49],
aParArr[50],
aParArr[51],
aParArr[52],
aParArr[53],
aParArr[54],
aParArr[55],
aIndex,aShift);
break;
case 57:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aParArr[31],
aParArr[32],
aParArr[33],
aParArr[34],
aParArr[35],
aParArr[36],
aParArr[37],
aParArr[38],
aParArr[39],
aParArr[40],
aParArr[41],
aParArr[42],
aParArr[43],
aParArr[44],
aParArr[45],
aParArr[46],
aParArr[47],
aParArr[48],
aParArr[49],
aParArr[50],
aParArr[51],
aParArr[52],
aParArr[53],
aParArr[54],
aParArr[55],
aParArr[56],
aIndex,aShift);
break;
case 58:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aParArr[31],
aParArr[32],
aParArr[33],
aParArr[34],
aParArr[35],
aParArr[36],
aParArr[37],
aParArr[38],
aParArr[39],
aParArr[40],
aParArr[41],
aParArr[42],
aParArr[43],
aParArr[44],
aParArr[45],
aParArr[46],
aParArr[47],
aParArr[48],
aParArr[49],
aParArr[50],
aParArr[51],
aParArr[52],
aParArr[53],
aParArr[54],
aParArr[55],
aParArr[56],
aParArr[57],
aIndex,aShift);
break;
case 59:
tv=iCustom(NULL,TimeFrame,aName,
aParArr[0],
aParArr[1],
aParArr[2],
aParArr[3],
aParArr[4],
aParArr[5],
aParArr[6],
aParArr[7],
aParArr[8],
aParArr[9],
aParArr[10],
aParArr[11],
aParArr[12],
aParArr[13],
aParArr[14],
aParArr[15],
aParArr[16],
aParArr[17],
aParArr[18],
aParArr[19],
aParArr[20],
aParArr[21],
aParArr[22],
aParArr[23],
aParArr[24],
aParArr[25],
aParArr[26],
aParArr[27],
aParArr[28],
aParArr[29],
aParArr[30],
aParArr[31],
aParArr[32],
aParArr[33],
aParArr[34],
aParArr[35],
aParArr[36],
aParArr[37],
aParArr[38],
aParArr[39],
aParArr[40],
aParArr[41],
aParArr[42],
aParArr[43],
aParArr[44],
aParArr[45],
aParArr[46],
aParArr[47],
aParArr[48],
aParArr[49],
aParArr[50],
aParArr[51],
aParArr[52],
aParArr[53],
aParArr[54],
aParArr[55],
aParArr[56],
aParArr[57],
aParArr[58],
aIndex,aShift);
break;
}
return(tv);
}
Sample
Analysis
Market Information Used:
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
aName
Order Management characteristics:
Checks for the total of open orders
It automatically opens orders when conditions are reached
It Closes Orders by itself
It can change open orders parameters, due to possible stepping strategy
Other Features:
