Forex4you
InstaForex
EXNESS
Группа "Программирование на MQL"
Рейтинг 280
Лучшее от AM2
100% ордеров в плюс или тысячи процентов годовых
19 2016-12-21 20:18:10
0
Экспорт сигналов из МТ4 в Telegram
8 2020-11-25 19:42:10
0
Советник - откусыватель убыточной позиции
24 2017-05-28 14:02:20
0
На какие "Машки" больше всего смотрят "Нонки"
33 2015-11-07 02:52:18
0
Запускаем стороннее приложение и выключаем компьютер с помощью средств MQL
3 2017-10-22 13:05:55
0
| Как написать тестер для бинарных опционов |
В сети есть великое множество стратегий для бинарных опционов, но при всем при этом тестирование выбранной стратегии в тестере вызывает некоторые затруднения. На примере простого советника разберем написание тестера для БО.
Пусть у нас есть код, который покупает ниже уровня перепроданности и продает выше уровня перекупленности индикатора RSI:
Чтобы данную стратегию протестировать на истории установим стопы в 0 и добавим в настройки следующие параметры:
Немного изменится функция установки ордера:
Также для торговли бинариками нам нужно будет подсчитывать количество лосей:
и затем рассчитывать лот:
Результаты на экран будем выводить с помощью меток:
Следующая парочка вспомогательных функций нужна будет только при тестировании, это закрытие ордера:
и вычисление времени открытия позиции:
Также только в режиме тестирования будем рассчитывать ставку:
и профит с учетом вознаграждения:
И вот все необходимые функции у нас есть остается только добавить их в советник, чтобы они посчитали нам профит:
Теперь соберем все это в советник:
И посмотрим на результаты:
Скачать советник можно по ссылке: www.opentraders.ru/downloads/1436/
Пусть у нас есть код, который покупает ниже уровня перепроданности и продает выше уровня перекупленности индикатора RSI:
//+------------------------------------------------------------------+
//| RSI.mq4 |
//| Copyright 2016, AM2 |
//| http://www.forexsystems.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright 2016, AM2"
#property link "http://www.forexsystems.biz"
#property version "1.00"
#property strict
//--- Inputs
extern int StopLoss = 222; // лось
extern int TakeProfit = 222; // язь
extern int Shift = 1; // на каком баре сигнал индикатора
extern int Slip = 100; // реквот
extern int Magic = 123; // магик
extern double Lots = 0.1; // лот
extern int RSIPeriod = 14; // период RSI
extern int RSILevel = 20; // уровень RSI
datetime t=0;
//+------------------------------------------------------------------+
//| Expert initialization function |
//+------------------------------------------------------------------+
int OnInit()
{
return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Expert deinitialization function |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
Comment("");
}
//+------------------------------------------------------------------+
//| Установка ордера |
//+------------------------------------------------------------------+
void PutOrder(int type,double price)
{
int r=0;
color clr=Green;
double sl=0,tp=0;
if(type==1 || type==3 || type==5)
{
clr=Red;
if(StopLoss>0) sl=NormalizeDouble(price+StopLoss*Point,Digits);
if(TakeProfit>0) tp=NormalizeDouble(price-TakeProfit*Point,Digits);
}
if(type==0 || type==2 || type==4)
{
clr=Blue;
if(StopLoss>0) sl=NormalizeDouble(price-StopLoss*Point,Digits);
if(TakeProfit>0) tp=NormalizeDouble(price+TakeProfit*Point,Digits);
}
r=OrderSend(NULL,type,Lots,NormalizeDouble(price,Digits),Slip,sl,tp,"",Magic,0,clr);
return;
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int CountTrades()
{
int count=0;
for(int i=OrdersTotal()-1;i>=0;i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
{
if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
{
if(OrderType()<2) count++;
}
}
}
return(count);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void OpenPos()
{
double rsi=iRSI(NULL,0,RSIPeriod,0,Shift);
if(rsi<RSILevel)
{
PutOrder(0,Ask);
}
if(rsi>100-RSILevel)
{
PutOrder(1,Bid);
}
}
//+------------------------------------------------------------------+
//| Expert tick function |
//+------------------------------------------------------------------+
void OnTick()
{
if(CountTrades()<1)
{
OpenPos();
t=Time[0];
}
}
//+------------------------------------------------------------------+
Чтобы данную стратегию протестировать на истории установим стопы в 0 и добавим в настройки следующие параметры:
extern string Настроки_Опционов="";
extern double KLot = 2; // увеличение лота
extern double MaxLot = 5000; // максимальный лот
extern string Expiration = "60"; // истечение в минутах
extern string Настройки_Тестирования="";
extern double WinPercent = 75; // процент при выигрыше
extern double Stavka = 50; // ставка
extern double KStavka = 2; // увеличение ставки
extern double MaxStavka = 5000; // максимальная ставка
Немного изменится функция установки ордера:
//+------------------------------------------------------------------+
//| Установка ордера |
//+------------------------------------------------------------------+
void PutOrder(int type,double price)
{
int r=0;
color clr=Green;
double sl=0,tp=0;
double lot=Lot();
if(IsTesting()) lot=Lots;
if(type==1 || type==3 || type==5)
{
clr=Red;
if(StopLoss>0) sl=NormalizeDouble(price+StopLoss*Point,Digits);
if(TakeProfit>0) tp=NormalizeDouble(price-TakeProfit*Point,Digits);
}
if(type==0 || type==2 || type==4)
{
clr=Blue;
if(StopLoss>0) sl=NormalizeDouble(price-StopLoss*Point,Digits);
if(TakeProfit>0) tp=NormalizeDouble(price+TakeProfit*Point,Digits);
}
r=OrderSend(NULL,type,lot,NormalizeDouble(price,Digits),Slip,sl,tp,Expiration,Magic,0,clr);
return;
}
Также для торговли бинариками нам нужно будет подсчитывать количество лосей:
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int Losses()
{
int losses=0;
for(int i=OrdersHistoryTotal()-1;i>=0;i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
{
if(OrderProfit()>0) break;
if(OrderProfit()<0) losses++;
}
}
return(losses);
}
и затем рассчитывать лот:
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
double Lot()
{
double lot=0;
lot=Lots*MathPow(KLot,Losses());
if(lot>MaxLot) lot=Lots;
return(lot);
}
Результаты на экран будем выводить с помощью меток:
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void PutLabel(string text,string n,int x,int y)
{
//--- создадим текстовую метку
ObjectCreate(0,n,OBJ_LABEL,0,0,0);
//--- установим координаты метки
ObjectSetInteger(0,n,OBJPROP_XDISTANCE,x);
ObjectSetInteger(0,n,OBJPROP_YDISTANCE,y);
//--- установим угол графика, относительно которого будут определяться координаты точки
ObjectSetInteger(0,n,OBJPROP_CORNER,CORNER_RIGHT_UPPER);
//--- установим текст
ObjectSetString(0,n,OBJPROP_TEXT,text);
//--- установим шрифт текста
ObjectSetString(0,n,OBJPROP_FONT,"Arial");
//--- установим размер шрифта
ObjectSetInteger(0,n,OBJPROP_FONTSIZE,12);
//--- установим цвет
ObjectSetInteger(0,n,OBJPROP_COLOR,Red);
}
Следующая парочка вспомогательных функций нужна будет только при тестировании, это закрытие ордера:
//+------------------------------------------------------------------+
//| Закрытие позиции по типу ордера |
//+------------------------------------------------------------------+
void CloseAll(int ot=-1)
{
bool cl;
for(int i=OrdersTotal()-1;i>=0;i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
{
if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
{
if(OrderType()==0 && (ot==0 || ot==-1))
{
RefreshRates();
cl=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Bid,Digits),Slip,White);
}
if(OrderType()==1 && (ot==1 || ot==-1))
{
RefreshRates();
cl=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Ask,Digits),Slip,White);
}
}
}
}
}
и вычисление времени открытия позиции:
//+------------------------------------------------------------------+
//| Время открытия позиции |
//+------------------------------------------------------------------+
datetime OrderTime()
{
datetime tm=0;
for(int i=OrdersTotal()-1;i>=0;i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
{
if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
{
if(OrderType()<2) tm=OrderOpenTime();
}
}
}
return(tm);
}
Также только в режиме тестирования будем рассчитывать ставку:
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
double Stavim()
{
double s=Stavka;
s=NormalizeDouble(Stavka*MathPow(KStavka,Losses()),2);
if(s>MaxStavka) s=Stavka;
return(s);
}
и профит с учетом вознаграждения:
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
double Profit()
{
double pr=0;
int losses=0;
for(int i=OrdersHistoryTotal()-1;i>=0;i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
{
if(OrderProfit()>0)
{
pr+=NormalizeDouble(Stavka*MathPow(KStavka,losses),2)*WinPercent*0.01;
losses=0;
}
if(OrderProfit()<0)
{
pr-=NormalizeDouble(Stavka*MathPow(KStavka,losses),2);
losses++;
}
}
}
return(pr);
}
И вот все необходимые функции у нас есть остается только добавить их в советник, чтобы они посчитали нам профит:
if(TimeCurrent()-OrderTime()>=(int)Expiration*60 && IsTesting())
{
CloseAll();
}
PutLabel("Profit: "+(string)Profit(),"P",120,20);
PutLabel("Stavka: "+(string)Stavim(),"S",120,40);
PutLabel("Losses: "+(string)Losses(),"L",120,60);
Теперь соберем все это в советник:
//+------------------------------------------------------------------+
//| RSI.mq4 |
//| Copyright 2016, AM2 |
//| http://www.forexsystems.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright 2016, AM2"
#property link "http://www.forexsystems.biz"
#property version "1.00"
#property strict
//--- Inputs
extern int StopLoss = 222; // лось
extern int TakeProfit = 222; // язь
extern int Shift = 1; // на каком баре сигнал индикатора
extern int Slip = 100; // реквот
extern int Magic = 123; // магик
extern double Lots = 0.1; // лот
extern int RSIPeriod = 14; // период RSI
extern int RSILevel = 20; // уровень RSI
extern string Настроки_Опционов="";
extern double KLot = 2; // увеличение лота
extern double MaxLot = 5000; // максимальный лот
extern string Expiration = "60"; // истечение в минутах
extern string Настройки_Тестирования="";
extern double WinPercent = 75; // процент при выигрыше
extern double Stavka = 50; // ставка
extern double KStavka = 2; // увеличение ставки
extern double MaxStavka = 5000; // максимальная ставка
datetime t=0;
//+------------------------------------------------------------------+
//| Expert initialization function |
//+------------------------------------------------------------------+
int OnInit()
{
return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Expert deinitialization function |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
Comment("");
}
//+------------------------------------------------------------------+
//| Установка ордера |
//+------------------------------------------------------------------+
void PutOrder(int type,double price)
{
int r=0;
color clr=Green;
double sl=0,tp=0;
double lot=Lot();
if(IsTesting()) lot=Lots;
if(type==1 || type==3 || type==5)
{
clr=Red;
if(StopLoss>0) sl=NormalizeDouble(price+StopLoss*Point,Digits);
if(TakeProfit>0) tp=NormalizeDouble(price-TakeProfit*Point,Digits);
}
if(type==0 || type==2 || type==4)
{
clr=Blue;
if(StopLoss>0) sl=NormalizeDouble(price-StopLoss*Point,Digits);
if(TakeProfit>0) tp=NormalizeDouble(price+TakeProfit*Point,Digits);
}
r=OrderSend(NULL,type,lot,NormalizeDouble(price,Digits),Slip,sl,tp,Expiration,Magic,0,clr);
return;
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
double Lot()
{
double lot=0;
lot=Lots*MathPow(KLot,Losses());
if(lot>MaxLot) lot=Lots;
return(lot);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int Losses()
{
int losses=0;
for(int i=OrdersHistoryTotal()-1;i>=0;i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
{
if(OrderProfit()>0) break;
if(OrderProfit()<0) losses++;
}
}
return(losses);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int CountTrades()
{
int count=0;
for(int i=OrdersTotal()-1;i>=0;i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
{
if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
{
if(OrderType()<2) count++;
}
}
}
return(count);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void OpenPos()
{
double rsi=iRSI(NULL,0,RSIPeriod,0,Shift);
if(rsi<RSILevel)
{
PutOrder(0,Ask);
}
if(rsi>100-RSILevel)
{
PutOrder(1,Bid);
}
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void PutLabel(string text,string n,int x,int y)
{
//--- создадим текстовую метку
ObjectCreate(0,n,OBJ_LABEL,0,0,0);
//--- установим координаты метки
ObjectSetInteger(0,n,OBJPROP_XDISTANCE,x);
ObjectSetInteger(0,n,OBJPROP_YDISTANCE,y);
//--- установим угол графика, относительно которого будут определяться координаты точки
ObjectSetInteger(0,n,OBJPROP_CORNER,CORNER_RIGHT_UPPER);
//--- установим текст
ObjectSetString(0,n,OBJPROP_TEXT,text);
//--- установим шрифт текста
ObjectSetString(0,n,OBJPROP_FONT,"Arial");
//--- установим размер шрифта
ObjectSetInteger(0,n,OBJPROP_FONTSIZE,12);
//--- установим цвет
ObjectSetInteger(0,n,OBJPROP_COLOR,Red);
}
//+------------------------------------------------------------------+
//| Закрытие позиции по типу ордера |
//+------------------------------------------------------------------+
void CloseAll(int ot=-1)
{
bool cl;
for(int i=OrdersTotal()-1;i>=0;i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
{
if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
{
if(OrderType()==0 && (ot==0 || ot==-1))
{
RefreshRates();
cl=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Bid,Digits),Slip,White);
}
if(OrderType()==1 && (ot==1 || ot==-1))
{
RefreshRates();
cl=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Ask,Digits),Slip,White);
}
}
}
}
}
//+------------------------------------------------------------------+
//| Время открытия позиции |
//+------------------------------------------------------------------+
datetime OrderTime()
{
datetime tm=0;
for(int i=OrdersTotal()-1;i>=0;i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
{
if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
{
if(OrderType()<2) tm=OrderOpenTime();
}
}
}
return(tm);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
double Stavim()
{
double s=Stavka;
s=NormalizeDouble(Stavka*MathPow(KStavka,Losses()),2);
if(s>MaxStavka) s=Stavka;
return(s);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
double Profit()
{
double pr=0;
int losses=0;
for(int i=OrdersHistoryTotal()-1;i>=0;i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY))
{
if(OrderProfit()>0)
{
pr+=NormalizeDouble(Stavka*MathPow(KStavka,losses),2)*WinPercent*0.01;
losses=0;
}
if(OrderProfit()<0)
{
pr-=NormalizeDouble(Stavka*MathPow(KStavka,losses),2);
losses++;
}
}
}
return(pr);
}
//+------------------------------------------------------------------+
//| Expert tick function |
//+------------------------------------------------------------------+
void OnTick()
{
if(CountTrades()<1)
{
OpenPos();
t=Time[0];
}
if(TimeCurrent()-OrderTime()>=(int)Expiration*60 && IsTesting())
{
CloseAll();
}
PutLabel("Profit: "+(string)Profit(),"P",120,20);
PutLabel("Stavka: "+(string)Stavim(),"S",120,40);
PutLabel("Losses: "+(string)Losses(),"L",120,60);
}
//+------------------------------------------------------------------+
И посмотрим на результаты:
Скачать советник можно по ссылке: www.opentraders.ru/downloads/1436/
Понравилcя материал? Не забудьте поставить плюс и поделиться в социальной сети!
Следующая запись в группе  Советник "МТ45" или как написать эксперт, который будет работать на МТ4 и на МТ5 |
|
26 сентября 2016
|
09 сентября 2017
|
Из недавнего:
Нажмите, чтобы обновить-
AM2
18 января 2025, 13:09→ Функции для реальной торговли и для реальных счетов. Ким - хорошо, а мы на что? (4) в Блог им. kvashnin007
выбирайте на маркете то что интересно. напишу подобный... <>[Читать..] -
AM2
18 января 2025, 13:00→ Создать индикатор (1) в Стол заказов MQL
1000р. <>[Читать..] -
verta81
17 января 2025, 19:07→ Доработать Мартышку (54) в Стол заказов MQL
Берите и тащите ордер в нужное место. Для этого не нужно... <>[Читать..] -
DrugHemp2
17 января 2025, 13:42→ Куда дедушка 2 или снова с новым годом (38) в Блог им. DrugHemp2
С х100:: <>[Читать..] -
Alex125
17 января 2025, 13:25→ Советник для mt4 по индикатору (3) в Стол заказов MQL
Спасибо) <>[Читать..] -
AM2
15 января 2025, 16:35→ советник бы тайно (8) в Стол заказов MQL
готово: www.opentraders.ru/downloads/3942/ <>[Читать..] -
Bishop
15 января 2025, 13:17→ STATLIST #76 - EUR/USD на неделю до 27.01.2017, 57% на падение (5) в STATLIST - регулярная статистика рынков
и снова Трампа избрали ) <>[Читать..] -
IgorKK
14 января 2025, 21:18→ Фундаментальный анализ рынка за 10.01.2024 EURUSD (1) в Аналитика и прогнозы от компании FreshForex
Позвонил в разные компании, условия такие, что нет смысла... <>[Читать..] -
Generals
12 января 2025, 13:15→ Советник-усреднитель. (27) в Стол заказов MQL
понятно:: <>[Читать..] -
Avdn
10 января 2025, 16:46→ Сокращение DD для сеточников (3) в Стол заказов MQL
Спасибо. Нашла <>[Читать..]
- Общая информация
- О проекте
- Наша команда
- Предупреждение о рисках
- Условия использования
- Рекламодателям
- Контакты
- Торговля
- Инструкция по FOREX для начинающих
- Сравнение FOREX и биржевого рынка
- Рейтинг брокеров Forex
- Расписание торговых сессий
- Монитор Forex (графики, календарь)
- Наши сервисы и услуги
- Forex VPS
- Тестовая лаборатория
- Рейтинг советников Форекс
- Файловое хранилище
- Конкурсы от брокеров Форекс
- Инвесторам
- Новости: финансы, бизнес, экономика
- MetaTrader
- Скачать MetaTrader 5
- Начало работы с терминалом
- Мобильная версия терминала
- Язык MQL5 для создания советников
- Структура сообщества
- Главная
- Пользователи
- Группы
- Стены
- Лента комментариев
- Избранное
Внимание! Торговля и инвестирование на финансовых рынках сопряжены с повышенным риском потери капитала!
OpenTraders - информационный ресурс, не ведет брокерскую или дилерскую деятельность, не открывает счета. Все материалы на ресурсе носят информационный характер и не являются побуждением к действию. Администрация сайта может не соглашаться с мнением авторов. См. Предупреждение о рисках
Сайт работает на территории СНГ. Любая вероятная реклама направлена исключительно на жителей за пределами Российской Федерации, если явно не оговорено обратное. Пользователи самостоятельно несут ответственность за любую рекламу в своих материалах. См. Пользовательское cоглашение
Комментарии (3)
8 Kudryashov Сообщений: 129
35 AM2 Автор Сообщений: 16386 - Андрей
8 Kudryashov Сообщений: 129
Зарегистрируйтесь или авторизуйтесь, чтобы оставить комментарий