Clear[AminoAcidCode] ; AminoAcidCode[sequence_List] := Module[ {seq = sequen ... 71;(*** ** ** ** ** ** ** *********************************************************************)

In[642]:=

(*Extract coordiante *)xyzList = Cases[f, {"ATOM", __}] ; xyzList/ ... #62371;caList = Select[xyzList, #[[1]] == "CA"&] ; caList//Shallow

Out[647]//Shallow=

{{CA, ALA, 1, 20.320, 87.836, 51.572}, {CA, LEU, 2, 22.031, 84.651, 50.374}, {CA, PRO, 3, 25 ... CA, GLY, 9, 27.034, 68.506, 51.902}, {CA, THR, 10, 27.561, 65.397, 49.785}, 229}

Created by Mathematica  (October 2, 2006) Valid XHTML 1.1!