L'heure sidérale nécessite des calculs en double précisions de 14 chiffres minimums, en simple précision c'est possible, mais avec des astuces mathématiques compliquées. Comme à ma connaissance la TI-83 ou 84 ne sait pas faire, et que je n'ai pas envie de me casser la tête, j'ai imaginé une petite solution ultra-rapide, permettant une approximation de l'heure sidérale TSL qui donne la position de bêta Cassiopée par rapport à la polaire, et donc de toutes les autres étoiles. Imaginons un cercle ayant pour centre l'étoile Polaire et passant par la grande Ourse et Cassiopée. Ce cercle gradué en 24 heures de façon antihoraire ou trigo. zéro hr en haut, 6h à gauche côté Ouest, 12h en bas vers le Nord et 18h côté Est. L'aiguille représenté par bêta Cassiopée, la branche la plus rapprochée du W qui se traine lui-même en arrière sur 2 h. Les heures sont en UTC/GMT de Greenwich. donc -1h pour revenir à l'heure solaire, Ce système simplifié est bien suffisant pour situer notre constellation de Cassiopée large de 2 heures sur notre cadran. (le numéro du mois) * 2 (pour 2h par mois) + (l'heure calculette) - 1 (pour le soleil) Précision: étant donné que le prgm est basé sur l'heure calculette, nous ne devrions pas trop dépasser une heure de l'heure sidérale réelle. Pour simplifier le résultat est en centième d'heure (25ct=15mn, 50ct=30mn, 75ct=45mn) Attention! Ce petit programme est toujours en cours d'études. N'oublions pas de contrôler si notre calculatrice est à la bonne date et à l'heure ! ************************************************************************************ PROGRAM:HSID ---------------- :0→F EffÉcran Disp " 0 pour l'heure Greenwich" Disp "" Disp " 1 pour l'heure d'hiver" Disp "" Disp " 2 pour l'heure d'été" Disp "" Disp "" Input " hiver ou été ? ",F If F<0 ou F>2:Stop 0→A:0→N:0→M:0→J 0→H:0→T:0→S:0→I {0,0,0}→L₆ {0,0,0}→L₅ EffÉcran EffTtesListes Disp " Rapide approximation Disp " de l'heure sidérale Disp "**************************" affDate→L₆ L₆(1)→A L₆(2)→N:N+3→M L₆(3)→J Output(5,6,"le"):Output(5,9,J) Output(5,12,"/"):Output(5,14,N) Output(5,16,"/"):Output(5,18,A) affHeure→L₅ L₅(1)→H L₅(2)→T L₅(3)→S Output(6,6,H):Output(6,9,"hr") Output(6,12,T):Output(6,14,"mn") Output(6,17,S):Output(6,19,"sec") M*2+H-F→R For(I,1,3) If J=I:R-1.25→R End For(I,4,7) If J=I:R-1→R End For(I,8,11) If J=I:R-.75→R End For(I,12,15) If J=I:R-.50→R End For(I,16,19) If J=I:R-.25→R End For(I,24,27) If J=I:R+.25→R End For(I,28,31) If J=I:R+.50→R End If R<0:R+24→R If R≥24:R-24→R If R<10:Then Output(8,7," .00/100") Else Output(8,8," .00/100") End Output(8,3,"+/-"):Output(8,8,R) Output(8,18,"d'heure") Output(10,1,"**************************") Pause EffÉcran EffTtesListes