Lines Matching refs:l_1
306 my ($l_0,$l_1,$l_2) = @leftovers;
308 my $dist_i = ( $mat->[$l_1][$l_0] + $mat->[$l_2][$l_0] -
309 $mat->[$l_2][$l_1] ) / 2;
311 my $dist_j = ( $mat->[$l_1][$l_0] - $dist_i);
317 $dist_j = $mat->[$l_1][$l_0];
321 $dist_k = ( $mat->[$l_2][$l_0] + $mat->[$l_2][$l_1] ) / 2;
325 $dist_j = ($mat->[$l_1][$l_0] + $mat->[$l_2][$l_1]) / 2;
330 $dist_i = $mat->[$l_1][$l_0];
331 $dist_k = $mat->[$l_2][$l_1];
334 $dist_k = ( $mat->[$l_2][$l_0] + $mat->[$l_2][$l_1]) / 2;
338 $dist_i = ( $mat->[$l_1][$l_0] + $mat->[$l_2][$l_0]) / 2;
344 $dist_j = $mat->[$l_2][$l_1];
347 $dist_j = ( $mat->[$l_1][$l_0] + $mat->[$l_2][$l_1] ) / 2;
351 $dist_i = ($mat->[$l_1][$l_0] + $mat->[$l_2][$l_0]) / 2;