Micro Systèmes n°33 jui/aoû 1983
Micro Systèmes n°33 jui/aoû 1983
  • Prix facial : 21 F

  • Parution : n°33 de jui/aoû 1983

  • Périodicité : mensuel

  • Editeur : Société Parisienne d'Edition

  • Format : (203 x 271) mm

  • Nombre de pages : 198

  • Taille du fichier PDF : 154 Mo

  • Dans ce numéro : spécial NCC'83... les nouveaux produits présentés à Los Angeles.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 142 - 143  |  Aller à la page   OK
Pages suivantes >
142 143
ne servent qu'au chargement du langage machine. L'organigramme général de ce programme est donné figure 1. Comment charger le programme C'est une longue opération, mais à ne faire qu'une fois. Voici la procédure  : 1 — Créer les lignes REM de numéros 4, 5, 6, 7, 8, 9, 10. Le REM de chacune de ces lignes doit être suivi respectivement de 113, 263, 16, 121, 32, 177, 46 caractères. Attention  : aucun caractère ne doit être oublié. Bon courage ! 2 — Rentrer le reste du programme. Les lignes 4110, 4210, 4310, 4410, et 4510 contiennent le code machine. Il est important de n'y introduire aucune erreur. Il faut omettre les REM à partir de la ligne 335. Sinon, le programme manquera de place en mémoire. 3 — Une fois rentrée la dernière ligne de programme, sauvegarder le programme tel quel avant toute exécution (très important). 4 — Mettre le ZX 81 en mode « FAST », puis taper RUN 4000. Le programme charge alors son code machine dans les lignes REM 4, 5, 6, 7, 8, 9 et 10. Il s'arrête à la ligne 4530. Lors de l'établissement d'un listing, l'affichage des lignes 4 à 10 est perturbé. C'est normal (présence de caractères CHR$(118)). 5 — Le programme ne peut pas encore fonctionner. Il manquerait de place mémoire. Les lignes 3000 et suivantes ne servant plus à rien, vous devez maintenant les effacer l'une après l'autre. Faites un premier essai en traçant le cercle d'équations  : X(T)=COST Y(T)=SINT Voici l'essai complet  : Après les questions  : Plusieurs courbes ? Taper sur N X(T) ? Entrer COST (Appuyer sur SHIFT FUNCTION COS) Y(T) ? Entrer SINT (Appuyer sur SHIFT FUNCTION SIN) Valeur mini de T ? Entrer 0 Valeur maxi de T ? Entrer ? Pl (Appuyer sur SHIFT FUNCTION pour PI) Nombre de points à calculer pour la vidéo ? Entrer par exemple 250 Axes normés ? Taper sur O (oui) (sinon vous aurez une ellipse) Au bout d'une centaine de secondes environ, le programme vous propose l'allure de la courbe sur l'écran. Appuyer alors sur n'importe quelle touche (sauf BREAK). Le programme vous propose alors de changer de fonction ou d'intervalle d'étude. La frappe de F entraîne le changement de la fonction et I celui de l'intervalle. Toute autre touche indique la conservation de ces deux éléments. Le programme affiche alors les valeurs de XMIN, XMAX, YMIN, YMAX et vous propose de les modifier. X entraîne le changement des valeurs XMIN, XMAX et Y celui de YMIN ET YMAX. L'acceptation est donnée en pressant toute autre touche. Le programme (fig. 4) vous demande alors le nombre de valeurs à calculer pour l'imprimante. 1000 valeurs sont largement suffisantes pour un cercle. Au bout d'une dizaine de minutes, l'impression commencera. Elle ne dure qu'une vingtaine de secondes. Des exemples de tracé sont donnés figure 2 et 3. Ces courbes demandent cependant un temps de réalisation assez long... Les routines en langage machine Le stockage du graphique haute définition s'effectue dans un tableau à deux dimensions M$. Chaque caractère du tableau est un octet et représente donc huit points. Un tel tableau occupe 8 K-octets de mémoire vive. Lors de l'impression, le tableau M$ est présenté comme suit  : M$(1,1) M$(1,2) M$(1,32) M$(2,1) M$(2,2) M$(2,32) M$(256,1) M$(256,32) REM de la ligne 4  : Contient la routine d'impression de la ROM modifiée pour que les 256 octets (8 lignes du tableau) à imprimer figurent à partir de l'adresse 16640. REM de la ligne 5  : Le premier octet suivant le REM a Rentrer X(T) et YM Rentrer TMIN, TMAX et NB Première courbe ? NON out Calculer XMIN, XMAX, 1 YMIN et YMAX Présenter la courbe sur la vidéo 141 Nouvel intervalle d'étude OUI NON (Nouvelles équations ? OUI ; NON Première courbe NON out• Procéder au changement OUI Changement de XMIN et XMAX ou de YMIN et YMAX NON OUI Encore sur NON la vidéo Rentrer NB I, Calculer les NB valeurs I de X(T) et VIT) et placer les points correspondants OUI Encore une courbe ? NON Sortie sur l'imprimante Fig. I. — L'organigramme général. pour adresse 16633. Les octets d'adresses 16640 à 16895 servent à stocker les 256 octets qui seront imprimés par la routine de la ligne 4. REM de la ligne 6  : Effectue le « OU a logique entre les octets d'adresses 16637 et 16638. REM de la ligne 7  : Le premier octet a pour adresse 16924. Une nouvelle ligne de programme est créée. Les caractères de la ligne seront ren- trés en Basic par des instructions POKE. REM de la ligne 8  : Le premier octet a pour adresse 17051. 256 octets du tableau M$ sont transférés jusqu'aux adresses 16640 à 16895. Grâce à cette routine, l'impression se fait beaucoup plus rapidement qu'avec la méthode décrite dans la brochure Sinclair. REM de la ligne 9  : Recherche de la chaîne de caractères dont le code de la lettre figure à 142 — MICRO-SYSTEMES Juillet-Août 1983
X(T)=41*C°5 (7*T,48)+7*CO3 (41*T r48) Y(T)=-41*5IN (7*T/46)+7*5IN (41* Ts48) +Eug.. MINI DE T:0.Ji,tLEUR DE T:301.5929 5000 VRLEUR5 CRLCULFE5 X(T)=17*C05 (.31*T,46)+17+CC)5. (17 *Ti48) Y(T)=-17*SIN k 31*T/48) +17*5IN (2. -7*T/46) unLEuP MINI DE T : ()FILEUR MAXI DE T:301.5929 8000 VRLEUR5 CPLCULEE5 VRLEUR MINI DE IRLEUR MRXI DE Y:4T 1CM=10.434783 VRLEUR MINI DE Y : —48 VRLEUR MRXI DE Y:48 1CM=10.434763 X(T)=21*COS (I1*T,32)+11*C05 (21. er/32) Y.(T)=-21*5IN (I1*T132)+11*5IN (2 1÷T/,'32) ()FILEUR MINI DE T:0 VRLEUR MRXI DE T:201.06193 8000 VRLEUR5 s-RELCULEES X(T)=3*C05 (29*T/32)+7*C05 (3eT/32) YIT)=-3*SIN 129*T/32)-(.7*SIN. 13*T/1-52 ()PLEUR MINI DE T:e VRLEUR MRXI DE T:201.06193 2000 VRLEUR5 CRLCULEES ()FILEUR MINI DE X:—:1 ; 2 VRLEUR MRXI DE X : 32 1CM=5.9565217 VRLEUR MINI DE Y : —32 VRLEUR MAXI DE Y:32 1CM=6.9565217 1 ri-4-1.7-\_-_e.,.,,1\Fig. 2. - Le temps de calcul pour cette superbe rosace est de 2 heures 15 minutes... l'adresse 17089 (ici le caractère « A ») , et vérifie que cette chaîne est admissible comme fonction. (Adresse du 1" octet  : 17089) REM de la ligne 10  : contient 2 routines traçant les axes sur l'écran (adresse du 1" octet  : 17272). sens pour le ZX 81. Exemple  : X(T)=SIN T ++2 Attention  : Le ZX 81 n'accepte pas les puissances de nombres négatifs. Il est donc préférable, pour étudier une fonction polynôme de ne pas utiliser la fonction **. Rentrez, par exemple, X(T)=T*T*T au lieu de X(T)=T » » 3. En cas d'arrêt sur erreur Code d'erreur 6  : Dépassement de capacité arithmétique. Cela peut arriver lors d'une division par 0 ou au voisinage d'une asymptote. 11 faut alors changer l'intervalle d'étude. Code d'erreur A  : L'intervalle d'étude contient une ou des valeurs de T pour lesquelles X(T) ou Y(T) n'est pas défini. Il faut le changer. Code d'erreur C : Malgré le contrôle de validité, qui n'est pas total, une des deux fonctions X(T) ou Y(T) n'a pas de Sauvegarder un graphique Après l'impression du graphique par l'imprimante, faites une sauvegarde. Le graphique sera sauvegardé avec le programme Basic. Cela prend du temps, car l'ensemble occupe près de 16 K-octets. Une fois ce programme rechargé, ne faites surtout pas une commande RUN. Cela effacerait le tableau M$ contenant le graphique. Taper ensuite GOTO 1550 pour une nouvelle impression. ■ Fig. 3. - Pour cette jolie étoile, il est d'une heure 40 minutes. TABLEAU DES VARIABLES Variables numériques  : TMIN  : valeur minimale donnée au paramètre T. TMAX  : valeur maximale donnée au paramètre T. XMAX  : valeur maximale prise par la variableX. XMIN  : valeur minimale prise par la variableX. YMAX  : valeur maximale prise par la variable Y. YMIN  : valeur minimale prise par la variable Y. X  : contient les valeurs successives de X(T) Y  : contient les valeurs successives de Y(T). ET  : pas de calcul. EX  : unité de longueur sur l'axe desX. EY  : unité de longueur sur l'axe des Y. R  : contient l'adresse du premier caractère du tableau. MS qui doit être transféré à l'adresse 16640. A  : contient l'adresse du premier caractère de la nouvelle ligne de programme qui vient d'être créé. NL  : contient le numéro de la nouvelle ligne de programme à créer. E  : vaut 0 pour la première courbe, I pour les suivantes. Varia bles alphanumériques DS  : contient la fonction Y(T). ES  : contient la fonction X(T). AS  : contient la chaîne de caractères représentant une fonction avant traitement. I3S  : contient la chaîne de caractères représentant une fonction après traitement. RS  : contient la chaîne « 0 » si l'on a demandé plusieurs courbes sur le même graphique. NS  : contient la chaîne « 0 » si l'on a demandé des axes normés. Tableau MS  : dimensionné par DIM MS (256, 32), contient le graphique haute résolution. W cc o cc Juillet-Août 1983 MICRO-SYSTEMES — 143



Autres parutions de ce magazine  voir tous les numéros


Liens vers cette page
Couverture seule :


Couverture avec texte parution au-dessus :


Couverture avec texte parution en dessous :


Micro Systèmes numéro 33 jui/aoû 1983 Page 1Micro Systèmes numéro 33 jui/aoû 1983 Page 2-3Micro Systèmes numéro 33 jui/aoû 1983 Page 4-5Micro Systèmes numéro 33 jui/aoû 1983 Page 6-7Micro Systèmes numéro 33 jui/aoû 1983 Page 8-9Micro Systèmes numéro 33 jui/aoû 1983 Page 10-11Micro Systèmes numéro 33 jui/aoû 1983 Page 12-13Micro Systèmes numéro 33 jui/aoû 1983 Page 14-15Micro Systèmes numéro 33 jui/aoû 1983 Page 16-17Micro Systèmes numéro 33 jui/aoû 1983 Page 18-19Micro Systèmes numéro 33 jui/aoû 1983 Page 20-21Micro Systèmes numéro 33 jui/aoû 1983 Page 22-23Micro Systèmes numéro 33 jui/aoû 1983 Page 24-25Micro Systèmes numéro 33 jui/aoû 1983 Page 26-27Micro Systèmes numéro 33 jui/aoû 1983 Page 28-29Micro Systèmes numéro 33 jui/aoû 1983 Page 30-31Micro Systèmes numéro 33 jui/aoû 1983 Page 32-33Micro Systèmes numéro 33 jui/aoû 1983 Page 34-35Micro Systèmes numéro 33 jui/aoû 1983 Page 36-37Micro Systèmes numéro 33 jui/aoû 1983 Page 38-39Micro Systèmes numéro 33 jui/aoû 1983 Page 40-41Micro Systèmes numéro 33 jui/aoû 1983 Page 42-43Micro Systèmes numéro 33 jui/aoû 1983 Page 44-45Micro Systèmes numéro 33 jui/aoû 1983 Page 46-47Micro Systèmes numéro 33 jui/aoû 1983 Page 48-49Micro Systèmes numéro 33 jui/aoû 1983 Page 50-51Micro Systèmes numéro 33 jui/aoû 1983 Page 52-53Micro Systèmes numéro 33 jui/aoû 1983 Page 54-55Micro Systèmes numéro 33 jui/aoû 1983 Page 56-57Micro Systèmes numéro 33 jui/aoû 1983 Page 58-59Micro Systèmes numéro 33 jui/aoû 1983 Page 60-61Micro Systèmes numéro 33 jui/aoû 1983 Page 62-63Micro Systèmes numéro 33 jui/aoû 1983 Page 64-65Micro Systèmes numéro 33 jui/aoû 1983 Page 66-67Micro Systèmes numéro 33 jui/aoû 1983 Page 68-69Micro Systèmes numéro 33 jui/aoû 1983 Page 70-71Micro Systèmes numéro 33 jui/aoû 1983 Page 72-73Micro Systèmes numéro 33 jui/aoû 1983 Page 74-75Micro Systèmes numéro 33 jui/aoû 1983 Page 76-77Micro Systèmes numéro 33 jui/aoû 1983 Page 78-79Micro Systèmes numéro 33 jui/aoû 1983 Page 80-81Micro Systèmes numéro 33 jui/aoû 1983 Page 82-83Micro Systèmes numéro 33 jui/aoû 1983 Page 84-85Micro Systèmes numéro 33 jui/aoû 1983 Page 86-87Micro Systèmes numéro 33 jui/aoû 1983 Page 88-89Micro Systèmes numéro 33 jui/aoû 1983 Page 90-91Micro Systèmes numéro 33 jui/aoû 1983 Page 92-93Micro Systèmes numéro 33 jui/aoû 1983 Page 94-95Micro Systèmes numéro 33 jui/aoû 1983 Page 96-97Micro Systèmes numéro 33 jui/aoû 1983 Page 98-99Micro Systèmes numéro 33 jui/aoû 1983 Page 100-101Micro Systèmes numéro 33 jui/aoû 1983 Page 102-103Micro Systèmes numéro 33 jui/aoû 1983 Page 104-105Micro Systèmes numéro 33 jui/aoû 1983 Page 106-107Micro Systèmes numéro 33 jui/aoû 1983 Page 108-109Micro Systèmes numéro 33 jui/aoû 1983 Page 110-111Micro Systèmes numéro 33 jui/aoû 1983 Page 112-113Micro Systèmes numéro 33 jui/aoû 1983 Page 114-115Micro Systèmes numéro 33 jui/aoû 1983 Page 116-117Micro Systèmes numéro 33 jui/aoû 1983 Page 118-119Micro Systèmes numéro 33 jui/aoû 1983 Page 120-121Micro Systèmes numéro 33 jui/aoû 1983 Page 122-123Micro Systèmes numéro 33 jui/aoû 1983 Page 124-125Micro Systèmes numéro 33 jui/aoû 1983 Page 126-127Micro Systèmes numéro 33 jui/aoû 1983 Page 128-129Micro Systèmes numéro 33 jui/aoû 1983 Page 130-131Micro Systèmes numéro 33 jui/aoû 1983 Page 132-133Micro Systèmes numéro 33 jui/aoû 1983 Page 134-135Micro Systèmes numéro 33 jui/aoû 1983 Page 136-137Micro Systèmes numéro 33 jui/aoû 1983 Page 138-139Micro Systèmes numéro 33 jui/aoû 1983 Page 140-141Micro Systèmes numéro 33 jui/aoû 1983 Page 142-143Micro Systèmes numéro 33 jui/aoû 1983 Page 144-145Micro Systèmes numéro 33 jui/aoû 1983 Page 146-147Micro Systèmes numéro 33 jui/aoû 1983 Page 148-149Micro Systèmes numéro 33 jui/aoû 1983 Page 150-151Micro Systèmes numéro 33 jui/aoû 1983 Page 152-153Micro Systèmes numéro 33 jui/aoû 1983 Page 154-155Micro Systèmes numéro 33 jui/aoû 1983 Page 156-157Micro Systèmes numéro 33 jui/aoû 1983 Page 158-159Micro Systèmes numéro 33 jui/aoû 1983 Page 160-161Micro Systèmes numéro 33 jui/aoû 1983 Page 162-163Micro Systèmes numéro 33 jui/aoû 1983 Page 164-165Micro Systèmes numéro 33 jui/aoû 1983 Page 166-167Micro Systèmes numéro 33 jui/aoû 1983 Page 168-169Micro Systèmes numéro 33 jui/aoû 1983 Page 170-171Micro Systèmes numéro 33 jui/aoû 1983 Page 172-173Micro Systèmes numéro 33 jui/aoû 1983 Page 174-175Micro Systèmes numéro 33 jui/aoû 1983 Page 176-177Micro Systèmes numéro 33 jui/aoû 1983 Page 178-179Micro Systèmes numéro 33 jui/aoû 1983 Page 180-181Micro Systèmes numéro 33 jui/aoû 1983 Page 182-183Micro Systèmes numéro 33 jui/aoû 1983 Page 184-185Micro Systèmes numéro 33 jui/aoû 1983 Page 186-187Micro Systèmes numéro 33 jui/aoû 1983 Page 188-189Micro Systèmes numéro 33 jui/aoû 1983 Page 190-191Micro Systèmes numéro 33 jui/aoû 1983 Page 192-193Micro Systèmes numéro 33 jui/aoû 1983 Page 194-195Micro Systèmes numéro 33 jui/aoû 1983 Page 196-197Micro Systèmes numéro 33 jui/aoû 1983 Page 198