Ув. коллеги, пожалуйста, помогите переписать индикатор на MQL5
Что, неужели ни у кого нет JMA на mql5 ?
//+------------------------------------------------------------------+ //| JMA.mq5 | //| Copyright 2010, MetaQuotes Software Corp. | //| http://www.mql5.com | //+------------------------------------------------------------------+ #property copyright "Copyright 2010, MetaQuotes Software Corp." #property link "http://www.mql5.com" #property version "1.00" #property indicator_chart_window #property indicator_buffers 8 #property indicator_plots 7 #property indicator_type1 DRAW_LINE #property indicator_color1 Blue //---- input parameters input int InpLength=100; // глубина JMA сглаживания input int InpPhase =100; // параметр JMA сглаживания, изменяющийся в пределах -100 ... +100, влияет на качество переходного процесса; input int InpShift =0; // cдвиг индикатора вдоль оси времени input int InpPriceCustoms=0; //Выбор цен, по которым производится расчёт индикатора (0-"Close", 1-"Open", 2-"(High+Low)/2", 3-"High", 4-"Low") //---- indicator buffers double JMA_Buf[ ]; double MEMORY1[9]; double MEMORY2[12]; double MEMORY3[128]; //---- temporary double buffers double list[128], ring1[128], ring2[11], buffer[62]; //---- double vars double f8, f60,f20,f28,f30,f40,f48,f58,f68,f70,f90,f78,f88,f98; double Kg,Dr,Ds,Dl,Pf,JMA,series,vv,v1,v2,v3,v4,s20,s10,fB0,fD0; //---- integer vars int ii,jj,s28,s30,f0,v5,v6,fE0,fD8,fE8,val,s48,s58,s60,s68,T0; //--- double f18=0.0,f38=0.0,fA0=0.0,fA8=0.0,fC0=0.0,fC8=0.0,s8=0.0,s18=0.0; int s38=0, s40=0, s50=0, s70=0, LP2=0, LP1=0; //+------------------------------------------------------------------+ //| JJMA indicator initialization function | //+------------------------------------------------------------------+ int OnInit() { //--- indicator buffers mapping SetIndexBuffer(0,JMA_Buf,INDICATOR_DATA); SetIndexBuffer(1,MEMORY1,INDICATOR_CALCULATIONS); SetIndexBuffer(2,MEMORY2,INDICATOR_CALCULATIONS); SetIndexBuffer(3,MEMORY3,INDICATOR_CALCULATIONS); SetIndexBuffer(4,list, INDICATOR_CALCULATIONS); SetIndexBuffer(5,ring1, INDICATOR_CALCULATIONS); SetIndexBuffer(6,ring2, INDICATOR_CALCULATIONS); SetIndexBuffer(7,buffer, INDICATOR_CALCULATIONS); //--- set accuracy IndicatorSetInteger(INDICATOR_DIGITS,_Digits+1); //--- sets first bar from what index will be drawn PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,InpLength); //---- line shifts when drawing PlotIndexSetInteger(0,PLOT_SHIFT,InpShift); //--- name for DataWindow string short_name="JMA Star Light"; IndicatorSetString(INDICATOR_SHORTNAME,short_name); //---- sets drawing line empty value-- PlotIndexSetDouble(0,PLOT_EMPTY_VALUE,0.0); //---- initial part if(InpPhase<-100){Alert("Параметр Phase должен быть от -100 до +100" + " Вы ввели недопустимое " + InpPhase+ " будет использовано -100");} if(InpPhase> 100){Alert("Параметр Phase должен быть от -100 до +100" + " Вы ввели недопустимое " + InpPhase+ " будет использовано 100");} if(InpLength< 1){Alert("Параметр Length должен не менее 1" + " Вы ввели недопустимое " + InpLength+ " будет использовано 1");} if(InpPriceCustoms<0){Alert("Параметр InpPriceCustoms должен не менее 0" + " Вы ввели недопустимое " + InpPriceCustoms+ " будет использовано 0");} if(InpPriceCustoms>4){Alert("Параметр InpPriceCustoms должен не более 4" + " Вы ввели недопустимое " + InpPriceCustoms+ " будет использовано 0");} if(InpLength < 1.0000000002) Dr=0.0000000001; //{1.0e-10} else Dr=(InpLength - 1.0)/2.0; if(InpPhase > 100) Pf=2.5; if(InpPhase < -100) Pf=0.5; if((InpPhase>=-100)&&(InpPhase<=100)) Pf=InpPhase/100.0 + 1.5; Dr=Dr * 0.9; Kg=Dr/(Dr + 2.0); Ds=MathSqrt(Dr); Dl=MathLog(Ds); //---- initialization done return(0); } //+------------------------------------------------------------------+ //| JJMA 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 &TickVolume[], const long &Volume[], const int &Spread[]) { //--- checking for bars count if(rates_total<InpLength) return(false); //--- int limit=rates_total-prev_calculated-1; //---- if(limit==rates_total-1) { //---- Повторное объявление переменных и их инициализация ArrayInitialize (MEMORY1, 0.0);ArrayInitialize (MEMORY2, 0 ); ArrayInitialize (MEMORY3, 0.0); ArrayInitialize (buffer, 0.0);ArrayInitialize (ring1, 0.0); ArrayInitialize (ring2, 0.0);ArrayInitialize (list, 0.0); //---- f0=1; s28=63; s30=64; for(ii=0; ii<=s28; ii++)list[ii]=-1000000.0; for(ii=s30; ii<=127; ii++)list[ii]= 1000000.0; //---- } if (limit<rates_total-1) { //---- инициализация переменных инициализация ArrayInitialize (buffer, 0.0);ArrayInitialize (ring1, 0.0); ArrayInitialize (list, 0.0);ArrayInitialize (ring2, 0.0); //---- f8 =0.0;f60=0.0;f20=0.0;f28=0.0;f30=0.0;f40=0.0;f48=0.0;f58=0.0;f68=0.0; f70=0.0;f90=0.0;f78=0.0;f88=0.0;f98=0.0;vv =0.0;v1 =0.0;v2 =0.0;v3 =0.0; v4 =0.0;fB0=0.0;fD0=0.0;v5 =0; v6 =0; fE0=0; fD8=0; fE8=0; val=0; //---- if(Time[limit+1]!=T0) { //--- Восстановение переменных if(Time[limit+1]!=MEMORY2[0])return(-1); fC0=MEMORY1[00]; fC8=MEMORY1[01]; fA8=MEMORY1[02]; s8 =MEMORY1[03]; f18=MEMORY1[04]; f38=MEMORY1[05]; s18=MEMORY1[06]; s20=MEMORY1[07]; s10=MEMORY1[08]; //---- s38=MEMORY2[01]; s48=MEMORY2[02]; s50=MEMORY2[03]; LP1=MEMORY2[04]; LP2=MEMORY2[05]; s28=MEMORY2[06]; s30=MEMORY2[07]; s48=MEMORY2[08]; s58=MEMORY2[09]; s60=MEMORY2[10]; s68=MEMORY2[11]; JMA=JMA_Buf[limit+1]; for(ii=0;ii<=127;ii++)list [ii]=MEMORY3[ii]; //---- } } for(int bar=limit; bar>=0; bar--) { //---- main cycle if((InpPriceCustoms<=0)||InpPriceCustoms>4)series=Close[bar]; if (InpPriceCustoms==1)series= Open[bar]; if (InpPriceCustoms==2)series=(High[bar]+Low[bar])/2; if (InpPriceCustoms==3)series= High[bar]; if (InpPriceCustoms==4)series= Low [bar]; //---- if (LP1<61){LP1++; buffer[LP1]=series;} if (LP1>30) { v1=Dl; v2=v1; if ((v1/MathLog(2.0)) + 2.0 < 0.0) v3=0.0; else v3=(v2/MathLog(2.0)) + 2.0; f98=v3; if(f98>=2.5)f88=f98 - 2.0; else f88=0.5; f78=Ds * f98; f90=f78/(f78 + 1.0); if (f0!=0) { f0=0; v5=0; for( ii=0; ii<=29; ii++) {if (buffer[ii+1]!=buffer[ii]) v5=1; break; } fD8=v5*30; if (fD8==0) f38=series; else f38=buffer[1]; f18=f38; if (fD8 > 29) fD8=29; } else fD8=0; for(ii=fD8; ii>=0; ii--) { val=31-ii; if (ii==0) f8=series; else f8=buffer[val]; f28=f8 - f18; f48=f8 - f38; if (MathAbs(f28) > MathAbs(f48)) v2=MathAbs(f28); else v2=MathAbs(f48); fA0=v2; vv=fA0 + 0.0000000001; //{1.0e-10;} if (s48<=1) s48=127; else s48=s48 - 1; if (s50<=1) s50=10; else s50=s50 - 1; if (s70 < 128) s70=s70 + 1; s8=s8 + vv - ring2[s50]; ring2[s50]=vv; if (s70 > 10) s20=s8/10.0; else s20=s8/s70; if (s70 > 127) { s10=ring1[s48]; ring1[s48]=s20; s68=64; s58=s68; while(s68 > 1) { if (list[s58] < s10){s68=s68 *0.5; s58=s58 + s68;} else if (list[s58]<=s10) s68=1; else{s68=s68 *0.5; s58=s58 - s68;} } } else { ring1[s48]=s20; if (s28 + s30 > 127){s30=s30 - 1; s58=s30;} else {s28=s28 + 1; s58=s28;} if (s28 > 96) s38=96; else s38=s28; if (s30 < 32) s40=32; else s40=s30; } s68=64; s60=s68; while(s68 > 1) { if (list[s60]>=s20) { if (list[s60 - 1]<=s20) s68=1; else {s68=s68 *0.5; s60=s60 - s68; } } else{s68=s68 *0.5; s60=s60 + s68;} if ((s60==127) && (s20 > list[127])) s60=128; } if (s70 > 127) { if (s58>=s60) { if ((s38 + 1 > s60) && (s40 - 1 < s60)) s18=s18 + s20; else if ((s40 + 0 > s60) && (s40 - 1 < s58)) s18=s18 + list[s40 - 1]; } else if (s40>=s60) {if ((s38 + 1 < s60) && (s38 + 1 > s58)) s18=s18 + list[s38 + 1]; } else if (s38 + 2 > s60) s18=s18 + s20; else if ((s38 + 1 < s60) && (s38 + 1 > s58)) s18=s18 + list[s38 + 1]; if (s58 > s60) { if((s40 - 1 < s58) && (s38 + 1 > s58)) s18=s18 - list[s58]; else if ((s38 < s58) && (s38 + 1 > s60)) s18=s18 - list[s38]; } else { if ((s38 + 1 > s58) && (s40 - 1 < s58)) s18=s18 - list[s58]; else if ((s40 + 0 > s58) && (s40 - 0 < s60)) s18=s18 - list[s40]; } } if (s58<=s60) { if (s58>=s60) list[s60]=s20; else { for( jj=s58 + 1; jj<=s60 - 1 ;jj++)list[jj - 1]=list[jj]; list[s60 - 1]=s20; } } else { for( jj=s58 - 1; jj>=s60 ;jj--) list[jj + 1]=list[jj]; list[s60]=s20; } if (s70<=127) { s18=0; for( jj=s40;jj<=s38 ;jj++) s18=s18 + list[jj]; } f60=s18/(s38 - s40 + 1.0); if (LP2 + 1 > 31) LP2=31; else LP2=LP2 + 1; if (LP2<=30) { if (f28 > 0.0) f18=f8; else f18=f8 - f28 * f90; if (f48 < 0.0) f38=f8; else f38=f8 - f48 * f90; JMA=series; if (LP2!=30) continue; if (LP2==30) { fC0=series; if(MathCeil(f78)>=1) v4=MathCeil(f78); else v4=1.0; fE8=IntPortion(v4); if (MathFloor(f78)>=1) v2=MathFloor(f78); else v2=1.0; fE0=IntPortion(v2); if (fE8== fE0) f68=1.0; else {v4=fE8 - fE0; f68=(f78 - fE0)/v4;} if (fE0<=29) v5=fE0; else v5=29; if (fE8<=29) v6=fE8; else v6=29; fA8=(series - buffer[LP1 - v5]) * (1.0 - f68)/fE0 + (series - buffer[LP1 - v6]) * f68/fE8; } } else { if (f98>=MathPow(fA0/f60, f88)) v1=MathPow(fA0/f60, f88); else v1=f98; if (v1 < 1.0) v2=1.0; else {if(f98>=MathPow(fA0/f60, f88)) v3=MathPow(fA0/f60, f88); else v3=f98; v2=v3;} f58=v2; f70=MathPow(f90, MathSqrt(f58)); if (f28 > 0.0) f18=f8; else f18=f8 - f28 * f70; if (f48 < 0.0) f38=f8; else f38=f8 - f48 * f70; } } if (LP2 >30) { f30=MathPow(Kg, f58); fC0 =(1.0 - f30) * series + f30 * fC0; fC8 =(series - fC0) * (1.0 - Kg) + Kg * fC8; fD0=Pf * fC8 + fC0; f20=f30 *(-2.0); f40=f30 * f30; fB0=f20 + f40 + 1.0; fA8 =(fD0 - JMA) * fB0 + f40 * fA8; JMA=JMA + fA8; } } if (LP1 <=30)JMA=0.0; JMA_Buf[bar]=JMA; if (bar==1) { MEMORY1[00]=fC0; MEMORY1[01]=fC8; MEMORY1[02]=fA8; MEMORY1[03]= s8; MEMORY1[04]=f18; MEMORY1[05]=f38; MEMORY1[06]=s18; MEMORY1[07]=s20; MEMORY1[08]=s10; //---- MEMORY2[01]=s38; MEMORY2[02]=s48; MEMORY2[03]=s50; MEMORY2[04]=LP1; MEMORY2[05]=LP2; MEMORY2[06]=s28; MEMORY2[07]=s30; MEMORY2[08]=s48; MEMORY2[09]=s58; MEMORY2[10]=s60; MEMORY2[11]=s68; MEMORY2[00]=Time[1]; for(ii=0; ii<=127; ii++) MEMORY3[ii]=list[ii]; T0=Time[0]; } } //---- main cycle done return(rates_total); } //+------------------------------------------------------------------+ //| | //+------------------------------------------------------------------+ int IntPortion (double param) { if (param > 0) return(MathFloor (param)); if (param < 0) return(MathCeil (param)); return(0.0); } //+------------------------------------------------------------------+
FinGeR, он неправильно работает. Это видно при сравнении с mql4 версией в MT4.
Я не могу найти ошибку.
FinGeR:
Я не могу найти ошибку.
возможно ето не ошибка, а особенность ;)
Я не могу найти ошибку.
Вы упускаете торговые возможности:
- Бесплатные приложения для трейдинга
- 8 000+ сигналов для копирования
- Экономические новости для анализа финансовых рынков
Регистрация
Вход
Вы принимаете политику сайта и условия использования
Если у вас нет учетной записи, зарегистрируйтесь
Речь идет о индикаторе JMA.mq4
На MQL4 форуме это https://www.mql5.com/ru/code/7309 или https://www.mql5.com/ru/code/7307
Я уже несколько дней не могу его переписать. Проблема в том, что ошибок компилятор не выдает, но расчет идет неверно. Поэтому я уже не знаю что делать. Возможно у кого-то есть уже готовый JMA.mq5 - очень прошу поделиться!
Или кто-то может проверить мой вариант на ошибки.. см. атач.