SVM n°24 janvier 1986
SVM n°24 janvier 1986
  • Prix facial : 18 F

  • Parution : n°24 de janvier 1986

  • Périodicité : mensuel

  • Editeur : Excelsior Publications

  • Format : (203 x 280) mm

  • Nombre de pages : 132

  • Taille du fichier PDF : 149 Mo

  • Dans ce numéro : spécial Amiga de Commodore.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 68 - 69  |  Aller à la page   OK
Pages suivantes >
68 69
tableaux et vous obligerait à recharger le pro- pro elle ou sur le terrain de l'adversaire. l'adversafre. Le pro- pro avec un autre Basic. On peut par exemple gramme. On donne alors à l'ordinateur lordinateur les gramme, en effet, sait. que, statistiquement, tester la valeur de l'élément du tableau, ou résultats de la dernière journée du champion champion- sur 100 parties jouées à domicile, une équipe encore utiliser des opérateurs logiques nat, sous la forme 1, N ou 2 pour chaque moyenne. en gagne 55, en perd 20 et fait 25 comme AND ou OR. match. Deuxième phase des opérations : l'or- lor matchs nuls. Il li rapproche de ces pourcenta- pourcenta dinateur affiche les vingt équipes dans lordre l'ordre ges moyens ceux qui sont propres aux équi- équi Les tableaux alphabétique avec leur classement (noté Clst) pes étudiées, et qu'il a calculés à partir des et leur forme du moment (Fm) calculée sui- sui statistiques de.• l'Équipe !'Équipe.• que vous lui avez Deux tableaux contiennent une grande partie des données sur lesquelles travaille le pro- pro faut alors indiquer les matchs de la journée à de l'équipe et les circonstances particulières. gramme. Le premier, T$, mémorise le nom venir en usant des manoeuvres manœuvres suivantes : au À la fin, chaque rencontre possède un chiffre des vingt équipes de division 1 par ordre al- al départ, le curseur indique léquipe l'équipe en haut du de probabilités propre. phabétique. Le second, S, est un tableau nu- nu tableau (Auxerre, cette saison). Si cette Pour déterminer les cases à cocher sur la mélique mérique de vingt rangées de seize colonnes. équipe joue à l'extérieur, il faut taper sur la grille de jeu du Loto sportif, le programme se Chaque rangée correspond à une équipe, et touche BREAK/SPACE. base sur les pourcentages moyens de victoire, pour chacune d'elles, il existe seize données Le curseur montre alors l'équipe suivante. match nul ou défaite à domicile. Ainsi les numériques la caractérisant. caractérisant, qui sont: : Si Auxerre est l'équipe recevante, on doit dé- dé deux nombres les plus faibles impliqueront - le nombre de points de l'équipe depuis le par vant les résultats des trois derniers matchs. Il li fournies. Il li met aussi dans la balance la forme lie placer le curseur par l'intermédiaire des tou- tou un pronostic de victoire de l'équipe visiteuse début du championnat (une victoire vaut 2 ches 6 et 7 (vers le haut ou vers le bas). (2), les deux ou trois suivants par ordre crois- crois points, un match nul 1, et une défaite 0) ; Lorsque ce curseur est arrivé sur l'équipe se sant un match nul (N), et les autres une vic- vie - le classement de l'équipe dans le cham- cham déplacant à Auxerre, l'appui sur la touche toire à domicile (1). Certains matchs obtien- pionnat ; ; BREAK provoque l'inscription de l'équipe visi- visi nent parfois une note qui les rapproche - le nombre de matchs joués à domicile ; teuse en face du nom d'Auxerre. Ensuite, on suffisamment d'une autre catégorie que celle - le nombre de matchs gagnés à domicile ; répétera ces opérations pour chacune des qui devrait en pratique être la leur. Le pro- pro - le nombre de matchs joués à lextérieur l'extérieur ; équipes. Puis, la machine vous demande, le gramme décide alors de cumuler les chances - le nombre de matchs gagnés à lextérieur l'extérieur ; cas échéant, de préciser les circonstances en établissant un pronostic double. - le dernier résultat de léquipe l'équipe ; particulières qui peuvent affecter une équipe. - l'avant-dernier résultat de l'équipe ; Dans cette catégorie, on range des événe- événe Adaptations - l'antépénultième résultat de l'équipe ; ments tels qu'un changement d'entraîneur, - la forme de l'équipe est déterminée par un avec le fameux• choc psychologique• si sou- sou Comme quasiment tout programme écrit calcul sur les trois derniers résultats ; vent recherché, ou une cascade de blessures sur un ordinateur de la la famille Sinclair, celui- - les circonstances particulières (notées cp chez des joueurs importants affaiblissant le ci est assez difficile à adapter à un autre ordi- ordi dans le programme) facultatives ; potentiel de léquipe. l'équipe.. nateur. Cependant, beaucoup de machines - le numéro de l'équipe visiteuse ; ; Pour chaque équipe, on indique alors l'influence de ces événements exceptionnels. mettant de construire un petit fichier qui lextérieur l'extérieur ; Une influence positive sera notée 1 pour n'oblige pas à sauvegarder le programme - la probabilité de victoire (notée pb) de l'équipe concernée. Une influence inHuence négative pour conserver les données. Quelques autres léquipe l'équipe qui reçoit ; sera notée -1. L'absence d'événements ex- ex particularités du Basic du Spectrum peuvent - le classement de cette probabilité en regard ceptionnels sera notée 0. O. (En réalité, en cas aussi faire obstacle. de celle des neuf autres matchs ; d'influence d'inHuence négative, l'ordinateur vous de- de L'instruction LET aa = CODE A$ correspond - le numéro de la ligne où va s'afficher cette mande de taper 9 mais introduit -1). Cela fait, à un aa = = ASC(A$) sur beaucoup d'autres probabilité. lordinateur l'ordinateur affiche les matchs de la prochaine machines, mais demande le changement des journée, et pour chaque rencontre un chiffre valeurs testées dans les lignes suivantes. En l'in possèdent maintenant des instructions per- per - le pourcentage de succès à domicile ou à Huence Les lignes du programme indiquant la probabilité de victoire de léquipe l'équipe effet, le Spectrum n'utilise pas le le code ASCII qui reçoit. Puis apparaît la grille pronostiquée en usage sur la quasi-totalité des autres ordi- ordi - Lignes 200 à 300 : saisie et traitement des par l'ordinateur, en jeu simple la plupart du nateurs. La dernière bizarrerie du Basic du résultats de la dernière journée de champion- champion temps (autrement dit un seul choix) et enjeu Spectrum se trouve dans une ligne de ce nat. doublé (deux choix) dans les quelques cas où style : 630 LET cp 2 =.80 +.20 X x (S(a,11) = 0) - lignes 300380 300-380 : calcul du nouveau classe- classe l'indécision demeure. Le programme s'arrête +.45 x (S(a,11) = 1). Dans cet exemple, la ment. alors et il vous faut le sauvegarder pour utili- utili valeur contenue dans S(a,11) sera multipliée - lignes 400578 400-578 : affichage des vingt équi- équi sation sur la prochaine grille du Loto sportif. par 0,20 si cette valeur est égale à 0 et par pes, de leur classement, de leur forme, forme. Saisie Signalons que, bien que certaines journées 0,45 si elle est égale à 1. Il existe des moyens des rencontres de la la prochaine journée. Affi- Affi du championnat ne comptent pas pour le très divers pour écrire cela de façon différente chage des pourcentages de victoire à domi- domi Loto sportif, il vous faudra cependant en don- don cile ou à l'extérieur suivant le cas. Saisie des ner les résultats, ce qui vous permettra par circonstances particulières. ailleurs de savoir ce que l'ordinateur aurait - lignes 588-650: : calcul des probabilités de prévu pour ces matchs. IASBRBOUM IASERBOUM ! victoire. - lignes 700-fin : affichage des pronostics. Dissection du programme Une erreur s'est glissée dans le pro- pro Le programme de mise à jour sert unique- unique gramme Laser Beam Bearnqu'a publié Frédéric ment à saisir les données utiles au pro- pro La partie la plus importante de ce pro- pro Neuville dans le n°no 22. Il Il est normal que ce gramme principal. Il faudra l'introduire à la gramme est le calcul des probabilités de vic- vie soit un spécialiste des maladies des yeux, suite de celui-ci en modifiant la ligne 9214 toire. La formule est issue d'un article paru le docteur Gabriel Andrieu, de Toulon, qui ainsi : 9214 IF 1NKEY$ INKEY$ =•f. OR 1NKEY$ INKEY$ =• 0. dans le n°750 de Science et Vie (page 119) s'en soit aperçu. En ligne 4060, au lieu de MEN THEN LOTO GOTO 10. Ce programme est très docu- docu sous le nom.• Les pronostics de foot, science GOTO LOTO 4010, il fallait lire LOTO GOTO 4000, la menté et vous expliquera la marche à suivre. ou hasard de• de Jean Tricot. La formule est : 4010 n'existant pas. De cette erreur décou décou- Maintenant, vous vous posez la question : est- est pb = 45 + 1,85 x (C2-Cl) (C2-C1) où Cl est le classe- classe laient d'autres anomalies dans le pro- pro ce-que cela marche ? ? Si c'est le cas, de nom- nom ment de l'équipe qui reçoit et C2 celui de gramme, qui seront ainsi éliminées... breuses personnes, dont la la rédaction de de SVM, l'équipe qui joue à l'extérieur. Cette formule D'autre part, en ligne 10040, le L a été figureront parmi les gagnants. On se retrouve est pondérée par la façon dont chacune des mal imprimé dans la dernière formule. Il li tous aux Baléares ? équipes est affectée par le fait de jouer chez faut bien lire : L = 1/L 1. David EYMARD 68 SCIENCE SCIEl'ICE & et VIE MICRO 1'1° rio 24 -• JANVIER JAl'IVIER 1986
WTOSPORTIF LOTO 10 BORDER 0 : PAPER 0 : INK 4 : C LS 182 FOR w=1 W=l TO 20: : LET S(w,9)=S 9 (w,8): : LET S(w,8)-S(w,7):• S(w.7) : LETS (w.7)=0 w,7)=0: : NEXT w 186 LET sdm=55 : LET sem=18 s 205 CLS : BEEP 1,50: : PRINT PAPE R 6 : INK 0 ; AT O ; AT 0,0 ; "MISE A JOUR D U CLASSEMENT" 206 LET bb=4 : DIM R(20) 210 FOR W=l w=1 TO 20 212 IF S(w,12)=0 THEN GO TO 232 214 PRINT PAPER 5 ; INK 1 ; AT l ; bb.. 2 ; T$(w) ; 2:T${w) ; PAPER 0 ; " O ; " " ; " ; PAPER 5 : I NK 1:T$(S(w,12)) 1:TCS(w.12)) ; ; PAPER 0 ; O : INK 1 ; AT bb,25 ; "1 N 2" 216 BEEP.01.10:. 01,10 : PAUSE 0 218 LET A$=INKEY$ : LET aa=ÇODE A$ 220 IF aa<>49 AND aa<>50 AND aa <>110 THEN FOR q=10 q=lO TO 1 STEP -1 : BEEP.005.q :.005,q : NEXT q : GO TO 214 224 LET R(w)=aa 226 GO SUB SUS (1000+100*(aa=110)+2 (aa=ll0)+2 00*(aa=50)) ôO.* 228 LET bb=bb+1 : bb=bb+l : BEEP.05,w. 230 PRINT PAPER 0:AT O:T bb-1,2 ; T$ (bb-l, w):" "" ; TCS(w,12)) : T$ {S(w,) 231 IF INKEY$<>"" THEN GO TO 23 1 232 NEXT w 240 0 PRINT FLASH 1 ; 1 : PAPER 6 ; INK 0:AT O:AT 21,3 : 21.3CPUIS-JE " CONTINUER (O (0/N)/ ? ": ? PAUSE 0 242 IF INKEY$="n" THEN BEEP.1,. 10 : PRINT AT 21,3 : 21,3 ; PAPER 6 ; INK ()CON O ; " RECOMMENCE RE<:OMMENCE..." : " : FOR z=0 z=O T 0 30: : BEEP.03,z : NEXT z : GO TO 205 245 PRINT PAPER 0 : O ; INK 0 ; AT O ; AT 21,, 3 ; " 3 : " tf 246 PRINT PAPER 6 ; INK 2 ; AT 20, 4 ; " MISE A JOUR DES DONNEES " ; AT 21.4:" 21,4 ; " VEUILLEZ PATIENTER 250 0 FOR w=l w=1 TO 20 252 IF S(w,12)=0 THEN GO TO 260 254 LET a=S(w,12): : GO SUB SUD (1010 +100*(R(w)=110)+200*(R(w)=50))•100* 256 LET S(w.3)=S(w.3)+1 : w,3) =S(w,3)+1 : LETS (a.5)=S(a.5)+1 a,5)=S (a,5)•1 260 NEXT w 310 FOR w=l w=1 TO 20 320 LET S(w,10)=0 : LET S(w,10)= = S(w,7)+S(w.8)+S(w.9) S(w,7)•S(w,8)+S{w,9) 322 FOR z=11 z=ll TO 16 : LET S(w,z)= 0 : O : NEXT z 325 LET c1=1 cl=l 330 FOR q=1 q• l TO 20 340 IF q=w THEN GO TO 360 350 IF S(q,l)>S(w,1) S(q,1)>S(w,1) THEN LET c 1=c1+1 l=cl+l 360 NEXT q 370 LET S(w,2)=c1 =cl 380 NEXT w 400 CLS : LET f1=1 : fl=l : GO SUB 1300 402 FOR z=1 Z=l TO 3 : FOR w=O w=0 TO 60 STEP 4 : BEEP.02,w/z : NEXT w : N EXT z 404 PRINT PAPER 2 ; INK I 0 ; AT O ; 4,0 4, 0.i ; "UTILISEZ" LES TOUCHES SUIVANTES : ":AT : " : AT 8,2 ; 8,2 : PAPER 4 ; "BREAK " ; PA PER 6 ; "SI L'EQUIPE SE DEPLACE" " 405 PRINT.PRINT PAPER 4 ; IINK O ; 0 ; AT 10, 2 ; "6" ; 2 : " ; PAPER 6 ; " " OU " ; PAPER 4 ; " 7" ; : PAPER 6 ; " " PUIS " ; PAPER 4 ; "B " B REAK" ; PAPER 6 ; " POUR REPERER" ; A ; A T 11,2 ; "EN " CAS DE MATCH A DOMICI LE,L'E" ; AT 12,2 ; "QUIPE VISITEUSE " 406 FOR w=O w=0 TO 200 : NEXT w 407 PRINT PAPER 0 ; O ; INK I 7 ; AT AT 21,,, 0:"APPUYEZ O : SUR " ; " ; PAPER 7 ; 1 : INK 0 ; "ENTER" ; PAPER 0 ; O : INK 7 ; " " POUR CONTINUER" NUER" 408 LET f1=0 : fl=O : GO SUB 1300 409 IF INKEY$="" IN.KEY$="" THEN GO TO 409 420 1120 CLS : PRINT PR ! NT INK ? ; 7 ; AT 0,10 ; " 1.0 ; " Clst Sd Fm Cp Recoit : " : " 430 FOR w=l w=1 TO 20 432 PRINT INK 6 ; AT w,0 ; w ; w,O ; w ; INK 4 ; AT w,2 ; T$(w) ; (w) : INK 6 ; AT 6:AT w,12 ; S(w.2)• 434 IF S(w,10)>1 THEN PRINT INK 6 ; AT w,18 ; "1" 436 IF S(w.10)=1 S(w,10)=1 THEN PRINT INK 6 ; AT w,18:"0" w,18 ; "0" 438 IF S(14.10)<1 S{w,10)<1 THEN PRINT INK 6 ; AT w,18 ; "-1" w,18:"-1" 440 NEXT w 450 FOR w=l w=1 TO 20 : LET S(w,12)= 0 : O : NEXT w 460 FOR w=l w=1 TO 20 462 PRINT PAPER 2 ; AT.14.2 ; T$(w): : w,2 ; T$(w) : BEEP.2,15:. PAUSE 0 466 IF CODE 1NKEY$=32 INKEY$ THEN GO T O 0 490. 468 LET q=1 q=l 470 IF q=w THEN LET,.q+l : q=q+1 : GO T O 0 470 471 PRINT I PAPER 6 ; 6 : INK O ; AT 0 ; AT q,2 : T$(9) : T$(q) 472 YAUSE PAUSE 0 : 0 : BEEP.02,12 : LET a a=CODE. INKEY$'474 IF aa<>32 AND aa<>54 AND aa <>55 THEN BEEP 1,50 : l, , GO TO 472 475 LET dq=(aa=54)*(q<20)-(aa=5 * (q<20J- (5)*(q>1) : 5l*{q>l) : BEEP.003,q : LET q=q+d q 476 IF aa=32 THEN LET LEiT S(w,12)=q S{_w,12)=q : PRINT PAPER 0 ; O : INK 4 ; AT 4 ; A q,2 ; T$ (q): : BEEP.5,15:. GO TO 485 478 PRINT PAPER 0 ; O ; INK 4 ; AT q-d q,2 ; T$(q-dq) ; T${q-dq)'480 GO TO 470. 485 PRINT AT w,24 ; T$(q) 490 PRINT PAPER O ; AT 0 ; AT.w,2 w,2 ; T$(w) ; 492 NEXT w 510 0 FOR w=l w=1 TO 20 512 IF S(w,12)=0 THEN LET sd=IN T (100*(S(w.6)/S(w,5))) : (lOO*(S(w,6)/S(w,5))) : IF sd<5 THEN LET sd=5 514 IF S(w,12)>0) >O THEN. THE:N. LET sd=IN T (100*(S(w.4)/S(w,3))) : (lOO* (S(w,) : IF sd<1 sd"o" INKE$<>"o" THE N GO TO 580'i80 544 PRINT AT 21,0 ; " 21.0 ; " 550 PRINT PAPER 6 ; " INK 0 ; AT O ; AT 21, 20 ; "9=-1 20 : " 0=0 l=l" 1=1" 552 FOR w=l w=1 TO 20 554 PRINT PAPER 2 ; AT 2:AT w,2 ; T$(w) : BEEP.05,10 : PAUSE 0 556 LET A$=INKEY$ : LET aa=CODE A$ 558 IF aa<>48 AND aa<>49 AND aa <>57 THEN BEEP.1,0 : BEEP.1,0 :.l,O : GO TO 554 560 LET S(w,11)-aa-48-10*(aa=57 S(w,ll)=aa-48-10* (aa=57). 562 PRINT PAPER 0 ; AT O ; AT w,2 ; T$(w) ; INK 6 ; AT w.2l ; S(w,11) w,21:S(w.11) 570 NEXT w 572 PRINT AT 21,20 ; ", 20 ; " 578 IF INKEY$<>"" INKEYS<>"" THEN GO TO 57 8 588 LET bb=4 : BEEP.1,50 :. CLS 589 LET B$="LOTOLOTOLOTOLOTOLOT OLOTOLOTOLOTO" 590 FOR w=l w=1 TO 33 591 PRINT PAPER 2 ; INK 1 ; AT l ; AT 0,0 ; B$ ; AT 21,0 ; B$ 21,0 ; 8$ 592 LET 8$=B$(2 B$=B$(2 TO 32)+B$(1) 593 BEEP.003.w. 003, w 594 NEXT w, 602 BEEP 1.50 : 1,50 : BEEP.5,30:. PRIN T PAPER 6 ; INK 0 ; O ; FLASH 1 ; AT l ; AT 19. 19, 5 ; "VOICI 5 : " MES PRONOSTICS" " 604 FOR w=1 w=l TO 20 605 PRINT PAPER 2 : INK 1 ; AT l ; w.0 w,O ; B$(w) ; AT ; w,31 ; B$(w) SCIENCE & at VIE JlllCRO MICRO J'll N°24 0 - JAIWIER JANVIER 1986 69 " I



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