SVM n°18 juin 1985
SVM n°18 juin 1985
  • Prix facial : 16 F

  • Parution : n°18 de juin 1985

  • Périodicité : mensuel

  • Editeur : Excelsior Publications

  • Format : (203 x 280) mm

  • Nombre de pages : 188

  • Taille du fichier PDF : 195 Mo

  • Dans ce numéro : l'amour par Minitel / l'Amstrad CPC 664 enfin un ordinateur à prix réaliste.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 96 - 97  |  Aller à la page   OK
Pages suivantes >
96 97
part des Basic commencent leurs tableaux à l'index 1 ! Vous n'avez toujours pas trouvé la solution de notre exemple ? Patientez encore un peu, avec l'organisation du programme. Le programme principal est aux lignes 100- 210. Il appelle les sous-programmes suivants : - Entrée des données du problème à résoudre : ligne 1000. - Affichage des données du problème : ligne 1500. - Calcul du nombre de possibilités pour un mot : ligne 1800.• 2520 NL=F:IN(NL)=F:NP=F 2525 IFX(J)=VTHENGOSUB 2900:GOT02600 2530 GOSUB 2800 : REM MAJ INDICES 2540 IF CP=F THEN 2570 - Recherche de mots n'ayant aucune lettre bien placée : ligne 2000. - Création d'un tableau de toutes les possibilités pour un mot : ligne 2500. - Résolution du problème posé : ligne 3000. Les variables utilisées par le programme sont : - N : nombre de mots - L : longueur des mots - M$ (N,L) : tableau de N mots de L lettres. Ceci permet d'accéder à chaque lettre d'un mot donné. - R$ (L) : initialisé par le caractère ", contient le résultat de l'essai de chaque possibilité. - X(N) : contient le nombre de lettres bien placées par mot. - X : contient le nombre maximum de lettres bien placées dans un mot. C'est donc le plus grand nombre trouvé dans X (N). - IS(N) : indique le nombre des possibilités de choix par mot. - RIS (N,L) : mémorise le résultat de chaque essai pour un mot. Et la solution de notre petit problème ? Il s'agissait du mot MAGNAT. Votre Commodore aurait trouvé depuis longtemps, lui. Alors, laissez-le faire. ChrieianARNAUD 3162 NEXT 3165 IFRJ=FTHENPRINT" OK"NM=NM+V:PRINT 3170 PRINT 3180 NI=NI-V:GOSUB4600:00T03040 2550 NL=X(J)-V 4000 REM * VERIFIE SI POSSIBLE * 2560 IFIN(NL)X(NI)THENCP=F:RETURN 2750 RETURN 4090 CP=V:RETURN 2800 REM * MAJ INDICES * 4500 REM * MAJ RESULTRT * 2810 CP=V 4505 FORI=FTOL-V:R1S(NI,D="0":NEXT 2820 FOR I=NL+V TO X(J)-V 451n FOR 1=F TO WNI)-V 2830 IN(I)=IN(I-V)+V 4512 VI=FVNLI(ND:I) 2840 IF IN(I)=LTHENCP=F 4515 IF RS(VI)="."THENR1$(NI/VI)="1" 2850 NEXT 4520 RS(VI)=MS(NIJVI) 2860 RETURN 4530 NEXT 290n REM * CALCUL INDICE POUR POSS=1 * 4532 PRINT"7/"REM CURSEUR MONTE 2910 FOR I=F TO L-V 4535 FORI=FTOL-V:PRINTRS(I)NEXT 2920 PWJ0I,F)=I 4536 PRINT 2930 NEXT 4540 RETURN 2940 RETURN 4600 REM * EFFACE DERNIER RESULTAT * 3000 REM * RESOLUTION * 4605 IFNI(FTHENRETURN 3010 DIMI(N) 4610 FOR I=F TO X(NI)-V 3020 FORI=FTON-V:I(I)=-1:NEXT 4615 VI=K(NI,I(NI>JI) 3030 NI=F 4620 IF R1e(NI:VI)="1" THEN RS(VI)="." 3040 I(NI)=I(NI)+V 4630 NEXT 3050 IFI(NI)X(j)THENCP=F:J=N+V:00T05100 3145 PRINT"]"/:REM PRINT = CURSEUR 5095 CP=V MONTANT D'UNE LIGNE 3147 RJ=F 3160 FnRI=FTOL-V:PRINTRCI}IFR$:(I)="." THENRJ=V 5100 5110 RETURN NEXT J PEADY. 96 SCIENCE 8t VIE MICRO N°18 - JUIN 1985
NAVETTE SPATIALE EMBARQUEZ ! Le 17 juin, la NASA lancera la dixseptième navette spatiale. A son bord, un cosmonaute français, Patrick Baudry. L'événement vaut d'être observé de près. C'est pourquoi nous vous proposons ici un programme qui vous permettra de suivre la trajectoire de la navette spatiale comme si vous y étiez. Ou plutôt, comme si vous étiez à la NASA... 10 TEXT : HOME NAVE'TTE SPATIALE 20 INPUT "ALTITUDE EN'M " ; AL : PRINT 30 PRINT "INCLINAISON DE L'ORBITE" : INPUT "SUR L'EQUATEUR (EN DEGRES) " ; ZA : ZA = 3.14159 * (ZA/180) : PRINT 35 PRINT "SENS DE ROTATION " : PRINT "+1=MEME SENS QUE LA TERRE" : INPUT "-1=SENS CONTRAIRE " ; SR : PRINT 40 INPUT "LATITUDE DE DEPART (EN DEGRES) " ; LI:LI = 3.14159 t (LI/180) : INPUT "LATITUDE NORD OU SUD (N/S) " ; R$ : PRINT : IF R$ < > "N" THEN LI = - LI 5C'INPUT "LONGITUDE DE DEPART (EN DEGRES) " ; 61 : GI = 3.14159 t (GI/180) : INPUT "(LONGITUDE EST OU OUEST (E/0) " ; R$ : PRINT : IF R$ < > "E" THEN GI = - GI 60 INPUT "JOUR DE DEPART (QUANTIEME) " ; JD 70 INPUT "HEURE DE DEPART (HEURE,MINUTE) " ; HD,MD 75 T = 1440 t JD + 60 t HD + MD 80 INPUT "INTERVALLE ENTRE DEUX CALCULS (MN) " ; DT : PRINT 85 PRINT "PARAMETRE D'ORBITE " : PRINT "+1=MONTANTE" : INPUT "-1=DESCENDANTE " ; PO : PRINT 90 TF = 0:LF = LI Instrucions graphiques spécifiques Apple//100 VTAB 20 : HGR 110 HCOLOR= 3 : HPLOT 139,0 TO 139,159 : HPLOT 0,79 TO 279,79 : HPLOT 142,39 160 LI = LF : GOSUB 8000 180 IF GF < 3.14159 THEN 6F = GF + 3.14159 : GOTO 195 190 GF = GF - 3.14159 XI et YI sont les coordonnées écran du point à dessiner (spécifique Apple) 195 YI = 160 t (ZF/3.14159) 200 XI = 279 * (GF/6.2832) 210 HPLOT XI,YI 220 TF = TF + DT : GOTO 160 Sous programme d'affichage de la position SCIENCE & VIE MICRO N°18 - JUIN 1985 FOIS LE LANCEMENT TERMINÉ, la navette spatiale devient un satellite de notre vieille Terre et gravite luNE selon une orbite sensiblement circulaire à quelques centaines de kilomètres audessus de nos têtes. La position exacte de Discovery• ou de'Columbia. est connue avec précision par la NASA grâce à ses ordinateurs, mais vous pouvez également savoir quelle région de la planète survole la navette à un instant donné, à l'aide du programme que nous vous proposons. Ce programme calcule l'équation de la trajectoire d'un satel- lite sur un planisphère et la dessine, en fonction des paramètres de l'orbite que vous lui fournirez. Ceux-ci ne sont pas fixés avant le jour du lancement. Ce jour-là, il vous suffira de téléphoner au (1) 633.66.20. On vous les communiquera au fur et à mesure de l'évolution de la navette. Ces paramètres sont au nombre de sept : altitude en kilomètres, latitude, longitude et temps initial, inclinaison de l'orbite sur l'équateur (en degrés), sens de rotation (+1 : même sens que la Terre, -1 : sens contraire) et enfin un paramètre un peu mys- 2000 TT = T + TF:JP = INT (TT/1440) : TT = TT - JP t 1440:HP = INT (TT/60) : MP = TT - HP 60 2010 VTAB 21 : PRINT "LE " ; JP ; " A " ; HP ; " H " ; MP 2020 PL = LF t 180/3.14159:R$ = "N" : IF PL < 0 THEN PL = - PL:R$ = "S" 2030 PRINT "LATITUDE : " ; INT (PL) ; " DEG " ; R$ ; " 2040 GF = GF - 6.2832 t INT (GF/6.2832) : R$ = "E":PG = GF * 180/3.14159 : IF PG > 180 THEN PG = 360 - PG:R$ = "0" 2050 PRINT "LONGITUDE : " ; INT (PG) ; " DEG " ; R$ ; " 2055 FOR I = 1 TO 200 : NEXT I 2060 RETURN Sous programme de calcul de la position 8000 IF FT = 0 THEN 9000 8050 ZF = 1.5708 - LI 8100 ZG = COS (ZT t (TF - ZU)) 8110 ZG = ZG/(COS(ZA) t SQR(1 + Z6 t ZG t TAN(ZA) t TAN(ZA))) 8120 ZG = - ATN(ZG/SQR (- ZG t ZG + 1)) + 1.5708 8122 IF (SIN(ZT t (TF - ZU)) - COS(ZF) * SIN(ZA))/(SIN (ZF) t COS (ZA)) < 0 THEN Z6 = 6.2832 - ZG 8123 ZG = ZG + ZZ 8130 GF = SR t ZG - (ZO * TF) 8140 ZF = 1/(TAN (ZA) t SIN (ZG - ZZ)) 8150 ZF = ATN (ZF) : IF ZF < 0 THEN ZF = ZF + 3.14159 8160 LF = 1.5708 - ZF 8165 GOSUB 2000 8170 RETURN Sous programme de calcul des paramètres de la trajectoire 9000 FT = 1 9010 ZO = 2 t 3.14159/(60 t 24) : REM ZO=Vitesse de rotation de la terre enrds/mn 9020 ZT = 60 t SQR(3.98866E14/(6.38E6 + AL t 1000)'3) : REM AL=Altitude en km - ZT=Vitesse de rotation absolue du satellite enrds/mn 9025 ZF = 1.57079 - LI : REM ZF=Calatitude 9030 ZZ = 1/(TAN(ZA) * TAN(ZF)) 9040 ZZ = ATN(ZZ/SOR (- ZZ t ZZ + 1)) 9045 IF PO = - 1 THEN ZZ = 3.14159 - ZZ 9050 ZZ = GI - ZZ• 9060 REM ZZ=Longitude absolue de passage a l'equateur 9070 ZU = SIN(ZF) t COS(GI - ZZ) 9080 ZU = - ATN(ZU/SOR (- ZU t ZU + 1)) + 1.5708 9090 ZU = TI - (ZU ZT) 9100 REM ZU=Origine des temps 9110 GOTO 8100 kplo\ei (i)u- _e "Cran 97



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