Question

How to calculate dot product of two arrays in VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Function calculate_dot_product(ByVal arr1 As Integer(), ByVal arr2 As Integer()) As Integer
        Dim product As Integer = 0
        Dim size As Integer = arr1.Length

        For i As Integer = 0 To size - 1
            product += arr1(i) * arr2(i)
        Next

        Return product
    End Function

    Public Shared Sub Main(ByVal args As String())
        Dim arr1 As Integer() = New Integer() {1, 4, 8, 9, 6}
        Dim arr2 As Integer() = New Integer() {0, 7, 1, 3, 40}
	
        Console.Write("Dot product = {0:D}", calculate_dot_product(arr1, arr2))
    End Sub
End Class




' run:
'
' Dot product = 303
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System
Imports System.Linq

Public Class Program
    Public Shared Function calculate_dot_product(ByVal arr1 As Integer(), ByVal arr2 As Integer()) As Integer
        Return arr1.Zip(arr2, Function(n1, n2) n1 * n2).Sum()
    End Function

    Public Shared Sub Main(ByVal args As String())
        Dim arr1 As Integer() = New Integer() {1, 4, 8, 9, 6}
        Dim arr2 As Integer() = New Integer() {0, 7, 1, 3, 40}
	
        Console.Write("Dot product = {0:D}", calculate_dot_product(arr1, arr2))
    End Sub
End Class




' run:
'
' Dot product = 303
'

 

70+ SQL courses for beginners and professionals

Answer 3

Imports System
Imports System.Linq

Public Class Program
    Public Shared Function calculate_dot_product(ByVal arr1 As Integer(), ByVal arr2 As Integer()) As Integer
        Return Enumerable.Range(0, arr1.Length).Sum(Function(i) arr1(i) * arr2(i))
    End Function

    Public Shared Sub Main(ByVal args As String())
        Dim arr1 As Integer() = New Integer() {1, 4, 8, 9, 6}
        Dim arr2 As Integer() = New Integer() {0, 7, 1, 3, 40}
	
        Console.Write("Dot product = {0:D}", calculate_dot_product(arr1, arr2))
    End Sub
End Class


	

' run:
'
' Dot product = 303
'

 

70+ SQL courses for beginners and professionals

Answer 4

Imports System
Imports System.Linq

Public Class Program
    Public Shared Function calculate_dot_product(ByVal arr1 As Integer(), ByVal arr2 As Integer()) As Integer
        Return arr1.[Select](Function(n, i) n * arr2(i)).Sum()
    End Function

    Public Shared Sub Main(ByVal args As String())
        Dim arr1 As Integer() = New Integer() {1, 4, 8, 9, 6}
        Dim arr2 As Integer() = New Integer() {0, 7, 1, 3, 40}
	
        Console.Write("Dot product = {0:D}", calculate_dot_product(arr1, arr2))
    End Sub
End Class


	

' run:
'
' Dot product = 303
'

 

70+ SQL courses for beginners and professionals