Misez p'tit, Optimisez - N°12

Ici, on fait dans le petit, le LCD qui déchire sa race, on y cause même calculatrices quand on est en manque !

Modérateur : Politburo

Avatar de l’utilisateur
leglatin
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 809
Inscription : 03 févr. 2003 20:46
Localisation : A proximité de Deauville (14)
Contact :

Re: Misez p'tit, Optimisez - N°12

Message par leglatin » 09 oct. 2016 14:31

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.
Dernière édition par leglatin le 10 oct. 2016 17:35, édité 2 fois.
Commodore 7970 - Texas Instruments TI-30, 57, 80, 81, 82, 83, 85, 86, 89, 92 - Casio PB-80, PB-100, PB-500, PB-700, PB-770, FA-3, FA-4, FA-10, FA-11, FA-20, FP-12, CM-1, OR-1, OR-1(E), OR-4, OR-8, RC-4 - Canon X-07 - Philips VG8020, NMS8255, VY0010, VY0011, VS0080, D6450, VW0030, SBC3810, NMS1112, NMS1150, NMS1170, NMS1205 - Atari STE - NEC Powermate VL5 - PackardBell EasyNote E6315 - Samsung Galaxy S 2, Galaxy Tab 2

Avatar de l’utilisateur
Miskatonic91
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 533
Inscription : 27 août 2016 17:28
Localisation : Valdemarnie

Re: Misez p'tit, Optimisez - N°12

Message par Miskatonic91 » 09 oct. 2016 16:17

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)?
Casio: fx-180pv, fx-702p, fx-795p, fx-4000p, fx-7000g, fx-7700g, pv-s460, graph-25 // Psion: Series 5 // Sharp: pc-1246s, pc-1403 // TI: 57, 57-LCD, 57-II, 62 Galaxy, 66, 82 Stats.fr, 83 Plus.fr, 89, 92 II, 92 Plus, 95 Procalc, Voyage 200 // HP: 17BII,48G, 95LX, 100LX (et un 200LX hs)

Avatar de l’utilisateur
Miskatonic91
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 533
Inscription : 27 août 2016 17:28
Localisation : Valdemarnie

Re: Misez p'tit, Optimisez - N°12

Message par Miskatonic91 » 30 juil. 2017 12:15

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. :wink:
Casio: fx-180pv, fx-702p, fx-795p, fx-4000p, fx-7000g, fx-7700g, pv-s460, graph-25 // Psion: Series 5 // Sharp: pc-1246s, pc-1403 // TI: 57, 57-LCD, 57-II, 62 Galaxy, 66, 82 Stats.fr, 83 Plus.fr, 89, 92 II, 92 Plus, 95 Procalc, Voyage 200 // HP: 17BII,48G, 95LX, 100LX (et un 200LX hs)

Répondre

Revenir vers « Tous les Pockets »

Qui est en ligne ?

Utilisateurs parcourant ce forum : Bing [Bot], gege, Google [Bot] et 9 invités