Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 2
Ir a la página 1, 2  Siguiente
 
Fases Lunares
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Fases Lunares 
 
Hola a todos.
Alguien sabe si existe un código para saber las fases lunares, al estilo de..

Dim strLuna as String
strLuna = FuncionLunar(now())
Print  StrLuna
 

Donde la salida por terminal, por ejemplo seria...
Luna llena


Busque en la granja las palabras "luna" y "moon" pero no obtube resultados.

Bueno si alguien se le ocurre algo comente.
pd: adjunto un código php que encontré por si sirve de inspiración

fase-luna-php.txt
Descripción: Fases de la luna en PHP 
Descargar
Nombre del archivo: fase-luna-php.txt
Tamaño: 2.32 KB
Descargado: 30 veces
fase-luna-php.txt
Descripción: Fases de la luna en PHP 
Descargar
Nombre del archivo: fase-luna-php.txt
Tamaño: 2.32 KB
Descargado: 30 veces
fase-luna-php.txt
Descripción: Fases de la luna en PHP 
Descargar
Nombre del archivo: fase-luna-php.txt
Tamaño: 2.32 KB
Descargado: 30 veces

 



 
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Fases Lunares 
 
Yo encontré estos:

https://www.codeproject.com/Article...Draw-Moon-Phase
www.ccs.neu.edu/home/ramsdell/tools/lunisolar.c
http://www.voidware.com/moon_phase.htm
http://freesourcecode.net/cprojects...calculator-in-c
https://www.projectpluto.com/source.htm
 



 
última edición por vuott el Jueves, 07 Septiembre 2017, 23:06; editado 4 veces 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Fases Lunares 
 
vuott escribió: [Ver mensaje]
Yo encontré estos...

Perfecto le echare un vistazo mañana.

Saludos.
 



 
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Fases Lunares 
 
me interesa este tema voy a revisar los enlaces

gambas no tiene un control de fechas que tenga las fases lunares marcadas no?

falta un control sobre esto... veamos que hay como alternativas.

ando con la idea de hacer un programita nivel tonto para plantaciones jajaja

pero no se si encaro ya tengo mucho para programar y estudiar, pero bueno me doy cuenta que puede ser una gran utilidad para mucha gente y eso impulsa.

Saludos.
 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Fases Lunares 
 
voy dejando enlaces interesantes a ver si entre todos podemos hacer algo para gambas

http://foro.gui.uva.es/t/calculo-de-la-fase-lunar/498
https://moonphases.co.uk/tools
https://github.com/tingletech/moon-phase
https://code.launchpad.net/my-weather-indicator



paso 1: hallar Número Áureo
 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
última edición por v3ctor el Martes, 19 Septiembre 2017, 17:30; editado 5 veces 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Fases Lunares 
 
Interesante.

Yo apunto el link http://joaquin.medina.name/web2008/...oFasesLuna.html

Y lo dejo aquí para estudiarlo más tarde

Saludos.
 



 
razaAztk - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuarioVer la galería personal del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Fases Lunares 
 
razaAztk escribió: [Ver mensaje]
Interesante.
Yo apunto el link http://joaquin.medina.name/web2008/...oFasesLuna.html
Y lo dejo aquí para estudiarlo más tarde
Saludos.

Esta bien este, parece fácil de traducir a gambas.
Alguien esta traduciéndolo?

Estoy intentando traducir a gambas.
tengo esta funcion
Private Shared Function TruePhase(ByVal k As Decimal, ByVal phase As Decimal) As Decimal

Pero como se "traduce" a gambas correctamente?

TercoIDE help!!  

Saludos.
 



 
última edición por tincho el Martes, 19 Septiembre 2017, 09:14; editado 2 veces 
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Fases Lunares 
 
tincho escribió: [Ver mensaje]
tengo esta funcion
Private Shared Function TruePhase(ByVal k As Decimal, ByVal phase As Decimal) As Decimal

Pero como se "traduce" a gambas correctamente?

Los parámetros de esta función, escrita en VB.Net, tiene dos particultaridades: ByVal y el tipo Decimal

1) ByVal = "por valor".
En gambas el paso de los parámetros - en general - ocurre "por valor." Esto significa que cuando una función es invocada cada "parámetro formal" es inicializado con el valor del correspondiente "parámetro actual".


2) El tipo "Decimal" de VB.Net es un tipo de Coma fija; pero yo he visto el codigo fuente, escrito en C, y los tipos de valores son todos "double" (en Gambas: "Float").
Asì nosotros podemos usar este tipo de valor.


Por tanto, la traducción es simplemente esta:
Private Function TruePhase(k As Float, phase As Float) As Float

 



 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Fases Lunares 
 
#!/usr/bin/python3
# -*- coding: utf-8 -*-
'''
moonphase.py - Calculate Lunar Phase
Author: Sean B. Palmer, inamidst.com
Cf. http://en.wikipedia.org/wiki/Lunar_phase#Lunar_phase_calculation
'
''
from comun import _


import math
import decimal
import datetime

dec = decimal.Decimal


class Moon(object):
    def __init__(self, date):
        self.date = date

    def position(self):
        diff = self.date - datetime.datetime(2001, 1, 1)
        days = dec(diff.days) + (dec(diff.seconds) / dec(86400))
        lunations = dec('0.20439731') + (days * dec('0.03386319269'))
        return lunations % dec(1)

    def phase(self):
        pos = self.position()
        index = (pos * dec(8)) + dec('0.5')
        index = math.floor(index)
        return {
            0: _('New Moon'),
            1: _('Waxing Crescent'),
            2: _('First Quarter'),
            3: _('Waxing Gibbous'),
            4: _('Full Moon'),
            5: _('Waning Gibbous'),
            6: _('Last Quarter'),
            7: _('Waning Crescent')
        }[int(index) & 7]

    def phase_int(self):
        pos = self.position()
        index = (pos * dec(8)) + dec('0.5')
        index = math.floor(index)
        return int(index) & 7

    def icon(self):
        pos = self.position()
        index = (pos * dec(28)) + dec('0.5')
        index = int(math.floor(index))
        index = str(index)
        if len(index) < 2:
            index = '0' + index
        return 'mwi-moon' + index + '.png'

    def image(self):
        pos = self.position()
        index = (pos * dec(28)) + dec('0.5')
        index = int(math.floor(index))
        index = str(index)
        if len(index) < 2:
            index = '0' + index
        return 'mwi-moon' + index + '.svg'

if __name__ == '__main__':
    y = 2030
    m = 3
    days = 31
    for i in range(1, days):
        moon = Moon(datetime.datetime(y, m, i))
        phasename = moon.phase()
        roundedpos = round(float(moon.position()), 3)
        print('dia %s -> %s (%s): %s' % (i, phasename,
                                         roundedpos, moon.icon()))
    exit(0)

 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Fases Lunares 
 
v3ctor, a esa clase de python le falta el módulo 'comun' que será otro fichero de código python, supongo que contendrá constantes y funciones que luego usa dentro de la clase que has publicado. Bueno, y también los ficheros de imágenes de la luna en sus diferentes fases...

Saludos
 




===================
Jesús Guardón

Por favor, usemos el corrector ortográfico antes de pulsar el botón "Enviar".

"uo ǝs ʇɐu pıɟıɔıן ɐdɹǝupǝɹ ɐ dɹoƃɹɐɯɐɹ, soןo ɥɐʎ bnǝ dɹodouǝɹsǝןo"
 
jguardon - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Moontool: Fases Lunares razaAztk Aplicaciones/Fragmentos de Código 4 Viernes, 20 Octobre 2017, 15:11 Ver último mensaje
tincho
 

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


 
Lista de permisos
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



  

 

cron