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 : 136 - 137  |  Aller à la page   OK
Pages suivantes >
136 137
cil (ECRRN NO 1. FONCTIONS TRIGONOMETRIQUES DECIMAL 1 0 VARIABLE TABLE 182 ALLOT < PrePare la table des cosinue.) 2 (liste des 91 valeurs contenues dans la table.) 3 0 572 01144 01715 n9286 02856 n3425 03993 04560 n5126 05690 4 06252 05813 07371 07997 08481 04032 09580 10126 10668 11207 5 11743 12275 122O3 13328 13848 14364 14876 15383 15886 16384 E. 16876 17364 17846 1A323 18794 19260 19720 20177. 20621 21062 21497 21925 22347 22762 23170 23F,71 23964 24351 2470 23101• 25465 25821 2616çl 96509 26841 27165 27481 27788 78e187 ? 8377 9 2R F.7.59 2F.:932 29196 2941 296q7 29934 7:01F72 717 ; 1381 311591 30791 10 3171982 31163 1:-I35 31498 31650 31794 31q27 32051 32165 3'3269 11 32364 32448 32523 32587 32649 32687 32722 32747 32762 32767 12. OUBLIE ("91 valeurs" ) 13 0 0r. remPlie la table eri testarit. 14 TABLE 182 + TABLE (la Pile et la somme...) 15 DO ROT DUE I E (ries valeur-,. entrees) 1 4 3 10 11 12 13 14 15 (ECRRN NO 2  : FONCTIONS TRIGONOMETRIQUES 0 D+'7 « STACK 2 +LOOP + 6765 + IF (la..:e.ommr- ee,t, eale.- a -67E5• ERREUR ['ANS L'EMTREE DES DONNEES " QUIT THEN OUBLIE FORGET OUBLIE utilisetinnunique de OUBLIE) COS theta costhetae:2767) 80 - ABS DUP 9.0 > ralrule la valeur r-t..) IF 180 - ABS 2* TABLE + 11> le signe du cosinus d'aPres.. EL'E 2* TABLE + MINUS la. Position de theta sur le.. THEN j cercle trigonometrique) SIN thete sinthete*32767) 180 - DUP et< calcule la valeur et..) IF 90 + ABS 2* TABLE + I ? le signe de sinus d'aPres..) ELSE 90 - ABS 2* TABLE + 1T+ la Position de theta sur MINUS rerclr- trigorometrique) THEN ri (ECRRN NO 3 FONCTIONS TRIGONOMETRIQUES...SUITE r'36nMOD 2 BEGIN DUP 0< WHILE 360 + REF'EAT 4 BEGIN DUP 359 > WHILE 5 360 - REPERT thete) rajUstr. la veleur de theta..) si celle-ci est troP Petite.. hu trre 51rande) n (ECRAN NO 4 LA TORTUE ET SES 1 90 VAIABLE R THETA 2 0 COSTT 32767 VARIABLE SINTT 4 1 VARIABLE FLAGC 5 115 VARIABLE „TORT 6 115 VARIABLE'î'TORT 7 XCOOR ; <,TORT ! COMMANDES) (variables de la tortue chacune est Pre,-edee der. : valeur initiale Fig. I. - Listing complet du programme Forth  : un ensemble de huit écrans. 136 — MICRO-SYSTEMES Juillet-Août 1983
8 lo 12 13 14 15 YcOnR YTORT ! j Wr:OOR YCnOR xrnoR METLECAP 360M0D DUP THETA ! Di P COS [:CI =PTT ! SIN SINTT ! j GAUCHE THETA e METLECAP DRnITE MINUS GAUCHE (m) (X m) (theta) (range theta) < rancie. costhete  :  : (rarige sintheta) (theta) < theta) J. 4 r 9 10 11 12 13 14 15 ECRAN NO 5 LA TORTUE ET SES AVANCE XTOF:T YTORT e DFROM DUF'COSTT e 327E7 */<:TORT + !  : TORT rP SWAP SINTT e 327E7 */YTORT + ! YTORT e FU:GO e IF DTO ELSE 2DROP THEN RECULE MINUS AVANCE ORIGINE 115 115 WCOOR 90 METLECAP INITT CL ; ORIGINE LCRAYON O FLANC: ! ECRAYON 1 FLANC: ! GOMME O PEN OMMANDU suITE'n) Place le cure.eur C alcule n*costheta) range le nouveau X calcule n*sintheta) range le nouveau 1J trace le vecteur si EFLAGC)=1 sinon enlevex,m de la. Pilei.) ) ) O ECRRN HO 6  : LA TORTUE ET SES COMMANDES...SUITE 1rnrIRX XTORT e ( X) nnnRy yTnRT e 3• fulnRXYnnORX COORY 4 CAF'THETA e) thizta) O (ECRAN HO 7 APPLICATIONS LOGO) 1 50 VARIABLE FOIS 2 1 VARIABLE INC (utiliee Par SPI et IPS) 3 POLY (rote angle ) 4 SWAP FOIS r2 0 DO G 2DUP AVANCE DROITE LOOP 2DROP 7 CARRE 8 SPI 90 POLY (rotP) (rote anci'le inc) 9 INC ! SWAP FOIS P O DO 10 2DUP AVANCE DROITE INC + 11 LOOP 2DROP j 12 IPS 13 INC ! FOIS lP 0 DO (cote angle inc) 14 OVER AVANCE DUP DROITE 15 INC ru + LOOP 2DROP PROGRAMMES Fig. 1(suite) Juillet-Août 1983 MICRO-SYSTEMES — 137



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