Edit Your Comment
Help please for a custom Indicator
Tham gia từ Mar 02, 2011
10bài viết
Mar 15, 2011 at 22:06
Tham gia từ Mar 02, 2011
10bài viết
Hello
I wrote these lines of code and I would like to get it working properly .
I use it in an EA and it seems correct ...unfortunately messagge in journal says : cannot resize the array.
Can anybody please correct the bug or the syntax ?
Thanks
Giorgio
//+------------------------------------------------------------------+
//| Ratio.mq4 |
//| Copyright © 2010, Giorgio Guglielmo. |
//|
//+------------------------------------------------------------------+
#property copyright 'Copyright © 2010, Giorgio Guglielmo.'
//---- indicator settings
#property indicator_separate_window
#property indicator_buffers 2
#property indicator_color1 Red
#property indicator_color2 Blue
#property indicator_minimum -800000
#property indicator_maximum 800000
//---- indicator parameters
extern int periodAv=25;
extern int period=5;
//---- indicator buffers
double GainBuffer[];//Gain
double RatioBuffer[];//Ratio
double ReturnBuffer[];//Return
double MyPlotBuffer[];
double AVMyPlotBuffer[];
double AV1MyPlotBuffer[];
double SmoothedAV1MyPlotBuffer[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
//---- 2 additional buffers are used for counting.
IndicatorBuffers(2);//controllare !!!!!
//---- drawing settings
IndicatorDigits(Digits+2);
//---- 6 indicator buffers mapping
//SetIndexBuffer(0,GainBuffer);//Gold
//SetIndexBuffer(1,RatioBuffer);//Silver
//SetIndexBuffer(2,ReturnBuffer);//Black
//SetIndexBuffer(3,MyPlotBuffer);//Green
SetIndexBuffer(0,AV1MyPlotBuffer);//Red
SetIndexBuffer(1,SmoothedAV1MyPlotBuffer);//Blue
//SetIndexStyle(0,DRAW_LINE);//Gold
//SetIndexStyle(1,DRAW_LINE);//Silver
//SetIndexStyle(2,DRAW_LINE);//Black
// SetIndexStyle(3,DRAW_LINE);//Green
// SetIndexStyle(4,DRAW_LINE);//Red
SetIndexStyle(0,DRAW_LINE);//Blue
SetIndexStyle(1,DRAW_LINE);//Blue
//---- name for DataWindow and indicator subwindow label
IndicatorShortName('Ratio('+period+','+periodAv+')');
//---- initialization done
return(0);
}
//+------------------------------------------------------------------+
//| declare arrays |
//+------------------------------------------------------------------+
int start()
{
if(Bars<MathMax(period,periodAv))
return(0);
int count,i,MaxBar,usedBar,bar,newSize;
int counted_bars=IndicatorCounted();
double MyArray0[]; //declare an array
double MyArray1[]; //declare an array
double MyArray2[]; //declare an array
double MyArray3[]; //declare an array
double MyArray4[]; //declare an array
double MyArray5[]; //declare an array
//double bbMacd[];
if(counted_bars<0)
return(-1);
// ****************************************************************/
if(counted_bars>0) counted_bars--;
usedBar=MathMax(period,periodAv);
count=Bars-counted_bars;
MaxBar=Bars-1-usedBar;
/****************************************************************/
newSize=iBars(NULL,0);
if(ArraySize(MyArray0)<newSize)
{
ArraySetAsSeries(MyArray0,false);
ArraySetAsSeries(MyArray1,false);
ArraySetAsSeries(MyArray2,false);
ArraySetAsSeries(MyArray3,false);
ArraySetAsSeries(MyArray4,false);
ArraySetAsSeries(MyArray5,false);
ArraySetAsSeries(GainBuffer,false);
ArraySetAsSeries(RatioBuffer,false);
ArraySetAsSeries(ReturnBuffer,false);
ArraySetAsSeries(MyPlotBuffer,false);
ArraySetAsSeries(AVMyPlotBuffer,false);
ArraySetAsSeries(AV1MyPlotBuffer,false);
ArraySetAsSeries(SmoothedAV1MyPlotBuffer,false);
ArrayResize(MyArray0,newSize);
ArrayResize(MyArray1,newSize);
ArrayResize(MyArray2,newSize);
ArrayResize(MyArray3,newSize);
ArrayResize(MyArray4,newSize);
ArrayResize(MyArray5,newSize);
ArrayResize(GainBuffer,newSize);
ArrayResize(RatioBuffer,newSize);
ArrayResize(ReturnBuffer,newSize);
ArrayResize(MyPlotBuffer,newSize);
ArrayResize(AVMyPlotBuffer,newSize);
ArrayResize(AV1MyPlotBuffer,newSize);
ArrayResize(SmoothedAV1MyPlotBuffer,newSize);
ArraySetAsSeries(MyArray0,true);
ArraySetAsSeries(MyArray1,true);
ArraySetAsSeries(MyArray2,true);
ArraySetAsSeries(MyArray3,true);
ArraySetAsSeries(MyArray4,true);
ArraySetAsSeries(MyArray5,true);
ArraySetAsSeries(GainBuffer,true);
ArraySetAsSeries(RatioBuffer,true);
ArraySetAsSeries(ReturnBuffer,true);
ArraySetAsSeries(MyPlotBuffer,true);
ArraySetAsSeries(AVMyPlotBuffer,true);
ArraySetAsSeries(AV1MyPlotBuffer,true);
ArraySetAsSeries(SmoothedAV1MyPlotBuffer,true);
}
/**********************************************************************************/
if(count>MaxBar)
{
count=MaxBar;
for(bar=Bars -1;bar>=MaxBar;bar--)
{
MyArray0[bar] = 0.0;
MyArray1[bar] = 0.0;
MyArray2[bar] = 0.0;
MyArray3[bar] = 0.0;
MyArray4[bar] = 0.0;
MyArray5[bar] = 0.0;
}
}
//******************************************************************************/
//*******************************************************************************/
for(i=count; i>=1; i--)
{
MyArray0[i] =(iClose(NULL,0,i)-iClose(NULL,0,period))*100/(iClose(NULL,0,period));
}
for( i=count; i>=1; i--)
{
GainBuffer[i]=MyArray0[i];
}
for( i=count; i>=1; i--)
{
MyArray1[i] = MathAbs(iMomentum(NULL,0,period,PRICE_CLOSE,i))/iATR(NULL,0,period,i);
}
//for(i=0; i<limit; i++)
for( i=count; i>=1; i--)
{
RatioBuffer[i]= iMAOnArray(MyArray1,Bars,period+periodAv,0,MODE_SMA,i);//divide for 10 ??
}
for( i=count; i>=1; i--)
{
MyArray2[i] =RatioBuffer[i] ;
}
// for( i=0; i<limit; i++)
for( i=count; i>=1; i--)
{
ReturnBuffer[i]=iMAOnArray(MyArray2,Bars,periodAv+period,0,MODE_SMA,i);
}
for( i=count; i>=1; i--)
{
MyArray4[i]=ReturnBuffer[i]*GainBuffer[i]*10;//multiply for 100
}
for( i=count; i>=1; i--)
{
MyPlotBuffer[i]=MyArray4[i];
}
for(i=count; i>=1; i--)
{
AV1MyPlotBuffer[i]=iMAOnArray(MyArray4,Bars,period,0,MODE_SMA,i);
}
for(i=count; i>=1; i--)
{
MyArray5[i]=AV1MyPlotBuffer[i]*0.9+MyArray4[i]*0.1;
}
for(i=count; i>=1; i--)
{
SmoothedAV1MyPlotBuffer[i]=iMAOnArray(MyArray5,Bars,period,0,MODE_SMA,i);
}
return(0);
}
//+------------------------------------------------------------------+
I wrote these lines of code and I would like to get it working properly .
I use it in an EA and it seems correct ...unfortunately messagge in journal says : cannot resize the array.
Can anybody please correct the bug or the syntax ?
Thanks
Giorgio
//+------------------------------------------------------------------+
//| Ratio.mq4 |
//| Copyright © 2010, Giorgio Guglielmo. |
//|
//+------------------------------------------------------------------+
#property copyright 'Copyright © 2010, Giorgio Guglielmo.'
//---- indicator settings
#property indicator_separate_window
#property indicator_buffers 2
#property indicator_color1 Red
#property indicator_color2 Blue
#property indicator_minimum -800000
#property indicator_maximum 800000
//---- indicator parameters
extern int periodAv=25;
extern int period=5;
//---- indicator buffers
double GainBuffer[];//Gain
double RatioBuffer[];//Ratio
double ReturnBuffer[];//Return
double MyPlotBuffer[];
double AVMyPlotBuffer[];
double AV1MyPlotBuffer[];
double SmoothedAV1MyPlotBuffer[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
//---- 2 additional buffers are used for counting.
IndicatorBuffers(2);//controllare !!!!!
//---- drawing settings
IndicatorDigits(Digits+2);
//---- 6 indicator buffers mapping
//SetIndexBuffer(0,GainBuffer);//Gold
//SetIndexBuffer(1,RatioBuffer);//Silver
//SetIndexBuffer(2,ReturnBuffer);//Black
//SetIndexBuffer(3,MyPlotBuffer);//Green
SetIndexBuffer(0,AV1MyPlotBuffer);//Red
SetIndexBuffer(1,SmoothedAV1MyPlotBuffer);//Blue
//SetIndexStyle(0,DRAW_LINE);//Gold
//SetIndexStyle(1,DRAW_LINE);//Silver
//SetIndexStyle(2,DRAW_LINE);//Black
// SetIndexStyle(3,DRAW_LINE);//Green
// SetIndexStyle(4,DRAW_LINE);//Red
SetIndexStyle(0,DRAW_LINE);//Blue
SetIndexStyle(1,DRAW_LINE);//Blue
//---- name for DataWindow and indicator subwindow label
IndicatorShortName('Ratio('+period+','+periodAv+')');
//---- initialization done
return(0);
}
//+------------------------------------------------------------------+
//| declare arrays |
//+------------------------------------------------------------------+
int start()
{
if(Bars<MathMax(period,periodAv))
return(0);
int count,i,MaxBar,usedBar,bar,newSize;
int counted_bars=IndicatorCounted();
double MyArray0[]; //declare an array
double MyArray1[]; //declare an array
double MyArray2[]; //declare an array
double MyArray3[]; //declare an array
double MyArray4[]; //declare an array
double MyArray5[]; //declare an array
//double bbMacd[];
if(counted_bars<0)
return(-1);
// ****************************************************************/
if(counted_bars>0) counted_bars--;
usedBar=MathMax(period,periodAv);
count=Bars-counted_bars;
MaxBar=Bars-1-usedBar;
/****************************************************************/
newSize=iBars(NULL,0);
if(ArraySize(MyArray0)<newSize)
{
ArraySetAsSeries(MyArray0,false);
ArraySetAsSeries(MyArray1,false);
ArraySetAsSeries(MyArray2,false);
ArraySetAsSeries(MyArray3,false);
ArraySetAsSeries(MyArray4,false);
ArraySetAsSeries(MyArray5,false);
ArraySetAsSeries(GainBuffer,false);
ArraySetAsSeries(RatioBuffer,false);
ArraySetAsSeries(ReturnBuffer,false);
ArraySetAsSeries(MyPlotBuffer,false);
ArraySetAsSeries(AVMyPlotBuffer,false);
ArraySetAsSeries(AV1MyPlotBuffer,false);
ArraySetAsSeries(SmoothedAV1MyPlotBuffer,false);
ArrayResize(MyArray0,newSize);
ArrayResize(MyArray1,newSize);
ArrayResize(MyArray2,newSize);
ArrayResize(MyArray3,newSize);
ArrayResize(MyArray4,newSize);
ArrayResize(MyArray5,newSize);
ArrayResize(GainBuffer,newSize);
ArrayResize(RatioBuffer,newSize);
ArrayResize(ReturnBuffer,newSize);
ArrayResize(MyPlotBuffer,newSize);
ArrayResize(AVMyPlotBuffer,newSize);
ArrayResize(AV1MyPlotBuffer,newSize);
ArrayResize(SmoothedAV1MyPlotBuffer,newSize);
ArraySetAsSeries(MyArray0,true);
ArraySetAsSeries(MyArray1,true);
ArraySetAsSeries(MyArray2,true);
ArraySetAsSeries(MyArray3,true);
ArraySetAsSeries(MyArray4,true);
ArraySetAsSeries(MyArray5,true);
ArraySetAsSeries(GainBuffer,true);
ArraySetAsSeries(RatioBuffer,true);
ArraySetAsSeries(ReturnBuffer,true);
ArraySetAsSeries(MyPlotBuffer,true);
ArraySetAsSeries(AVMyPlotBuffer,true);
ArraySetAsSeries(AV1MyPlotBuffer,true);
ArraySetAsSeries(SmoothedAV1MyPlotBuffer,true);
}
/**********************************************************************************/
if(count>MaxBar)
{
count=MaxBar;
for(bar=Bars -1;bar>=MaxBar;bar--)
{
MyArray0[bar] = 0.0;
MyArray1[bar] = 0.0;
MyArray2[bar] = 0.0;
MyArray3[bar] = 0.0;
MyArray4[bar] = 0.0;
MyArray5[bar] = 0.0;
}
}
//******************************************************************************/
//*******************************************************************************/
for(i=count; i>=1; i--)
{
MyArray0[i] =(iClose(NULL,0,i)-iClose(NULL,0,period))*100/(iClose(NULL,0,period));
}
for( i=count; i>=1; i--)
{
GainBuffer[i]=MyArray0[i];
}
for( i=count; i>=1; i--)
{
MyArray1[i] = MathAbs(iMomentum(NULL,0,period,PRICE_CLOSE,i))/iATR(NULL,0,period,i);
}
//for(i=0; i<limit; i++)
for( i=count; i>=1; i--)
{
RatioBuffer[i]= iMAOnArray(MyArray1,Bars,period+periodAv,0,MODE_SMA,i);//divide for 10 ??
}
for( i=count; i>=1; i--)
{
MyArray2[i] =RatioBuffer[i] ;
}
// for( i=0; i<limit; i++)
for( i=count; i>=1; i--)
{
ReturnBuffer[i]=iMAOnArray(MyArray2,Bars,periodAv+period,0,MODE_SMA,i);
}
for( i=count; i>=1; i--)
{
MyArray4[i]=ReturnBuffer[i]*GainBuffer[i]*10;//multiply for 100
}
for( i=count; i>=1; i--)
{
MyPlotBuffer[i]=MyArray4[i];
}
for(i=count; i>=1; i--)
{
AV1MyPlotBuffer[i]=iMAOnArray(MyArray4,Bars,period,0,MODE_SMA,i);
}
for(i=count; i>=1; i--)
{
MyArray5[i]=AV1MyPlotBuffer[i]*0.9+MyArray4[i]*0.1;
}
for(i=count; i>=1; i--)
{
SmoothedAV1MyPlotBuffer[i]=iMAOnArray(MyArray5,Bars,period,0,MODE_SMA,i);
}
return(0);
}
//+------------------------------------------------------------------+
Tham gia từ Mar 07, 2010
60bài viết
Mar 16, 2011 at 11:53
Tham gia từ Mar 07, 2010
60bài viết
I think you're trying to re-size the array to the same size.
Try adding this check:
if(ArraySize(MyArray0) != newSize) ArrayResize(MyArray0, newSize);
Try adding this check:
if(ArraySize(MyArray0) != newSize) ArrayResize(MyArray0, newSize);
aaa
Tham gia từ Aug 20, 2009
266bài viết
Mar 16, 2011 at 14:38
Tham gia từ Aug 20, 2009
266bài viết
Giorgio,
You cannot resize indicator buffers, nor should you be trying to. An indicator buffer is is a special kind of an array and should not be treated like a normal one.
You cannot resize indicator buffers, nor should you be trying to. An indicator buffer is is a special kind of an array and should not be treated like a normal one.
Wealth Creation Through Technology
Tham gia từ Mar 02, 2011
10bài viết
Mar 16, 2011 at 15:21
Tham gia từ Mar 02, 2011
10bài viết
Hi aj90151 and kennyhubbard
Thanks a lot for your help I'll try your suggest .....either have introduced myself in to new issues to think of.
I am learning and I am very grateful to you
Regards
Giorgio
Thanks a lot for your help I'll try your suggest .....either have introduced myself in to new issues to think of.
I am learning and I am very grateful to you
Regards
Giorgio
Tham gia từ Jan 14, 2010
556bài viết
Mar 16, 2011 at 16:22
Tham gia từ Jan 14, 2010
556bài viết
1448giorgio posted:
Hi aj90151 and kennyhubbard
Thanks a lot for your help I'll try your suggest .....either have introduced myself in to new issues to think of.
I am learning and I am very grateful to you
Regards
Giorgio
Were you able to sort it out?
Tham gia từ Mar 02, 2011
10bài viết
Mar 16, 2011 at 17:53
Tham gia từ Mar 02, 2011
10bài viết
Hi
Unfortunately not yet
All suggests I had seems to me right but not solve the problem.
The strange thing is that the indicator as it is ....works in EA and is painted in separate window chart as well.
when I modify or check as you said ....the indicator is painted as a line == 0 and of course it does not work in EA
Thanks Giorgio
Unfortunately not yet
All suggests I had seems to me right but not solve the problem.
The strange thing is that the indicator as it is ....works in EA and is painted in separate window chart as well.
when I modify or check as you said ....the indicator is painted as a line == 0 and of course it does not work in EA
Thanks Giorgio
Tham gia từ Mar 02, 2011
10bài viết
Mar 16, 2011 at 20:58
Tham gia từ Mar 02, 2011
10bài viết
Hi wilkinson and all
Thanks for your interest
I am on the ground
Any idea ?
Giorgio
Thanks for your interest
I am on the ground
Any idea ?
Giorgio
Tham gia từ Jan 14, 2010
556bài viết
Mar 17, 2011 at 08:54
Tham gia từ Jan 14, 2010
556bài viết
1448giorgio posted:
Hi
Unfortunately not yet
All suggests I had seems to me right but not solve the problem.
The strange thing is that the indicator as it is ....works in EA and is painted in separate window chart as well.
when I modify or check as you said ....the indicator is painted as a line == 0 and of course it does not work in EA
Thanks Giorgio
Have you tried debugging the issue? Print all variables and you'll quickly find the error.
Tham gia từ Mar 02, 2011
10bài viết
Mar 17, 2011 at 11:10
Tham gia từ Mar 02, 2011
10bài viết
Hello wilkinson
Yes I printed variables and reported values seem to be reported in right way .(message always : cannot resize array but EA reads values from indicator)
Any way as soon as I do not resize buffers .....buffers are all ==0 and EA does not work.
EA should read two buffers from this indicator
If this matter has be solved throught a fee I am ready to pay any coder willing to help to do the job ...I mean $50 throught PayPal as soon as work is done
Is it an adequate reward for this issue ?
Thanks Giorgio
Yes I printed variables and reported values seem to be reported in right way .(message always : cannot resize array but EA reads values from indicator)
Any way as soon as I do not resize buffers .....buffers are all ==0 and EA does not work.
EA should read two buffers from this indicator
If this matter has be solved throught a fee I am ready to pay any coder willing to help to do the job ...I mean $50 throught PayPal as soon as work is done
Is it an adequate reward for this issue ?
Thanks Giorgio
Tham gia từ Mar 02, 2011
10bài viết
Mar 17, 2011 at 17:49
Tham gia từ Mar 02, 2011
10bài viết
Hi all
I sorted it out
Thanks to all and in particular Kennyhubbard who suggested the right road
Giorgio
I sorted it out
Thanks to all and in particular Kennyhubbard who suggested the right road
Giorgio
*Nghiêm cấm sử dụng cho mục đích thương mại và spam, nếu vi phạm có thể dẫn đến việc chấm dứt tài khoản.
Mẹo: Đăng ảnh/url youtube sẽ tự động được nhúng vào bài viết của bạn!
Mẹo: Dùng @ để tự động điền tên người dùng tham gia vào cuộc thảo luận này.