Discussion :

[k6971]

Bonjour

Je simule des données et je veux faire un calcul avec rand et ne le generer que toutes les 10 itératins.

voici mon code;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
while (<FILE_DATA>)
    		 {
            @tab = split("\t",$_);  
 
			if($tab[11] != 0){
			#print $tab[11],"AVANT RANDOM \n";  
        	#print "$tab[11]	avant random vaut $tab[11]"; 	
        	$tab[11]=($tab[11]*rand(0)*0.1)+$tab[11];        	
        	#print $tab[11],"APRES RANDOM \n"; 
			}
       		print FILE_DATA_RANDOM @tab;
        	}

mais je ne veux générer le calcul que toutes les 10 itérations.

[MarneusCalgarXP]

en utilisant le modulo:

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
my $iteration = -1; # -1 pour que ca s'execute à la 1° itération, 0 sinon
while (<FILE_DATA>)
{    
    @tab = split("\t",$_);  
    if($tab[11] != 0) {
        # on incrémente le n° d'itération
        $iteration = ($iteration + 1) % 10; 
        if ($iteration == 0) {
            # itération 0
            #print $tab[11],"AVANT RANDOM \n";  
            #print "$tab[11]	avant random vaut $tab[11]"; 	
            $tab[11]=($tab[11]*rand(0)*0.1)+$tab[11];        	
            #print $tab[11],"APRES RANDOM \n"; 		
        }
        else {
            # itérations 1 à 9
            # print($tab[11], " SANS MODIF\n");
        }
    }
    print FILE_DATA_RANDOM @tab;
}