annie_singh

Hello,

I am a beginner in perl. I am stuck with a problem. I have an array which looks like this

6.324 32.707 50.379
5.197 32.618 46.826
4.020 36.132 46.259
7.131 38.210 45.919
6.719 38.935 42.270
2.986 39.221 41.892
-0.269 37.184 41.565

These are the X, Y and Z coordinates from a pdb file. I want to calculate the distance using these three coordinate values. First i want to know how to assign these values to the array. I have to use this formula to calculate the distance:

$dist = sqrt(($x1-$x2)**2+($y1-$y2)**2+($z1-$z2)**2);

Till now I have written the script like below to obtain the three columns which is shown above. I am stuck. I need help to calculate distance using 'for loop' and do an iterative distance calculation.

my exiting code:

open(IN, "/Users/anu/out.pl") or die "$!";
while (my $line = <IN>) {
chomp($line);
my @array = (split (/\s+/, $line))[6, 7, 8];
print "@array\n";
}
close(IN);

Thank you...

KevinADC

Thats not nice.......

http://www.perlguru.com/gforum.cgi?post=32920
http://www.daniweb.com/forums/thread148485.html
http://www.daniweb.com/forums/thread148184.html

annie_singh

its fair enough, when u have a question, u post it to different forums where u get different solutions, which will obviously help me learn and approach the problem from different corners thru different ways. Its a pretty good learning process...

pan1c

my $dist;
for(my $val;$val <= $#array; $val ++) {
$dist =
sqrt(
( $array[$i][0][0] - $array[(1+$i)][0][0] )**(2+($array[0][$i][0] - $array[0][(1+$i)])**...



Something like this

not the ellipses where i figure you can complete from their, i maybe wrong with my for statement however, the 2nd part, I dont have alot of experience with multidimensional arrays.

maybe we could count how many lines of values were taken in and us


$i < $lines


also, I'm not good with math so my parenthesis my not be correct. simple tweaking should suffice though.