exemple_matrice <- matrix(seq(1, 150, 1), 10, 15);
exemple_vecteur_G <- c(1:15);
exemple_scalaire_G <- 1.250;

distance_lignes <- function(matrice, vecteur) {
  for (i in 1:nrow(matrice)) {
    for (j in 1:nrow(matrice)) {
      distance_ij <- ((matrice[i,] - matrice[j,]) ^2) / vecteur;
      print(paste("Distance ligne", i, "avec ligne", j, ":"));
      print(distance_ij);
    }
  }
}

distance_colonnes <- function(matrice, G) {
  for (i in 1:nrow(matrice)) {
    for (j in 1:nrow(matrice)) {
      distance_ij <- ((matrice[,i] - matrice[,j]) ^2) / G;
      print(paste("Distance colonne", i, "avec colonne", j, ":"));
      print(distance_ij);
    }
  }
}

distance_lignes(exemple_matrice, exemple_vecteur_G);
distance_colonnes(exemple_matrice, exemple_scalaire_G);