Orders Execution
1
Views
1
Downloads
0
Favorites
Ilan_RSI_mm_extr18
//íííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííí
#property copyright "runik"
#property link "ngb2008@mail.ru"
//
// dec - ïàðàìåòðû êîòîðûå íóæíî óìíîæàòü íà 10 ïðè ðàáîòå â ÄÖ ñ 5 çíàêàìè (òèïà àëüïàðè)
//
// !!!
// !!! ïðè ðàáîòå ÅÀ ïîìíèòå ÷òî íóæíî ãðóçèòü (äåðæàòü îòêðûòûìè â òåðìèíàëå) òå ãðàôèêè òàéìôðåéìîâ íà êîòîðûõ ðàáîòàåò
// !!! èíäèêàòîð íàïðèìåð 7 - äíåâíîé è 3 - 15 ìèíóòíûé (TFSmall=3;TFS = 7;)
// !!!
// ñîâåòíèê ìîæíî ñòàâèò íà ëþáîé ãðàôèê îò ì1 äî í1
// äëÿ ðàáîòû íóæåí èíäèêàòîð i-Regr
// ïðåæäå ÷åì ðàáîòàòü ñ ýòîé ìîäèôèêàöèåé èëàíà ïîïðîáóéòå "îáû÷íûé" èëàí âåðñèè 1.4 - 1.5 - 1.6
// ïîìíèòå !!! ñîâåòíèêîì íóæíî óïðàâëÿòü ñ ãîëîâîé !
// íà ïîëíîì àâòîìàòå ñîëüåòå êîãäà-íèáóäü ...
// Áóäó ïðèçíàòåëåí åñëè Âû ñîîáùèòå îá îøèáêàõ â ðàáîòå äàííîãî ñîâåòíèêà èëè ïðåäëîæåíèÿ ïî äîðàáîòêå.
// Âàðèàíòîâ ðàáîòû î÷åíü ìíîãî, ïîýòîìó áóäó ïðèçíàòåëåí åñëè ïðèøëåòå ïðèëè÷íûé ñåò ngb2008[a]mail.ru
// Åñëè Âû ðåøèëè ìîäèôèöèðîâàòü äàííûé ñîâåòíèê, òî ïîæàëóéñòà. Ìíå áëèçêà èäåÿ çàëîæåííàÿ â ëèöåíçèè GNU.
// Íå çàêðûâàéòå ñâîáîäíî ðàñïðîñòðàíÿåìûé êîä è íå îáúÿâëÿéòå åãî ñâîèì.
// Åñëè Âàì ïîíðàâèëñÿ äàííûé ñîâåòíèê è Âû èì çàðàáàòûâàåòå,
// òî ìîæåòå ñêàçàòü ñïàñèáî :) ñèñòåìå âåáìàíè Z182368142593
// óêàçûâàéòå ÷òî ýòî çà ñîâåòíèê (èìÿ ôàéëà) è ñâîé ýë. àäðåñ (ïðèøëþ íîâóþ âåðñèþ, ýòà íàäåþñü íå ïîñëåäíÿÿ áóäåò)
// ñ óâ. ðóíèê
extern string ñ2= "Îñíîâíûå ïàðàìåòðû";
// çäåñü âñå êàê â îáû÷íîì èëàíå, ìàññèâû çíà÷åíèé íóæíû äëÿ òåõ êîìó íå õâàòàåò ôóíêöèîíàëà è õîòåë áû èñïîëüçîâàòü ðàçíûå ïèïñòåïû,
// ðàçíûå ëîòýêñïîíåíòû, ðàçíûå òåéêè íà êàæäîì øàãå
extern double LotExponent = 1.4; // óìíîæåíèå ëîòîâ â ñåðèè ïî ýêñïîíåíòå äëÿ âûâîäà â áåçóáûòîê. ïåðâûé ëîò 0.1, ñåðèÿ: 0.15, 0.26, 0.43 ...
double learr[25]={1.3,1.4,1.5,1.6,1.7,2,2,2,2,1.3,1.3,1.3,1.3,1.3,1.3,1.3,1.3,1.6,1.6,1.6,1.6,1.6,1.6,1.6}; // le à êàæäûé øàã åñëè LotExponent=0
extern double TakeProfit = 30; //dec ìèíèìàëüíûé òåéê ïðîôèò, åñëè = 0 òî èñïîëüçóåì ìàññèâ çíà÷åíèé òåéêîâ ïðè óñòàíîâêå êîëåí
int tparr[25]={10,10,10,10,20,30,30,30,30,30,30,30,30,30,30,30,30,10,10,10,10,10,10,10,10,10}; // dec
extern double PipStep = 30; //dec øàã ïåðâîãî êîëåíà
double psarr[25]={70,110,110,110,110,110,110,110,110,110,110,110,90,90,90,90,90,90,170,180,190,200,200,200,200,200}; //dec ïèïñòåïû åñëè PipStep=0
extern string c9 = "MM";
extern double Lots = 0.1; // òåïåðü ìîæíî è ìèêðîëîòû 0.01 ïðè ýòîì åñëè ñòîèò 0.1 òî ñëåäóþùèé ëîò â ñåðèè áóäåò 0.15
extern double Risk = 0.5; // ïåðâàÿ ñäåëêà ðàçìåðîì â % îò äåïî, åñëè = 0 òî ïåðâàÿ ñäåëêà îòêðûâàåòñÿ ðàçìåðîì Lots
// ýòè ïàðàìåòðû íóæíû â òîì ñëó÷àå êîãäà õîòèì íà ïîñëåäíèõ ëîòàõ íå äîêóïàòüñÿ îãðîìíûìè ëîòàìè è ó æå ôèêñèðîâàííûìè íàïðèìåð 0,1 - 0,2 - 0,4 - 0,8 - 1,6 - 1,6 - 1,6 ...
extern double LastTrade=100; // ïîñëå ýòîãî îðäåðà ðàçìåðû îðäåðîâ ñòàíîâÿòüñÿ = ïîñëåäíåìó îòêðûòîìó à òåéê ïåðåíîñèòñÿ â òî÷êó áåçóáûòêà + lastradeprofit
extern double TakeProfitLast = 10.0; //dec ìèíèìàëüíûé òåéê ïðîôèò êîãäà îòêðûòî ñäåëîê áîëüøå ÷åì LastTrade
extern double LasTradeSize=17; // ìàêñèìàëüíûé ðàçìåð îòêðûòîé ñäåëêè â % îò äåïî, íàïðèìåð ïðè äåïî 10 000 ðàçìåð ïîñëåäíåé ïîçèöèè íå áîëüøå 1 ëîòà
extern int MaxTrades = 50; // ìàêñèìàëüíî êîëè÷åñòâî îäíîâðåìåííî îòêðûòûõ îðäåðîâ
extern string s11 ="Ïàðàìåòðû ñäåëîê ïî òðåíäó";
// ýòè ïàðàìåòðû îòâå÷àþò çà ðàáîòó ñîâåòíèêà êîãäà èäåì äîêóìàòüñÿ (èëè ïèðàìèäèíã) ïî òðåíäó, îáùèé ñìûñë òàêîâ ÷òî åñëè NumTr = 2 òî ïî òðåíäó ìû ôàêòè÷åñêè èäåì óäâîåííûì ëîòîì
// òàêèì îáðàçîì íàèáîëåå âûãîäíûî ïðè ðåàëèçàöèè äàííîé èäåè ñòàâèòü ìàêñèìàëüíûé ïåðâîíà÷àëüíûé ëîò íåáîëüøîé ìíîæèòåëü, ìèíèìàëüíûé øàã ÒðåíäÏÑ, è ìàêñèìóì NumTr (5-6)
// íî åñëè íå óãàäàëè ñ âûáîðîì íàïðàâëåíèÿ è íà÷èíàåì óñðåäíÿòüñÿ êàê â îáû÷íîì èëàíå, òî ó íàñ âèñèò ïðèëè÷íûé "ÿêîðü"
extern double TrendPS = 11; //dec øàã îòêðûòèÿ êîëåí ïî òðåíäó, åñëè =0 òî ïî òðåíäó íå ðàáîòàåì, íåëüçÿ äåëàòü ìåíüøå èëè ðàâíûì óðîâíþ ñòîïîâ
extern double ProfitPerc= 5; //dec åñëè ïî òðåíäó íàêîïëåíî ïðèáûëè áîëåå 10% äåïîçèòà, òî çàêðûâàåì âñþ ñåðèþ ñ ïðèáûëüþ
extern double MinProfitPips =15; //dec åñëè ó íàñ îòðûòà ñåðèÿ ïî òðåíäó è öåíà ïîøëà ïðîòèâ íàñ, òî çàêðûâàåìñÿ ïî ñòîïëîññó, êîòîðûé ðàñïîëîæåí â + íà óðîâíå MinProfitPips îò òî÷êè áåçóáûòêà
extern double MinProfitPipsOne =2; //dec åñëè ó íàñ îòðûòà ñåðèÿ ïî òðåíäó è öåíà ïîøëà ïðîòèâ íàñ, òî çàêðûâàåìñÿ ïî ñòîïëîññó, êîòîðûé ðàñïîëîæåí â + íà óðîâíå MinProfitPips îò òî÷êè áåçóáûòêà
extern double NumTr=2; // ñêîëüêî ïîçèöèé îñòàâëÿòü åñëè öåíà ïîøëà íå â íàøó ñòîðîíó
extern int FDir = 2; // ïðèíóäèòåëüíûé âûáîð íàïðàâëåíèÿ åñëè = 0 òî ïåðâàÿ ñäåëêà âñåãäà è ñðàçó îòêðûâàåòñÿ íà áàé, (=1 ñåëë) íå îæèäàÿ óñëîâèÿ íà îòðêðûòèå è îêîí÷àíèÿ áàðà, =2 - òî ïðîñòî íåìåäëåííî îòêðûòüñÿ, â çàâèñèìîñòè îò óñëîâèé
extern string c3= "Âñïîìîãàòåëüíûå ïàðàìåòðû";
extern int MagicNumber = 54321; // ìàãèê
extern double slip = 3.0; //dec ïðîñêàëüçûâàíèå
extern double minslip =3;
extern int lotdecimal = 2; // 2 - ìèêðîëîòû 0.01, 1 - ìèíè ëîòû 0.1, 0 - íîðìàëüíûå ëîòû 1.
// áûâàåò íóæíî ...
extern double PercDown=0; // ò.å. åñëè ìû "çàôèêñèðîâàëè" (ò.å. öåíà óõîäèëà äàëåêî íå â íàøåì íàïðàâëåíèè) ïðîñàäêó íà äåïîçèòå ïî ñåðèè ñäåëîê áîëüøå 30 % îò òåêóùåãî áàëàíñà, òî íàì íàäî ñìàòûâàòüñÿ ñ ðûíêà äà ïîáûñòðåå
extern double PercClose=0; // ïîýòîìó åñëè ìû äîøëè äî 10 % ïðîñàäêè ïîñëå 30 íàäî çàêðûâàòüñÿ ñ òàêèì ìèíóñîì, äàëüøå ñîîòíîøåíèå ïîääåðæèâàåòñÿ, åñëè íà 60 % óõîäèëè â ïðîñàäêó, òî çàêðîåìñÿ ïðè 20 %
// ÷òîáû íå ïîëüçîâàòüñÿ äàííîé ôóíêöèåé íàäî óñòàíîâèò ýòè ïàðàìåòðû ðàâíûìè
extern int ComOn=0; // îòêëþ÷èòü âûâîä êîììåíòàðèåâ ïðè =0
extern string c4= "Ïàðàìåòðû ñâÿçàííûå ñ âðåìåíåì";
extern int TFIlanX=0; // òàéìôðåéì íà êîòîðîì èëàí îòêðûâàåò ñäåëêè ñì. mper ïðè = 5 - H1
// òèïà ïåðèîä ñâèò÷åð
extern int nH1=0; // =3 ïîñëå 3 ñäåëêè ïåðåêëþ÷àåìñÿ íà ÒÔ Í1
extern int nH4=0; // =5 ïîñëå 5 ñäåëêè ïåðåêëþ÷àåìñÿ íà òô Í4
extern string c8= "Ïàðàìåòðû ëîêà";
// êîìó íàäî è ñàì ïîñòàâèò ëîê è ðàçðóëèò, íå î÷åíü óäà÷íî ðåàëèçîâàíî, íî ñìûñë òàêîé: åñëè îòêðûòî óæå ïðèëè÷íî ïîçèöèé, òî ïî ñèãíàëó èíäèêàòîðà îòêðûâàåì ëîê, è ïî ñèãíàëó èíäèêàòîðà çàêðûâàåì ëîê åñëè â ïëþñå íà
// MinLP ïèïñîâ, çàòåì ìîæåì ñíîâà çàêðûòüñÿ è îòêðûòüñÿ, òàêèì îáðàçîì êàê áû ñêàëüïèðóÿ (ïèïñóÿ) áîëüøèì ëîòîì, åñëè ïðîôèò ïî ëîêó è ñåðèè áîëüøå 0, òî ïðîñòî âñå çàêðûâàåì, ïîïðîáóéòå = 5 èëè 10, î÷åíü ïîêàçàòåëüíî
extern double LockS=0; // ïûòàåìñÿ ëîêèðîâàòü ÷àñòü ïîçèöèé è ïîëó÷èòü äîïîëíèòåëüíóþ ïðèáûëü, åñëè =0 òî íå ðàáîòàåò, åñëè =0.5, òî ëîêèðóåì 50% ïîçèöèé ñåðèè
extern int LMagN=689; // ìàãè÷åñêèé íîìåð äëÿ ëîêîâîé ïîçû
extern int NumLockMin=4; // ïîñëå êàêîãî ïî ñ÷åòó êîëåíà îòêðûâàòü ëîêîâûé îðäåð åñëè èíäèêàòîð ãëîáàëüíîãî òðåíäà èçìåíèë íàïðàâëåíèå
extern int NumLoc=8; // ïîñëå êàêîãî ïî ñ÷åòó êîëåíà îòêðûâàòü ëîêîâûé îðäåð åñëè êîëè÷åñòâî îðäåðîâ ïðîñòî ñòàëî áîëüøèì
//extern int MaxDist=400; //dec ìàêñèìàëüíîå ðàññòîÿíèå îò ïåðâîé ñäåëêè ïîñëå êîòîðîãî òàê æå îòêðûâàåì ëîê
extern int MinLP=10; // ìèíèìàëüíîå êîëè÷åñâòî ïóíêòîâ ïðîôèòà
extern string _tmp2_ = " --- i-Regr --- ñ áîëüøèì ïåðèîäîì îïåðåäåëÿåì ãëîáàëüíûé òðåíä";
// ïî äàííîìó èíäèêàòîðó ñ ýòèìè íàñòðîéêàìè îïðåäåëÿåì "ãëîáàëüíûé òðåíä" ïðîòèâ êîòîðîãî íèêîãäà íå îòêðûâàåìñÿ (ïåðâàÿ ñäåëêà)
// âîîáùåì ýòî è îïðåäåëÿåò ñëèâàåìîñòü äàííîãî ñîâåòíèêà, åñëè îøèáëèñü è îòêðûëèñü íå òóäà, òî çà 2000 ïóíêòîâ ñîëüåìñÿ (åñëè áåç ëîêà è âîøëè áîëüøå ÷åì 5 % äåïî, íà íåêîòðûõ òåñòàõ è ïðîõîäèò)
// ãëàâíîå ÷òîáû ýòèì èíäèêàòîðîì ïîéìàòü ðàçâîðîò ãëîáàëüíîãî òðåíäà !
// äëÿ áîëåå ãèáêîé ðàáîòû ìîæíî äåëàòü ïåðèîä è òàéìôðåéì ìåíüøå, íàïðèìåð (ïàðàìåòðû ïîïîðÿäêó) 3, 1.5, 2, 0, 800, 5, 0
extern int Regr.degree1 = 6; // ïîðÿäîê ðåãðåññèè
extern double Regr.kstd1 = 5; // øèðèíà êàíàëà, åñëè =0 òî ðèñóåòñÿ òîëüêî ñðåäíÿÿ ëèíèÿ
extern int kanal=2; // âàðèàíò ðàáîòû ñ ãðàíèöàìè êàíàë, ïðè =2 íå îòêðûâààåì ïîçèöèè çà ãðàíèöàìè êàíàëà, =1 òîëüêî çà ïðåäåëàìè îäíîé ãðàíèöû, = 0 íå ó÷èòûâàåì ãðàíèöû òîëüêî èçìåíåíãèå îñíîâíîé ëèíèè ðåãðåññ
int Regr.shift1 = 0; // ñìåùåíèå îòíîñèòåëüíî òåêóùåãî áàðà
extern int SPer = 800; // ïåðèîä áàðîâ
extern int TFS=7; // òàéìôðåéì íà êîòîðîì ðàáîòàåò èíäèêàòîð,
extern int invert=0; // åñëè = 0 òî ïî òðåíäó, åñëè =1 òî ðàáîòàåì ïðîòèâ ãëîáàëüíîãî òðåíäà, ìîæíî èñïîëüçîâàòü ñ ëîêîì
// åñëè ëîê ðàçìåðîì áîëüøå ñóììû îòêðûòûõ ïîçèöèé â ñåðèè, òî òåîðåòè÷åñêèé ïðè invert=1; ìû âñåãäà çàêðîåìñÿ â +
extern string _tmp3_ = " --- i-Regr --- ñ ìàëûì ïåðèîäîì";
// ïî äàííîìó èíäèêàòîðó ñ ýòèìè íàñòðîéêàìè ìû äîêóïàåìñÿ åñëè öåíà ïîøëà ïðîòèâ íàñ, ýòîò æå èíäèêàòîð èñïîëüçóåòñÿ ïðè çàêðûòèè è îòêðûòèè ëîêîâûõ ïîçèöèé
// äëÿ áîëåå óñòîé÷èâîé ðàáîòû ìîæíî óâåëè÷èâàòü ïåðèîä è ÒÔ, íàïðèìåð (ïàðàìåòðû ïîïîðÿäêó) 1, 3,1.5, 0, 800, 5
extern int IndStep = 3; // øàã ñ êîòîðîãî íà÷èíàåì ñìîòðåòü íà èíäèêàòîð äëÿ îòêðûòèÿ êîëåí
extern int Regr.degree1mall = 3; // ïîðÿäîê ðåãðåññèè
extern double Regr.kstd1mall = 1.5; // øèðèíà êàíàëà, åñëè =0 òî ðèñóåòñÿ òîëüêî ñðåäíÿÿ ëèíèÿ
int Regr.shift1mall = 0; // ñìåùåíèå îòíîñèòåëüíî òåêóùåãî áàðà
extern int SPermall = 150; // ïåðèîä áàðîâ
extern int TFSmall=3; // òàéìôðåéì íà êîòîðîì ðàáîòàåò èíäèêàòîð
//íííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííí
bool UseEquityStop = FALSE;
double TotalEquityRisk = 20.0;
bool UseTimeOut = FALSE;
double MaxTradeOpenHours = 48.0;
extern string t2 = " ïàðàìåòðû òðåéëèíãà";
// êòî ïîëüçóåòñÿ òðåéëèíãîì, ïîæàëñòà ...
extern int UseTrailingStop = 0; // 0-íå èñïîëüçóåì òðàë, 1 - ñòóïåí÷àòûé òðàë, 2 - òðàë òèïà åñìàðò
extern int ProfitTrailDist = 30; //dec ðàññòîÿíèå îò òî÷êè áåçóáûòêà, ïîñëå êîòîðîé âêëþ÷àåì òðàë //+------------------------------------------------------------------+
extern int TrailDist = 80; //dec ðàññòîÿíèå íà êîòîðîì òÿíåòñÿ ñòîïëîññ //| ÒÐÅÉËÈÍà ÑÒÀÍÄÀÐÒÍÛÉ-ÑÒÓÏÅÍ×ÀÑÒÛÉ |
extern int TrailStep = 10; //dec ìîäèôèöèðóåì îðäåðà êàæäûå 5 ïóíêòîâ //| Ôóíêöèè ïåðåäà¸òñÿ òèêåò ïîçèöèè, ðàññòîÿíèå îò êóðñà îòêðûòèÿ, |
extern int NumIT = 3; // ïîñëå êàêîãî êîëè÷åñòâà ñäåëîê âêëþ÷àåòñÿ òðàë //| íà êîòîðîì òðåéëèíã çàïóñêàåòñÿ (ïóíêòîâ) è "øàã", ñ êîòîðûì îí ïåðåíîñèòñÿ (ïóíêòîâ) |
//| Ïðèìåð: ïðè +30 ñòîï íà +10, ïðè +40 - ñòîï íà +20 è ò.ä. |
extern double xtral=2; // îçíà÷àåò ÷òî, ðàññòîÿíèå îò òî÷êè áåçóáûòêà äî ñòîïëîññà â xtral ðàç ìåíüøå ÷åì îò òî÷êè áó äî öåíû, íàïðèìåð öåíà óøëà íà 90 ï â +, çíà÷èò ñòîï íà óðîâíå 30 ï â ïëþñ ïåðåíîñèì
//íííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííí
int mper[10]={0,1,5,15,30,60,240,1440,10080,43200};
int TFIlan=0;
int ccc=0;
double lota[100]; // ëîòû
int modea[100]; // òèï îðäåðà OP_BUY 0 , OP_SELL 1 , OP_BUYLIMIT 2 , OP_SELLLIMIT 3 , OP_BUYSTOP 4 , OP_SELLSTOP 5
double opa[100]; // öåíà îòêðûòèÿ
double sla[100]; // ñòîïëîññ
double tpa[100]; // ïðîôèò
string comma[100]; // êîììåíòàðèè
datetime tima[100]; // âðåìÿ îòêðûòèÿ ñäåëêè
double profa[100];
int ticka[100];
//íííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííí
double PriceTarget, StartEquity, BuyTarget, SellTarget, AveragePrice, SellLimit, BuyLimit,LastBuyPrice, LastSellPrice, Spread,mac;
bool flag;
string EAName = "Ilan_extr18";
int timeprev = 0, expiration;
int NumOfTrades = 0;
double iLots;
int cnt = 0, total;
double Stopper = 0.0;
bool TradeNow = FALSE, LongTrade = FALSE, ShortTrade = FALSE;
int ticket;
bool NewOrdersPlaced = FALSE;
double AccountEquityHighAmt, PrevEquity;
int TrendRe=1; // ïðè =0 ðåæèì îáû÷íîãî èëàíà, ïðè =1 ðåæèì òðåíä, ò.å. äîêóïàåìñÿ ïî òðåíäó
double LastDD=0; // çäåñü çàïîìèíàìåì ìàêñèìàëüíóþ ïðîñàäêó äëÿ òåêóùåé ñåðèè ñäåëîê
double FirstTr=0; // çäåñü çàïîìèíàåì òèêåò ïåðâîé ñäåëêè â ñåðèè
int ClLock=0;
//íííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííí
int init() {
Spread = MarketInfo(Symbol(), MODE_SPREAD) * Point;
return (0);
}
int deinit() {
return (0);
}
//íííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííí
int start() {
total = CountTrades();
PercCloseDown(); //
if (TrendPS>0) TrenT();
if (TrendRe==0)
{
ProfitMonitor(); // åñëè îòêðûòà äëèííàÿ ñåðèÿ òî íà âñÿêèé ñëó÷àé ìîíèòîðèì çàêðûòèå (âîîáùåì ñòðàõîâêà åñëè òåéêïðîôèò íå âûñòàâèëñÿ)
}
int ct=NumT();
double PrevCl;
double CurrCl;
if (UseTrailingStop >0 && ct>=NumIT) TrailingAlls();
if (UseTimeOut) {
if (TimeCurrent() >= expiration) {
CloseThisSymbolAll(MagicNumber);
PrintF("Closed All due to TimeOut");
}
}
if (LockS>0) {int lm=LockTicket(LMagN); }
if (LockS>0 && lm>0) // ëîêèðóåì ñåðèþ
{
// Ïðîâåðêà íà òî ÷òîáû çàêðûòü ëîê åñëè ñåðèÿ çàêðûòà
if (ct<NumLockMin) { ClLock =1; }
OrderSelect(lm,SELECT_BY_TICKET,MODE_TRADES);
if (ClLock==1)
{
if (OrderType()==OP_BUY && OrderProfit()>0 && ((Bid-OrderOpenPrice())/Point>=MinLP)) OrderClose(lm,OrderLots(),Bid,slip,0);
if (OrderType()==OP_SELL && OrderProfit()>0 && ((OrderOpenPrice()-Ask)/Point>=MinLP)) OrderClose(lm,OrderLots(),Ask,slip,0);
ClLock=0;
// return(0);
}
if (OrderProfit()>0)
{
if (OrderType()==OP_BUY && alerts(-1)==-1 && ((Bid-OrderOpenPrice())/Point>=MinLP)) OrderClose(lm,OrderLots(),Bid,slip,0);
if (OrderType()==OP_SELL && alerts(1)==1 && ((OrderOpenPrice()-Ask)/Point>=MinLP)) OrderClose(lm,OrderLots(),Ask,slip,0);
ClLock=0;
// return(0);
}
}
TFIlan=TFIlanX;
if (nH1!=0 && NumT()>=nH1) TFIlan=5;
if (nH4!=0 && NumT()>=nH4) TFIlan=6;
if (FDir<0)
{
if (timeprev == iTime(NULL,mper[TFIlan],0)) return (0);
}
if (total>=1 && FDir>=0)
{
if (timeprev == iTime(NULL,mper[TFIlan],0)) return (0);
}
timeprev = iTime(NULL,mper[TFIlan],0);
if (LockS>0 && ct>NumLockMin) // ëîêèðóåì ñåðèþ
{
int ld=Dir(MagicNumber); // îïðåäåëÿåì íàïðàâëåíèå ñåðèè 1(b) èëè -1(s)
// ïðîâåðêà åñòü ëè ëîê ?
int a=alerts(ld);
if (lm>0) //
{
// ïðîâåðêà íàäî ëè çàêðûòü ëîê ñåé÷àñ && a<0&& a>0
if (Balance("buy","Balance",LMagN)+Balance("sell","Balance",MagicNumber)>0) {CloseThisSymbolAll(LMagN);CloseThisSymbolAll(MagicNumber);}
if (Balance("buy","Balance",MagicNumber)+Balance("sell","Balance",LMagN)>0) {CloseThisSymbolAll(MagicNumber);CloseThisSymbolAll(LMagN);}
}
else // îòêðûâàåì ëîê
{
double al=CountLots(MagicNumber);
// Print (" ct ",ct," ld ",ld," al ",al," a ",a );
if ((ld==1 && a==-1) || (ct>=NumLoc && ld==1 )) //&&
{
ClLock =0;
int gi_328 = OpenPendingOrder(1, LotSiz(LockS*al), Bid, slip, Ask, 0, 0, EAName + "-Lock" , LMagN, 0, Red);
if (gi_328 < 0) { Print("Error: ", GetLastError());again();return (0); }
}
if ((ld==-1 && a==1) || (ld==-1 && ct>=NumLoc))//&& a>0
{
ClLock =0;
gi_328 = OpenPendingOrder(0, LotSiz(LockS*al), Ask, slip, Bid, 0, 0, EAName + "-Lock", LMagN, 0, Blue);
if (gi_328 < 0) { Print("Error: ", GetLastError());again();return (0);}
}
}
}
double CurrentPairProfit = CalculateProfit();
if (UseEquityStop) {
if (CurrentPairProfit < 0.0 && MathAbs(CurrentPairProfit) > TotalEquityRisk / 100.0 * AccountEquityHigh()) {
CloseThisSymbolAll(MagicNumber);
PrintF("Closed All due to Stop Out");
NewOrdersPlaced = FALSE;
}
}
if (total == 0) flag = FALSE;
for (cnt = OrdersTotal() - 1; cnt >= 0; cnt--) {
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() != Symbol() || OrderMagicNumber() != MagicNumber) continue;
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber) {
if (OrderType() == OP_BUY) {
LongTrade = TRUE;
ShortTrade = FALSE;
break;
}
}
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber) {
if (OrderType() == OP_SELL) {
LongTrade = FALSE;
ShortTrade = TRUE;
break;
}
}
}
// if (LockOn==1 && total>0) LockPositions();
if (total > 0 && total <= MaxTrades) {
RefreshRates();
LastBuyPrice = FindMinBuyPrice();
LastSellPrice = FindMaxSellPrice();
if (LongTrade && LastBuyPrice - Ask >= PipStepX(0) * Point && alerts(1)>0 ) TradeNow = TRUE;
if (ShortTrade && Bid - LastSellPrice >= PipStepX(1) * Point && alerts(-1)<0) TradeNow = TRUE;
}
if (total < 1) {
ShortTrade = FALSE;
LongTrade = FALSE;
TradeNow = TRUE;
StartEquity = AccountEquity();
}
if (TradeNow) {
// LastBuyPrice = FindLastBuyPrice();
// LastSellPrice = FindLastSellPrice();
double MaxLot1=FindMaxLots();
TrendRe=0;
if (ShortTrade) {
NumOfTrades = total;
if (LotExponent>0) iLots = NormalizeDouble(MaxLot1*LotExponent, lotdecimal);
if (LotExponent==0) iLots = NormalizeDouble(MaxLot1*learr[NumT()], lotdecimal);
double ltsiz=LasTradeSize/100*AccountBalance()/1000;
if (NumOfTrades>=LastTrade && LastTrade>0 && iLots>ltsiz) iLots = MaxLot1;
RefreshRates();
ticket = OpenPendingOrder(1, iLots, Bid, slip, Ask, 0, 0, "" + NumOfTrades, MagicNumber, 0, HotPink);
if (ticket < 0) {
PrintF("Error: "+ GetLastError());
return (0);
}
TradeNow = FALSE;
NewOrdersPlaced = TRUE;
} else {
if (LongTrade) {
NumOfTrades = total;
if (LotExponent>0) iLots = NormalizeDouble(MaxLot1*LotExponent, lotdecimal);
if (LotExponent==0) iLots = NormalizeDouble(MaxLot1*learr[NumT()], lotdecimal);
ltsiz=LasTradeSize/100*AccountBalance()/1000;
if (NumOfTrades>=LastTrade && LastTrade>0 && iLots>ltsiz) iLots = MaxLot1;
ticket = OpenPendingOrder(0, iLots, Ask, slip, Bid, 0, 0, "" + NumOfTrades, MagicNumber, 0, Lime);
if (ticket < 0) {
PrintF("Error: "+ GetLastError());
return (0);
}
TradeNow = FALSE;
NewOrdersPlaced = TRUE;
}
}
}
if (TradeNow && total < 1)
{
SellLimit = Bid;
BuyLimit = Ask;
TrendRe=1;
if (!ShortTrade && !LongTrade)
{
NumOfTrades = total;
iLots = NormalizeDouble(GetLots(), lotdecimal);
if (alert(1)==-1 && FDir!=0)
{
ticket = OpenPendingOrder(1, iLots, SellLimit, slip, SellLimit, 0, 0, "IER " + NumOfTrades, MagicNumber, 0, HotPink);
if (ticket < 0)
{
PrintF("Error: "+ GetLastError()); return (0);
}
NewOrdersPlaced = TRUE;
} //
if (alert(0)==1 && FDir!=1)
{ // ìåíüøå <
ticket = OpenPendingOrder(0, iLots, BuyLimit, slip, BuyLimit, 0, 0, "IER " + NumOfTrades, MagicNumber, 0, Lime);
if (ticket < 0)
{
PrintF("Error: "+ GetLastError()); return (0);
}
NewOrdersPlaced = TRUE;
}
if (ticket > 0) expiration = TimeCurrent() + 60.0 * (60.0 * MaxTradeOpenHours);
TradeNow = FALSE;
}
}
total = CountTrades();
AveragePrice = 0;
double Count = 0;double maxpr=0; double minpr=10000000;
for (cnt = OrdersTotal() - 1; cnt >= 0; cnt--) {
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() != Symbol() || OrderMagicNumber() != MagicNumber) continue;
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber) {
if (OrderType() == OP_BUY || OrderType() == OP_SELL) {
AveragePrice += OrderOpenPrice() * OrderLots();
Count += OrderLots();
}
}
}
if (total > 0) AveragePrice = NormalizeDouble(AveragePrice / Count, Digits);
if (NewOrdersPlaced) {
double tp3=0;
if (TakeProfit==0) tp3=tparr[NumT()];
if (TakeProfit!=0) tp3=TakeProfit;
for (cnt = OrdersTotal() - 1; cnt >= 0; cnt--) {
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() != Symbol() || OrderMagicNumber() != MagicNumber) continue;
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber) {
if (OrderType() == OP_BUY) {
PriceTarget = AveragePrice + tp3 * Point;
if (NumOfTrades>LastTrade+1) PriceTarget = AveragePrice + TakeProfitLast * Point;
flag = TRUE;
}
}
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber) {
if (OrderType() == OP_SELL) {
PriceTarget = AveragePrice - tp3 * Point;
if (NumOfTrades>LastTrade+1) PriceTarget = AveragePrice - TakeProfitLast * Point;
flag = TRUE;
}
}
}
}
if (NewOrdersPlaced && TrendRe==0) {
if (flag == TRUE) {
for (cnt = OrdersTotal() - 1; cnt >= 0; cnt--) {
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() != Symbol() || OrderMagicNumber() != MagicNumber) continue;
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber)
{
// OrderModify(OrderTicket(), AveragePrice, OrderStopLoss(), PriceTarget, 0, Yellow);
if (OrderTakeProfit()!=PriceTarget) ModifyOrder(Symbol(),OrderOpenPrice(),OrderStopLoss(), PriceTarget, Yellow);
}
NewOrdersPlaced = FALSE;
}
}
}
return (0);
}
//íííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííí
int CountTrades() {
int count = 0;
for (int trade = OrdersTotal() - 1; trade >= 0; trade--) {
OrderSelect(trade, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() != Symbol() || OrderMagicNumber() != MagicNumber) continue;
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber)
if (OrderType() == OP_SELL || OrderType() == OP_BUY) count++;
}
return (count);
}
int LockTicket(int m) {
int t = 0;
for (int trade = OrdersTotal() - 1; trade >= 0; trade--) {
OrderSelect(trade, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() != Symbol() || OrderMagicNumber() != m) continue;
if (OrderSymbol() == Symbol() && OrderMagicNumber() == m)
if (OrderType() == OP_SELL || OrderType() == OP_BUY)t=OrderTicket();
}
return (t);
}
//íííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííí
void again() {
timeprev = Time[1];
return (0);
}
void CloseThisSymbolAll(int mn) {
for (int trade = OrdersTotal() - 1; trade >= 0; trade--) {
OrderSelect(trade, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() == Symbol()) {
if (OrderSymbol() == Symbol() && OrderMagicNumber() == mn) {
while (!IsTradeAllowed()) Sleep(1000);
if (OrderType() == OP_BUY) OrderClose(OrderTicket(), OrderLots(), NormalizeDouble(Bid,Digits), slip, Blue);
if (OrderType() == OP_SELL) OrderClose(OrderTicket(), OrderLots(), NormalizeDouble(Ask,Digits), slip, Red);
PrintF ("close ALL orders Type : order : Bid "+OrderType()+" : "+OrderOpenPrice()+" : "+Bid);
}
}
}
}
//íííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííí
int OpenPendingOrder(int pType, double pLots, double pPrice, int pSlippage, double ad_24, int ai_32, int ai_36, string a_comment_40, int a_magic_48, int a_datetime_52, color a_color_56) {
int l_ticket_60 = 0;
int l_error_64 = 0;
int l_count_68 = 0;
int li_72 = 3;
pPrice=NormalizeDouble(pPrice,Digits);
switch (pType) {
case 2:
for (l_count_68 = 0; l_count_68 < li_72; l_count_68++) {
l_ticket_60 = OrderSend(Symbol(), OP_BUYLIMIT, pLots, RoundToTickSize(pPrice), pSlippage, StopLong(ad_24, ai_32), TakeLong(pPrice, ai_36), a_comment_40, a_magic_48, a_datetime_52, a_color_56);
l_error_64 = GetLastError();
if (l_error_64 == 0/* NO_ERROR */) break;
if (!(l_error_64 == 4/* SERVER_BUSY */ || l_error_64 == 137/* BROKER_BUSY */ || l_error_64 == 146/* TRADE_CONTEXT_BUSY */ || l_error_64 == 136/* OFF_QUOTES */)) break;
Sleep(1000);
}
break;
case 4:
for (l_count_68 = 0; l_count_68 < li_72; l_count_68++) {
l_ticket_60 = OrderSend(Symbol(), OP_BUYSTOP, pLots, RoundToTickSize(pPrice), pSlippage, StopLong(ad_24, ai_32), TakeLong(pPrice, ai_36), a_comment_40, a_magic_48, a_datetime_52, a_color_56);
l_error_64 = GetLastError();
if (l_error_64 == 0/* NO_ERROR */) break;
if (!(l_error_64 == 4/* SERVER_BUSY */ || l_error_64 == 137/* BROKER_BUSY */ || l_error_64 == 146/* TRADE_CONTEXT_BUSY */ || l_error_64 == 136/* OFF_QUOTES */)) break;
Sleep(5000);
}
break;
case 0:
for (l_count_68 = 0; l_count_68 < li_72; l_count_68++) {
RefreshRates();
l_ticket_60 = OrderSend(Symbol(), OP_BUY, pLots, RoundToTickSize(Ask), pSlippage, StopLong(Bid, ai_32), TakeLong(Ask, ai_36), a_comment_40, a_magic_48, a_datetime_52, a_color_56);
l_error_64 = GetLastError();
if (l_error_64 == 0/* NO_ERROR */) break;
if (!(l_error_64 == 4/* SERVER_BUSY */ || l_error_64 == 137/* BROKER_BUSY */ || l_error_64 == 146/* TRADE_CONTEXT_BUSY */ || l_error_64 == 136/* OFF_QUOTES */)) break;
Sleep(5000);
}
break;
case 3:
for (l_count_68 = 0; l_count_68 < li_72; l_count_68++) {
l_ticket_60 = OrderSend(Symbol(), OP_SELLLIMIT, pLots, RoundToTickSize(pPrice), pSlippage, StopShort(ad_24, ai_32), TakeShort(pPrice, ai_36), a_comment_40, a_magic_48, a_datetime_52, a_color_56);
l_error_64 = GetLastError();
if (l_error_64 == 0/* NO_ERROR */) break;
if (!(l_error_64 == 4/* SERVER_BUSY */ || l_error_64 == 137/* BROKER_BUSY */ || l_error_64 == 146/* TRADE_CONTEXT_BUSY */ || l_error_64 == 136/* OFF_QUOTES */)) break;
Sleep(5000);
}
break;
case 5:
for (l_count_68 = 0; l_count_68 < li_72; l_count_68++) {
l_ticket_60 = OrderSend(Symbol(), OP_SELLSTOP, pLots, RoundToTickSize(pPrice), pSlippage, StopShort(ad_24, ai_32), TakeShort(pPrice, ai_36), a_comment_40, a_magic_48, a_datetime_52, a_color_56);
l_error_64 = GetLastError();
if (l_error_64 == 0/* NO_ERROR */) break;
if (!(l_error_64 == 4/* SERVER_BUSY */ || l_error_64 == 137/* BROKER_BUSY */ || l_error_64 == 146/* TRADE_CONTEXT_BUSY */ || l_error_64 == 136/* OFF_QUOTES */)) break;
Sleep(5000);
}
break;
case 1:
for (l_count_68 = 0; l_count_68 < li_72; l_count_68++) {
l_ticket_60 = OrderSend(Symbol(), OP_SELL, pLots, RoundToTickSize(Bid), pSlippage, StopShort(Ask, ai_32), TakeShort(Bid, ai_36), a_comment_40, a_magic_48, a_datetime_52, a_color_56);
l_error_64 = GetLastError();
if (l_error_64 == 0/* NO_ERROR */) break;
if (!(l_error_64 == 4/* SERVER_BUSY */ || l_error_64 == 137/* BROKER_BUSY */ || l_error_64 == 146/* TRADE_CONTEXT_BUSY */ || l_error_64 == 136/* OFF_QUOTES */)) break;
Sleep(5000);
}
}
return (l_ticket_60);
}
double StopLong(double ad_0, int ai_8) {
if (ai_8 == 0) return (0);
else return (ad_0 - ai_8 * Point);
}
double StopShort(double ad_0, int ai_8) {
if (ai_8 == 0) return (0);
else return (ad_0 + ai_8 * Point);
}
double TakeLong(double ad_0, int ai_8) {
if (ai_8 == 0) return (0);
else return (ad_0 + ai_8 * Point);
}
double TakeShort(double ad_0, int ai_8) {
if (ai_8 == 0) return (0);
else return (ad_0 - ai_8 * Point);
}
double CalculateProfit() {
double ld_ret_0 = 0;
for (cnt = OrdersTotal() - 1; cnt >= 0; cnt--) {
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() != Symbol() || OrderMagicNumber() != MagicNumber) continue;
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber)
if (OrderType() == OP_BUY || OrderType() == OP_SELL) ld_ret_0 += OrderProfit();
}
return (ld_ret_0);
}
void TrailingAlls()
{
int total2=CountTrades();
if (CalculateProfit()<=0 || total2==0) return(0);
double AveragePrice2 = 0;
double Count2 = 0;
int dir=-1;
for (int cnt = OrdersTotal() - 1; cnt >= 0; cnt--) {
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() != Symbol() || OrderMagicNumber() != MagicNumber) continue;
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber) {
if (OrderType() == OP_BUY || OrderType() == OP_SELL) {
AveragePrice2 += OrderOpenPrice() * OrderLots();
Count2 += OrderLots();
if (OrderType() == OP_BUY) dir=0;
if (OrderType() == OP_SELL) dir=1;
}
}
}
if (total2 > 0)
{
AveragePrice2 = RoundToTickSize(AveragePrice2/Count2);
}
if (dir==0)
{
if (AveragePrice2>Bid-ProfitTrailDist*Point) return(0);
}
if (dir==1)
{
if (AveragePrice2<Bid+ProfitTrailDist*Point) return(0);
}
for (int i = OrdersTotal() - 1; i >= 0; i--)
{
if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
{
if (OrderSymbol() != Symbol() || OrderMagicNumber() != MagicNumber) continue;
if (OrderSymbol() == Symbol() || OrderMagicNumber() == MagicNumber)
{
if (UseTrailingStop==1) TrailingStairs(OrderTicket(),TrailDist,TrailStep,AveragePrice2);
if (UseTrailingStop==2) TrailingStairs2(OrderTicket(),TrailDist,TrailStep,AveragePrice2);
}
}
}
}
//+------------------------------------------------------------------+
//| ÒÐÅÉËÈÍà ÑÒÀÍÄÀÐÒÍÛÉ-ÑÒÓÏÅÍ×ÀÑÒÛÉ |
//| Ôóíêöèè ïåðåäà¸òñÿ òèêåò ïîçèöèè, ðàññòîÿíèå îò êóðñà îòêðûòèÿ, |
//| íà êîòîðîì òðåéëèíã çàïóñêàåòñÿ (ïóíêòîâ) è "øàã", ñ êîòîðûì îí |
//| ïåðåíîñèòñÿ (ïóíêòîâ) |
//| Ïðèìåð: ïðè +30 ñòîï íà +10, ïðè +40 - ñòîï íà +20 è ò.ä. |
//+------------------------------------------------------------------+
void TrailingStairs(int ticket,int trldistance,int trlstep,double avg)
{
double nextstair; // áëèæàéøåå çíà÷åíèå êóðñà, ïðè êîòîðîì áóäåì ìåíÿòü ñòîïëîññ
// ïðîâåðÿåì ïåðåäàííûå çíà÷åíèÿ
if ((trldistance<MarketInfo(Symbol(),MODE_STOPLEVEL)) || (trlstep<1) || (trldistance<trlstep) || (ticket==0) || (!OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)))
{
Print("Òðåéëèíã ôóíêöèåé TrailingStairs() íåâîçìîæåí èç-çà íåêîððåêòíîñòè çíà÷åíèé ïåðåäàííûõ åé àðãóìåíòîâ.");
return(0);
}
// åñëè äëèííàÿ ïîçèöèÿ (OP_BUY)
if (OrderType()==OP_BUY)
{
// ðàñ÷èòûâàåì, ïðè êàêîì çíà÷åíèè êóðñà ñëåäóåò ñêîððåêòèðîâàòü ñòîïëîññ
// åñëè ñòîïëîññ íèæå îòêðûòèÿ èëè ðàâåí 0 (íå âûñòàâëåí), òî áëèæàéøèé óðîâåíü = êóðñ îòêðûòèÿ + trldistance + ñïðýä
if ((OrderStopLoss()==0))
nextstair = avg + trldistance*Point;
// èíà÷å áëèæàéøèé óðîâåíü = òåêóùèé ñòîïëîññ + trldistance + trlstep + ñïðýä
else
nextstair = OrderStopLoss() + trldistance*Point;
// åñëè òåêóùèé êóðñ (Bid) >= nextstair è íîâûé ñòîïëîññ òî÷íî ëó÷øå òåêóùåãî, êîððåêòèðóåì ïîñëåäíèé
if (Bid>=nextstair)
if ((OrderStopLoss()==0))
OrderModify(ticket,OrderOpenPrice(),avg + trlstep*Point,OrderTakeProfit(),OrderExpiration());
else
OrderModify(ticket,OrderOpenPrice(),OrderStopLoss() + trlstep*Point,OrderTakeProfit(),OrderExpiration());
}
// åñëè êîðîòêàÿ ïîçèöèÿ (OP_SELL)
if (OrderType()==OP_SELL)
{
// ðàñ÷èòûâàåì, ïðè êàêîì çíà÷åíèè êóðñà ñëåäóåò ñêîððåêòèðîâàòü ñòîïëîññ
// åñëè ñòîïëîññ íèæå îòêðûòèÿ èëè ðàâåí 0 (íå âûñòàâëåí), òî áëèæàéøèé óðîâåíü = êóðñ îòêðûòèÿ + trldistance + ñïðýä
if ((OrderStopLoss()==0) )
nextstair = avg - (trldistance + MarketInfo(Symbol(),MODE_SPREAD))*Point;
// èíà÷å áëèæàéøèé óðîâåíü = òåêóùèé ñòîïëîññ + trldistance + trlstep + ñïðýä
else
nextstair = OrderStopLoss() - (trldistance + MarketInfo(Symbol(),MODE_SPREAD))*Point;
// åñëè òåêóùèé êóðñ (Àñê) >= nextstair è íîâûé ñòîïëîññ òî÷íî ëó÷øå òåêóùåãî, êîððåêòèðóåì ïîñëåäíèé
if (Ask<=nextstair)
if ((OrderStopLoss()==0))
OrderModify(ticket,OrderOpenPrice(),avg - (trlstep + MarketInfo(Symbol(),MODE_SPREAD))*Point,OrderTakeProfit(),OrderExpiration());
else
OrderModify(ticket,OrderOpenPrice(),OrderStopLoss()- (trlstep + MarketInfo(Symbol(),MODE_SPREAD))*Point,OrderTakeProfit(),OrderExpiration());
}
}
void TrailingStairs2(int ticket,int trldistance,int trlstep,double avg)
{
double nextstair; // áëèæàéøåå çíà÷åíèå êóðñà, ïðè êîòîðîì áóäåì ìåíÿòü ñòîïëîññ
// ïðîâåðÿåì ïåðåäàííûå çíà÷åíèÿ
if ((trldistance<MarketInfo(Symbol(),MODE_STOPLEVEL)) || (trlstep<1) || (trldistance<trlstep) || (ticket==0) || (!OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)))
{
Print("Òðåéëèíã ôóíêöèåé TrailingStairs() íåâîçìîæåí èç-çà íåêîððåêòíîñòè çíà÷åíèé ïåðåäàííûõ åé àðãóìåíòîâ.");
return(0);
}
// åñëè äëèííàÿ ïîçèöèÿ (OP_BUY)
if (OrderType()==OP_BUY)
{
// ðàñ÷èòûâàåì, ïðè êàêîì çíà÷åíèè êóðñà ñëåäóåò ñêîððåêòèðîâàòü ñòîïëîññ
// åñëè ñòîïëîññ íèæå îòêðûòèÿ èëè ðàâåí 0 (íå âûñòàâëåí), òî áëèæàéøèé óðîâåíü = êóðñ îòêðûòèÿ + trldistance + ñïðýä
if ((OrderStopLoss()==0))
nextstair = avg + trldistance*Point;
// èíà÷å áëèæàéøèé óðîâåíü = òåêóùèé ñòîïëîññ + trldistance + trlstep + ñïðýä
else
{double trl=(OrderStopLoss()-avg)/Point;
nextstair = OrderStopLoss() + xtral*trl*Point;}
// åñëè òåêóùèé êóðñ (Bid) >= nextstair è íîâûé ñòîïëîññ òî÷íî ëó÷øå òåêóùåãî, êîððåêòèðóåì ïîñëåäíèé
if (Bid>=nextstair)
if ((OrderStopLoss()==0))
OrderModify(ticket,OrderOpenPrice(),avg + trlstep*Point,OrderTakeProfit(),OrderExpiration());
else
OrderModify(ticket,OrderOpenPrice(),OrderStopLoss() + trlstep*Point,OrderTakeProfit(),OrderExpiration());
}
// åñëè êîðîòêàÿ ïîçèöèÿ (OP_SELL)
if (OrderType()==OP_SELL)
{
// ðàñ÷èòûâàåì, ïðè êàêîì çíà÷åíèè êóðñà ñëåäóåò ñêîððåêòèðîâàòü ñòîïëîññ
// åñëè ñòîïëîññ íèæå îòêðûòèÿ èëè ðàâåí 0 (íå âûñòàâëåí), òî áëèæàéøèé óðîâåíü = êóðñ îòêðûòèÿ + trldistance + ñïðýä
if ((OrderStopLoss()==0) )
nextstair = avg - (trldistance + MarketInfo(Symbol(),MODE_SPREAD))*Point;
// èíà÷å áëèæàéøèé óðîâåíü = òåêóùèé ñòîïëîññ + trldistance + trlstep + ñïðýä
else
{trl=(avg-OrderStopLoss())/Point;
nextstair = OrderStopLoss() - (trl*xtral + MarketInfo(Symbol(),MODE_SPREAD))*Point;
}
// åñëè òåêóùèé êóðñ (Àñê) >= nextstair è íîâûé ñòîïëîññ òî÷íî ëó÷øå òåêóùåãî, êîððåêòèðóåì ïîñëåäíèé
if (Ask<=nextstair)
if ((OrderStopLoss()==0))
OrderModify(ticket,OrderOpenPrice(),avg - (trlstep + MarketInfo(Symbol(),MODE_SPREAD))*Point,OrderTakeProfit(),OrderExpiration());
else
OrderModify(ticket,OrderOpenPrice(),OrderStopLoss()- (trlstep + MarketInfo(Symbol(),MODE_SPREAD))*Point,OrderTakeProfit(),OrderExpiration());
}
}
double AccountEquityHigh() {
if (CountTrades() == 0) AccountEquityHighAmt = AccountEquity();
if (AccountEquityHighAmt < PrevEquity) AccountEquityHighAmt = PrevEquity;
else AccountEquityHighAmt = AccountEquity();
PrevEquity = AccountEquity();
return (AccountEquityHighAmt);
}
double FindMinBuyPrice() {
double l_ord_open_price_8;
double l_ticket_24;
double ld_unused_0 = 0;
double l_ticket_20 = 1000000000;
for (int l_pos_16 = OrdersTotal() - 1; l_pos_16 >= 0; l_pos_16--) {
OrderSelect(l_pos_16, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() != Symbol() || OrderMagicNumber() != MagicNumber) continue;
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber && OrderType() == OP_BUY) {
l_ticket_24 = OrderOpenPrice();
if (l_ticket_24 < l_ticket_20) {
l_ord_open_price_8 = OrderOpenPrice();
l_ticket_20 = l_ticket_24;
}
}
}
return (l_ord_open_price_8);
}
double FindMaxSellPrice() {
double l_ord_open_price_8;
double l_ticket_24;
double ld_unused_0 = 0;
double l_ticket_20 = 0;
for (int l_pos_16 = OrdersTotal() - 1; l_pos_16 >= 0; l_pos_16--) {
OrderSelect(l_pos_16, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() != Symbol() || OrderMagicNumber() != MagicNumber) continue;
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber && OrderType() == OP_SELL) {
l_ticket_24 = OrderOpenPrice();
if (l_ticket_24 > l_ticket_20) {
l_ord_open_price_8 = OrderOpenPrice();
l_ticket_20 = l_ticket_24;
}
}
}
return (l_ord_open_price_8);
}
double GetLots()
{
double minlot = MarketInfo(Symbol(), MODE_MINLOT);
if(Risk!=0)
{
double lot = NormalizeDouble(AccountBalance() * Risk/100 / 1000.0, lotdecimal);
if(lot < minlot) lot = minlot;
}
else lot=Lots;
return(lot);
}
double PipStepX(int dir)
{
if (PipStep==0) double r=psarr[NumT()];
if (PipStep>0)r=PipStep;
return(r);
}
int TrenT()
{
int t=FillArray(MagicNumber);
// ïîäñ÷èòûâåì ñêîëüêî îòêðûòî îðäåðîâ ñ îäèíàêîâûì øàãîì ïî òðåíäó è åñòü ëè îðäåðà îòêðûòûå óæå ïðîòèâ òðåíäà ñ áîëüøèì ëîòîì
double minl1=10000;
if (Risk==0) minl1=Lots;
if (Risk>0)
{
for (int i=0;i<100;i++)
{
if (minl1>lota[i] && lota[i]>0) minl1=lota[i];
}
} // Risk
if (lota[ArrayMaximum(lota)]>minl1) { TrendRe=0;return(0);}
ModifTrendOrders();
TrendRe=1;
int ii=-1; int jj=-1; // èùåì ñàìû âåðõíèé áàé è ñàìû íèæíèé ñåëë îðäåð
double lastb=0; double lasts=10000000;
// äîêóïàåì ïîçèöèè ïî òðåíäó
for(int cnt=0;cnt<100;cnt++)
{
if (modea[cnt]==0 && opa[cnt]>lastb && opa[cnt]>0){lastb=opa[cnt];ii=cnt;}
if (modea[cnt]==1 && opa[cnt]<lasts && opa[cnt]>0){lasts=opa[cnt];jj=cnt;}
}
if (modea[0]==0)
{
if (Ask>=lastb+TrendPS*Point)
{
ticket=OrderSend(Symbol(),OP_BUY,minl1,NormalizeDouble(Ask,Digits),slip,0,0,"trend",MagicNumber,0,Green);
if (ticket>0)
{
ModifTrendOrders();
return(0);
}
}
}
if (modea[0]==1)
{
if (Bid<=lasts-TrendPS*Point)
{
ticket=OrderSend(Symbol(),OP_SELL,minl1,NormalizeDouble(Bid,Digits),slip,0,0,"trend",MagicNumber,0,Red);
if (ticket>0)
{
ModifTrendOrders();
return(0);
}
}
}
}
int FillArray(int mn1) // ïðîöåäóðà ïîäñ÷åòà âñåõ îðäåðîâ äàííîãî ýêñïåðòà ïî äàííîìó èíñòðóìåíòó
{
ArrayInitialize(lota,-1);
ArrayInitialize(modea,-1);
ArrayInitialize(opa,-1);
ArrayInitialize(sla,-1);
ArrayInitialize(tpa,-1);
ArrayInitialize(tima,-1);
ArrayInitialize(ticka,-1);
ArrayInitialize(profa,-0.001);
int c=0;
int total = OrdersTotal();
for (int cnt = 0 ; cnt < total ; cnt++)
{
OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES);
if (OrderMagicNumber() == MagicNumber && OrderSymbol()==Symbol())
{
lota[c]=OrderLots();
modea[c]=OrderType();
opa[c]=OrderOpenPrice();
sla[c]=OrderStopLoss();
tpa[c]=OrderTakeProfit();
comma[c]=OrderComment();
tima[c]=OrderOpenTime();
ticka[c]=OrderTicket();
profa[c]=OrderProfit()+OrderCommission()+OrderSwap();
c++;
}
}
// for (cnt=0;cnt<to;cnt++) { PrintF(lota[cnt]," ", modea[cnt], " ", opa[cnt], " ", sla[cnt], " ", tpa[cnt], " ", tima[cnt], " ", ticka[cnt] ); }
return(c);
}
int ModifTrendOrders()
{
if (ProfitPerc>0)
{
int zk=0;
for (int i=0;i<OrdersTotal();i++)
{
if (profa[i]!=-0.001) zk=zk+profa[i];
}
if (zk>=AccountBalance()*ProfitPerc/100)
{
CloseThisSymbolAll(MagicNumber);
}
}
if (MinProfitPips>0)
{
double nf=0; double mpric=0;int k=0;
nf=nulfunc(MagicNumber);
double allpro=0;
if (modea[0]==0)
{
double a1=nf+(MinProfitPips+1)*Point;
for (i=0;i<100;i++)
{
if (opa[i]>mpric) mpric=opa[i];
if (profa[i]!=-0.001) allpro=allpro+profa[i];
if (profa[i]<=0 && profa[i]!=-0.001) k=k+1;
if ((opa[i]<=Bid-TrendPS*1.5*Point) && (sla[i]<Bid-TrendPS*Point) && opa[i]>0 && Bid-TrendPS*Point<Bid-MarketInfo(Symbol(),MODE_STOPLEVEL)*Point && a1>Bid-TrendPS*Point)
{
if (ticka[i]>0)
{
OrderSelect(ticka[i],SELECT_BY_TICKET);
if (OrderStopLoss()!=mpric-TrendPS*Point) {ModifyOrder(Symbol(),OrderOpenPrice(),mpric-TrendPS*Point,OrderTakeProfit(),Green); }
}
}
}//a1+TrendPS*Point>=Bid &&
if (mpric>a1+TrendPS*Point && a1+TrendPS*Point>=Bid && Bid>=a1 && CountTrades()>2 && allpro>0) CloseThisSymbolAll2();
if (mpric<a1+TrendPS*Point && k>=NumTr && CountTrades()>NumTr) ClosePlusOrders(k);
// if (mpric>a1+TrendPS*Point && Bid<=a1 && k>=NumTr && CountTrades()>NumTr && allpro<0) ClosePlusOrders(k);
} // modea==0
if (modea[0]==1)
{mpric=1000000000;k=0;
a1=nf-(MinProfitPips+1)*Point;
for (i=0;i<100;i++)
{
if (opa[i]<mpric) mpric=opa[i];
if (profa[i]!=-0.001) allpro=allpro+profa[i];
if (profa[i]<=0 && profa[i]!=-0.001) k=k+1;
if ((opa[i]>=Ask+TrendPS*1.5*Point) && (sla[i]>Ask+TrendPS*Point || sla[i]==0) && opa[i]>0 && Ask+TrendPS*Point>Ask+MarketInfo(Symbol(),MODE_STOPLEVEL)*Point && a1<Ask+TrendPS*Point)
{
if (ticka[i]>0)
{
OrderSelect(ticka[i],SELECT_BY_TICKET);
if (OrderStopLoss()!=mpric+TrendPS*Point) {ModifyOrder(Symbol(),OrderOpenPrice(),mpric+TrendPS*Point,OrderTakeProfit(),Red); }
}
}
}//a1-TrendPS*Point<=Ask &&
if (mpric>a1+TrendPS*Point && a1+TrendPS*Point>=Bid && Bid>=a1 && CountTrades()>2 && allpro>0) CloseThisSymbolAll2();
if (mpric<a1+TrendPS*Point && k>=NumTr && CountTrades()>NumTr) ClosePlusOrders(k);
//if (mpric<a1-TrendPS*Point && Ask>=a1 && k>=NumTr && CountTrades()>NumTr && allpro<0) ClosePlusOrders(k);
} // modea==1
}
return(0);
}
double FindMaxLots() {
double l_ord_open_price_8;
double l_ticket_24;
double ld_unused_0 = 0;
double l_ticket_20 = 0;
for (int l_pos_16 = OrdersTotal() - 1; l_pos_16 >= 0; l_pos_16--) {
OrderSelect(l_pos_16, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() != Symbol() || OrderMagicNumber() != MagicNumber) continue;
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber) {
l_ticket_24 = OrderLots();
if (l_ticket_24 > l_ticket_20) {
l_ticket_20 = l_ticket_24;
}
}
}
return (l_ticket_20);
}
double nulfunc(int mn) // äëÿ ïîäñ÷åòà òî÷êè áåçóáûòî÷íîñòè âñåõ îòêðûòûõ îðäåðîâ (åñëè âñå èõ çàêðûòü ïî ýòîé öåíå òî ïîëó÷èì 0)
{
double np=0;double f=0; double p=0;double l=0; int m=0;
for(int t1=0;t1<OrdersTotal();t1++)
{
OrderSelect(t1, SELECT_BY_POS, MODE_TRADES);
m = OrderType();p=OrderOpenPrice();l=OrderLots();if (m==OP_BUY){l=-l;}
if ((m==OP_BUY || m==OP_SELL) && OrderMagicNumber() == mn && OrderSymbol()==Symbol())
{
np=np+l*p;
f=f+l;
}
}
if (f!=0) np=NormalizeDouble(MathAbs(np/f), Digits);
return (np);
}
int PercCloseDown()
{
if (PercClose!=0 && PercDown!=0 && total>0)
{
double Pr11=0; int oti=2147483647;
for (int cnt = OrdersTotal() - 1; cnt >= 0; cnt--)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() != Symbol() || OrderMagicNumber() != MagicNumber) continue;
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber)
Pr11=Pr11+OrderProfit()+OrderCommission()+OrderSwap();
if (oti>OrderTicket()) oti=OrderTicket();
}
if (FirstTr<oti) {FirstTr=oti;LastDD=0;}
if (LastDD>Pr11 && Pr11<0) {LastDD=Pr11;}
if (MathAbs(LastDD)>PercDown*AccountBalance()/100 && MathAbs(Pr11)<=PercClose*AccountBalance()/100) {LastDD=0;FirstTr=0;CloseThisSymbolAll(MagicNumber);}
}
}
int ProfitMonitor()
{
int total1 = CountTrades();
double AveragePrice1 = 0;
double Count1 = 0;
double Profit1=0;
double ProfitPoint=0;
int dir = -1;
for (cnt = OrdersTotal() - 1; cnt >= 0; cnt--)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() != Symbol() || OrderMagicNumber() != MagicNumber) continue;
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber)
{
if (OrderType() == OP_BUY || OrderType() == OP_SELL)
{
AveragePrice1 += OrderOpenPrice() * OrderLots();
Count1 += OrderLots();
Profit1+= OrderProfit();
if (OrderType() == OP_BUY) dir=0;
if (OrderType() == OP_SELL) dir=1;
}
}
}
if (total1 > 2)
{
AveragePrice1 = NormalizeDouble(AveragePrice1 / Count1, Digits);
int ProfitPips=0;
if (TakeProfit==0) ProfitPips=tparr[NumT()];
if (TakeProfit!=0) ProfitPips=TakeProfit;
if (total1>LastTrade) ProfitPips=TakeProfitLast;
if (dir==0 && TrendRe==0) {ProfitPoint=AveragePrice1+ProfitPips*Point;if (Bid>=ProfitPoint) CloseThisSymbolAll(MagicNumber); }
if (dir==1 && TrendRe==0) {ProfitPoint=AveragePrice1-ProfitPips*Point;if (Ask<=ProfitPoint) CloseThisSymbolAll(MagicNumber); }
}
}
//+----------------------------------------------------------------------------+
//| Ìîäèôèêàöèÿ îðäåðà |
//| Ïàðàìåòðû: |
//| sy - íàèìåíîâàíèå èíñòðóìåíòà ("" - òåêóùèé ñèìâîë) |
//| pp - öåíà îòêðûòèÿ ïîçèöèè, óñòàíîâêè îðäåðà |
//| sl - öåíîâîé óðîâåíü ñòîïà |
//| tp - öåíîâîé óðîâåíü òåéêà |
//| cl - öâåò |
//+----------------------------------------------------------------------------+
void ModifyOrder(string sy="", double pp=-1, double sl=0, double tp=0, color cl=CLR_NONE) {
if (sy=="") sy=Symbol();
bool fm;
int NumberOfTry=1;
int PauseAfterError=10;
double pAsk=MarketInfo(sy, MODE_ASK);
double pBid=MarketInfo(sy, MODE_BID);
int dg, err, it;
if (pp<=0) pp=OrderOpenPrice();
if (sl<0) sl=OrderStopLoss();
if (tp<0) tp=OrderTakeProfit();
dg=MarketInfo(sy, MODE_DIGITS);
pp=RoundToTickSize(pp);
sl=RoundToTickSize(sl);
tp=RoundToTickSize(tp);
if (pp!=OrderOpenPrice() || sl!=OrderStopLoss() || tp!=OrderTakeProfit()) {
for (it=1; it<=NumberOfTry; it++) {
if (!IsTesting() && (!IsExpertEnabled() || IsStopped())) break;
while (!IsTradeAllowed()) Sleep(5000);
RefreshRates();
if (NormalizeDouble(tp,Digits)!=OrderTakeProfit()) fm=OrderModify(OrderTicket(), NormalizeDouble(pp,Digits), NormalizeDouble(sl,Digits), NormalizeDouble(tp,Digits), 0, cl);
if (fm) {
//if (UseSound) PlaySound(NameFileSound); break;
} else {
err=GetLastError();
PrintF("Error("+err+") modifying order: try "+it);
PrintF("Ask="+pAsk+" Bid="+pBid+" sy="+sy+" op="+OrderType()+
" pp="+pp+" sl="+sl+" OrderStopLoss() "+OrderStopLoss()+" tp="+tp+" OrderTakeProfit "+OrderTakeProfit());
Sleep(1000*PauseAfterError);
}
}
}
}
//+----------------------------------------------------------------------------+
int ClosePlusOrders(int kk)
{
for (int trade = OrdersTotal() - 1; trade >= 0; trade--) {
OrderSelect(trade, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() == Symbol()) {
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber && OrderProfit()+OrderSwap()>0) {
if (OrderType() == OP_BUY && OrderOpenPrice()+MinProfitPipsOne*Point<=Ask && OrderTakeProfit()==0) OrderClose(OrderTicket(), OrderLots(), NormalizeDouble(Bid,Digits), minslip, Blue);
if (OrderType() == OP_SELL && OrderOpenPrice()-MinProfitPipsOne*Point>=Bid && OrderTakeProfit()==0) OrderClose(OrderTicket(), OrderLots(), NormalizeDouble(Ask,Digits), minslip, Red);
PrintF ("close plus orders Type : order : Bid "+OrderType()+" : "+OrderOpenPrice()+" : "+Bid);
}
while (!IsTradeAllowed()) Sleep(1000);
RefreshRates();
}
}
}
int PrintF (string s)
{
if (ComOn==1) Print(s);
}
double RoundToTickSize(double price){return(NormalizeDouble(MathRound(price/MarketInfo(Symbol(), MODE_TICKSIZE))*MarketInfo(Symbol(), MODE_TICKSIZE), MarketInfo(Symbol(), MODE_DIGITS)));}
int NumT() // îïðåäåëåíèå íîìåðà òåêóùåé ñäåëêè
{int nmax=0;
for (int cnt = OrdersTotal() - 1; cnt >= 0; cnt--)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() != Symbol() || OrderMagicNumber() != MagicNumber) continue;
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber)
{
if (OrderType() == OP_BUY || OrderType() == OP_SELL)
{
if (OrderComment()!="trend") nmax=nmax+1;
}}}
// Print (" nmax ",nmax);
return(nmax);
}
//void LockPositions() { }
void CloseThisSymbolAll2() {
for (int trade = 0; trade <= 99; trade++) {
OrderSelect(ticka[trade], SELECT_BY_TICKET, MODE_TRADES);
if (OrderSymbol() == Symbol()) {
if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber) {
while (!IsTradeAllowed()) Sleep(1000);
RefreshRates();
if (OrderType() == OP_BUY) OrderClose(OrderTicket(), OrderLots(), NormalizeDouble(Bid,Digits), slip, Blue);
if (OrderType() == OP_SELL) OrderClose(OrderTicket(), OrderLots(), NormalizeDouble(Ask,Digits), slip, Red);
PrintF ("close ALL orders Type : order : Bid "+OrderType()+" : "+OrderOpenPrice()+" : "+Bid);
}
}
}
}
int Dir(int mn)
{
int r=-1;
for (int i = OrdersTotal() - 1; i >= 0; i--)
{
OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() != Symbol() || OrderMagicNumber() != mn) continue;
if (OrderSymbol() == Symbol() && OrderMagicNumber() == mn) {
if (OrderType() == OP_BUY)
{
r=1;
}
}
if (OrderSymbol() == Symbol() && OrderMagicNumber() == mn) {
if (OrderType() == OP_SELL) {
r=-1;
}
}
}
return(r);
}
double Balance(string OrdType, string inf, int mn)
{
double result=0, FProf = 0;
int trade;
for(trade=OrdersTotal()-1;trade>=0;trade--)
{
OrderSelect(trade, SELECT_BY_POS, MODE_TRADES);
if(OrderSymbol()!=Symbol()||OrderMagicNumber()!=mn) continue;
if(OrderSymbol()==Symbol()&&OrderMagicNumber()==mn)
{
if (OrdType == "buy")
{
if(OrderType()==OP_BUY)
{
if (inf=="Balance") result=result+OrderProfit()-OrderSwap()-OrderCommission();
if (inf=="Lot") result=result+OrderLots();
//if (inf=="FP") result=result + (OrderLots()*100000*(OrderTakeProfit()-OrderOpenPrice())/AccountLeverage());
}
}
if (OrdType == "sell")
{
if(OrderType()==OP_SELL )
{
if (inf=="Balance") result=result+OrderProfit()-OrderSwap()-OrderCommission();
if (inf=="Lot") result=result+OrderLots();
//if (inf=="FP") result=result + (OrderLots()*100000*(-OrderTakeProfit()+OrderOpenPrice())/AccountLeverage());
}
}
}
}
return(result);
}
double LotSiz(double ltt)
{
double ls=0;
double minlot=MarketInfo(Symbol(), MODE_MINLOT);
double maxlot=MarketInfo(Symbol(), MODE_MAXLOT);
double steplot=MarketInfo(Symbol(), MODE_LOTSTEP);
int LotsDigits = MathCeil(MathAbs(MathLog(steplot)/MathLog(10)));
ls = NormalizeDouble(ltt,LotsDigits);
if (ltt<minlot) { ls=minlot; }
if (ltt>maxlot) { ls=maxlot; }
//int LotsDigits = MathCeil(MathAbs(MathLog( MarketInfo(Symbol(),MODE_MINLOT))/MathLog(10)));
//Êîëè÷åñòâî çíà÷àùèõ öèôð ïîñëå çàïÿòîé â ðàçìåðå ïîçèöèè.
return(ls);
}
double CountLots(int mn) {
double l_count_0 = 0;
for (int i = OrdersTotal() - 1; i >= 0; i--) {
OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() != Symbol() || OrderMagicNumber() != mn) continue;
if (OrderSymbol() == Symbol() && OrderMagicNumber() == mn)
if (OrderType() == OP_SELL || OrderType() == OP_BUY) l_count_0=l_count_0+OrderLots();
}
return (l_count_0);
}
int alert(int d6)
{
int x=0;
string ind_name = "i-Regr";
double ma3=0;
double ma = iCustom(NULL, mper[TFS], ind_name, Regr.degree1, Regr.kstd1, SPer, Regr.shift1,0, 0);
double ma1 = iCustom(NULL, mper[TFS], ind_name, Regr.degree1, Regr.kstd1, SPer, Regr.shift1,0, 1);
if (invert==1) {ma3=ma;ma=ma1;ma1=ma3;}
if (kanal==1)
{
double m_up = iCustom(NULL, mper[TFS], ind_name, Regr.degree1, Regr.kstd1, SPer, Regr.shift1,1, 0);
double m_d = iCustom(NULL, mper[TFS], ind_name, Regr.degree1, Regr.kstd1, SPer, Regr.shift1,2, 0);
if (ma>ma1 && Bid>m_d) x=1;
if (ma<ma1 && Ask<m_up) x=-1;
}
if (kanal==0)
{
if (ma>ma1) x=1;
if (ma<ma1) x=-1;
}
if (kanal==2)
{
m_up = iCustom(NULL, mper[TFS], ind_name, Regr.degree1, Regr.kstd1, SPer, Regr.shift1,1, 0);
m_d = iCustom(NULL, mper[TFS], ind_name, Regr.degree1, Regr.kstd1, SPer, Regr.shift1,2, 0);
if (ma>ma1 && Bid>m_d && Ask<m_up ) x=1;
if (ma<ma1 && Ask<m_up && Bid>m_d ) x=-1;
}
return(x);
}
int alerts(int d6)
{
//if (NumT()<IndStep) return(d6);
int x=0;
string ind_name = "i-Regr";
double ma = iCustom(NULL, mper[TFSmall], ind_name, Regr.degree1mall, Regr.kstd1mall, SPermall, Regr.shift1mall,0, 0);
double ma1 = iCustom(NULL, mper[TFSmall], ind_name, Regr.degree1mall, Regr.kstd1mall, SPermall, Regr.shift1mall,0, 1);
double m_up = iCustom(NULL, mper[TFSmall], ind_name, Regr.degree1mall, Regr.kstd1mall, SPermall, Regr.shift1mall,1, 0);
double m_d = iCustom(NULL, mper[TFSmall], ind_name, Regr.degree1mall, Regr.kstd1mall, SPermall, Regr.shift1mall,2, 0);
if (ma>ma1 && Bid>m_d && Ask<m_up ) x=1;
if (ma<ma1 && Ask<m_up && Bid>m_d ) x=-1;
return(x);
}
Comments