Voilà encore des astuces que je vais devoir essayer sur mon HP Prime.
Et cela me donne des idées à essayer en RPL sur HP-28S
En attendant, voici un petit code de 84 octets pour SHARP PC-1211. J'avais initialement penser à deux version , une utilisant les temps sous forme décimale et l'autre un peu plus longue utilisant les temps au format
h.mmsss. Mais en fait, la version en
h.mmsss n'est beaucoup plus longue alors je ne publie que celle-ci:
Code : Tout sélectionner
Labels Inputs :Computations & Memorization: Outputs
1:"A"CLEAR
2:"B"INPUT M,T :A=M-A,B=DEG T-B,R=B/A,X=M
3:"C"AREAD X :Y=DMS (DEG T+XR-MR
4:"D"AREAD Y :PRINT M+(DEG Y-DEG T)/R,Y
84STEPS
Ce code tire avantage du fait que le SHARP PC-1211 puisse afficher facilement deux valeurs simultanément.
A gauche la quantité et à droite le temps correspondant seront donc affichées après chaque saisie:
- MPO99 - SHARP PC1211 capture1.gif (66.04 Kio) Vu 4843 fois
Chaque affichage est réalisé par l'instruction PRINT de la dernière ligne. la première ligne ne sert qu'à réinitialiser le pocket en mettant toutes les variables à zéro. ce qui permet d'utiliser la seconde ligne aussi bien pour mémoriser la définition du premier point que du deuxième.
Une petite astuce (qui économise de vilains GOTO), les AREAD n'ont aucun effet lorsqu'ils sont parcourus en cours de programme et qu'il n'y a rien qui vient d'être affiché, ils ne modifient donc le contenu des variable Xet Y que lorsqu'ils viennent juste d'être appelé par leur DEF-labels respectifs.
Ainsi, comme l'HP-12C, le SHARP-PC1211 est capable de faire les calcul dans les deux sens.
DEF-A : Initialise et mémorise définition du point A (saisir quantité puis temps)
DEF-B : Mémorise définition du point B (saisir quantité puis temps)
DEF-C : Calcule le temps correspondant à la quantité saisie.
DEF-D : Calcule la quantité correspondante pour le temps saisi.
Les calculs peuvent être répétés indéfiniment sans changer les définitions de A ou B.
Par contre, on ne peut changer les définitions de A ou B sans saisir à nouveau les deux points A puis B impérativement dans cet ordre.
- MPO99 - SHARP PC1211 capture2.gif (72.04 Kio) Vu 4843 fois
Sous cette forme curieuse, il y a tout de même un petit inconvénient d'affichage, qui peut être corrigé simplement, mais cette correction nécessite un octet. Je vous laisse deviner comment modifier le code pour obtenir un affichage irréprochable comme dans l'exemple suivant:
- MPO99 - SHARP PC1211 capture3.gif (48.71 Kio) Vu 4843 fois