usingMaths.com
From Theory to Practice - Math You Can Use.







<< PreviousNext >>

Calculating Permutations - \(^nP_r\) (Possible Ways of Arrangement) using Visual Basic



Permutation in Visual Basic

A permutation refers to the number of possible arrangements of a set of objects where order matters. Permutations are widely used in mathematics, computer science, and programming problems that involve arranging data, generating sequences, or exploring all possible outcomes.

In this tutorial, we explain the mathematical concept of permutations and demonstrate how to generate permutations in Visual Basic using clear algorithms and practical code examples.

What Is a Permutation? | Mathematics Explanation for Visual Basic Kids

In mathematics, a permutation is an ordered arrangement of objects selected from a set. Because order is important, rearranging the same elements produces a different permutation.

For example, the arrangements ABC and BAC are considered different permutations of the same three elements.

Permutations commonly appear in:

  • Combinatorics
  • Algorithm design
  • Password and key generation
  • Game logic and simulations
  • Search and optimization problems

In the unlikely scenario that the Teacher wants to see just how any four pupils, from a group of six (6), could be seated on a four-person desk; what this Teacher would be doing in essence is called Permutation (\(^nP_r\)).


Permutation Formula (\(^nP_r\)) | Maths Explanation for Visual Basic Kids

The number of permutations of selecting r objects from n distinct objects is calculated using the formula:

$$ ^nP_r = \frac{n!}{(n - r)!} $$

Where:

  • n is the total number of objects
  • r is the number of objects selected
  • ! denotes factorial

This formula is useful when determining how many possible ordered arrangements exist before implementing a permutation algorithm in code.

Permutation With and Without Repetition | Maths Explanation for Visual Basic Kids

  • Permutation without repetition: Each element can appear only once in an arrangement.
  • Permutation with repetition: Elements may repeat, increasing the total number of possible arrangements.

The example below demonstrates permutations without repetition, which is the most common use case in programming exercises.


Permutation vs Combination in Visual Basic: What's the Difference?

Students often confuse permutations with combinations.

ConceptOrder MattersExample
PermutationYesABC ≠ BAC
CombinationNoABC = BAC

It is easy to confuse permutations and combinations. The key takeaway is:

  • Permutations (\(^nP_r\)): Use these when the order is important (e.g., a combination lock or race results).
  • Combinations (\(^nC_r\)): Use these when only the group members matter (e.g., picking a committee).

When solving Visual Basic problems involving ordered arrangements, permutations must be used. If order does not matter, combinations are more appropriate.

Understanding this distinction is essential when implementing mathematical algorithms in code.


Generating Permutations Using Visual Basic

In programming, permutations are often generated by systematically rearranging elements in an array. Visual Basic provides a flexible environment for implementing permutation algorithms using recursion or backtracking.

The following approach demonstrates how to generate all permutations of an array in Visual Basic.

Visual Basic Permutation Algorithm (\(^nP_r\))

The Visual Basic algorithm for Permutation - \(^nP_r\), possible ways of arrangement - will simply be based on that of combination.

All that is needed after combination is a rotation or shuffle of members of each possible combination result.
This shuffle simply involves interchanging the elements of the combination group of size, r, to take all possible positions starting from the extreme right to extreme left.

This is how our Permutation code in VB.Net will work.

Create a new VB.Net class file; Call it Permutation
Optionally, Create a new VB.Net module file; Project, Add Module.
Call it Miscellaneous_Permutation.

Type out the adjoining VB.Net algorithm for Permutation (\(^nP_r\)).


Advice: You might want to keep the mother-class size (n) and the group-size (r) small to avoid the Visual Basic permutation code taking too long.
As a rule-of-thump, DO NOT ASK QUESTIONS YOU DON'T WANT TO KNOW THE ANSWER TO.


Why Use Visual Basic for Combinatorics?

Using a Visual Basic math library or custom script allows you to build dynamic educational tools and interactive solvers. Our tool above uses this logic to give you instant results for any \(^nP_r\) calculation.

Applications of Permutations in Visual Basic Programming

Permutations are used in many real-world programming scenarios, including:

  • Generating all possible test cases
  • Exploring solution spaces in algorithms
  • Cryptography and security
  • Scheduling and optimization problems
  • Educational simulations

Summary: Visual Basic Permutation Algorithm

Permutations are a powerful concept in both mathematics and programming. With these Visual Basic permutation tutorials, you can calculate \(^nP_r\), generate permutations of arrays or strings, and apply them to real-world problems.

For example, calculating possible arrangements in Visual Basic can help determine seating orders, password combinations, or sequence generation.










VB.Net Code for Permutation - Class File

Public Class Permutation
    Inherits Combination

    Private local_store As List(Of String())
    Protected perm_store As List(Of String())
    Private index As Integer

    ' till the ground for shuffle to grind on
    Public Function possibleWordPermutations(candidates As List(Of String), size As IntegerAs List(Of String())
        perm_store = New List(Of String())
        possibleWordCombinations(candidates, size)
        ' illegal 'r' value
        If comb_store.Count = 0 Or r = 1 Then
            perm_store = comb_store
        Else
            Dim last_two As List(Of String())
            For i As Integer = 0 To comb_store.Count - 1
                last_two = New List(Of String())({New String() {""""}, New String() {""""}})
                index = r - 1
                ' copy up last two elements of 'comb_store(i)'
                last_two(0)(0) = comb_store(i)(index)
                last_two(1)(1) = last_two(0)(0)
                index -= 1
                last_two(0)(1) = comb_store(i)(index)
                last_two(1)(0) = last_two(0)(1)
                index -= 1

                local_store = New List(Of String())
                local_store.Add(last_two(0))
                local_store.Add(last_two(1))
                If r > 2 Then
                    shuffleWord(local_store, i)
                End If
                perm_store.AddRange(local_store)
            Next i
        End If
        Return perm_store
    End Function

    Private Sub shuffleWord(arg_store As List(Of String()), i As Integer)
        local_store = New List(Of String())
        Dim members As List(Of String)
        For j As Integer = 0 To arg_store.Count - 1
            members = New List(Of String)
            members.AddRange(arg_store(j))
            ' add 'index' 'comb_store(i)' element to this list of members
            members.Add(comb_store(i)(index))

            Dim temp_char As String
            Dim shift_index As Integer = members.Count
            ' shuffle this pack of words
            Do While shift_index > 0
                ' skip if already in store
                If local_store.Contains(members.ToArray()) = False Then
                    local_store.Add(members.ToArray())
                End If
                ' interchange these two neighbours
                shift_index -= 1
                If shift_index > 0 Then
                    temp_char = members(shift_index)
                    members(shift_index) = members(shift_index - 1)
                    members(shift_index - 1) = temp_char
                End If
            Loop
        Next j
        ' Are there any elements left? repeat if yes
        If index > 0 Then
            index -= 1
            shuffleWord(local_store, i)
        End If
    End Sub

End Class


h3>VB.Net Code for Permutation - Main Module

Module Miscellaneous_Permutation

    Sub Main()

        Dim goods As List(Of String)
        goods = New List(Of String)(New String() {"Eno""Chidi""Olu""Ahmed""Osas""Gbeda"})
        Dim perm As New Permutation
        Dim result As List(Of String()) = perm.possibleWordPermutations(goods, 2)
        ' print choices and operation
        Console.Write("[ ")
        For Each choice As String In perm.words
            Console.Write(choice & "; ")
        Next
        Console.WriteLine("] permutation " & perm.r & ":" & Environment.NewLine)
        ' print out permutations nicely
        Dim i As Integer = 0
        For Each group As String() In result
            i += 1
            Console.Write(i & ": ")
            For Each member As String In group
                Console.Write(member & "; ")
            Next
            Console.WriteLine()
        Next
        Console.WriteLine(Environment.NewLine & "Number of ways is " & result.Count & ".")

    End Sub

End Module





<< PreviousNext >>