[langage] algo de bissection dans mon code

Version imprimable

Bonjour!
voila, je tente de faire un algo de bisection en vain, d'autant plus que je ne connais pas perl et que je tatonne pour coder ca.
alors je mets mon code.
quelqu'un pourrait il me dire comment faire et ou je me plante?
merci d'avance!

Code:

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
 
#!/usr/bin/perl
#
#
#
use DBI;
require '/data/iddncgi/util.pl';
print "\n";
$cpt1 = '1';
$cpt2 = '1';
$debut_oeuvre = '102061';
$milieu_oeuvre = ($fin_oeuvre - $debut_oeuvre)/2;
$fin_oeuvre = '102161';
$debut_aut = '102061';
$milieu_aut = ($fin_aut - $debut_aut)/2;
$fin_aut = '102161';
&ConnectToBase("iddn");
while ($debut_oeuvre, $fin_oeuvre, $debut_aut, $fin_aut)
{
    $b = &SQL_Execute("SELECT md FROM oeuvre WHERE numero = '$debut_oeuvre'");
    $c = &SQL_Execute("SELECT md FROM oeuvre WHERE numero = '$fin_oeuvre'");
    $md1_oeuvre = $b->fetchrow();
#$b->finish;
    print "MD1_oeuvre : $md1_oeuvre\n";
    $d = &SQL_Execute("SELECT md FROM aut WHERE numero = '$debut_aut'");
    $e = &SQL_Execute("SELECT md FROM aut WHERE numero = '$fin_aut'");
    $md1_aut = $d->fetchrow();
#$d->finish;
    print "MD1_aut : $md1_aut\n";
    print "comparaison de MD1 numero $cpt1 \n";
    $cpt1++;
    print "numeros de ligne: aut=$debut_aut, oeuvre=$debut_oeuvre \n";
    if($md1_oeuvre == $md1_aut)
    {
        print "LES MD5 SONT IDENTIQUES, C\'EST CORRECT!\n";
    }
    else
    {
        print "LES MD5 SONT DIFFERENTS, CHERCHEZ L\'ERREUR!\n";
        $fin_oeuvre = $fin_oeuvre - $milieu_oeuvre;
        $fin_aut = $fin_aut - $milieu_aut;
#    exit;
    }
    print "\n";
}
$b->finish;
$d->finish;

merci!!!

09/01/2004, 15h52
killy

aie aie, g vraiment besoin d'aide!!!
svp aidez moi!!!!!!!
09/01/2004, 16h59
le troll Hebus

Re: algo de bissection dans mon code

Citation:

Envoyé par killy

voila, je tente de faire un algo de bisection en vain, d'autant plus que je ne connais pas perl et que je tatonne pour coder ca.

ben, c'est l'algo ou le code qui t'embête?
si c'est l'algo, ce n'est pas le bon forum, si c'est le code, sois plus précis sur ce qui ne va pas: tout le monde n'est pas forcé de savoir ce qu'est la bisection... :wink:
14/01/2004, 12h18
killy

pardon, je crois que ca s'appelle plutot la dichotomie, mais je suis pas certain...lol
ceci dit, je veux faire ne boucle non infinie et je ne c pas comment faire pour que le code s'execute tant que les deux champs ne sont pas similaires!
c'est a dire que la ou ily a le else, le programme ne devrait pas s'arreter mais je ne cpas comment formuler une boucle correctepour ca. je suis embete. voila, j'espere avoir ete plus precis mais c difficile.

Salut...

Bein c'est supra simple, non ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
condition_darret = FALSE;
while(condition_darret, bla, bla, bla)
{
   si( machin = chose)
   {
        // c'est bon... tout roule !
   }
   else
    {
        // oula, c'est pas bon, j'arrete la boucle !!!
        condition_darret= TRUE;
     }
}

Salut ...
si ça peut t'aider : l'opérateur de comparaison de chaînes de caractères en Perl, c'est eq, et pas ==, et pour contrôler simplement ton while :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
$encore = TRUE;
while ($encore, $debut_oeuvre, $fin_oeuvre,...){
  ...
  if($md1_oeuvre eq $md1_aut) {
    #si les chaines sont exactement identiques
    print "LES MD5 SONT IDENTIQUES, C\'EST CORRECT!\n";
    #fin de la boucle
    $encore = FALSE;
  } else {
    # modif variables pour la suite de la recherche
    print "LES MD5 SONT DIFFERENTS, CHERCHEZ L\'ERREUR!\n";
    $fin_oeuvre = $fin_oeuvre - $milieu_oeuvre;
    ...
  }
}

http://www.enstimac.fr/Perl/DocFr.html