Déterminer si le résultat d'une division est un nombre décimal ou rationnel

Version imprimable

07/03/2019, 20h08
Muthos34

Déterminer si le résultat d'une division est un nombre décimal ou rationnel

Bonjour,

J'ai besoin d'effectuer une vérification sur le résultat d'une division. Est-ce que le résultat est un nombre décimal ou un nombre rationnel.
Sachant que ce test sera fait de nombreuses fois, une solution optimale et rapide dans l'exécution serait la bienvenue.

Pour le moment je n'ai trouvé qu'à comparer le résultat avec un math.round(resultat,15).
C'est correct mais pas parfait.

Si vous avez mieux je suis preneur

Merci
07/03/2019, 20h32
clementmarcotte

Bonjour,

Directement dans VB ou le Framework, je ne sais pas trop. Ceci étant dit, il existe de nombreuses bibliothèques numériques (des gratuites (Accord.net, AForge.net Craig Utilities etc), et des payantes) compatibles avec VB.net. Une bonne place pour commencer c'est NuGet
07/03/2019, 21h05
StringBuilder

Citation:

Envoyé par Muthos34

Bonjour,

J'ai besoin d'effectuer une vérification sur le résultat d'une division. Est-ce que le résultat est un nombre décimal ou un nombre rationnel.
Sachant que ce test sera fait de nombreuses fois, une solution optimale et rapide dans l'exécution serait la bienvenue.

Pour le moment je n'ai trouvé qu'à comparer le résultat avec un math.round(resultat,15).
C'est correct mais pas parfait.

Si vous avez mieux je suis preneur

Merci

Pourquoi faire un Round sur 15 décimales ?

Et même si c'est pas forcément ce qu'il y a de plus rapide, caster en INT devrait être plus rapide que le Round je pense.

Sinon, si tes deux opérandes sont des entiers, le plus simple est de faire le dividende modulo le diviseur et vérifier que c'est 0.
Ce sera ce qu'il y a de plus rapide à mon avis.
07/03/2019, 21h24
Muthos34

Merci clementmarcotte, je regarderai ça.

StringBuilder.
Je ne cherche pas à savoir si le résultat de la division est un nombre entier mais si c'est un nombre décimal ou un nombre rationnel.
08/03/2019, 07h44
StringBuilder

Oups, en effet, je me suis gourré :)

Bonsoir,

Je n'ai pas la solution, mais le code suivant satisferait si on travaille avec des Single, mais pas avec des Double :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
        Dim N As Single
        Dim D As Single
        Dim R As Single
        '   Dim N As Double
        '   Dim D As Double
        '   Dim R As Double
        N = 3         ' N = 2
        D = 2         ' D = 3
        R = N / D     ' 3/2 ==> Decimal   et  2/3 ==> Rationnel
        If R * D = N Then
            MessageBox.Show("Decimal")
        Else
            MessageBox.Show("Rationnel")
        End If

J'espère que ça te donnera une piste ...

Bonsoir,

Si on appelle (p/q) la fraction F à considérer (nombre rationnel), on peut prouver que F est décimal si le dénominateur q est décomposable en facteurs premiers du type 2^n et 5ˆm.
Si le dénominateur q ne peut être réduit à cette forme, F sera une fraction rationnelle non décimale.
Voici un bout de code pour décomposer q en facteurs premiers:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Function FindFactors(ByVal num As Long) As List(Of Long)
    Dim result As List(Of Long) = New List(Of Long)()
    Do While (num Mod 2 = 0)    ' Take out the 2s.
        result.Add(2)
        num \= 2
    Loop
    Dim factor As Long = 3     ' Take out other primes.
    Do While factor * factor <= num
        If num Mod factor = 0 Then             ' This is a factor.
            result.Add(factor)
            num \= factor
        Else           ' Go to the next odd number.
            factor += 2
        End If
    Loop
    ' If num is not 1, then whatever is left is prime.
    If num > 1 Then result.Add(num)
    Return result
End Function

23/03/2019, 02h29
MABROUKI

bonjour

Tous les flottants (single et double) sont en fait des nombres décimaux ...
Cela vient du fait qu'ils sont représentés sous forme de exposant binaire base 2 & mantisse binaire et ...FINIE !!!
Tu peux t'en convaincre en tentant d’écrire 3.1416 sous forme exposant base 10 & de mantisse décimale :
-PI=3.1416
-PI=314.16 x 10-2
-PI=3141.6x10-3
-PI=31416x10-4

Meme les nombres "rationnels" (fractions irréductibles) et les nombres "non rationnels" ou "irrationnels" (pi,racine carrée,base e ) ne sont que des approximations décimales...
bon code...

1 pièce(s) jointe(s)

Voici un petit projet VB.NET avec soit la décomposition complète du dénominateur en facteurs premiers soit le raccourci plus simple consistant à chercher si il existe des facteurs autres que 2 et 5.
Pièce jointe 460341
Code:

1 2 3 4 5 6 7 8 9 10 Private Function RemoveTwosAndFives(num As Integer) As Integer Do While num Mod 2 = 0 num \= 2 Loop Do While num Mod 5 = 0 num \= 5 Loop Return num End Function