Portal    Foro    Buscar    FAQ    Registrarse    Conectarse

Funciones Sobre Potencia De 2: Bits Y And

Funciones Sobre Potencia De 2: Bits Y And
Artículo
Responder citando    Descargar mensaje  
Mensaje 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 
Editado por jsbsan, Viernes, 01 Abril 2016, 08:05: Edito el titulo, para dejarlo más claro.
jsbsan - Ver perfil del usuario Enviar mensaje privado  
jsbsan [ Miercoles, 30 Marzo 2016, 14:39 ]
 


Funciones Sobre Potencia De 2: Bits Y And
Comentarios
Responder citando    Descargar mensaje  
Mensaje 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.



 
vicr - Ver perfil del usuario Enviar mensaje privado  
vicr [ Miercoles, 30 Marzo 2016, 15:41 ]
Responder citando    Descargar mensaje  
Mensaje 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 
vuott - Ver perfil del usuario Enviar mensaje privado  
vuott [ Miercoles, 30 Marzo 2016, 16:03 ]
Responder citando    Descargar mensaje  
Mensaje 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: 77 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: 77 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: 77 veces




 
jsbsan - Ver perfil del usuario Enviar mensaje privado  
jsbsan [ Miercoles, 30 Marzo 2016, 21:47 ]
Responder citando    Descargar mensaje  
Mensaje 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 
vuott - Ver perfil del usuario Enviar mensaje privado  
vuott [ Jueves, 31 Marzo 2016, 00:16 ]
Responder citando    Descargar mensaje  
Mensaje 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



 
jsbsan - Ver perfil del usuario Enviar mensaje privado  
jsbsan [ Jueves, 31 Marzo 2016, 08:25 ]
Responder citando    Descargar mensaje  
Mensaje Re: Funciones De Desplazamiento De Bits.... 
 
Julio:

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

Saludos



 
Shell - Ver perfil del usuario Enviar mensaje privado  
Shell [ Jueves, 31 Marzo 2016, 08:51 ]
Responder citando    Descargar mensaje  
Mensaje 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



 
jsbsan - Ver perfil del usuario Enviar mensaje privado  
jsbsan [ Jueves, 31 Marzo 2016, 10:55 ]
Responder citando    Descargar mensaje  
Mensaje 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



 
vuott - Ver perfil del usuario Enviar mensaje privado  
vuott [ Jueves, 31 Marzo 2016, 14:36 ]
Responder citando    Descargar mensaje  
Mensaje 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 
Shell - Ver perfil del usuario Enviar mensaje privado  
Shell [ Viernes, 01 Abril 2016, 10:06 ]
Mostrar mensajes anteriores:    
 
Publicar nuevo tema  Responder al tema  Página 1 de 2
Ir a la página 1, 2  Siguiente
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 



 

cron