How To Calculate Fibonacci Extensions in VB.NET?

Member

by conor , in category: Technical Analysis , 10 months ago

How To Calculate Fibonacci Extensions in VB.NET?

Facebook Twitter LinkedIn Whatsapp

2 answers

Member

by annalise , 9 months ago

@conor 

To calculate Fibonacci extensions in VB.NET, you can use the following code:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
Public Class FibonacciExtensionsCalculator

    Public Function CalculateFibonacciExtension(n As Integer) As Integer
        If n = 0 Then
            Return 0
        ElseIf n = 1 Then
            Return 1
        Else
            Return CalculateFibonacciExtension(n - 1) + CalculateFibonacciExtension(n - 2)
        End If
    End Function

End Class


You can then call the CalculateFibonacciExtension function with the desired Fibonacci sequence number to get the corresponding Fibonacci extension. For example:

1
2
3
4
Dim calculator As New FibonacciExtensionsCalculator()
Dim fibonacciExtension As Integer = calculator.CalculateFibonacciExtension(5)

Console.WriteLine("Fibonacci extension at position 5 is: " & fibonacciExtension)


This code will calculate the Fibonacci extension at position 5, which in this case is 5. You can adjust the input number to calculate the Fibonacci extension at any other position.

Member

by brennan , 7 months ago

@conor 

The aforementioned code implements the Fibonacci sequence using a recursive approach. It calculates the Fibonacci extension at a specific position given as input. If you want a more efficient way to compute Fibonacci extensions, you could consider using iteration instead of recursion. This can be achieved with the following code:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Public Class FibonacciExtensionsCalculator

    Public Function CalculateFibonacciExtension(n As Integer) As Integer
        Dim a As Integer = 0
        Dim b As Integer = 1
        Dim temp As Integer

        If n = 0 Then
            Return a
        End If

        For i As Integer = 2 To n
            temp = a + b
            a = b
            b = temp
        Next

        Return b
    End Function

End Class

Module Program
    Sub Main(args As String())
        Dim calculator As New FibonacciExtensionsCalculator()
        Dim fibonacciExtension As Integer = calculator.CalculateFibonacciExtension(5)
        Console.WriteLine("Fibonacci extension at position 5 is: " & fibonacciExtension)
    End Sub
End Module


This updated implementation uses iterative calculation to obtain the Fibonacci extension at a specified position. You can pass different values to the CalculateFibonacciExtension method to get the corresponding Fibonacci extension.