Советники, эксперты, форекс роботы Обсуждение, поиск и тестирование форекс советников, роботов, экспертов и МТС

Ответить
13.08.2013, 16:19
Аватар для trofik
trofik trofik вне форума Новичок форума
Регистрация: 06.11.2010 / Сообщений: 22
Поблагодарили 4 раз(а) / Репутация: 5
Потестите эту сову прет как автобус и не сливает на еврике, другие валюты похуже. Лот ставте по максимуму.
13.08.2013, 17:35
Аватар для Mazit
Mazit Mazit на форуме Активный участник
Регистрация: 29.05.2010 / Сообщений: 282
Поблагодарили 90 раз(а) / Репутация: 87
  • Отправить сообщение для Mazit с помощью ICQ
Потестите эту сову прет как автобус и не сливает на еврике, другие валюты похуже. Лот ставте по максимуму.
Чёта не тестится сова
1 только сделку за весь период теста открывает и всё..
Соборъ братьевъ Славянъ
http://www.velesovkrug.ru/
13.08.2013, 18:56
Аватар для Вячеслав111
Вячеслав111 Вячеслав111 вне форума Активный участник
Регистрация: 29.04.2010 / Сообщений: 393
Поблагодарили 136 раз(а) / Репутация: 137
Ребята - забудьте это тестерный грааль ))
13.08.2013, 19:07
Аватар для trofik
trofik trofik вне форума Новичок форума
Регистрация: 06.11.2010 / Сообщений: 22
Поблагодарили 4 раз(а) / Репутация: 5
Почему я ставил его на форекс 4 ю он работает правда пробовал на демке а на реал не ставил.

Последний раз редактировалось trofik; 13.08.2013 в 19:11.
13.08.2013, 19:24
Аватар для Mazit
Mazit Mazit на форуме Активный участник
Регистрация: 29.05.2010 / Сообщений: 282
Поблагодарили 90 раз(а) / Репутация: 87
  • Отправить сообщение для Mazit с помощью ICQ
Почему я ставил его на форекс 4 ю он работает правда пробовал на демке а на реал не ставил.
Ну скинь сет с которым он у тебя на демо работает
Соборъ братьевъ Славянъ
http://www.velesovkrug.ru/
14.08.2013, 07:11
Аватар для Forex-club7
Forex-club7 Forex-club7 вне форума Местный житель
Регистрация: 28.07.2010 / Сообщений: 560
Поблагодарили 283 раз(а) / Репутация: 282
Почему я ставил его на форекс 4 ю он работает правда пробовал на демке а на реал не ставил.
А врать не стыдно??? Подсовываешь с тестера картинку.
14.08.2013, 08:13
Аватар для Mazit
Mazit Mazit на форуме Активный участник
Регистрация: 29.05.2010 / Сообщений: 282
Поблагодарили 90 раз(а) / Репутация: 87
  • Отправить сообщение для Mazit с помощью ICQ
Почему я ставил его на форекс 4 ю он работает правда пробовал на демке а на реал не ставил.
Ну да, сет и стейт с демосчёта на котором работает сова не помешало бы глянуть...))
Соборъ братьевъ Славянъ
http://www.velesovkrug.ru/
15.08.2013, 11:41
Аватар для Pavel666
Pavel666 Pavel666 вне форума Местный житель
Регистрация: 27.05.2013 / Сообщений: 192
Поблагодарили 206 раз(а) / Репутация: 206
Не вышло ничего с этой совой, прибыль только в тестере, брат-million dollars pips.
28.02.2015, 14:29
Аватар для jaguar1637
jaguar1637 jaguar1637 вне форума Новичок форума
Регистрация: 07.04.2010 / Адрес: Bordeaux in France / Сообщений: 16
Поблагодарили 11 раз(а) / Репутация: 12
great stuff
01.03.2015, 14:01
Аватар для jaguar1637
jaguar1637 jaguar1637 вне форума Новичок форума
Регистрация: 07.04.2010 / Адрес: Bordeaux in France / Сообщений: 16
Поблагодарили 11 раз(а) / Репутация: 12
Hi (jaguar1637 administrator from the website _http://beathespread.com)
I want to provide you a refined release w/ 2 improvments
- iVAR to get rid of false entries
- a greatest money management

I got difficulties to attach the release, so I put directly the code inside the post

Greetings from jaguar1637

Скрытый текст

____________________________________________
//+------------------------------------------------------------------+
//| WOC[1].0.1.5_No_SL&TP_iVAR.mq4 |

//+------------------------------------------------------------------+

#property version "1.00"
#property strict

#include <stderror.mqh>
#include <stdlib.mqh>

extern int StopLoss = 6;

extern int TrSt = 6;
extern int Speed = 5;
extern double timeSpeed = 3;

extern double Lots = 0.1;
extern double MaxLot = 100;

extern string moneymanagement="Money Management";
extern string dispMM = "Settings Money Management";
extern bool MM = true;

//Exemple de SizingRule: 1.0= 1 lot, 5%B=5% de la balance 5%F=5% du free margin, 100$= 100$
//extern double Size = 5.0;
extern string SizingRule = "1%B"; //Risk/Reward per trade. Or, can be fixed number of lots;
extern double ProfitLossfactor = 0.30; //Factor to calculate TP and SL. Multiple of the ADR
extern int LastXTrades = 10; //Used for TSSF calculation

extern int Risk = 20;
extern int Magic = 20080829;

// IVAR
extern int TimeFrameiVAR = PERIOD_M1;

extern double a1 = 0.0;
extern double a2 = 0.0;
extern double a3 = 0.54;
extern double a4 = 0.53;

double Point_;
datetime nextTime;
int cnt, total, lastBars;
int up, down, TimeSpeedUp, TimeSpeedDown;
bool TimBoolUp,TimBoolDown, OrderSal;
double priceUp, priceDown;
double vbuy,vsell;

int PipMultiplier=0;
string symbol;
double MINLOT;
double lotstep;
double maxlots;

bool iVAR()
{
bool Result=false;
double iVAR_1=iCustom(symbol,TimeFrameiVAR,"iVAR_nmc",5,1000,0,1);

if(iVAR_1<a3 && iVAR_1<a4)
Result=true;
return(Result);
}

int OnInit()
{
symbol = Symbol();
MINLOT = MarketInfo(symbol,MODE_MINLOT);
lotstep = MarketInfo(symbol,MODE_LOTSTEP);
maxlots = MarketInfo(symbol,MODE_MAXLOT);



Magic = Get_Magic();
if (Digits==3 || Digits==5)
PipMultiplier=10;
else PipMultiplier=1;

return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Expert deinitialization function |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
//---

}
//+------------------------------------------------------------------+
//| Expert tick function |
//+------------------------------------------------------------------+
void OnTick()
{
double ask = StrToDouble(DoubleToStr(Ask,Digits-1));
double bid = StrToDouble(DoubleToStr(Bid,Digits-1));
Comment("\n"," ",Hour()," : ",Minute(),"\n",
" Bid = ",Bid ,"\n",
" Ask = ",Ask, "\n",
" vbuy = ",vbuy ,"\n",
" vsell = ",vsell, "\n"
);
total = OrdersTotal();
int i, currentSymbolOrderPos = -1;
// if (total==0) {vbuy=0; vsell=0;}
for (i = 0; i < total; i++)
{
OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
if (OrderSymbol() == Symbol())
{
currentSymbolOrderPos = i;
break;
}
}

if (currentSymbolOrderPos < 0)
{
if(priceUp < ask)
{
up = up + 1;
priceUp = ask;
if(TimBoolUp == false)
{
TimeSpeedUp = TimeCurrent();
TimBoolUp = true;
}
}
else
{
priceUp = 0;

up = 0;
TimBoolUp = false;
TimeSpeedUp = 0;
}

if(priceDown > ask)
{
down = down + 1;
priceDown = ask;
if(TimBoolDown == false)
{
TimeSpeedDown = TimeCurrent();
TimBoolDown = true;
}
}
else
{
priceDown = 0;
down = 0;
TimBoolDown = false;
TimeSpeedDown = 0;
}

if(up == Speed || down == Speed)
{
openOrders();
}


if(priceUp == 0)
{
priceUp = ask;
}
if(priceDown == 0)
{
priceDown = ask;
}
}
else

{
OrderSelect(currentSymbolOrderPos, SELECT_BY_POS, MODE_TRADES);

if (OrderType() == OP_BUY)
{ if(Bid<=vbuy) {OrderClose(OrderTicket(), OrderLots(), Bid, 10,Red);vbuy=0;}
if(OrderSal == true)
{
// OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Bid - StopLoss*Point*PipMultiplier,Digits),'', 0, Red);
vbuy=NormalizeDouble(Bid - StopLoss*Point*PipMultiplier,Digits);
OrderSal = false;
}
if (Bid-OrderOpenPrice()>TrSt*Point*PipMultiplier)
{
if (vbuy<Bid-(TrSt)*Point*PipMultiplier)
{
vbuy=Bid - (TrSt)*Point*PipMultiplier ;
//OrderModify(OrderTicket(),OrderOpenPrice(),Bid - (TrSt)*Point*PipMultiplier,'', 0, Red);
}
}
}
if (OrderType() == OP_SELL)
{ if(Ask>= vsell) {OrderClose(OrderTicket(), OrderLots(), Ask, 10,Red);vsell=0;}
if(OrderSal == true)
{
// OrderModify(OrderTicket(),OrderOpenPrice(),NormalizeDouble(Ask + StopLoss*Point*PipMultiplier, Digits),'', 0, Red);
vsell=NormalizeDouble(Ask + StopLoss*Point*PipMultiplier, Digits);
OrderSal = false;
}
if (OrderOpenPrice()-Ask > TrSt*Point*PipMultiplier)
{
if (vsell > Ask +(TrSt)*Point*PipMultiplier)
{
vsell= Ask + (TrSt)*Point*PipMultiplier;
//OrderModify(OrderTicket(),OrderOpenPrice(),Ask + (TrSt)*Point*PipMultiplier,'', 0, Red);
}
}
}
}


}


int Get_Magic()
{
string mag;
int Magic_g;
Sleep(1000);
while (true)
{
MathSrand (TimeLocal());
mag = StringConcatenate(mag, MathRand()/15, MathRand()/8, MathRand()/32);
Magic_g = MathRound(MathAbs(StrToInteger(mag)));
mag = DoubleToStr(Magic_g,10);
if (StringLen (mag) >= 15) {Magic_g = StrToInteger(mag); break;}
}
return (MathRound(MathAbs(Magic_g)));
}


void openOrders()
{
int try;

if(up < down)
{
Print("TimeSpeedDown");
if(TimeCurrent() - TimeSpeedDown <= timeSpeed && iVAR() )
{
Print(" TimeSpeedDown < TimeSpeed");
RefreshRates();
for(try = 1; try <= 2; try++)
{
if (OrderSend(Symbol(),OP_SELL,CalculateLotSize(),Bid,10,0,0 ,"",Magic,0,Red) < 0)
{ Print("OP_SELL ", ErrorDescription(GetLastError()));
Print("try ", try);
Sleep(1000);
RefreshRates();
}
else
{
OrderSal = true;
break;
}
}
}
}
else
{
Print(" TimeSpeedUp");
if(TimeCurrent() - TimeSpeedUp <= timeSpeed && iVAR() )
{
Print("TimeSpeedUp < TimeSpeed");
RefreshRates();
for(try = 1; try <= 2; try++)
{
if (OrderSend(Symbol(),OP_BUY,CalculateLotSize(),Ask,10,0,0, "", Magic, 0, Green) < 0)
{ Print("OP_BUY ", ErrorDescription(GetLastError()));
Print("tru", try);
Sleep(1000);
RefreshRates();
}
else
{
OrderSal = true;
break;
}
}

}
}
priceUp = 0;
priceDown = 0;
up = 0;
down = 0;
TimBoolUp = false;
TimBoolDown = false;
TimeSpeedUp = 0;
TimeSpeedDown = 0;
}




double getTSSF()
{
double tradegagnant,tradeperdant;
double profit, perte, avgwin, avgloss, prcwin, tssf;


int orders=HistoryTotal();

if(orders <= LastXTrades) return(0.0);
tradegagnant=0.0;
tradeperdant=0.0;
profit=0.0;
perte=0.0;
avgwin=0.0;
avgloss=0.0;
prcwin=0.0;
tssf=0.0;

for(int j=orders-1;j>=orders-LastXTrades;j--)
{
if(OrderSelect(j,SELECT_BY_POS,MODE_HISTORY)==False)
{
Print("Erreur dans l historique!");
break;
}
if(OrderProfit() >= 0)
{
tradegagnant= tradegagnant+1.0;
profit=profit+OrderProfit();
}
else
{
tradeperdant= tradeperdant+1.0;
perte=perte-OrderProfit();
}
}

if (tradegagnant == 0.0){
avgwin=0.0;
}
else if (orders>LastXTrades)
{
avgwin=profit/tradegagnant;
}

if (tradeperdant == 0.0)
{
tssf = 1.0;
return(tssf);
}
else if (orders>LastXTrades)
{
avgloss=perte/tradeperdant;
}
if (orders>LastXTrades)prcwin=tradegagnant/(tradegagnant+tradeperdant);
else prcwin= 0.0;
if (avgloss == 0.0){
tssf = 1.0;
return(tssf);
}
else if (orders>LastXTrades)
{
if(prcwin == 0.1)prcwin= 0.11;
tssf=avgwin/avgloss*((1.1-prcwin)/(prcwin-0.1)+1);
}

return(tssf);
}
//+------------------------------------------------------------------+
//| expert Div function |
//| Avoid divide by zero errors |
//+------------------------------------------------------------------+
double Div(double a,double b,int loc=0)
{
if(b==0)
{
Alert("Divide by zero error! a="+a+" b="+b+", loc="+loc);
return(0);
}
return(a/b);
}
//+------------------------------------------------------------------+
//|StringUpper (used to convert string case ) |
//+------------------------------------------------------------------+
string StringUpper(string str)
//+------------------------------------------------------------------+
// Converts any lowercase characters in a string to uppercase
// Usage: string x=StringUpper("The Quick Brown Fox") returns x = "THE QUICK BROWN FOX"
//if using capitalise, only the first char is Capitalised
{
string outstr = "";
string lower = "abcdefghijklmnopqrstuvwxyz";
string upper = "ABCDEFGHIJKLMNOPQRSTUVWXYZ";

for(int i=0; i<StringLen(str); i++) {
int t1 = StringFind(lower,StringSubstr(str,i,1),0);
if (t1 >=0)
outstr = outstr + StringSubstr(upper,t1,1);
else
outstr = outstr + StringSubstr(str,i,1);
}
return(outstr);
}
//+------------------------------------------------------------------+
//| expert StrToNum function |
//+------------------------------------------------------------------+
double StrToNum(string str)
{
//+------------------------------------------------------------------+
// Usage: strips all non-numeric characters out of a string, to return a numeric (double) value
// valid numeric characters are digits 0,1,2,3,4,5,6,7,8,9, decimal point (.) and minus sign (-)
int i0,dp = -1;
int sgn = 1;
double num = 0.0;
for (i0=0; i0<StringLen(str); i0++)
{
string s1 = StringSubstr(str,i0,1);
if (s1 == "-") sgn = -sgn; else
if (s1 == ".") dp = 0; else
if (s1 >= "0" && s1 <= "9")
{
if (dp >= 0) dp++;
if (dp > 0)
num = num + Div(StrToInteger(s1) , MathPow(10,dp),2421);
else
num = num * 10 + StrToInteger(s1);
}
}
return(num*sgn);
}
//+------------------------------------------------------------------+
//| expert GetLots function |
//+------------------------------------------------------------------+
double GetLots(string symbol_current,double profitfactor)
{

if(lotstep == 0) return(0.1);
int decimals = MathLog(1 / lotstep) / MathLog(10);
double AcctFreeMgn = AccountEquity();
int RiskType = 0; // default to N lots
double size;

double TSSFTrigger1=1;
double TSSFTrigger2=2;
double TSSFTrigger3=3;

double tssf= getTSSF();

if (StringFind(StringUpper(SizingRule),"B") >= 0) AcctFreeMgn = AccountBalance();
if (StringFind(StringUpper(SizingRule),"F") >= 0) AcctFreeMgn = AccountFreeMargin();
if (StringFind(SizingRule,"%") >= 0) RiskType = 1; // N% AcctFreeMgn
if (StringFind(SizingRule,"$") >= 0) RiskType = 2; // $N amount
double risk;

double ratio= 1.0+tssf;
if(tssf > 1.0){
ratio= 2.0;
}
double TickValue = MarketInfo(symbol_current,MODE_TICKVALUE);
if(Point == 0.001 || Point == 0.00001) TickValue *= 10;

switch (RiskType)
{
case 1 : risk = NormalizeDouble(AcctFreeMgn*ratio*StrToNum(SizingRule)/100,decimals); size= Div(Div(risk, StopLoss,1522), TickValue, 1524); break; // calc vol = N% of account equity
case 2 : risk = NormalizeDouble(StrToNum(SizingRule)*ratio,decimals); size= Div(Div(risk, StopLoss,1523), TickValue, 1525); break; // calc vol from entered $amount
default : risk = NormalizeDouble(StrToNum(SizingRule)*ratio,decimals); size= risk; break; // vol is simply no. of lots entered
}

double size1 = NormalizeDouble(size,decimals);
if(size1 < MINLOT) size1 = MINLOT;
if(size1 > maxlots) size1 = maxlots;
Print("tssf "+tssf+" ratio "+ratio+" size1 "+size1+" maxlots "+maxlots+" MINLOT "+MINLOT);
return(size1);
}

double CalculateLotSize()
{
double ilots;
if (MM == true)
ilots = GetLots(symbol,ProfitLossfactor);

return(ilots);
}
[свернуть]

Последний раз редактировалось NSerega; 01.03.2015 в 17:53.
01.03.2015, 14:50
Аватар для marker1
marker1 marker1 вне форума Элитный участник
Регистрация: 19.02.2009 / Адрес: Уфа / Сообщений: 2,415
Поблагодарили 1,179 раз(а) / Репутация: 1193
Это тестерный грааль, даже не заморачивайтесь.
Только те, кто предпринимает абсурдные попытки, смогут достичь невозможного. Альберт Эйнштейн.
29.09.2015, 16:12
Аватар для k19alex69
k19alex69 k19alex69 вне форума Новичок форума
Регистрация: 13.06.2014 / Адрес: Омск / Сообщений: 48
Поблагодарили 14 раз(а) / Репутация: 15
Хоть я и новичок на рынке, но в людях понимаю, можете не сомневаться. Прочитал за день более 300 страниц форума в разных темах и как только вижу в разработках connect495, сразу замечаю, что гражданин просто баламутит рынок. Прошу администрацию форума обратить внимание на этого человека и наказать за флуд.
04.07.2016, 16:23
Аватар для kkptra
kkptra kkptra вне форума Прохожий
Регистрация: 04.07.2016 / Сообщений: 2
Поблагодарили 1 раз в 1 сообщении / Репутация: 2

По умолчанию looking for you all over world (on Goolgle) and found now you are in Russian,,

Уверен, что все это Вам удасться. Вам только необходимо распечатать этот текст большими буквами, повестить на стенку и каждый день над ним медитировать и высшие силы обязательно прислушаются к Вашему зову.

Hi User666,

I found your few posts on several forex forums and very surprised with your predictive research,,, badly i didn't find your full summery and after a long time i found here ( in Russian) . Unfortunately I do not understand Russian. I joined this forum only for you.. I am very keen to understand your findings... please revert me (KKPLive@hotmail.com)... I have lost around 5000 USD now looking for reveng from market I am sure you can help me out in this... please respond soon... Many thanks for everything you have shared already.

Kind Regard

Krishna
04.01.2017, 21:35
Аватар для Dimest
Dimest Dimest вне форума Интересующийся
Регистрация: 08.09.2012 / Сообщений: 20
Поблагодарили 3 раз(а) / Репутация: 4

По умолчанию Лохотрон

Работает только в тестере. Вот подробное описание развода. Как и почему.

Последний раз редактировалось NSerega; 04.01.2017 в 21:43.
Ответить


Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Выкл.
Pingbacks are Выкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
эксперт по Б.Вильямсу Алексей Что обсуждают на других форумах 0 19.09.2010 21:40
Эксперт forex Алексей Вопросы ответы заметки на тему форекс 0 18.03.2010 18:54
Эксперт forex Алексей Вопросы ответы заметки на тему форекс 0 16.03.2010 18:43
Продается эксперт МТ4 Алексей Что обсуждают на других форумах 0 02.02.2010 01:40


Текущее время: 02:50. Часовой пояс GMT.


Перевод: zCarot
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
SEO by vBSEO