Novembre 2016, 4e défi

Défis du calendrier mathématique

Défi du calendrier mathématique 2016 : petit problème à résoudre….

Le 25 novembre 2016, par Ana Rechtman - 4 commentaires

Voir tous les messages - Retourner à l'article

• Novembre 2016, 4e défi

  le 25 novembre 2016 à 08:04, par zgreudz

  Sans aucune reflexion ni discernement je l’ai fait avec Mathematica :

  list = -7, -5, -3, -2, 2, 4, 6, 13

  Sous ensembles de la liste avec exactement 4 elements
  L = Subsets[list, 4] ;
  Sous ensembles complementaires :
  M = Complement[#] & /@ L ;
  Calcul de la somme de (a+b+c+d)² + (e+f+g+h)²
  S = (# [1] + # [2]) & /@
  Transpose[(Total[#])^2 & /@ L, (Total[#])^2 & /@ M]
  Valeur Minimale :
  Min[S]
  34
  Recherche des candidats
  p = Position[S, Min[S]]
  12, 14, 22, 32, 39, 49, 57, 59
  Affichage
  L [3] & /@ p, M [4] & /@ p // Transpose // TableForm

  -7, -5, 2, 13, -3, -2, 4, 6

  -7, -5, 4, 13, -3, -2, 2, 6

  -7, -3, 2, 13, -5, -2, 4, 6

  -7, 2, 4, 6, -5, -3, -2, 13

  -5, -3, -2, 13, -7, 2, 4, 6

  -5, -2, 4, 6, -7, -3, 2, 13

  -3, -2, 2, 6, -7, -5, 4, 13

  -3, -2, 4, 6, -7, -5, 2, 13

  Desole pour les renvois de bas de page, ils viennent de l’interpretation du code en balises d’edition.

  [1] 1

  [2] 2

  [3] #

  [4] #

  Répondre à ce message