Orders Execution
0
Views
0
Downloads
0
Favorites
Ilan_RSI_mm_extr19
//íííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííí
#property copyright "runik"
#property link "ngb2008@mail.ru"
// 18.1
// + íà 5 çíàêîâ ñäåëàòü àâòîìàòîì ïåðåñ÷åò ïàðàìåòðîâ (â ïîìîùü ïîëüçîâàòåëÿì êîòîðûå íåêîððåêòíî âûñòàâëÿþò ïàðàìåòðû â ïóíêòàõ íà 5 çíàêàõ)
// + ñàì ïîäãðóæàåò êîòèðîâêè ïî âñåì ÒÔ, â òåñòåðå êîòèðîâêè äîëæíû áûòü ïîäãðóæåíû è ïåðåñ÷èòàíû, â äåìî è ðåàëå, íàäî ÷óòü ïîäîæäàòü ïîñëå çàïóñêà ÷òîáû îí ñàì ïîäãðóçèë êîòèðîâêè
// + áîëåå êîððåêòíîå îïðåäåëåíèå ðàçìåðà ëîòà, óáðàë ïàðàìåòð lotdecimal (â ïîìîùü ïîëüçîâàòåëÿì êîòîðûå íåêîððåêòíî âûñòàâëÿþò ëîò)
// + äðóãîé ëîê (íà îñíîâå ïðèíöèïà êà÷ëåé èëè ëàâèíû) ñðàçó ïðåäóïðåæäàþ ëîê è òî êàê îí ðàáîòàåò òåñòèðîâàë íå äîëãî, ìîãóò áûòü îøèáêè
// + âîçìîæíî îòêëþ÷àòü èíäèêàòîðû è òîðãîâàòü â îäíó ñòîðîíó êàê õî÷åòüñÿ (ñì. ïàðàìåòðû FDir, IndOff1, IndOff2)
// !!! äîïèñàòü âûâîä êîììåíòàðèåâ î ñîñòîÿíèè ñîâåòíèêà
// ñîâåòíèê ìîæíî ñòàâèò íà ëþáîé ãðàôèê îò ì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}; // dec íà êàæäûé øàã åñëè 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(çíà÷åíèÿ äëÿ 5 çíàêîâ íàäî ñàìèì çàáèâàòü!)
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(çíà÷åíèÿ äëÿ 5 çíàêîâ íàäî ñàìèì çàáèâàòü !)
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; // ïðèíóäèòåëüíûé âûáîð íàïðàâëåíèÿ
// åñëè =-1 îòêðûòèå ïî ñèãíàëó èíäèêàòîðà ëîêàëüíîãî òðåíäà,
// åñëè = 0 òî ïåðâàÿ ñäåëêà âñåãäà è ñðàçó îòêðûâàåòñÿ íà áàé,
// (=1 ñåëë) íå îæèäàÿ óñëîâèÿ íà îòðêðûòèå è îêîí÷àíèÿ áàðà,
// =2 - òî ïðîñòî íåìåäëåííî îòêðûòüñÿ, â çàâèñèìîñòè îò ãëîáàëüíîãî òðåíäà
extern string c3= "Âñïîìîãàòåëüíûå ïàðàìåòðû";
extern int MagicNumber = 54321; // ìàãèê
extern double slip = 3.0; //dec ïðîñêàëüçûâàíèå
// áûâàåò íóæíî ...
extern double PercDown=0; // ò.å. åñëè ìû "çàôèêñèðîâàëè" (ò.å. öåíà óõîäèëà äàëåêî íå â íàøåì íàïðàâëåíèè) ïðîñàäêó íà äåïîçèòå ïî ñåðèè ñäåëîê áîëüøå 30 % îò òåêóùåãî áàëàíñà, òî íàì íàäî ñìàòûâàòüñÿ ñ ðûíêà äà ïîáûñòðåå
extern double PercClose=0; // ïîýòîìó åñëè ìû äîøëè äî 10 % ïðîñàäêè ïîñëå 30 íàäî çàêðûâàòüñÿ ñ òàêèì ìèíóñîì, äàëüøå ñîîòíîøåíèå ïîääåðæèâàåòñÿ, åñëè íà 60 % óõîäèëè â ïðîñàäêó, òî çàêðîåìñÿ ïðè 20 %
// ÷òîáû íå ïîëüçîâàòüñÿ äàííîé ôóíêöèåé íàäî óñòàíîâèò ýòè ïàðàìåòðû ðàâíûìè 0
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= "Ïàðàìåòðû ëîêà";
// êîìó íàäî è ñàì ïîñòàâèò ëîê è ðàçðóëèò, íî ñìûñë òàêîé: ñòàâèì ëîê åñëè èíäèêàòîð trendmagic
// ïîêàçàë äðóãîå íàïðàâëåíèå ÷åì ñåðèÿ èëàíà, åñëè ëîê âûñòàâèëè íåóäà÷íî è öåíà ïîøëà ïðîòèâ ëîêà, òî âûñòàâëÿåì íîâûé ëîêîâûé îðäåð â ïðîòèâîïîëîæåííóþ ñòîðîíó
// âîîáùåì íà òàêîì ïðèíöèïå (îá÷íî íàç. êà÷åëè, ëàâèíà, ðåâåðñèâíûé ìàðòèí) ðàáîòàþò ðÿä ýêñïåðòîâ òèïà õëîïìàñòåð, òóäàñþäà, ÷åáóðàøêà, òóïîé
extern double LockS=0; // ïûòàåìñÿ ëîêèðîâàòü ÷àñòü ïîçèöèé è ïîëó÷èòü äîïîëíèòåëüíóþ ïðèáûëü, åñëè =0 òî íå ðàáîòàåò, åñëè =0.5, òî ëîêèðóåì 50% ïîçèöèé ñåðèè
extern int LMagN=689; // ìàãè÷åñêèé íîìåð äëÿ ëîêîâîé ïîçû
extern int NumLockMin=10; // ïîñëå êàêîãî ïî ñ÷åòó êîëåíà îòêðûâàòü ëîêîâûé îðäåð åñëè èíäèêàòîð ãëîáàëüíîãî òðåíäà èçìåíèë íàïðàâëåíèå
extern int NumLoc=15; // ïîñëå êàêîãî ïî ñ÷åòó êîëåíà îòêðûâàòü ëîêîâûé îðäåð åñëè êîëè÷åñòâî îðäåðîâ ïðîñòî ñòàëî áîëüøèì
extern int MaxDist=400; //dec ìàêñèìàëüíîå ðàññòîÿíèå îò ïåðâîé ñäåëêè ïîñëå êîòîðîãî òàê æå îòêðûâàåì ëîê
extern int LockProfitPerc=1; // ñóììàðíûé çàðàáîòîê â % îò äåïîçèòà ïðè çàêðûòèè âñåõ ëîêîâûõ îðäåðîâ è ñåðèè
extern int koridor = 50; // dec ðàññòîÿíèå â ÷åðåç êîòîðûé ëîê ïåðåâîðà÷èâàåòñÿ â ïóíêòàõ
extern double Lmul = 2; // ìíîæèòåëü âòîðîãî è ïîñëåäóþùèõ ëîêîâûõ îðäåðîâ
extern int MaxLockTrades = 4; // ìàêñèììàëüíîå êîëè÷åñòâî ëîêîâûõ îðäåðîâ
extern int CCPeriod = 50; // ïàðàìåòð òðåíäîâîãî èíäèêàòîðà äëÿ îòêðûòèÿ ëîêà TrendMagic
extern int ATRPeriod = 5; // ïàðàìåòð òðåíäîâîãî èíäèêàòîðà äëÿ îòêðûòèÿ ëîêà TrendMagic
extern int TMTF = 7; // òàéìôðåéì íà êîòîðîì ðàáîòàåò òðåíäîâûé èíäèêàòîð
int TradeAfterLock = 0; // ïðè =0 åñëè ó íàñ îòêðûëñÿ ëîê, òî ìû ïåðåñòàåì òîðãîâàòü, = 1 ïðîäîëæàåì òîðãîâàòü
extern string _tmp2_ = " --- i-Regr --- ñ áîëüøèì ïåðèîäîì îïåðåäåëÿåì ãëîáàëüíûé òðåíä";
// ïî äàííîìó èíäèêàòîðó ñ ýòèìè íàñòðîéêàìè îïðåäåëÿåì "ãëîáàëüíûé òðåíä" ïðîòèâ êîòîðîãî íèêîãäà íå îòêðûâàåìñÿ (ïåðâàÿ ñäåëêà)
// âîîáùåì ýòî è îïðåäåëÿåò ñëèâàåìîñòü äàííîãî ñîâåòíèêà, åñëè îøèáëèñü è îòêðûëèñü íå òóäà, òî çà 2000 ïóíêòîâ ñîëüåìñÿ (åñëè áåç ëîêà è âîøëè áîëüøå ÷åì 5 % äåïî, íà íåêîòðûõ òåñòàõ è ïðîõîäèò)
// ãëàâíîå ÷òîáû ýòèì èíäèêàòîðîì ïîéìàòü ðàçâîðîò ãëîáàëüíîãî òðåíäà !
// äëÿ áîëåå ãèáêîé ðàáîòû ìîæíî äåëàòü ïåðèîä è òàéìôðåéì ìåíüøå, íàïðèìåð (ïàðàìåòðû ïîïîðÿäêó) 3, 1.5, 2, 0, 800, 5, 0
extern bool IndOff1=false; // îòêëþ÷åíèå èíäèêàòîð ïðè = TRUE
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 bool IndOff2=false; // îòêëþ÷åíèå èíäèêàòîð ïðè = TRUE
extern int Regr.degree1mall = 3; // ïîðÿäîê ðåãðåññèè
extern double Regr.kstd1mall = 1.5; // øèðèíà êàíàëà, åñëè =0 òî ðèñóåòñÿ òîëüêî ñðåäíÿÿ ëèíèÿ
int Regr.shift1mall = 0; // ñìåùåíèå îòíîñèòåëüíî òåêóùåãî áàðà
extern int SPermall = 150; // ïåðèîä áàðîâ
extern int TFSmall=3; // òàéìôðåéì íà êîòîðîì ðàáîòàåò èíäèêàòîð
//íííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííí
extern bool UseEquityStop = FALSE;
extern 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_extr19";
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; // ôëàã äëÿ çàêðûòèÿ ëîêà
double LocSummP =0; // çäåñü çàïîìèíàåì ïðèáûëü ïîëó÷åííóþ ïî ëîêó äëÿ äàííîé ñåðèè
double LastLPrice = 0; // öåíà çàêðûòèÿ ïîñëåäíåãî ëîêà
int stoptrade2l=0;
//íííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííí
int init() {
int BrokerDecimal=1;
// Åñëè áðîêåð äàåò êîòèðîâêè ïî âàëþòå ñ òî÷íîñòüþ â ïÿòü çíàêîâ - ïèïñ áóäåò ìåíüøå ñòàíäàðòíîãî â 10 ðàç - ââîäèì ìíîæèòåëü
if(Digits==3 || Digits==5) BrokerDecimal=10;
// Ïåðåìíîæèòü âñå óðîâíè â ïèïñàõ íà ìíîæèòåëü
PipStep = PipStep * BrokerDecimal;
TakeProfit = TakeProfit * BrokerDecimal;
TakeProfitLast = TakeProfitLast* BrokerDecimal;
TrendPS = TrendPS * BrokerDecimal;
MinProfitPips = MinProfitPips * BrokerDecimal;
MinProfitPipsOne = MinProfitPipsOne* BrokerDecimal;
MaxDist =MaxDist* BrokerDecimal;
koridor =koridor* BrokerDecimal;
ProfitTrailDist = ProfitTrailDist * BrokerDecimal;
slip = slip*BrokerDecimal;
TrailDist = TrailDist*BrokerDecimal;
TrailStep = TrailStep*BrokerDecimal;
Spread = MarketInfo(Symbol(), MODE_SPREAD) * Point;
return (0);
}
int deinit() {
return (0);
}
//íííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííííí
int start() {
total = CountTrades(MagicNumber);
PercCloseDown(); //
if (TrendPS>0 && stoptrade2l==0) TrenT();
if (TrendRe==0)
{
ProfitMonitor(); // åñëè îòêðûòà äëèííàÿ ñåðèÿ òî íà âñÿêèé ñëó÷àé ìîíèòîðèì çàêðûòèå (âîîáùåì ñòðàõîâêà åñëè òåéêïðîôèò íå âûñòàâèëñÿ)
}
int ct=NumT();
if (UseTrailingStop >0 && ct>=NumIT) TrailingAlls();
if (UseTimeOut) {
if (TimeCurrent() >= expiration) {
CloseThisSymbolAll(MagicNumber);
PrintF("Closed All due to TimeOut");
}
}
if (LockS>0) ControlLock();
if (LockS>0) BeginLockTrade(); // íà÷èíàåì ëîêèðîâàòüñÿ åñëè óñëîâèÿ ïîçâîëÿþò
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 (!IsTesting()) { LoadHist();}
//
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 (stoptrade2l==1) TradeNow = FALSE;
}
if (total < 1) {
ShortTrade = FALSE;
LongTrade = FALSE;
TradeNow = TRUE;
NewOrdersPlaced = FALSE;
StartEquity = AccountEquity();
if (stoptrade2l==1) TradeNow = FALSE;
}
if (TradeNow) {
// LastBuyPrice = FindLastBuyPrice();
// LastSellPrice = FindLastSellPrice();
double MaxLot1=FindMaxLots();
TrendRe=0;
if (ShortTrade) {
NumOfTrades = total;
if (LotExponent>0) iLots = LotSiz(GetLots()* MathPow(LotExponent, NumT()));
if (LotExponent==0) iLots = LotSiz(MaxLot1*learr[NumT()]);
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 = LotSiz(GetLots()* MathPow(LotExponent, NumT()));
if (LotExponent==0) iLots = LotSiz(MaxLot1*learr[NumT()]);
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 = GetLots();
iLots = LotSiz(GetLots()* MathPow(LotExponent, NumT()));
int axx=-1;
if (FDir==-1) axx=alerts(1); // åñëè õîòèì îòêðûâàòü ïåðâóþ ñäåëêó ïî ñèãíàëó èíäèêòîðà
if (alert(-1)==-1 && axx==-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;
} //
axx=1;
if (FDir==-1) axx=alerts(0); // åñëè õîòèì îòêðûâàòü ïåðâóþ ñäåëêó ïî ñèãíàëó èíäèêòîðà
if (alert(1)==1 && axx==1 && FDir!=1 && !NewOrdersPlaced)
{ // ìåíüøå <
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(MagicNumber);
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 m) {
int count = 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) count++;
}
return (count);
}
int LockTicket(int m) // îïðåäåëÿåò îðäåð ñ ïîñëåäíèì âðåìåíåì èñïîëíåíèÿ
{
int t = 0;
datetime dt=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)
if (dt<OrderOpenTime()) {t=OrderTicket();dt=OrderOpenTime();}
}
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(MagicNumber);
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(MagicNumber) == 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);
double maxlot=MarketInfo(Symbol(), MODE_MAXLOT);
double steplot=MarketInfo(Symbol(), MODE_LOTSTEP);
if(Risk!=0)
{
double lot = AccountBalance() * Risk/100 / 1000.0;
}
else lot=Lots;
if (lot<minlot) { lot=minlot; }
if (lot>maxlot) { lot=maxlot; }
int LotsDigits = MathCeil(MathAbs(MathLog(steplot)/MathLog(10)));
lot = NormalizeDouble(lot,LotsDigits);
return(lot);
}
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 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(MagicNumber)>2 && allpro>0) CloseThisSymbolAll2();
if (mpric<a1+TrendPS*Point && k>=NumTr && CountTrades(MagicNumber)>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(MagicNumber)>2 && allpro>0) CloseThisSymbolAll2();
if (mpric<a1+TrendPS*Point && k>=NumTr && CountTrades(MagicNumber)>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(MagicNumber);
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), slip, Blue);
if (OrderType() == OP_SELL && OrderOpenPrice()-MinProfitPipsOne*Point>=Bid && OrderTakeProfit()==0) OrderClose(OrderTicket(), OrderLots(), NormalizeDouble(Ask,Digits), slip, 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 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 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);
}
void LoadHist()
//---------ýòà ÷àñòü êîäà èç ìîäèôèêàöèè èëàíà ñäåëàíîé BigGun c fx4u.ru
{
int iPeriod[9];
iPeriod[0]=1;
iPeriod[1]=5;
iPeriod[2]=15;
iPeriod[3]=30;
iPeriod[4]=60;
iPeriod[5]=240;
iPeriod[6]=1440;
iPeriod[7]=10080;
iPeriod[7]=43200;
for (int iii=0;iii<9;iii++)
{
double open = iTime(Symbol(), iPeriod[iii], 0);
int error=GetLastError();
while(error==4066)
{
Print("Error 4066: Data for symbol = ", Symbol(), " period = ", iPeriod[iii], " not loaded. Loading data...");
Sleep(10000);
open = iTime(Symbol(), iPeriod[iii], 0);
error=GetLastError();
}
}
}
int alert(int d6)
{
int x=0;
if (IndOff1) {x=d6;return(d6);}
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);
if (IndOff2) 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);
}
void BeginLockTrade()
{
int ct=NumT();
int ol=0;
int ld=Dir(MagicNumber); // îïðåäåëÿåì íàïðàâëåíèå ñåðèè 1(b) èëè -1(s)
int lm=LockTicket(LMagN); // ïðîâåðÿåì åñòü ëè â ðûíêå óæå îòêðûòûå ëîêîâûå îðäåðà
if (lm<=0) stoptrade2l=0;
int lt=CountTrades(LMagN);
if (lm<=0 && ct>=NumLoc) ol=1;// îðäåðîâ îòêðûòî áîëüøå ÷åì NumLoc
if (lm<=0 && MaxDist<=FODist(MagicNumber,"max")) ol=1;// öåíà óøëà îò ïåðâîãî â ñåðèè îðäåðà íà âåëè÷èíó áîëüøå ÷åì MaxDist
if (lm<=0 && ct>=NumLockMin && alertl(ld*(-1)) && alertl2(ld*(-1))) ol=1; // îòêðûòî îðäåðîâ áîëüøå ÷åì NumLockMin è âòîðîé èíäèêàòîð ãëîá òðåíäà ïîâåðíóò â äðóãóþ ñòîðîíó
if (ol==0 && lm>0 && lt<MaxLockTrades) // Ïðîäîëæàåì ëîêèðîâàíèå
{
// îïðåäåëÿåì ïîñëåäíèé îðäåð
OrderSelect(lm,SELECT_BY_TICKET,MODE_TRADES);
// îïðåäåëÿåì ðàññòîÿíèå è âûñòàâëÿåì íîâûé îðäåð
if (OrderType()==OP_BUY)
{
if ((OrderOpenPrice()-Bid)/Point>=koridor)
int gi_328 = OpenPendingOrder(1, LotSiz(OrderLots()*Lmul), Bid, slip, Ask, 0, 0, EAName + "-Lock" , LMagN, 0, Yellow);
if (gi_328 < 0) { Print("Error: ", GetLastError());again();return (0); }
}
if (OrderType()==OP_SELL)
{
if ((Ask-OrderOpenPrice())/Point>=koridor)
gi_328 = OpenPendingOrder(0, LotSiz(OrderLots()*Lmul), Ask, slip, Bid, 0, 0, EAName + "-Lock", LMagN, 0, Blue);
if (gi_328 < 0) { Print("Error: ", GetLastError());again();return (0);}
}
}
if (ol==1) // îòêðûâàåì ïåðâûé ëîêîâûé îðäåð
{
double al=CountLots(MagicNumber);
int lll=0;
//if (LastLPrice+MinLP*Point<Ask || LastLPrice-MinLP*Point>Bid || LastLPrice==0) lll=1;
// Print (" ct ",ct," ld ",ld," al ",al," a ",a );
if (ld==1)
{
ClLock =0;
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 (TradeAfterLock==0) stoptrade2l=1;
}
if (ld==-1)
{
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);}
if (TradeAfterLock==0) stoptrade2l=1;
}
}
} // BeginLockTrade
void ControlLock()
{
int lm=LockTicket(LMagN); // ïðîâåðÿåì åñòü ëè â ðûíêå óæå îòêðûòûå ëîêîâûå îðäåðà
if (lm<=0) stoptrade2l=0;
int lt=CountTrades(LMagN);
if (lm>0) // ïðîâåðÿåì íàäî ëè çàêðûâàòü ëîê
{
double b=Balance(LMagN)+Balance(MagicNumber);
double xb=AccountBalance()/100*LockProfitPerc;
if (b>0 && b>=xb) {CloseThisSymbolAll(LMagN);CloseThisSymbolAll(MagicNumber);}
}
} // ControlLock
int FODist(int mn, string ex) // âîçâðàùàåò ðàññòîÿíèå â ïóíêòàõ äî ñàìîãî äàëüíåãî îðäåðà ñ ýòèì ìàäæèê íàìáåðîì
{
double rs = 0; double rs1=0;
if (ex=="max") rs=0;if (ex=="min") rs=10000000000000;
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)
{
rs1=NormalizeDouble(MathAbs((Ask+Bid)/2-OrderOpenPrice())/Point,0);
if (ex=="max")
if (rs<rs1)rs=rs1;
if (ex=="min")
if (rs>rs1)rs=rs1;
}
}
return(rs);
}
int alertl(int d6)
{
int x=0;
string ind_name = "TrendMagic";
double ma = iCustom(NULL, mper[TMTF], ind_name, CCPeriod, ATRPeriod, 0, 0);
double ma1 = iCustom(NULL, mper[TMTF], ind_name, CCPeriod, ATRPeriod, 1, 0);
if (ma!=EMPTY_VALUE) x=1;
if (ma1!=EMPTY_VALUE) x=-1;
return(x);
}
int alertl2(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);
if (ma>ma1) x=1;
if (ma<ma1) x=-1;
return(x);
}
double Balance(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)
{
result=result+OrderProfit()-OrderSwap()-OrderCommission();
}
}
return(result);
}
Comments