Tournois Mount & Blade, R

Tournois Mount & Blade

### A remplir par l'organisateur pour la création et la mise à jour du tableau de tournois ###

# Liste des participants
participants <- c("Ryou", "Nass", "Opu", "HB", "DD", "Nicault", "yvus", "Samet")

# Numéro de la manche (1 pour créer le tableau, puis 2 à 4 pour mettre à joueur)
manche <- 1

# Liste des vainqueurs par manche (uniquement pour la mise à jour)
vainqueurs <- list()
vainqueurs$manche1 <- c("Ryou", "Opu", "DD", "yvus")
vainqueurs$manche2 <- c("Ryou", "DD")
vainqueurs$manche3 <- "Ryou"

#### Code pour le calcul et l'affichage ###

# Réorganization aléatoire de la liste pour faire les matchs, 
# mais seulement si c'est la première manche
if (manche == "quarts") participants <- participants[sample(1:8,8)]

# Création d'un matrice de distance permettant de créer le dendrogramme
# 01: même 8ème, 02: même quart, 03: autre moitié du tableau
dist <- matrix(data = c(00, 01, 02, 02, 03, 03, 03, 03, 01, 00, 02, 02, 03, 03, 03, 03, 02, 02, 00, 01, 03, 03, 03, 03, 02, 02, 01, 00, 03, 03, 03, 03,03, 03, 03, 03, 00, 01, 02, 02, 03, 03, 03, 03, 01, 00, 02, 02, 03, 03, 03, 03, 02, 02, 00, 01, 03, 03, 03, 03, 02, 02, 01, 00), 
               nrow = 8, ncol = 8, byrow = TRUE, dimnames = list(participants, participants))

dist <- dist(dist)           # Calcul d'une matrice de distance à partir de la matrice ci-dessus
dist <- hclust(dist)         # Calcul du dendrogramme

# Affichage du dendrogramme et formattage
par(mar = c(4,4,3,1))
plot(as.dendrogram(dist), las = 3, xlab = "", yaxt = "n",
     leaflab = "none")
text(y = -0.1, x = c(1:8), srt = 30, xpd = TRUE, adj = c(1,1),
     labels = participants)
text(x = 0, y = c(1.5, 3.3, 5.5), xpd = TRUE, adj = c(0.5,1),
     labels = c("Quarts", "Demi", "Finale"))

# Update à la première manche, à éditer avant d'executer la suite
if (manche > 1) {
  vainqueurs$manche1 <- which(participants %in% vainqueurs$manche2)
  
  text(y = 1.55, x = seq(1.5, 7.5, 2)+0.2, srt = 30, xpd = TRUE, adj = c(0,0),
       labels = participants[vainqueurs$manche1])
}

# Update à la deuxième manche, à éditer avant d'executer la suite
if (manche > 2) {
  vainqueurs$manche2 <- which(participants %in% vainqueurs$manche2)
  
  text(y = 3.35, x = c(2.5, 6.5)+0.2, srt = 30, xpd = TRUE, adj = c(0,0),
       labels = participants[vainqueurs$manche2])
}

# And the winner is!
if (manche > 3) {
  vainqueurs$manche3 <- which(participants %in% vainqueurs$manche3)
  
  text(y = 5.8, x = 4.5, xpd = TRUE, adj = c(0.5,0), cex = 2, 
       labels = participants[vainqueurs$manche3])
}


run \| edit \| history \| help	0