Misez p'tit, Optimisez - N°12

[leglatin]

Cette formule du calcul du jour julien était utilisée pour le calcul du jour de la semaine jusqu'à ce que des versions simplifiéres (dont celle de Mike Keith) voient le jour...

J'ai trouvé, depuis, une simplification de mon prgm :

Remplacer :

Code : Tout sélectionner

09  76   x=>t
10  00   0
11 -34 1 INV SUM 1

par :

Code : Tout sélectionner

09 -76   INV x=>t
10 -34 1 INV SUM 1

On gagne un pas (taille = 46 pas au lieu de 47), et deux instructions en moins à exécuter si M<3.

[Miskatonic91]

Bravo leglatin! Je suis toujours à l'affût de tes optimisations sur TI-57!
Au fait, tu testes tes programmes sur quoi actuellement? Une vrai TI ou un émulateur (je sais que tu utilisais un temps TI-57E de Hrast)?

[Miskatonic91]

Petit essai sur HP-17BII, en utilisant le solveur d'équations (l'intérêt est surtout didactique, cette HP financière dispose de fonctions de date élaborées permettant entre autres de récupérer le jour de la semaine en toutes lettres et en français) :

JOURSEM:JSEM=L(Z:IF(M<3:Y-1:Y))*0+MOD(IP((23*M)/9)+D+4+Y+IP(G(Z)/4)-IP(G(Z)/100)+IP(G(Z)/400)-IF(M<3:0:2):7)

Commentaires :

JOURSEM: nom de l'équation
JSEM= résultat (0 = dimanche, 1 = lundi...)
L(Z:IF(M<3:Y-1:Y))*0 on affecte à la variable Z le résultat de l'expression définie après le double-point (ici un test conditionnel retirant 1 à l'année Y si le mois M est inférieur à 3 (janvier ou février)). On multiplie par 0 pour ne pas changer le résultat final de l'équation.
Le reste de l'équation reprend quasi-littéralement la formule de Mike Keith. A noter que G(Z) restitue le résultat défini au début (G(Z) = Get(Z)).
Le dernier IF soustrait 0 si M<3, 2 si M>=3.