
Algorithme Difficulté d’une course
Algorithme permettant de calculer La difficulté d’une course
Il y as plusieurs méthode pour calculer la difficulté d’une course, en voici une qui me donne un bon indice. L’algorithme se calcul sur les côte des chevaux, les indices du matin sont une bonne source, le calcule se déroule en 8 étapes,- on va additionner toute les côtes des chevaux
- on va calculer la moyenne des côtes
- pour chaque cheval on va calculer la différence entre la moyenne des côtes et la sienne
- pour chaque cheval on va calculer le carré de la différence des côtes (SommeCarreCote), (si la différence des côtes est un nombre négatif on le multiplie par -1)
- puis on va ressortir le total des difficulté (TotalDifficulte) qui est la somme du carré de la différence diviser par le nombre de partant-1
- si il y a 3 chiffre dans le total des difficulté on va le diviser par 100 sinon par 10
- on soustrait ce chiffre à 10
- Les doigts dans le nez
- Trés facile
- Facile
- Relativement Facile
- Moyenne ++
- Moyenne —
- Relativement difficile
- Difficile
- Très Difficile
- Infernal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 |
DECLARE SommesCote est double DECLARE NbrPartant est entier DECLARE MoyenneCote est double DECLARE TABLEAU TabCote() est double DECLARE SommeCarreCote est double DECLARE TotalDifficulte est double DECLARE IndiceDifficulte est double NbrPartant = "Saisir le nombre de partant" REDIMENTIONNE TabCote(NbrPartant-1) 'faire la somme de toute les cotes des chevaux Pour I allant de 0 à NbrPartant TabCote(i)="saisir la cot + e du cheval " & i+1 SommesCote = SommesCote + (TabCote(i)) I suivant 'Calculer la moyenne des cotes MoyenneCote=SommesCote/NbrPartant 'Pour chaque cheval , calculer la différence de moyenne pour I allant de 0 à fin(TabCote) TabCote(i)=MoyenneCotes - TabCote(i) I suivant 'Pour chaque cheval, calculer le carré de la différence des côtes pour I allant de 0 à fin(TabCote) si Tabcote(i)<0 alors TabCote(i) = (TabCote(i)*-1) * (TabCote(i)*-1) sinon TabCote(i) = TabCote(i) * TabCote(i) fin de si I suivant ' Faire le total du Carrés des côtes pour I allant de 0 à fin(TabCote) SommeCarreCote = SommeCarreCote + TabCote(i) I suivant 'Calcul du total de la difficulté TotalDifficulte=SommeCarreCote / (NbrPartant-1) 'Calcul de l'indice de difficulté si TotalDifficulte >= 100 alors IndiceDifficulte = 10 - (TotalDifficulte /100) sinon IndiceDifficulte = 10 - (TotalDifficulte /10) fin de si 'Lecture des indices de difficulté Selon IndiceDifficulte Cas 1 "1 Les doigts dans le nez" Cas 2 "2 Très facile" Cas 3 "3 Facile" Cas 4 "4 Relativement Facile" Cas 5 "5 Moyenne ++" Cas 6 "6 Moyenne --" Cas 7 "7 Relativement Difficile" Cas 8 "8 Difficile" Cas 9 "9 Très difficile" Cas 10 "10 Infernal" End Select |
19-11-2019 = 7 relativement difficile