Les Snippets

Connexion

Exponentiation dichotomique

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 08/05/2007 18:34:27 et initié par Shakan972 [Liste]
Date de mise à jour : 01/03/2008 22:43:36
Vue : 4246
Catégorie(s) : Maths
Langages dispo pour ce code :
- Python
- VB6, VBA
- ObjectiveCaml
- Delphi 5
- C, C# 1.x, C++, Java
- Voir tous les langages pour ce code snippet



Langage : VB6 , VBA
Date ajout : 17/12/2007
Posté par us_30 [Liste]
Function Puissance(ByVal Nb1 As Double, ByVal Expo As Long) As Double 
' EXPONENTIATION RAPIDE 
' Appliqué au calcul d'une puissance entière d'un nb 
 
'   Paramètres 
    Dim Signe As Integer 
     
'   Traitement pb de signe 
    Signe = Sgn(Expo) 
    Expo = Abs(Expo) 
     
'   Cas triviaux 
    If Expo = 0 Then Puissance = 1: Exit Function 
    If Expo = 1 Then Puissance = Nb1: Exit Function 
 
'   Algo 
    Puissance = 1 
    Do 
        If Expo And 1 Then Puissance = Puissance * Nb1 
        Expo = Expo \ 2 
        Nb1 = Nb1 * Nb1 
    Loop While Expo > 1 
    Puissance = Puissance * Nb1 
 
'   Renvoi 1/puissance si exposant négatif 
    If Signe < 0 Then Puissance = 1 / Puissance 
 
End Function
Remarque :
Exponentiation rapide peut-être appliqué à bien d'autres exemples, comme pour le calcul d'une puissance de matrice...

Snippets en rapport avec : Exponentiation, Dichotomie



Codes sources en rapport avec : Exponentiation, Dichotomie

{C / C++ / C++.NET} MEILLEURE MÉTHODE POUR CALCULER UN PUISSANCE
la méthode la plus naive pour calculer par ex: x^15 = x*...*x(14 operations) ---------- mieux: x...

{JAVA / J2EE} TRI TABLEAU D'ENTIER PAR DICHOTOMIE
Cette classe lit des entiers initialisé dans un tableau à 1 dimension, et les place dans un autre ta...

{Delphi} MATCHESMASK ET LES EXPRESSIONS RÉGULIÈRES.
A part MaskEdit, on ne peut pas dire que Delphi nous offre beaucoup d'outils pour s'initier aux expr...

{Delphi} RECHERCHE DICHOTOMIQUE (EXEMPLE AVEC UN TABLEAU)
Utilisation pure et dur de la recherche dichotomique sur un tableau de 40 000 cellules. Principe ...

{Delphi} FONCTION DICHOTOMIE CALCUL NUMÉRIQUE
un simple programme ecrit en pascal définit la méthode dichotomie...

{Visual Basic, VB6, VB.NET, VB 2005} PROGRAMME DE DICHOTOMIE AVEC PRÉCISION DE 10^-30 SOIT 28 CHIFFRES APRÈS LA VIRGULE
Bah en fait c'est un programme qui permet de trouver un encadrement à 10^-n près d'une racine soluti...

{Visual Basic, VB6, VB.NET, VB 2005} EXPONENTIATION RAPIDE
Ce code donne la valeure de l'exposant d'un nombre, l'ordre de grandeur et la rapidité sont de l'ord...

{C / C++ / C++.NET} RECHERCHE DE ZÉRO D'UNE FONCTION PAR DICHOTOMIE
C'est ma première source alors je vous demande d'etre indulgent...;) Voila le titre est assez com...