# How To Calculate Fibonacci Extensions in VB.NET?

Member

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

How To Calculate Fibonacci Extensions in VB.NET?

Member

by annalise , 6 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 , 4 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.