ld le 28/12/2010 à 16:57
Programme Lune par Davin... 630 octets.
"Le 25 Février 1848, Proclamation de la 2éme République": vous lache fierment
votre prof d'Histoire Géographie; "Cà ne dit rien à personne je suis sûr..."
"Si moi", répondez vous presque spontanément, c'était même un jour de pleine
Lune..."Ah...Euh...Et le 8 Mai 1945 ?"; "Oui, ce fut un jour de nouvelle Lune."
Bon Ok, là vous passez pour un con à la tête dans les étoiles...
Mais voilà qui plaira sûremment aux inconditionels d'Astronomie comme moi,
un prgm nommé "Lune" qui permet de connaitre la phase de celle-ci à nimporte
qu'elle date de l'histoire et même du futur...
Plutôt précit, la marge d'erreur commance à ce faire sentir vers plus de 3000
ans autour de la date rentrée (qu'on peut changer ! ce qui fait beaucoups...).
Et pour cause la révolution sidérale Lunaire est connut précisement:
27j 7h et 43min et sont cycle de phase: 29j 12h et 44min
Par défaut vous devez régler à la minute prés l'heure de la dernière pleine
Lune pour être le plus exacte possible, ce qu'ont ne trouve pas sur un simple
calendrier (Il faut utliser un simulateur astronomique ou un planétarium comme
Célestia par exemple ou encore lire régulièrement "Ciel & Espace"...).
Je vous propose donc de rentrer la date suivante:
21/12/2010 à 9h et 17min, Heure FR de la dernière éclipse totale de Lune
(tout les 3 ans...). Je suis certaint que beaucoups d'entre vous l'ont loupée,
domage c'était magique ! Date où mes venue aussi l'idée déditer ce prgm...
Voici pour le nouvel ans un prgm plutôt simpat "Lune" !
Code
:EffEcr
:Menu("LUNE PHASE","CHERCHE...",1,"MISE A JOUR",2)
:Lbl 2
:Disp "DERNIERE","PLAINE","LUNE",""
:Input "MIN",O
:Input "HEURE",H
:Prompt J:Prompt M:Prompt A
:(J+M30.4375+A365.25-)R:Stop
:
:Lbl 1
:Effvar L1:1-)N
:For(A,.0625,.9375,.125):A-)L1(N):N+1-)N:End
:Prompt J:Prompt M:Prompt A
:abs(J+M30.4375+A365.25-R)/29.5305555-)N
:EffDessin:AxesNaff:ZStandard
:-15-)Xmin:15-)Xmax
:Texte(57,1,partEnt(N)):Texte(57,20,"LUNE")
:partdéc(N)-)N
:Cercle(0,0,6)
:
:If N (plus grant ou égale à) L1(8) et N (plus petit ou égale à) 1
: ou N (plus grant ou égale à) 0 et N (plus petit que) L1(1)
:Texte(27,47,"P")
:
:If N (plus grant ou égale à) L1(1) et N (plus petit que) L1(2)
:Then:Cercle(-10,0,13):Texte(27,45,"*"):End
:
:If N (plus grant ou égale à) L1(2) et N (plus petit que) L1(3)
:Then:Ligne(0,6,0,-6):Texte(27,38,"*"):End
:
:If N (plus grant ou égale à) L1(3) et N (plus petit que) L1(4)
:Then:Cercle(10,0,13):Texte(27,30,"*"):End
:
:If N (plus grant ou égale à) L1(4) et N (plus petit que) L1(5)
:Texte(27,47,"N")
:
:If N (plus grant ou égale à) L1(5) et N (plus petit que) L1(6)
:Then:Cercle(-10,0,13):Texte(27,57,"*"):End
:
:If N (plus grant ou égale à) L1(6) et N (plus petit que) L1(7)
:Then:Ligne(0,6,0,-6):Texte(27,54,"*"):End
:
:If N (plus grant ou égale à) L1(7) et N (plus petit que) L1(8)
:Then:Cercle(10,0,13):Texte(27,48,"*"):End
:Stop
ld le 29/12/2010 à 15:15
Merci les filles, çà fait toujours plaisir !
Pour te rassurer oui top moumoute, il est juste !Tout a fait juste !
La prochaine version inclura les éclipses et peut être quelques évènements
célestes remarquables (nuage d'étoiles filantes, comètes, quelques planètes)...
Faudra pas en demander trop c'est qu'une calto !
Faut que des choses periodiques...
Salut !
