Bon algorithme pour Texas Instruments d'avant la TI-83:
Code : Tout sélectionner
000 76 11 Lbl A 032 76 23 Lbl lnx 070 76 15 Lbl E
002 88 42 01 D.DMS STO 01 034 19 75 02 04 54 D' - 24 ) 072 88 75 43 01 95 D.DMS - RCL 01 =
005 61 95 GTO = 039 85 43 02 95 18 + RCL 02 = C' 077 18 42 03 32 C' STO 03 x≷t
044 61 95 GTO = 081 19 54 42 04 D' ) STO 04
007 76 12 Lbl B 085 77 52 x≥t ?→ EE
009 88 42 02 D.DMS STO 02 046 76 18 Lbl C' 087 22 44 03 SUB 03
012 61 95 GTO = 048 55 02 04 85 01 95 ÷ 24 + 1 = 090 02 04 22 44 04 24 SUB 04
054 22 59 65 02 04 95 Frac × 24 = 095 76 52 Lbl EE
014 76 14 Lbl D 060 92 RTS 097 01 02 65 43 03 12 × RCL 03
016 88 55 01 02 65 D.DMS ÷ 12 × 102 55 43 04 ÷ RCL 04
021 29 22 77 23 C.t x<t ?→ lnx 061 76 19 Lbl D' 105 76 95 Lbl =
025 19 54 85 43 01 D' ) + RCL 01 063 53 43 02 75 43 01 ( RCL 02 - RCL 01 107 95 22 88 = INV D.DMS
030 61 95 GTO = 069 92 RTS 110 92 RTS
Usages:
[ A ] Saisie de l'heure du lever : 7.12 [ A ] affiche 7.12
[ B ] Saisie de l'heure du coucher: 20.07 [ B ] affiche 20.07
[ E ] Converti l'heure équinoxiale en heure temporaire ( ≥0 heures du jour & <0 heures de la nuit ):
9.53275 [ E ] affiche 2.3000 (format Fix 4)
10 [ E ] affiche 2.3605
14 [ E ] affiche 6.1903
22.22 [ E ] affiche -2.2610
5 [ E ] affiche -9.3705
7.12 [ E ] affiche 0.0000 ( début de journée )
13.3930 [ E ) affiche 6.0000 ( mi-journée )
20.07 [ E ] affiche 12.0000 ( fin de journée )
1.3930 [ E ] affiche -6.0000 (mi-nuit )
7.1159 [ E ] affiche -11.5959 ( fin de nuit )
Mais, malgré qu'Eric ne m'ai pas (encore) payé mes heures temporaires supplémentaires, il y une fonction bonus :
[ D ] converti les heures temporaires ( ≥0 diurnes et ≤0 nocturnes) en heures équinoxiales (0-24 h)
2.3 [ D ] affiche 9.5328
2.3605 [ D ] affiche 10.0000
6.1903 [ D ] affiche 14.0000
-2.2610 [ D ] affiche 22.2200
-9.3705 [ D ] affiche 5.000
0 [ D ] donne 7:12 (lever)
6 [ D ] donne 13:39'30" ( vraie heure du zénith )
12 [ D ] donne 20:07' (coucher)
-6 [ D ] donne 1:39'30" ( heure de profonde perdition du week-end )
-12 [ D ] donne 7:12' (lever)
Bon, mon code fait plus de 100 pas, mais je suis malgré cela et pour un petit temps encore le mieux placé des utilisateurs de Ti à LED pour ce MPO.
Je n'ai pas réussit à faire mieux que la Ti Galaxy d'Eric.