Adding two different object arrays

[cmdolcet69]

I have created two different object arraylist of n size. Once my first arraylist is full and no number are unique i will test again this time putting the second test values in arraylist 2. how can i then take the results in my arraylist1 and arraylist2 add each of the indexs and average them out.

arraylist1 (0) 400
(1) 401
(2) 402

arraylist2 (0) 399
(1) 400
(2) 401

then add arraylist1 + arraylist2 / number of arraylist = avgarraylist


can anyone help me out. I thought about a for each loop however that not working.

[QVeen72]

Hi,

This may work:

Dim i As Long
For i = LBound(ArrList1) To UBound(ArrList1)
   ArrList3(i) = (Arrlist1(i) + ArrList2(i)) / 2
Next
 

Just Check both of the Arrays, Should Have Same Higher and Lower Bound..
If not, then you can put a "If" Condition in the Loop...

Regards
Veena

[kadghar]

I have created two different object arraylist of n size. Once my first arraylist is full and no number are unique i will test again this time putting the second test values in arraylist 2. how can i then take the results in my arraylist1 and arraylist2 add each of the indexs and average them out.

arraylist1 (0) 400
(1) 401
(2) 402

arraylist2 (0) 399
(1) 400
(2) 401

then add arraylist1 + arraylist2 / number of arraylist = avgarraylist


can anyone help me out. I thought about a for each loop however that not working.

i think a FOR or a LOOP actualy will do, try something like

dim i as integer
for i = 0 to ubound(arraylist1)
    avgarraylist(i) = (arraylist1(i)+arraylist2(i)) / 2
next

HTH

**Sorry Veena, i didnt see you've already answered.

[cmdolcet69]

i think a FOR or a LOOP actualy will do, try something like

dim i as integer
for i = 0 to ubound(arraylist1)
    avgarraylist(i) = (arraylist1(i)+arraylist2(i)) / 2
next

HTH

**Sorry Veena, i didnt see you've already answered.

[code]
Dim AVGarraylist As New ArrayList
Dim intloop1 As Long
For intloop1 = LBound(_ArrayList1) To UBound(_Arraylist2)
AVGarraylist(intloop1) = (_ArrayList1(intloop1) + _Arraylist2(intloop1)) / 2
Next

/[code]

it give me an error message system.collection.arraylist can not be converted to system.array

[kadghar]

it give me an error message system.collection.arraylist can not be converted to system.array

try defining it with:
dim AVGarraylist() as double
redim AVGarraylist(ubound(arraylist1))

HTH