Dear All,
I have a data in this format shown below. The column 7,8,9 are XYZ coordinates ie (5.223 -3.687 39.735) . Now I want to write a perl script which can find a center of all these XZY points and then calculate a zsphere of 5 Angstrom radius from that center point.
ATOM 3 C MET A 1 5.223 -3.687 39.735 1.00 58.42 C
ATOM 4 O MET A 1 5.603 -4.213 38.686 1.00 59.85 O
ATOM 5 CB MET A 1 4.100 -1.444 40.158 1.00 54.79 C
ATOM 6 CG MET A 1 3.352 -1.835 41.383 1.00 55.05 C
ATOM 7 SD MET A 1 2.027 -2.986 41.020 1.00 58.28 S
ATOM 8 CE MET A 1 0.818 -2.439 42.298 1.00 58.60 C
ATOM 9 N GLU A 2 4.686 -4.400 40.723 1.00 58.64 N
Please guide me how to procced .
I have a data in this format shown below. The column 7,8,9 are XYZ coordinates ie (5.223 -3.687 39.735) . Now I want to write a perl script which can find a center of all these XZY points and then calculate a zsphere of 5 Angstrom radius from that center point.
ATOM 3 C MET A 1 5.223 -3.687 39.735 1.00 58.42 C
ATOM 4 O MET A 1 5.603 -4.213 38.686 1.00 59.85 O
ATOM 5 CB MET A 1 4.100 -1.444 40.158 1.00 54.79 C
ATOM 6 CG MET A 1 3.352 -1.835 41.383 1.00 55.05 C
ATOM 7 SD MET A 1 2.027 -2.986 41.020 1.00 58.28 S
ATOM 8 CE MET A 1 0.818 -2.439 42.298 1.00 58.60 C
ATOM 9 N GLU A 2 4.686 -4.400 40.723 1.00 58.64 N
Please guide me how to procced .