За 15 лет на этом форуме ни один его участник не был мне полезен.

Sergey Gridnev 2024.10.01 14:25 #21

Edgar Akhmadeev #:
Я совсем не помню язык, хотел бы посмотреть образцы кода. Может у разработчиков в музее славы сохранилось?

Рукописи не горят ;)

https://book.mql4.com/ru

Edgar Akhmadeev 2024.10.01 15:28 #22

Sergey Gridnev #:

Рукописи не горят ;)

https://book.mql4.com/ru

Та я про mql3.

Vitaly Muzichenko 2024.10.02 02:28 #23

Edgar Akhmadeev #:

Та я про mql3.

Держите, Я с ним как раз сегодня работал, и нашёл этот код :)

Author := Bigblockfw

Separate Window := Yes

First Color := Blue

First Draw Type := histogram

First Symbol := 217

Use Second Data := Yes

Second Color := Red

Second Draw Type := Line

Second Symbol := 218

Changing the value of Float to 100 will alow it to display properly on 15 min chart,

200 = 30 min 20 = 5 min

]]*/

input : float(100),use_fibos(1),Backtesting(0);

Variable :

shift(0),f(0),c1(0),high_bar(0),Low_bar(0),bars_high(0),bars_low(0);

Variable :

cumulativeV(0),FLOATV(0),cumulativeV2(0),loopbegin2(0),swing(0),swing_time(0);

Variable : swingv(0),loopbegin1(0),cnt(0);

Variable : first(True),first1(True), prevbars(0);

Variable : cvstart(0),cvend(0),bar(0),newcv(0),CV(0),CV2(0);

Variable : fib23(0),fib38(0),fib50(0),fib62(0),fib76(0);

Variable : dinap0(0),dinap1(0),dinap2(0),dinap3(0),dinap4(0),dinap5(0);

Variable : CVL(0),CVL1(0),CVL2(0),CVL3(0),CVL4(0);

cumulativeV=0;

cumulativeV2=0;

SetLoopCount(0);

If Bars 1 Then

first = True;

first1 = True;

prevbars = Bars;

FLOATV=0;

If first Then Begin

loopbegin1 = Bars-float-1;

loopbegin2 = Bars-float-1;

first = False;

loopbegin1 = loopbegin1+1;

For shift = loopbegin1 Downto 0 Begin

//find high and low

high_bar = H;

Low_bar = L[Lowest(MODE_LOW,float,float)];

//find bar counts

bars_high = highest(MODE_HIGH,float,float);

bars_low = lowest(MODE_LOW,float,float);

//find swing price differance

swing = H-

L[Lowest(MODE_LOW,float,float)];

//find float time barcount

swing_time = abs(bars_low-bars_high);

//find cumulative volume for float period

IF bars_high < bars_low then

{

cvstart=bars_low;

cvend=bars_high;

}

else

{

cvstart=bars_high;

cvend=bars_low;

}

If first1 and FLOATV=0 Then Begin

for shift = cvstart downto cvend Begin {

FLOATV=FLOATV+V[shift];

first1 = False;}

end;

//find cumulative volume since last turnover

for shift = cvstart downto 0 Begin

cumulativeV=cumulativeV+V[shift];

if cumulativeV>=FLOATV then{

cumulativeV=0;

}

SetIndexValue(shift,cumulativeV*0.001);//Blue

SetIndexValue2(shift,FLOATV*0.001);//red

comment(

"\n","high was ",bars_high," bars ago",

"\n","Low was ",bars_low," bars ago","\n",

"\n","Float time was = ", swing_time," bars",

"\n","Float Vol. left = ",FLOATV-cumulativeV,

"\n","Float Volume = ",FLOATV

);

MoveObject("swingtop",OBJ_TRENDLINE,Time[cvstart],high_bar,Time[1],high_bar,Blue,1,STYLE_SOLID);

MoveObject("swingbottom",OBJ_TRENDLINE,Time[cvstart],Low_bar,Time[1],Low_bar,Blue,1,STYLE_SOLID);

//fibos

If use_fibos=1 then{

fib23=((high_bar-Low_bar)*0.236)+Low_bar;

fib38=((high_bar-Low_bar)*0.382)+Low_bar;

fib50=((high_bar-Low_bar)/2)+Low_bar;

fib62=((high_bar-Low_bar)*0.618)+Low_bar;

fib76=((high_bar-Low_bar)*0.764)+Low_bar;

dinap0=(Low_bar+fib23)/2;

dinap1=(fib23+fib38)/2;

dinap2=(fib38+fib50)/2;

dinap3=(fib50+fib62)/2;

dinap4=(fib62+fib76)/2;

dinap5=(high_bar+fib76)/2;

MoveObject("fib23",OBJ_TRENDLINE,Time[cvstart],fib23,Time[1],fib23,Green,1,STYLE_DASH);

SetObjectText("23","23.6","Arial",8,green);

MoveObject("23",OBJ_TEXT,time[0],fib23,time[0],fib23,Green);

MoveObject("fib38",OBJ_TRENDLINE,Time[cvstart],fib38,Time[1],fib38,Green,1,STYLE_DASH);

SetObjectText("38","38.2","Arial",8,green);

MoveObject("38",OBJ_TEXT,time[0],fib38,time[0],fib38,Green);

MoveObject("fib50",OBJ_TRENDLINE,Time[cvstart],fib50,Time[1],fib50,Red,2,STYLE_SOLID);

SetObjectText("50","50","Arial",8,green);

MoveObject("50",OBJ_TEXT,time[0],fib50,time[0],fib50,Green);

MoveObject("fib62",OBJ_TRENDLINE,Time[cvstart],fib62,Time[1],fib62,Green,1,STYLE_DASH);

SetObjectText("62","61.8","Arial",8,green);

MoveObject("62",OBJ_TEXT,time[0],fib62,time[0],fib62,Green);

MoveObject("fib76",OBJ_TRENDLINE,Time[cvstart],fib76,Time[1],fib76,Green,1,STYLE_DASH);

SetObjectText("76","76.4","Arial",8,green);

MoveObject("76",OBJ_TEXT,time[0],fib76,time[0],fib76,Green);

MoveObject("dinap0",OBJ_TRENDLINE,Time[cvstart],dinap0,Time[1],dinap0,Red,1,STYLE_DOT);

MoveObject("dinap1",OBJ_TRENDLINE,Time[cvstart],dinap1,Time[1],dinap1,Red,1,STYLE_DOT);

MoveObject("dinap2",OBJ_TRENDLINE,Time[cvstart],dinap2,Time[1],dinap2,Red,1,STYLE_DOT);

MoveObject("dinap3",OBJ_TRENDLINE,Time[cvstart],dinap3,Time[1],dinap3,Red,1,STYLE_DOT);

MoveObject("dinap4",OBJ_TRENDLINE,Time[cvstart],dinap4,Time[1],dinap4,Red,1,STYLE_DOT);

MoveObject("dinap5",OBJ_TRENDLINE,Time[cvstart],dinap5,Time[1],dinap5,Red,1,STYLE_DOT);

}

//vert. float lines. these draw the lines that calculate the float

//if you change "trendline" to "Vline" it will draw through oscillators too.might be fun

MoveObject("CVSTART",OBJ_TRENDLINE,Time[cvstart],high_bar,Time[cvstart],Low_bar*point,Blue,1,STYLE_SOLID);

MoveObject("CVEND",OBJ_TRENDLINE,Time[cvend],high_bar,Time[cvend],Low_bar*point,Blue,1,STYLE_SOLID);

//vert float predictions. These are only time based.

//see blue histogram for real float values.

//if you change "trendline" to "Vline" it will draw through oscillators too.might be fun

if cvend-swing_time>0 then {

MoveObject("swingend",OBJ_TRENDLINE,Time[(cvend-swing_time)+5],high_bar,Time[cvend-swing_time+5],Low_bar,Red,1,STYLE_DOT);

}

else DelObject("swingend",0,0,0,0);

if cvend-(swing_time*2)>0 then {

MoveObject("swingend2",OBJ_TRENDLINE,Time[(cvend-(swing_time*2))+5],high_bar,Time[cvend-(swing_time*2)+5],Low_bar,Red,1,STYLE_DOT);

}

else DelObject("swingend2",0,0,0,0);

if cvend-(swing_time*3)>0 then {

MoveObject("swingend3",OBJ_TRENDLINE,Time[(cvend-(swing_time*3))+5],high_bar,Time[cvend-(swing_time*3)+5],Low_bar,Red,1,STYLE_DOT);

}

else DelObject("swingend3",0,0,0,0);

if cvend-(swing_time*4)>0 then {

MoveObject("swingend4",OBJ_TRENDLINE,Time[(cvend-(swing_time*4))+5],high_bar,Time[cvend-(swing_time*4)+5],Low_bar,Red,1,STYLE_DOT);

}

else DelObject("swingend4",0,0,0,0);

if cvend-(swing_time*5)>0 then {

MoveObject("swingend5",OBJ_TRENDLINE,Time[(cvend-(swing_time*5))+5],high_bar,Time[cvend-(swing_time*5)+5],Low_bar,Red,1,STYLE_DOT);

}

else DelObject("swingend5",0,0,0,0);

if cvend-(swing_time*6)>0 then {

MoveObject("swingend6",OBJ_TRENDLINE,Time[cvend-(swing_time*6)+5],high_bar,Time[cvend-(swing_time*6)+5],Low_bar,Red,1,STYLE_DOT);

}

else DelObject("swingend6",0,0,0,0);

if cvend-(swing_time*7)>0 then {

MoveObject("swingend7",OBJ_TRENDLINE,Time[cvend-(swing_time*7)+5],high_bar,Time[cvend-(swing_time*7)+5],Low_bar,Red,1,STYLE_DOT);

}

else DelObject("swingend7",0,0,0,0);

if cvend-(swing_time*8)>0 then {

MoveObject("swingend8",OBJ_TRENDLINE,Time[cvend-(swing_time*8)+5],high_bar,Time[cvend-(swing_time*8)+5],Low_bar,Red,1,STYLE_DOT);

}

else DelObject("swingend8",0,0,0,0);

if cvend-(swing_time*9)>0 then {

MoveObject("swingend9",OBJ_TRENDLINE,Time[cvend-(swing_time*9)+5],high_bar,Time[cvend-(swing_time*9)+5],Low_bar,Red,1,STYLE_DOT);

}

else DelObject("swingend9",0,0,0,0);

//comment out anything you"re not using it will help with speed.

If Backtesting = 1 then {

SetGlobalVariable("fib23",fib23);

SetGlobalVariable("fib38",fib38);

SetGlobalVariable("fib50",fib50);

SetGlobalVariable("fib62",fib62);

SetGlobalVariable("fib76",fib76);

SetGlobalVariable("dinap0",dinap0);

SetGlobalVariable("dinap1",dinap1);

SetGlobalVariable("dinap2",dinap2);

SetGlobalVariable("dinap3",dinap3);

SetGlobalVariable("dinap4",dinap4);

SetGlobalVariable("dinap5",dinap5);

SetGlobalVariable("swingtop",high_bar);

SetGlobalVariable("swingbottom",Low_bar);

SetGlobalVariable("CVSTART",CVSTART);

SetGlobalVariable("CVEND",CVEND);

SetGlobalVariable("FLOATV",FLOATV);

SetGlobalVariable("cumulativeV",cumulativeV);

SetGlobalVariable("swing_time",swing_time);

SetGlobalVariable("bars_high",bars_high);

SetGlobalVariable("bars_low",bars_low);

if cvend-swing_time>0 then

SetGlobalVariable("swingend",(cvend-swing_time)+5);

if cvend-(swing_time*2)>0 then

SetGlobalVariable("swingend2",cvend-(swing_time*2)+5);

if cvend-(swing_time*3)>0 then

SetGlobalVariable("swingend3",cvend-(swing_time*3)+5);

if cvend-(swing_time*4)>0 then

SetGlobalVariable("swingend4",cvend-(swing_time*4)+5);

if cvend-(swing_time*5)>0 then

SetGlobalVariable("swingend5",cvend-(swing_time*5)+5);

if cvend-(swing_time*6)>0 then

SetGlobalVariable("swingend6",cvend-(swing_time*6)+5);

if cvend-(swing_time*7)>0 then

SetGlobalVariable("swingend7",cvend-(swing_time*7)+5);

if cvend-(swing_time*8)>0 then

SetGlobalVariable("swingend8",cvend-(swing_time*8)+5);

if cvend-(swing_time*9)>0 then

SetGlobalVariable("swingend9",cvend-(swing_time*9)+5);

}

End;

end;

end;

end;

Aleksey Vyazmikin 2024.10.02 02:50 #24

Vitaly Muzichenko #:

Держите, Я с ним как раз сегодня работал, и нашёл этот код :)

А что, есть ДЦ на MT3?

Vitaly Muzichenko 2024.10.02 03:06 #25

Aleksey Vyazmikin #:

А что, есть ДЦ на MT3?

Понятия не имею. Нужен был оригинальный код этого индикатора со своим нюансом, чтобы сделать для мт5.

Edgar Akhmadeev 2024.10.02 12:08 #26

Vitaly Muzichenko #:

Держите, Я с ним как раз сегодня работал, и нашёл этот код :)

Спасибо.

Кстати, mql3 тоже был прорывом, потому что в то время был популярный язык алготрейдинга, основанный на натуральном языке. Не для программистов. И с очень примитивным набором функций. Не помню, чей он был.

moskitman 2024.10.03 08:53 #27

"... но примчались санитары И зафиксировали нас..." ©

За 15 лет на этом форуме ни один его участник не был мне полезен. Тем более в работе.
Юноши с пылающим взором, мечтающие и кнопке "Бабло" и вечно не выспавшиеся (но предприимчивые) программисты, продающие им все остальные кнопки, кроме искомой.
Кто из них может быть полезен?

"А может снова все Еще раз. Пипсовка - В текущий момент меется

Serqey Nikitin 2024.10.03 09:14 #28

moskitman #:

"... но примчались санитары И зафиксировали нас..." ©

За 15 лет на этом форуме ни один его участник не был мне полезен. Тем более в работе.
Юноши с пылающим взором, мечтающие и кнопке "Бабло" и вечно не выспавшиеся (но предприимчивые) программисты, продающие им все остальные кнопки, кроме искомой.
Кто из них может быть полезен?

ВСЕГДА нужно начинать с себя!

Что Вы лично дали форуму за 15 лет, чтобы получить ответную реакцию?...

lynxntech 2024.10.05 10:11 #29

Не могу сообразить для чего минус 1 тут

limit=rates_total-1;

Форум по трейдингу, автоматическим торговым системам и тестированию торговых стратегий

Могли бы вы рассказать о случае, когда участник форума оказался полезным в вашей работе, и можете ли вы описать это подробно?

Artyom Trishkin, 2024.09.24 07:57

Мы этот цикл когда-то уже обсуждали. Ты сказал, что в нём есть некоторые условности, не позволяющие определять сколько новых баров было добавлено в историю, и каких именно (или что-то в этом роде - не помню уже точно).

//--- Проверка и расчёт количества просчитываемых баров
   int limit=rates_total-prev_calculated;
   if(limit>1)
     {
      limit=rates_total-1;
      ArrayInitialize(BufferXXX,EMPTY_VALUE); // инициализация буферов начальными значениями
     }
//--- Цикл
   for(int i=limit; i>=0 && !IsStopped(); i--)
     {
      // расчёт
     }

Если limit > 1 - это первый расчёт или добавление баров в историю,

Если limit == 1 - это открытие нового бара,

Если limit == 0 - это очередной текущий тик.

Работает одинаково в MQL4 и MQL5.

Но в MQL5 нужно индексацию всех используемых массивов делать как в таймсерии - флаг устанавливать.

Как начать работу с Мт4 Конец поддержке. Вопросы от начинающих MQL5

Maxim Kuznetsov 2024.10.05 10:19 #30

lynxntech #:

Не могу сообразить для чего минус 1 тут

limit=rates_total-1;

чтобы пересчитывать даже на каждом тике (когда prev_calculated==rates_total), а не на каждом баре.

того-же эффекта можно добиться если не отнимать еденицу от цикла а возвращать rates_total-1.

Что кстати более соответствует логике функции OnCalculate - вернуть кол-во баров не требующих пересчёта

[АРХИВ] Любой вопрос новичка, Помогите упростить условие!!! Пожалуйста помогите добиться проверки

Могли бы вы рассказать о случае, когда участник форума оказался полезным в вашей работе, и можете ли вы описать это подробно? - страница 3