An Unexpected Error

[BGT]

Hi ,

I am trying to use RelativeStrengthIndexOnArray function. Its giving the error "an unexpected error has occured" whenever this function is executed. I got this error on
RelativeStrengthIndexOnArray MacdBuffer, Cint(9), rsiArray
line from a script. Please why this error occured when i pass my array to this function. Please find the attached script. Guide me.

Thanks in advance.

[Moath-HS]

Hi ,

I am trying to use RelativeStrengthIndexOnArray function. Its giving the error "an unexpected error has occured" whenever this function is executed. I got this error on
RelativeStrengthIndexOnArray MacdBuffer, Cint(9), rsiArray
line from a script. Please why this error occured when i pass my array to this function. Please find the attached script. Guide me.

Thanks in advance.

Dear BGT,
According to your problem "an unexpected error has occurred" kindly note that when you use the RelativeStrengthIndexOnArray function there are null values were stored on the output array (rsiArray) and the number of these values equal the second parameter (Cint(9)) Multiplied by 2, these values stored at the start of your array, So you need to create a new array without these values then use it.
ex:
Public Sub main()

Dim arrPrice(),imaClose(),imaOpen(),rsiResult(),cciRes ult(),ssResult(),MacdBuffer()
Dim smaOnArray(),rsiArray(),cciArray(),ssArray(),i,j,S cript_BarsCount_

CopyHigh 0,1,Bars(0),arrHigh
CopyLow 0,1,Bars(0),arrLow
CopyOpen 0,1,Bars(0),arrOpen
CopyClose 0,1,Bars(0),arrClose
Script_BarsCount_ = CLng(Bars(0))
ReDim MacdBuffer(ubound(arrClose))


RelativeStrengthIndexOnArray arrClose, cint(20), rsiResult
'AlertMessage(rsiResult(Bars(0)-1)-50)
For i = CLng(1) To CLng(Script_BarsCount_)
MacdBuffer(i) = 0.0
MacdBuffer(i) = Round(cdbl( rsiResult(i) - 50),5)
next


dim MACDArr
dim x
x=ubound(MacdBuffer) - 40
ReDim MACDArr(x)


For i = 41 To ubound(MacdBuffer)
MACDArr(i-41) = 0.0
MACDArr(i-41) = Round(cdbl( MacdBuffer(i) - 50),5)
next
RelativeStrengthIndexOnArray MACDArr, Cint(9), rsiArray
End Sub