Discussion :

[norachaouia]

Bonjour,

Voila, j ai un fichier texte ou se trouvent deux types de donnees

nom coordonnees
lili 564 546
mo 695 56

Bien sur il s agit d un long enchainement de ce genre....

Ce que je souhaiterais faire c est calculer des distances et generer toutes les combinaisons possibles!!!!

J ai pour idee de creer une boucle qui generait toutes les solutions possibles de cette maniere :




Pour chaque nom{
1- Calculer distance avec le nom suivant(Pythagore)
enchainement jusqua revenir au nom de depart
2- associer a chaque distance calculee le couple de
noms respectif pour lesquels nous avons calcule chaque distance


}


Seulement je ne sais pas coder ce genre d enchainement avec des points de depart de boucle qui changent!!!


Un grand besoin d aide svp

[Jim_Nastiq]

tu connais les graphes? l'algorithme de Dijkstra pourrait peut etre t'aider

[norachaouia]

Merci pour la bonne intention mais g rien pige

[Jim_Nastiq]

avec les mots que t'as pas capté tu vas voir ton copain google et ca devrait normalement t'aider

je vais pas me lancer dans une explication de l'algo de Dijkstra de peur de te dire une connerie je prefere que tu découvre via des sites bien documenté cet algo

[Jedai]

tu connais les graphes? l'algorithme de Dijkstra pourrait peut etre t'aider

Je ne pense pas qu'il ait besoin de Dijkstra : il n'est pas dans un graphe, il est dans un plan, et dans un plan la plus courte distance entre deux points c'est la droite...

Je pense que ce qu'il cherche à faire est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
#!/usr/bin/env perl
use strict;
use warnings;
 
#on récupère le contenu du fichier, dans un tableau de ligne
my @lines = <>;
 
# on supprime la première ligne d'entête
shift @lines;
 
# on supprime les retours à la lignes
chomp @lines;
 
my %points;
foreach (@lines) {
    my @fields = split;
 
    # si la ligne a bien trois champs comme une ligne valide
    if ( @fields == 3 ) {
 
        # on récupère le point de cette ligne
        $points{ $fields[0] } = [ @fields[ 1, 2 ] ];
    }
}
 
my %distances;
 
# on récupère la liste des noms de points, triée alphabétiquement
my @points_names = sort keys %points;
 
# double boucles, les distances seront stockées dans %distances
# la distance entre deux points a et b sera dans
# $distances{a}{b} si a lt b, $distances{b}{a} si b lt a
for my $i ( 0 .. $#points_names ) {
    for my $j ( $i+1 .. $#points_names ) {
        my ( $pa, $pb ) = ( $points_names[$i], $points_names[$j] );
        $distances{$pa}{$pb} =
          sqrt( ( $points{$pa}[0] - $points{$pb}[0] )**2 +
              ( $points{$pa}[1] - $points{$pb}[1] )**2 );
    }
}

--
Jedaï

[norachaouia]

Merci c gentil mais je dispose en fait d un fichier beaucoup plus complique ou du moins n ayant pas 3 variables mais plus...


aujourd hui si qqun pouvait m aider sur la recupe des donnees pour le calcul des distances ce serait fort sympa...


Voila je declare au debut mon tableau : my @namememories;

ensuite j ouvre mon fichier : if (!open...

puis boucle while qui lit mon fichier : while($line=<DESC>...

if (expression reguliere)


je stocke ensuite mes variables dans le tableau: @namememories=$1;

puis quand je veux printer pour savoir si j ai acces au dernier elemnt de mon tableau je fais : print "$namememories[$#namememories]\n";


mais il ne m affiche rien, pourriez vous m aider svp???

[Jedai]

je stocke ensuite mes variables dans le tableau: @namememories=$1;

Ce ne serait pas plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

push @namememories, $1;

( ton code écrase le tableau à chaque fois )

Par ailleurs je veux bien que ton fichier ait plus de champs, mais ça ne change pratiquement rien à mon code...

--
Jedaï

[norachaouia]

Salut


Merci...J y arrive tjs pas...
Je peux demander comment tu fais pour afficher toutes les distances a partir de ton code???

[Jedai]

Et bien par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
for my $pa ( @points_names ) {
  my %dist_for_pa = %{$distances{$pa}};
  for my $pb ( sort keys %dist_for_pa ) {
    print "Distance entre $pa et $pb égale à $dist_for_pa{$pb}.\n";
  }
}

--
Jedaï

[norachaouia]

merci

Helas je ne sais pas manipuler ce genre d outils et ca ne marche pas ,
Je vais tenter de t expliquer exactement ce que je veux faire et ce que j ai reussi a a faire...

2 min j arrive..