Funciones Sobre Potencia De 2: Bits Y And


Ir a la página 1, 2  Siguiente

Objetivo: Funciones Sobre Potencia De 2: Bits Y And
¿Quien podría traducirme estas dos funciones hechas en javascript a Gambas3?
b2Math.b2NextPowerOfTwo = function(x)
{
x |= (x >> 1) & 0x7FFFFFFF;
x |= (x >> 2) & 0x3FFFFFFF;
x |= (x >> 4) & 0x0FFFFFFF;
x |= (x >> 8) & 0x00FFFFFF;
x |= (x >> 16)& 0x0000FFFF;
return x + 1;
};
b2Math.b2IsPowerOfTwo = function(x)
{
var result = x > 0 && (x & (x - 1)) == 0;
return result;
};

última edición por jsbsan el Viernes, 01 Abril 2016, 08:05; editado 2 veces
Objetivo: Re: Funciones De Desplazamiento De Bits....
Hola, Jsban...

Yo por lo poco que he visto de Javascript hice una búsqueda de la función para ver en los otros lenguajes a los que ha sido portado B2box y si eso resultaba más esclarecedor... y me encontré con éste sitio:

http://aggregate.org/MAGIC/

El enlace

Allí entre tanta función aparece esto:

Citar:

Next Largest Power of 2

Given a binary integer value x, the next largest power of 2 can be computed by a SWAR algorithm that recursively "folds" the upper bits into the lower bits. This process yields a bit vector with the same most significant 1 as x, but all 1's below it. Adding 1 to that value yields the next largest power of 2. For a 32-bit value:

unsigned int
nlpo2(register unsigned int x)
{
x |= (x >> 1);
x |= (x >> 2);
x |= (x >> 4);
x |= (x >> 8);
x |= (x >> 16);
return(x+1);
}


Por lo que se puede entender que: Se trata de una función recursiva (y que utilizaria los pipe (" | ") para ello ) conocida como "Algoritmo de Precision SWAR" (o algo por el estilo)... lo que me llevó a esta pagina:

http://stackoverflow.com/questions/...algorithm-works

Espero te sirva.

Saludos.

Perfil MP  
Objetivo: Re: Funciones De Desplazamiento De Bits....
Como bien sabes, gambas tiene una función para actuar el desplazamiento de los bits a derecha: Shr(). Pero prefiero usar una expresión explícita.

...de todas formas, teniendo tambien en cuenta lo que notó vicr, yo traduciría de javascript como sigue:
Private Function function_1(x As Integer) As Integer

x = x Or (x \ CInt(2 ^ 1)) And &7FFFFFFF&
x = x Or (x \ CInt(2 ^ 2)) And &3FFFFFFF&
etc...
etc....

Return x + 1

End


Private Function function_2(x As Integer) As Integer

Dim result As Integer

If (x > 0) And ((x And (x - 1)) = 0) Then result = 1

Return result

End
sttrah

última edición por vuott el Jueves, 31 Marzo 2016, 02:09; editado 6 veces
Perfil MP  
Objetivo: Re: Funciones De Desplazamiento De Bits....
Gracias Voutt y Vicr

Os dejo un ejemplo que he hecho con las funciones:

' gambas module file

Public Sub Main()

Dim n As Integer

For n = 2 To 100
Print "n:", n
Print "siguente potencia de 2:", b2NextPowerOfTwo(n)
'Print b2NextPowerOfTwo(n)
Print "<-->"
Print "¿es potencia de 2?:", b2IsPowerOfTwo(n)
'Print b2IsPowerOfTwo(n)
Print "---------------------------------------"
Next

End

Private Function b2NextPowerOfTwo(x As Integer) As Integer

x = x Or (x \ CInt(2 ^ 1)) And &7FFFFFFF&
x = x Or (x \ CInt(2 ^ 2)) And &3FFFFFFF&
x = x Or (x \ CInt(2 ^ 4)) And &0FFFFFFF&
x = x Or (x \ CInt(2 ^ 8)) And &00FFFFFF&
x = x Or (x \ CInt(2 ^ 16)) And &0000FFFF&
Return x + 1

End

Private Function b2IsPowerOfTwo(x As Integer) As Integer

If (x > 0) And ((x And (x - 1)) = 0) Then Return True
Return False

End


potencia2-0.0.1.tar.gz
Descripción: Funciones b2isPowerOfTwo y b2NexPowerOfTwo 
Descargar
Nombre del archivo: potencia2-0.0.1.tar.gz
Tamaño: 11.16 KB
Descargado: 78 veces
potencia2-0.0.1.tar.gz
Descripción: Funciones b2isPowerOfTwo y b2NexPowerOfTwo 
Descargar
Nombre del archivo: potencia2-0.0.1.tar.gz
Tamaño: 11.16 KB
Descargado: 78 veces
potencia2-0.0.1.tar.gz
Descripción: Funciones b2isPowerOfTwo y b2NexPowerOfTwo 
Descargar
Nombre del archivo: potencia2-0.0.1.tar.gz
Tamaño: 11.16 KB
Descargado: 78 veces

Objetivo: Re: Funciones De Desplazamiento De Bits....
jsbsan, porque no usas el tipo Boolean ?
Private Function b2IsPowerOfTwo(x As Integer) As Boolean

If (x > 0) And ((x And (x - 1)) = 0) Then Return True

End

última edición por vuott el Jueves, 31 Marzo 2016, 00:17; editado 1 vez
Perfil MP  
Objetivo: Re: Funciones De Desplazamiento De Bits....
Vuott:

Citar:
porque no usas el tipo Boolean ?

Me he equivocado, deberia haber puesto boolean.

Lo que no sabia, es que si una funcion no devuelve nada, devuelve 0 (false)

Saludos

Objetivo: Re: Funciones De Desplazamiento De Bits....
Julio:

¿ Y ese interés repentino por los bits ?.
¿ Quieres desplazarlos ?. ¿ Tienes bits ocupas ?.

Saludos

Objetivo: Re: Funciones De Desplazamiento De Bits....
Shell:
Citar:
¿ Y ese interés repentino por los bits ?

Estoy intentando empezar a traducir librerias de javascript, del tema del motor de fisica Bos2d, y me encontrado con varias funciones "raras" que no se muy bien para que se usan.

El caso es, que como en el sistema binario (0,1), es más fácil trabajar con potencias de 2 que con el sistema decimal, (y mucho más rápido para la máquina), aprovechamos "ese pequeño truco" para hacerlas en ese sistema. Creo que por eso se usan las funciones de desplazamiento: operaciones que en sistemas decimal consumen muchos ciclos de cálculo, en binario simplemente se trata de desplazar 0 y 1.

Saludos

Objetivo: Re: Funciones De Desplazamiento De Bits....
jsbsan escribió:  
Estoy intentando empezar a traducir librerias de javascript...

Shell,
yo y jsbsan hemos fundado la Schola traductionum de otros lenguajes a Gambas.

scuola_8

Perfil MP  
Objetivo: Re: Funciones Sobre Potencia De 2: Bits Y And
Julio:

Debe ser complicado solo con unos y ceros.

Vuott:

Así que traductores. Que bien, entonces tambien traducirás personalmente de Python a gambas.
Claro que siempre habrá cosas que no se pueden traducir tan fácilmente. Debido a su complejidad o
lo que solicite.

¿ Se puede demostrar de alguna forma que hacer un calculo en binario es más rápido que en decimal ?.
¿ Nos valdría el perfilado ?. Se necesitaría hacer un buen número de operaciones.

Saludos

última edición por Shell el Viernes, 01 Abril 2016, 10:11; editado 1 vez
Ir a la página 1, 2  Siguiente

Página 1 de 2


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.5319s (PHP: -78% SQL: 178%)
Consultas SQL: 53 - Debug off - GZIP Activado