شباهت آرایه ها

[AbbasVB]

درود
دوستان من یه برنامه نوشتم که توی اون لازمه تا یه آرایه 10 عضوی بگیره و تشخیص بده که آرایه دریافتی
به کدام یک از دو آرایه برنامه نزدیک تره
مثلا
Dim A(1 To 10) As Single

Dim B(1 To 10) As Single

Dim C(1 To 10) As Single

A(1) = 100
A(2) = 83
A(3) = 62
A(4) = 51
A(5) = 32
A(6) = 19
A(7) = 11
A(8) = 6
A(9) = 3
A(10) = 1

B(1) = 100
B(2) = 89
B(3) = 75
B(4) = 67
B(5) = 49
B(6) = 39
B(7) = 25
B(8) = 16
B(9) = 9
B(10) = 4

C(1) = 100
C(2) = 83.5
C(3) = 67
C(4) = 53
C(5) = 40.5
C(6) = 27
C(7) = 13.5
C(8) = 7
C(9) = 3
C(10) = 1

در این مثال آرایه C بیشتر به A شبیه و نزدیک تر است.

[mmssoft]

اگه منتظورتون از شبیه تر بودن، بیشتر بودن تعداد درایه های مشابه هست، میشه از این کد استفاده کرد :

Dim b, c, i As Integer

For i = 1 to 10
If B(i)=A(i) Then b = b + 1
If C(i)=A(i) Then c = c + 1
Next

If b > c Then Msgbox "The Array B is more closer to Array A" Else Msgbox "The Array C is more closer to Array A"

[AbbasVB]

سلام
نه هر 3 آرایه 10 عضو دارند و از نظر تعداد عضو مشکلی نیست.
ببینید اگه ما این آرایه ها رو روی یک نمودار نیمه لگاریتمی رسم کنیم. آرایه C باید بین آرایه های A و B قرار بگیره حالا ما باید تشخیص بدیم که نمودار رسم شده به کدام خط بالا یا پایین نزدیک تر است یا اصلا بین این دو نیست و در اینصورت از کدام بیشتر یا کمتر است.
ممنون

[AbbasVB]

سلام دوستان
کسی نیست به این سوال جواب بده خیلی لنگ جوابشم!