Любые вопросы новичков по MQL4 и MQL5, помощь и обсуждение по алгоритмам и кодам - страница 17
Вы упускаете торговые возможности:
- Бесплатные приложения для трейдинга
- 8 000+ сигналов для копирования
- Экономические новости для анализа финансовых рынков
Регистрация
Вход
Вы принимаете политику сайта и условия использования
Если у вас нет учетной записи, зарегистрируйтесь
#property link "https://www.mql5.com"
#property version "1.00"
#property strict
#property indicator_separate_window
#property indicator_buffers 1
#property indicator_level1 0.8
#property indicator_level2 -0.8
#property indicator_levelcolor Black
#property indicator_color1 Blue
#property indicator_minimum -1
#property indicator_width1 2
#property indicator_style1 0
#property indicator_maximum 1
double Buffer1[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
//--- indicator buffers mapping
SetIndexBuffer(0, Buffer1);
SetIndexStyle(0, DRAW_LINE);
return(0);
//---
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
{
int n=25; // количество элементов в массиве(для периода H1 n=25, тк i<n)
int m=24; // количество массивов(для периода H1 m=24, тк p=0, p<m)
int w=18; // количество заков после запятой
double Price_CloseX[][24]; // Массив цен закрытия 1 пары
double Price_CloseY[][24]; // Массив цен закрытия 2 пары
double dx[][24]; // Отклонение от среднего значения для пары 1 dx
double dy[][24]; // Отклонение от среднего значения для пары 2 dy
double dx2[][24]; // Квадрат отклонения ср.значения dx2
double dy2[][24]; // Квадрат отклонения ср.значения dy2
double dxdy[][24]; // Произведение dx и dy
double sum_x[][24];
double sum_y[][24];
double Mx[][24]; // Массив среднего значения цен закрытия пары 1 Mx
double My[][24]; // Массив среднего значения цен закрытия пары 2 My
double Edx2[][24]; // Сумма квадратов отклонений Edx2
double Edy2[][24]; // Сумма квадратов отклонений Edy2
double Edxdy[][24]; // Сумма произведений отклонений Edxdy
double Koef[];
ArrayResize(Price_CloseX, n);
ArrayResize(Price_CloseY, n);
ArrayResize(dx, n);
ArrayResize(dy, n);
ArrayResize(dx2, n);
ArrayResize(dy2, n);
ArrayResize(dxdy, n);
ArrayResize(sum_x, n);
ArrayResize(sum_y, n);
ArrayResize(Mx, n);
ArrayResize(My, n);
ArrayResize(Edx2, n);
ArrayResize(Edy2, n);
ArrayResize(Edxdy, n);
ArrayResize(Koef, n);
string sym_x="EURUSD";
string sym_y="GBPUSD";
for(int i=1; i<n; i++)
{
for(int p=0; p<m; p++)
{
Price_CloseX[i][p]=iClose(sym_x, PERIOD_H1, i+p);
Price_CloseY[i][p]=iClose(sym_y, PERIOD_H1, i+p);
}
}
for(int i=1; i<n; i++)
{
for(int p=0; p<m; p++)
{
sum_x[i][p]=sum_x[i][p-1]+Price_CloseX[i][p];
sum_y[i][p]=sum_y[i][p-1]+Price_CloseY[i][p];
}
}
for(int i=1; i<n; i++)
{
for(int p=0; p<m; p++)
{
Mx[i][p]=sum_x[p+1][m-1]/(n-1);
My[i][p]=sum_y[p+1][m-1]/(n-1);
}
}
for(int i=1; i<n; i++)
{
for(int p=0; p<m; p++)
{
dx[i][p]=Price_CloseX[i][p]-Mx[i][p];
dy[i][p]=Price_CloseY[i][p]-My[i][p];
}
}
for(int i=1; i<n; i++)
{
for(int p=0; p<m; p++)
{
dx2[i][p]=(dx[i][p]*dx[i][p])*1000000;
dy2[i][p]=(dy[i][p]*dy[i][p])*1000000;
}
}
for(int i=1; i<n; i++)
{
for(int p=0; p<m; p++)
{
dxdy[i][p]=(dx[i][p]*dy[i][p])*1000000;
}
}
for(int i=1; i<n; i++)
{
for(int p=0; p<m; p++)
{
Edx2[i][p]=(Edx2[i-1][p]+dx2[i][p]);
Edy2[i][p]=(Edy2[i-1][p]+dy2[i][p]);
Edxdy[i][p]=(Edxdy[i-1][p]+dxdy[i][p]);
}
}
for(int p=0; p<m; p++)
{
Koef[p]=Edxdy[n-1][p]/sqrt(Edx2[n-1][p]*Edy2[n-1][p]);
Buffer1[p]=Koef[p];
Alert("Коэффициент корреляции Пирсона между ", sym_x, " и ", sym_y, " равен ", DoubleToString(Koef[p], w));
Alert("Значение буфера ", p, " равно ", Buffer1[p]);
}
return(0);
}
Подскажите, где ошибка? Значения элементов массива Koef[] рассчитывается, каждому элементу присваивается значение. Почему не присваивается Buffer1[]???
Alert`ы попробуйте убрать из последнего цикла
не помогло(
Убрали и хорошо, они там никчему. Вместо алертов лучше использовать Print(...), и смотреть распечатку на вкладке "Эксперты"
У Вас присваивается одно и то же значение Edxdy[n-1][p]. Если в предыдущих циклах у Вас цикл в цикле и индекс "n" меняется, то в последнем - не меняется. Поcлtднее n-1=24
Попробуйте в наглую - присвоится? //индикатор должен нарисовать горизонтальную черную линию. Однако на черном фоне её видно не будет. Смените цвет фона, а лучше линии.
Если присвоится, то нужно думать - что записано здесь: Edxdy[24][p]
Хе, а может быть всё-таки всё присваивается и рисуется, а дело в отрисовке черной линии на черном фоне?
Вот тут указаны цвет, тип и толщина линии:
Убрали и хорошо, они там никчему. Вместо алертов лучше использовать Print(...), и смотреть распечатку на вкладке "Эксперты"
У Вас присваивается одно и то же значение Edxdy[n-1][p]. Если в предыдущих циклах у Вас цикл в цикле и индекс "n" меняется, то в последнем - не меняется. Поcлtднее n-1=24
Попробуйте в наглую - присвоится? //индикатор должен нарисовать горизонтальную черную линию. Однако на черном фоне её видно не будет. Смените цвет фона, а лучше линии.
Если присвоится, то нужно думать - что записано здесь: Edxdy[24][p]
Хе, а может быть всё-таки всё присваивается и рисуется, а дело в отрисовке черной линии на черном фоне?
Вот тут указаны цвет, тип и толщина линии:
Edxdy[n-1][p] - сюда я записал сумму произведения dx и dy. Это значение необходимо для вычисления коэффициента корреляции Пирсона Koef для массива, состоящего из n-1 элементов p-го измерения. В данном случае я решил вычислить корреляцию за 24 бара, начиная с первого. Результат сравнил с аналогичным вычислением коэф-та корреляции Пирсона, который просчитывает простенький скрипт(был взят всего лишь одномерный массив), а также на сайте "онлайн-калькулятор корреляции валютных пар". Все значения одинаковые. Я полагаю, что ошибка в объявлении массива Buffer1[]. Создал скрипт с аналогичным кодом, плюс объявление массива через ArrayResize(Buffer1, n). В коде скрипта Buffer1[p]=Koef[p] - значения присваиваются правильно. В коде индикатора нет(((
А Вы прочитали мой пост?
SetIndexStyle(0, DRAW_LINE, 0, 1, Green); - поставил значения, но все равно не рисует линию.
да, спасибо!
SetIndexStyle(0, DRAW_LINE, 0, 1, Green); - поставил значения, но все равно не рисует линию.
Попробуйте ещё убрать ограничители #property indicator_minimum -1, #property indicator_maximum 1, может значения буфера отрисовываются за ними.
Спасибо! Убрал #property strict - помогло)