Calcul des phases lunaires pour la date du jour

[PhM]

C'est du très bon travail, mais j'ai repéré une erreur de procédure.

Voici la modification que j'ai faite, car le programme disait "Gibbeuse croissante", alors que la pleine lune était hier.

Code : Tout sélectionner

Procedure.s PhaseLune(age.f, illumination.f)
  ; illumination en % (0..100), age en jours (0..29.53)
  Protected quartierTol.f = 2.0   ; tolérance autour de 50%
  Protected ageTolQ.f   = 1.0    ; tolérance autour des quartiers
  Protected NouvelleTol.f   = 1.0    ; tolérance nouvelle lune
  Protected seuilPleine.f  = 99.5   ; seuil pleine lune

  If illumination <= NouvelleTol
    ProcedureReturn "Nouvelle lune"

  ; Premier quartier (autour de 7.4 j et ~50%)
  ElseIf Abs(illumination - 50.0) <= quartierTol And Abs(age - 7.4) <= ageTolQ
    ProcedureReturn "Premier quartier"

  ; Dernier quartier (autour de 22.2 j et ~50%)
  ElseIf Abs(illumination - 50.0) <= quartierTol And Abs(age - 22.2) <= ageTolQ
    ProcedureReturn "Dernier quartier"

  ; Pleine lune (illumination très haute, optionnellement proche de 14.8 j)
  ElseIf illumination >= seuilPleine
    ProcedureReturn "Pleine lune"

  ; Croissant / Gibbeuse (croissante)
  ElseIf illumination > NouvelleTol And illumination < 50.0 And age < 7.4
    ProcedureReturn "Premier croissant"
  ElseIf illumination > 50.0 And illumination < seuilPleine And age < 14.8
    ProcedureReturn "Gibbeuse croissante"

  ; Gibbeuse / Croissant (décroissante)
  ElseIf illumination > 50.0 And illumination < seuilPleine And age >= 14.8 And age < 22.2
    ProcedureReturn "Gibbeuse décroissante"
  ElseIf illumination > NouvelleTol And illumination < 50.0 And age >= 22.2
    ProcedureReturn "Dernier croissant"

  Else
    ; Secours: basé sur l'âge en temps long (catégories larges)
    If age < 7.4
      ProcedureReturn "Premier croissant"
    ElseIf age < 9.0
      ProcedureReturn "Premier quartier"
    ElseIf age < 14.8
      ProcedureReturn "Gibbeuse croissante"
    ElseIf age < 16.5
      ProcedureReturn "Pleine lune"
    ElseIf age < 22.2
      ProcedureReturn "Gibbeuse décroissante"
    ElseIf age < 23.8
      ProcedureReturn "Dernier quartier"
    Else
      ProcedureReturn "Dernier croissant"
    EndIf
  EndIf
EndProcedure

Bonjour et merci pour ta vigilance.

Il se trouve que, moi aussi, hier, je me suis aperçu de cela mais, je n'ai corrigé que le code de l'Arduino pas le programme PB.

[PhM]

Voilà, c'est au mur et cela tient bien.

Voici l'ultime version de la documentation (1.0) : https://uploadnow.io/f/qCHNpqv

Pour ma part, je mets donc fin à ce long post qui semble avoir intéressé du monde.

Merci à tous pour votre soutien et vos remarques constructives.

A la prochaine...

Philippe

[Micoute]

C'est gentil de ta part, car c'est vrai que ça peut être mal vu de modifier le code des autres, mais je l'ai fait par bienveillance et comme ça tout le monde peut profiter de la collaboration collective, car je pense que quand on poste un programme, il ne nous appartient plus vraiment.

[PhM]

C'est gentil de ta part, car c'est vrai que ça peut être mal vu de modifier le code des autres, mais je l'ai fait par bienveillance et comme ça tout le monde peut profiter de la collaboration collective, car je pense que quand on poste un programme, il ne nous appartient plus vraiment.

Vraiment aucun problème avec ça ! Comme tu l'as dit, une fois publier, c'est comme les feuilles mortes, cela s'envole...

Mais, le savoir, lui reste à mon bord

[SPH]

Ha ouai, ça donne bien !

Merci d'avoir exposé ce projet que j'ai suivi de bout en bout.

[PhM]

Bonjour,

C'est encore moi, jamais rassasié, je planche sur une version pendulette de cette réalisation.

Globalement, le soft ne devrait pas trop évolué, par contre, la conception sera très différente, quatre fois plus petit par l'utilisation de strip de leds pré-cablées, moins lourd, moins onéreux.

A suivre...

[case]

superbe objet, bravo je suis admiratif sur la réalisation

[Micoute]

Mais, le savoir, lui reste à mon bord

Et le savoir, plus on le partage et plus il se multiplie.

[PhM]

Mais, le savoir, lui reste à mon bord

Et le savoir, plus on le partage et plus il se multiplie.

C'est vrai et c'est fait pour cela...

[PhM]

Voici quelques vues illustrant à quoi pourrait ressembler cette pendule.







Les éléments en marbre sont des pièces du commerce en vue de limiter le coût de fabrication. C'est à moi de m'adapter à leurs dimensions.

[Micoute]

Quel sacré projet bien abouti ! Bravo PhM, tu dois être heureux d'avoir réalisé ce rêve.

[PhM]

Quel sacré projet bien abouti ! Bravo PhM, tu dois être heureux d'avoir réalisé ce rêve.

Oui, et, tu vois, j'en recommence un autre avec cette version pendule (commandes de plusieurs exemplaires dans la famille). J'attaque le circuit imprimé qui ce justifie par la série de pendules à réaliser.

A suivre (c'est reparti, à nouveau)...

[SPH]

Ce ne sont pas les mêmes plaques. La lune est en bas sur l'une et en haut sur l'autre.

[PhM]

Ce ne sont pas les mêmes plaques. La lune est en bas sur l'une et en haut sur l'autre.

Et non, la plaque est quatre fois plus petite. Il faut refaire toute la mécanique. On passe d'une horloge murale à une pendule de table.

[SPH]

Un truc que j'ai remarqué : pour ton horloge murale, je n'ai pas vu le fil de l'alim !! Where it is ?