Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
prmg Lunar phase...
Auteur Message
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Mar 28 Déc 2010, 16:57   Citer 

Programme Lune par Davin... 630 octets. bigmouth.gif

"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... crazy.gif
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" ! happy.gif


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



----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2176
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Mar 28 Déc 2010, 19:55   Citer 

cool l'idée!

chapeau!

 Adresse email Haut de page Bas de page 
 
AlexRider38



Autorisation : Membre
Nb de messages : 139
Inscrit le : Ven 26 Mar 2010, 17:13
Posté le : Mer 29 Déc 2010, 9:32   Citer 

top moumoute.
En espérant qu'il soit juste tongue.gif

 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Mer 29 Déc 2010, 15:15   Citer 

Merci les filles, çà fait toujours plaisir ! glasses.gif
Pour te rassurer oui top moumoute, il est juste !Tout a fait juste ! laugh.gif
La prochaine version inclura les éclipses et peut être quelques évènements
célestes remarquables (nuage d'étoiles filantes, comètes, quelques planètes)... loupe.gif
Faudra pas en demander trop c'est qu'une calto !^^\
Faut que des choses periodiques...

Salut ! bigmouth.gif

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
AlexRider38



Autorisation : Membre
Nb de messages : 139
Inscrit le : Ven 26 Mar 2010, 17:13
Posté le : Jeu 30 Déc 2010, 10:04   Citer 

Super trop cool

 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Lun 03 Jan 2011, 14:15   Citer 

AAAHHH !!! Je kiffe les interjections de ce genre dans un forum. bigmouth.gif
C'est utile et çà avence le chemilblic...
Non, je plaisante... laugh.gif
Merci quand même ! happy.gif

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
R # 2 B
Avatar

Autorisation : Membre
Nb de messages : 21
Inscrit le : Ven 07 Jan 2011, 14:35
Posté le : Ven 07 Jan 2011, 14:55   Citer 

l'idée est excellente en effet... et le programme aussi ! chapeau !

----------------------
Calto : Ti-82 Stats.Fr

programmeur depuis presque 2 ans

Peu de motivations sauf pour la programmation (évidemment !)

En cours les 3/4 de la journéee, le reste penché sur ma calto !
 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Jeu 13 Jan 2011, 17:13   Citer 

Merci ! C'est sympa... happy.gif

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Ven 14 Jan 2011, 10:41   Citer 

Personne n'as de propositions pour améliorer le prgm ? ahh.gif

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Ven 14 Jan 2011, 20:32   Citer 

Une toute petite chose : écrire dans le prog les valeurs de base de la dernière pleine lune peut servir lors d'une perte des variables.
Et puis je me contenterai personnellement de texte plutôt que de dessin.
( On pourrait utiliser des divisions euclidiennes pour les encadrements mais je crois que c'est moins bien que ta méthode. )

Et aucun défaut. bigmouth.gif

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Lombe



Autorisation : Membre
Nb de messages : 3
Inscrit le : Mar 13 Mai 2014, 21:24
Posté le : Lun 30 Jui 2014, 18:42   Citer 

Bravo c'est bien jouer

 Adresse email Haut de page Bas de page 
 
m@thieu41



Autorisation : Membre
Nb de messages : 804
Inscrit le : Mer 18 Juil 2012, 18:44
Posté le : Lun 30 Jui 2014, 19:11   Citer 

Merci pour le déterrage --"

----------------------
Pour vous aidez dans vos débuts (et même ensuite ^^) :
*Tuto Algo->Ti Basic (par Linkakro) : Traduisez vos algo (de type algobox) en prgm pour votre TI!
*Catalogue des emplacements et traductions (anglais/français) des fonctions sur la TI.
*Faites vos propres programmes de maths (par ash)

Tout82 a changé d'adresse: allez ici pour rejoindre le nouveau tout82 : http://tout82.forumactif.org/forum

Et au fait: la politesse n'a jamais tué personne winkle.gif
 Adresse email Haut de page Bas de page 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Mer 02 Juil 2014, 22:22   Citer 

laugh.gif

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa