Le wiki de Syracuse

====== Différences ====== Cette page vous donne les différences entre la révision choisie et la version actuelle de la page.

--- mc:moindre.pl [2008/08/05 20:07]
maxime
+++ mc:moindre.pl [2010/02/12 02:22] (Version actuelle)
newacct
@@ Ligne 161: / Ligne 161: @@
 my @saveyi = @yi;
 if("$ARGV[1]" eq "exp"){
-    for(my $i=0; $i<=($taille-1); $i++){
+    for my $i(0..($taille-1)){
 	$yi[$i] = log($yi[$i]);
     }
@@ Ligne 167: / Ligne 167: @@
 #------------------------ Calculs des S_k et W_k ------------------------------
-for( my $k=0; $k<= (2*$ordre) ; $k+=1 )
+for my $k ( 0 .. (2*$ordre) )
   {
-    for( my $i=0; $i<= ($taille-1); $i++ )
+    for my $i ( 0 .. ($taille-1) )
       {
 	  if($k==0){
@@ Ligne 177: / Ligne 177: @@
 	      $xik=1;
 	      $pro=$xi[$i];
-	      for(my $l=1; $l<=$k; $l+=1 ){
+	      for my $l (1..$k){
 		  $xik*=$pro;
 	      }
@@ Ligne 192: / Ligne 192: @@
 $matW = MatCol(@W);
-for(my $i=0; $i<=$ordre; $i++){
+for my $i (0 .. $ordre){
-    for( my $j=0; $j<=$ordre; $j++){
+    for my $j (0 .. $ordre){
 	$matrice->[$i]->[$j] = $S[$i+$j];
     }
@@ Ligne 217: / Ligne 217: @@
 #regression "normal"
     else{
-	for(my $j=0; $j<=$ordre+1; $j++){
+	for my $j (0 .. $ordre+1){
 	    $sum+=($sol->[$j]->[0])*(($xr[$incr]**($j)));
 	}
@@ Ligne 249: / Ligne 249: @@
 else {
     $legende = sprintf("%0.${defaut_d}f",$sol->[0]->[0]);
-    for(my $i = 1; $i <= $ordre; $i++){
+    for my $i (1 .. $ordre){
 	$legende .= sprintf("%+0.${defaut_d}f x",$sol->[$i]->[0]);
 	$i > 1 and $legende .= "^{$i}";