(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 38740, 967] NotebookOptionsPosition[ 36182, 905] NotebookOutlinePosition[ 36490, 920] CellTagsIndexPosition[ 36447, 917] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->285421464], Cell["Import an RCSB data file starting from row 154:", "Text", CellChangeTimes->{{3.7855804658291807`*^9, 3.785580518819921*^9}, 3.785582381063279*^9}, CellID->1812908403], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data", "=", RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"PDBImport\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PDBImport\""}], ResourceFunction["PDBImport"], BoxID -> "PDBImport", Selectable->False], "[", RowBox[{ "\"\\"", ",", " ", "154"}], "]"}]}]], "Input", CellChangeTimes->{ 3.763066024273148*^9, 3.763066089319644*^9, {3.7630661366968937`*^9, 3.763066148393701*^9}, {3.763066955675253*^9, 3.76306696452525*^9}, { 3.7630670067616034`*^9, 3.7630670476809673`*^9}, {3.763067285220023*^9, 3.7630672914478493`*^9}, {3.785573119920652*^9, 3.785573120822694*^9}, 3.785576629863531*^9, {3.785580526435155*^9, 3.785580543797659*^9}}, CellLabel->"In[6]:=", CellID->1735677260], Cell[BoxData[ InterpretationBox[ TagBox[ FrameBox[GridBox[{ { ItemBox[ TagBox[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Atom\"\>", "\[Rule]", RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}]}], ",", RowBox[{"\<\"Mass\"\>", "\[Rule]", RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}]}], ",", RowBox[{"\<\"XCoordinate\"\>", "\[Rule]", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], ",", RowBox[{"\<\"YCoordinate\"\>", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "125.769`", ",", "124.594`", ",", "124.781`", ",", "126.772`", ",", "127.382`", ",", "128.637`", ",", "127.823`", ",", "123.383`", ",", "122.152`", ",", TemplateBox[{"7496"}, "OutputSizeLimit`Skeleton"], ",", "45.373`", ",", "44.211`", ",", "43.119`", ",", "42.834`", ",", "43.68`", ",", "42.737`", ",", "41.315`", ",", "40.801`", ",", "40.705`"}], "}"}], ",", TemplateBox[{"59"}, "OutputSizeLimit`Skeleton"]}], "}"}]}], ",", RowBox[{"\<\"ZCoordinate\"\>", "\[Rule]", RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}]}]}], "\[RightAssociation]"}], Short[#, 5]& ], BaseStyle->{Deployed -> False}, StripOnInput->False]}, {GridBox[{ { PaneBox[ TagBox[ TooltipBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource[ "FEStrings", "sizeBriefExplanation"], StandardForm], ImageSizeCache->{60., {2., 8.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText", StripOnInput->False], StyleBox[ DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], StandardForm]], DynamicUpdating -> True, LineIndent -> 0, LinebreakAdjustments -> {1., 100, 0, 0, 0}, LineSpacing -> {1, 2}, StripOnInput -> False]], Annotation[#, Style[ Dynamic[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], DynamicUpdating -> True, LineIndent -> 0, LinebreakAdjustments -> {1., 100, 0, 0, 0}, LineSpacing -> {1, 2}], "Tooltip"]& ], Alignment->Center, BaselinePosition->Baseline, ImageSize->{Automatic, {25, Full}}], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm], ImageSizeCache->{54., {0., 8.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 6, 17972614141479366042, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{61., {0., 8.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{68., {1., 10.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 6, 17972614141479366042, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{45., {0., 8.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 6, 17972614141479366042, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{46., {18., 10.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>FrontEndExecute[{ FrontEnd`SetOptions[ FrontEnd`$FrontEnd, FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], FrontEnd`FrontEndToken["PreferencesDialog"]}], Evaluator->None, Method->"Preemptive"]} }, AutoDelete->False, FrameStyle->GrayLevel[0.85], GridBoxDividers->{"Columns" -> {False, {True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], Offset[1.2], { Offset[0.4]}, Offset[0.2]}}], BaseStyle->"OutputSizeLimit", FrameMargins->{{12, 12}, {0, 15}}, FrameStyle->GrayLevel[0.85], RoundingRadius->5, StripOnInput->False], Deploy, DefaultBaseStyle->"Deploy"], If[17972614141479366042 === $SessionID, Out[6], Message[ MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; Null]]], "Output", CellChangeTimes->{3.785580563662346*^9, 3.785582525949039*^9}, CellLabel->"Out[6]=", CellID->1231332831] }, Open ]], Cell[TextData[{ "Extract the ", Cell[BoxData[ StyleBox["x", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " coordinates:" }], "Text", CellChangeTimes->{{3.751956515315048*^9, 3.751956536317786*^9}, { 3.76306599169547*^9, 3.7630660043801622`*^9}, 3.785580515076869*^9, { 3.7855805740063047`*^9, 3.78558057855422*^9}, {3.785580643911677*^9, 3.7855806697037*^9}}, CellID->221583938], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{ 3.763066024273148*^9, 3.763066089319644*^9, {3.7630661366968937`*^9, 3.763066148393701*^9}, {3.763066955675253*^9, 3.76306696452525*^9}, { 3.7630670067616034`*^9, 3.7630670476809673`*^9}, {3.763067285220023*^9, 3.7630672914478493`*^9}, {3.785573119920652*^9, 3.785573120822694*^9}, 3.785576629863531*^9, {3.785580586770784*^9, 3.785580587378964*^9}, { 3.785580801961192*^9, 3.785580823512374*^9}}, CellLabel->"In[37]:=", CellID->1253662683], Cell[BoxData[ InterpretationBox[ TagBox[ FrameBox[GridBox[{ { ItemBox[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "70.893`", ",", "71.257`", ",", "71.753`", ",", "70.03`", ",", "70.717`", ",", "69.709`", ",", "68.114`", ",", "70.991`", ",", "71.336`", ",", "72.136`", ",", "71.775`", ",", "70.081`", ",", "73.219`", ",", "74.047`", ",", "74.521`", ",", "74.541`", ",", "75.234`", ",", "74.78`", ",", "74.653`", ",", "73.351`", ",", "72.69`", ",", "75.856`", ",", "76.127`", ",", "75.8`", ",", "73.008`", ",", "71.897`", ",", "70.486`", ",", "69.764`", ",", "72.227`", ",", "72.049`", ",", "71.358`", ",", "70.097`", ",", "68.782`", ",", "67.554`", ",", "67.56`", ",", "68.715`", ",", "67.318`", ",", "66.694`", ",", "67.374`", ",", "66.508`", ",", "65.165`", ",", "64.026`", ",", "64.275`", ",", "64.951`", ",", "65.315`", ",", "65.511`", ",", "65.464`", ",", "65.845`", ",", "65.798`", ",", "65.987`", ",", "66.319`", ",", "62.797`", ",", "61.745`", ",", "61.085`", ",", "60.68`", ",", "60.981`", ",", "60.396`", ",", "60.04`", ",", "60.804`", ",", "58.879`", ",", "58.369`", ",", "57.928`", ",", "58.185`", ",", "57.21`", ",", "57.27`", ",", "56.786`", ",", "57.79`", ",", "58.592`", ",", "57.74`", ",", "58.605`", ",", "60.044`", ",", TemplateBox[{"7372"}, "OutputSizeLimit`Skeleton"], ",", "94.356`", ",", "93.855`", ",", "94.718`", ",", "94.248`", ",", "95.983`", ",", "96.938`", ",", "98.093`", ",", "98.789`", ",", "97.509`", ",", "98.24`", ",", "99.301`", ",", "97.265`", ",", "98.288`", ",", "99.442`", ",", "99.305`", ",", "100.308`", ",", "99.692`", ",", "100.119`", ",", "101.344`", ",", "99.297`", ",", "101.743`", ",", "99.69`", ",", "100.915`", ",", "98.073`", ",", "97.813`", ",", "98.276`", ",", "98.961`", ",", "97.899`", ",", "98.313`", ",", "99.304`", ",", "98.911`", ",", "100.591`", ",", "101.66`", ",", "101.996`", ",", "101.87`", ",", "102.912`", ",", "103.944`", ",", "103.514`", ",", "104.549`", ",", "105.848`", ",", "102.423`", ",", "102.817`", ",", "102.747`", ",", "103.727`", ",", "104.229`", ",", "104.587`", ",", "103.727`", ",", "105.738`", ",", "101.574`", ",", "101.347`", ",", "100.641`", ",", "99.555`", ",", "100.517`", ",", "99.28`", ",", "101.265`", ",", "100.699`", ",", "101.259`", ",", "102.467`", ",", "100.997`", ",", "100.174`", ",", "100.178`", ",", "100.68`", ",", "100.373`", ",", "100.765`", ",", "101.327`", ",", "102.525`", ",", "99.566`", ",", "99.93`", ",", "100.235`", ",", "99.537`", ",", "101.171`"}], "}"}], ",", TemplateBox[{"59"}, "OutputSizeLimit`Skeleton"]}], "}"}], Short[#, 20]& ], BaseStyle->{Deployed -> False}, StripOnInput->False]}, {GridBox[{ { PaneBox[ TagBox[ TooltipBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource[ "FEStrings", "sizeBriefExplanation"], StandardForm], ImageSizeCache->{60., {2., 8.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText", StripOnInput->False], StyleBox[ DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], StandardForm]], DynamicUpdating -> True, LineIndent -> 0, LinebreakAdjustments -> {1., 100, 0, 0, 0}, LineSpacing -> {1, 2}, StripOnInput -> False]], Annotation[#, Style[ Dynamic[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], DynamicUpdating -> True, LineIndent -> 0, LinebreakAdjustments -> {1., 100, 0, 0, 0}, LineSpacing -> {1, 2}], "Tooltip"]& ], Alignment->Center, BaselinePosition->Baseline, ImageSize->{Automatic, {25, Full}}], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm], ImageSizeCache->{54., {0., 8.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 37, 17972568135203120396, 20/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{61., {0., 8.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 37, 17972568135203120396, 20 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{45., {0., 8.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 37, 17972568135203120396, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{46., {18., 10.}}], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm]], StripOnInput->False, DynamicUpdating->True, LineSpacing->{1, 2}, LineIndent->0, LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, {25, Full}}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>FrontEndExecute[{ FrontEnd`SetOptions[ FrontEnd`$FrontEnd, FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], FrontEnd`FrontEndToken["PreferencesDialog"]}], Evaluator->None, Method->"Preemptive"]} }, AutoDelete->False, FrameStyle->GrayLevel[0.85], GridBoxDividers->{"Columns" -> {False, {True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], Offset[1.2], { Offset[0.4]}, Offset[0.2]}}], BaseStyle->"OutputSizeLimit", FrameMargins->{{12, 12}, {0, 15}}, FrameStyle->GrayLevel[0.85], RoundingRadius->5, StripOnInput->False], Deploy, DefaultBaseStyle->"Deploy"], If[17972568135203120396 === $SessionID, Out[37], Message[ MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; Null]]], "Output", CellChangeTimes->{ 3.785580589988492*^9, {3.7855808054368343`*^9, 3.78558082507353*^9}}, CellLabel->"Out[37]=", CellID->771659234] }, Open ]], Cell["Extract some atom types:", "Text", CellChangeTimes->{{3.751956515315048*^9, 3.751956536317786*^9}, { 3.76306599169547*^9, 3.7630660043801622`*^9}, {3.763067067419162*^9, 3.763067070818231*^9}, {3.7855806264093924`*^9, 3.785580628185957*^9}, { 3.78558067444053*^9, 3.7855806757472258`*^9}, {3.785580783346281*^9, 3.7855807844545507`*^9}}, CellID->656281988], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"data", "[", "\"\\"", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "//", "Short"}]], "Input", CellChangeTimes->{ 3.763066024273148*^9, 3.763066089319644*^9, {3.7630661366968937`*^9, 3.763066148393701*^9}, {3.763066955675253*^9, 3.76306696452525*^9}, { 3.7630670067616034`*^9, 3.7630670476809673`*^9}, {3.763067081985668*^9, 3.763067085461883*^9}, {3.763067294307151*^9, 3.763067299532955*^9}, { 3.785573123990923*^9, 3.7855731245972033`*^9}, 3.785576576115425*^9, { 3.785580683035659*^9, 3.785580683625374*^9}, {3.785580716572447*^9, 3.785580726746973*^9}, {3.785580789034284*^9, 3.78558079011854*^9}, { 3.785580834722988*^9, 3.785580836472485*^9}}, CellLabel->"In[38]:=", CellID->1988537299], Cell[BoxData[ TagBox[ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"O\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"S\"\>", ",", "\<\"C\"\>", ",", "\<\"N\"\>", ",", "\<\"C\"\>", ",", RowBox[{"\[LeftSkeleton]", "7497", "\[RightSkeleton]"}], ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"O\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>"}], "}"}], Short]], "Output", CellChangeTimes->{ 3.7855806849662743`*^9, {3.785580720345334*^9, 3.7855807295804043`*^9}, 3.785580791056096*^9, 3.785580837212058*^9}, CellLabel->"Out[38]//Short=", CellID->1711580577] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Neat Examples", "Subsection", CellID->5316679], Cell["\<\ Extract a protein chain and calculate the center of mass of its subunits:\ \>", "Text", CellChangeTimes->{{3.751954456535962*^9, 3.751954487454554*^9}, { 3.7519548565522337`*^9, 3.751954887913721*^9}, {3.7855808935013323`*^9, 3.785580893982135*^9}, {3.785582239820838*^9, 3.785582252172841*^9}, { 3.785582433021554*^9, 3.7855824495680723`*^9}}, CellID->188717845], Cell[BoxData[ RowBox[{ RowBox[{"data", "=", RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"PDBImport\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"PDBImport\""}], ResourceFunction["PDBImport"], BoxID -> "PDBImport", Selectable->False], "[", RowBox[{ "\"\\"", ",", " ", "154"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.751955129452759*^9, 3.751955217626206*^9}, { 3.751955275219222*^9, 3.751955295934573*^9}, {3.751955331804435*^9, 3.751955335700931*^9}, {3.75195540121527*^9, 3.751955435946064*^9}, { 3.751955706015542*^9, 3.751955712550928*^9}, {3.7519561713125267`*^9, 3.751956194909976*^9}, {3.751956416551166*^9, 3.751956418061823*^9}, { 3.7519564689017563`*^9, 3.7519564693715973`*^9}, 3.7519566662873287`*^9, 3.7628732539610643`*^9, {3.763067105235959*^9, 3.76306717332321*^9}, { 3.7630673266136417`*^9, 3.7630673318471727`*^9}, {3.763225497651614*^9, 3.763225499135915*^9}, 3.7632255535095367`*^9, {3.785573129105763*^9, 3.785573129705399*^9}, {3.785580884697173*^9, 3.785580885533084*^9}}, CellLabel->"In[39]:=", CellID->821173213], Cell[BoxData[ RowBox[{ RowBox[{"centermass", "[", RowBox[{"mass_", ",", "coor_"}], "]"}], " ", ":=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"mass", "[", RowBox[{"[", "i", "]"}], "]"}], "*", " ", RowBox[{"coor", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", RowBox[{"Length", "[", "mass", "]"}]}], "}"}]}], "]"}], " ", "/", RowBox[{"Sum", "[", RowBox[{ RowBox[{"mass", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", " ", RowBox[{"i", ",", " ", RowBox[{"Length", "[", "mass", "]"}]}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.751861355770804*^9, 3.7518613656421137`*^9}, 3.751888496186397*^9, {3.751954223573422*^9, 3.751954265652956*^9}, 3.751954976368305*^9, {3.751955037651614*^9, 3.751955048119605*^9}, { 3.785580979021734*^9, 3.785580979715837*^9}, {3.7855819583498383`*^9, 3.785581968088832*^9}}, CellLabel->"In[66]:=", CellID->617645659], Cell[BoxData[{ RowBox[{ RowBox[{"xset", " ", "=", " ", RowBox[{"MapThread", "[", RowBox[{"centermass", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"data", "[", "\"\\"", "]"}], ",", RowBox[{"data", "[", "\"\\"", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"yset", " ", "=", " ", RowBox[{"MapThread", "[", RowBox[{"centermass", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"data", "[", "\"\\"", "]"}], ",", RowBox[{"data", "[", "\"\\"", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"zset", " ", "=", " ", RowBox[{"MapThread", "[", RowBox[{"centermass", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"data", "[", "\"\\"", "]"}], ",", RowBox[{"data", "[", "\"\\"", "]"}]}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{ 3.751954983398837*^9, {3.751955057451919*^9, 3.7519550718090353`*^9}, { 3.751955715988738*^9, 3.751955716886243*^9}, {3.751956219982992*^9, 3.7519562264265738`*^9}, {3.763225515248085*^9, 3.763225549798028*^9}, 3.785576602287882*^9, 3.785576662605744*^9, 3.785576692696356*^9, { 3.785576732958355*^9, 3.785576734558859*^9}, {3.785580983701006*^9, 3.7855809857914667`*^9}, {3.785581098381567*^9, 3.7855811030286293`*^9}, { 3.785581973195204*^9, 3.7855819748035*^9}}, CellLabel->"In[67]:=", CellID->1982124862], Cell[BoxData[ RowBox[{ RowBox[{"cmass", "=", " ", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"xset", ",", " ", "yset", ",", " ", "zset"}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.785581315664321*^9, 3.785581333967181*^9}, { 3.785581568617757*^9, 3.785581573947282*^9}, {3.78558198993067*^9, 3.785581992873929*^9}}, CellLabel->"In[71]:=", CellID->1135730407], Cell["Plot the center of mass of the subunits:", "Text", CellChangeTimes->{{3.751954456535962*^9, 3.751954487454554*^9}, { 3.7519548565522337`*^9, 3.751954887913721*^9}, {3.7519564336360703`*^9, 3.751956449481207*^9}, {3.7855816628899193`*^9, 3.785581666646041*^9}, { 3.785582194263636*^9, 3.7855822190852137`*^9}, {3.785582268561604*^9, 3.785582271827138*^9}}, CellID->67900192], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics3D", "[", " ", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "0.02", "]"}], ",", "Pink", ",", RowBox[{"Point", "[", "cmass", "]"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.7519562406048403`*^9, 3.7519562969753036`*^9}, { 3.751956337929282*^9, 3.751956401880974*^9}, 3.785581141721661*^9, { 3.785581432133913*^9, 3.785581449847767*^9}, {3.785581557572564*^9, 3.785581561337329*^9}, 3.785581997355302*^9}, CellLabel->"In[72]:=", CellID->1425323488], Cell[BoxData[ Graphics3DBox[ {RGBColor[1, 0.5, 0.5], PointSize[0.02], Point3DBox[CompressedData[" 1:eJxllD1oU1EYQIMODqYtdLBq4hAztAREiMS2+MPnIikVEgWH2tbYStRBKVGi g4qg0i6idggIokGw4qS2ahEXPxAjWJAYUBdLhxaKSOkQcGix+i585xGewyO8 R7j3fOedd2PDI0fy60Kh0F7vWu9doy2VidcjR+VVLFXp25iR+R9t3SfGhiR5 6mZ0avWAJAvfcucLSdmdnY6/zeUlsbC4cqbeK0uFlaeX+3r0XqjcdenrSVnd 8SRavzYo74vpK4X5tDb1zJWmW4/L4VKs1t48JPsu/O44t7xLivdnyqnufrkV Xtjv7qtvnj9w99Vf3z+7/812pnqvhjPSeXDPUtrjyH4M18Y9PjgyiYmY4xge rW9yfMXIXNlxzK4d63Qcz1puLDo+ON4td911HDPxgS2Ob6CjNOaeH2o7Pe49 12guFvGe6+TUxa0NfHo9sVb1eDTAo8ajOz/8yTZ4UePRycrZxw1e1Hg0f6f4 1/3+rL942MCrG243x93+cBmvmjdtah5sbfDk7x/k+rT5S7vbf622rd9xPYq8 3O64zKuab8V3YB3FN3OYb8U3c5hvwbd5VfMt+A76ghdf1hf7CL6sL6Uv60it L/ZR3hOe6Asu8y34hst8+x3gg07xHewPfvMq5lvwbR2xrtCXdSTWl88dWBf/ dCTWl+KLrq0v35fNx9x05nPQE3PbfMyNv/844LP5lJ6Y2+Zjbvr1v2++H+YO +PS741yhO+bmXKE75oab84Kug9ysb/36XukaX3ila3xxXtB18DthDtZjDrq2 fnlPnJv+d8L5SNfWL33Qo/4DIwyl7A== "]]}]], "Output", CellChangeTimes->{{3.785581436833193*^9, 3.785581450851507*^9}, 3.78558199911828*^9}, CellLabel->"Out[72]=", CellID->1158964352] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 56, 1, 70, "Subsection",ExpressionUUID->"b86f6b91-edce-45ab-8603-24e58357a0a9", CellID->285421464], Cell[639, 25, 178, 3, 70, "Text",ExpressionUUID->"e40bae1f-d9ed-46ec-bbc4-09663acc6237", CellID->1812908403], Cell[CellGroupData[{ Cell[842, 32, 2370, 56, 70, "Input",ExpressionUUID->"7d5baf47-068b-49ee-a9f9-716f42162d3d", CellID->1735677260], Cell[3215, 90, 10101, 258, 70, "Output",ExpressionUUID->"f20a33bd-33c1-47f8-8c6c-9a0a3987c004", CellID->1231332831] }, Open ]], Cell[13331, 351, 409, 11, 70, "Text",ExpressionUUID->"4eb439b2-feb1-4ab1-9460-09ddd539e94a", CellID->221583938], Cell[CellGroupData[{ Cell[13765, 366, 558, 10, 70, "Input",ExpressionUUID->"ec937cb3-5875-47cd-967f-ff08c09bdd23", CellID->1253662683], Cell[14326, 378, 11710, 271, 70, "Output",ExpressionUUID->"89edca1f-3eea-4fe9-8431-c7525b410432", CellID->771659234] }, Open ]], Cell[26051, 652, 374, 6, 70, "Text",ExpressionUUID->"d703a067-98e8-420c-81c6-920b4587d06c", CellID->656281988], Cell[CellGroupData[{ Cell[26450, 662, 777, 15, 70, "Input",ExpressionUUID->"75f300dd-ed4a-44de-898b-f1162b90f1dc", CellID->1988537299], Cell[27230, 679, 662, 14, 70, "Output",ExpressionUUID->"7c554e41-6387-48a4-ade5-0cc2eb1eca14", CellID->1711580577] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[27941, 699, 53, 1, 70, "Subsection",ExpressionUUID->"1e28cc33-319a-4303-a77e-a68793406366", CellID->5316679], Cell[27997, 702, 382, 7, 70, "Text",ExpressionUUID->"d065b31f-2f81-4877-973c-17efc579d77f", CellID->188717845], Cell[28382, 711, 2789, 62, 70, "Input",ExpressionUUID->"fba0f429-0735-4c6b-8828-a7c3c5222d22", CellID->821173213], Cell[31174, 775, 1049, 28, 70, "Input",ExpressionUUID->"1c034165-c692-4afc-ab88-f0654f171f11", CellID->617645659], Cell[32226, 805, 1497, 37, 70, "Input",ExpressionUUID->"d5cdfb42-0e69-45ee-8b9e-8fc3ca61d731", CellID->1982124862], Cell[33726, 844, 404, 11, 70, "Input",ExpressionUUID->"a72f9bc0-52f2-4798-9ac4-147c99899b17", CellID->1135730407], Cell[34133, 857, 391, 6, 70, "Text",ExpressionUUID->"8bbb6e82-ddf2-43c7-9ffa-b23e27aff3c1", CellID->67900192], Cell[CellGroupData[{ Cell[34549, 867, 516, 11, 70, "Input",ExpressionUUID->"0d3a3f81-ac4a-4f15-9731-fb29d80200a3", CellID->1425323488], Cell[35068, 880, 1086, 21, 70, "Output",ExpressionUUID->"887a4fca-ad6c-4dc4-bbbc-59132d193b6b", CellID->1158964352] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)