Micro Systèmes n°23 mai/jun 1982
Micro Systèmes n°23 mai/jun 1982
  • Prix facial : 18 F

  • Parution : n°23 de mai/jun 1982

  • Périodicité : mensuel

  • Editeur : Société Parisienne d'Edition

  • Format : (213 x 271) mm

  • Nombre de pages : 246

  • Taille du fichier PDF : 185 Mo

  • Dans ce numéro : Synthé... une nouvelle machine qui parle et qui chante.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 88 - 89  |  Aller à la page   OK
Pages suivantes >
88 89
La fonction à visualiser est introduite en mode éditeur. Basic et mathématiques 1 ****************************************************************** 2 PROGRAMME DE TRACE DE COURBES 3 AUTEURS O.IiEU, A.MAYER, J-C.GAUDIN 4 ET INFORMATICLUB 5 ****************************************************************** 10 CLS:PRINT:PRINT:PRINTTAB(20) " PROGRAMME DE TRACE DE COURBES " 20 GOSUB 1000 60'MENU  : LES APPELS DE SOUS ROUTINES SONT FICTIFS 70 CLS:PRINT:PRINTTAB(26) "** MENU **":PRINT:PRINT 80 PRINTTAB(15) "1/CARTESIENNES IMPLICITES" 90 PRINTTAB(15) "2./CARTÉSIENNES PARAMETRIQUES" 100 PRINTTAB(15) "3/POLAIRES IMPLICITES" 110 PRINTTAB(15) "4/POLAIRES PARAMETRIQUES" 120 PRINT:INPUT "QU'AVEZ VOUS CHOISI  : " ; CH% 130 IF CH%<1 OR CH%>4 TEEN 70 140 ON CH% GOSUE 200,300,400,500 150 GOTC 70 200'CARTESIENNES IMPLICITES 205 CLS:PRINT 206 PRINTTAb(1C) " ETUDE DE COURBES EN CARTESIEN IMPLICITE " 210 GCSUE 1000:PRINT:PRINT 215 PRINT:PRINT " ATTENTION VOUS PASSEZ EN MODE EDITEUR " 216 PRINT " ÉCRIVEZ VOTRE FONCTION Y=F(X), PUIS TAPEZ RUN 220" 217 EDIT 245 220 GOSUB 6C0 225 GOSUB 650 230 X=-63/A. 235 X=X+1 245 Y=X*X/2C 250 X1=X*A:Y=Y*/\260 X2=X1+63:Y1=-Y/2+23 270 IF X2>127 CR Y1<0 OR Y1>47 TIIEN 235 280 SET (X2,Y1):GCTO 235 300'CARTESIENNES PARAbETRIQUES 305 CLS:PRINT 306 PRINTTAB(10) "ETUDE DE COURBE EN CARTESIEN PARAMETRIQUE" 31C GOSUB 1000:PRINT:PRINT 315 PPINT:PRINT " ATTENTION VOUS PASSEZ EN MODE EDITEUR " 316 PRINT " ECRIVEZ VOTRE FONCTION X=F(E) (E PARAMETRE) " 317 PRINT " PUIS TAPEZ RUN 320 ":EDIT 335 32C PRINT:PRINT " LT MAINTENANT ECRIVEZ VOTRE FONCTION " 321 PRINT " Y=G(E), PUIS TAPEZ RUN 325":EDIT 340 325 GCSUE 6CC:GOSUB 65C 33C X=-63//:E=0 332 E=F+1 335 X=8*SIN(L) 340 Y=2*COS(F) 345 X1=X*A:Y=Y*1\350 X2=X1+63:Y1=-Y/2+23 360 II X2>127 CR X2<0 OR Y1>47 TIIEN 332 370 SET (X2,Y1) 380 CUTC 332 Fig. 5. - Listing du programme pour l'ordinateur TRS 80. 88 - MICRO-SYSTEMES Mai-Juin 1982
Le tracé des courbes mathématiques Basic et mathématiques surprise. Les courbes sont d'abord transformées en représentation cartésienne à la ligne 345, avant d'être visualisées en X-Y. La variable libre, l'angle T est incrémenté à la ligne 428.• Lignes 500-580  : routine de vi- sualisation des courbes polaires paramétriques. Le paramètre, ici la variable H, est incrémenté à la ligne 530. Puis une conversion polaire-cartésien est réalisée avant l'affichage de la courbe proprement dit.• Quelques routines utilitaires  : Lignes 600-620 sous-routine d'agrandissement qui permet d'obtenir une meilleure visualisation. La variable A, qui fait office de coefficient d'agrandissement, ne peut être nulle. 400'POLAIRES IMPLICITES 405 CLS:PRINT:PRINT TAB(10) " ETUDES DE COURBES EN POLAIRES " ; 406 PRINT " IMPLICITE" 410 GOSUB 1000:PRINT:PRINT 415 PRINT:PRINT " ATTENTION VOUS PASSEZ EN MODE EDITEUR " 416 PRINT " ECRIVEZ VOTRE FONCTION R=F(T)" 417 PRINT " R:RAYON T:ANGLE, PUIS TAPEZ  : RUN 420 ":EDIT 430 420 GOSUE 600:COSUB 650 428 T=T+.1 430 R=5*T 435 X=R*COS(T):Y=R*SIN(T) 44C X1=X*A:Y=Y*A 450 X2=X1+63:Y1=—Y/2+23 460 IE X2>127 OR X2<0 OR Y1<0 OR Y1>47 THEN 428 470 SET (X2,Y1):GOTO 428 500 POLAIRES PARAMETRIQUES 505 CLS:PRINT 506 PRINT TAb(10) " ETUDES DE COURBES EN POLAIRE PARAMETRIQUE" 510 GOSUB 1000:PRINT:PRINT 515 PRINT:PRINT "ATTENTION VOUS PASSEZ EN MODE EDITEUR  : " 516 PRINT "ECRIVEZ VOTRE FONCTION R=F(II) R:RAYCN H:PARAMETRE 517 PRINT " PUIS TAPEZ  : RUN 520 ":EDIT 535 520 PRINT:PRINT " ET MAINTENANT ECRIVEZ T=G(H) T:ANGLE" 521 PRINT " H:PARAMETRE, PUIS FAITES  : RUN 525":ECIT 540 525 GOSUB 600:GOSUB 650 530 H=H+.1 535 R=5*COS(H) 540 T=8*H 545 X=R*COS(T):Y=R*SIN(T) 550 X1=X*A:Y=Y*A 560 X2=X1+63:Y1=—Y/2+23 570 IF X2>127 OR X2<0 OR Y1>47 OR Y1



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 23 mai/jun 1982 Page 1Micro Systèmes numéro 23 mai/jun 1982 Page 2-3Micro Systèmes numéro 23 mai/jun 1982 Page 4-5Micro Systèmes numéro 23 mai/jun 1982 Page 6-7Micro Systèmes numéro 23 mai/jun 1982 Page 8-9Micro Systèmes numéro 23 mai/jun 1982 Page 10-11Micro Systèmes numéro 23 mai/jun 1982 Page 12-13Micro Systèmes numéro 23 mai/jun 1982 Page 14-15Micro Systèmes numéro 23 mai/jun 1982 Page 16-17Micro Systèmes numéro 23 mai/jun 1982 Page 18-19Micro Systèmes numéro 23 mai/jun 1982 Page 20-21Micro Systèmes numéro 23 mai/jun 1982 Page 22-23Micro Systèmes numéro 23 mai/jun 1982 Page 24-25Micro Systèmes numéro 23 mai/jun 1982 Page 26-27Micro Systèmes numéro 23 mai/jun 1982 Page 28-29Micro Systèmes numéro 23 mai/jun 1982 Page 30-31Micro Systèmes numéro 23 mai/jun 1982 Page 32-33Micro Systèmes numéro 23 mai/jun 1982 Page 34-35Micro Systèmes numéro 23 mai/jun 1982 Page 36-37Micro Systèmes numéro 23 mai/jun 1982 Page 38-39Micro Systèmes numéro 23 mai/jun 1982 Page 40-41Micro Systèmes numéro 23 mai/jun 1982 Page 42-43Micro Systèmes numéro 23 mai/jun 1982 Page 44-45Micro Systèmes numéro 23 mai/jun 1982 Page 46-47Micro Systèmes numéro 23 mai/jun 1982 Page 48-49Micro Systèmes numéro 23 mai/jun 1982 Page 50-51Micro Systèmes numéro 23 mai/jun 1982 Page 52-53Micro Systèmes numéro 23 mai/jun 1982 Page 54-55Micro Systèmes numéro 23 mai/jun 1982 Page 56-57Micro Systèmes numéro 23 mai/jun 1982 Page 58-59Micro Systèmes numéro 23 mai/jun 1982 Page 60-61Micro Systèmes numéro 23 mai/jun 1982 Page 62-63Micro Systèmes numéro 23 mai/jun 1982 Page 64-65Micro Systèmes numéro 23 mai/jun 1982 Page 66-67Micro Systèmes numéro 23 mai/jun 1982 Page 68-69Micro Systèmes numéro 23 mai/jun 1982 Page 70-71Micro Systèmes numéro 23 mai/jun 1982 Page 72-73Micro Systèmes numéro 23 mai/jun 1982 Page 74-75Micro Systèmes numéro 23 mai/jun 1982 Page 76-77Micro Systèmes numéro 23 mai/jun 1982 Page 78-79Micro Systèmes numéro 23 mai/jun 1982 Page 80-81Micro Systèmes numéro 23 mai/jun 1982 Page 82-83Micro Systèmes numéro 23 mai/jun 1982 Page 84-85Micro Systèmes numéro 23 mai/jun 1982 Page 86-87Micro Systèmes numéro 23 mai/jun 1982 Page 88-89Micro Systèmes numéro 23 mai/jun 1982 Page 90-91Micro Systèmes numéro 23 mai/jun 1982 Page 92-93Micro Systèmes numéro 23 mai/jun 1982 Page 94-95Micro Systèmes numéro 23 mai/jun 1982 Page 96-97Micro Systèmes numéro 23 mai/jun 1982 Page 98-99Micro Systèmes numéro 23 mai/jun 1982 Page 100-101Micro Systèmes numéro 23 mai/jun 1982 Page 102-103Micro Systèmes numéro 23 mai/jun 1982 Page 104-105Micro Systèmes numéro 23 mai/jun 1982 Page 106-107Micro Systèmes numéro 23 mai/jun 1982 Page 108-109Micro Systèmes numéro 23 mai/jun 1982 Page 110-111Micro Systèmes numéro 23 mai/jun 1982 Page 112-113Micro Systèmes numéro 23 mai/jun 1982 Page 114-115Micro Systèmes numéro 23 mai/jun 1982 Page 116-117Micro Systèmes numéro 23 mai/jun 1982 Page 118-119Micro Systèmes numéro 23 mai/jun 1982 Page 120-121Micro Systèmes numéro 23 mai/jun 1982 Page 122-123Micro Systèmes numéro 23 mai/jun 1982 Page 124-125Micro Systèmes numéro 23 mai/jun 1982 Page 126-127Micro Systèmes numéro 23 mai/jun 1982 Page 128-129Micro Systèmes numéro 23 mai/jun 1982 Page 130-131Micro Systèmes numéro 23 mai/jun 1982 Page 132-133Micro Systèmes numéro 23 mai/jun 1982 Page 134-135Micro Systèmes numéro 23 mai/jun 1982 Page 136-137Micro Systèmes numéro 23 mai/jun 1982 Page 138-139Micro Systèmes numéro 23 mai/jun 1982 Page 140-141Micro Systèmes numéro 23 mai/jun 1982 Page 142-143Micro Systèmes numéro 23 mai/jun 1982 Page 144-145Micro Systèmes numéro 23 mai/jun 1982 Page 146-147Micro Systèmes numéro 23 mai/jun 1982 Page 148-149Micro Systèmes numéro 23 mai/jun 1982 Page 150-151Micro Systèmes numéro 23 mai/jun 1982 Page 152-153Micro Systèmes numéro 23 mai/jun 1982 Page 154-155Micro Systèmes numéro 23 mai/jun 1982 Page 156-157Micro Systèmes numéro 23 mai/jun 1982 Page 158-159Micro Systèmes numéro 23 mai/jun 1982 Page 160-161Micro Systèmes numéro 23 mai/jun 1982 Page 162-163Micro Systèmes numéro 23 mai/jun 1982 Page 164-165Micro Systèmes numéro 23 mai/jun 1982 Page 166-167Micro Systèmes numéro 23 mai/jun 1982 Page 168-169Micro Systèmes numéro 23 mai/jun 1982 Page 170-171Micro Systèmes numéro 23 mai/jun 1982 Page 172-173Micro Systèmes numéro 23 mai/jun 1982 Page 174-175Micro Systèmes numéro 23 mai/jun 1982 Page 176-177Micro Systèmes numéro 23 mai/jun 1982 Page 178-179Micro Systèmes numéro 23 mai/jun 1982 Page 180-181Micro Systèmes numéro 23 mai/jun 1982 Page 182-183Micro Systèmes numéro 23 mai/jun 1982 Page 184-185Micro Systèmes numéro 23 mai/jun 1982 Page 186-187Micro Systèmes numéro 23 mai/jun 1982 Page 188-189Micro Systèmes numéro 23 mai/jun 1982 Page 190-191Micro Systèmes numéro 23 mai/jun 1982 Page 192-193Micro Systèmes numéro 23 mai/jun 1982 Page 194-195Micro Systèmes numéro 23 mai/jun 1982 Page 196-197Micro Systèmes numéro 23 mai/jun 1982 Page 198-199Micro Systèmes numéro 23 mai/jun 1982 Page 200-201Micro Systèmes numéro 23 mai/jun 1982 Page 202-203Micro Systèmes numéro 23 mai/jun 1982 Page 204-205Micro Systèmes numéro 23 mai/jun 1982 Page 206-207Micro Systèmes numéro 23 mai/jun 1982 Page 208-209Micro Systèmes numéro 23 mai/jun 1982 Page 210-211Micro Systèmes numéro 23 mai/jun 1982 Page 212-213Micro Systèmes numéro 23 mai/jun 1982 Page 214-215Micro Systèmes numéro 23 mai/jun 1982 Page 216-217Micro Systèmes numéro 23 mai/jun 1982 Page 218-219Micro Systèmes numéro 23 mai/jun 1982 Page 220-221Micro Systèmes numéro 23 mai/jun 1982 Page 222-223Micro Systèmes numéro 23 mai/jun 1982 Page 224-225Micro Systèmes numéro 23 mai/jun 1982 Page 226-227Micro Systèmes numéro 23 mai/jun 1982 Page 228-229Micro Systèmes numéro 23 mai/jun 1982 Page 230-231Micro Systèmes numéro 23 mai/jun 1982 Page 232-233Micro Systèmes numéro 23 mai/jun 1982 Page 234-235Micro Systèmes numéro 23 mai/jun 1982 Page 236-237Micro Systèmes numéro 23 mai/jun 1982 Page 238-239Micro Systèmes numéro 23 mai/jun 1982 Page 240-241Micro Systèmes numéro 23 mai/jun 1982 Page 242-243Micro Systèmes numéro 23 mai/jun 1982 Page 244-245Micro Systèmes numéro 23 mai/jun 1982 Page 246