operateurs biwise et ulong

bonjour,

je viens chercher un éclaircissement sur une erreur qui survient lors de manipulation de bit sur un ulong ( donc non signé )

je voulais utiliser la fonction suivante :

Code:

---

1 2 3 4 5 6 7

Public Shared Function find_bit_poids_faible(ByVal rufus As ULong) As ULong     Return CULng(rufus And (-(rufus)))     End Function

---

elle me donne un jolie depassement de capacité pour des valeurs superieur a la valeur 60 ( ou 61 je c plus du coup )

que l on peut obtenir de la maniere suivante par exemple :

ulng(1) << 60


donc ce dépassement arithmétique, m oblige a faire la fonction suivante :

Code:

---

1 2 3 4

Public Shared Function find_bit_poids_faible(ByVal rufus As ULong) As ULong Return ((rufus And (rufus - CULng(1)) Xor rufus)) End Function

---

ma question : pourquoi ??????????
le "-" alors que c un ulong ? ( conversion implicite en long ..???? )

question subsidiaire, je veux limiter au maximum les operations,

premiere fonction un "and"
seconde un "and" "xor" et un " -"

une astuce pour que la première fonctionne ( la valeur finale ne dépasse jamais la valeur max d un ulong ...)


d avance merci

Je sais pas trop pourquoi tu te lances dans des trucs si compliqués... pour récupérer le bit de poids faible, il suffit de faire ça :

Code:

---

Return rufus And 1

---

(j'adore le nom de ta variable :mouarf:)

Citation:

---

Envoyé par tomlev

Je sais pas trop pourquoi tu te lances dans des trucs si compliqués... pour récupérer le bit de poids faible, il suffit de faire ça :

Code:

---

Return rufus And 1

---

(j'adore le nom de ta variable :mouarf:)

---

pour la variable, manque d inspiration ...

sinon,

Code:

---

Return rufus And 1

---

ne retourne pas le bit de poids faible test a appuis ...

Citation:

---

Envoyé par oliverell62

pour la variable, manque d inspiration ...

sinon,

Code:

---

Return rufus And 1

---

ne retourne pas le bit de poids faible test a appuis ...

---

J'veux bien voir le test car ca me parait bizarre la quand même 8O

Citation:

---

Envoyé par oliverell62

sinon,

Code:

---

Return rufus And 1

---

ne retourne pas le bit de poids faible test a appuis ...

---

Ben on a pas du faire les mêmes tests... ou alors on a pas la même définition du bit de poids faible.

Sinon, encore plus simple :

Code:

---

Return rufus Mod 2

---

(le bit de poids faible est 0 pour les nombres pairs, 1 pour les nombres impairs)

Citation:

---

Envoyé par tomlev

Ben on a pas du faire les mêmes tests... ou alors on a pas la même définition du bit de poids faible.

Sinon, encore plus simple :

Code:

---

Return rufus Mod 2

---

(le bit de poids faible est 0 pour les nombres pairs, 1 pour les nombres impairs)

---

nous n avons effectivement pas la meme definition
http://fr.wikipedia.org/wiki/Bit_de_poids_faible

en fait je veux recuperer le 1 le plus bas possible ...


genre
000011110001000000011000000010000
donnera :
000000000000000000000000000010000

j avais cru comprendre que c 'était ca le bit poids faible
toutes mes excuses ...

Code:

---

1 2 3 4 5 6 7 8

Private Function Func(figure As ULong) As ULong Dim i As Integer = 0 While figure Mod 2 Is 0 figure = figure >> 1 i += 1 End While Return Math.Pow(2, i) End Function

---

désolé d avoir tardé a répondre ...

avec ton astuce PitMaverick78 j ai deux erreur de ce type

Citation:

---

L'opérateur 'Is' n'accepte pas d'opérandes de type 'Long'. Les opérandes doivent être de types référence ou Nullable.

---

je n ai pas chercher a résoudre je suis revenu sur ma solution qui est surement la plus rapide

pour information, j ai teste ma première idée sous c++ que j ai mis en dll exploitable pour ma solution

un truc comme ca :

Code:

---

1 2 3 4 5

public: static unsigned long int find_first_1(unsigned long int x) { return x & - x; }

---

ca retourne egalement une erreur

je reprend donc ma solution initiale

merci a ceux qui se sont penché sur la question

enjoy

Erf c'est du C# converti en VB.net je pense qu'il faut remplacer Is par = ou == (je sais pas comment on teste l'égalité en vb)

Citation:

---

Envoyé par PitMaverick78

Erf c'est du C# converti en VB.net je pense qu'il faut remplacer Is par = ou == (je sais pas comment on teste l'égalité en vb)

---

connais pas le c#
je fais le test de vitesse pour voir ce que ca donne

enjoy

merci


edit : ca fonctionne mais je perds en vitesse comme je le pensais
de 145 kn /s je passe a 76 kn / s