Обучение языку MQL4 под MetaTrader 4📌

[

extern int BarCount = 6;

double H_price ,
L_price;

int i,PunktCrlx;

for(i=0; i {
H_price = High(i); // Примечание квадратные скобочки в Spoiler не рисуются.
L_price = Low[(i);
PunktCrlx = MathAbs(L_price + H_price) / BarCount;
}



]

extern int History =1000;
extern int BarCount = 6;

double High_Price_Buff_0,
Low_Price_Buff_1,
PunktCrl,PunktCrlx;

double UP_Price_Buff_0[],
DWN_Price_Buff_1[];

int shift,n,
Counted_bars;

double Sum_H_Bars, // Сумма значений High быков за период
Sum_L_Bars; // Сумма значений Low быков за период

int OnInit()
{
IndicatorBuffers(2);
//--- indicator buffers mapping
SetIndexBuffer(0,UP_Price_Buff_0);
SetIndexStyle(0,DRAW_LINE);

SetIndexBuffer(1,DWN_Price_Buff_1);
SetIndexStyle(1,DRAW_LINE);

int OnCalculate(const int rates_total,
const int prev_calculated,
const datetime &time[],
const double &open[],
const double &high[],
const double &low[],
const double &close[],
const long &tick_volume[],
const long &volume[],
const int &spread[])
{

Comment("\n Среднее значение за 5 баров "+DoubleToStr(PunktCrl));



Counted_bars=IndicatorCounted(); // Количество просчитанных баров
shift = Bars-Counted_bars-1; // Индекс первого непосчитанного

if (shift > History-1) // Если много баров то ..
shift = History-1; // ..рассчитывать заданное колич.


High_Price_Buff_0 = 0;
Low_Price_Buff_1 = 0;

for(n=shift; n {
High_Price_Buff_0 = Sum_H_Bars + High[n]; // Накопление суммы макс.значений
Low_Price_Buff_1 = Sum_L_Bars + Low[n]; // Накопление суммы мин. значений
}

PunktCrlx += High_Price_Buff_0 - Low_Price_Buff_1;
PunktCrl = PunktCrlx /= BarCount;

//--- return value of prev_calculated for next call
return(rates_total);
}

#property copyright "-"
#property link "-"
#property strict
//---- отрисовка индикатора в главном окне
#property indicator_chart_window
//---- количество индикаторных буфферов
#property indicator_buffers 2
//---- цвета индикатора
#property indicator_color1 Blue
#property indicator_color2 Red
//---- входные параметры индикатора

extern string settings1 = "General";

input int pinbar_bars = 30;

extern string settings2 = "Pinbar";

input double pinbar_size_k_min = 1.5;
input double pinbar_size_k_max = 5;
input double pinbar_body_k = 0.3;
input double pinbar_tail_k = 1;
input int pinbar_atr_period = 50;


int delta = 150;
int MA_Slow = 260;
//---- индикаторные буфферы
double buf_1[];
double buf_2[];
//+------------------------------------------------------------------+
//| Функция инициализации, запускается один раз |
//+------------------------------------------------------------------+
int OnInit()
{
//---- 2 индикаторных буффера использованы для счёта
SetIndexBuffer(0, buf_1);
SetIndexBuffer(1, buf_2);
//---- Стиль исполнения графика
//---- DRAW_ARROW - стрелки(символы)
SetIndexStyle (0, DRAW_ARROW, STYLE_SOLID, 2, Green);
SetIndexStyle (1, DRAW_ARROW, STYLE_SOLID, 2, Green);
SetIndexArrow (0, 233);
SetIndexArrow (1, 234);
//---- установка значений индикатора, которые не будут видимы на графике
SetIndexEmptyValue(0,0.0);
SetIndexEmptyValue(1,0.0);
//---- установка номера бара, начиная с которого будет отрисовываться индикатор
SetIndexDrawBegin(0,MA_Slow);
SetIndexDrawBegin(1,MA_Slow);
//---- завершение инициализации
return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int OnCalculate ( const int rates_total, const int prev_calculated,
const datetime &time[],const double &open[],const double &high[], const double &low[], const double &close[],
const long &tick_volume[],const long &volume[],const int &spread[])
{
int i = (prev_calculated if (i while(i > 0)
{
//Здесь все расчёты


//----------------------Maximum/Minimum--------------------------

int highest_i = iHighest(Symbol(), 0, MODE_HIGH, pinbar_bars, i+1);
int lowest_i = iLowest (Symbol(), 0, MODE_LOW, pinbar_bars, i+1);
int highest_i1 = iHighest(Symbol(), 0, MODE_HIGH, pinbar_bars, i+2);
int lowest_i1 = iLowest (Symbol(), 0, MODE_LOW, pinbar_bars, i+2);

int condition_highest_i = 0;
int condition_lowest_i = 0;
int condition_highest_i1 = 0;
int condition_lowest_i1 = 0;

if(High>High[highest_i]) condition_highest_i = 1;
if(Low if(High[i+1]>High[highest_i1]) condition_highest_i1 = 1;
if(Low[i+1]

//------------------Pinbar---------------------------------------

int pinbar_buy = 0;
int pinbar_sell = 0;
double pinbar_atr = iATR(_Symbol, 0, pinbar_atr_period, i+1);


if(MathAbs(High-Low)>pinbar_atr*pinbar_size_k_min && MathAbs(High-Low) {
if (condition_highest_i == 1)
{
if(Open>Close && MathAbs(Open-Close) MathAbs(High-Open)>pinbar_atr*pinbar_tail_k && MathAbs(Close-Open)> Close-Low) pinbar_sell =1;
}
if(condition_lowest_i == 1)
{
if(Open && MathAbs(Open-Close) MathAbs(Low-Open)>pinbar_atr*pinbar_tail_k && MathAbs(Close-Open)> High-Close) pinbar_buy =1;
}
}


//========================================================================================================================


buf_2 = pinbar_sell == 1 ? High + delta*_Point : 0.0;
buf_1 = pinbar_buy == 1 ? Low - delta*_Point : 0.0;
//-----------------
i--;
}



return(rates_total);
}
//+------------------------------------------------------------------+

int pinbar_buy = iCustom(Symbol(), 0, "PA_pinbar", pinbar_bars, pinbar_size_k_min, pinbar_size_k_max, pinbar_body_k, pinbar_tail_k, pinbar_atr_period, 0, 1);
int pinbar_sell = iCustom(Symbol(), 0, "PA_pinbar", pinbar_bars, pinbar_size_k_min, pinbar_size_k_max, pinbar_body_k, pinbar_tail_k, pinbar_atr_period, 1, 1);

//+------------------------------------------------------------------+
//| Test 2.mq4 |
//| Klonoz Denis |
//| Skype_denis77515 |
//+------------------------------------------------------------------+
#property copyright "Klonoz Denis"
#property link "Skype_denis77515"
#property version "1.00"
#property strict
#property indicator_chart_window
/*#property indicator_separate_window
#property indicator_buffers 1
#property indicator_color1 clrBlue // HIGH
#property indicator_color2 clrDeepPink // LOW
#property indicator_color3 clrYellow // he average price for 5 candles / Cредняя цена за 5 свечей
#property indicator_color4 clrLime
#property indicator_color5 clrWhite*/

input string InpName = "RightPrice"; // Имя ценовой метки
input int InpDate = 0; // Дата точки привязки в %
input int InpPrice = 90; // Цена точки привязки в %
input color InpColor = clrRed; // Цвет ценовой метки
input ENUM_LINE_STYLE InpStyle = STYLE_SOLID; // Стиль окаймляющей линии
input int InpWidth = 2; // Размер ценовой метки
input bool InpBack = false; // Метка на заднем плане
input bool InpSelection = true; // Выделить для перемещений
input bool InpHidden = true; // Скрыт в списке объектов
input long InpZOrder = 0; // Приоритет на нажатие мышью
extern int BarCount = 5;

double Average_Price_High,
Average_Price_Low,
Min_Price,Max_Price,
dOpenPrice,Average;

/*double UP_Price_Buff_0[];
DWN_Price_Buff_1[],
Average_Price_High_Buff_2[],
Average_Price_Low_Buff_3[],
Average_Price[];*/

int punkt,
max_index,min_index,dPunkt,
sub_windowx=0,dwidth=1,
symbol=NULL,obj_arrow_right_price = OBJ_ARROW_RIGHT_PRICE;

datetime dtime = 0;

double val_h,
val_l;

string name_0 = "RightPrice";



//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int OnInit()
{
/*IndicatorDigits(_Digits);
//--- indicator buffers mapping
//IndicatorBuffers(2);

SetIndexBuffer(0,UP_Price_Buff_0);
SetIndexStyle(0,DRAW_LINE);
SetIndexArrow(0,59);

SetIndexBuffer(1,DWN_Price_Buff_1);
SetIndexStyle(1,DRAW_LINE);
SetIndexArrow(1,59);

SetIndexBuffer(2,Average_Price_High_Buff_2);
SetIndexStyle(2,0);

SetIndexBuffer(3,Average_Price_Low_Buff_3);
SetIndexStyle(3,0);

SetIndexBuffer(4,Average_Price);
SetIndexStyle(4,0); */

if(Digits == 5 || Digits == 3)
{
punkt *= 10;
Average_Price_High *= 10;
Average_Price_Low *= 10;
}
//---
return(INIT_SUCCEEDED);
}

//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int OnCalculate(const int rates_total,
const int prev_calculated,
const datetime &time[],
const double &open[],
const double &high[],
const double &low[],
const double &close[],
const long &tick_volume[],
const long &volume[],
const int &spread[])
{


/*Max_Price = GetMaxPrice();
Min_Price = GetMinPrice();*/

if(InpDate100 || InpPrice100)//--- проверим входные параметры на корректность
{
Print("Ошибка! Некорректные значения входных параметров!");
return(0);
}

int bars=(int)ChartGetInteger(0,BarCount);//--- количество видимых баров в окне графика

int accuracy=1000; //--- размер массива price

//--- массивы для хранения значений дат и цен, которые будут использованы
//--- для установки и изменения координат точки привязки метки
datetime date[];
double price[];
double price_high[];
double price_low[];
double price_average[];

//--- выделение памяти
ArrayResize(date,bars);
ArrayResize(price_high,accuracy);
ArrayResize(price_low,accuracy);
ArrayResize(price_average,accuracy);

//--- заполним массив дат
ResetLastError();
if(CopyTime(Symbol(),Period(),0,bars,date)==-1)
{
Print("Не удалось скопировать значения времени! Код ошибки = ",GetLastError());
return(0);
}
//--- заполним массив цен
//--- найдем максимальное и минимальное значение графика за BarCount

max_index = 0; // обнуляем переменные
min_index = 0;

max_index = iHighest(Symbol(),PERIOD_D1,MODE_HIGH,BarCount,1); // индекс наибольшего найденного значения High за BarCount со здвигом в 1 бар
min_index = iLowest(Symbol(),PERIOD_D1,MODE_LOW,BarCount,1); // индекс наименьшего найденного значения Low за BarCount со здвигом в 1 бар

if(max_index !=-1) // Если достаточно баров
val_h = iHigh(Symbol(), PERIOD_D1, max_index); // Максимальное значение за BarCount
if(min_index !=-1)
val_l = iLow(Symbol(), PERIOD_D1, min_index); // Минимальное значение за BarCount

//---
dOpenPrice = OpenPrice();
// Цена открытия дневного бара
dPunkt = 0; // Обнуляем переменные
punkt = 0;

dPunkt = Punkt(); // Количество пунктов от High до Low за 5 дней
if(dPunkt)
punkt = dPunkt / 2; // Среднее делим на 2

Average_Price_High = 0; // Обнуляем переменные
Average_Price_Low = 0;

Average_Price_High = NormalizeDouble(dOpenPrice + punkt * _Point,_Digits); // Откладыаем 1/2 часть пунктов к High от цены открытия дневного бара
Average_Price_Low = NormalizeDouble(dOpenPrice - punkt * _Point,_Digits); // Откладыаем 1/2 часть пунктов к Low от цены открытия дневного бара

Comment("\n Количество пунктов от High до Low за 5 дней "+ IntegerToString(dPunkt)+
"\n Количество пунктов от открытия дня до High за 5 дней "+ DoubleToStr(Average_Price_High,_Digits)+
"\n Количество пунктов от открытия дня до Low за 5 дней "+ DoubleToStr(Average_Price_Low,_Digits)+
"\n Цена открытия дня "+DoubleToStr(dOpenPrice,_Digits));

//--- return value of prev_calculated for next call
return(rates_total);
}
//+------------------------------------------------------------------+
//| Создает правую ценовую метку |
//+------------------------------------------------------------------+
bool ArrowRightPriceCreate(const long chart_ID=0, // ID графика
const string name="RightPrice", // имя ценовой метки
const int sub_window=0, // номер подокна
datetime time=0, // время точки привязки
double price=0, // цена точки привязки
const color clr=clrRed, // цвет ценовой метки
const ENUM_LINE_STYLE style=STYLE_SOLID, // стиль окаймляющей линии
const int width=1, // размер ценовой метки
const bool back=false, // на заднем плане
const bool selection=true, // выделить для перемещений
const bool hidden=true, // скрыт в списке объектов
const long z_order=0) // приоритет на нажатие мышью
{
ChangeArrowEmptyPoint(time,price); //--- установим координаты точки привязки, если они не заданы
ResetLastError(); //--- сбросим значение ошибки

if(!ObjectCreate(chart_ID,name,OBJ_ARROW_RIGHT_PRICE,sub_window,time,price)) //--- создадим ценовую метку

{
Print(__FUNCTION__,": не удалось создать правую ценовую метку! Код ошибки = ",GetLastError());
return(false);
}
ObjectSetInteger(chart_ID,name,OBJPROP_CORNER,0); //--- установим угол привязки
ObjectSetInteger(chart_ID,name,OBJPROP_XDISTANCE,710); //--- установим Х координату
ObjectSetInteger(chart_ID,name,OBJPROP_YDISTANCE,105); //--- установим Y координату
ObjectSetInteger(chart_ID,name,OBJPROP_COLOR,clr); //--- установим цвет метки
ObjectSetInteger(chart_ID,name,OBJPROP_STYLE,style); //--- установим стиль окаймляющей линии
ObjectSetInteger(chart_ID,name,OBJPROP_WIDTH,width); //--- установим размер метки
ObjectSetInteger(chart_ID,name,OBJPROP_BACK,back); //--- отобразим на переднем (false) или заднем (true) плане

//--- включим (true) или отключим (false) режим перемещения метки мышью
//--- при создании графического объекта функцией ObjectCreate, по умолчанию объект
//--- нельзя выделить и перемещать. Внутри же этого метода параметр selection
//--- по умолчанию равен true, что позволяет выделять и перемещать этот объект
ObjectSetInteger(chart_ID,name,OBJPROP_SELECTABLE,selection);
ObjectSetInteger(chart_ID,name,OBJPROP_SELECTED,selection);
ObjectSetInteger(chart_ID,name,OBJPROP_HIDDEN,hidden); //- скроем (true) или отобразим (false) имя графического объекта в списке объектов
ObjectSetInteger(chart_ID,name,OBJPROP_ZORDER,z_order);//- установим приоритет на получение события нажатия мыши на графике
//--- успешное выполнение
return(true);
}
//+------------------------------------------------------------------+
//| Перемещает точку привязки |
//+------------------------------------------------------------------+
bool ArrowRightPriceMove(const long chart_ID=0, // ID графика
const string name="RightPrice", // имя метки
datetime time=0, // координата времени точки привязки
double price=0) // координата цены точки привязки
{
//--- если координаты точки не заданы, то перемещаем ее на текущий бар с ценой Bid
if(!time)
time=TimeCurrent();
if(!price)
price=SymbolInfoDouble(Symbol(),SYMBOL_BID);
//--- сбросим значение ошибки
ResetLastError();
//--- переместим точку привязки
if(!ObjectMove(chart_ID,name,0,time,price))
{
Print(__FUNCTION__,
": не удалось переместить точку привязки! Код ошибки = ",GetLastError());
return(false);
}
//--- успешное выполнение
return(true);
}
//+------------------------------------------------------------------+
//| Проверяет значения точки привязки и для пустых значений |
//| устанавливает значения по умолчанию |
//+------------------------------------------------------------------+
void ChangeArrowEmptyPoint(datetime &time,double &price)
{
if(!time)
time=TimeCurrent();//--- если время точки не задано, то она будет на текущем баре

if(!price)
price=SymbolInfoDouble(Symbol(),SYMBOL_BID);//--- если цена точки не задана, то она будет иметь значение Bid

}
//+------------------------------------------------------------------+
double OpenPrice()
{
double open_price = -1;
if(open_price !=Open[0])
{
open_price = iOpen(Symbol(),PERIOD_D1,0);
}
return(open_price);
}

//+------------------------------------------------------------------+
int Punkt()
{
int r=1000000;
double d, point;

point=MarketInfo(Symbol(), MODE_POINT);

if (point == 0) if(StringFind(Symbol(), "JPY")
d=MathAbs(val_h-val_l)/point;

if (r>d) r=NormalizeDouble(d, 0);

return(r);
}

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

//--------------------------------------------------------------------+
/*double GetMinPrice()
{
double dlow = 1000000,
dprice;

for (int i=BarCount-1; i>=0; i--)
{
dprice = iLow(Symbol(), PERIOD_D1, i);
if(dprice dlow = dprice;
}
return(dlow);

}
//+------------------------------------------------------------------+
double GetMaxPrice()
{
double dhigh = 0,
dprice;

for (int i=BarCount-1; i>=0; i--)
{
dprice = iHigh(Symbol(), PERIOD_D1, i);
if(dprice > dhigh)
dhigh = dprice;
}
return(dhigh);
}*/