SVM n°19 jui/aoû 1985
SVM n°19 jui/aoû 1985
  • Prix facial : 16 F

  • Parution : n°19 de jui/aoû 1985

  • Périodicité : mensuel

  • Editeur : Excelsior Publications

  • Format : (203 x 280) mm

  • Nombre de pages : 132

  • Taille du fichier PDF : 200 Mo

  • Dans ce numéro : la micro-informatique expliquée par Bill Gates, le pape du logiciel.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 68 - 69  |  Aller à la page   OK
Pages suivantes >
68 69
En plus de ces commandes, Mini-Logo accepte 9 variables différentes qui seront notées de vl à v9. vnXXX : initialise la variable vn (n valant entre 1 et 9 au choix) à la valeur XXX (entre 0 et 999) On peut également effectuer les quatre opérations classiques suivant cet exemple de programme : v145 : on initialise la variable vl à la valeur 45 +v120 : on ajoute 20 à vl. Par la suite, vl prendra donc la valeur 65. On procédera de même pour la soustraction, la multiplication et la division. Pour remettre toutes les variables à 0, on utilisera la commande cl. Le menu affiche les options suivantes : 1) PROG : pour introduire un programme en mode direct, et l'exécuter immédiatement. Vous pourrez y introduire des ordres classiques mais aussi des procédures sauvegardées sous l'op tion INST. 2) INST : pour écrire des procédures qui seront assimilées par le programme comme des sous-routines. Ces instructions ne sont pas directement exécutables. Au passage sous le mode INST, il vous faudra donner un nom à la procédure à créer. Celui-ci ne devra pas dépasser une longueur. de 4 caractères. Pour appeler une procédure dans un programme (option PROG du menu), il faudra taper # nom (dièse nom de la procédure). Par contre, une procédure ne peut pas contenir un autre nom de procédure. 3) LIST : donne le listing d'une procédure. Il faudra donner le nom de la procédure, sans dièse, pour voir s'afficher son contenu. 4) SAVE : permet la sauvegarde sur cassette des procédures utilisateur. 5) LOAD : permet le chargement des procédures sauvegardées sur cassette. 6) NOMS : donne la liste des procédures en mémoire. Au départ, le programme connaît 4 procédures : NEW est la procédure de réinitialisation, I-IEXA permet le tracé d'un hexagone, CARR celui d'un carré et TRIA celui d'un triangle. 7) COPY : copie d'écran sur imprimante. 8) S. EC : sauve le graphique sur cassette. 9)L.EC : charge en mémoire un graphique sur cassette. Voyons maintenant quelques exemples d'utilisation. Tout d'abord un programme simple : on sélectionne l'option PROG puis on valide par ENTER. Ensuite on tape chaque ligne que l'on validera elle aussi par ENTER re 36 : demande de répéter le programme 36 fois av 40 : fait avancer le curseur de 40 pas vers le haut td 90 : tourne le curseur sur la droite de 90 degrés av 40 td 90 av 40 td 90 av 40 td 90 td 10 : cette dernière instruction provoque un décalage du curseur. fin : sort de l'écriture du programme et provo-• 1• — 390 IF a$(1 TO 2)="ren THEN LET rKF1L a$(3 TO 5) : LET ff2-4 420 FOR s=1 TO re 4 ? ` FOR t=f•f2 TO LEN C-4 `TEP 5 45.4" ! LET be=e$(t TO t+4) 46e LET dete(1 TO 2) : LET e$=b$(3 TO 5) 461 IFei(1)='v" TIEN LET e$=STR$ (VAL ("v("+e$(2 TO 3)+")")) 462 IF d$="en" THEN LET iffle$ 465 7 d$="ef" ne CAS : PLOT 41,0 : MI 0,175 : D 214,0 : DPfltd 0,-175 : Cf.% -214,', : 47 ? IF diedi" ThEti LET eva. e$ 472 IF d$='+v" TiEN LET v(UHL e$(1))=v(UAL e$(1))+UPL e$(2 TO 3) 474 IF d$="-,)" THa LET v(UAL e$(1))=v(V($ e$(1))-111 e$(2 TO 3) 476, IF d$="*v" THEN LET v(URL e$(1))=0JAL e$(1))*UAL e$(2 TO 3) 479 IF d$="iv" THEN LET v(UAL e$(1))=)(WL e$(1))/9R e$(2 TO 3) 479 IF d$(1)="v" THEN LET v(UPIL d$(2))deL. e$ 420 IF d$="ce" TIEN LET x=19 : LET m=87 : GO TO 700 4E5 IF d$="cl." THE'DIM v(9) : GO TO 700 ee IF di="td" TFei LET d=d+1.ff, C : ce TO 700 509 IF d$="te THEN LET d=d-UAL e$ : GO TO 700 510 IF &tele" TIEN LET e=0 : GO TO 7ee 529 IF d$="pc" TIEN LET e=1 : GO TO 7e0 530 IF d$="av" TIEN LET a=SIN (eP1180)) : LET b=COS (d*(PI/180)) : PLOT INK i ; x›,J : LET x=x+(a*UAL el) : LET..1=m+(b*UAL e$) : IF x<255 AND x)41 ANDS(175 AND 03 THEN DRAW IKERSE NOT e ; INK i ; a*UK etbeff.. e$ 7," lel el s 710 PRINT AT 0,8 ; IFE 3 ; "pro:" 715 PRINT AT fl5+1,9 ; PRPER 2 ; IW 8 ; IREU e ; i$(f TO f+4) 723 t•El- f : NET r 73e FOR r40 TO 21 : PRINT ATn,e ; " " : NEXT n 749 GO TO 40 IF& PRINT AT 0,e ; "Menu:* 1010 PRINT AT 1,1 ; "Prcee 2,1 ; "Inst" ; AT 3,1eListueT 4,1eLoacre 5,1 ; "Save ; AT 6,1 ; "Noms" ; AT 7,1 ; "Copy" ; AT 9,1 ; "S.ec" ; AT 9,1eLec" in LET he1 1030 IF DILEV$="7" AND tel TIEN LET ha, a-1 1949 IF imwe."6" AND 113(9 TIEN LET ha=ha+1 1E50 IF INKEV$=OHR$ 13 THEN GO TO 1070 1e55 PRINT AT t-k),0 ; ")" 1@60 IF INKEY$<>"" THEN GO TO 1060 1865 IF litEY$="" THEN GO TO 1965 1867 PRINT AT ha, e ; " " 19e GO TO 1039 1079 FGR nre TO 9 : PRINT ATn,0 ; " " : FEXT n 1873 1F hia=1 : I-EN REMI 1076 IF ha=7 TFEN COPY : GO TG 1000 1077 IF ha=3 TIEN SR E "Ecranlce"SCREEN$ : GO TO 1000 1972 IF ha= 9 TIEN LORD ""SOREEld : GO TO 1080 IO IF 1-.3=3 ? FEN GO TO itea 1a32 IF haI, TIEN GO TO 30E10 1024 IF ha=4 TrEN GO TO 2003 1087 IF ha=5 ne GO TO 2500 I £1921 PRINT AT 0,e ; "Inst :'1037 LET x$="" 11e3 INPUT "None ; z$ : PRINT AT 0,0 ; IW. 1 ; PARER 5 ; T ; FLR9i 1 ; zt 1105LET x$=x$+" "+z$ 1110 FOR n=1 TO 21 : INPUT "Instructicn No" ; (n) ; ":" ; c$ 1120 IF c$="fin " TIEN GO TO 1200 1170 PRINT ATn,e ; D « 0 ; c$(1 TO 2) ; 1W 1 ; c$(3 TO 5) 1140 LET'x$= $+r$ 1150 NEl n 12* LET x$(1)=CRR$ (11*5) 1 210 FOR r40 TO 21 : PRINT ATn,0 ; " " : NEXT n 1215 LET p$=p$+x$ 1220 GO TO 1 » 15:1,1 PRINT AT 0,0 ; "List:" 1510 INPUT "Nom de l'instruction:" ; 1512 LET C=C+" " 1515 LET ere(1 TG 4) 1520 PRINT Al 0,0 ; "*" ; 9$ 1530 LET lect=1 1550 IF pelect+1 TO lect+4)0C THEN LET lect=lect-ODE (p$(1ect)) 156e IF lect:LEN p$ TIEN FOR n=0 TO 21 : PRINT ATn,8 ; " " : NEXT n : GO TO Me 1565 IF P$(1ect+1 TO lect+4)01$ THEN GO TO 150•/• 68 SCIENCE & VIE MICRO N°19 - JUILLET-AOÛT 1985
/• 1570 LET f$=Felect5 TU lect+CODE (F$(1ect))-1) 1580 PRINT AT 0,0 ; PAPER 5 ; 1NK ler ; FU& 1 ; 9$ 1590 FOR n=1 TU LEN f$-4 STEP 5 1600 PRINT AT n/5+1,0 ; fen TO n+4) 1610 NET n 1620 INPUT'Presser ENTER Four Heu" ; LIE c$ 1630 F0R n41. TO 21 : PRINT ATn,e ; " " : IE'T n 1640 GO TO leo 2030 PRINT AT 0,0 ; "Load:" ; 2010 LOAD " DATA ce) 2015 LET Fecl 2020 : GO TU 10 2500 PRINT AT 0,0 ; "Save:" 2510 01M cesLEN FI) 2520 LET c4=F$ 2530 SA3E "Load" DATA o$() 2540 PRINT RT 0,0 ; " " 2551 GO TO 1000 3e0 PRINT Fr 010 LET_. n =1 7020 LET le,:t=1 IF lect),-LEN F$ OR nuft>21 THEN GO TO 7100 3040 PRINT AT nui3O ; Iff 1 ; PIPER 5 ; "*" ; INK 0 ; PRPER 7 ; Felect+1 TU lect+4) 7050 LET nefFrgmfl : LET lect=lect+CODE (Felect))'0 30 TO 3030 7100 INPUT'Presser ENTER POU" Mem" ; LUE c$ 3110 FUR ; 143 TU 21 : PRINT ATn,e ;'" : WEe n 7120 CO TO 1000 que l'exécution. Ce programme dessinera un carré qui sera répété 36 fois de manière décalée pour représenter une superbe rosace. Pendant le déroulement du programme, on s'apercevra que chaque instruction en cours est affichée en vidéo inversée au moment où elle s'exécute. Un exemple maintenant de programme faisant appel à une procédure. Notons que ce programme donne le mème résultat que le vous pourrez grâce à ce programme obtenir des résultats superbes. Pour commencer, un peu de théorie. Le sol est donné par deux équations paramétriques XT=x(T) et YT=y(T) (définies lignes 10 et 20). La roue roule sans glissement sur le sol, celleci est repérée par ses coordonnées polaires QI et 0. On calcule pas à pas le tracé de la roue à l'aide des formules Q= y (T) eur 311er P-P4350- (;) t dx evec,_rawe.„ - 00 = to —y traçanl Pour utiliser le programme, il faut commencer par modifier les lignes 10 et 20 pour y introduire les équations de votre choix pour le sol. Attention à ne pas oublier les labels » X » (ligne 10) et » Y » (ligne 20) avant les équations : par exemple : 10 » X » XT=T et 20 » Y » YT=SIN(T). Le programme peut alors étre exécuté par RUN ou Def » B Il vous faut alors préciser un certain nombre de paramètres au programme : la partition ou nombre de points à tracer (doit être comprise entre 40 et 100), le nombre de roues à dessiner (2 à 5), la graduation maximale suivant l'axe des y qui donne l'échelle et enfin les extrémités de l'arc étudié. Le programme calcule et trace alors pas à pas le sol et les roues, après avoir rappelé les paramètres du tracé en en-tète précédent. On sélectionne PROG, puis on tape : v140 fin On resélectionne PROG, puis : re 36 # carr td 10 fin Ce programme est en deux parties car il faut faire une initialisation de variable avant d'utiliser la procédure CARR, et surtout avant l'ordre de répétition du programme. Pour réinitialiser l'éditeur, on introduira, sous PROG, le petit programme suivant : # NEW fin Pour obtenir un autre type de rosace, toujours sous PROG : v135 fin PROG re 36 # hexa td 10 Notez l'utilisation d'une procédure différente. Pour bien comprendre comment utiliser ces procédures, il est conseillé de LISTer une des procédures de base, IIEXA, CARR ou TRIA. Dernier point : en cas d'interruption du programme, il faut le faire redémarrer par LOTO 40 afin de ne pas détruire les diverses variables utilisées. Thierry ROCHEBOIS JE ROULE POUR VOUS 1985 ap. J.-C. : l'homo sapiens Christophe Masurel (dit l'Homme de Marcq-en-Barœul) réinvente la roue. Il était temps. POUR ROULER SUR une surface plane, la roue est encore ce qui a été inventé de mieux. Tant que le sol reste parfaitement horizontal, l'axe de la roue reste à la même hauteur et les passagers du véhicule qu'il supporte sont entraînés dans un mouvement rectiligne et confortable. Mais le moindre accident sur le sol provoque un cahot, un déplacement vertical du moyeu de la roue. Si vous connaissez par avance la nature du sol devant vous, il est possible de modifier la forme de la roue pour que celle-ci absorbe les fluctuations de hauteur du sol. Une illustration simple : la roue dentée qui mord dans une crémaillère. Le contour de la roue est parfaitement adapté à son sol », la crémaillère. Rien n'empéche d'imaginer des roues » plus folles, adaptées à des sols en tout genre. Si vous possédez un PC 1500 Sharp équipé d'une table traçante CE 150, PARTITION N = 60 Nb ROUES= 3 MAX YT =3 BORNES : 0.00 et 12.00 10 : XT = T 20 :'YIN= INT (T/2) + 1 : If Vu'i2 = INT (W/2) LETYT=T+ 3 -2 xW:GOT025 21 : YT=1+2 xW-T 25 : RETURN SCIENCE & VIE MICRO N°19 - JUILLET-AOÛT 1985 69



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 :


SVM numéro 19 jui/aoû 1985 Page 1SVM numéro 19 jui/aoû 1985 Page 2-3SVM numéro 19 jui/aoû 1985 Page 4-5SVM numéro 19 jui/aoû 1985 Page 6-7SVM numéro 19 jui/aoû 1985 Page 8-9SVM numéro 19 jui/aoû 1985 Page 10-11SVM numéro 19 jui/aoû 1985 Page 12-13SVM numéro 19 jui/aoû 1985 Page 14-15SVM numéro 19 jui/aoû 1985 Page 16-17SVM numéro 19 jui/aoû 1985 Page 18-19SVM numéro 19 jui/aoû 1985 Page 20-21SVM numéro 19 jui/aoû 1985 Page 22-23SVM numéro 19 jui/aoû 1985 Page 24-25SVM numéro 19 jui/aoû 1985 Page 26-27SVM numéro 19 jui/aoû 1985 Page 28-29SVM numéro 19 jui/aoû 1985 Page 30-31SVM numéro 19 jui/aoû 1985 Page 32-33SVM numéro 19 jui/aoû 1985 Page 34-35SVM numéro 19 jui/aoû 1985 Page 36-37SVM numéro 19 jui/aoû 1985 Page 38-39SVM numéro 19 jui/aoû 1985 Page 40-41SVM numéro 19 jui/aoû 1985 Page 42-43SVM numéro 19 jui/aoû 1985 Page 44-45SVM numéro 19 jui/aoû 1985 Page 46-47SVM numéro 19 jui/aoû 1985 Page 48-49SVM numéro 19 jui/aoû 1985 Page 50-51SVM numéro 19 jui/aoû 1985 Page 52-53SVM numéro 19 jui/aoû 1985 Page 54-55SVM numéro 19 jui/aoû 1985 Page 56-57SVM numéro 19 jui/aoû 1985 Page 58-59SVM numéro 19 jui/aoû 1985 Page 60-61SVM numéro 19 jui/aoû 1985 Page 62-63SVM numéro 19 jui/aoû 1985 Page 64-65SVM numéro 19 jui/aoû 1985 Page 66-67SVM numéro 19 jui/aoû 1985 Page 68-69SVM numéro 19 jui/aoû 1985 Page 70-71SVM numéro 19 jui/aoû 1985 Page 72-73SVM numéro 19 jui/aoû 1985 Page 74-75SVM numéro 19 jui/aoû 1985 Page 76-77SVM numéro 19 jui/aoû 1985 Page 78-79SVM numéro 19 jui/aoû 1985 Page 80-81SVM numéro 19 jui/aoû 1985 Page 82-83SVM numéro 19 jui/aoû 1985 Page 84-85SVM numéro 19 jui/aoû 1985 Page 86-87SVM numéro 19 jui/aoû 1985 Page 88-89SVM numéro 19 jui/aoû 1985 Page 90-91SVM numéro 19 jui/aoû 1985 Page 92-93SVM numéro 19 jui/aoû 1985 Page 94-95SVM numéro 19 jui/aoû 1985 Page 96-97SVM numéro 19 jui/aoû 1985 Page 98-99SVM numéro 19 jui/aoû 1985 Page 100-101SVM numéro 19 jui/aoû 1985 Page 102-103SVM numéro 19 jui/aoû 1985 Page 104-105SVM numéro 19 jui/aoû 1985 Page 106-107SVM numéro 19 jui/aoû 1985 Page 108-109SVM numéro 19 jui/aoû 1985 Page 110-111SVM numéro 19 jui/aoû 1985 Page 112-113SVM numéro 19 jui/aoû 1985 Page 114-115SVM numéro 19 jui/aoû 1985 Page 116-117SVM numéro 19 jui/aoû 1985 Page 118-119SVM numéro 19 jui/aoû 1985 Page 120-121SVM numéro 19 jui/aoû 1985 Page 122-123SVM numéro 19 jui/aoû 1985 Page 124-125SVM numéro 19 jui/aoû 1985 Page 126-127SVM numéro 19 jui/aoû 1985 Page 128-129SVM numéro 19 jui/aoû 1985 Page 130-131SVM numéro 19 jui/aoû 1985 Page 132