(* SCHLÜTER CONSULT REPORT Hartwig Schlüter and Harald Schlüter A Cookbook for Sphere Clusters on the Base of “Mathematica®” Volume 2 The Data of the Appendix of Volume 1 as a txt-File ISBN 978-3-9814911-2-8 CIP-Kurztitelaufnahme der Deutschen Bibliothek Schlüter, Hartwig; Schlüter, Harald A Cookbook for Sphere Clusters on the Base of “Mathematica®”, Volume 2 The Data of the Appendix of Volume 1 as a txt-File Hartwig Schlüter and Harald Schlüter Göttingen 2011 ISBN 978-3-9814911-2-8 SCHLÜTER CONSULT Dr. Hartwig Schlüter, Göttingen Copyright © 2011 SCHLÜTER CONSULT Dr. Hartwig Schlüter. All rights reserved. Only for scientific and for nonprofit educational purposes you may not need to ask permission to use parts of this file, but you still must cite these images, codes and/or the used text! “Wolfram Mathematica®” is a registered trademark of Wolfram Research, Inc. SCHLÜTER CONSULT Dr. Hartwig Schlüter Maschmühlenweg 8-10 D-37073 Göttingen Germany www.schlueter-consult.de Contents 1. INTRODUCTION A2. CLUSTERS WITH ICOSAHEDRAL SYMMETRY A2.1 MACKAY CLUSTERS A2.2 BERGMAN CLUSTERS A2.3 TETRAHEDRON A3. CLUSTERS OF THE 2ND GENERATION A3.1 BUILDING BLOCKS FOR CLUSTERS OF THE 2ND GENERATION A3.1.1 COINCIDENCE SITES A3.1.2 COINCIDENCE SITES OF T2-CLUSTERS{1} A3.1.3 NEAREST NEIGHBOUR T1- AND T2-CLUSTERS{1} WITH 5 COINCIDENCE SITES A3.2 CONSTRUCTION PRINCIPLE OF THE CLUSTERS OF THE 2ND GENERATION A3.3 STEP BY STEP GROWTH OF A T’1-CLUSTER{2} A3.4 STEP BY STEP GROWTH OF A T’2-CLUSTER{2} A4. CLUSTERS OF THE 3RD GENERATION A4.1 TWO BUILDING BLOCKS WITH A COMMON 5-FOLD SYMMETRY AXIS A4.2 TWO T‘1-CLUSTER{2} WITH A COMMON 2-FOLD SYMMETRY AXIS AND TWO COINCIDENCE T2-CLUSTER{1} A4.3 TWO T‘2-CLUSTER{2} WITH A COMMON 2-FOLD SYMMETRY AXIS AND TWO COINCIDENCE T1-CLUSTER{1} A5. CLUSTER LAYERS AND CLUSTER COLUMNS A5.1 LAYERS OF T1-CLUSTERS{1} A5.1 LAYERS OF T1-CLUSTERS{1} - SHIFTED Layer - A5.2 LAYERS OF T2-CLUSTERS{1} A5.2 LAYERS OF T2-CLUSTERS{1} - SHIFTED Layer - 1. Introduction The appendix of “A Cookbook for Sphere Clusters on the base of Mathematica®”, Volume 1, has been transformed into a txt-file. These data can be transferred and adjusted to the software Mathematica® more easily. *) (* ## ## ## ## ## ## ## ## ## ## ## # A2. CLUSTERS WITH ICOSAHEDRAL SYMMETRY A2.1 MACKAY CLUSTERS ## ## ## ## ## ## ## ## ## ## ## ## *) ml20 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* center *) nl20 = {0.5} (* radius *) (* Mackay: 2. shell, spheres:12 *) ml2 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0.951057"}, {"0.850651", "0", "0.425325"}, {"0.262866", "0.809017", "0.425325"}, { RowBox[{"-", "0.688191"}], "0.5", "0.425325"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "0.5"}], "0.425325"}, {"0.262866", RowBox[{"-", "0.809017"}], "0.425325"}, {"0.688191", "0.5", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.262866"}], "0.809017", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.850651"}], "0", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.262866"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "0.425325"}]}, {"0.688191", RowBox[{"-", "0.5"}], RowBox[{"-", "0.425325"}]}, {"0", "0", RowBox[{"-", "0.951057"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nl2 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* radius *) (* Mackay: 3. shell, spheres:30 *) mm3 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.850651", "0", "1.376382"}, {"0.262865", "0.809017", "1.376382"}, { RowBox[{"-", "0.688191"}], "0.5", "1.376382"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "0.5"}], "1.376382"}, {"0.262865", RowBox[{"-", "0.809017"}], "1.376382"}, {"1.113516", "0.809017", "0.850651"}, { RowBox[{"-", "0.425325"}], "1.309017", "0.850651"}, { RowBox[{"-", "1.376382"}], "0", "0.850651"}, { RowBox[{"-", "0.425325"}], RowBox[{"-", "1.309017"}], "0.850651"}, {"1.113516", RowBox[{"-", "0.809017"}], "0.850651"}, {"1.538841", "0.5", "0"}, {"0.951056", "1.309017", "0"}, {"0", "1.618034", "0"}, { RowBox[{"-", "0.951056"}], "1.309017", "0"}, { RowBox[{"-", "1.538841"}], "0.5", "0"}, { RowBox[{"-", "1.538841"}], RowBox[{"-", "0.5"}], "0"}, { RowBox[{"-", "0.951056"}], RowBox[{"-", "1.309017"}], "0"}, {"0", RowBox[{"-", "1.618034"}], "0"}, {"0.951056", RowBox[{"-", "1.309017"}], "0"}, {"1.538841", RowBox[{"-", "0.5"}], "0"}, {"1.376382", "0", RowBox[{"-", "0.850651"}]}, {"0.425325", "1.309017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], "0.809017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "0.850651"}]}, {"0.425325", RowBox[{"-", "1.309017"}], RowBox[{"-", "0.850651"}]}, {"0.688191", "0.5", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.262865"}], "0.809017", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.850651"}], "0", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.262865"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "1.376382"}]}, {"0.688191", RowBox[{"-", "0.5"}], RowBox[{"-", "1.376382"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nm3 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* radius *) (* Mackay 4. shell, spheres:60 *) mn4 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.850651", "0", "2.327438"}, {"0.262866", "0.809017", "2.327438"}, { RowBox[{"-", "0.688191"}], "0.5", "2.327438"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "0.5"}], "2.327438"}, {"0.262866", RowBox[{"-", "0.809017"}], "2.327438"}, {"1.701302", "0", "1.801707"}, {"0.525731", "1.618034", "1.801707"}, { RowBox[{"-", "1.376382"}], "1.", "1.801707"}, { RowBox[{"-", "1.376382"}], RowBox[{"-", "1."}], "1.801707"}, {"0.525731", RowBox[{"-", "1.618034"}], "1.801707"}, {"1.964167", "0.809017", "1.275976"}, {"1.376382", "1.618034", "1.275976"}, { RowBox[{"-", "0.16246"}], "2.118034", "1.275976"}, { RowBox[{"-", "1.113516"}], "1.809017", "1.275976"}, { RowBox[{"-", "2.064573"}], "0.5", "1.275976"}, { RowBox[{"-", "2.064573"}], RowBox[{"-", "0.5"}], "1.275976"}, { RowBox[{"-", "1.113516"}], RowBox[{"-", "1.809017"}], "1.275976"}, { RowBox[{"-", "0.16246"}], RowBox[{"-", "2.118034"}], "1.275976"}, {"1.376382", RowBox[{"-", "1.618034"}], "1.275976"}, {"1.964167", RowBox[{"-", "0.809017"}], "1.275976"}, {"2.389493", "0.5", "0.425325"}, {"1.213922", "2.118034", "0.425325"}, {"0.262866", "2.427051", "0.425325"}, { RowBox[{"-", "1.639247"}], "1.809017", "0.425325"}, { RowBox[{"-", "2.227033"}], "1.", "0.425325"}, { RowBox[{"-", "2.227033"}], RowBox[{"-", "1."}], "0.425325"}, { RowBox[{"-", "1.639247"}], RowBox[{"-", "1.809017"}], "0.425325"}, {"0.262866", RowBox[{"-", "2.427051"}], "0.425325"}, {"1.213922", RowBox[{"-", "2.118034"}], "0.425325"}, {"2.389493", RowBox[{"-", "0.5"}], "0.425325"}, {"2.227033", "1.", RowBox[{"-", "0.425325"}]}, {"1.639247", "1.809017", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.262866"}], "2.427051", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "1.213922"}], "2.118034", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "2.389493"}], "0.5", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "2.389493"}], RowBox[{"-", "0.5"}], RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "1.213922"}], RowBox[{"-", "2.118034"}], RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.262866"}], RowBox[{"-", "2.427051"}], RowBox[{"-", "0.425325"}]}, {"1.639247", RowBox[{"-", "1.809017"}], RowBox[{"-", "0.425325"}]}, {"2.227033", RowBox[{"-", "1."}], RowBox[{"-", "0.425325"}]}, {"2.064573", "0.5", RowBox[{"-", "1.275976"}]}, {"1.113516", "1.809017", RowBox[{"-", "1.275976"}]}, {"0.16246", "2.118034", RowBox[{"-", "1.275976"}]}, { RowBox[{"-", "1.376382"}], "1.618034", RowBox[{"-", "1.275976"}]}, { RowBox[{"-", "1.964167"}], "0.809017", RowBox[{"-", "1.275976"}]}, { RowBox[{"-", "1.964167"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "1.275976"}]}, { RowBox[{"-", "1.376382"}], RowBox[{"-", "1.618034"}], RowBox[{"-", "1.275976"}]}, {"0.16246", RowBox[{"-", "2.118034"}], RowBox[{"-", "1.275976"}]}, {"1.113516", RowBox[{"-", "1.809017"}], RowBox[{"-", "1.275976"}]}, {"2.064573", RowBox[{"-", "0.5"}], RowBox[{"-", "1.275976"}]}, {"1.376382", "1.", RowBox[{"-", "1.801707"}]}, { RowBox[{"-", "0.525731"}], "1.618034", RowBox[{"-", "1.801707"}]}, { RowBox[{"-", "1.701302"}], "0", RowBox[{"-", "1.801707"}]}, { RowBox[{"-", "0.525731"}], RowBox[{"-", "1.618034"}], RowBox[{"-", "1.801707"}]}, {"1.376382", RowBox[{"-", "1."}], RowBox[{"-", "1.801707"}]}, {"0.688191", "0.5", RowBox[{"-", "2.327438"}]}, { RowBox[{"-", "0.262866"}], "0.809017", RowBox[{"-", "2.327438"}]}, { RowBox[{"-", "0.850651"}], "0", RowBox[{"-", "2.327438"}]}, { RowBox[{"-", "0.262866"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "2.327438"}]}, {"0.688191", RowBox[{"-", "0.5"}], RowBox[{"-", "2.327438"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nn4 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* radius *) (* Mackay 5. shell, spheres:20 *) mn61 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.113516", "0.809017", "1.801707"}, { RowBox[{"-", "0.425325"}], "1.309017", "1.801707"}, { RowBox[{"-", "1.376382"}], "0", "1.801707"}, { RowBox[{"-", "0.425325"}], RowBox[{"-", "1.309017"}], "1.801707"}, {"1.113516", RowBox[{"-", "0.809017"}], "1.801707"}, {"1.801708", "1.309017", "0.425325"}, { RowBox[{"-", "0.688191"}], "2.118034", "0.425325"}, { RowBox[{"-", "2.227033"}], "0", "0.425325"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "2.118034"}], "0.425325"}, {"1.801708", RowBox[{"-", "1.309017"}], "0.425325"}, {"2.227033", "0", RowBox[{"-", "0.425325"}]}, {"0.688191", "2.118034", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "1.801708"}], "1.309017", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "1.801708"}], RowBox[{"-", "1.309017"}], RowBox[{"-", "0.425325"}]}, {"0.688191", RowBox[{"-", "2.118034"}], RowBox[{"-", "0.425325"}]}, {"1.376382", "0", RowBox[{"-", "1.801707"}]}, {"0.425325", "1.309017", RowBox[{"-", "1.801707"}]}, { RowBox[{"-", "1.113516"}], "0.809017", RowBox[{"-", "1.801707"}]}, { RowBox[{"-", "1.113516"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "1.801707"}]}, {"0.425325", RowBox[{"-", "1.309017"}], RowBox[{"-", "1.801707"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nn61 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* Mackay 3. shell, Positionen auf 5f-Achsen, spheres: 12 *) mo5 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "1.902114"}, {"1.701302", "0", "0.85065"}, {"0.525732", "1.618034", "0.85065"}, { RowBox[{"-", "1.376382"}], "1.", "0.85065"}, { RowBox[{"-", "1.376382"}], RowBox[{"-", "1."}], "0.85065"}, {"0.525732", RowBox[{"-", "1.618034"}], "0.85065"}, {"1.376382", "1.", RowBox[{"-", "0.85065"}]}, { RowBox[{"-", "0.525732"}], "1.618034", RowBox[{"-", "0.85065"}]}, { RowBox[{"-", "1.701302"}], "0", RowBox[{"-", "0.85065"}]}, { RowBox[{"-", "0.525732"}], RowBox[{"-", "1.618034"}], RowBox[{"-", "0.85065"}]}, {"1.376382", RowBox[{"-", "1."}], RowBox[{"-", "0.85065"}]}, {"0", "0", RowBox[{"-", "1.902114"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) no5 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* radius *) (* Mackay 4. shell, Positionen auf 5f-Achsen, spheres:12 *) mp4 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "2.853171"}, {"2.551953", "0", "1.275978"}, {"0.788598", "2.427051", "1.275978"}, { RowBox[{"-", "2.064573"}], "1.5", "1.275978"}, { RowBox[{"-", "2.064573"}], RowBox[{"-", "1.5"}], "1.275978"}, {"0.788598", RowBox[{"-", "2.427051"}], "1.275978"}, {"2.064573", "1.5", RowBox[{"-", "1.275978"}]}, { RowBox[{"-", "0.788598"}], "2.427051", RowBox[{"-", "1.275978"}]}, { RowBox[{"-", "2.551953"}], "0", RowBox[{"-", "1.275978"}]}, { RowBox[{"-", "0.788598"}], RowBox[{"-", "2.427051"}], RowBox[{"-", "1.275978"}]}, {"2.064573", RowBox[{"-", "1.5"}], RowBox[{"-", "1.275978"}]}, {"0", "0", RowBox[{"-", "2.853171"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) np4 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* radius *) (* Mackay: Center spheres: 1 *) Graphics3D[{Blue, Sphere[ml20, nl20]}] (* Mackay: Center, 1. shell, spheres:12 *) Graphics3D[{Blue, Sphere[ml20, nl20], Green, Sphere[ml2, nl2]}] (* Mackay: Center, 1. shell, spheres:12, 2. shell, spheres:30 *) Graphics3D[{Blue, Sphere[ml20, nl20], Green, Sphere[ml2, nl2], Red, Sphere[mm3, nm3], Green, Sphere[mo5, no5]}] Graphics3D[{ Blue, Sphere[ml20, nl20], Green, Sphere[ml2, nl2], Red, Sphere[mm3, nm3], Red, Sphere[mn4, nn4], Yellow, Sphere[mn61, nn61], Green, Sphere[mo5, no5], Green, Sphere[mp4, np4] }] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## # A2. CLUSTERS WITH ICOSAHEDRAL SYMMETRY A2.2 BERGMAN CLUSTERS ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## *) (* Bergman: „Mackay-Einsatz \[OpenCurlyDoubleQuote], spheres:1 *) ma0 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* center *) na0 = {0.415} (* radius *) (* Bergman: spheres:12 *) ma = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0.7841"}, {"0.7013", "0", "0.3507"}, {"0.2167", "0.667", "0.3507"}, { RowBox[{"-", "0.5674"}], "0.4122", "0.3507"}, { RowBox[{"-", "0.5674"}], RowBox[{"-", "0.4122"}], "0.3507"}, {"0.2167", RowBox[{"-", "0.667"}], "0.3507"}, {"0.5674", "0.4122", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.2167"}], "0.667", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.7013"}], "0", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.2167"}], RowBox[{"-", "0.667"}], RowBox[{"-", "0.3507"}]}, {"0.5674", RowBox[{"-", "0.4122"}], RowBox[{"-", "0.3507"}]}, {"0", "0", RowBox[{"-", "0.7841"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) na = {0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415} (* radius *) (* Bergman: 1. shell, spheres:12 *) mb1 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.6882", "0.5", "1.1135"}, { RowBox[{"-", "0.2629"}], "0.809", "1.1135"}, { RowBox[{"-", "0.8507"}], "0", "1.1135"}, { RowBox[{"-", "0.2629"}], RowBox[{"-", "0.809"}], "1.1135"}, {"0.6882", RowBox[{"-", "0.5"}], "1.1135"}, {"1.1135", "0.809", "0.2629"}, { RowBox[{"-", "0.4253"}], "1.309", "0.2629"}, { RowBox[{"-", "1.3764"}], "0", "0.2629"}, { RowBox[{"-", "0.4253"}], RowBox[{"-", "1.309"}], "0.2629"}, {"1.1135", RowBox[{"-", "0.809"}], "0.2629"}, {"1.3764", "0", RowBox[{"-", "0.2629"}]}, {"0.4253", "1.309", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], "0.809", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], RowBox[{"-", "0.809"}], RowBox[{"-", "0.2629"}]}, {"0.4253", RowBox[{"-", "1.309"}], RowBox[{"-", "0.2629"}]}, {"0.8507", "0", RowBox[{"-", "1.1135"}]}, {"0.2629", "0.809", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], "0.5", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], RowBox[{"-", "0.5"}], RowBox[{"-", "1.1135"}]}, {"0.2629", RowBox[{"-", "0.809"}], RowBox[{"-", "1.1135"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nb1 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* radius *) (* Bergman: 1. shell, spheres: 20 *) b0120 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.6882", "0.5", "1.1135"}, { RowBox[{"-", "0.2629"}], "0.809", "1.1135"}, { RowBox[{"-", "0.8507"}], "0", "1.1135"}, { RowBox[{"-", "0.2629"}], RowBox[{"-", "0.809"}], "1.1135"}, {"0.6882", RowBox[{"-", "0.5"}], "1.1135"}, {"1.1135", "0.809", "0.2629"}, { RowBox[{"-", "0.4253"}], "1.309", "0.2629"}, { RowBox[{"-", "1.3764"}], "0", "0.2629"}, { RowBox[{"-", "0.4253"}], RowBox[{"-", "1.309"}], "0.2629"}, {"1.1135", RowBox[{"-", "0.809"}], "0.2629"}, {"1.3764", "0", RowBox[{"-", "0.2629"}]}, {"0.4253", "1.309", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], "0.809", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], RowBox[{"-", "0.809"}], RowBox[{"-", "0.2629"}]}, {"0.4253", RowBox[{"-", "1.309"}], RowBox[{"-", "0.2629"}]}, {"0.8507", "0", RowBox[{"-", "1.1135"}]}, {"0.2629", "0.809", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], "0.5", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], RowBox[{"-", "0.5"}], RowBox[{"-", "1.1135"}]}, {"0.2629", RowBox[{"-", "0.809"}], RowBox[{"-", "1.1135"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) b0120r = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} e0112 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "1.5388"}, {"1.3764", "0", "0.6882"}, {"0.4253", "1.309", "0.6882"}, { RowBox[{"-", "1.1135"}], "0.809", "0.6882"}, { RowBox[{"-", "1.1135"}], RowBox[{"-", "0.809"}], "0.6882"}, {"0.4253", RowBox[{"-", "1.309"}], "0.6882"}, {"1.1135", "0.809", RowBox[{"-", "0.6882"}]}, { RowBox[{"-", "0.4253"}], "1.309", RowBox[{"-", "0.6882"}]}, { RowBox[{"-", "1.3764"}], "0", RowBox[{"-", "0.6882"}]}, { RowBox[{"-", "0.4253"}], RowBox[{"-", "1.309"}], RowBox[{"-", "0.6882"}]}, {"1.1135", RowBox[{"-", "0.809"}], RowBox[{"-", "0.6882"}]}, {"0", "0", RowBox[{"-", "1.5388"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) e0112r = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* radius *) c0160 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.6882", "0.5", "2.0646"}, { RowBox[{"-", "0.2629"}], "0.809", "2.0646"}, { RowBox[{"-", "0.8507"}], "0", "2.0646"}, { RowBox[{"-", "0.2629"}], RowBox[{"-", "0.809"}], "2.0646"}, {"0.6882", RowBox[{"-", "0.5"}], "2.0646"}, {"1.5388", "0.5", "1.5388"}, {"0.9511", "1.309", "1.5388"}, {"0", "1.618", "1.5388"}, { RowBox[{"-", "0.9511"}], "1.309", "1.5388"}, { RowBox[{"-", "1.5388"}], "0.5", "1.5388"}, { RowBox[{"-", "1.5388"}], RowBox[{"-", "0.5"}], "1.5388"}, { RowBox[{"-", "0.9511"}], RowBox[{"-", "1.309"}], "1.5388"}, {"0", RowBox[{"-", "1.618"}], "1.5388"}, {"0.9511", RowBox[{"-", "1.309"}], "1.5388"}, {"1.5388", RowBox[{"-", "0.5"}], "1.5388"}, {"1.9642", "0.809", "0.6882"}, {"1.3764", "1.618", "0.6882"}, { RowBox[{"-", "0.1625"}], "2.118", "0.6882"}, { RowBox[{"-", "1.1135"}], "1.809", "0.6882"}, { RowBox[{"-", "2.0646"}], "0.5", "0.6882"}, { RowBox[{"-", "2.0646"}], RowBox[{"-", "0.5"}], "0.6882"}, { RowBox[{"-", "1.1135"}], RowBox[{"-", "1.809"}], "0.6882"}, { RowBox[{"-", "0.1625"}], RowBox[{"-", "2.118"}], "0.6882"}, {"1.3764", RowBox[{"-", "1.618"}], "0.6882"}, {"1.9642", RowBox[{"-", "0.809"}], "0.6882"}, {"2.227", "0", "0.1624"}, {"0.6882", "2.118", "0.1624"}, { RowBox[{"-", "1.8017"}], "1.309", "0.1624"}, { RowBox[{"-", "1.8017"}], RowBox[{"-", "1.309"}], "0.1624"}, {"0.6882", RowBox[{"-", "2.118"}], "0.1624"}, {"1.8017", "1.309", RowBox[{"-", "0.1624"}]}, { RowBox[{"-", "0.6882"}], "2.118", RowBox[{"-", "0.1624"}]}, { RowBox[{"-", "2.227"}], "0", RowBox[{"-", "0.1624"}]}, { RowBox[{"-", "0.6882"}], RowBox[{"-", "2.118"}], RowBox[{"-", "0.1624"}]}, {"1.8017", RowBox[{"-", "1.309"}], RowBox[{"-", "0.1624"}]}, {"2.0646", "0.5", RowBox[{"-", "0.6882"}]}, {"1.1135", "1.809", RowBox[{"-", "0.6882"}]}, {"0.1625", "2.118", RowBox[{"-", "0.6882"}]}, { RowBox[{"-", "1.3764"}], "1.618", RowBox[{"-", "0.6882"}]}, { RowBox[{"-", "1.9642"}], "0.809", RowBox[{"-", "0.6882"}]}, { RowBox[{"-", "1.9642"}], RowBox[{"-", "0.809"}], RowBox[{"-", "0.6882"}]}, { RowBox[{"-", "1.3764"}], RowBox[{"-", "1.618"}], RowBox[{"-", "0.6882"}]}, {"0.1625", RowBox[{"-", "2.118"}], RowBox[{"-", "0.6882"}]}, {"1.1135", RowBox[{"-", "1.809"}], RowBox[{"-", "0.6882"}]}, {"2.0646", RowBox[{"-", "0.5"}], RowBox[{"-", "0.6882"}]}, {"1.5388", "0.5", RowBox[{"-", "1.5388"}]}, {"0.9511", "1.309", RowBox[{"-", "1.5388"}]}, {"0", "1.618", RowBox[{"-", "1.5388"}]}, { RowBox[{"-", "0.9511"}], "1.309", RowBox[{"-", "1.5388"}]}, { RowBox[{"-", "1.5388"}], "0.5", RowBox[{"-", "1.5388"}]}, { RowBox[{"-", "1.5388"}], RowBox[{"-", "0.5"}], RowBox[{"-", "1.5388"}]}, { RowBox[{"-", "0.9511"}], RowBox[{"-", "1.309"}], RowBox[{"-", "1.5388"}]}, {"0", RowBox[{"-", "1.618"}], RowBox[{"-", "1.5388"}]}, {"0.9511", RowBox[{"-", "1.309"}], RowBox[{"-", "1.5388"}]}, {"1.5388", RowBox[{"-", "0.5"}], RowBox[{"-", "1.5388"}]}, {"0.8507", "0", RowBox[{"-", "2.0646"}]}, {"0.2629", "0.809", RowBox[{"-", "2.0646"}]}, { RowBox[{"-", "0.6882"}], "0.5", RowBox[{"-", "2.0646"}]}, { RowBox[{"-", "0.6882"}], RowBox[{"-", "0.5"}], RowBox[{"-", "2.0646"}]}, {"0.2629", RowBox[{"-", "0.809"}], RowBox[{"-", "2.0646"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) c0160r = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* radius *) d0160 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.5388", "0.5", "2.4899"}, {"0.9511", "1.309", "2.4899"}, {"0", "1.618", "2.4899"}, { RowBox[{"-", "0.9511"}], "1.309", "2.4899"}, { RowBox[{"-", "1.5388"}], "0.5", "2.4899"}, { RowBox[{"-", "1.5388"}], RowBox[{"-", "0.5"}], "2.4899"}, { RowBox[{"-", "0.9511"}], RowBox[{"-", "1.309"}], "2.4899"}, {"0", RowBox[{"-", "1.618"}], "2.4899"}, {"0.9511", RowBox[{"-", "1.309"}], "2.4899"}, {"1.5388", RowBox[{"-", "0.5"}], "2.4899"}, {"1.8017", "1.309", "1.9642"}, { RowBox[{"-", "0.6882"}], "2.118", "1.9642"}, { RowBox[{"-", "2.227"}], "0", "1.9642"}, { RowBox[{"-", "0.6882"}], RowBox[{"-", "2.118"}], "1.9642"}, {"1.8017", RowBox[{"-", "1.309"}], "1.9642"}, {"2.227", "1.618", "1.1135"}, { RowBox[{"-", "0.8507"}], "2.618", "1.1135"}, { RowBox[{"-", "2.7528"}], "0", "1.1135"}, { RowBox[{"-", "0.8507"}], RowBox[{"-", "2.618"}], "1.1135"}, {"2.227", RowBox[{"-", "1.618"}], "1.1135"}, {"2.6524", "1.309", "0.2629"}, {"2.0646", "2.118", "0.2629"}, { RowBox[{"-", "0.4253"}], "2.927", "0.2629"}, { RowBox[{"-", "1.3764"}], "2.618", "0.2629"}, { RowBox[{"-", "2.9152"}], "0.5", "0.2629"}, { RowBox[{"-", "2.9152"}], RowBox[{"-", "0.5"}], "0.2629"}, { RowBox[{"-", "1.3764"}], RowBox[{"-", "2.618"}], "0.2629"}, { RowBox[{"-", "0.4253"}], RowBox[{"-", "2.927"}], "0.2629"}, {"2.0646", RowBox[{"-", "2.118"}], "0.2629"}, {"2.6524", RowBox[{"-", "1.309"}], "0.2629"}, {"2.9152", "0.5", RowBox[{"-", "0.2629"}]}, {"1.3764", "2.618", RowBox[{"-", "0.2629"}]}, {"0.4253", "2.927", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "2.0646"}], "2.118", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "2.6524"}], "1.309", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "2.6524"}], RowBox[{"-", "1.309"}], RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "2.0646"}], RowBox[{"-", "2.118"}], RowBox[{"-", "0.2629"}]}, {"0.4253", RowBox[{"-", "2.927"}], RowBox[{"-", "0.2629"}]}, {"1.3764", RowBox[{"-", "2.618"}], RowBox[{"-", "0.2629"}]}, {"2.9152", RowBox[{"-", "0.5"}], RowBox[{"-", "0.2629"}]}, {"2.7528", "0", RowBox[{"-", "1.1135"}]}, {"0.8507", "2.618", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "2.227"}], "1.618", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "2.227"}], RowBox[{"-", "1.618"}], RowBox[{"-", "1.1135"}]}, {"0.8507", RowBox[{"-", "2.618"}], RowBox[{"-", "1.1135"}]}, {"2.227", "0", RowBox[{"-", "1.9642"}]}, {"0.6882", "2.118", RowBox[{"-", "1.9642"}]}, { RowBox[{"-", "1.8017"}], "1.309", RowBox[{"-", "1.9642"}]}, { RowBox[{"-", "1.8017"}], RowBox[{"-", "1.309"}], RowBox[{"-", "1.9642"}]}, {"0.6882", RowBox[{"-", "2.118"}], RowBox[{"-", "1.9642"}]}, {"1.5388", "0.5", RowBox[{"-", "2.4899"}]}, {"0.9511", "1.309", RowBox[{"-", "2.4899"}]}, {"0", "1.618", RowBox[{"-", "2.4899"}]}, { RowBox[{"-", "0.9511"}], "1.309", RowBox[{"-", "2.4899"}]}, { RowBox[{"-", "1.5388"}], "0.5", RowBox[{"-", "2.4899"}]}, { RowBox[{"-", "1.5388"}], RowBox[{"-", "0.5"}], RowBox[{"-", "2.4899"}]}, { RowBox[{"-", "0.9511"}], RowBox[{"-", "1.309"}], RowBox[{"-", "2.4899"}]}, {"0", RowBox[{"-", "1.618"}], RowBox[{"-", "2.4899"}]}, {"0.9511", RowBox[{"-", "1.309"}], RowBox[{"-", "2.4899"}]}, {"1.5388", RowBox[{"-", "0.5"}], RowBox[{"-", "2.4899"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) d0160r = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* radius *) f0112 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "2.4899"}, {"2.227", "0", "1.1135"}, {"0.6882", "2.118", "1.1135"}, { RowBox[{"-", "1.8017"}], "1.309", "1.1135"}, { RowBox[{"-", "1.8017"}], RowBox[{"-", "1.309"}], "1.1135"}, {"0.6882", RowBox[{"-", "2.118"}], "1.1135"}, {"1.8017", "1.309", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], "2.118", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "2.227"}], "0", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], RowBox[{"-", "2.118"}], RowBox[{"-", "1.1135"}]}, {"1.8017", RowBox[{"-", "1.309"}], RowBox[{"-", "1.1135"}]}, {"0", "0", RowBox[{"-", "2.4899"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) f0112r = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} h60 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.6882", "0.5", "3.0157"}, { RowBox[{"-", "0.2629"}], "0.809", "3.0157"}, { RowBox[{"-", "0.8507"}], "0", "3.0157"}, { RowBox[{"-", "0.2629"}], RowBox[{"-", "0.809"}], "3.0157"}, {"0.6882", RowBox[{"-", "0.5"}], "3.0157"}, {"2.3894", "0.5", "1.9641"}, {"1.214", "2.118", "1.9641"}, {"0.2629", "2.427", "1.9641"}, { RowBox[{"-", "1.6393"}], "1.809", "1.9641"}, { RowBox[{"-", "2.2296"}], "1.", "1.9641"}, { RowBox[{"-", "2.2296"}], RowBox[{"-", "1."}], "1.9641"}, { RowBox[{"-", "1.6393"}], RowBox[{"-", "1.809"}], "1.9641"}, {"0.2629", RowBox[{"-", "2.427"}], "1.9641"}, {"1.214", RowBox[{"-", "2.118"}], "1.9641"}, {"2.3894", RowBox[{"-", "0.5"}], "1.9641"}, {"2.8149", "0.809", "1.1135"}, {"1.6393", "2.427", "1.1135"}, {"0.1003", "2.927", "1.1135"}, { RowBox[{"-", "1.8017"}], "2.309", "1.1135"}, { RowBox[{"-", "2.7528"}], "1.", "1.1135"}, { RowBox[{"-", "2.7528"}], RowBox[{"-", "1."}], "1.1135"}, { RowBox[{"-", "1.8017"}], RowBox[{"-", "2.309"}], "1.1135"}, {"0.1003", RowBox[{"-", "2.927"}], "1.1135"}, {"1.6393", RowBox[{"-", "2.427"}], "1.1135"}, {"2.8149", RowBox[{"-", "0.809"}], "1.1135"}, {"3.0776", "0", "0.5877"}, {"0.9511", "2.927", "0.5877"}, { RowBox[{"-", "2.4899"}], "1.809", "0.5877"}, { RowBox[{"-", "2.4899"}], RowBox[{"-", "1.809"}], "0.5877"}, {"0.9511", RowBox[{"-", "2.927"}], "0.5877"}, {"2.4899", "1.809", RowBox[{"-", "0.5877"}]}, {"0.9511", "2.927", RowBox[{"-", "0.5877"}]}, { RowBox[{"-", "3.0776"}], "0", RowBox[{"-", "0.5877"}]}, { RowBox[{"-", "0.9511"}], RowBox[{"-", "2.927"}], RowBox[{"-", "0.5877"}]}, {"2.4899", RowBox[{"-", "1.809"}], RowBox[{"-", "0.5877"}]}, {"2.7528", "1.", RowBox[{"-", "1.1135"}]}, {"1.8017", "2.309", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.1003"}], "2.927", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "1.6393"}], "2.427", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "2.8149"}], "0.809", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "2.8149"}], RowBox[{"-", "0.809"}], RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "1.6393"}], RowBox[{"-", "2.427"}], RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.1003"}], RowBox[{"-", "2.927"}], RowBox[{"-", "1.1135"}]}, {"1.8017", RowBox[{"-", "2.309"}], RowBox[{"-", "1.1135"}]}, {"2.7528", RowBox[{"-", "1."}], RowBox[{"-", "1.1135"}]}, {"2.2296", "1.", RowBox[{"-", "1.9641"}]}, {"1.6393", "1.809", RowBox[{"-", "1.9641"}]}, { RowBox[{"-", "0.2629"}], "2.427", RowBox[{"-", "1.9641"}]}, { RowBox[{"-", "1.214"}], "2.118", RowBox[{"-", "1.9641"}]}, { RowBox[{"-", "2.3894"}], "0.5", RowBox[{"-", "1.9641"}]}, { RowBox[{"-", "2.3894"}], RowBox[{"-", "0.5"}], RowBox[{"-", "1.9641"}]}, { RowBox[{"-", "1.214"}], RowBox[{"-", "2.118"}], RowBox[{"-", "1.9641"}]}, { RowBox[{"-", "0.2629"}], RowBox[{"-", "2.427"}], RowBox[{"-", "1.9641"}]}, {"1.6393", RowBox[{"-", "1.809"}], RowBox[{"-", "1.9641"}]}, {"2.2296", RowBox[{"-", "1."}], RowBox[{"-", "1.9641"}]}, {"0.8507", "0", RowBox[{"-", "3.0157"}]}, {"0.2629", "0.809", RowBox[{"-", "3.0157"}]}, { RowBox[{"-", "0.6882"}], "0.5", RowBox[{"-", "3.0157"}]}, { RowBox[{"-", "0.6882"}], RowBox[{"-", "0.5"}], RowBox[{"-", "3.0157"}]}, {"0.2629", RowBox[{"-", "0.809"}], RowBox[{"-", "3.0157"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nh60 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* radius *) (* spheres:12 *) Graphics3D[{Blue, Sphere[mb1, nb1]}] (* Bergman: spheres:12 plus center *) Graphics3D[{Pink, Sphere[ma0, na0], Pink, Sphere[ma, na]}] (* Bergmann Baustein für Cluster 2. Generation *) Graphics3D[{Pink, Sphere[ma, na], Blue, Sphere[mb1, nb1]}] Graphics3D[{Blue, Sphere[b0120, b0120r], Orange, Sphere[e0112, e0112r], Green, Sphere[c0160, c0160r]}] Graphics3D[{Blue, Sphere[b0120, b0120r], Orange, Sphere[e0112, e0112r], Green, Sphere[c0160, c0160r], Red, Sphere[d0160, d0160r], Orange, Sphere[f0112, f0112r]}] Graphics3D[{Blue, Sphere[b0120, b0120r], Orange, Sphere[e0112, e0112r], Green, Sphere[c0160, c0160r], Red, Sphere[d0160, d0160r], Orange, Sphere[f0112, f0112r], Green, Sphere[h60, nh60]}] (* ## ## ## ## ## ## # A2. CLUSTERS WITH ICOSAHEDRAL SYMMETRY A2.3 TETRAHEDRON ## ## ## ## ## ## ## *) ml20McKTetraeder = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nl20McKT = {0.5} ml2McKTetraeder = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0.951057"}, {"0.850651", "0", "0.425325"}, {"0.262866", RowBox[{"-", "0.809017"}], "0.425325"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nl2McKT = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} mm3McKTetraeder = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.850651", "0", "1.376382"}, {"0.262865", RowBox[{"-", "0.809017"}], "1.376382"}, {"1.113516", RowBox[{"-", "0.809017"}], "0.850651"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nm3McKT = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} mn4McKTetraeder = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.850651", "0", "2.327438"}, {"0.262866", RowBox[{"-", "0.809017"}], "2.327438"}, {"1.701302", "0", "1.801707"}, {"0.525731", RowBox[{"-", "1.618034"}], "1.801707"}, {"1.376382", RowBox[{"-", "1.618034"}], "1.275976"}, {"1.964167", RowBox[{"-", "0.809017"}], "1.275976"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nn4McKT = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} mn61McKTetraeder = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.113516", RowBox[{"-", "0.809017"}], "1.801707"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nn61McKT = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} mo5McKTetraeder = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "1.902114"}, {"1.701302", "0", "0.85065"}, {"0.525732", RowBox[{"-", "1.618034"}], "0.85065"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) no5McKT = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} mp4McKTetraeder = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "2.853171"}, {"2.551953", "0", "1.275978"}, {"0.788598", RowBox[{"-", "2.427051"}], "1.275978"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) np4McKT = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* 3D Spheres *) Graphics3D[{Blue, Sphere[ml20McKTetraeder, nl20McKT], Green, Sphere[ml2McKTetraeder, nl2McKT], Red, Sphere[mm3McKTetraeder, nm3McKT], Red, Sphere[mn4McKTetraeder, nn4McKT], Yellow, Sphere[mn61McKTetraeder, nn61McKT], Green, Sphere[mo5McKTetraeder, no5McKT], Green, Sphere[mp4McKTetraeder, np4McKT]}] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## # A3. CLUSTERS OF THE 2ND GENERATION A3.1 BUILDING BLOCKS FOR CLUSTERS OF THE 2ND GENERATION A3.1.1 COINCIDENCE SITES - coordinates - ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## *) ml20 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* center *) nl20 = {0.5} (* radius *) (* Mackay: 2. shell, spheres:12 *) ml2 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0.951057"}, {"0.850651", "0", "0.425325"}, {"0.262866", "0.809017", "0.425325"}, { RowBox[{"-", "0.688191"}], "0.5", "0.425325"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "0.5"}], "0.425325"}, {"0.262866", RowBox[{"-", "0.809017"}], "0.425325"}, {"0.688191", "0.5", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.262866"}], "0.809017", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.850651"}], "0", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.262866"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "0.425325"}]}, {"0.688191", RowBox[{"-", "0.5"}], RowBox[{"-", "0.425325"}]}, {"0", "0", RowBox[{"-", "0.951057"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nl2 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* radius *) mm3 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.850651", "0", "1.376382"}, {"0.262865", "0.809017", "1.376382"}, { RowBox[{"-", "0.688191"}], "0.5", "1.376382"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "0.5"}], "1.376382"}, {"0.262865", RowBox[{"-", "0.809017"}], "1.376382"}, {"1.113516", "0.809017", "0.850651"}, { RowBox[{"-", "0.425325"}], "1.309017", "0.850651"}, { RowBox[{"-", "1.376382"}], "0", "0.850651"}, { RowBox[{"-", "0.425325"}], RowBox[{"-", "1.309017"}], "0.850651"}, {"1.113516", RowBox[{"-", "0.809017"}], "0.850651"}, {"1.538841", "0.5", "0"}, {"0.951056", "1.309017", "0"}, {"0", "1.618034", "0"}, { RowBox[{"-", "0.951056"}], "1.309017", "0"}, { RowBox[{"-", "1.538841"}], "0.5", "0"}, { RowBox[{"-", "1.538841"}], RowBox[{"-", "0.5"}], "0"}, { RowBox[{"-", "0.951056"}], RowBox[{"-", "1.309017"}], "0"}, {"0", RowBox[{"-", "1.618034"}], "0"}, {"0.951056", RowBox[{"-", "1.309017"}], "0"}, {"1.538841", RowBox[{"-", "0.5"}], "0"}, {"1.376382", "0", RowBox[{"-", "0.850651"}]}, {"0.425325", "1.309017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], "0.809017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "0.850651"}]}, {"0.425325", RowBox[{"-", "1.309017"}], RowBox[{"-", "0.850651"}]}, {"0.688191", "0.5", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.262865"}], "0.809017", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.850651"}], "0", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.262865"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "1.376382"}]}, {"0.688191", RowBox[{"-", "0.5"}], RowBox[{"-", "1.376382"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nm3 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* radius *) ma0 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* center *) na0 = {0.415} (* radius *) (* Bergman: spheres:12 *) ma = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0.7841"}, {"0.7013", "0", "0.3507"}, {"0.2167", "0.667", "0.3507"}, { RowBox[{"-", "0.5674"}], "0.4122", "0.3507"}, { RowBox[{"-", "0.5674"}], RowBox[{"-", "0.4122"}], "0.3507"}, {"0.2167", RowBox[{"-", "0.667"}], "0.3507"}, {"0.5674", "0.4122", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.2167"}], "0.667", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.7013"}], "0", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.2167"}], RowBox[{"-", "0.667"}], RowBox[{"-", "0.3507"}]}, {"0.5674", RowBox[{"-", "0.4122"}], RowBox[{"-", "0.3507"}]}, {"0", "0", RowBox[{"-", "0.7841"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) na = {0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415} (* radius *) (* Bergman: 1. shell, spheres:12 *) mb1 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.6882", "0.5", "1.1135"}, { RowBox[{"-", "0.2629"}], "0.809", "1.1135"}, { RowBox[{"-", "0.8507"}], "0", "1.1135"}, { RowBox[{"-", "0.2629"}], RowBox[{"-", "0.809"}], "1.1135"}, {"0.6882", RowBox[{"-", "0.5"}], "1.1135"}, {"1.1135", "0.809", "0.2629"}, { RowBox[{"-", "0.4253"}], "1.309", "0.2629"}, { RowBox[{"-", "1.3764"}], "0", "0.2629"}, { RowBox[{"-", "0.4253"}], RowBox[{"-", "1.309"}], "0.2629"}, {"1.1135", RowBox[{"-", "0.809"}], "0.2629"}, {"1.3764", "0", RowBox[{"-", "0.2629"}]}, {"0.4253", "1.309", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], "0.809", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], RowBox[{"-", "0.809"}], RowBox[{"-", "0.2629"}]}, {"0.4253", RowBox[{"-", "1.309"}], RowBox[{"-", "0.2629"}]}, {"0.8507", "0", RowBox[{"-", "1.1135"}]}, {"0.2629", "0.809", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], "0.5", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], RowBox[{"-", "0.5"}], RowBox[{"-", "1.1135"}]}, {"0.2629", RowBox[{"-", "0.809"}], RowBox[{"-", "1.1135"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nb1 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* radius *) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## Clusters of the 2nd Generation Coincidence Sites - 3D Graphics - ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## # *) Graphics3D[{Cyan, Sphere[ml20, nl20], Cyan, Sphere[ml2, nl2], Yellow, Sphere[mm3, nm3]}] Graphics3D[{Pink, Sphere[ma, na], Yellow, Sphere[mb1, nb1]}] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## Clusters of the 2nd Generation Coincidence Sites - coordinates - ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## # *) Y1ml2 = 5 Y1mm3 = 5 ml20Y1ml2 = \!\(\* TagBox[ RowBox[{ RowBox[{"(", "", GridBox[{ {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], "+", RowBox[{"(", "", GridBox[{ {"0", "Y1ml2", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}]}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Y1ml2 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0.951057"}, {"0.850651", "0", "0.425325"}, {"0.262866", "0.809017", "0.425325"}, { RowBox[{"-", "0.688191"}], "0.5", "0.425325"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "0.5"}], "0.425325"}, {"0.262866", RowBox[{"-", "0.809017"}], "0.425325"}, {"0.688191", "0.5", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.262866"}], "0.809017", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.850651"}], "0", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.262866"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "0.425325"}]}, {"0.688191", RowBox[{"-", "0.5"}], RowBox[{"-", "0.425325"}]}, {"0", "0", RowBox[{"-", "0.951057"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "Y1ml2", "0"}, {"0", "Y1ml2", "0"}, {"0", "Y1ml2", "0"}, {"0", "Y1ml2", "0"}, {"0", "Y1ml2", "0"}, {"0", "Y1ml2", "0"}, {"0", "Y1ml2", "0"}, {"0", "Y1ml2", "0"}, {"0", "Y1ml2", "0"}, {"0", "Y1ml2", "0"}, {"0", "Y1ml2", "0"}, {"0", "Y1ml2", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mm3Y1mm3 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.850651", "0", "1.376382"}, {"0.262865", "0.809017", "1.376382"}, { RowBox[{"-", "0.688191"}], "0.5", "1.376382"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "0.5"}], "1.376382"}, {"0.262865", RowBox[{"-", "0.809017"}], "1.376382"}, {"1.113516", "0.809017", "0.850651"}, { RowBox[{"-", "0.425325"}], "1.309017", "0.850651"}, { RowBox[{"-", "1.376382"}], "0", "0.850651"}, { RowBox[{"-", "0.425325"}], RowBox[{"-", "1.309017"}], "0.850651"}, {"1.113516", RowBox[{"-", "0.809017"}], "0.850651"}, {"1.538841", "0.5", "0"}, {"0.951056", "1.309017", "0"}, {"0", "1.618034", "0"}, { RowBox[{"-", "0.951056"}], "1.309017", "0"}, { RowBox[{"-", "1.538841"}], "0.5", "0"}, { RowBox[{"-", "1.538841"}], RowBox[{"-", "0.5"}], "0"}, { RowBox[{"-", "0.951056"}], RowBox[{"-", "1.309017"}], "0"}, {"0", RowBox[{"-", "1.618034"}], "0"}, {"0.951056", RowBox[{"-", "1.309017"}], "0"}, {"1.538841", RowBox[{"-", "0.5"}], "0"}, {"1.376382", "0", RowBox[{"-", "0.850651"}]}, {"0.425325", "1.309017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], "0.809017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "0.850651"}]}, {"0.425325", RowBox[{"-", "1.309017"}], RowBox[{"-", "0.850651"}]}, {"0.688191", "0.5", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.262865"}], "0.809017", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.850651"}], "0", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.262865"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "1.376382"}]}, {"0.688191", RowBox[{"-", "0.5"}], RowBox[{"-", "1.376382"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"}, {"0", "Y1mm3", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## # - 3D Graphics - ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## *) Graphics3D[{Cyan, Sphere[ml20, nl20], Cyan, Sphere[ml2, nl2], Yellow, Sphere[mm3, nm3], Cyan, Sphere[ml20Y1ml2, nl20], Cyan, Sphere[ml2Y1ml2, nl2], Yellow, Sphere[mm3Y1mm3, nm3]}] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## # Clusters of the 2nd Generation Coincidence Sites - coordinates - ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## *) Y2ml2 = 4.5 Y2mm3 = 4.5 ml20Y2ml2 = \!\(\* TagBox[ RowBox[{ RowBox[{"(", "", GridBox[{ {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], "+", RowBox[{"(", "", GridBox[{ {"0", "Y2ml2", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}]}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Y2ml2 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0.951057"}, {"0.850651", "0", "0.425325"}, {"0.262866", "0.809017", "0.425325"}, { RowBox[{"-", "0.688191"}], "0.5", "0.425325"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "0.5"}], "0.425325"}, {"0.262866", RowBox[{"-", "0.809017"}], "0.425325"}, {"0.688191", "0.5", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.262866"}], "0.809017", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.850651"}], "0", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.262866"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "0.425325"}]}, {"0.688191", RowBox[{"-", "0.5"}], RowBox[{"-", "0.425325"}]}, {"0", "0", RowBox[{"-", "0.951057"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "Y2ml2", "0"}, {"0", "Y2ml2", "0"}, {"0", "Y2ml2", "0"}, {"0", "Y2ml2", "0"}, {"0", "Y2ml2", "0"}, {"0", "Y2ml2", "0"}, {"0", "Y2ml2", "0"}, {"0", "Y2ml2", "0"}, {"0", "Y2ml2", "0"}, {"0", "Y2ml2", "0"}, {"0", "Y2ml2", "0"}, {"0", "Y2ml2", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* (-y) ohne gelbe Koinzidenzplatzkugeln *) YellowMinusYmm3 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.850651", "0", "1.376382"}, {"0.262865", "0.809017", "1.376382"}, { RowBox[{"-", "0.688191"}], "0.5", "1.376382"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "0.5"}], "1.376382"}, {"0.262865", RowBox[{"-", "0.809017"}], "1.376382"}, {"1.113516", "0.809017", "0.850651"}, { RowBox[{"-", "1.376382"}], "0", "0.850651"}, { RowBox[{"-", "0.425325"}], RowBox[{"-", "1.309017"}], "0.850651"}, {"1.113516", RowBox[{"-", "0.809017"}], "0.850651"}, {"1.538841", "0.5", "0"}, { RowBox[{"-", "1.538841"}], "0.5", "0"}, { RowBox[{"-", "1.538841"}], RowBox[{"-", "0.5"}], "0"}, { RowBox[{"-", "0.951056"}], RowBox[{"-", "1.309017"}], "0"}, {"0", RowBox[{"-", "1.618034"}], "0"}, {"0.951056", RowBox[{"-", "1.309017"}], "0"}, {"1.538841", RowBox[{"-", "0.5"}], "0"}, {"1.376382", "0", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], "0.809017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "0.850651"}]}, {"0.425325", RowBox[{"-", "1.309017"}], RowBox[{"-", "0.850651"}]}, {"0.688191", "0.5", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.262865"}], "0.809017", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.850651"}], "0", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.262865"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "1.376382"}]}, {"0.688191", RowBox[{"-", "0.5"}], RowBox[{"-", "1.376382"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* (+y) rote Koinzidenzplatzkugeln ohne Zentrumskugel *) Red4mm3Y2mm3 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "0.425325"}], RowBox[{"-", "1.309017"}], "0.850651"}, { RowBox[{"-", "0.951056"}], RowBox[{"-", "1.309017"}], "0"}, {"0.951056", RowBox[{"-", "1.309017"}], "0"}, {"0.425325", RowBox[{"-", "1.309017"}], RowBox[{"-", "0.850651"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "Y2mm3", "0"}, {"0", "Y2mm3", "0"}, {"0", "Y2mm3", "0"}, {"0", "Y2mm3", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* (-y) rote Koinzidenzplatzkugeln ohne Zentrumskugel *) mm3Y24Red = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "0.425325"}], "1.309017", "0.850651"}, {"0.951056", "1.309017", "0"}, { RowBox[{"-", "0.951056"}], "1.309017", "0"}, {"0.425325", "1.309017", RowBox[{"-", "0.850651"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) Yellowmm3Y2mm3 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.850651", "0", "1.376382"}, {"0.262865", "0.809017", "1.376382"}, { RowBox[{"-", "0.688191"}], "0.5", "1.376382"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "0.5"}], "1.376382"}, {"0.262865", RowBox[{"-", "0.809017"}], "1.376382"}, {"1.113516", "0.809017", "0.850651"}, { RowBox[{"-", "0.425325"}], "1.309017", "0.850651"}, { RowBox[{"-", "1.376382"}], "0", "0.850651"}, {"1.113516", RowBox[{"-", "0.809017"}], "0.850651"}, {"1.538841", "0.5", "0"}, {"0.951056", "1.309017", "0"}, {"0", "1.618034", "0"}, { RowBox[{"-", "0.951056"}], "1.309017", "0"}, { RowBox[{"-", "1.538841"}], "0.5", "0"}, { RowBox[{"-", "1.538841"}], RowBox[{"-", "0.5"}], "0"}, {"1.538841", RowBox[{"-", "0.5"}], "0"}, {"1.376382", "0", RowBox[{"-", "0.850651"}]}, {"0.425325", "1.309017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], "0.809017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "0.850651"}]}, {"0.688191", "0.5", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.262865"}], "0.809017", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.850651"}], "0", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.262865"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "1.376382"}]}, {"0.688191", RowBox[{"-", "0.5"}], RowBox[{"-", "1.376382"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "Y2mm3", "0"}, {"0", "Y2mm3", "0"}, {"0", "Y2mm3", "0"}, {"0", "Y2mm3", "0"}, {"0", "Y2mm3", "0"}, {"0", "Y2mm3", "0"}, {"0", "Y2mm3", "0"}, {"0", "Y2mm3", "0"}, {"0", "Y2mm3", "0"}, {"0", "Y2mm3", "0"}, {"0", "Y2mm3", "0"}, {"0", "Y2mm3", "0"}, {"0", "Y2mm3", "0"}, {"0", "Y2mm3", "0"}, {"0", "Y2mm3", "0"}, {"0", "Y2mm3", "0"}, {"0", "Y2mm3", "0"}, {"0", "Y2mm3", "0"}, {"0", "Y2mm3", "0"}, {"0", "Y2mm3", "0"}, {"0", "Y2mm3", "0"}, {"0", "Y2mm3", "0"}, {"0", "Y2mm3", "0"}, {"0", "Y2mm3", "0"}, {"0", "Y2mm3", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## # Clusters of the 2nd Generation Coincidence Sites - 3D Graphics - ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## *) Graphics3D[{ Cyan, Sphere[ml20, nl20], Cyan, Sphere[ml2, nl2], Yellow, Sphere[YellowMinusYmm3, nm3], Cyan, Sphere[ml20Y2ml2, nl20], Cyan, Sphere[ml2Y2ml2, nl2], Red, Sphere[Red4mm3Y2mm3, nm3], Red, Sphere[mm3Y24Red, nm3], Yellow, Sphere[Yellowmm3Y2mm3, nm3] }] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## Clusters of the 2nd Generation Coincidence Sites - coordinates - ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## # *) Y3aml2 = Y2mm3 Y3amm3 = Y2mm3 Y0mm3 = 1.309017 Y1mm3 = 1.309017 Y2mm3 = Y0mm3 + Y1mm3 Y3ml2 = Y2mm3 Y3mm3 = Y2mm3 ml20Y3ml2 = \!\(\* TagBox[ RowBox[{ RowBox[{"(", "", GridBox[{ {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], "+", RowBox[{"(", "", GridBox[{ {"0", "Y3ml2", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}]}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Y3ml2 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0.951057"}, {"0.850651", "0", "0.425325"}, {"0.262866", "0.809017", "0.425325"}, { RowBox[{"-", "0.688191"}], "0.5", "0.425325"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "0.5"}], "0.425325"}, {"0.262866", RowBox[{"-", "0.809017"}], "0.425325"}, {"0.688191", "0.5", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.262866"}], "0.809017", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.850651"}], "0", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.262866"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "0.425325"}]}, {"0.688191", RowBox[{"-", "0.5"}], RowBox[{"-", "0.425325"}]}, {"0", "0", RowBox[{"-", "0.951057"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "Y3ml2", "0"}, {"0", "Y3ml2", "0"}, {"0", "Y3ml2", "0"}, {"0", "Y3ml2", "0"}, {"0", "Y3ml2", "0"}, {"0", "Y3ml2", "0"}, {"0", "Y3ml2", "0"}, {"0", "Y3ml2", "0"}, {"0", "Y3ml2", "0"}, {"0", "Y3ml2", "0"}, {"0", "Y3ml2", "0"}, {"0", "Y3ml2", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) Redmm3Y3amm3 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "0.425325"}], RowBox[{"-", "1.309017"}], "0.850651"}, { RowBox[{"-", "0.951056"}], RowBox[{"-", "1.309017"}], "0"}, {"0.951056", RowBox[{"-", "1.309017"}], "0"}, {"0.425325", RowBox[{"-", "1.309017"}], RowBox[{"-", "0.850651"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "Y3amm3", "0"}, {"0", "Y3amm3", "0"}, {"0", "Y3amm3", "0"}, {"0", "Y3amm3", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mm3Y3aRed = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "0.425325"}], "1.309017", "0.850651"}, {"0.951056", "1.309017", "0"}, { RowBox[{"-", "0.951056"}], "1.309017", "0"}, {"0.425325", "1.309017", RowBox[{"-", "0.850651"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) Yellowmm3Y3amm3 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.850651", "0", "1.376382"}, {"0.262865", "0.809017", "1.376382"}, { RowBox[{"-", "0.688191"}], "0.5", "1.376382"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "0.5"}], "1.376382"}, {"0.262865", RowBox[{"-", "0.809017"}], "1.376382"}, {"1.113516", "0.809017", "0.850651"}, { RowBox[{"-", "0.425325"}], "1.309017", "0.850651"}, { RowBox[{"-", "1.376382"}], "0", "0.850651"}, {"1.113516", RowBox[{"-", "0.809017"}], "0.850651"}, {"1.538841", "0.5", "0"}, {"0.951056", "1.309017", "0"}, {"0", "1.618034", "0"}, { RowBox[{"-", "0.951056"}], "1.309017", "0"}, { RowBox[{"-", "1.538841"}], "0.5", "0"}, { RowBox[{"-", "1.538841"}], RowBox[{"-", "0.5"}], "0"}, {"1.538841", RowBox[{"-", "0.5"}], "0"}, {"1.376382", "0", RowBox[{"-", "0.850651"}]}, {"0.425325", "1.309017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], "0.809017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "0.850651"}]}, {"0.688191", "0.5", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.262865"}], "0.809017", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.850651"}], "0", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.262865"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "1.376382"}]}, {"0.688191", RowBox[{"-", "0.5"}], RowBox[{"-", "1.376382"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "Y3amm3", "0"}, {"0", "Y3amm3", "0"}, {"0", "Y3amm3", "0"}, {"0", "Y3amm3", "0"}, {"0", "Y3amm3", "0"}, {"0", "Y3amm3", "0"}, {"0", "Y3amm3", "0"}, {"0", "Y3amm3", "0"}, {"0", "Y3amm3", "0"}, {"0", "Y3amm3", "0"}, {"0", "Y3amm3", "0"}, {"0", "Y3amm3", "0"}, {"0", "Y3amm3", "0"}, {"0", "Y3amm3", "0"}, {"0", "Y3amm3", "0"}, {"0", "Y3amm3", "0"}, {"0", "Y3amm3", "0"}, {"0", "Y3amm3", "0"}, {"0", "Y3amm3", "0"}, {"0", "Y3amm3", "0"}, {"0", "Y3amm3", "0"}, {"0", "Y3amm3", "0"}, {"0", "Y3amm3", "0"}, {"0", "Y3amm3", "0"}, {"0", "Y3amm3", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml20Y3aml2 = \!\(\* TagBox[ RowBox[{ RowBox[{"(", "", GridBox[{ {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], "+", RowBox[{"(", "", GridBox[{ {"0", "Y3aml2", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}]}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Y3aml2 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0.951057"}, {"0.850651", "0", "0.425325"}, {"0.262866", "0.809017", "0.425325"}, { RowBox[{"-", "0.688191"}], "0.5", "0.425325"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "0.5"}], "0.425325"}, {"0.262866", RowBox[{"-", "0.809017"}], "0.425325"}, {"0.688191", "0.5", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.262866"}], "0.809017", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.850651"}], "0", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.262866"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "0.425325"}]}, {"0.688191", RowBox[{"-", "0.5"}], RowBox[{"-", "0.425325"}]}, {"0", "0", RowBox[{"-", "0.951057"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "Y3aml2", "0"}, {"0", "Y3aml2", "0"}, {"0", "Y3aml2", "0"}, {"0", "Y3aml2", "0"}, {"0", "Y3aml2", "0"}, {"0", "Y3aml2", "0"}, {"0", "Y3aml2", "0"}, {"0", "Y3aml2", "0"}, {"0", "Y3aml2", "0"}, {"0", "Y3aml2", "0"}, {"0", "Y3aml2", "0"}, {"0", "Y3aml2", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mm3Y3mm3 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.850651", "0", "1.376382"}, {"0.262865", "0.809017", "1.376382"}, { RowBox[{"-", "0.688191"}], "0.5", "1.376382"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "0.5"}], "1.376382"}, {"0.262865", RowBox[{"-", "0.809017"}], "1.376382"}, {"1.113516", "0.809017", "0.850651"}, { RowBox[{"-", "0.425325"}], "1.309017", "0.850651"}, { RowBox[{"-", "1.376382"}], "0", "0.850651"}, { RowBox[{"-", "0.425325"}], RowBox[{"-", "1.309017"}], "0.850651"}, {"1.113516", RowBox[{"-", "0.809017"}], "0.850651"}, {"1.538841", "0.5", "0"}, {"0.951056", "1.309017", "0"}, {"0", "1.618034", "0"}, { RowBox[{"-", "0.951056"}], "1.309017", "0"}, { RowBox[{"-", "1.538841"}], "0.5", "0"}, { RowBox[{"-", "1.538841"}], RowBox[{"-", "0.5"}], "0"}, { RowBox[{"-", "0.951056"}], RowBox[{"-", "1.309017"}], "0"}, {"0", RowBox[{"-", "1.618034"}], "0"}, {"0.951056", RowBox[{"-", "1.309017"}], "0"}, {"1.538841", RowBox[{"-", "0.5"}], "0"}, {"1.376382", "0", RowBox[{"-", "0.850651"}]}, {"0.425325", "1.309017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], "0.809017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "0.850651"}]}, {"0.425325", RowBox[{"-", "1.309017"}], RowBox[{"-", "0.850651"}]}, {"0.688191", "0.5", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.262865"}], "0.809017", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.850651"}], "0", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.262865"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "1.376382"}]}, {"0.688191", RowBox[{"-", "0.5"}], RowBox[{"-", "1.376382"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"}, {"0", "Y3mm3", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## Clusters of the 2nd Generation Coincidence Sites - 3D Graphics - ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## # *) Graphics3D[{ Cyan, Sphere[ml20, nl20], Cyan, Sphere[ml2, nl2], Yellow, Sphere[mm3, nm3], Cyan, Sphere[ml20Y3ml2, nl20], Cyan, Sphere[ml2Y3ml2, nl2], Yellow, Sphere[mm3Y3mm3, nm3] }] (*Red*) Graphics3D[{ Cyan, Sphere[ml20, nl20], Cyan, Sphere[ml2, nl2], Yellow, Sphere[mm3, nm3], Cyan, Sphere[ml20Y3aml2, nl20], Cyan, Sphere[ml2Y3aml2, nl2], Red, Sphere[mm3Y3aRed, nm3], Red, Sphere[Redmm3Y3amm3, nm3], Yellow, Sphere[Yellowmm3Y3amm3, nm3] }] Graphics3D[{ Cyan, Sphere[ml20, nl20], Cyan, Sphere[ml2, nl2], Cyan, Sphere[ml20Y3ml2, nl20], Cyan, Sphere[ml2Y3ml2, nl2], Yellow, Sphere[mm3Y3mm3, nm3] }] Graphics3D[{ Cyan, Sphere[ml20, nl20], Cyan, Sphere[ml2, nl2], Cyan, Sphere[ml20Y3aml2, nl20], Cyan, Sphere[ml2Y3aml2, nl2], Red, Sphere[Redmm3Y3amm3, nm3], Red, Sphere[mm3Y3aRed, nm3], Yellow, Sphere[Yellowmm3Y3amm3, nm3] }] Graphics3D[{ Cyan, Sphere[ml20, nl20], Cyan, Sphere[ml2, nl2], Cyan, Sphere[ml20Y3aml2, nl20], Cyan, Sphere[ml2Y3aml2, nl2], Yellow, Sphere[Yellowmm3Y3amm3, nm3]}] (* ## ## ## A3. CLUSTERS OF THE 2ND GENERATION A3.1.2 COINCIDENCE SITES OF T2-CLUSTERS{1} - coordinates - ## ## ## # *) (* Bergman: „Mackay-Einsatz \[OpenCurlyDoubleQuote], Kugeln:1 *) ma0 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* center *) na0 = {0.415} (* radius *) (* Bergman: spheres:12 *) ma = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0.7841"}, {"0.7013", "0", "0.3507"}, {"0.2167", "0.667", "0.3507"}, { RowBox[{"-", "0.5674"}], "0.4122", "0.3507"}, { RowBox[{"-", "0.5674"}], RowBox[{"-", "0.4122"}], "0.3507"}, {"0.2167", RowBox[{"-", "0.667"}], "0.3507"}, {"0.5674", "0.4122", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.2167"}], "0.667", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.7013"}], "0", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.2167"}], RowBox[{"-", "0.667"}], RowBox[{"-", "0.3507"}]}, {"0.5674", RowBox[{"-", "0.4122"}], RowBox[{"-", "0.3507"}]}, {"0", "0", RowBox[{"-", "0.7841"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) na = {0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415} (* radius *) (* Bergman: 1. shell, spheres:12 *) mb1 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.6882", "0.5", "1.1135"}, { RowBox[{"-", "0.2629"}], "0.809", "1.1135"}, { RowBox[{"-", "0.8507"}], "0", "1.1135"}, { RowBox[{"-", "0.2629"}], RowBox[{"-", "0.809"}], "1.1135"}, {"0.6882", RowBox[{"-", "0.5"}], "1.1135"}, {"1.1135", "0.809", "0.2629"}, { RowBox[{"-", "0.4253"}], "1.309", "0.2629"}, { RowBox[{"-", "1.3764"}], "0", "0.2629"}, { RowBox[{"-", "0.4253"}], RowBox[{"-", "1.309"}], "0.2629"}, {"1.1135", RowBox[{"-", "0.809"}], "0.2629"}, {"1.3764", "0", RowBox[{"-", "0.2629"}]}, {"0.4253", "1.309", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], "0.809", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], RowBox[{"-", "0.809"}], RowBox[{"-", "0.2629"}]}, {"0.4253", RowBox[{"-", "1.309"}], RowBox[{"-", "0.2629"}]}, {"0.8507", "0", RowBox[{"-", "1.1135"}]}, {"0.2629", "0.809", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], "0.5", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], RowBox[{"-", "0.5"}], RowBox[{"-", "1.1135"}]}, {"0.2629", RowBox[{"-", "0.809"}], RowBox[{"-", "1.1135"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nb1 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* radius *) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## # 2Clusters of the 2nd Generation Coincidence Sites of T2-clusters {1} - calculations and new coordinates - ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## # *) Y11ma = 5 Y11mb1 = 5 ma0Y11ma0 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "Y11ma", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) maY11ma = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0.7841"}, {"0.7013", "0", "0.3507"}, {"0.2167", "0.667", "0.3507"}, { RowBox[{"-", "0.5674"}], "0.4122", "0.3507"}, { RowBox[{"-", "0.5674"}], RowBox[{"-", "0.4122"}], "0.3507"}, {"0.2167", RowBox[{"-", "0.667"}], "0.3507"}, {"0.5674", "0.4122", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.2167"}], "0.667", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.7013"}], "0", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.2167"}], RowBox[{"-", "0.667"}], RowBox[{"-", "0.3507"}]}, {"0.5674", RowBox[{"-", "0.4122"}], RowBox[{"-", "0.3507"}]}, {"0", "0", RowBox[{"-", "0.7841"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "Y11ma", "0"}, {"0", "Y11ma", "0"}, {"0", "Y11ma", "0"}, {"0", "Y11ma", "0"}, {"0", "Y11ma", "0"}, {"0", "Y11ma", "0"}, {"0", "Y11ma", "0"}, {"0", "Y11ma", "0"}, {"0", "Y11ma", "0"}, {"0", "Y11ma", "0"}, {"0", "Y11ma", "0"}, {"0", "Y11ma", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mb1Y11mb1 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.6882", "0.5", "1.1135"}, { RowBox[{"-", "0.2629"}], "0.809", "1.1135"}, { RowBox[{"-", "0.8507"}], "0", "1.1135"}, { RowBox[{"-", "0.2629"}], RowBox[{"-", "0.809"}], "1.1135"}, {"0.6882", RowBox[{"-", "0.5"}], "1.1135"}, {"1.1135", "0.809", "0.2629"}, { RowBox[{"-", "0.4253"}], "1.309", "0.2629"}, { RowBox[{"-", "1.3764"}], "0", "0.2629"}, { RowBox[{"-", "0.4253"}], RowBox[{"-", "1.309"}], "0.2629"}, {"1.1135", RowBox[{"-", "0.809"}], "0.2629"}, {"1.3764", "0", RowBox[{"-", "0.2629"}]}, {"0.4253", "1.309", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], "0.809", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], RowBox[{"-", "0.809"}], RowBox[{"-", "0.2629"}]}, {"0.4253", RowBox[{"-", "1.309"}], RowBox[{"-", "0.2629"}]}, {"0.8507", "0", RowBox[{"-", "1.1135"}]}, {"0.2629", "0.809", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], "0.5", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], RowBox[{"-", "0.5"}], RowBox[{"-", "1.1135"}]}, {"0.2629", RowBox[{"-", "0.809"}], RowBox[{"-", "1.1135"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mb1Red = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "0.4253"}], "1.309", "0.2629"}, {"0.4253", "1.309", RowBox[{"-", "0.2629"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mb1Yellow = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.6882", "0.5", "1.1135"}, { RowBox[{"-", "0.2629"}], "0.809", "1.1135"}, { RowBox[{"-", "0.8507"}], "0", "1.1135"}, { RowBox[{"-", "0.2629"}], RowBox[{"-", "0.809"}], "1.1135"}, {"0.6882", RowBox[{"-", "0.5"}], "1.1135"}, {"1.1135", "0.809", "0.2629"}, { RowBox[{"-", "1.3764"}], "0", "0.2629"}, { RowBox[{"-", "0.4253"}], RowBox[{"-", "1.309"}], "0.2629"}, {"1.1135", RowBox[{"-", "0.809"}], "0.2629"}, {"1.3764", "0", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], "0.809", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], RowBox[{"-", "0.809"}], RowBox[{"-", "0.2629"}]}, {"0.4253", RowBox[{"-", "1.309"}], RowBox[{"-", "0.2629"}]}, {"0.8507", "0", RowBox[{"-", "1.1135"}]}, {"0.2629", "0.809", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], "0.5", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], RowBox[{"-", "0.5"}], RowBox[{"-", "1.1135"}]}, {"0.2629", RowBox[{"-", "0.809"}], RowBox[{"-", "1.1135"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) Redmb1Y11mb1 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "0.4253"}], RowBox[{"-", "1.309"}], "0.2629"}, {"0.4253", RowBox[{"-", "1.309"}], RowBox[{"-", "0.2629"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) Yellowmb1Y11mb1 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.6882", "0.5", "1.1135"}, { RowBox[{"-", "0.2629"}], "0.809", "1.1135"}, { RowBox[{"-", "0.8507"}], "0", "1.1135"}, { RowBox[{"-", "0.2629"}], RowBox[{"-", "0.809"}], "1.1135"}, {"0.6882", RowBox[{"-", "0.5"}], "1.1135"}, {"1.1135", "0.809", "0.2629"}, { RowBox[{"-", "0.4253"}], "1.309", "0.2629"}, { RowBox[{"-", "1.3764"}], "0", "0.2629"}, {"1.1135", RowBox[{"-", "0.809"}], "0.2629"}, {"1.3764", "0", RowBox[{"-", "0.2629"}]}, {"0.4253", "1.309", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], "0.809", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], RowBox[{"-", "0.809"}], RowBox[{"-", "0.2629"}]}, {"0.8507", "0", RowBox[{"-", "1.1135"}]}, {"0.2629", "0.809", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], "0.5", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], RowBox[{"-", "0.5"}], RowBox[{"-", "1.1135"}]}, {"0.2629", RowBox[{"-", "0.809"}], RowBox[{"-", "1.1135"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"}, {"0", "Y11mb1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) z10mm3 = 1.309017 z11mm3 = 1.309017 z21mm3 = z10mm3 + z11mm3 Y13ma = z21mm3 Y13mb1 = z21mm3 ma0Y13ma0 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "Y13ma", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) maY13ma = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0.7841"}, {"0.7013", "0", "0.3507"}, {"0.2167", "0.667", "0.3507"}, { RowBox[{"-", "0.5674"}], "0.4122", "0.3507"}, { RowBox[{"-", "0.5674"}], RowBox[{"-", "0.4122"}], "0.3507"}, {"0.2167", RowBox[{"-", "0.667"}], "0.3507"}, {"0.5674", "0.4122", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.2167"}], "0.667", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.7013"}], "0", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.2167"}], RowBox[{"-", "0.667"}], RowBox[{"-", "0.3507"}]}, {"0.5674", RowBox[{"-", "0.4122"}], RowBox[{"-", "0.3507"}]}, {"0", "0", RowBox[{"-", "0.7841"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "Y13ma", "0"}, {"0", "Y13ma", "0"}, {"0", "Y13ma", "0"}, {"0", "Y13ma", "0"}, {"0", "Y13ma", "0"}, {"0", "Y13ma", "0"}, {"0", "Y13ma", "0"}, {"0", "Y13ma", "0"}, {"0", "Y13ma", "0"}, {"0", "Y13ma", "0"}, {"0", "Y13ma", "0"}, {"0", "Y13ma", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) Redmb1Y13mb1 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.6882", "0.5", "1.1135"}, { RowBox[{"-", "0.2629"}], "0.809", "1.1135"}, { RowBox[{"-", "0.8507"}], "0", "1.1135"}, { RowBox[{"-", "0.2629"}], RowBox[{"-", "0.809"}], "1.1135"}, {"0.6882", RowBox[{"-", "0.5"}], "1.1135"}, {"1.1135", "0.809", "0.2629"}, { RowBox[{"-", "0.4253"}], "1.309", "0.2629"}, { RowBox[{"-", "1.3764"}], "0", "0.2629"}, { RowBox[{"-", "0.4253"}], RowBox[{"-", "1.309"}], "0.2629"}, {"1.1135", RowBox[{"-", "0.809"}], "0.2629"}, {"1.3764", "0", RowBox[{"-", "0.2629"}]}, {"0.4253", "1.309", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], "0.809", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], RowBox[{"-", "0.809"}], RowBox[{"-", "0.2629"}]}, {"0.4253", RowBox[{"-", "1.309"}], RowBox[{"-", "0.2629"}]}, {"0.8507", "0", RowBox[{"-", "1.1135"}]}, {"0.2629", "0.809", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], "0.5", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], RowBox[{"-", "0.5"}], RowBox[{"-", "1.1135"}]}, {"0.2629", RowBox[{"-", "0.809"}], RowBox[{"-", "1.1135"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) Redmb1Y13mb1 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "0.4253"}], RowBox[{"-", "1.309"}], "0.2629"}, {"0.4253", RowBox[{"-", "1.309"}], RowBox[{"-", "0.2629"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) Yellowmb1Y13mb1 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.6882", "0.5", "1.1135"}, { RowBox[{"-", "0.2629"}], "0.809", "1.1135"}, { RowBox[{"-", "0.8507"}], "0", "1.1135"}, { RowBox[{"-", "0.2629"}], RowBox[{"-", "0.809"}], "1.1135"}, {"0.6882", RowBox[{"-", "0.5"}], "1.1135"}, {"1.1135", "0.809", "0.2629"}, { RowBox[{"-", "0.4253"}], "1.309", "0.2629"}, { RowBox[{"-", "1.3764"}], "0", "0.2629"}, {"1.1135", RowBox[{"-", "0.809"}], "0.2629"}, {"1.3764", "0", RowBox[{"-", "0.2629"}]}, {"0.4253", "1.309", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], "0.809", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], RowBox[{"-", "0.809"}], RowBox[{"-", "0.2629"}]}, {"0.8507", "0", RowBox[{"-", "1.1135"}]}, {"0.2629", "0.809", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], "0.5", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], RowBox[{"-", "0.5"}], RowBox[{"-", "1.1135"}]}, {"0.2629", RowBox[{"-", "0.809"}], RowBox[{"-", "1.1135"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"}, {"0", "Y13mb1", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## # Clusters of the 2nd Generation Coincidence Sites of T2-clusters {1} - 3D Graphics - ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## # *) Graphics3D[{Pink, Sphere[ma, na], Yellow, Sphere[mb1, nb1]}] Graphics3D[{ Pink, Sphere[ma, na], Yellow, Sphere[mb1, nb1], Pink, Sphere[ma0Y11ma0, na], Pink, Sphere[maY11ma, na], Yellow, Sphere[mb1Y11mb1, nb1] }] Graphics3D[{ Pink, Sphere[ma, na], Yellow, Sphere[mb1Yellow, nb1], Red, Sphere[mb1Red, nb1], Pink, Sphere[ma0Y11ma0, na], Pink, Sphere[maY11ma, na], Red, Sphere[Redmb1Y11mb1, nb1], Yellow, Sphere[Yellowmb1Y11mb1, nb1] }] Graphics3D[{ Pink, Sphere[ma, na], Yellow, Sphere[mb1Yellow, nb1], Red, Sphere[mb1Red, nb1], Pink, Sphere[ma0Y13ma0, na], Pink, Sphere[maY13ma, na], Red, Sphere[Redmb1Y13mb1, nb1], Yellow, Sphere[Yellowmb1Y13mb1, nb1] }] (* ## A3. CLUSTERS OF THE 2ND GENERATION A3.1.3 NEAREST NEIGHBOUR T1- AND T2-CLUSTERS{1} WITH 5 COINCIDENCE SITES - coordinates - ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## *) (* Bergman: „Mackay-Einsatz \[OpenCurlyDoubleQuote], spheres:1 *) ma0 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* center *) na0 = {0.415} (* radius *) (* Bergman: spheres:12 *) ma = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0.7841"}, {"0.7013", "0", "0.3507"}, {"0.2167", "0.667", "0.3507"}, { RowBox[{"-", "0.5674"}], "0.4122", "0.3507"}, { RowBox[{"-", "0.5674"}], RowBox[{"-", "0.4122"}], "0.3507"}, {"0.2167", RowBox[{"-", "0.667"}], "0.3507"}, {"0.5674", "0.4122", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.2167"}], "0.667", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.7013"}], "0", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.2167"}], RowBox[{"-", "0.667"}], RowBox[{"-", "0.3507"}]}, {"0.5674", RowBox[{"-", "0.4122"}], RowBox[{"-", "0.3507"}]}, {"0", "0", RowBox[{"-", "0.7841"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) na = {0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415} (* radius *) (* Bergman: 1. shell, spheres:12 *) mb1 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.6882", "0.5", "1.1135"}, { RowBox[{"-", "0.2629"}], "0.809", "1.1135"}, { RowBox[{"-", "0.8507"}], "0", "1.1135"}, { RowBox[{"-", "0.2629"}], RowBox[{"-", "0.809"}], "1.1135"}, {"0.6882", RowBox[{"-", "0.5"}], "1.1135"}, {"1.1135", "0.809", "0.2629"}, { RowBox[{"-", "0.4253"}], "1.309", "0.2629"}, { RowBox[{"-", "1.3764"}], "0", "0.2629"}, { RowBox[{"-", "0.4253"}], RowBox[{"-", "1.309"}], "0.2629"}, {"1.1135", RowBox[{"-", "0.809"}], "0.2629"}, {"1.3764", "0", RowBox[{"-", "0.2629"}]}, {"0.4253", "1.309", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], "0.809", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], RowBox[{"-", "0.809"}], RowBox[{"-", "0.2629"}]}, {"0.4253", RowBox[{"-", "1.309"}], RowBox[{"-", "0.2629"}]}, {"0.8507", "0", RowBox[{"-", "1.1135"}]}, {"0.2629", "0.809", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], "0.5", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], RowBox[{"-", "0.5"}], RowBox[{"-", "1.1135"}]}, {"0.2629", RowBox[{"-", "0.809"}], RowBox[{"-", "1.1135"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nb1 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* radius *) (* Mackay: Zentralkugel und 2. shell, spheres:12 *) ml20 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* center *) nl20 = {0.5} (* radius *) ml2 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0.951057"}, {"0.850651", "0", "0.425325"}, {"0.262866", "0.809017", "0.425325"}, { RowBox[{"-", "0.688191"}], "0.5", "0.425325"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "0.5"}], "0.425325"}, {"0.262866", RowBox[{"-", "0.809017"}], "0.425325"}, {"0.688191", "0.5", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.262866"}], "0.809017", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.850651"}], "0", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.262866"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "0.425325"}]}, {"0.688191", RowBox[{"-", "0.5"}], RowBox[{"-", "0.425325"}]}, {"0", "0", RowBox[{"-", "0.951057"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nl2 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* radius *) (* Mackay: 3. shell, spheres:30 *) mm3 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.850651", "0", "1.376382"}, {"0.262865", "0.809017", "1.376382"}, { RowBox[{"-", "0.688191"}], "0.5", "1.376382"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "0.5"}], "1.376382"}, {"0.262865", RowBox[{"-", "0.809017"}], "1.376382"}, {"1.113516", "0.809017", "0.850651"}, { RowBox[{"-", "0.425325"}], "1.309017", "0.850651"}, { RowBox[{"-", "1.376382"}], "0", "0.850651"}, { RowBox[{"-", "0.425325"}], RowBox[{"-", "1.309017"}], "0.850651"}, {"1.113516", RowBox[{"-", "0.809017"}], "0.850651"}, {"1.538841", "0.5", "0"}, {"0.951056", "1.309017", "0"}, {"0", "1.618034", "0"}, { RowBox[{"-", "0.951056"}], "1.309017", "0"}, { RowBox[{"-", "1.538841"}], "0.5", "0"}, { RowBox[{"-", "1.538841"}], RowBox[{"-", "0.5"}], "0"}, { RowBox[{"-", "0.951056"}], RowBox[{"-", "1.309017"}], "0"}, {"0", RowBox[{"-", "1.618034"}], "0"}, {"0.951056", RowBox[{"-", "1.309017"}], "0"}, {"1.538841", RowBox[{"-", "0.5"}], "0"}, {"1.376382", "0", RowBox[{"-", "0.850651"}]}, {"0.425325", "1.309017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], "0.809017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "0.850651"}]}, {"0.425325", RowBox[{"-", "1.309017"}], RowBox[{"-", "0.850651"}]}, {"0.688191", "0.5", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.262865"}], "0.809017", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.850651"}], "0", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.262865"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "1.376382"}]}, {"0.688191", RowBox[{"-", "0.5"}], RowBox[{"-", "1.376382"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nm3 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* radius *) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## T1 and T2-clusters {1} with 5 Coincidence Sites - calculations and new coordinates - ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## *) (* Verschiebung in Z-Richtung *) z0mb1 = 1.1135 z1mm3M = 1.376382 z3 = z2 = z0mb1 + z1mm3M z2 /= 0.951057 z4 = z3 + 2.48988 stretch = 2 z3p1 = z3 + stretch z4p1 = z3p1 + z3p1 (* Mckay-Cluster (mm) (at the top), Coordinates for red sphere in the \ yellow cluster shell *) mm3z4p1obenRed = ({ {0.688191, 0.5, -1.376382}, {-0.262865, 0.809017, -1.376382}, {-0.850651, 0, -1.376382}, {-0.262865, -0.809017, -1.376382}, {0.688191, -0.5, -1.376382} }) \!\(\* TagBox[ RowBox[{"mm3z4p1Yellow3oben", "=", RowBox[{"(", "", GridBox[{ {"0.850651", "0", "1.376382"}, {"0.262865", "0.809017", "1.376382"}, { RowBox[{"-", "0.688191"}], "0.5", "1.376382"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "0.5"}], "1.376382"}, {"0.262865", RowBox[{"-", "0.809017"}], "1.376382"}, {"1.113516", "0.809017", "0.850651"}, { RowBox[{"-", "0.425325"}], "1.309017", "0.850651"}, { RowBox[{"-", "1.376382"}], "0", "0.850651"}, { RowBox[{"-", "0.425325"}], RowBox[{"-", "1.309017"}], "0.850651"}, {"1.113516", RowBox[{"-", "0.809017"}], "0.850651"}, {"1.538841", "0.5", "0"}, {"0.951056", "1.309017", "0"}, {"0", "1.618034", "0"}, { RowBox[{"-", "0.951056"}], "1.309017", "0"}, { RowBox[{"-", "1.538841"}], "0.5", "0"}, { RowBox[{"-", "1.538841"}], RowBox[{"-", "0.5"}], "0"}, { RowBox[{"-", "0.951056"}], RowBox[{"-", "1.309017"}], "0"}, {"0", RowBox[{"-", "1.618034"}], "0"}, {"0.951056", RowBox[{"-", "1.309017"}], "0"}, {"1.538841", RowBox[{"-", "0.5"}], "0"}, {"1.376382", "0", RowBox[{"-", "0.850651"}]}, {"0.425325", "1.309017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], "0.809017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "0.850651"}]}, {"0.425325", RowBox[{"-", "1.309017"}], RowBox[{"-", "0.850651"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}]}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* Mittlerer Cluster (Bergman), Coordinates for red sphere in the \ yellow cluster shell *) Redmb1z3p1Red = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.6882", "0.5", "1.1135"}, { RowBox[{"-", "0.2629"}], "0.809", "1.1135"}, { RowBox[{"-", "0.8507"}], "0", "1.1135"}, { RowBox[{"-", "0.2629"}], RowBox[{"-", "0.809"}], "1.1135"}, {"0.6882", RowBox[{"-", "0.5"}], "1.1135"}, {"0.8507", "0", RowBox[{"-", "1.1135"}]}, {"0.2629", "0.809", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], "0.5", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], RowBox[{"-", "0.5"}], RowBox[{"-", "1.1135"}]}, {"0.2629", RowBox[{"-", "0.809"}], RowBox[{"-", "1.1135"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) Yellowmb1z3p1Yellow = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.1135", "0.809", "0.2629"}, { RowBox[{"-", "0.4253"}], "1.309", "0.2629"}, { RowBox[{"-", "1.3764"}], "0", "0.2629"}, { RowBox[{"-", "0.4253"}], RowBox[{"-", "1.309"}], "0.2629"}, {"1.1135", RowBox[{"-", "0.809"}], "0.2629"}, {"1.3764", "0", RowBox[{"-", "0.2629"}]}, {"0.4253", "1.309", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], "0.809", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], RowBox[{"-", "0.809"}], RowBox[{"-", "0.2629"}]}, {"0.4253", RowBox[{"-", "1.309"}], RowBox[{"-", "0.2629"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* Mckay-Cluster (mm) (below), Coordinates for red sphere in the \ yellow cluster shell *) mm3Redunten = ({ {0.850651, 0, 1.376382}, {0.262865, 0.809017, 1.376382}, {-0.688191, 0.5, 1.376382}, {-0.688191, -0.5, 1.376382}, {0.262865, -0.809017, 1.376382} }) \!\(\* TagBox[ RowBox[{"mm3Yellowunten", "=", RowBox[{"(", "", GridBox[{ {"1.113516", "0.809017", "0.850651"}, { RowBox[{"-", "0.425325"}], "1.309017", "0.850651"}, { RowBox[{"-", "1.376382"}], "0", "0.850651"}, { RowBox[{"-", "0.425325"}], RowBox[{"-", "1.309017"}], "0.850651"}, {"1.113516", RowBox[{"-", "0.809017"}], "0.850651"}, {"1.538841", "0.5", "0"}, {"0.951056", "1.309017", "0"}, {"0", "1.618034", "0"}, { RowBox[{"-", "0.951056"}], "1.309017", "0"}, { RowBox[{"-", "1.538841"}], "0.5", "0"}, { RowBox[{"-", "1.538841"}], RowBox[{"-", "0.5"}], "0"}, { RowBox[{"-", "0.951056"}], RowBox[{"-", "1.309017"}], "0"}, {"0", RowBox[{"-", "1.618034"}], "0"}, {"0.951056", RowBox[{"-", "1.309017"}], "0"}, {"1.538841", RowBox[{"-", "0.5"}], "0"}, {"1.376382", "0", RowBox[{"-", "0.850651"}]}, {"0.425325", "1.309017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], "0.809017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "0.850651"}]}, {"0.425325", RowBox[{"-", "1.309017"}], RowBox[{"-", "0.850651"}]}, {"0.688191", "0.5", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.262865"}], "0.809017", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.850651"}], "0", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.262865"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "1.376382"}]}, {"0.688191", RowBox[{"-", "0.5"}], RowBox[{"-", "1.376382"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}]}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* matrices for matrix caculations z2=z0mb1+z1mm3M z2/=0.951057 *) Z2A20 =( { {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2} } ) Z2A25 = ({ {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2} }) Z2A30 = ({ {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2}, {0, 0, z2} }) (* z3=z0mb1+z1mm3M *) Z3A01 =( { {0, 0, z3} } ) Z3A10 =( { {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3} } ) Z3A12 =( { {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3} } ) Z3A20 =( { {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3} } ) Z3A01 = ({ {0, 0, z3} }) Z3A30 = ({ {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3}, {0, 0, z3} }) (* z3=z0mb1+z1mm3M z4=z3+2.48988 *) \!\(\* TagBox[ RowBox[{"Z4A01", "=", "", TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "z4"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) \!\(\* TagBox[ RowBox[{"Z4A05", "=", "", TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) \!\(\* TagBox[ RowBox[{"Z4A12", "=", "", TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) Z4A25 =\!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) Z4A30 =\!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"}, {"0", "0", "z4"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* z3=z0mb1+z1mm3M stretch=2 (i.e.) z3p1=z3+stretch *) Z3P1A01 =( { {0, 0, z3p1} } ) Z3P1A05 =( { {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1} } ) Z3P1A10 =( { {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1} } ) Z3P1A12 =( { {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1} } ) Z3P1A20 =( { {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1}, {0, 0, z3p1} } ) Z4P1A10 =\!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) Z4P1A05 =\!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) Z4P1A12 =\!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) Z4P1A30 =\!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) Z4P1A25 =\!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"}, {"0", "0", "z4p1"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (*Zusammengeschobene Cluster Z3 und Z4*) (* Cluster mitte (Bergman-Cluster) Verschiebung um Z3 verschoben *) maz3 = \!\(\* TagBox[ TagBox[ RowBox[{"(", "", "ma", "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{"(", "", "Z3A12", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mb1z3 = \!\(\* TagBox[ TagBox[ RowBox[{"(", "mb1", "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{"(", "", "Z3A20", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) Redmb1z3A10Red = (Redmb1z3p1Red) + \!\(\* TagBox[ RowBox[{"(", "", "Z3A10", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) Yellowmb1z3A10Yellow = (Yellowmb1z3p1Yellow) + (Z3A10) (* Cluster ganz oben (Mackay-Cluster) um Z4 verschoben *) mm3z4 = \!\(\* TagBox[ TagBox[ RowBox[{"(", "mm3", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{"(", "", "Z4A30", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mm3z4p1 = \!\(\* TagBox[ TagBox[ RowBox[{"(", "mm3", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{"(", "", "Z4P1A30", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2z4 = \!\(\* TagBox[ TagBox[ RowBox[{"(", "ml2", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{ RowBox[{"(", "", "Z4A12", ")"}], "\[IndentingNewLine]"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\)(**) ml20z4 = \!\(\* TagBox[ TagBox[ RowBox[{"(", "ml20", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + (Z4A01) mm3z4A05obenRed = (mm3z4p1obenRed) + (Z4A05) mm3z4A10obenYellow = (mm3z4p1Yellow3oben) + (Z4A25) (*Addition der äuersten Abstandskoordinaten für komplette und \ gesonderte Cluster Z3/Z4 Z3P1/Z4P1 *) maz3p1 = \!\(\* TagBox[ TagBox[ RowBox[{"(", "ma", "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{"(", "", "Z3P1A12", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mb1z3p1 = \!\(\* TagBox[ TagBox[ RowBox[{"(", "mb1", "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{ RowBox[{"(", "", "Z3P1A20", ")"}], " "}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2z4p1 = (ml2) + (Z4P1A12) Redmb1z3p1A10Red = (Redmb1z3p1Red) + \!\(\* TagBox[ RowBox[{"(", "", "Z3P1A10", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) Yellowmb1z3p1A10Yellow = (Yellowmb1z3p1Yellow) + (Z3P1A10) mm3z4p1A05obenRed = \!\(\* TagBox[ TagBox[ RowBox[{"(", "mm3z4p1obenRed", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{"(", "", "Z4P1A05", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mm3z4p1A10obenYellow = \!\(\* TagBox[ TagBox[ RowBox[{"(", "mm3z4p1Yellow3oben", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) + \!\(\* TagBox[ RowBox[{"(", "", "Z4P1A25", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## T1 and T2-clusters {1} with 5 Coincidence Sites - 3D Spheres - ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## *) (* Mackay-Cluster (Green) spheres:30 *) (*M*) Graphics3D[{Cyan, Sphere[ml20, nl20], Cyan, Sphere[ml2, nl2], Yellow, Sphere[mm3, nm3]}] (* Bergman-Cluster *) (*B*) Graphics3D[{Pink, Sphere[maz3p1, na], Yellow, Sphere[mb1z3p1, nb1]}] (* 3 Cluster +Z *) Graphics3D[{ (*M*)Cyan, Sphere[ml20, nl20], Cyan, Sphere[ml2, nl2], Cyan, Yellow, Sphere[mm3, nm3], (*B*)Pink, Sphere[maz3p1, na], Yellow, Sphere[mb1z3p1, nb1], (*M*)Cyan, Sphere[ml20z4, nl20], Cyan, Sphere[ml2z4p1, nl2], Yellow, Sphere[mm3z4p1, nm3] }] (* Bergman-Cluster (middle), red spheres on the coincidence places *) \ Graphics3D[{ (*M*)Cyan, Sphere[ml20, nl20], Cyan, Sphere[ml2, nl2], Yellow, Sphere[mm3Yellowunten, nm3], Red, Sphere[mm3Redunten, nm3], (*B*)Pink, Sphere[maz3p1, na], Yellow, Sphere[Yellowmb1z3p1A10Yellow, nb1], Red, Sphere[Redmb1z3p1A10Red, nb1], (*M*)Cyan, Sphere[ml20z4, nl20], Cyan, Sphere[ml2z4p1, nl2], Yellow, Sphere[mm3z4p1A10obenYellow, nm3], Red, Sphere[mm3z4p1A05obenRed, nm3] }] (* 3 Cluster zusammengeschoben und Koinzidenzplätze ROT *) Graphics3D[{ (*M*)Cyan, Sphere[ml20, nl20], Cyan, Sphere[ml2, nl2], Yellow, Sphere[mm3Yellowunten, nm3], Red, Sphere[mm3Redunten, nm3], (*B*)Pink, Sphere[maz3, na], Yellow, Sphere[Yellowmb1z3A10Yellow, nb1], Red, Sphere[Redmb1z3A10Red, nb1], (*M*)Cyan, Sphere[ml20z4, nl20], Cyan, Sphere[ml2z4, nl2], Yellow, Sphere[mm3z4A10obenYellow, nm3], Red, Sphere[mm3z4A05obenRed, nm3] }] (* 3 Cluster zusammengeschoben und Koinzidenzplätze ROT *) Graphics3D[{ (*M*)Cyan, Sphere[ml20, nl20], Cyan, Sphere[ml2, nl2], Yellow, Sphere[mm3Yellowunten, nm3], Red, Sphere[mm3Redunten, nm3], (*B*)Pink, Sphere[maz3, na], Yellow, Sphere[Yellowmb1z3A10Yellow, nb1], Red, Sphere[Redmb1z3A10Red, nb1], (*M*)Cyan, Sphere[ml20z4, nl20], Cyan, Sphere[ml2z4, nl2], Yellow,(*Yellow,Sphere[mm3z4A10obenYellow,nm3],*)Red, Sphere[mm3z4A05obenRed, nm3] }] (* 3 Cluster zusammengeschoben *) Graphics3D[{ (*M*)Cyan, Sphere[ml20, nl20], Cyan, Sphere[ml2, nl2], Yellow, Sphere[mm3, nm3], (*B*)Pink, Sphere[maz3, na], Yellow, Sphere[mb1z3, nb1], (*M*)Cyan, Sphere[ml20z4, nl20], Cyan, Sphere[ml2z4, nl2], Yellow, Sphere[mm3z4, nm3] }] (* 3 Cluster zusammengeschoben ohne gelbe Kugeln *) Graphics3D[{ (*M*)Cyan, Sphere[ml20, nl20], Cyan, Sphere[ml2, nl2],(*Yellow, Sphere[mm3,nm3],*) (*B*)Pink, Sphere[maz3, na],(*Yellow,Sphere[mb1z3,nb1],*) (*M*)Cyan, Sphere[ml20z4, nl20], Cyan, Sphere[ml2z4, nl2](*,Yellow, Sphere[mm3z4,nm3]*) }] (* ## A3.2 CONSTRUCTION PRINCIPLE OF THE CLUSTERS OF THE 2ND GENERATION A3.3 STEP BY STEP GROWTH OF A T’1-CLUSTER{2} RED: Koinzidenzplätze: Schalter: siehe \ "Switch" - coordinates - ## ## # *) ml20 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* center *) nl20 = {0.5} (* radius *) (* Mackay: 2. shell, spheres:12 *) ml2 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0.951057"}, {"0.850651", "0", "0.425325"}, {"0.262866", "0.809017", "0.425325"}, { RowBox[{"-", "0.688191"}], "0.5", "0.425325"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "0.5"}], "0.425325"}, {"0.262866", RowBox[{"-", "0.809017"}], "0.425325"}, {"0.688191", "0.5", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.262866"}], "0.809017", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.850651"}], "0", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.262866"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "0.425325"}]}, {"0.688191", RowBox[{"-", "0.5"}], RowBox[{"-", "0.425325"}]}, {"0", "0", RowBox[{"-", "0.951057"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nl2 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* radius *) (* Mackay: 3. shell, spheres:30 *) mm3 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.850651", "0", "1.376382"}, {"0.262865", "0.809017", "1.376382"}, { RowBox[{"-", "0.688191"}], "0.5", "1.376382"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "0.5"}], "1.376382"}, {"0.262865", RowBox[{"-", "0.809017"}], "1.376382"}, {"1.113516", "0.809017", "0.850651"}, { RowBox[{"-", "0.425325"}], "1.309017", "0.850651"}, { RowBox[{"-", "1.376382"}], "0", "0.850651"}, { RowBox[{"-", "0.425325"}], RowBox[{"-", "1.309017"}], "0.850651"}, {"1.113516", RowBox[{"-", "0.809017"}], "0.850651"}, {"1.538841", "0.5", "0"}, {"0.951056", "1.309017", "0"}, {"0", "1.618034", "0"}, { RowBox[{"-", "0.951056"}], "1.309017", "0"}, { RowBox[{"-", "1.538841"}], "0.5", "0"}, { RowBox[{"-", "1.538841"}], RowBox[{"-", "0.5"}], "0"}, { RowBox[{"-", "0.951056"}], RowBox[{"-", "1.309017"}], "0"}, {"0", RowBox[{"-", "1.618034"}], "0"}, {"0.951056", RowBox[{"-", "1.309017"}], "0"}, {"1.538841", RowBox[{"-", "0.5"}], "0"}, {"1.376382", "0", RowBox[{"-", "0.850651"}]}, {"0.425325", "1.309017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], "0.809017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "0.850651"}]}, {"0.425325", RowBox[{"-", "1.309017"}], RowBox[{"-", "0.850651"}]}, {"0.688191", "0.5", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.262865"}], "0.809017", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.850651"}], "0", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.262865"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "1.376382"}]}, {"0.688191", RowBox[{"-", "0.5"}], RowBox[{"-", "1.376382"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* "Switch *) (*nm3={0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.\ 5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5}*) nm3 = {0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505} (* radius *) mn61 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.113516", "0.809017", "1.801707"}, { RowBox[{"-", "0.425325"}], "1.309017", "1.801707"}, { RowBox[{"-", "1.376382"}], "0", "1.801707"}, { RowBox[{"-", "0.425325"}], RowBox[{"-", "1.309017"}], "1.801707"}, {"1.113516", RowBox[{"-", "0.809017"}], "1.801707"}, {"1.801708", "1.309017", "0.425325"}, { RowBox[{"-", "0.688191"}], "2.118034", "0.425325"}, { RowBox[{"-", "2.227033"}], "0", "0.425325"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "2.118034"}], "0.425325"}, {"1.801708", RowBox[{"-", "1.309017"}], "0.425325"}, {"2.227033", "0", RowBox[{"-", "0.425325"}]}, {"0.688191", "2.118034", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "1.801708"}], "1.309017", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "1.801708"}], RowBox[{"-", "1.309017"}], RowBox[{"-", "0.425325"}]}, {"0.688191", RowBox[{"-", "2.118034"}], RowBox[{"-", "0.425325"}]}, {"1.376382", "0", RowBox[{"-", "1.801707"}]}, {"0.425325", "1.309017", RowBox[{"-", "1.801707"}]}, { RowBox[{"-", "1.113516"}], "0.809017", RowBox[{"-", "1.801707"}]}, { RowBox[{"-", "1.113516"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "1.801707"}]}, {"0.425325", RowBox[{"-", "1.309017"}], RowBox[{"-", "1.801707"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nn61 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* Bergman: „Mackay-Einsatz \[OpenCurlyDoubleQuote], spheres:1 *) ma0 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* center *) na0 = {0.415} (* radius *) (* Bergman: spheres:12 *) ma = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0.7841"}, {"0.7013", "0", "0.3507"}, {"0.2167", "0.667", "0.3507"}, { RowBox[{"-", "0.5674"}], "0.4122", "0.3507"}, { RowBox[{"-", "0.5674"}], RowBox[{"-", "0.4122"}], "0.3507"}, {"0.2167", RowBox[{"-", "0.667"}], "0.3507"}, {"0.5674", "0.4122", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.2167"}], "0.667", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.7013"}], "0", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.2167"}], RowBox[{"-", "0.667"}], RowBox[{"-", "0.3507"}]}, {"0.5674", RowBox[{"-", "0.4122"}], RowBox[{"-", "0.3507"}]}, {"0", "0", RowBox[{"-", "0.7841"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) na = {0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415} (* radius *) (* Bergman: 1. shell, spheres:12 *) mb1 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.6882", "0.5", "1.1135"}, { RowBox[{"-", "0.2629"}], "0.809", "1.1135"}, { RowBox[{"-", "0.8507"}], "0", "1.1135"}, { RowBox[{"-", "0.2629"}], RowBox[{"-", "0.809"}], "1.1135"}, {"0.6882", RowBox[{"-", "0.5"}], "1.1135"}, {"1.1135", "0.809", "0.2629"}, { RowBox[{"-", "0.4253"}], "1.309", "0.2629"}, { RowBox[{"-", "1.3764"}], "0", "0.2629"}, { RowBox[{"-", "0.4253"}], RowBox[{"-", "1.309"}], "0.2629"}, {"1.1135", RowBox[{"-", "0.809"}], "0.2629"}, {"1.3764", "0", RowBox[{"-", "0.2629"}]}, {"0.4253", "1.309", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], "0.809", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], RowBox[{"-", "0.809"}], RowBox[{"-", "0.2629"}]}, {"0.4253", RowBox[{"-", "1.309"}], RowBox[{"-", "0.2629"}]}, {"0.8507", "0", RowBox[{"-", "1.1135"}]}, {"0.2629", "0.809", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], "0.5", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], RowBox[{"-", "0.5"}], RowBox[{"-", "1.1135"}]}, {"0.2629", RowBox[{"-", "0.809"}], RowBox[{"-", "1.1135"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nb1 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* radius *) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## distance calculation z ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## *) z0mb1 = 1.1135 z1mm3 = 1.376382 z2 = (z0mb1 + z1mm3) z2 /= 0.951057 (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Berechnung der neuen Nullpunkte einer Schale des expandierten Clusters ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) ml2Fz2M = MatrixForm[ml2*z2] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Extrahierung der Einzeltripel aus Matrixform (neuen \ Nullpunktkoordinaten) Erstellung von Matrizen mit den Nullpunktkoordinaten zur weiteren Berechnung ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) ml2Fz2M[[1, 1]] ml2Fz2M11Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M11Matrix20K = ({ {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819} }) ml2Fz2M11Matrix30K = ({ {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819} }) ml2Fz2M[[1, 2]] ml2Fz2M12Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M12Matrix20K = ({ {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507} }) ml2Fz2M12Matrix30K = ({ {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507} }) ml2Fz2M[[1, 3]] ml2Fz2M13Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M13Matrix20K = ({ {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507} }) ml2Fz2M13Matrix30K = ({ {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507} }) ml2Fz2M[[1, 4]] ml2Fz2M14Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M14Matrix20K = ({ {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507} }) ml2Fz2M14Matrix30K = ({ {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507} }) ml2Fz2M[[1, 5]] ml2Fz2M15Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M15Matrix20K = ({ {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507} }) ml2Fz2M15Matrix30K = ({ {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507} }) ml2Fz2M[[1, 6]] ml2Fz2M16Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M16Matrix20K = ({ {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507} }) ml2Fz2M16Matrix30K = ({ {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507} }) ml2Fz2M[[1, 7]] ml2Fz2M17Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M17Matrix20K = ({ {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507} }) ml2Fz2M17Matrix30K = ({ {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507} }) ml2Fz2M[[1, 8]] ml2Fz2M18Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M18Matrix20K = ({ {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507} }) ml2Fz2M18Matrix30K = ({ {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507} }) ml2Fz2M[[1, 9]] ml2Fz2M19Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M19Matrix20K = ({ {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507} }) ml2Fz2M19Matrix30K = ({ {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507} }) ml2Fz2M[[1, 10]] ml2Fz2M110Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M110Matrix20K = ({ {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507} }) ml2Fz2M110Matrix30K = ({ {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507} }) ml2Fz2M[[1, 11]] ml2Fz2M111Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M111Matrix20K = ({ {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507} }) ml2Fz2M111Matrix30K = ({ {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507} }) ml2Fz2M[[1, 12]] ml2Fz2M112Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M112Matrix20K = ({ {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819} }) ml2Fz2M112Matrix30K = ({ {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819} }) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Berechnung der neuen Nullpunkte einer Schale des expandierten Clusters ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mm3Fz2M = MatrixForm[mm3*z2] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Extrahierung der Einzeltripel (neuen Nullpunktkoordinaten) Erstellung von Matrizen mit den Nullpunktkoordinaten zur weiteren Berechnung ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mm3Fz2M[[1, 22]] mm3Fz2M122Matrix12K = ({ {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017} }) mm3Fz2M122Matrix20K = ({ {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017} }) mm3Fz2M122Matrix30K = ({ {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017} }) mm3Fz2M[[1, 23]] mm3Fz2M123Matrix12K = ({ {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017} }) mm3Fz2M123Matrix20K = ({ {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017} }) mm3Fz2M123Matrix30K = ({ {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017} }) mm3Fz2M[[1, 24]] mm3Fz2M124Matrix12K = ({ {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017} }) mm3Fz2M124Matrix20K = ({ {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017} }) mm3Fz2M124Matrix30K = ({ {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017} }) mm3Fz2M[[1, 25]] mm3Fz2M125Matrix12K = ({ {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017} }) mm3Fz2M125Matrix20K = ({ {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017} }) mm3Fz2M125Matrix30K = ({ {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017} }) mm3Fz2M[[1, 26]] mm3Fz2M126Matrix12K = ({ {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389} }) mm3Fz2M126Matrix20K = ({ {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389} }) mm3Fz2M126Matrix30K = ({ {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389} }) mm3Fz2M[[1, 27]] mm3Fz2M127Matrix12K = ({ {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389} }) mm3Fz2M127Matrix20K = ({ {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389} }) mm3Fz2M127Matrix30K = ({ {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389} }) mm3Fz2M[[1, 28]] mm3Fz2M128Matrix12K = ({ {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389} }) mm3Fz2M128Matrix20K = ({ {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389} }) mm3Fz2M128Matrix30K = ({ {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389} }) mm3Fz2M[[1, 29]] mm3Fz2M129Matrix12K = ({ {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389} }) mm3Fz2M129Matrix20K = ({ {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389} }) mm3Fz2M129Matrix30K = ({ {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389} }) mm3Fz2M[[1, 30]] mm3Fz2M130Matrix12K = ({ {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389} }) mm3Fz2M130Matrix20K = ({ {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389} }) mm3Fz2M130Matrix30K = ({ {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389} }) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Berechnung der neuen Nullpunkte einer Schale des expandierten Clusters ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mn61Fz2M = MatrixForm[mn61*z2] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Extrahierung der Einzeltripel (neuen Nullpunktkoordinaten) Erstellung von Matrizen mit den Nullpunktkoordinaten zur weiteren Berechnung ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mn61Fz2M[[1, 1]] mn61Fz2M11Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M11Matrix20K = ({ {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896} }) mn61Fz2M11Matrix30K = ({ {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896} }) mn61Fz2M[[1, 2]] mn61Fz2M12Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M12Matrix20K = ({ {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896} }) mn61Fz2M12Matrix30K = ({ {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896} }) mn61Fz2M[[1, 3]] mn61Fz2M13Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M13Matrix20K = ({ {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896} }) mn61Fz2M13Matrix30K = ({ {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896} }) mn61Fz2M[[1, 4]] mn61Fz2M14Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M14Matrix20K = ({ {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896} }) mn61Fz2M14Matrix30K = ({ {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896} }) mn61Fz2M[[1, 5]] mn61Fz2M15Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M15Matrix20K = ({ {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896} }) mn61Fz2M15Matrix30K = ({ {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896} }) mn61Fz2M[[1, 6]] mn61Fz2M16Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M16Matrix20K = ({ {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507} }) mn61Fz2M16Matrix30K = ({ {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507} }) mn61Fz2M[[1, 7]] mn61Fz2M17Matrix12K = \!\(\* TagBox[ TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M17Matrix20K = ({ {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507} }) mn61Fz2M17Matrix30K = ({ {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507} }) mn61Fz2M[[1, 8]] mn61Fz2M18Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M18Matrix20K = ({ {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507} }) mn61Fz2M18Matrix30K = ({ {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507} }) mn61Fz2M[[1, 9]] mn61Fz2M19Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M19Matrix20K = ({ {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507} }) mn61Fz2M19Matrix30K = ({ {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507} }) mn61Fz2M[[1, 10]] mn61Fz2M110Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M110Matrix20K = ({ {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507} }) mn61Fz2M110Matrix30K = ({ {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507} }) mn61Fz2M[[1, 11]] mn61Fz2M111Matrix12K = ({ {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507} }) mn61Fz2M111Matrix20K = ({ {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507} }) mn61Fz2M111Matrix30K = ({ {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507} }) mn61Fz2M[[1, 12]] mn61Fz2M112Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M112Matrix20K = ({ {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507} }) mn61Fz2M112Matrix30K = ({ {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507} }) mn61Fz2M[[1, 13]] mn61Fz2M113Matrix12K = ({ {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507} }) mn61Fz2M113Matrix20K = ({ {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507} }) mn61Fz2M113Matrix30K = ({ {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507} }) mn61Fz2M[[1, 14]] mn61Fz2M114Matrix12K = ({ {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507} }) mn61Fz2M114Matrix20K = ({ {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507} }) mn61Fz2M114Matrix30K = ({ {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507} }) mn61Fz2M[[1, 15]] mn61Fz2M115Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M115Matrix20K = ({ {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507} }) mn61Fz2M115Matrix30K = ({ {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507} }) mn61Fz2M[[1, 16]] mn61Fz2M116Matrix12K = ({ {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896} }) mn61Fz2M116Matrix20K = ({ {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896} }) mn61Fz2M116Matrix30K = ({ {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896} }) mn61Fz2M[[1, 17]] mn61Fz2M117Matrix12K = ({ {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896} }) mn61Fz2M117Matrix20K = ({ {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896} }) mn61Fz2M117Matrix30K = ({ {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896} }) mn61Fz2M[[1, 18]] mn61Fz2M118Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M118Matrix20K = ({ {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896} }) mn61Fz2M118Matrix30K = ({ {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896} }) mn61Fz2M[[1, 19]] mn61Fz2M119Matrix12K = ({ {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896} }) mn61Fz2M119Matrix20K = ({ {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896} }) mn61Fz2M119Matrix30K = ({ {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896} }) mn61Fz2M[[1, 20]] mn61Fz2M120Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M120Matrix20K = ({ {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896} }) mn61Fz2M120Matrix30K = ({ {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896} }) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Berechnung der neuen Nullpunkte einer Schale des expandierten Clusters ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mm3Fz2M = MatrixForm[mm3*z2] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Extrahierung der Einzeltripel (neuen Nullpunktkoordinaten) Erstellung von Matrizen mit den Nullpunktkoordinaten zur weiteren Berechnung ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mm3Fz2M[[1, 1]] \!\(\* TagBox[ RowBox[{"mm3Fz2M11Matrix12K", "=", RowBox[{"(", "", GridBox[{ {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}]}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) \!\(\* TagBox[ RowBox[{"mm3Fz2M11Matrix20K", "=", RowBox[{"(", "", GridBox[{ {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}]}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) \!\(\* TagBox[ RowBox[{"mm3Fz2M11Matrix30K", "=", RowBox[{"(", "", GridBox[{ {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}]}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mm3Fz2M[[1, 2]] mm3Fz2M12Matrix12K = ({ {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389} }) mm3Fz2M12Matrix20K = ({ {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389} }) mm3Fz2M12Matrix30K = ({ {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389} }) mm3Fz2M[[1, 3]] mm3Fz2M13Matrix12K = ({ {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389} }) mm3Fz2M13Matrix20K = ({ {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389} }) mm3Fz2M13Matrix30K = ({ {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389} }) mm3Fz2M[[1, 4]] mm3Fz2M14Matrix12K = ({ {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389} }) mm3Fz2M14Matrix20K = ({ {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389} }) mm3Fz2M14Matrix30K = ({ {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389} }) mm3Fz2M[[1, 5]] mm3Fz2M15Matrix12K = ({ {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389} }) mm3Fz2M15Matrix20K = ({ {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389} }) mm3Fz2M15Matrix30K = ({ {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389} }) mm3Fz2M[[1, 6]] mm3Fz2M16Matrix12K = ({ {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017} }) mm3Fz2M16Matrix20K = ({ {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017} }) mm3Fz2M16Matrix30K = ({ {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017} }) mm3Fz2M[[1, 7]] mm3Fz2M17Matrix12K = ({ {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017} }) mm3Fz2M17Matrix20K = ({ {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017} }) mm3Fz2M17Matrix30K = ({ {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017} }) mm3Fz2M[[1, 8]] mm3Fz2M18Matrix12K = ({ {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017} }) mm3Fz2M18Matrix20K = ({ {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017} }) mm3Fz2M18Matrix30K = ({ {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017} }) mm3Fz2M[[1, 9]] mm3Fz2M19Matrix12K =({ {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017} }) mm3Fz2M19Matrix20K =({ {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017} }) mm3Fz2M19Matrix30K =({ {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017} }) mm3Fz2M[[1, 10]] mm3Fz2M110Matrix12K = ({ {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017} }) mm3Fz2M110Matrix20K = ({ {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017} }) mm3Fz2M110Matrix30K = ({ {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017} }) mm3Fz2M[[1, 11]] mm3Fz2M111Matrix12K = ({ {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0} }) mm3Fz2M111Matrix20K = ({ {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0} }) mm3Fz2M111Matrix30K = ({ {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0} }) mm3Fz2M[[1, 12]] mm3Fz2M112Matrix12K = ({ {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0} }) mm3Fz2M112Matrix20K = ({ {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0} }) mm3Fz2M112Matrix30K = ({ {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0} }) mm3Fz2M[[1, 13]] mm3Fz2M113Matrix12K = ({ {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0} }) mm3Fz2M113Matrix20K = ({ {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0} }) mm3Fz2M113Matrix30K = ({ {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0} }) mm3Fz2M[[1, 14]] mm3Fz2M114Matrix12K = ({ {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0} }) mm3Fz2M114Matrix20K = ({ {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0} }) mm3Fz2M114Matrix30K = ({ {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0} }) mm3Fz2M[[1, 15]] mm3Fz2M115Matrix12K = ({ {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0} }) mm3Fz2M115Matrix20K = ({ {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0} }) mm3Fz2M115Matrix30K = ({ {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0} }) mm3Fz2M[[1, 16]] mm3Fz2M116Matrix12K = ({ {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0} }) mm3Fz2M116Matrix20K = ({ {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0} }) mm3Fz2M116Matrix30K = ({ {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0} }) mm3Fz2M[[1, 17]] mm3Fz2M117Matrix12K = ({ {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0} }) mm3Fz2M117Matrix20K = ({ {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0} }) mm3Fz2M117Matrix30K = ({ {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0} }) mm3Fz2M[[1, 18]] mm3Fz2M118Matrix12K = ({ {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0} }) mm3Fz2M118Matrix20K = ({ {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0} }) mm3Fz2M118Matrix30K = ({ {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0} }) mm3Fz2M[[1, 19]] mm3Fz2M119Matrix12K = ({ {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0} }) mm3Fz2M119Matrix20K = ({ {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0} }) mm3Fz2M119Matrix30K = ({ {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0} }) mm3Fz2M[[1, 20]] mm3Fz2M120Matrix12K = ({ {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0} }) mm3Fz2M120Matrix20K = ({ {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0} }) mm3Fz2M120Matrix30K = ({ {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0} }) mm3Fz2M[[1, 21]] mm3Fz2M121Matrix12K = ({ {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017} }) mm3Fz2M121Matrix20K = ({ {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017} }) mm3Fz2M121Matrix30K = ({ {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017} }) mm3Fz2M[[1, 22]] mm3Fz2M122Matrix12K = ({ {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017} }) mm3Fz2M122Matrix20K = ({ {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017} }) mm3Fz2M122Matrix30K = ({ {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017} }) mm3Fz2M[[1, 23]] mm3Fz2M123Matrix12K = ({ {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017} }) mm3Fz2M123Matrix20K = ({ {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017} }) mm3Fz2M123Matrix30K = ({ {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017} }) mm3Fz2M[[1, 24]] mm3Fz2M124Matrix12K = ({ {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017} }) mm3Fz2M124Matrix20K = ({ {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017} }) mm3Fz2M124Matrix30K = ({ {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017} }) mm3Fz2M[[1, 25]] mm3Fz2M125Matrix12K = ({ {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017} }) mm3Fz2M125Matrix20K = ({ {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017} }) mm3Fz2M125Matrix30K = ({ {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017} }) mm3Fz2M[[1, 26]] mm3Fz2M126Matrix12K = ({ {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389} }) mm3Fz2M126Matrix20K = ({ {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389} }) mm3Fz2M126Matrix30K = ({ {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389} }) mm3Fz2M[[1, 27]] mm3Fz2M127Matrix12K = ({ {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389} }) mm3Fz2M127Matrix20K = ({ {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389} }) mm3Fz2M127Matrix30K = ({ {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389} }) mm3Fz2M[[1, 28]] mm3Fz2M128Matrix12K = ({ {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389} }) mm3Fz2M128Matrix20K = ({ {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389} }) mm3Fz2M128Matrix30K = ({ {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389} }) mm3Fz2M[[1, 29]] mm3Fz2M129Matrix12K = ({ {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389} }) mm3Fz2M129Matrix20K = ({ {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389} }) mm3Fz2M129Matrix30K = ({ {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389} }) mm3Fz2M[[1, 30]] mm3Fz2M130Matrix12K = ({ {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389} }) mm3Fz2M130Matrix20K = ({ {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389} }) mm3Fz2M130Matrix30K = ({ {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389} }) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Addition der neuen Nullpunktkoordinaten mit den einzelnen \ Clusterkugeln 12 Cluster in 1. Schale [ma/na] ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) maS01mn61Fz2M11 = (ma) + (ml2Fz2M11Matrix12K) maS01mn61Fz2M12 = (ma) + (ml2Fz2M12Matrix12K) maS01mn61Fz2M13 = (ma) + (ml2Fz2M13Matrix12K) maS01mn61Fz2M14 = (ma) + (ml2Fz2M14Matrix12K) maS01mn61Fz2M15 = (ma) + (ml2Fz2M15Matrix12K) maS01mn61Fz2M16 = (ma) + (ml2Fz2M16Matrix12K) maS01mn61Fz2M17 = (ma) + (ml2Fz2M17Matrix12K) maS01mn61Fz2M18 = (ma) + (ml2Fz2M18Matrix12K) maS01mn61Fz2M19 = (ma) + (ml2Fz2M19Matrix12K) maS01mn61Fz2M110 = (ma) + (ml2Fz2M110Matrix12K) maS01mn61Fz2M111 = (ma) + (ml2Fz2M111Matrix12K) maS01mn61Fz2M112 = (ma) + (ml2Fz2M112Matrix12K) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Addition der neuen Nullpunktkoordinaten mit den einzelnen \ Clusterkugeln 12 Cluster in 1. Schale [mb1/nb1] ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mb1S01mn61Fz2M11 = (mb1) + (ml2Fz2M11Matrix20K) mb1S01mn61Fz2M12 = (mb1) + (ml2Fz2M12Matrix20K) mb1S01mn61Fz2M13 = (mb1) + (ml2Fz2M13Matrix20K) mb1S01mn61Fz2M14 = (mb1) + (ml2Fz2M14Matrix20K) mb1S01mn61Fz2M15 = (mb1) + (ml2Fz2M15Matrix20K) mb1S01mn61Fz2M16 = (mb1) + (ml2Fz2M16Matrix20K) mb1S01mn61Fz2M17 = (mb1) + (ml2Fz2M17Matrix20K) mb1S01mn61Fz2M18 = (mb1) + (ml2Fz2M18Matrix20K) mb1S01mn61Fz2M19 = (mb1) + (ml2Fz2M19Matrix20K) mb1S01mn61Fz2M110 = (mb1) + (ml2Fz2M110Matrix20K) mb1S01mn61Fz2M111 = (mb1) + (ml2Fz2M111Matrix20K) mb1S01mn61Fz2M112 = (mb1) + (ml2Fz2M112Matrix20K) (* 12 Cluster in 2. Schale [ml2/nl2] *) ml2S02mn61Fz2M11 = (ml2) + (mm3Fz2M11Matrix12K) ml2S02mn61Fz2M12 = (ml2) + (mm3Fz2M12Matrix12K) ml2S02mn61Fz2M13 = (ml2) + (mm3Fz2M13Matrix12K) ml2S02mn61Fz2M14 = (ml2) + (mm3Fz2M14Matrix12K) ml2S02mn61Fz2M15 = (ml2) + (mm3Fz2M15Matrix12K) ml2S02mn61Fz2M16 = (ml2) + (mm3Fz2M16Matrix12K) ml2S02mn61Fz2M17 = (ml2) + (mm3Fz2M17Matrix12K) ml2S02mn61Fz2M18 = (ml2) + (mm3Fz2M18Matrix12K) ml2S02mn61Fz2M19 = (ml2) + (mm3Fz2M19Matrix12K) ml2S02mn61Fz2M110 = (ml2) + (mm3Fz2M110Matrix12K) ml2S02mn61Fz2M111 = (ml2) + (mm3Fz2M111Matrix12K) ml2S02mn61Fz2M112 = (ml2) + (mm3Fz2M112Matrix12K) ml2S02mn61Fz2M113 = (ml2) + (mm3Fz2M113Matrix12K) ml2S02mn61Fz2M114 = (ml2) + (mm3Fz2M114Matrix12K) ml2S02mn61Fz2M115 = (ml2) + (mm3Fz2M115Matrix12K) ml2S02mn61Fz2M116 = (ml2) + (mm3Fz2M116Matrix12K) ml2S02mn61Fz2M117 = (ml2) + (mm3Fz2M117Matrix12K) ml2S02mn61Fz2M118 = (ml2) + (mm3Fz2M118Matrix12K) ml2S02mn61Fz2M119 = (ml2) + (mm3Fz2M119Matrix12K) ml2S02mn61Fz2M120 = (ml2) + (mm3Fz2M120Matrix12K) ml2S02mn61Fz2M121 = (ml2) + (mm3Fz2M121Matrix12K) ml2S02mn61Fz2M122 = (ml2) + (mm3Fz2M122Matrix12K) ml2S02mn61Fz2M123 = (ml2) + (mm3Fz2M123Matrix12K) ml2S02mn61Fz2M124 = (ml2) + (mm3Fz2M124Matrix12K) ml2S02mn61Fz2M125 = (ml2) + (mm3Fz2M125Matrix12K) ml2S02mn61Fz2M126 = (ml2) + (mm3Fz2M126Matrix12K) ml2S02mn61Fz2M127 = (ml2) + (mm3Fz2M127Matrix12K) ml2S02mn61Fz2M128 = (ml2) + (mm3Fz2M128Matrix12K) ml2S02mn61Fz2M129 = (ml2) + (mm3Fz2M129Matrix12K) ml2S02mn61Fz2M130 = (ml2) + (mm3Fz2M130Matrix12K) (* 30 Cluster in 2. Schale [mm3/nm3]*) mm3S02mn61Fz2M11 = (mm3) + (mm3Fz2M11Matrix30K) mm3S02mn61Fz2M12 = (mm3) + (mm3Fz2M12Matrix30K) mm3S02mn61Fz2M13 = (mm3) + (mm3Fz2M13Matrix30K) mm3S02mn61Fz2M14 = (mm3) + (mm3Fz2M14Matrix30K) mm3S02mn61Fz2M15 = (mm3) + (mm3Fz2M15Matrix30K) mm3S02mn61Fz2M16 = (mm3) + (mm3Fz2M16Matrix30K) mm3S02mn61Fz2M17 = (mm3) + (mm3Fz2M17Matrix30K) mm3S02mn61Fz2M18 = (mm3) + (mm3Fz2M18Matrix30K) mm3S02mn61Fz2M19 = (mm3) + (mm3Fz2M19Matrix30K) mm3S02mn61Fz2M110 = (mm3) + (mm3Fz2M110Matrix30K) mm3S02mn61Fz2M111 = (mm3) + (mm3Fz2M111Matrix30K) mm3S02mn61Fz2M112 = (mm3) + (mm3Fz2M112Matrix30K) mm3S02mn61Fz2M113 = (mm3) + (mm3Fz2M113Matrix30K) mm3S02mn61Fz2M114 = (mm3) + (mm3Fz2M114Matrix30K) mm3S02mn61Fz2M115 = (mm3) + (mm3Fz2M115Matrix30K) mm3S02mn61Fz2M116 = (mm3) + (mm3Fz2M116Matrix30K) mm3S02mn61Fz2M117 = (mm3) + (mm3Fz2M117Matrix30K) mm3S02mn61Fz2M118 = (mm3) + (mm3Fz2M118Matrix30K) mm3S02mn61Fz2M119 = (mm3) + (mm3Fz2M119Matrix30K) mm3S02mn61Fz2M120 = (mm3) + (mm3Fz2M120Matrix30K) mm3S02mn61Fz2M121 = (mm3) + (mm3Fz2M121Matrix30K) mm3S02mn61Fz2M122 = (mm3) + (mm3Fz2M122Matrix30K) mm3S02mn61Fz2M123 = (mm3) + (mm3Fz2M123Matrix30K) mm3S02mn61Fz2M124 = (mm3) + (mm3Fz2M124Matrix30K) mm3S02mn61Fz2M125 = (mm3) + (mm3Fz2M125Matrix30K) mm3S02mn61Fz2M126 = (mm3) + (mm3Fz2M126Matrix30K) mm3S02mn61Fz2M127 = (mm3) + (mm3Fz2M127Matrix30K) mm3S02mn61Fz2M128 = (mm3) + (mm3Fz2M128Matrix30K) mm3S02mn61Fz2M129 = (mm3) + (mm3Fz2M129Matrix30K) mm3S02mn61Fz2M130 = (mm3) + (mm3Fz2M130Matrix30K) (* 12 Cluster in 3. Schale [ma/na] *) maS03mn61Fz2M11 = (ma) + (mn61Fz2M11Matrix12K) maS03mn61Fz2M12 = (ma) + (mn61Fz2M12Matrix12K) maS03mn61Fz2M13 = (ma) + (mn61Fz2M13Matrix12K) maS03mn61Fz2M14 = (ma) + (mn61Fz2M14Matrix12K) maS03mn61Fz2M15 = (ma) + (mn61Fz2M15Matrix12K) maS03mn61Fz2M16 = (ma) + (mn61Fz2M16Matrix12K) maS03mn61Fz2M17 = (ma) + (mn61Fz2M17Matrix12K) maS03mn61Fz2M18 = (ma) + (mn61Fz2M18Matrix12K) maS03mn61Fz2M19 = (ma) + (mn61Fz2M19Matrix12K) maS03mn61Fz2M110 = (ma) + (mn61Fz2M110Matrix12K) maS03mn61Fz2M111 = (ma) + (mn61Fz2M111Matrix12K) maS03mn61Fz2M112 = (ma) + (mn61Fz2M112Matrix12K) maS03mn61Fz2M113 = (ma) + (mn61Fz2M113Matrix12K) maS03mn61Fz2M114 = (ma) + (mn61Fz2M114Matrix12K) maS03mn61Fz2M115 = (ma) + (mn61Fz2M115Matrix12K) maS03mn61Fz2M116 = (ma) + (mn61Fz2M116Matrix12K) maS03mn61Fz2M117 = (ma) + (mn61Fz2M117Matrix12K) maS03mn61Fz2M118 = (ma) + (mn61Fz2M118Matrix12K) maS03mn61Fz2M119 = (ma) + (mn61Fz2M119Matrix12K) maS03mn61Fz2M120 = (ma) + (mn61Fz2M120Matrix12K) (* 20 Cluster in 3. Schale [mb1/nb1] *) mb1S03mn61Fz2M11 = (mb1) + (mn61Fz2M11Matrix20K) mb1S03mn61Fz2M12 = (mb1) + (mn61Fz2M12Matrix20K) mb1S03mn61Fz2M13 = (mb1) + (mn61Fz2M13Matrix20K) mb1S03mn61Fz2M14 = (mb1) + (mn61Fz2M14Matrix20K) mb1S03mn61Fz2M15 = (mb1) + (mn61Fz2M15Matrix20K) mb1S03mn61Fz2M16 = (mb1) + (mn61Fz2M16Matrix20K) mb1S03mn61Fz2M17 = (mb1) + (mn61Fz2M17Matrix20K) mb1S03mn61Fz2M18 = (mb1) + (mn61Fz2M18Matrix20K) mb1S03mn61Fz2M19 = (mb1) + (mn61Fz2M19Matrix20K) mb1S03mn61Fz2M110 = (mb1) + (mn61Fz2M110Matrix20K) mb1S03mn61Fz2M111 = (mb1) + (mn61Fz2M111Matrix20K) mb1S03mn61Fz2M112 = (mb1) + (mn61Fz2M112Matrix20K) mb1S03mn61Fz2M113 = (mb1) + (mn61Fz2M113Matrix20K) mb1S03mn61Fz2M114 = (mb1) + (mn61Fz2M114Matrix20K) mb1S03mn61Fz2M115 = (mb1) + (mn61Fz2M115Matrix20K) mb1S03mn61Fz2M116 = (mb1) + (mn61Fz2M116Matrix20K) mb1S03mn61Fz2M117 = (mb1) + (mn61Fz2M117Matrix20K) mb1S03mn61Fz2M118 = (mb1) + (mn61Fz2M118Matrix20K) mb1S03mn61Fz2M119 = (mb1) + (mn61Fz2M119Matrix20K) mb1S03mn61Fz2M120 = (mb1) + (mn61Fz2M120Matrix20K) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## 3D-Spheres Construction Principle of the Clusters of the 2nd Generation ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## *) Graphics3D[{Blue, Sphere[ml20, nl20], Green, Sphere[ml2, nl2], Red, Sphere[mm3, nm3], Yellow, Sphere[mn61, nn61]}] Graphics3D[{Blue, Sphere[{ml20}, nl20], Green, Sphere[{ml2*z2}, nl2], Red, Sphere[{mm3*z2}, nm3], Yellow, Sphere[{mn61*z2}, nn61]}] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## # Step by Step Growth of a T\[CloseCurlyQuote]2-Cluster {2} 1. Step Growth of a T\[CloseCurlyQuote]2-Cluster {2} MBMB ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## *) Graphics3D[{ (*Mckay-Baustein (ml2/mm3)(Cyan/Green)*) (*1. Schale Blue (ml2/mm3)(Cyan/Blue)*) Cyan, Sphere[ml2, nl2], Blue, Sphere[mm3, nm3] }] Graphics3D[{ (*Mckay-Baustein (ml2/mm3)(Cyan/Green)*) (*1. Schale Blue (ml2/mm3)(Cyan/Blue)*) Cyan, Sphere[ml2, nl2], Blue, Sphere[mm3, nm3], (*Bergman-Baustein (ma/mb1) (Pink/Blue*) (* 2. Schale Green (ma/mb1)(Pink/Green (lt. Schalendefinition)*) Pink, Sphere[maS01mn61Fz2M11, na], Pink, Sphere[maS01mn61Fz2M12, na], Pink, Sphere[maS01mn61Fz2M13, na], Pink, Sphere[maS01mn61Fz2M14, na], Pink, Sphere[maS01mn61Fz2M15, na], Pink, Sphere[maS01mn61Fz2M16, na], Pink, Sphere[maS01mn61Fz2M17, na], Pink, Sphere[maS01mn61Fz2M18, na], Pink, Sphere[maS01mn61Fz2M19, na], Pink, Sphere[maS01mn61Fz2M110, na], Pink, Sphere[maS01mn61Fz2M111, na], Pink, Sphere[maS01mn61Fz2M112, na], Green, Sphere[mb1S01mn61Fz2M11, nb1], Green, Sphere[mb1S01mn61Fz2M12, nb1], Green, Sphere[mb1S01mn61Fz2M13, nb1], Green, Sphere[mb1S01mn61Fz2M14, nb1], Green, Sphere[mb1S01mn61Fz2M15, nb1], Green, Sphere[mb1S01mn61Fz2M16, nb1], Green, Sphere[mb1S01mn61Fz2M17, nb1], Green, Sphere[mb1S01mn61Fz2M18, nb1], Green, Sphere[mb1S01mn61Fz2M19, nb1], Green, Sphere[mb1S01mn61Fz2M110, nb1], Green, Sphere[mb1S01mn61Fz2M111, nb1], Green, Sphere[mb1S01mn61Fz2M112, nb1] }] Graphics3D[{ (*Mckay-Baustein (ml2/mm3)(Cyan/Green)*) (*1. Schale Blue (ml2/mm3)(Cyan/Blue)*) Cyan, Sphere[ml2, nl2], Blue, Sphere[mm3, nm3], (*Bergman-Baustein (ma/mb1) (Pink/Blue*) (* 2. Schale Green (ma/mb1)(Pink/Green (lt. Schalendefinition)*) Pink, Sphere[maS01mn61Fz2M11, na], Pink, Sphere[maS01mn61Fz2M12, na], Pink, Sphere[maS01mn61Fz2M13, na], Pink, Sphere[maS01mn61Fz2M14, na], Pink, Sphere[maS01mn61Fz2M15, na], Pink, Sphere[maS01mn61Fz2M16, na], Pink, Sphere[maS01mn61Fz2M17, na], Pink, Sphere[maS01mn61Fz2M18, na], Pink, Sphere[maS01mn61Fz2M19, na], Pink, Sphere[maS01mn61Fz2M110, na], Pink, Sphere[maS01mn61Fz2M111, na], Pink, Sphere[maS01mn61Fz2M112, na], Green, Sphere[mb1S01mn61Fz2M11, nb1], Green, Sphere[mb1S01mn61Fz2M12, nb1], Green, Sphere[mb1S01mn61Fz2M13, nb1], Green, Sphere[mb1S01mn61Fz2M14, nb1], Green, Sphere[mb1S01mn61Fz2M15, nb1], Green, Sphere[mb1S01mn61Fz2M16, nb1], Green, Sphere[mb1S01mn61Fz2M17, nb1], Green, Sphere[mb1S01mn61Fz2M18, nb1], Green, Sphere[mb1S01mn61Fz2M19, nb1], Green, Sphere[mb1S01mn61Fz2M110, nb1], Green, Sphere[mb1S01mn61Fz2M111, nb1], Green, Sphere[mb1S01mn61Fz2M112, nb1], (*Mckay-Baustein (ml2/mm3)(Cyan/Green)*) (* 3. Schale Red (ml2/mm3)(Cyan/Red)*) Cyan, Sphere[ml2S02mn61Fz2M11, nl2], Cyan, Sphere[ml2S02mn61Fz2M12, nl2], Cyan, Sphere[ml2S02mn61Fz2M13, nl2], Cyan, Sphere[ml2S02mn61Fz2M14, nl2], Cyan, Sphere[ml2S02mn61Fz2M15, nl2], Cyan, Sphere[ml2S02mn61Fz2M16, nl2], Cyan, Sphere[ml2S02mn61Fz2M17, nl2], Cyan, Sphere[ml2S02mn61Fz2M18, nl2], Cyan, Sphere[ml2S02mn61Fz2M19, nl2], Cyan, Sphere[ml2S02mn61Fz2M110, nl2], Cyan, Sphere[ml2S02mn61Fz2M111, nl2], Cyan, Sphere[ml2S02mn61Fz2M112, nl2], Cyan, Sphere[ml2S02mn61Fz2M113, nl2], Cyan, Sphere[ml2S02mn61Fz2M114, nl2], Cyan, Sphere[ml2S02mn61Fz2M115, nl2], Cyan, Sphere[ml2S02mn61Fz2M116, nl2], Cyan, Sphere[ml2S02mn61Fz2M117, nl2], Cyan, Sphere[ml2S02mn61Fz2M118, nl2], Cyan, Sphere[ml2S02mn61Fz2M119, nl2], Cyan, Sphere[ml2S02mn61Fz2M120, nl2], Cyan, Sphere[ml2S02mn61Fz2M121, nl2], Cyan, Sphere[ml2S02mn61Fz2M122, nl2], Cyan, Sphere[ml2S02mn61Fz2M123, nl2], Cyan, Sphere[ml2S02mn61Fz2M124, nl2], Cyan, Sphere[ml2S02mn61Fz2M125, nl2], Cyan, Sphere[ml2S02mn61Fz2M126, nl2], Cyan, Sphere[ml2S02mn61Fz2M127, nl2], Cyan, Sphere[ml2S02mn61Fz2M128, nl2], Cyan, Sphere[ml2S02mn61Fz2M129, nl2], Cyan, Sphere[ml2S02mn61Fz2M130, nl2], Red, Sphere[mm3S02mn61Fz2M11, nm3], Red, Sphere[mm3S02mn61Fz2M12, nm3], Red, Sphere[mm3S02mn61Fz2M13, nm3], Red, Sphere[mm3S02mn61Fz2M14, nm3], Red, Sphere[mm3S02mn61Fz2M15, nm3], Red, Sphere[mm3S02mn61Fz2M16, nm3], Red, Sphere[mm3S02mn61Fz2M17, nm3], Red, Sphere[mm3S02mn61Fz2M18, nm3], Red, Sphere[mm3S02mn61Fz2M19, nm3], Red, Sphere[mm3S02mn61Fz2M110, nm3], Red, Sphere[mm3S02mn61Fz2M111, nm3], Red, Sphere[mm3S02mn61Fz2M112, nm3], Red, Sphere[mm3S02mn61Fz2M113, nm3], Red, Sphere[mm3S02mn61Fz2M114, nm3], Red, Sphere[mm3S02mn61Fz2M115, nm3], Red, Sphere[mm3S02mn61Fz2M116, nm3], Red, Sphere[mm3S02mn61Fz2M117, nm3], Red, Sphere[mm3S02mn61Fz2M118, nm3], Red, Sphere[mm3S02mn61Fz2M119, nm3], Red, Sphere[mm3S02mn61Fz2M120, nm3], Red, Sphere[mm3S02mn61Fz2M121, nm3], Red, Sphere[mm3S02mn61Fz2M122, nm3], Red, Sphere[mm3S02mn61Fz2M123, nm3], Red, Sphere[mm3S02mn61Fz2M124, nm3], Red, Sphere[mm3S02mn61Fz2M125, nm3], Red, Sphere[mm3S02mn61Fz2M126, nm3], Red, Sphere[mm3S02mn61Fz2M127, nm3], Red, Sphere[mm3S02mn61Fz2M128, nm3], Red, Sphere[mm3S02mn61Fz2M129, nm3], Red, Sphere[mm3S02mn61Fz2M130, nm3] }] Graphics3D[{ (*Mckay-Baustein (ml2/mm3)(Cyan/Green)*) (*1. Schale Blue (ml2/mm3)(Cyan/Blue)*) Cyan, Sphere[ml2, nl2], Blue, Sphere[mm3, nm3], (*Bergman-Baustein (ma/mb1) (Pink/Blue*) (* 2. Schale Green (ma/mb1)(Pink/Green (lt. Schalendefinition)*) Pink, Sphere[maS01mn61Fz2M11, na], Pink, Sphere[maS01mn61Fz2M12, na], Pink, Sphere[maS01mn61Fz2M13, na], Pink, Sphere[maS01mn61Fz2M14, na], Pink, Sphere[maS01mn61Fz2M15, na], Pink, Sphere[maS01mn61Fz2M16, na], Pink, Sphere[maS01mn61Fz2M17, na], Pink, Sphere[maS01mn61Fz2M18, na], Pink, Sphere[maS01mn61Fz2M19, na], Pink, Sphere[maS01mn61Fz2M110, na], Pink, Sphere[maS01mn61Fz2M111, na], Pink, Sphere[maS01mn61Fz2M112, na], Green, Sphere[mb1S01mn61Fz2M11, nb1], Green, Sphere[mb1S01mn61Fz2M12, nb1], Green, Sphere[mb1S01mn61Fz2M13, nb1], Green, Sphere[mb1S01mn61Fz2M14, nb1], Green, Sphere[mb1S01mn61Fz2M15, nb1], Green, Sphere[mb1S01mn61Fz2M16, nb1], Green, Sphere[mb1S01mn61Fz2M17, nb1], Green, Sphere[mb1S01mn61Fz2M18, nb1], Green, Sphere[mb1S01mn61Fz2M19, nb1], Green, Sphere[mb1S01mn61Fz2M110, nb1], Green, Sphere[mb1S01mn61Fz2M111, nb1], Green, Sphere[mb1S01mn61Fz2M112, nb1], (*Mckay-Baustein (ml2/mm3)(Cyan/Green)*) (* 3. Schale Red (ml2/mm3)(Cyan/Red)*) Cyan, Sphere[ml2S02mn61Fz2M11, nl2], Cyan, Sphere[ml2S02mn61Fz2M12, nl2], Cyan, Sphere[ml2S02mn61Fz2M13, nl2], Cyan, Sphere[ml2S02mn61Fz2M14, nl2], Cyan, Sphere[ml2S02mn61Fz2M15, nl2], Cyan, Sphere[ml2S02mn61Fz2M16, nl2], Cyan, Sphere[ml2S02mn61Fz2M17, nl2], Cyan, Sphere[ml2S02mn61Fz2M18, nl2], Cyan, Sphere[ml2S02mn61Fz2M19, nl2], Cyan, Sphere[ml2S02mn61Fz2M110, nl2], Cyan, Sphere[ml2S02mn61Fz2M111, nl2], Cyan, Sphere[ml2S02mn61Fz2M112, nl2], Cyan, Sphere[ml2S02mn61Fz2M113, nl2], Cyan, Sphere[ml2S02mn61Fz2M114, nl2], Cyan, Sphere[ml2S02mn61Fz2M115, nl2], Cyan, Sphere[ml2S02mn61Fz2M116, nl2], Cyan, Sphere[ml2S02mn61Fz2M117, nl2], Cyan, Sphere[ml2S02mn61Fz2M118, nl2], Cyan, Sphere[ml2S02mn61Fz2M119, nl2], Cyan, Sphere[ml2S02mn61Fz2M120, nl2], Cyan, Sphere[ml2S02mn61Fz2M121, nl2], Cyan, Sphere[ml2S02mn61Fz2M122, nl2], Cyan, Sphere[ml2S02mn61Fz2M123, nl2], Cyan, Sphere[ml2S02mn61Fz2M124, nl2], Cyan, Sphere[ml2S02mn61Fz2M125, nl2], Cyan, Sphere[ml2S02mn61Fz2M126, nl2], Cyan, Sphere[ml2S02mn61Fz2M127, nl2], Cyan, Sphere[ml2S02mn61Fz2M128, nl2], Cyan, Sphere[ml2S02mn61Fz2M129, nl2], Cyan, Sphere[ml2S02mn61Fz2M130, nl2], Red, Sphere[mm3S02mn61Fz2M11, nm3], Red, Sphere[mm3S02mn61Fz2M12, nm3], Red, Sphere[mm3S02mn61Fz2M13, nm3], Red, Sphere[mm3S02mn61Fz2M14, nm3], Red, Sphere[mm3S02mn61Fz2M15, nm3], Red, Sphere[mm3S02mn61Fz2M16, nm3], Red, Sphere[mm3S02mn61Fz2M17, nm3], Red, Sphere[mm3S02mn61Fz2M18, nm3], Red, Sphere[mm3S02mn61Fz2M19, nm3], Red, Sphere[mm3S02mn61Fz2M110, nm3], Red, Sphere[mm3S02mn61Fz2M111, nm3], Red, Sphere[mm3S02mn61Fz2M112, nm3], Red, Sphere[mm3S02mn61Fz2M113, nm3], Red, Sphere[mm3S02mn61Fz2M114, nm3], Red, Sphere[mm3S02mn61Fz2M115, nm3], Red, Sphere[mm3S02mn61Fz2M116, nm3], Red, Sphere[mm3S02mn61Fz2M117, nm3], Red, Sphere[mm3S02mn61Fz2M118, nm3], Red, Sphere[mm3S02mn61Fz2M119, nm3], Red, Sphere[mm3S02mn61Fz2M120, nm3], Red, Sphere[mm3S02mn61Fz2M121, nm3], Red, Sphere[mm3S02mn61Fz2M122, nm3], Red, Sphere[mm3S02mn61Fz2M123, nm3], Red, Sphere[mm3S02mn61Fz2M124, nm3], Red, Sphere[mm3S02mn61Fz2M125, nm3], Red, Sphere[mm3S02mn61Fz2M126, nm3], Red, Sphere[mm3S02mn61Fz2M127, nm3], Red, Sphere[mm3S02mn61Fz2M128, nm3], Red, Sphere[mm3S02mn61Fz2M129, nm3], Red, Sphere[mm3S02mn61Fz2M130, nm3], (*Bergman-Baustein (ma/mb1) (Pink/Blue*) (* 4. Schale Yellow (ma/mb1)(Pink/Yellow)*) Pink, Sphere[maS03mn61Fz2M11, na], Pink, Sphere[maS03mn61Fz2M12, na], Pink, Sphere[maS03mn61Fz2M13, na], Pink, Sphere[maS03mn61Fz2M14, na], Pink, Sphere[maS03mn61Fz2M15, na], Pink, Sphere[maS03mn61Fz2M16, na], Pink, Sphere[maS03mn61Fz2M17, na], Pink, Sphere[maS03mn61Fz2M18, na], Pink, Sphere[maS03mn61Fz2M19, na], Pink, Sphere[maS03mn61Fz2M110, na], Pink, Sphere[maS03mn61Fz2M111, na], Pink, Sphere[maS03mn61Fz2M112, na], Pink, Sphere[maS03mn61Fz2M113, na], Pink, Sphere[maS03mn61Fz2M114, na], Pink, Sphere[maS03mn61Fz2M115, na], Pink, Sphere[maS03mn61Fz2M116, na], Pink, Sphere[maS03mn61Fz2M117, na], Pink, Sphere[maS03mn61Fz2M118, na], Pink, Sphere[maS03mn61Fz2M119, na], Pink, Sphere[maS03mn61Fz2M120, na], Yellow, Sphere[mb1S03mn61Fz2M11, nb1], Yellow, Sphere[mb1S03mn61Fz2M12, nb1], Yellow, Sphere[mb1S03mn61Fz2M13, nb1], Yellow, Sphere[mb1S03mn61Fz2M14, nb1], Yellow, Sphere[mb1S03mn61Fz2M15, nb1], Yellow, Sphere[mb1S03mn61Fz2M16, nb1], Yellow, Sphere[mb1S03mn61Fz2M17, nb1], Yellow, Sphere[mb1S03mn61Fz2M18, nb1], Yellow, Sphere[mb1S03mn61Fz2M19, nb1], Yellow, Sphere[mb1S03mn61Fz2M110, nb1], Yellow, Sphere[mb1S03mn61Fz2M111, nb1], Yellow, Sphere[mb1S03mn61Fz2M112, nb1], Yellow, Sphere[mb1S03mn61Fz2M113, nb1], Yellow, Sphere[mb1S03mn61Fz2M114, nb1], Yellow, Sphere[mb1S03mn61Fz2M115, nb1], Yellow, Sphere[mb1S03mn61Fz2M116, nb1], Yellow, Sphere[mb1S03mn61Fz2M117, nb1], Yellow, Sphere[mb1S03mn61Fz2M118, nb1], Yellow, Sphere[mb1S03mn61Fz2M119, nb1], Yellow, Sphere[mb1S03mn61Fz2M120, nb1] }] (* ## A3.2 CONSTRUCTION PRINCIPLE OF THE CLUSTERS OF THE 2ND GENERATION A3.3 STEP BY STEP GROWTH OF A T’1-CLUSTER{2} Yellow Gelb-Überlagerung der Koinzidenzplätze: Schalter: siehe "Switch" - coordinates - ## # *) ml20 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* center *) nl20 = {0.5} (* radius *) (* Mackay: 2. shell, spheres:12 *) ml2 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0.951057"}, {"0.850651", "0", "0.425325"}, {"0.262866", "0.809017", "0.425325"}, { RowBox[{"-", "0.688191"}], "0.5", "0.425325"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "0.5"}], "0.425325"}, {"0.262866", RowBox[{"-", "0.809017"}], "0.425325"}, {"0.688191", "0.5", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.262866"}], "0.809017", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.850651"}], "0", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.262866"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "0.425325"}]}, {"0.688191", RowBox[{"-", "0.5"}], RowBox[{"-", "0.425325"}]}, {"0", "0", RowBox[{"-", "0.951057"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nl2 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* radius *) (* Mackay: 3. shell, spheres:30 *) mm3 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.850651", "0", "1.376382"}, {"0.262865", "0.809017", "1.376382"}, { RowBox[{"-", "0.688191"}], "0.5", "1.376382"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "0.5"}], "1.376382"}, {"0.262865", RowBox[{"-", "0.809017"}], "1.376382"}, {"1.113516", "0.809017", "0.850651"}, { RowBox[{"-", "0.425325"}], "1.309017", "0.850651"}, { RowBox[{"-", "1.376382"}], "0", "0.850651"}, { RowBox[{"-", "0.425325"}], RowBox[{"-", "1.309017"}], "0.850651"}, {"1.113516", RowBox[{"-", "0.809017"}], "0.850651"}, {"1.538841", "0.5", "0"}, {"0.951056", "1.309017", "0"}, {"0", "1.618034", "0"}, { RowBox[{"-", "0.951056"}], "1.309017", "0"}, { RowBox[{"-", "1.538841"}], "0.5", "0"}, { RowBox[{"-", "1.538841"}], RowBox[{"-", "0.5"}], "0"}, { RowBox[{"-", "0.951056"}], RowBox[{"-", "1.309017"}], "0"}, {"0", RowBox[{"-", "1.618034"}], "0"}, {"0.951056", RowBox[{"-", "1.309017"}], "0"}, {"1.538841", RowBox[{"-", "0.5"}], "0"}, {"1.376382", "0", RowBox[{"-", "0.850651"}]}, {"0.425325", "1.309017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], "0.809017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "0.850651"}]}, {"0.425325", RowBox[{"-", "1.309017"}], RowBox[{"-", "0.850651"}]}, {"0.688191", "0.5", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.262865"}], "0.809017", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.850651"}], "0", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.262865"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "1.376382"}]}, {"0.688191", RowBox[{"-", "0.5"}], RowBox[{"-", "1.376382"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nm3 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} mn61 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.113516", "0.809017", "1.801707"}, { RowBox[{"-", "0.425325"}], "1.309017", "1.801707"}, { RowBox[{"-", "1.376382"}], "0", "1.801707"}, { RowBox[{"-", "0.425325"}], RowBox[{"-", "1.309017"}], "1.801707"}, {"1.113516", RowBox[{"-", "0.809017"}], "1.801707"}, {"1.801708", "1.309017", "0.425325"}, { RowBox[{"-", "0.688191"}], "2.118034", "0.425325"}, { RowBox[{"-", "2.227033"}], "0", "0.425325"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "2.118034"}], "0.425325"}, {"1.801708", RowBox[{"-", "1.309017"}], "0.425325"}, {"2.227033", "0", RowBox[{"-", "0.425325"}]}, {"0.688191", "2.118034", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "1.801708"}], "1.309017", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "1.801708"}], RowBox[{"-", "1.309017"}], RowBox[{"-", "0.425325"}]}, {"0.688191", RowBox[{"-", "2.118034"}], RowBox[{"-", "0.425325"}]}, {"1.376382", "0", RowBox[{"-", "1.801707"}]}, {"0.425325", "1.309017", RowBox[{"-", "1.801707"}]}, { RowBox[{"-", "1.113516"}], "0.809017", RowBox[{"-", "1.801707"}]}, { RowBox[{"-", "1.113516"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "1.801707"}]}, {"0.425325", RowBox[{"-", "1.309017"}], RowBox[{"-", "1.801707"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nn61 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* Bergman: „Mackay-Einsatz \[OpenCurlyDoubleQuote], spheres:1 *) ma0 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* center *) na0 = {0.415} (* radius *) (* Bergman: spheres:12 *) ma = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0.7841"}, {"0.7013", "0", "0.3507"}, {"0.2167", "0.667", "0.3507"}, { RowBox[{"-", "0.5674"}], "0.4122", "0.3507"}, { RowBox[{"-", "0.5674"}], RowBox[{"-", "0.4122"}], "0.3507"}, {"0.2167", RowBox[{"-", "0.667"}], "0.3507"}, {"0.5674", "0.4122", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.2167"}], "0.667", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.7013"}], "0", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.2167"}], RowBox[{"-", "0.667"}], RowBox[{"-", "0.3507"}]}, {"0.5674", RowBox[{"-", "0.4122"}], RowBox[{"-", "0.3507"}]}, {"0", "0", RowBox[{"-", "0.7841"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) na = {0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415} (* radius *) (* Bergman: 1. shell, spheres:12 *) mb1 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.6882", "0.5", "1.1135"}, { RowBox[{"-", "0.2629"}], "0.809", "1.1135"}, { RowBox[{"-", "0.8507"}], "0", "1.1135"}, { RowBox[{"-", "0.2629"}], RowBox[{"-", "0.809"}], "1.1135"}, {"0.6882", RowBox[{"-", "0.5"}], "1.1135"}, {"1.1135", "0.809", "0.2629"}, { RowBox[{"-", "0.4253"}], "1.309", "0.2629"}, { RowBox[{"-", "1.3764"}], "0", "0.2629"}, { RowBox[{"-", "0.4253"}], RowBox[{"-", "1.309"}], "0.2629"}, {"1.1135", RowBox[{"-", "0.809"}], "0.2629"}, {"1.3764", "0", RowBox[{"-", "0.2629"}]}, {"0.4253", "1.309", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], "0.809", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], RowBox[{"-", "0.809"}], RowBox[{"-", "0.2629"}]}, {"0.4253", RowBox[{"-", "1.309"}], RowBox[{"-", "0.2629"}]}, {"0.8507", "0", RowBox[{"-", "1.1135"}]}, {"0.2629", "0.809", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], "0.5", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], RowBox[{"-", "0.5"}], RowBox[{"-", "1.1135"}]}, {"0.2629", RowBox[{"-", "0.809"}], RowBox[{"-", "1.1135"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* "Switch *) nb1 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} nb1Yellow = {0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505} (* radius *) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## distance calculation z ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## *) z0mb1 = 1.1135 z1mm3 = 1.376382 z2 = (z0mb1 + z1mm3) z2 /= 0.951057 (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Berechnung der neuen Nullpunkte einer Schale des expandierten Clusters ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) ml2Fz2M = MatrixForm[ml2*z2] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Extrahierung der Einzeltripel aus Matrixform (neuen \ Nullpunktkoordinaten) Erstellung von Matrizen mit den Nullpunktkoordinaten zur weiteren Berechnung ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) ml2Fz2M[[1, 1]] ml2Fz2M11Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M11Matrix20K = ({ {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819} }) ml2Fz2M11Matrix30K = ({ {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819} }) ml2Fz2M[[1, 2]] ml2Fz2M12Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M12Matrix20K = ({ {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507} }) ml2Fz2M12Matrix30K = ({ {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507} }) ml2Fz2M[[1, 3]] ml2Fz2M13Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M13Matrix20K = ({ {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507} }) ml2Fz2M13Matrix30K = ({ {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507} }) ml2Fz2M[[1, 4]] ml2Fz2M14Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M14Matrix20K = ({ {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507} }) ml2Fz2M14Matrix30K = ({ {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507} }) ml2Fz2M[[1, 5]] ml2Fz2M15Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M15Matrix20K = ({ {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507} }) ml2Fz2M15Matrix30K = ({ {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507} }) ml2Fz2M[[1, 6]] ml2Fz2M16Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M16Matrix20K = ({ {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507} }) ml2Fz2M16Matrix30K = ({ {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507} }) ml2Fz2M[[1, 7]] ml2Fz2M17Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M17Matrix20K = ({ {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507} }) ml2Fz2M17Matrix30K = ({ {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507} }) ml2Fz2M[[1, 8]] ml2Fz2M18Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M18Matrix20K = ({ {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507} }) ml2Fz2M18Matrix30K = ({ {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507} }) ml2Fz2M[[1, 9]] ml2Fz2M19Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M19Matrix20K = ({ {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507} }) ml2Fz2M19Matrix30K = ({ {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507} }) ml2Fz2M[[1, 10]] ml2Fz2M110Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M110Matrix20K = ({ {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507} }) ml2Fz2M110Matrix30K = ({ {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507} }) ml2Fz2M[[1, 11]] ml2Fz2M111Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M111Matrix20K = ({ {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507} }) ml2Fz2M111Matrix30K = ({ {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507} }) ml2Fz2M[[1, 12]] ml2Fz2M112Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M112Matrix20K = ({ {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819} }) ml2Fz2M112Matrix30K = ({ {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819} }) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Berechnung der neuen Nullpunkte einer Schale des expandierten Clusters ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mm3Fz2M = MatrixForm[mm3*z2] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Extrahierung der Einzeltripel (neuen Nullpunktkoordinaten) Erstellung von Matrizen mit den Nullpunktkoordinaten zur weiteren Berechnung ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mm3Fz2M[[1, 22]] mm3Fz2M122Matrix12K = ({ {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017} }) mm3Fz2M122Matrix20K = ({ {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017} }) mm3Fz2M122Matrix30K = ({ {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017} }) mm3Fz2M[[1, 23]] mm3Fz2M123Matrix12K = ({ {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017} }) mm3Fz2M123Matrix20K = ({ {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017} }) mm3Fz2M123Matrix30K = ({ {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017} }) mm3Fz2M[[1, 24]] mm3Fz2M124Matrix12K = ({ {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017} }) mm3Fz2M124Matrix20K = ({ {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017} }) mm3Fz2M124Matrix30K = ({ {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017} }) mm3Fz2M[[1, 25]] mm3Fz2M125Matrix12K = ({ {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017} }) mm3Fz2M125Matrix20K = ({ {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017} }) mm3Fz2M125Matrix30K = ({ {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017} }) mm3Fz2M[[1, 26]] mm3Fz2M126Matrix12K = ({ {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389} }) mm3Fz2M126Matrix20K = ({ {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389} }) mm3Fz2M126Matrix30K = ({ {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389} }) mm3Fz2M[[1, 27]] mm3Fz2M127Matrix12K = ({ {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389} }) mm3Fz2M127Matrix20K = ({ {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389} }) mm3Fz2M127Matrix30K = ({ {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389} }) mm3Fz2M[[1, 28]] mm3Fz2M128Matrix12K = ({ {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389} }) mm3Fz2M128Matrix20K = ({ {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389} }) mm3Fz2M128Matrix30K = ({ {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389} }) mm3Fz2M[[1, 29]] mm3Fz2M129Matrix12K = ({ {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389} }) mm3Fz2M129Matrix20K = ({ {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389} }) mm3Fz2M129Matrix30K = ({ {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389} }) mm3Fz2M[[1, 30]] mm3Fz2M130Matrix12K = ({ {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389} }) mm3Fz2M130Matrix20K = ({ {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389} }) mm3Fz2M130Matrix30K = ({ {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389} }) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Berechnung der neuen Nullpunkte einer Schale des expandierten Clusters ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mn61Fz2M = MatrixForm[mn61*z2] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Extrahierung der Einzeltripel (neuen Nullpunktkoordinaten) Erstellung von Matrizen mit den Nullpunktkoordinaten zur weiteren Berechnung ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mn61Fz2M[[1, 1]] mn61Fz2M11Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M11Matrix20K = ({ {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896} }) mn61Fz2M11Matrix30K = ({ {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896} }) mn61Fz2M[[1, 2]] mn61Fz2M12Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M12Matrix20K = ({ {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896} }) mn61Fz2M12Matrix30K = ({ {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896} }) mn61Fz2M[[1, 3]] mn61Fz2M13Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M13Matrix20K = ({ {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896} }) mn61Fz2M13Matrix30K = ({ {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896} }) mn61Fz2M[[1, 4]] mn61Fz2M14Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M14Matrix20K = ({ {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896} }) mn61Fz2M14Matrix30K = ({ {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896} }) mn61Fz2M[[1, 5]] mn61Fz2M15Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M15Matrix20K = ({ {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896} }) mn61Fz2M15Matrix30K = ({ {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896} }) mn61Fz2M[[1, 6]] mn61Fz2M16Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M16Matrix20K = ({ {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507} }) mn61Fz2M16Matrix30K = ({ {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507} }) mn61Fz2M[[1, 7]] mn61Fz2M17Matrix12K = \!\(\* TagBox[ TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M17Matrix20K = ({ {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507} }) mn61Fz2M17Matrix30K = ({ {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507} }) mn61Fz2M[[1, 8]] mn61Fz2M18Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M18Matrix20K = ({ {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507} }) mn61Fz2M18Matrix30K = ({ {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507} }) mn61Fz2M[[1, 9]] mn61Fz2M19Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M19Matrix20K = ({ {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507} }) mn61Fz2M19Matrix30K = ({ {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507} }) mn61Fz2M[[1, 10]] mn61Fz2M110Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M110Matrix20K = ({ {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507} }) mn61Fz2M110Matrix30K = ({ {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507} }) mn61Fz2M[[1, 11]] mn61Fz2M111Matrix12K = ({ {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507} }) mn61Fz2M111Matrix20K = ({ {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507} }) mn61Fz2M111Matrix30K = ({ {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507} }) mn61Fz2M[[1, 12]] mn61Fz2M112Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M112Matrix20K = ({ {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507} }) mn61Fz2M112Matrix30K = ({ {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507} }) mn61Fz2M[[1, 13]] mn61Fz2M113Matrix12K = ({ {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507} }) mn61Fz2M113Matrix20K = ({ {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507} }) mn61Fz2M113Matrix30K = ({ {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507} }) mn61Fz2M[[1, 14]] mn61Fz2M114Matrix12K = ({ {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507} }) mn61Fz2M114Matrix20K = ({ {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507} }) mn61Fz2M114Matrix30K = ({ {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507} }) mn61Fz2M[[1, 15]] mn61Fz2M115Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M115Matrix20K = ({ {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507} }) mn61Fz2M115Matrix30K = ({ {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507} }) mn61Fz2M[[1, 16]] mn61Fz2M116Matrix12K = ({ {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896} }) mn61Fz2M116Matrix20K = ({ {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896} }) mn61Fz2M116Matrix30K = ({ {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896} }) mn61Fz2M[[1, 17]] mn61Fz2M117Matrix12K = ({ {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896} }) mn61Fz2M117Matrix20K = ({ {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896} }) mn61Fz2M117Matrix30K = ({ {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896} }) mn61Fz2M[[1, 18]] mn61Fz2M118Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M118Matrix20K = ({ {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896} }) mn61Fz2M118Matrix30K = ({ {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896} }) mn61Fz2M[[1, 19]] mn61Fz2M119Matrix12K = ({ {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896} }) mn61Fz2M119Matrix20K = ({ {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896} }) mn61Fz2M119Matrix30K = ({ {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896} }) mn61Fz2M[[1, 20]] mn61Fz2M120Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M120Matrix20K = ({ {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896} }) mn61Fz2M120Matrix30K = ({ {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896} }) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Berechnung der neuen Nullpunkte einer Schale des expandierten Clusters ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mm3Fz2M = MatrixForm[mm3*z2] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Extrahierung der Einzeltripel (neuen Nullpunktkoordinaten) Erstellung von Matrizen mit den Nullpunktkoordinaten zur weiteren Berechnung ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mm3Fz2M[[1, 1]] \!\(\* TagBox[ RowBox[{"mm3Fz2M11Matrix12K", "=", RowBox[{"(", "", GridBox[{ {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}]}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) \!\(\* TagBox[ RowBox[{"mm3Fz2M11Matrix20K", "=", RowBox[{"(", "", GridBox[{ {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}]}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) \!\(\* TagBox[ RowBox[{"mm3Fz2M11Matrix30K", "=", RowBox[{"(", "", GridBox[{ {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}]}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mm3Fz2M[[1, 2]] mm3Fz2M12Matrix12K = ({ {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389} }) mm3Fz2M12Matrix20K = ({ {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389} }) mm3Fz2M12Matrix30K = ({ {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389} }) mm3Fz2M[[1, 3]] mm3Fz2M13Matrix12K = ({ {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389} }) mm3Fz2M13Matrix20K = ({ {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389} }) mm3Fz2M13Matrix30K = ({ {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389} }) mm3Fz2M[[1, 4]] mm3Fz2M14Matrix12K = ({ {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389} }) mm3Fz2M14Matrix20K = ({ {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389} }) mm3Fz2M14Matrix30K = ({ {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389} }) mm3Fz2M[[1, 5]] mm3Fz2M15Matrix12K = ({ {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389} }) mm3Fz2M15Matrix20K = ({ {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389} }) mm3Fz2M15Matrix30K = ({ {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389} }) mm3Fz2M[[1, 6]] mm3Fz2M16Matrix12K = ({ {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017} }) mm3Fz2M16Matrix20K = ({ {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017} }) mm3Fz2M16Matrix30K = ({ {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017} }) mm3Fz2M[[1, 7]] mm3Fz2M17Matrix12K = ({ {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017} }) mm3Fz2M17Matrix20K = ({ {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017} }) mm3Fz2M17Matrix30K = ({ {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017} }) mm3Fz2M[[1, 8]] mm3Fz2M18Matrix12K = ({ {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017} }) mm3Fz2M18Matrix20K = ({ {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017} }) mm3Fz2M18Matrix30K = ({ {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017} }) mm3Fz2M[[1, 9]] mm3Fz2M19Matrix12K =({ {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017} }) mm3Fz2M19Matrix20K =({ {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017} }) mm3Fz2M19Matrix30K =({ {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017} }) mm3Fz2M[[1, 10]] mm3Fz2M110Matrix12K = ({ {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017} }) mm3Fz2M110Matrix20K = ({ {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017} }) mm3Fz2M110Matrix30K = ({ {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017} }) mm3Fz2M[[1, 11]] mm3Fz2M111Matrix12K = ({ {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0} }) mm3Fz2M111Matrix20K = ({ {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0} }) mm3Fz2M111Matrix30K = ({ {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0} }) mm3Fz2M[[1, 12]] mm3Fz2M112Matrix12K = ({ {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0} }) mm3Fz2M112Matrix20K = ({ {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0} }) mm3Fz2M112Matrix30K = ({ {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0} }) mm3Fz2M[[1, 13]] mm3Fz2M113Matrix12K = ({ {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0} }) mm3Fz2M113Matrix20K = ({ {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0} }) mm3Fz2M113Matrix30K = ({ {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0} }) mm3Fz2M[[1, 14]] mm3Fz2M114Matrix12K = ({ {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0} }) mm3Fz2M114Matrix20K = ({ {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0} }) mm3Fz2M114Matrix30K = ({ {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0} }) mm3Fz2M[[1, 15]] mm3Fz2M115Matrix12K = ({ {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0} }) mm3Fz2M115Matrix20K = ({ {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0} }) mm3Fz2M115Matrix30K = ({ {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0} }) mm3Fz2M[[1, 16]] mm3Fz2M116Matrix12K = ({ {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0} }) mm3Fz2M116Matrix20K = ({ {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0} }) mm3Fz2M116Matrix30K = ({ {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0} }) mm3Fz2M[[1, 17]] mm3Fz2M117Matrix12K = ({ {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0} }) mm3Fz2M117Matrix20K = ({ {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0} }) mm3Fz2M117Matrix30K = ({ {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0} }) mm3Fz2M[[1, 18]] mm3Fz2M118Matrix12K = ({ {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0} }) mm3Fz2M118Matrix20K = ({ {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0} }) mm3Fz2M118Matrix30K = ({ {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0} }) mm3Fz2M[[1, 19]] mm3Fz2M119Matrix12K = ({ {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0} }) mm3Fz2M119Matrix20K = ({ {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0} }) mm3Fz2M119Matrix30K = ({ {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0} }) mm3Fz2M[[1, 20]] mm3Fz2M120Matrix12K = ({ {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0} }) mm3Fz2M120Matrix20K = ({ {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0} }) mm3Fz2M120Matrix30K = ({ {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0} }) mm3Fz2M[[1, 21]] mm3Fz2M121Matrix12K = ({ {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017} }) mm3Fz2M121Matrix20K = ({ {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017} }) mm3Fz2M121Matrix30K = ({ {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017} }) mm3Fz2M[[1, 22]] mm3Fz2M122Matrix12K = ({ {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017} }) mm3Fz2M122Matrix20K = ({ {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017} }) mm3Fz2M122Matrix30K = ({ {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017} }) mm3Fz2M[[1, 23]] mm3Fz2M123Matrix12K = ({ {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017} }) mm3Fz2M123Matrix20K = ({ {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017} }) mm3Fz2M123Matrix30K = ({ {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017} }) mm3Fz2M[[1, 24]] mm3Fz2M124Matrix12K = ({ {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017} }) mm3Fz2M124Matrix20K = ({ {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017} }) mm3Fz2M124Matrix30K = ({ {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017} }) mm3Fz2M[[1, 25]] mm3Fz2M125Matrix12K = ({ {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017} }) mm3Fz2M125Matrix20K = ({ {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017} }) mm3Fz2M125Matrix30K = ({ {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017} }) mm3Fz2M[[1, 26]] mm3Fz2M126Matrix12K = ({ {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389} }) mm3Fz2M126Matrix20K = ({ {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389} }) mm3Fz2M126Matrix30K = ({ {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389} }) mm3Fz2M[[1, 27]] mm3Fz2M127Matrix12K = ({ {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389} }) mm3Fz2M127Matrix20K = ({ {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389} }) mm3Fz2M127Matrix30K = ({ {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389} }) mm3Fz2M[[1, 28]] mm3Fz2M128Matrix12K = ({ {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389} }) mm3Fz2M128Matrix20K = ({ {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389} }) mm3Fz2M128Matrix30K = ({ {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389} }) mm3Fz2M[[1, 29]] mm3Fz2M129Matrix12K = ({ {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389} }) mm3Fz2M129Matrix20K = ({ {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389} }) mm3Fz2M129Matrix30K = ({ {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389} }) mm3Fz2M[[1, 30]] mm3Fz2M130Matrix12K = ({ {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389} }) mm3Fz2M130Matrix20K = ({ {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389} }) mm3Fz2M130Matrix30K = ({ {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389} }) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Addition der neuen Nullpunktkoordinaten mit den einzelnen \ Clusterkugeln 12 Cluster in 1. Schale [ma/na] ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) maS01mn61Fz2M11 = (ma) + (ml2Fz2M11Matrix12K) maS01mn61Fz2M12 = (ma) + (ml2Fz2M12Matrix12K) maS01mn61Fz2M13 = (ma) + (ml2Fz2M13Matrix12K) maS01mn61Fz2M14 = (ma) + (ml2Fz2M14Matrix12K) maS01mn61Fz2M15 = (ma) + (ml2Fz2M15Matrix12K) maS01mn61Fz2M16 = (ma) + (ml2Fz2M16Matrix12K) maS01mn61Fz2M17 = (ma) + (ml2Fz2M17Matrix12K) maS01mn61Fz2M18 = (ma) + (ml2Fz2M18Matrix12K) maS01mn61Fz2M19 = (ma) + (ml2Fz2M19Matrix12K) maS01mn61Fz2M110 = (ma) + (ml2Fz2M110Matrix12K) maS01mn61Fz2M111 = (ma) + (ml2Fz2M111Matrix12K) maS01mn61Fz2M112 = (ma) + (ml2Fz2M112Matrix12K) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Addition der neuen Nullpunktkoordinaten mit den einzelnen \ Clusterkugeln 12 Cluster in 1. Schale [mb1/nb1] ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mb1S01mn61Fz2M11 = (mb1) + (ml2Fz2M11Matrix20K) mb1S01mn61Fz2M12 = (mb1) + (ml2Fz2M12Matrix20K) mb1S01mn61Fz2M13 = (mb1) + (ml2Fz2M13Matrix20K) mb1S01mn61Fz2M14 = (mb1) + (ml2Fz2M14Matrix20K) mb1S01mn61Fz2M15 = (mb1) + (ml2Fz2M15Matrix20K) mb1S01mn61Fz2M16 = (mb1) + (ml2Fz2M16Matrix20K) mb1S01mn61Fz2M17 = (mb1) + (ml2Fz2M17Matrix20K) mb1S01mn61Fz2M18 = (mb1) + (ml2Fz2M18Matrix20K) mb1S01mn61Fz2M19 = (mb1) + (ml2Fz2M19Matrix20K) mb1S01mn61Fz2M110 = (mb1) + (ml2Fz2M110Matrix20K) mb1S01mn61Fz2M111 = (mb1) + (ml2Fz2M111Matrix20K) mb1S01mn61Fz2M112 = (mb1) + (ml2Fz2M112Matrix20K) (* 12 Cluster in 2. Schale [ml2/nl2] *) ml2S02mn61Fz2M11 = (ml2) + (mm3Fz2M11Matrix12K) ml2S02mn61Fz2M12 = (ml2) + (mm3Fz2M12Matrix12K) ml2S02mn61Fz2M13 = (ml2) + (mm3Fz2M13Matrix12K) ml2S02mn61Fz2M14 = (ml2) + (mm3Fz2M14Matrix12K) ml2S02mn61Fz2M15 = (ml2) + (mm3Fz2M15Matrix12K) ml2S02mn61Fz2M16 = (ml2) + (mm3Fz2M16Matrix12K) ml2S02mn61Fz2M17 = (ml2) + (mm3Fz2M17Matrix12K) ml2S02mn61Fz2M18 = (ml2) + (mm3Fz2M18Matrix12K) ml2S02mn61Fz2M19 = (ml2) + (mm3Fz2M19Matrix12K) ml2S02mn61Fz2M110 = (ml2) + (mm3Fz2M110Matrix12K) ml2S02mn61Fz2M111 = (ml2) + (mm3Fz2M111Matrix12K) ml2S02mn61Fz2M112 = (ml2) + (mm3Fz2M112Matrix12K) ml2S02mn61Fz2M113 = (ml2) + (mm3Fz2M113Matrix12K) ml2S02mn61Fz2M114 = (ml2) + (mm3Fz2M114Matrix12K) ml2S02mn61Fz2M115 = (ml2) + (mm3Fz2M115Matrix12K) ml2S02mn61Fz2M116 = (ml2) + (mm3Fz2M116Matrix12K) ml2S02mn61Fz2M117 = (ml2) + (mm3Fz2M117Matrix12K) ml2S02mn61Fz2M118 = (ml2) + (mm3Fz2M118Matrix12K) ml2S02mn61Fz2M119 = (ml2) + (mm3Fz2M119Matrix12K) ml2S02mn61Fz2M120 = (ml2) + (mm3Fz2M120Matrix12K) ml2S02mn61Fz2M121 = (ml2) + (mm3Fz2M121Matrix12K) ml2S02mn61Fz2M122 = (ml2) + (mm3Fz2M122Matrix12K) ml2S02mn61Fz2M123 = (ml2) + (mm3Fz2M123Matrix12K) ml2S02mn61Fz2M124 = (ml2) + (mm3Fz2M124Matrix12K) ml2S02mn61Fz2M125 = (ml2) + (mm3Fz2M125Matrix12K) ml2S02mn61Fz2M126 = (ml2) + (mm3Fz2M126Matrix12K) ml2S02mn61Fz2M127 = (ml2) + (mm3Fz2M127Matrix12K) ml2S02mn61Fz2M128 = (ml2) + (mm3Fz2M128Matrix12K) ml2S02mn61Fz2M129 = (ml2) + (mm3Fz2M129Matrix12K) ml2S02mn61Fz2M130 = (ml2) + (mm3Fz2M130Matrix12K) (* 30 Cluster in 2. Schale [mm3/nm3]*) mm3S02mn61Fz2M11 = (mm3) + (mm3Fz2M11Matrix30K) mm3S02mn61Fz2M12 = (mm3) + (mm3Fz2M12Matrix30K) mm3S02mn61Fz2M13 = (mm3) + (mm3Fz2M13Matrix30K) mm3S02mn61Fz2M14 = (mm3) + (mm3Fz2M14Matrix30K) mm3S02mn61Fz2M15 = (mm3) + (mm3Fz2M15Matrix30K) mm3S02mn61Fz2M16 = (mm3) + (mm3Fz2M16Matrix30K) mm3S02mn61Fz2M17 = (mm3) + (mm3Fz2M17Matrix30K) mm3S02mn61Fz2M18 = (mm3) + (mm3Fz2M18Matrix30K) mm3S02mn61Fz2M19 = (mm3) + (mm3Fz2M19Matrix30K) mm3S02mn61Fz2M110 = (mm3) + (mm3Fz2M110Matrix30K) mm3S02mn61Fz2M111 = (mm3) + (mm3Fz2M111Matrix30K) mm3S02mn61Fz2M112 = (mm3) + (mm3Fz2M112Matrix30K) mm3S02mn61Fz2M113 = (mm3) + (mm3Fz2M113Matrix30K) mm3S02mn61Fz2M114 = (mm3) + (mm3Fz2M114Matrix30K) mm3S02mn61Fz2M115 = (mm3) + (mm3Fz2M115Matrix30K) mm3S02mn61Fz2M116 = (mm3) + (mm3Fz2M116Matrix30K) mm3S02mn61Fz2M117 = (mm3) + (mm3Fz2M117Matrix30K) mm3S02mn61Fz2M118 = (mm3) + (mm3Fz2M118Matrix30K) mm3S02mn61Fz2M119 = (mm3) + (mm3Fz2M119Matrix30K) mm3S02mn61Fz2M120 = (mm3) + (mm3Fz2M120Matrix30K) mm3S02mn61Fz2M121 = (mm3) + (mm3Fz2M121Matrix30K) mm3S02mn61Fz2M122 = (mm3) + (mm3Fz2M122Matrix30K) mm3S02mn61Fz2M123 = (mm3) + (mm3Fz2M123Matrix30K) mm3S02mn61Fz2M124 = (mm3) + (mm3Fz2M124Matrix30K) mm3S02mn61Fz2M125 = (mm3) + (mm3Fz2M125Matrix30K) mm3S02mn61Fz2M126 = (mm3) + (mm3Fz2M126Matrix30K) mm3S02mn61Fz2M127 = (mm3) + (mm3Fz2M127Matrix30K) mm3S02mn61Fz2M128 = (mm3) + (mm3Fz2M128Matrix30K) mm3S02mn61Fz2M129 = (mm3) + (mm3Fz2M129Matrix30K) mm3S02mn61Fz2M130 = (mm3) + (mm3Fz2M130Matrix30K) (* 12 Cluster in 3. Schale [ma/na] *) maS03mn61Fz2M11 = (ma) + (mn61Fz2M11Matrix12K) maS03mn61Fz2M12 = (ma) + (mn61Fz2M12Matrix12K) maS03mn61Fz2M13 = (ma) + (mn61Fz2M13Matrix12K) maS03mn61Fz2M14 = (ma) + (mn61Fz2M14Matrix12K) maS03mn61Fz2M15 = (ma) + (mn61Fz2M15Matrix12K) maS03mn61Fz2M16 = (ma) + (mn61Fz2M16Matrix12K) maS03mn61Fz2M17 = (ma) + (mn61Fz2M17Matrix12K) maS03mn61Fz2M18 = (ma) + (mn61Fz2M18Matrix12K) maS03mn61Fz2M19 = (ma) + (mn61Fz2M19Matrix12K) maS03mn61Fz2M110 = (ma) + (mn61Fz2M110Matrix12K) maS03mn61Fz2M111 = (ma) + (mn61Fz2M111Matrix12K) maS03mn61Fz2M112 = (ma) + (mn61Fz2M112Matrix12K) maS03mn61Fz2M113 = (ma) + (mn61Fz2M113Matrix12K) maS03mn61Fz2M114 = (ma) + (mn61Fz2M114Matrix12K) maS03mn61Fz2M115 = (ma) + (mn61Fz2M115Matrix12K) maS03mn61Fz2M116 = (ma) + (mn61Fz2M116Matrix12K) maS03mn61Fz2M117 = (ma) + (mn61Fz2M117Matrix12K) maS03mn61Fz2M118 = (ma) + (mn61Fz2M118Matrix12K) maS03mn61Fz2M119 = (ma) + (mn61Fz2M119Matrix12K) maS03mn61Fz2M120 = (ma) + (mn61Fz2M120Matrix12K) (* 20 Cluster in 3. Schale [mb1/nb1] *) mb1S03mn61Fz2M11 = (mb1) + (mn61Fz2M11Matrix20K) mb1S03mn61Fz2M12 = (mb1) + (mn61Fz2M12Matrix20K) mb1S03mn61Fz2M13 = (mb1) + (mn61Fz2M13Matrix20K) mb1S03mn61Fz2M14 = (mb1) + (mn61Fz2M14Matrix20K) mb1S03mn61Fz2M15 = (mb1) + (mn61Fz2M15Matrix20K) mb1S03mn61Fz2M16 = (mb1) + (mn61Fz2M16Matrix20K) mb1S03mn61Fz2M17 = (mb1) + (mn61Fz2M17Matrix20K) mb1S03mn61Fz2M18 = (mb1) + (mn61Fz2M18Matrix20K) mb1S03mn61Fz2M19 = (mb1) + (mn61Fz2M19Matrix20K) mb1S03mn61Fz2M110 = (mb1) + (mn61Fz2M110Matrix20K) mb1S03mn61Fz2M111 = (mb1) + (mn61Fz2M111Matrix20K) mb1S03mn61Fz2M112 = (mb1) + (mn61Fz2M112Matrix20K) mb1S03mn61Fz2M113 = (mb1) + (mn61Fz2M113Matrix20K) mb1S03mn61Fz2M114 = (mb1) + (mn61Fz2M114Matrix20K) mb1S03mn61Fz2M115 = (mb1) + (mn61Fz2M115Matrix20K) mb1S03mn61Fz2M116 = (mb1) + (mn61Fz2M116Matrix20K) mb1S03mn61Fz2M117 = (mb1) + (mn61Fz2M117Matrix20K) mb1S03mn61Fz2M118 = (mb1) + (mn61Fz2M118Matrix20K) mb1S03mn61Fz2M119 = (mb1) + (mn61Fz2M119Matrix20K) mb1S03mn61Fz2M120 = (mb1) + (mn61Fz2M120Matrix20K) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## 3D-Darstellung Construction Principle of the Clusters of the 2nd Generation ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## *) Graphics3D[{Blue, Sphere[ml20, nl20], Green, Sphere[ml2, nl2], Red, Sphere[mm3, nm3], Yellow, Sphere[mn61, nn61]}] Graphics3D[{Blue, Sphere[{ml20}, nl20], Green, Sphere[{ml2*z2}, nl2], Red, Sphere[{mm3*z2}, nm3], Yellow, Sphere[{mn61*z2}, nn61]}] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## # Step by Step Growth of a T\[CloseCurlyQuote]1-Cluster {2} 1. Step Growth of a T\[CloseCurlyQuote]1-Cluster {2} MBMB ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## *) Graphics3D[{ (*Mckay-Baustein (ml2/mm3)(Cyan/Green)*) (*1. Schale Blue (ml2/mm3)(Cyan/Blue)*) Cyan, Sphere[ml2, nl2], Blue, Sphere[mm3, nm3] }] Graphics3D[{ (*Mckay-Baustein (ml2/mm3)(Cyan/Green)*) (*1. Schale Blue (ml2/mm3)(Cyan/Blue)*) Cyan, Sphere[ml2, nl2], Blue, Sphere[mm3, nm3], (*Bergman-Baustein (ma/mb1) (Pink/Blue*) (* 2. Schale Green (ma/mb1)(Pink/Green (lt. Schalendefinition)*) Pink, Sphere[maS01mn61Fz2M11, na], Pink, Sphere[maS01mn61Fz2M12, na], Pink, Sphere[maS01mn61Fz2M13, na], Pink, Sphere[maS01mn61Fz2M14, na], Pink, Sphere[maS01mn61Fz2M15, na], Pink, Sphere[maS01mn61Fz2M16, na], Pink, Sphere[maS01mn61Fz2M17, na], Pink, Sphere[maS01mn61Fz2M18, na], Pink, Sphere[maS01mn61Fz2M19, na], Pink, Sphere[maS01mn61Fz2M110, na], Pink, Sphere[maS01mn61Fz2M111, na], Pink, Sphere[maS01mn61Fz2M112, na], Green, Sphere[mb1S01mn61Fz2M11, nb1], Green, Sphere[mb1S01mn61Fz2M12, nb1], Green, Sphere[mb1S01mn61Fz2M13, nb1], Green, Sphere[mb1S01mn61Fz2M14, nb1], Green, Sphere[mb1S01mn61Fz2M15, nb1], Green, Sphere[mb1S01mn61Fz2M16, nb1], Green, Sphere[mb1S01mn61Fz2M17, nb1], Green, Sphere[mb1S01mn61Fz2M18, nb1], Green, Sphere[mb1S01mn61Fz2M19, nb1], Green, Sphere[mb1S01mn61Fz2M110, nb1], Green, Sphere[mb1S01mn61Fz2M111, nb1], Green, Sphere[mb1S01mn61Fz2M112, nb1] }] Graphics3D[{ (*Mckay-Baustein (ml2/mm3)(Cyan/Green)*) (*1. Schale Blue (ml2/mm3)(Cyan/Blue)*) Cyan, Sphere[ml2, nl2], Blue, Sphere[mm3, nm3], (*Bergman-Baustein (ma/mb1) (Pink/Blue*) (* 2. Schale Green (ma/mb1)(Pink/Green (lt. Schalendefinition)*) Pink, Sphere[maS01mn61Fz2M11, na], Pink, Sphere[maS01mn61Fz2M12, na], Pink, Sphere[maS01mn61Fz2M13, na], Pink, Sphere[maS01mn61Fz2M14, na], Pink, Sphere[maS01mn61Fz2M15, na], Pink, Sphere[maS01mn61Fz2M16, na], Pink, Sphere[maS01mn61Fz2M17, na], Pink, Sphere[maS01mn61Fz2M18, na], Pink, Sphere[maS01mn61Fz2M19, na], Pink, Sphere[maS01mn61Fz2M110, na], Pink, Sphere[maS01mn61Fz2M111, na], Pink, Sphere[maS01mn61Fz2M112, na], Green, Sphere[mb1S01mn61Fz2M11, nb1], Green, Sphere[mb1S01mn61Fz2M12, nb1], Green, Sphere[mb1S01mn61Fz2M13, nb1], Green, Sphere[mb1S01mn61Fz2M14, nb1], Green, Sphere[mb1S01mn61Fz2M15, nb1], Green, Sphere[mb1S01mn61Fz2M16, nb1], Green, Sphere[mb1S01mn61Fz2M17, nb1], Green, Sphere[mb1S01mn61Fz2M18, nb1], Green, Sphere[mb1S01mn61Fz2M19, nb1], Green, Sphere[mb1S01mn61Fz2M110, nb1], Green, Sphere[mb1S01mn61Fz2M111, nb1], Green, Sphere[mb1S01mn61Fz2M112, nb1], (*Mckay-Baustein (ml2/mm3)(Cyan/Green)*) (* 3. Schale Red (ml2/mm3)(Cyan/Red)*) Cyan, Sphere[ml2S02mn61Fz2M11, nl2], Cyan, Sphere[ml2S02mn61Fz2M12, nl2], Cyan, Sphere[ml2S02mn61Fz2M13, nl2], Cyan, Sphere[ml2S02mn61Fz2M14, nl2], Cyan, Sphere[ml2S02mn61Fz2M15, nl2], Cyan, Sphere[ml2S02mn61Fz2M16, nl2], Cyan, Sphere[ml2S02mn61Fz2M17, nl2], Cyan, Sphere[ml2S02mn61Fz2M18, nl2], Cyan, Sphere[ml2S02mn61Fz2M19, nl2], Cyan, Sphere[ml2S02mn61Fz2M110, nl2], Cyan, Sphere[ml2S02mn61Fz2M111, nl2], Cyan, Sphere[ml2S02mn61Fz2M112, nl2], Cyan, Sphere[ml2S02mn61Fz2M113, nl2], Cyan, Sphere[ml2S02mn61Fz2M114, nl2], Cyan, Sphere[ml2S02mn61Fz2M115, nl2], Cyan, Sphere[ml2S02mn61Fz2M116, nl2], Cyan, Sphere[ml2S02mn61Fz2M117, nl2], Cyan, Sphere[ml2S02mn61Fz2M118, nl2], Cyan, Sphere[ml2S02mn61Fz2M119, nl2], Cyan, Sphere[ml2S02mn61Fz2M120, nl2], Cyan, Sphere[ml2S02mn61Fz2M121, nl2], Cyan, Sphere[ml2S02mn61Fz2M122, nl2], Cyan, Sphere[ml2S02mn61Fz2M123, nl2], Cyan, Sphere[ml2S02mn61Fz2M124, nl2], Cyan, Sphere[ml2S02mn61Fz2M125, nl2], Cyan, Sphere[ml2S02mn61Fz2M126, nl2], Cyan, Sphere[ml2S02mn61Fz2M127, nl2], Cyan, Sphere[ml2S02mn61Fz2M128, nl2], Cyan, Sphere[ml2S02mn61Fz2M129, nl2], Cyan, Sphere[ml2S02mn61Fz2M130, nl2], Red, Sphere[mm3S02mn61Fz2M11, nm3], Red, Sphere[mm3S02mn61Fz2M12, nm3], Red, Sphere[mm3S02mn61Fz2M13, nm3], Red, Sphere[mm3S02mn61Fz2M14, nm3], Red, Sphere[mm3S02mn61Fz2M15, nm3], Red, Sphere[mm3S02mn61Fz2M16, nm3], Red, Sphere[mm3S02mn61Fz2M17, nm3], Red, Sphere[mm3S02mn61Fz2M18, nm3], Red, Sphere[mm3S02mn61Fz2M19, nm3], Red, Sphere[mm3S02mn61Fz2M110, nm3], Red, Sphere[mm3S02mn61Fz2M111, nm3], Red, Sphere[mm3S02mn61Fz2M112, nm3], Red, Sphere[mm3S02mn61Fz2M113, nm3], Red, Sphere[mm3S02mn61Fz2M114, nm3], Red, Sphere[mm3S02mn61Fz2M115, nm3], Red, Sphere[mm3S02mn61Fz2M116, nm3], Red, Sphere[mm3S02mn61Fz2M117, nm3], Red, Sphere[mm3S02mn61Fz2M118, nm3], Red, Sphere[mm3S02mn61Fz2M119, nm3], Red, Sphere[mm3S02mn61Fz2M120, nm3], Red, Sphere[mm3S02mn61Fz2M121, nm3], Red, Sphere[mm3S02mn61Fz2M122, nm3], Red, Sphere[mm3S02mn61Fz2M123, nm3], Red, Sphere[mm3S02mn61Fz2M124, nm3], Red, Sphere[mm3S02mn61Fz2M125, nm3], Red, Sphere[mm3S02mn61Fz2M126, nm3], Red, Sphere[mm3S02mn61Fz2M127, nm3], Red, Sphere[mm3S02mn61Fz2M128, nm3], Red, Sphere[mm3S02mn61Fz2M129, nm3], Red, Sphere[mm3S02mn61Fz2M130, nm3] }] Graphics3D[{ (*Mckay-Baustein (ml2/mm3)(Cyan/Green)*) (*1. Schale Blue (ml2/mm3)(Cyan/Blue)*) Cyan, Sphere[ml2, nl2], Blue, Sphere[mm3, nm3], (*Bergman-Baustein (ma/mb1) (Pink/Blue*) (* 2. Schale Green (ma/mb1)(Pink/Green (lt. Schalendefinition)*) Pink, Sphere[maS01mn61Fz2M11, na], Pink, Sphere[maS01mn61Fz2M12, na], Pink, Sphere[maS01mn61Fz2M13, na], Pink, Sphere[maS01mn61Fz2M14, na], Pink, Sphere[maS01mn61Fz2M15, na], Pink, Sphere[maS01mn61Fz2M16, na], Pink, Sphere[maS01mn61Fz2M17, na], Pink, Sphere[maS01mn61Fz2M18, na], Pink, Sphere[maS01mn61Fz2M19, na], Pink, Sphere[maS01mn61Fz2M110, na], Pink, Sphere[maS01mn61Fz2M111, na], Pink, Sphere[maS01mn61Fz2M112, na], Green, Sphere[mb1S01mn61Fz2M11, nb1], Green, Sphere[mb1S01mn61Fz2M12, nb1], Green, Sphere[mb1S01mn61Fz2M13, nb1], Green, Sphere[mb1S01mn61Fz2M14, nb1], Green, Sphere[mb1S01mn61Fz2M15, nb1], Green, Sphere[mb1S01mn61Fz2M16, nb1], Green, Sphere[mb1S01mn61Fz2M17, nb1], Green, Sphere[mb1S01mn61Fz2M18, nb1], Green, Sphere[mb1S01mn61Fz2M19, nb1], Green, Sphere[mb1S01mn61Fz2M110, nb1], Green, Sphere[mb1S01mn61Fz2M111, nb1], Green, Sphere[mb1S01mn61Fz2M112, nb1], (*Mckay-Baustein (ml2/mm3)(Cyan/Green)*) (* 3. Schale Red (ml2/mm3)(Cyan/Red)*) Cyan, Sphere[ml2S02mn61Fz2M11, nl2], Cyan, Sphere[ml2S02mn61Fz2M12, nl2], Cyan, Sphere[ml2S02mn61Fz2M13, nl2], Cyan, Sphere[ml2S02mn61Fz2M14, nl2], Cyan, Sphere[ml2S02mn61Fz2M15, nl2], Cyan, Sphere[ml2S02mn61Fz2M16, nl2], Cyan, Sphere[ml2S02mn61Fz2M17, nl2], Cyan, Sphere[ml2S02mn61Fz2M18, nl2], Cyan, Sphere[ml2S02mn61Fz2M19, nl2], Cyan, Sphere[ml2S02mn61Fz2M110, nl2], Cyan, Sphere[ml2S02mn61Fz2M111, nl2], Cyan, Sphere[ml2S02mn61Fz2M112, nl2], Cyan, Sphere[ml2S02mn61Fz2M113, nl2], Cyan, Sphere[ml2S02mn61Fz2M114, nl2], Cyan, Sphere[ml2S02mn61Fz2M115, nl2], Cyan, Sphere[ml2S02mn61Fz2M116, nl2], Cyan, Sphere[ml2S02mn61Fz2M117, nl2], Cyan, Sphere[ml2S02mn61Fz2M118, nl2], Cyan, Sphere[ml2S02mn61Fz2M119, nl2], Cyan, Sphere[ml2S02mn61Fz2M120, nl2], Cyan, Sphere[ml2S02mn61Fz2M121, nl2], Cyan, Sphere[ml2S02mn61Fz2M122, nl2], Cyan, Sphere[ml2S02mn61Fz2M123, nl2], Cyan, Sphere[ml2S02mn61Fz2M124, nl2], Cyan, Sphere[ml2S02mn61Fz2M125, nl2], Cyan, Sphere[ml2S02mn61Fz2M126, nl2], Cyan, Sphere[ml2S02mn61Fz2M127, nl2], Cyan, Sphere[ml2S02mn61Fz2M128, nl2], Cyan, Sphere[ml2S02mn61Fz2M129, nl2], Cyan, Sphere[ml2S02mn61Fz2M130, nl2], Red, Sphere[mm3S02mn61Fz2M11, nm3], Red, Sphere[mm3S02mn61Fz2M12, nm3], Red, Sphere[mm3S02mn61Fz2M13, nm3], Red, Sphere[mm3S02mn61Fz2M14, nm3], Red, Sphere[mm3S02mn61Fz2M15, nm3], Red, Sphere[mm3S02mn61Fz2M16, nm3], Red, Sphere[mm3S02mn61Fz2M17, nm3], Red, Sphere[mm3S02mn61Fz2M18, nm3], Red, Sphere[mm3S02mn61Fz2M19, nm3], Red, Sphere[mm3S02mn61Fz2M110, nm3], Red, Sphere[mm3S02mn61Fz2M111, nm3], Red, Sphere[mm3S02mn61Fz2M112, nm3], Red, Sphere[mm3S02mn61Fz2M113, nm3], Red, Sphere[mm3S02mn61Fz2M114, nm3], Red, Sphere[mm3S02mn61Fz2M115, nm3], Red, Sphere[mm3S02mn61Fz2M116, nm3], Red, Sphere[mm3S02mn61Fz2M117, nm3], Red, Sphere[mm3S02mn61Fz2M118, nm3], Red, Sphere[mm3S02mn61Fz2M119, nm3], Red, Sphere[mm3S02mn61Fz2M120, nm3], Red, Sphere[mm3S02mn61Fz2M121, nm3], Red, Sphere[mm3S02mn61Fz2M122, nm3], Red, Sphere[mm3S02mn61Fz2M123, nm3], Red, Sphere[mm3S02mn61Fz2M124, nm3], Red, Sphere[mm3S02mn61Fz2M125, nm3], Red, Sphere[mm3S02mn61Fz2M126, nm3], Red, Sphere[mm3S02mn61Fz2M127, nm3], Red, Sphere[mm3S02mn61Fz2M128, nm3], Red, Sphere[mm3S02mn61Fz2M129, nm3], Red, Sphere[mm3S02mn61Fz2M130, nm3], (*Bergman-Baustein (ma/mb1) (Pink/Blue*) (* 4. Schale Yellow (ma/mb1)(Pink/Yellow)*) Pink, Sphere[maS03mn61Fz2M11, na], Pink, Sphere[maS03mn61Fz2M12, na], Pink, Sphere[maS03mn61Fz2M13, na], Pink, Sphere[maS03mn61Fz2M14, na], Pink, Sphere[maS03mn61Fz2M15, na], Pink, Sphere[maS03mn61Fz2M16, na], Pink, Sphere[maS03mn61Fz2M17, na], Pink, Sphere[maS03mn61Fz2M18, na], Pink, Sphere[maS03mn61Fz2M19, na], Pink, Sphere[maS03mn61Fz2M110, na], Pink, Sphere[maS03mn61Fz2M111, na], Pink, Sphere[maS03mn61Fz2M112, na], Pink, Sphere[maS03mn61Fz2M113, na], Pink, Sphere[maS03mn61Fz2M114, na], Pink, Sphere[maS03mn61Fz2M115, na], Pink, Sphere[maS03mn61Fz2M116, na], Pink, Sphere[maS03mn61Fz2M117, na], Pink, Sphere[maS03mn61Fz2M118, na], Pink, Sphere[maS03mn61Fz2M119, na], Pink, Sphere[maS03mn61Fz2M120, na], Yellow, Sphere[mb1S03mn61Fz2M11, nb1Yellow], Yellow, Sphere[mb1S03mn61Fz2M12, nb1Yellow], Yellow, Sphere[mb1S03mn61Fz2M13, nb1Yellow], Yellow, Sphere[mb1S03mn61Fz2M14, nb1Yellow], Yellow, Sphere[mb1S03mn61Fz2M15, nb1Yellow], Yellow, Sphere[mb1S03mn61Fz2M16, nb1Yellow], Yellow, Sphere[mb1S03mn61Fz2M17, nb1Yellow], Yellow, Sphere[mb1S03mn61Fz2M18, nb1Yellow], Yellow, Sphere[mb1S03mn61Fz2M19, nb1Yellow], Yellow, Sphere[mb1S03mn61Fz2M110, nb1Yellow], Yellow, Sphere[mb1S03mn61Fz2M111, nb1Yellow], Yellow, Sphere[mb1S03mn61Fz2M112, nb1Yellow], Yellow, Sphere[mb1S03mn61Fz2M113, nb1Yellow], Yellow, Sphere[mb1S03mn61Fz2M114, nb1Yellow], Yellow, Sphere[mb1S03mn61Fz2M115, nb1Yellow], Yellow, Sphere[mb1S03mn61Fz2M116, nb1Yellow], Yellow, Sphere[mb1S03mn61Fz2M117, nb1Yellow], Yellow, Sphere[mb1S03mn61Fz2M118, nb1Yellow], Yellow, Sphere[mb1S03mn61Fz2M119, nb1Yellow], Yellow, Sphere[mb1S03mn61Fz2M120, nb1Yellow] }] (* ## ## ## A3. CLUSTERS OF THE 2ND GENERATION A3.4 STEP BY STEP GROWTH OF A T’2-CLUSTER{2} RED: Rot-Überlagerung der Koinzidenzplätze: siehe "Switch" - coordinates - ## ## ## ## # *) ml20 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* center *) nl20 = {0.5} (* radius *) (* Mackay: 2. shell, spheres:12 *) ml2 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0.951057"}, {"0.850651", "0", "0.425325"}, {"0.262866", "0.809017", "0.425325"}, { RowBox[{"-", "0.688191"}], "0.5", "0.425325"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "0.5"}], "0.425325"}, {"0.262866", RowBox[{"-", "0.809017"}], "0.425325"}, {"0.688191", "0.5", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.262866"}], "0.809017", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.850651"}], "0", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.262866"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "0.425325"}]}, {"0.688191", RowBox[{"-", "0.5"}], RowBox[{"-", "0.425325"}]}, {"0", "0", RowBox[{"-", "0.951057"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nl2 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* radius *) (* Mackay: 3. shell, spheres:30 *) mm3 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.850651", "0", "1.376382"}, {"0.262865", "0.809017", "1.376382"}, { RowBox[{"-", "0.688191"}], "0.5", "1.376382"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "0.5"}], "1.376382"}, {"0.262865", RowBox[{"-", "0.809017"}], "1.376382"}, {"1.113516", "0.809017", "0.850651"}, { RowBox[{"-", "0.425325"}], "1.309017", "0.850651"}, { RowBox[{"-", "1.376382"}], "0", "0.850651"}, { RowBox[{"-", "0.425325"}], RowBox[{"-", "1.309017"}], "0.850651"}, {"1.113516", RowBox[{"-", "0.809017"}], "0.850651"}, {"1.538841", "0.5", "0"}, {"0.951056", "1.309017", "0"}, {"0", "1.618034", "0"}, { RowBox[{"-", "0.951056"}], "1.309017", "0"}, { RowBox[{"-", "1.538841"}], "0.5", "0"}, { RowBox[{"-", "1.538841"}], RowBox[{"-", "0.5"}], "0"}, { RowBox[{"-", "0.951056"}], RowBox[{"-", "1.309017"}], "0"}, {"0", RowBox[{"-", "1.618034"}], "0"}, {"0.951056", RowBox[{"-", "1.309017"}], "0"}, {"1.538841", RowBox[{"-", "0.5"}], "0"}, {"1.376382", "0", RowBox[{"-", "0.850651"}]}, {"0.425325", "1.309017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], "0.809017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "0.850651"}]}, {"0.425325", RowBox[{"-", "1.309017"}], RowBox[{"-", "0.850651"}]}, {"0.688191", "0.5", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.262865"}], "0.809017", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.850651"}], "0", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.262865"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "1.376382"}]}, {"0.688191", RowBox[{"-", "0.5"}], RowBox[{"-", "1.376382"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nm3 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* radius *) mn61 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.113516", "0.809017", "1.801707"}, { RowBox[{"-", "0.425325"}], "1.309017", "1.801707"}, { RowBox[{"-", "1.376382"}], "0", "1.801707"}, { RowBox[{"-", "0.425325"}], RowBox[{"-", "1.309017"}], "1.801707"}, {"1.113516", RowBox[{"-", "0.809017"}], "1.801707"}, {"1.801708", "1.309017", "0.425325"}, { RowBox[{"-", "0.688191"}], "2.118034", "0.425325"}, { RowBox[{"-", "2.227033"}], "0", "0.425325"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "2.118034"}], "0.425325"}, {"1.801708", RowBox[{"-", "1.309017"}], "0.425325"}, {"2.227033", "0", RowBox[{"-", "0.425325"}]}, {"0.688191", "2.118034", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "1.801708"}], "1.309017", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "1.801708"}], RowBox[{"-", "1.309017"}], RowBox[{"-", "0.425325"}]}, {"0.688191", RowBox[{"-", "2.118034"}], RowBox[{"-", "0.425325"}]}, {"1.376382", "0", RowBox[{"-", "1.801707"}]}, {"0.425325", "1.309017", RowBox[{"-", "1.801707"}]}, { RowBox[{"-", "1.113516"}], "0.809017", RowBox[{"-", "1.801707"}]}, { RowBox[{"-", "1.113516"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "1.801707"}]}, {"0.425325", RowBox[{"-", "1.309017"}], RowBox[{"-", "1.801707"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nn61 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* Bergman: „Mackay-Einsatz \[OpenCurlyDoubleQuote], spheres:1 *) ma0 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* center *) na0 = {0.415} (* radius *) (* Bergman: spheres:12 *) ma = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0.7841"}, {"0.7013", "0", "0.3507"}, {"0.2167", "0.667", "0.3507"}, { RowBox[{"-", "0.5674"}], "0.4122", "0.3507"}, { RowBox[{"-", "0.5674"}], RowBox[{"-", "0.4122"}], "0.3507"}, {"0.2167", RowBox[{"-", "0.667"}], "0.3507"}, {"0.5674", "0.4122", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.2167"}], "0.667", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.7013"}], "0", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.2167"}], RowBox[{"-", "0.667"}], RowBox[{"-", "0.3507"}]}, {"0.5674", RowBox[{"-", "0.4122"}], RowBox[{"-", "0.3507"}]}, {"0", "0", RowBox[{"-", "0.7841"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) na = {0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415} (* radius *) (* Bergman: 1. shell, spheres:12 *) mb1 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.6882", "0.5", "1.1135"}, { RowBox[{"-", "0.2629"}], "0.809", "1.1135"}, { RowBox[{"-", "0.8507"}], "0", "1.1135"}, { RowBox[{"-", "0.2629"}], RowBox[{"-", "0.809"}], "1.1135"}, {"0.6882", RowBox[{"-", "0.5"}], "1.1135"}, {"1.1135", "0.809", "0.2629"}, { RowBox[{"-", "0.4253"}], "1.309", "0.2629"}, { RowBox[{"-", "1.3764"}], "0", "0.2629"}, { RowBox[{"-", "0.4253"}], RowBox[{"-", "1.309"}], "0.2629"}, {"1.1135", RowBox[{"-", "0.809"}], "0.2629"}, {"1.3764", "0", RowBox[{"-", "0.2629"}]}, {"0.4253", "1.309", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], "0.809", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], RowBox[{"-", "0.809"}], RowBox[{"-", "0.2629"}]}, {"0.4253", RowBox[{"-", "1.309"}], RowBox[{"-", "0.2629"}]}, {"0.8507", "0", RowBox[{"-", "1.1135"}]}, {"0.2629", "0.809", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], "0.5", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], RowBox[{"-", "0.5"}], RowBox[{"-", "1.1135"}]}, {"0.2629", RowBox[{"-", "0.809"}], RowBox[{"-", "1.1135"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* "Switch *) (* nb1={0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.\ 5,0.5,0.5,0.5,0.5} *) (* radius *) nb1 = {0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505} (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## distance calculation z ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## *) z0mb1 = 1.1135 z1mm3 = 1.376382 z2 = (z0mb1 + z1mm3) z2 /= 0.951057 (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Berechnung der neuen Nullpunkte einer Schale des expandierten Clusters ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) ml2Fz2M = MatrixForm[ml2*z2] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Extrahierung der Einzeltripel aus Matrixform (neuen \ Nullpunktkoordinaten) Erstellung von Matrizen mit den Nullpunktkoordinaten zur weiteren Berechnung ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) ml2Fz2M[[1, 1]] ml2Fz2M11Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M11Matrix20K = ({ {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819} }) ml2Fz2M11Matrix30K = ({ {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819} }) ml2Fz2M[[1, 2]] ml2Fz2M12Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M12Matrix20K = ({ {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507} }) ml2Fz2M12Matrix30K = ({ {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507} }) ml2Fz2M[[1, 3]] ml2Fz2M13Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M13Matrix20K = ({ {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507} }) ml2Fz2M13Matrix30K = ({ {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507} }) ml2Fz2M[[1, 4]] ml2Fz2M14Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M14Matrix20K = ({ {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507} }) ml2Fz2M14Matrix30K = ({ {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507} }) ml2Fz2M[[1, 5]] ml2Fz2M15Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M15Matrix20K = ({ {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507} }) ml2Fz2M15Matrix30K = ({ {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507} }) ml2Fz2M[[1, 6]] ml2Fz2M16Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M16Matrix20K = ({ {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507} }) ml2Fz2M16Matrix30K = ({ {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507} }) ml2Fz2M[[1, 7]] ml2Fz2M17Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M17Matrix20K = ({ {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507} }) ml2Fz2M17Matrix30K = ({ {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507} }) ml2Fz2M[[1, 8]] ml2Fz2M18Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M18Matrix20K = ({ {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507} }) ml2Fz2M18Matrix30K = ({ {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507} }) ml2Fz2M[[1, 9]] ml2Fz2M19Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M19Matrix20K = ({ {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507} }) ml2Fz2M19Matrix30K = ({ {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507} }) ml2Fz2M[[1, 10]] ml2Fz2M110Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M110Matrix20K = ({ {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507} }) ml2Fz2M110Matrix30K = ({ {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507} }) ml2Fz2M[[1, 11]] ml2Fz2M111Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M111Matrix20K = ({ {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507} }) ml2Fz2M111Matrix30K = ({ {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507} }) ml2Fz2M[[1, 12]] ml2Fz2M112Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M112Matrix20K = ({ {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819} }) ml2Fz2M112Matrix30K = ({ {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819} }) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Berechnung der neuen Nullpunkte einer Schale des expandierten Clusters ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mm3Fz2M = MatrixForm[mm3*z2] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Extrahierung der Einzeltripel (neuen Nullpunktkoordinaten) Erstellung von Matrizen mit den Nullpunktkoordinaten zur weiteren Berechnung ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mm3Fz2M[[1, 22]] mm3Fz2M122Matrix12K = ({ {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017} }) mm3Fz2M122Matrix20K = ({ {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017} }) mm3Fz2M122Matrix30K = ({ {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017} }) mm3Fz2M[[1, 23]] mm3Fz2M123Matrix12K = ({ {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017} }) mm3Fz2M123Matrix20K = ({ {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017} }) mm3Fz2M123Matrix30K = ({ {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017} }) mm3Fz2M[[1, 24]] mm3Fz2M124Matrix12K = ({ {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017} }) mm3Fz2M124Matrix20K = ({ {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017} }) mm3Fz2M124Matrix30K = ({ {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017} }) mm3Fz2M[[1, 25]] mm3Fz2M125Matrix12K = ({ {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017} }) mm3Fz2M125Matrix20K = ({ {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017} }) mm3Fz2M125Matrix30K = ({ {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017} }) mm3Fz2M[[1, 26]] mm3Fz2M126Matrix12K = ({ {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389} }) mm3Fz2M126Matrix20K = ({ {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389} }) mm3Fz2M126Matrix30K = ({ {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389} }) mm3Fz2M[[1, 27]] mm3Fz2M127Matrix12K = ({ {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389} }) mm3Fz2M127Matrix20K = ({ {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389} }) mm3Fz2M127Matrix30K = ({ {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389} }) mm3Fz2M[[1, 28]] mm3Fz2M128Matrix12K = ({ {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389} }) mm3Fz2M128Matrix20K = ({ {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389} }) mm3Fz2M128Matrix30K = ({ {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389} }) mm3Fz2M[[1, 29]] mm3Fz2M129Matrix12K = ({ {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389} }) mm3Fz2M129Matrix20K = ({ {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389} }) mm3Fz2M129Matrix30K = ({ {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389} }) mm3Fz2M[[1, 30]] mm3Fz2M130Matrix12K = ({ {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389} }) mm3Fz2M130Matrix20K = ({ {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389} }) mm3Fz2M130Matrix30K = ({ {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389} }) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Berechnung der neuen Nullpunkte einer Schale des expandierten Clusters ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mn61Fz2M = MatrixForm[mn61*z2] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Extrahierung der Einzeltripel (neuen Nullpunktkoordinaten) Erstellung von Matrizen mit den Nullpunktkoordinaten zur weiteren Berechnung ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mn61Fz2M[[1, 1]] mn61Fz2M11Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M11Matrix20K = ({ {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896} }) mn61Fz2M11Matrix30K = ({ {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896} }) mn61Fz2M[[1, 2]] mn61Fz2M12Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M12Matrix20K = ({ {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896} }) mn61Fz2M12Matrix30K = ({ {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896} }) mn61Fz2M[[1, 3]] mn61Fz2M13Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M13Matrix20K = ({ {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896} }) mn61Fz2M13Matrix30K = ({ {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896} }) mn61Fz2M[[1, 4]] mn61Fz2M14Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M14Matrix20K = ({ {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896} }) mn61Fz2M14Matrix30K = ({ {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896} }) mn61Fz2M[[1, 5]] mn61Fz2M15Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M15Matrix20K = ({ {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896} }) mn61Fz2M15Matrix30K = ({ {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896} }) mn61Fz2M[[1, 6]] mn61Fz2M16Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M16Matrix20K = ({ {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507} }) mn61Fz2M16Matrix30K = ({ {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507} }) mn61Fz2M[[1, 7]] mn61Fz2M17Matrix12K = \!\(\* TagBox[ TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M17Matrix20K = ({ {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507} }) mn61Fz2M17Matrix30K = ({ {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507} }) mn61Fz2M[[1, 8]] mn61Fz2M18Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M18Matrix20K = ({ {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507} }) mn61Fz2M18Matrix30K = ({ {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507} }) mn61Fz2M[[1, 9]] mn61Fz2M19Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M19Matrix20K = ({ {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507} }) mn61Fz2M19Matrix30K = ({ {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507} }) mn61Fz2M[[1, 10]] mn61Fz2M110Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M110Matrix20K = ({ {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507} }) mn61Fz2M110Matrix30K = ({ {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507} }) mn61Fz2M[[1, 11]] mn61Fz2M111Matrix12K = ({ {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507} }) mn61Fz2M111Matrix20K = ({ {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507} }) mn61Fz2M111Matrix30K = ({ {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507} }) mn61Fz2M[[1, 12]] mn61Fz2M112Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M112Matrix20K = ({ {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507} }) mn61Fz2M112Matrix30K = ({ {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507} }) mn61Fz2M[[1, 13]] mn61Fz2M113Matrix12K = ({ {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507} }) mn61Fz2M113Matrix20K = ({ {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507} }) mn61Fz2M113Matrix30K = ({ {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507} }) mn61Fz2M[[1, 14]] mn61Fz2M114Matrix12K = ({ {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507} }) mn61Fz2M114Matrix20K = ({ {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507} }) mn61Fz2M114Matrix30K = ({ {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507} }) mn61Fz2M[[1, 15]] mn61Fz2M115Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M115Matrix20K = ({ {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507} }) mn61Fz2M115Matrix30K = ({ {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507} }) mn61Fz2M[[1, 16]] mn61Fz2M116Matrix12K = ({ {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896} }) mn61Fz2M116Matrix20K = ({ {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896} }) mn61Fz2M116Matrix30K = ({ {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896} }) mn61Fz2M[[1, 17]] mn61Fz2M117Matrix12K = ({ {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896} }) mn61Fz2M117Matrix20K = ({ {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896} }) mn61Fz2M117Matrix30K = ({ {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896} }) mn61Fz2M[[1, 18]] mn61Fz2M118Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M118Matrix20K = ({ {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896} }) mn61Fz2M118Matrix30K = ({ {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896} }) mn61Fz2M[[1, 19]] mn61Fz2M119Matrix12K = ({ {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896} }) mn61Fz2M119Matrix20K = ({ {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896} }) mn61Fz2M119Matrix30K = ({ {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896} }) mn61Fz2M[[1, 20]] mn61Fz2M120Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M120Matrix20K = ({ {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896} }) mn61Fz2M120Matrix30K = ({ {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896} }) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Berechnung der neuen Nullpunkte einer Schale des expandierten Clusters ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mm3Fz2M = MatrixForm[mm3*z2] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Extrahierung der Einzeltripel (neuen Nullpunktkoordinaten) Erstellung von Matrizen mit den Nullpunktkoordinaten zur weiteren Berechnung ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mm3Fz2M[[1, 1]] \!\(\* TagBox[ RowBox[{"mm3Fz2M11Matrix12K", "=", RowBox[{"(", "", GridBox[{ {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}]}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) \!\(\* TagBox[ RowBox[{"mm3Fz2M11Matrix20K", "=", RowBox[{"(", "", GridBox[{ {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}]}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) \!\(\* TagBox[ RowBox[{"mm3Fz2M11Matrix30K", "=", RowBox[{"(", "", GridBox[{ {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}]}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mm3Fz2M[[1, 2]] mm3Fz2M12Matrix12K = ({ {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389} }) mm3Fz2M12Matrix20K = ({ {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389} }) mm3Fz2M12Matrix30K = ({ {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389} }) mm3Fz2M[[1, 3]] mm3Fz2M13Matrix12K = ({ {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389} }) mm3Fz2M13Matrix20K = ({ {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389} }) mm3Fz2M13Matrix30K = ({ {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389} }) mm3Fz2M[[1, 4]] mm3Fz2M14Matrix12K = ({ {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389} }) mm3Fz2M14Matrix20K = ({ {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389} }) mm3Fz2M14Matrix30K = ({ {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389} }) mm3Fz2M[[1, 5]] mm3Fz2M15Matrix12K = ({ {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389} }) mm3Fz2M15Matrix20K = ({ {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389} }) mm3Fz2M15Matrix30K = ({ {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389} }) mm3Fz2M[[1, 6]] mm3Fz2M16Matrix12K = ({ {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017} }) mm3Fz2M16Matrix20K = ({ {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017} }) mm3Fz2M16Matrix30K = ({ {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017} }) mm3Fz2M[[1, 7]] mm3Fz2M17Matrix12K = ({ {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017} }) mm3Fz2M17Matrix20K = ({ {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017} }) mm3Fz2M17Matrix30K = ({ {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017} }) mm3Fz2M[[1, 8]] mm3Fz2M18Matrix12K = ({ {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017} }) mm3Fz2M18Matrix20K = ({ {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017} }) mm3Fz2M18Matrix30K = ({ {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017} }) mm3Fz2M[[1, 9]] mm3Fz2M19Matrix12K =({ {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017} }) mm3Fz2M19Matrix20K =({ {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017} }) mm3Fz2M19Matrix30K =({ {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017} }) mm3Fz2M[[1, 10]] mm3Fz2M110Matrix12K = ({ {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017} }) mm3Fz2M110Matrix20K = ({ {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017} }) mm3Fz2M110Matrix30K = ({ {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017} }) mm3Fz2M[[1, 11]] mm3Fz2M111Matrix12K = ({ {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0} }) mm3Fz2M111Matrix20K = ({ {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0} }) mm3Fz2M111Matrix30K = ({ {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0} }) mm3Fz2M[[1, 12]] mm3Fz2M112Matrix12K = ({ {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0} }) mm3Fz2M112Matrix20K = ({ {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0} }) mm3Fz2M112Matrix30K = ({ {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0} }) mm3Fz2M[[1, 13]] mm3Fz2M113Matrix12K = ({ {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0} }) mm3Fz2M113Matrix20K = ({ {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0} }) mm3Fz2M113Matrix30K = ({ {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0} }) mm3Fz2M[[1, 14]] mm3Fz2M114Matrix12K = ({ {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0} }) mm3Fz2M114Matrix20K = ({ {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0} }) mm3Fz2M114Matrix30K = ({ {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0} }) mm3Fz2M[[1, 15]] mm3Fz2M115Matrix12K = ({ {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0} }) mm3Fz2M115Matrix20K = ({ {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0} }) mm3Fz2M115Matrix30K = ({ {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0} }) mm3Fz2M[[1, 16]] mm3Fz2M116Matrix12K = ({ {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0} }) mm3Fz2M116Matrix20K = ({ {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0} }) mm3Fz2M116Matrix30K = ({ {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0} }) mm3Fz2M[[1, 17]] mm3Fz2M117Matrix12K = ({ {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0} }) mm3Fz2M117Matrix20K = ({ {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0} }) mm3Fz2M117Matrix30K = ({ {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0} }) mm3Fz2M[[1, 18]] mm3Fz2M118Matrix12K = ({ {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0} }) mm3Fz2M118Matrix20K = ({ {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0} }) mm3Fz2M118Matrix30K = ({ {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0} }) mm3Fz2M[[1, 19]] mm3Fz2M119Matrix12K = ({ {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0} }) mm3Fz2M119Matrix20K = ({ {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0} }) mm3Fz2M119Matrix30K = ({ {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0} }) mm3Fz2M[[1, 20]] mm3Fz2M120Matrix12K = ({ {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0} }) mm3Fz2M120Matrix20K = ({ {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0} }) mm3Fz2M120Matrix30K = ({ {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0} }) mm3Fz2M[[1, 21]] mm3Fz2M121Matrix12K = ({ {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017} }) mm3Fz2M121Matrix20K = ({ {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017} }) mm3Fz2M121Matrix30K = ({ {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017} }) mm3Fz2M[[1, 22]] mm3Fz2M122Matrix12K = ({ {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017} }) mm3Fz2M122Matrix20K = ({ {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017} }) mm3Fz2M122Matrix30K = ({ {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017} }) mm3Fz2M[[1, 23]] mm3Fz2M123Matrix12K = ({ {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017} }) mm3Fz2M123Matrix20K = ({ {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017} }) mm3Fz2M123Matrix30K = ({ {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017} }) mm3Fz2M[[1, 24]] mm3Fz2M124Matrix12K = ({ {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017} }) mm3Fz2M124Matrix20K = ({ {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017} }) mm3Fz2M124Matrix30K = ({ {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017} }) mm3Fz2M[[1, 25]] mm3Fz2M125Matrix12K = ({ {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017} }) mm3Fz2M125Matrix20K = ({ {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017} }) mm3Fz2M125Matrix30K = ({ {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017} }) mm3Fz2M[[1, 26]] mm3Fz2M126Matrix12K = ({ {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389} }) mm3Fz2M126Matrix20K = ({ {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389} }) mm3Fz2M126Matrix30K = ({ {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389} }) mm3Fz2M[[1, 27]] mm3Fz2M127Matrix12K = ({ {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389} }) mm3Fz2M127Matrix20K = ({ {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389} }) mm3Fz2M127Matrix30K = ({ {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389} }) mm3Fz2M[[1, 28]] mm3Fz2M128Matrix12K = ({ {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389} }) mm3Fz2M128Matrix20K = ({ {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389} }) mm3Fz2M128Matrix30K = ({ {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389} }) mm3Fz2M[[1, 29]] mm3Fz2M129Matrix12K = ({ {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389} }) mm3Fz2M129Matrix20K = ({ {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389} }) mm3Fz2M129Matrix30K = ({ {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389} }) mm3Fz2M[[1, 30]] mm3Fz2M130Matrix12K = ({ {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389} }) mm3Fz2M130Matrix20K = ({ {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389} }) mm3Fz2M130Matrix30K = ({ {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389} }) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Addition der neuen Nullpunktkoordinaten mit den einzelnen \ Clusterkugeln 12 Cluster in 1. Schale [ml2/nl2] ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) ml2S01mn61Fz2M11 = (ml2) + (ml2Fz2M11Matrix12K) ml2S01mn61Fz2M12 = (ml2) + (ml2Fz2M12Matrix12K) ml2S01mn61Fz2M13 = (ml2) + (ml2Fz2M13Matrix12K) ml2S01mn61Fz2M14 = (ml2) + (ml2Fz2M14Matrix12K) ml2S01mn61Fz2M15 = (ml2) + (ml2Fz2M15Matrix12K) ml2S01mn61Fz2M16 = (ml2) + (ml2Fz2M16Matrix12K) ml2S01mn61Fz2M17 = (ml2) + (ml2Fz2M17Matrix12K) ml2S01mn61Fz2M18 = (ml2) + (ml2Fz2M18Matrix12K) ml2S01mn61Fz2M19 = (ml2) + (ml2Fz2M19Matrix12K) ml2S01mn61Fz2M110 = (ml2) + (ml2Fz2M110Matrix12K) ml2S01mn61Fz2M111 = (ml2) + (ml2Fz2M111Matrix12K) ml2S01mn61Fz2M112 = (ml2) + (ml2Fz2M112Matrix12K) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Addition der neuen Nullpunktkoordinaten mit den einzelnen \ Clusterkugeln 12 Cluster in 2. Schale [mm3/nm3] ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mm3S01mn61Fz2M11 = (mm3) + (ml2Fz2M11Matrix30K) mm3S01mn61Fz2M12 = (mm3) + (ml2Fz2M12Matrix30K) mm3S01mn61Fz2M13 = (mm3) + (ml2Fz2M13Matrix30K) mm3S01mn61Fz2M14 = (mm3) + (ml2Fz2M14Matrix30K) mm3S01mn61Fz2M15 = (mm3) + (ml2Fz2M15Matrix30K) mm3S01mn61Fz2M16 = (mm3) + (ml2Fz2M16Matrix30K) mm3S01mn61Fz2M17 = (mm3) + (ml2Fz2M17Matrix30K) mm3S01mn61Fz2M18 = (mm3) + (ml2Fz2M18Matrix30K) mm3S01mn61Fz2M19 = (mm3) + (ml2Fz2M19Matrix30K) mm3S01mn61Fz2M110 = (mm3) + (ml2Fz2M110Matrix30K) mm3S01mn61Fz2M111 = (mm3) + (ml2Fz2M111Matrix30K) mm3S01mn61Fz2M112 = (mm3) + (ml2Fz2M112Matrix30K) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Addition der neuen Nullpunktkoordinaten mit den einzelnen \ Clusterkugeln 12 Cluster in 1. Schale [ma/na] ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) maS01mn61Fz2M11 = (ma) + (ml2Fz2M11Matrix12K) maS01mn61Fz2M12 = (ma) + (ml2Fz2M12Matrix12K) maS01mn61Fz2M13 = (ma) + (ml2Fz2M13Matrix12K) maS01mn61Fz2M14 = (ma) + (ml2Fz2M14Matrix12K) maS01mn61Fz2M15 = (ma) + (ml2Fz2M15Matrix12K) maS01mn61Fz2M16 = (ma) + (ml2Fz2M16Matrix12K) maS01mn61Fz2M17 = (ma) + (ml2Fz2M17Matrix12K) maS01mn61Fz2M18 = (ma) + (ml2Fz2M18Matrix12K) maS01mn61Fz2M19 = (ma) + (ml2Fz2M19Matrix12K) maS01mn61Fz2M110 = (ma) + (ml2Fz2M110Matrix12K) maS01mn61Fz2M111 = (ma) + (ml2Fz2M111Matrix12K) maS01mn61Fz2M112 = (ma) + (ml2Fz2M112Matrix12K) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Addition der neuen Nullpunktkoordinaten mit den einzelnen \ Clusterkugeln 12 Cluster in 1. Schale [mb1/nb1] ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mb1S01mn61Fz2M11 = (mb1) + (ml2Fz2M11Matrix20K) mb1S01mn61Fz2M12 = (mb1) + (ml2Fz2M12Matrix20K) mb1S01mn61Fz2M13 = (mb1) + (ml2Fz2M13Matrix20K) mb1S01mn61Fz2M14 = (mb1) + (ml2Fz2M14Matrix20K) mb1S01mn61Fz2M15 = (mb1) + (ml2Fz2M15Matrix20K) mb1S01mn61Fz2M16 = (mb1) + (ml2Fz2M16Matrix20K) mb1S01mn61Fz2M17 = (mb1) + (ml2Fz2M17Matrix20K) mb1S01mn61Fz2M18 = (mb1) + (ml2Fz2M18Matrix20K) mb1S01mn61Fz2M19 = (mb1) + (ml2Fz2M19Matrix20K) mb1S01mn61Fz2M110 = (mb1) + (ml2Fz2M110Matrix20K) mb1S01mn61Fz2M111 = (mb1) + (ml2Fz2M111Matrix20K) mb1S01mn61Fz2M112 = (mb1) + (ml2Fz2M112Matrix20K) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Addition der neuen Nullpunktkoordinaten mit den einzelnen \ Clusterkugeln 30 Cluster in 2. Schale [ma/na] ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) maS02mn61Fz2M11 = (ma) + (mm3Fz2M11Matrix12K) maS02mn61Fz2M12 = (ma) + (mm3Fz2M12Matrix12K) maS02mn61Fz2M13 = (ma) + (mm3Fz2M13Matrix12K) maS02mn61Fz2M14 = (ma) + (mm3Fz2M14Matrix12K) maS02mn61Fz2M15 = (ma) + (mm3Fz2M15Matrix12K) maS02mn61Fz2M16 = (ma) + (mm3Fz2M16Matrix12K) maS02mn61Fz2M17 = (ma) + (mm3Fz2M17Matrix12K) maS02mn61Fz2M18 = (ma) + (mm3Fz2M18Matrix12K) maS02mn61Fz2M19 = (ma) + (mm3Fz2M19Matrix12K) maS02mn61Fz2M110 = (ma) + (mm3Fz2M110Matrix12K) maS02mn61Fz2M111 = (ma) + (mm3Fz2M111Matrix12K) maS02mn61Fz2M112 = (ma) + (mm3Fz2M112Matrix12K) maS02mn61Fz2M113 = (ma) + (mm3Fz2M113Matrix12K) maS02mn61Fz2M114 = (ma) + (mm3Fz2M114Matrix12K) maS02mn61Fz2M115 = (ma) + (mm3Fz2M115Matrix12K) maS02mn61Fz2M116 = (ma) + (mm3Fz2M116Matrix12K) maS02mn61Fz2M117 = (ma) + (mm3Fz2M117Matrix12K) maS02mn61Fz2M118 = (ma) + (mm3Fz2M118Matrix12K) maS02mn61Fz2M119 = (ma) + (mm3Fz2M119Matrix12K) maS02mn61Fz2M120 = (ma) + (mm3Fz2M120Matrix12K) maS02mn61Fz2M121 = (ma) + (mm3Fz2M121Matrix12K) maS02mn61Fz2M122 = (ma) + (mm3Fz2M122Matrix12K) maS02mn61Fz2M123 = (ma) + (mm3Fz2M123Matrix12K) maS02mn61Fz2M124 = (ma) + (mm3Fz2M124Matrix12K) maS02mn61Fz2M125 = (ma) + (mm3Fz2M125Matrix12K) maS02mn61Fz2M126 = (ma) + (mm3Fz2M126Matrix12K) maS02mn61Fz2M127 = (ma) + (mm3Fz2M127Matrix12K) maS02mn61Fz2M128 = (ma) + (mm3Fz2M128Matrix12K) maS02mn61Fz2M129 = (ma) + (mm3Fz2M129Matrix12K) maS02mn61Fz2M130 = (ma) + (mm3Fz2M130Matrix12K) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Addition der neuen Nullpunktkoordinaten mit den einzelnen \ Clusterkugeln 30 Cluster in 2. Schale [mb1/nb1] ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mb1S02mn61Fz2M11 = (mb1) + (mm3Fz2M11Matrix20K) mb1S02mn61Fz2M12 = (mb1) + (mm3Fz2M12Matrix20K) mb1S02mn61Fz2M13 = (mb1) + (mm3Fz2M13Matrix20K) mb1S02mn61Fz2M14 = (mb1) + (mm3Fz2M14Matrix20K) mb1S02mn61Fz2M15 = (mb1) + (mm3Fz2M15Matrix20K) mb1S02mn61Fz2M16 = (mb1) + (mm3Fz2M16Matrix20K) mb1S02mn61Fz2M17 = (mb1) + (mm3Fz2M17Matrix20K) mb1S02mn61Fz2M18 = (mb1) + (mm3Fz2M18Matrix20K) mb1S02mn61Fz2M19 = (mb1) + (mm3Fz2M19Matrix20K) mb1S02mn61Fz2M110 = (mb1) + (mm3Fz2M110Matrix20K) mb1S02mn61Fz2M111 = (mb1) + (mm3Fz2M111Matrix20K) mb1S02mn61Fz2M112 = (mb1) + (mm3Fz2M112Matrix20K) mb1S02mn61Fz2M113 = (mb1) + (mm3Fz2M113Matrix20K) mb1S02mn61Fz2M114 = (mb1) + (mm3Fz2M114Matrix20K) mb1S02mn61Fz2M115 = (mb1) + (mm3Fz2M115Matrix20K) mb1S02mn61Fz2M116 = (mb1) + (mm3Fz2M116Matrix20K) mb1S02mn61Fz2M117 = (mb1) + (mm3Fz2M117Matrix20K) mb1S02mn61Fz2M118 = (mb1) + (mm3Fz2M118Matrix20K) mb1S02mn61Fz2M119 = (mb1) + (mm3Fz2M119Matrix20K) mb1S02mn61Fz2M120 = (mb1) + (mm3Fz2M120Matrix20K) mb1S02mn61Fz2M121 = (mb1) + (mm3Fz2M121Matrix20K) mb1S02mn61Fz2M122 = (mb1) + (mm3Fz2M122Matrix20K) mb1S02mn61Fz2M123 = (mb1) + (mm3Fz2M123Matrix20K) mb1S02mn61Fz2M124 = (mb1) + (mm3Fz2M124Matrix20K) mb1S02mn61Fz2M125 = (mb1) + (mm3Fz2M125Matrix20K) mb1S02mn61Fz2M126 = (mb1) + (mm3Fz2M126Matrix20K) mb1S02mn61Fz2M127 = (mb1) + (mm3Fz2M127Matrix20K) mb1S02mn61Fz2M128 = (mb1) + (mm3Fz2M128Matrix20K) mb1S02mn61Fz2M129 = (mb1) + (mm3Fz2M129Matrix20K) mb1S02mn61Fz2M130 = (mb1) + (mm3Fz2M130Matrix20K) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Addition der neuen Nullpunktkoordinaten mit den einzelnen \ Clusterkugeln 20 Cluster in 3. Schale [ml2/nl2] ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) ml2S03mn61Fz2M11 = (ml2) + (mn61Fz2M11Matrix12K) ml2S03mn61Fz2M12 = (ml2) + (mn61Fz2M12Matrix12K) ml2S03mn61Fz2M13 = (ml2) + (mn61Fz2M13Matrix12K) ml2S03mn61Fz2M14 = (ml2) + (mn61Fz2M14Matrix12K) ml2S03mn61Fz2M15 = (ml2) + (mn61Fz2M15Matrix12K) ml2S03mn61Fz2M16 = (ml2) + (mn61Fz2M16Matrix12K) ml2S03mn61Fz2M17 = (ml2) + (mn61Fz2M17Matrix12K) ml2S03mn61Fz2M18 = (ml2) + (mn61Fz2M18Matrix12K) ml2S03mn61Fz2M19 = (ml2) + (mn61Fz2M19Matrix12K) ml2S03mn61Fz2M110 = (ml2) + (mn61Fz2M110Matrix12K) ml2S03mn61Fz2M111 = (ml2) + (mn61Fz2M111Matrix12K) ml2S03mn61Fz2M112 = (ml2) + (mn61Fz2M112Matrix12K) ml2S03mn61Fz2M113 = (ml2) + (mn61Fz2M113Matrix12K) ml2S03mn61Fz2M114 = (ml2) + (mn61Fz2M114Matrix12K) ml2S03mn61Fz2M115 = (ml2) + (mn61Fz2M115Matrix12K) ml2S03mn61Fz2M116 = (ml2) + (mn61Fz2M116Matrix12K) ml2S03mn61Fz2M117 = (ml2) + (mn61Fz2M117Matrix12K) ml2S03mn61Fz2M118 = (ml2) + (mn61Fz2M118Matrix12K) ml2S03mn61Fz2M119 = (ml2) + (mn61Fz2M119Matrix12K) ml2S03mn61Fz2M120 = (ml2) + (mn61Fz2M120Matrix12K) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Addition der neuen Nullpunktkoordinaten mit den einzelnen \ Clusterkugeln 20 Cluster in 3. Schale [mm3/nm3] ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mm3S03mn61Fz2M11 = (mm3) + (mn61Fz2M11Matrix30K) mm3S03mn61Fz2M12 = (mm3) + (mn61Fz2M12Matrix30K) mm3S03mn61Fz2M13 = (mm3) + (mn61Fz2M13Matrix30K) mm3S03mn61Fz2M14 = (mm3) + (mn61Fz2M14Matrix30K) mm3S03mn61Fz2M15 = (mm3) + (mn61Fz2M15Matrix30K) mm3S03mn61Fz2M16 = (mm3) + (mn61Fz2M16Matrix30K) mm3S03mn61Fz2M17 = (mm3) + (mn61Fz2M17Matrix30K) mm3S03mn61Fz2M18 = (mm3) + (mn61Fz2M18Matrix30K) mm3S03mn61Fz2M19 = (mm3) + (mn61Fz2M19Matrix30K) mm3S03mn61Fz2M110 = (mm3) + (mn61Fz2M110Matrix30K) mm3S03mn61Fz2M111 = (mm3) + (mn61Fz2M111Matrix30K) mm3S03mn61Fz2M112 = (mm3) + (mn61Fz2M112Matrix30K) mm3S03mn61Fz2M113 = (mm3) + (mn61Fz2M113Matrix30K) mm3S03mn61Fz2M114 = (mm3) + (mn61Fz2M114Matrix30K) mm3S03mn61Fz2M115 = (mm3) + (mn61Fz2M115Matrix30K) mm3S03mn61Fz2M116 = (mm3) + (mn61Fz2M116Matrix30K) mm3S03mn61Fz2M117 = (mm3) + (mn61Fz2M117Matrix30K) mm3S03mn61Fz2M118 = (mm3) + (mn61Fz2M118Matrix30K) mm3S03mn61Fz2M119 = (mm3) + (mn61Fz2M119Matrix30K) mm3S03mn61Fz2M120 = (mm3) + (mn61Fz2M120Matrix30K) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## 3D-Darstellung ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## *) Graphics3D[{Blue, Sphere[ml20, nl20], Green, Sphere[ml2, nl2], Red, Sphere[mm3, nm3], Yellow, Sphere[mn61, nn61]}] Graphics3D[{Blue, Sphere[{ml20}, nl20], Green, Sphere[{ml2*z2}, nl2], Red, Sphere[{mm3*z2}, nm3], Yellow, Sphere[{mn61*z2}, nn61]}] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Step by Step Growth of a Cluster BMBM ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## *) Graphics3D[{ (* Bergman-Baustein *) (* 1. Schale Blue (ma/mb1)(Pink/Blue)*) Pink, Sphere[ma, na], Blue, Sphere[mb1, nb1] }] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Step by Step Growth of a Cluster BMBM ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## *) Graphics3D[{ (*Bergman-Baustein (ma/mb1) (Pink/Blue*) (* 1. Schale Blue *) Pink, Sphere[ma, na], Blue, Sphere[mb1, nb1], (*Mckay-Baustein (ml2/mm3)(Cyan/Green)*) (* 2. Schale Green *) Cyan, Sphere[ml2S01mn61Fz2M11, nl2], Cyan, Sphere[ml2S01mn61Fz2M12, nl2], Cyan, Sphere[ml2S01mn61Fz2M13, nl2], Cyan, Sphere[ml2S01mn61Fz2M14, nl2], Cyan, Sphere[ml2S01mn61Fz2M15, nl2], Cyan, Sphere[ml2S01mn61Fz2M16, nl2], Cyan, Sphere[ml2S01mn61Fz2M17, nl2], Cyan, Sphere[ml2S01mn61Fz2M18, nl2], Cyan, Sphere[ml2S01mn61Fz2M19, nl2], Cyan, Sphere[ml2S01mn61Fz2M110, nl2], Cyan, Sphere[ml2S01mn61Fz2M111, nl2], Cyan, Sphere[ml2S01mn61Fz2M112, nl2], Green, Sphere[mm3S01mn61Fz2M11, nm3], Green, Sphere[mm3S01mn61Fz2M12, nm3], Green, Sphere[mm3S01mn61Fz2M13, nm3], Green, Sphere[mm3S01mn61Fz2M14, nm3], Green, Sphere[mm3S01mn61Fz2M15, nm3], Green, Sphere[mm3S01mn61Fz2M16, nm3], Green, Sphere[mm3S01mn61Fz2M17, nm3], Green, Sphere[mm3S01mn61Fz2M18, nm3], Green, Sphere[mm3S01mn61Fz2M19, nm3], Green, Sphere[mm3S01mn61Fz2M110, nm3], Green, Sphere[mm3S01mn61Fz2M111, nm3], Green, Sphere[mm3S01mn61Fz2M112, nm3] }] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Step by Step Growth of a Cluster BMBM ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## *) Graphics3D[{ (*Bergman-Baustein (ma/mb1) (Pink/Blue*) (* 1. Schale Blue (ma/mb1)(Pink/Blue)*) Pink, Sphere[ma, na], Blue, Sphere[mb1, nb1], (*Mckay-Baustein (ml2/mm3)(Cyan/Green)*) (* 2. Schale Green (ml2/mm3)(Cyan/Green)*) Cyan, Sphere[ml2S01mn61Fz2M11, nl2], Cyan, Sphere[ml2S01mn61Fz2M12, nl2], Cyan, Sphere[ml2S01mn61Fz2M13, nl2], Cyan, Sphere[ml2S01mn61Fz2M14, nl2], Cyan, Sphere[ml2S01mn61Fz2M15, nl2], Cyan, Sphere[ml2S01mn61Fz2M16, nl2], Cyan, Sphere[ml2S01mn61Fz2M17, nl2], Cyan, Sphere[ml2S01mn61Fz2M18, nl2], Cyan, Sphere[ml2S01mn61Fz2M19, nl2], Cyan, Sphere[ml2S01mn61Fz2M110, nl2], Cyan, Sphere[ml2S01mn61Fz2M111, nl2], Cyan, Sphere[ml2S01mn61Fz2M112, nl2], Green, Sphere[mm3S01mn61Fz2M11, nm3], Green, Sphere[mm3S01mn61Fz2M12, nm3], Green, Sphere[mm3S01mn61Fz2M13, nm3], Green, Sphere[mm3S01mn61Fz2M14, nm3], Green, Sphere[mm3S01mn61Fz2M15, nm3], Green, Sphere[mm3S01mn61Fz2M16, nm3], Green, Sphere[mm3S01mn61Fz2M17, nm3], Green, Sphere[mm3S01mn61Fz2M18, nm3], Green, Sphere[mm3S01mn61Fz2M19, nm3], Green, Sphere[mm3S01mn61Fz2M110, nm3], Green, Sphere[mm3S01mn61Fz2M111, nm3], Green, Sphere[mm3S01mn61Fz2M112, nm3], (*Bergman-Baustein *) (* 3. Schale Red (ma/mb1)(Pink/Red)*) Pink, Sphere[maS02mn61Fz2M11, na], Pink, Sphere[maS02mn61Fz2M12, na], Pink, Sphere[maS02mn61Fz2M13, na], Pink, Sphere[maS02mn61Fz2M14, na], Pink, Sphere[maS02mn61Fz2M15, na], Pink, Sphere[maS02mn61Fz2M16, na], Pink, Sphere[maS02mn61Fz2M17, na], Pink, Sphere[maS02mn61Fz2M18, na], Pink, Sphere[maS02mn61Fz2M19, na], Pink, Sphere[maS02mn61Fz2M110, na], Pink, Sphere[maS02mn61Fz2M111, na], Pink, Sphere[maS02mn61Fz2M112, na], Pink, Sphere[maS02mn61Fz2M113, na], Pink, Sphere[maS02mn61Fz2M114, na], Pink, Sphere[maS02mn61Fz2M115, na], Pink, Sphere[maS02mn61Fz2M116, na], Pink, Sphere[maS02mn61Fz2M117, na], Pink, Sphere[maS02mn61Fz2M118, na], Pink, Sphere[maS02mn61Fz2M119, na], Pink, Sphere[maS02mn61Fz2M120, na], Pink, Sphere[maS02mn61Fz2M121, na], Pink, Sphere[maS02mn61Fz2M122, na], Pink, Sphere[maS02mn61Fz2M123, na], Pink, Sphere[maS02mn61Fz2M124, na], Pink, Sphere[maS02mn61Fz2M125, na], Pink, Sphere[maS02mn61Fz2M126, na], Pink, Sphere[maS02mn61Fz2M127, na], Pink, Sphere[maS02mn61Fz2M128, na], Pink, Sphere[maS02mn61Fz2M129, na], Pink, Sphere[maS02mn61Fz2M130, na], Red, Sphere[mb1S02mn61Fz2M11, nb1], Red, Sphere[mb1S02mn61Fz2M12, nb1], Red, Sphere[mb1S02mn61Fz2M13, nb1], Red, Sphere[mb1S02mn61Fz2M14, nb1], Red, Sphere[mb1S02mn61Fz2M15, nb1], Red, Sphere[mb1S02mn61Fz2M16, nb1], Red, Sphere[mb1S02mn61Fz2M17, nb1], Red, Sphere[mb1S02mn61Fz2M18, nb1], Red, Sphere[mb1S02mn61Fz2M19, nb1], Red, Sphere[mb1S02mn61Fz2M110, nb1], Red, Sphere[mb1S02mn61Fz2M111, nb1], Red, Sphere[mb1S02mn61Fz2M112, nb1], Red, Sphere[mb1S02mn61Fz2M113, nb1], Red, Sphere[mb1S02mn61Fz2M114, nb1], Red, Sphere[mb1S02mn61Fz2M115, nb1], Red, Sphere[mb1S02mn61Fz2M116, nb1], Red, Sphere[mb1S02mn61Fz2M117, nb1], Red, Sphere[mb1S02mn61Fz2M118, nb1], Red, Sphere[mb1S02mn61Fz2M119, nb1], Red, Sphere[mb1S02mn61Fz2M120, nb1], Red, Sphere[mb1S02mn61Fz2M121, nb1], Red, Sphere[mb1S02mn61Fz2M122, nb1], Red, Sphere[mb1S02mn61Fz2M123, nb1], Red, Sphere[mb1S02mn61Fz2M124, nb1], Red, Sphere[mb1S02mn61Fz2M125, nb1], Red, Sphere[mb1S02mn61Fz2M126, nb1], Red, Sphere[mb1S02mn61Fz2M127, nb1], Red, Sphere[mb1S02mn61Fz2M128, nb1], Red, Sphere[mb1S02mn61Fz2M129, nb1], Red, Sphere[mb1S02mn61Fz2M130, nb1] }] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Step by Step Growth of a Cluster BMBM ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## *) Graphics3D[{ (*Bergman-Baustein *) (* 1. Schale Blue (ma/mb1) (Pink/Blue) *) Pink, Sphere[ma, na], Blue, Sphere[mb1, nb1], (*Mckay-Baustein *) (* 2. Schale Green (ml2/mm3)(Cyan/Green)*) Cyan, Sphere[ml2S01mn61Fz2M11, nl2], Cyan, Sphere[ml2S01mn61Fz2M12, nl2], Cyan, Sphere[ml2S01mn61Fz2M13, nl2], Cyan, Sphere[ml2S01mn61Fz2M14, nl2], Cyan, Sphere[ml2S01mn61Fz2M15, nl2], Cyan, Sphere[ml2S01mn61Fz2M16, nl2], Cyan, Sphere[ml2S01mn61Fz2M17, nl2], Cyan, Sphere[ml2S01mn61Fz2M18, nl2], Cyan, Sphere[ml2S01mn61Fz2M19, nl2], Cyan, Sphere[ml2S01mn61Fz2M110, nl2], Cyan, Sphere[ml2S01mn61Fz2M111, nl2], Cyan, Sphere[ml2S01mn61Fz2M112, nl2], Green, Sphere[mm3S01mn61Fz2M11, nm3], Green, Sphere[mm3S01mn61Fz2M12, nm3], Green, Sphere[mm3S01mn61Fz2M13, nm3], Green, Sphere[mm3S01mn61Fz2M14, nm3], Green, Sphere[mm3S01mn61Fz2M15, nm3], Green, Sphere[mm3S01mn61Fz2M16, nm3], Green, Sphere[mm3S01mn61Fz2M17, nm3], Green, Sphere[mm3S01mn61Fz2M18, nm3], Green, Sphere[mm3S01mn61Fz2M19, nm3], Green, Sphere[mm3S01mn61Fz2M110, nm3], Green, Sphere[mm3S01mn61Fz2M111, nm3], Green, Sphere[mm3S01mn61Fz2M112, nm3], (*Bergman-Baustein *) (* 3. Schale Red (ma/mb1)(Pink/Red)*) Pink, Sphere[maS02mn61Fz2M11, na], Pink, Sphere[maS02mn61Fz2M12, na], Pink, Sphere[maS02mn61Fz2M13, na], Pink, Sphere[maS02mn61Fz2M14, na], Pink, Sphere[maS02mn61Fz2M15, na], Pink, Sphere[maS02mn61Fz2M16, na], Pink, Sphere[maS02mn61Fz2M17, na], Pink, Sphere[maS02mn61Fz2M18, na], Pink, Sphere[maS02mn61Fz2M19, na], Pink, Sphere[maS02mn61Fz2M110, na], Pink, Sphere[maS02mn61Fz2M111, na], Pink, Sphere[maS02mn61Fz2M112, na], Pink, Sphere[maS02mn61Fz2M113, na], Pink, Sphere[maS02mn61Fz2M114, na], Pink, Sphere[maS02mn61Fz2M115, na], Pink, Sphere[maS02mn61Fz2M116, na], Pink, Sphere[maS02mn61Fz2M117, na], Pink, Sphere[maS02mn61Fz2M118, na], Pink, Sphere[maS02mn61Fz2M119, na], Pink, Sphere[maS02mn61Fz2M120, na], Pink, Sphere[maS02mn61Fz2M121, na], Pink, Sphere[maS02mn61Fz2M122, na], Pink, Sphere[maS02mn61Fz2M123, na], Pink, Sphere[maS02mn61Fz2M124, na], Pink, Sphere[maS02mn61Fz2M125, na], Pink, Sphere[maS02mn61Fz2M126, na], Pink, Sphere[maS02mn61Fz2M127, na], Pink, Sphere[maS02mn61Fz2M128, na], Pink, Sphere[maS02mn61Fz2M129, na], Pink, Sphere[maS02mn61Fz2M130, na], Red, Sphere[mb1S02mn61Fz2M11, nb1], Red, Sphere[mb1S02mn61Fz2M12, nb1], Red, Sphere[mb1S02mn61Fz2M13, nb1], Red, Sphere[mb1S02mn61Fz2M14, nb1], Red, Sphere[mb1S02mn61Fz2M15, nb1], Red, Sphere[mb1S02mn61Fz2M16, nb1], Red, Sphere[mb1S02mn61Fz2M17, nb1], Red, Sphere[mb1S02mn61Fz2M18, nb1], Red, Sphere[mb1S02mn61Fz2M19, nb1], Red, Sphere[mb1S02mn61Fz2M110, nb1], Red, Sphere[mb1S02mn61Fz2M111, nb1], Red, Sphere[mb1S02mn61Fz2M112, nb1], Red, Sphere[mb1S02mn61Fz2M113, nb1], Red, Sphere[mb1S02mn61Fz2M114, nb1], Red, Sphere[mb1S02mn61Fz2M115, nb1], Red, Sphere[mb1S02mn61Fz2M116, nb1], Red, Sphere[mb1S02mn61Fz2M117, nb1], Red, Sphere[mb1S02mn61Fz2M118, nb1], Red, Sphere[mb1S02mn61Fz2M119, nb1], Red, Sphere[mb1S02mn61Fz2M120, nb1], Red, Sphere[mb1S02mn61Fz2M121, nb1], Red, Sphere[mb1S02mn61Fz2M122, nb1], Red, Sphere[mb1S02mn61Fz2M123, nb1], Red, Sphere[mb1S02mn61Fz2M124, nb1], Red, Sphere[mb1S02mn61Fz2M125, nb1], Red, Sphere[mb1S02mn61Fz2M126, nb1], Red, Sphere[mb1S02mn61Fz2M127, nb1], Red, Sphere[mb1S02mn61Fz2M128, nb1], Red, Sphere[mb1S02mn61Fz2M129, nb1], Red, Sphere[mb1S02mn61Fz2M130, nb1], (*Mckay-Baustein *) (* 4. Schale Yellow (ml2/mm3)(Cyan/Yellow)*) Cyan, Sphere[ml2S03mn61Fz2M11, nl2], Cyan, Sphere[ml2S03mn61Fz2M12, nl2], Cyan, Sphere[ml2S03mn61Fz2M13, nl2], Cyan, Sphere[ml2S03mn61Fz2M14, nl2], Cyan, Sphere[ml2S03mn61Fz2M15, nl2], Cyan, Sphere[ml2S03mn61Fz2M16, nl2], Cyan, Sphere[ml2S03mn61Fz2M17, nl2], Cyan, Sphere[ml2S03mn61Fz2M18, nl2], Cyan, Sphere[ml2S03mn61Fz2M19, nl2], Cyan, Sphere[ml2S03mn61Fz2M110, nl2], Cyan, Sphere[ml2S03mn61Fz2M111, nl2], Cyan, Sphere[ml2S03mn61Fz2M112, nl2], Cyan, Sphere[ml2S03mn61Fz2M113, nl2], Cyan, Sphere[ml2S03mn61Fz2M114, nl2], Cyan, Sphere[ml2S03mn61Fz2M115, nl2], Cyan, Sphere[ml2S03mn61Fz2M116, nl2], Cyan, Sphere[ml2S03mn61Fz2M117, nl2], Cyan, Sphere[ml2S03mn61Fz2M118, nl2], Cyan, Sphere[ml2S03mn61Fz2M119, nl2], Cyan, Sphere[ml2S03mn61Fz2M120, nl2], Yellow, Sphere[mm3S03mn61Fz2M11, nm3], Yellow, Sphere[mm3S03mn61Fz2M12, nm3], Yellow, Sphere[mm3S03mn61Fz2M13, nm3], Yellow, Sphere[mm3S03mn61Fz2M14, nm3], Yellow, Sphere[mm3S03mn61Fz2M15, nm3], Yellow, Sphere[mm3S03mn61Fz2M16, nm3], Yellow, Sphere[mm3S03mn61Fz2M17, nm3], Yellow, Sphere[mm3S03mn61Fz2M18, nm3], Yellow, Sphere[mm3S03mn61Fz2M19, nm3], Yellow, Sphere[mm3S03mn61Fz2M110, nm3], Yellow, Sphere[mm3S03mn61Fz2M111, nm3], Yellow, Sphere[mm3S03mn61Fz2M112, nm3], Yellow, Sphere[mm3S03mn61Fz2M113, nm3], Yellow, Sphere[mm3S03mn61Fz2M114, nm3], Yellow, Sphere[mm3S03mn61Fz2M115, nm3], Yellow, Sphere[mm3S03mn61Fz2M116, nm3], Yellow, Sphere[mm3S03mn61Fz2M117, nm3], Yellow, Sphere[mm3S03mn61Fz2M118, nm3], Yellow, Sphere[mm3S03mn61Fz2M119, nm3], Yellow, Sphere[mm3S03mn61Fz2M120, nm3] }] (* ## ## ## A3. CLUSTERS OF THE 2ND GENERATION A3.4 STEP BY STEP GROWTH OF A T’2-CLUSTER{2} YELLOW: Rot-Überlagerung der Koinzidenzplätze: siehe "Switch" - coordinates - ## ## ## ## # *) ml20 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* center *) nl20 = {0.5} (* radius *) (* Mackay: 2. shell, spheres:12 *) ml2 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0.951057"}, {"0.850651", "0", "0.425325"}, {"0.262866", "0.809017", "0.425325"}, { RowBox[{"-", "0.688191"}], "0.5", "0.425325"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "0.5"}], "0.425325"}, {"0.262866", RowBox[{"-", "0.809017"}], "0.425325"}, {"0.688191", "0.5", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.262866"}], "0.809017", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.850651"}], "0", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.262866"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "0.425325"}]}, {"0.688191", RowBox[{"-", "0.5"}], RowBox[{"-", "0.425325"}]}, {"0", "0", RowBox[{"-", "0.951057"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nl2 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* radius *) (* Mackay: 3. shell, spheres:30 *) mm3 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.850651", "0", "1.376382"}, {"0.262865", "0.809017", "1.376382"}, { RowBox[{"-", "0.688191"}], "0.5", "1.376382"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "0.5"}], "1.376382"}, {"0.262865", RowBox[{"-", "0.809017"}], "1.376382"}, {"1.113516", "0.809017", "0.850651"}, { RowBox[{"-", "0.425325"}], "1.309017", "0.850651"}, { RowBox[{"-", "1.376382"}], "0", "0.850651"}, { RowBox[{"-", "0.425325"}], RowBox[{"-", "1.309017"}], "0.850651"}, {"1.113516", RowBox[{"-", "0.809017"}], "0.850651"}, {"1.538841", "0.5", "0"}, {"0.951056", "1.309017", "0"}, {"0", "1.618034", "0"}, { RowBox[{"-", "0.951056"}], "1.309017", "0"}, { RowBox[{"-", "1.538841"}], "0.5", "0"}, { RowBox[{"-", "1.538841"}], RowBox[{"-", "0.5"}], "0"}, { RowBox[{"-", "0.951056"}], RowBox[{"-", "1.309017"}], "0"}, {"0", RowBox[{"-", "1.618034"}], "0"}, {"0.951056", RowBox[{"-", "1.309017"}], "0"}, {"1.538841", RowBox[{"-", "0.5"}], "0"}, {"1.376382", "0", RowBox[{"-", "0.850651"}]}, {"0.425325", "1.309017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], "0.809017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "0.850651"}]}, {"0.425325", RowBox[{"-", "1.309017"}], RowBox[{"-", "0.850651"}]}, {"0.688191", "0.5", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.262865"}], "0.809017", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.850651"}], "0", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.262865"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "1.376382"}]}, {"0.688191", RowBox[{"-", "0.5"}], RowBox[{"-", "1.376382"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* "Switch *) (* nm3={0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.\ 5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5} *) \ (* radius *) nm3 = {0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505} (* radius *) mn61 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.113516", "0.809017", "1.801707"}, { RowBox[{"-", "0.425325"}], "1.309017", "1.801707"}, { RowBox[{"-", "1.376382"}], "0", "1.801707"}, { RowBox[{"-", "0.425325"}], RowBox[{"-", "1.309017"}], "1.801707"}, {"1.113516", RowBox[{"-", "0.809017"}], "1.801707"}, {"1.801708", "1.309017", "0.425325"}, { RowBox[{"-", "0.688191"}], "2.118034", "0.425325"}, { RowBox[{"-", "2.227033"}], "0", "0.425325"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "2.118034"}], "0.425325"}, {"1.801708", RowBox[{"-", "1.309017"}], "0.425325"}, {"2.227033", "0", RowBox[{"-", "0.425325"}]}, {"0.688191", "2.118034", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "1.801708"}], "1.309017", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "1.801708"}], RowBox[{"-", "1.309017"}], RowBox[{"-", "0.425325"}]}, {"0.688191", RowBox[{"-", "2.118034"}], RowBox[{"-", "0.425325"}]}, {"1.376382", "0", RowBox[{"-", "1.801707"}]}, {"0.425325", "1.309017", RowBox[{"-", "1.801707"}]}, { RowBox[{"-", "1.113516"}], "0.809017", RowBox[{"-", "1.801707"}]}, { RowBox[{"-", "1.113516"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "1.801707"}]}, {"0.425325", RowBox[{"-", "1.309017"}], RowBox[{"-", "1.801707"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nn61 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* Bergman: „Mackay-Einsatz \[OpenCurlyDoubleQuote], spheres:1 *) ma0 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* center *) na0 = {0.415} (* radius *) (* Bergman: spheres:12 *) ma = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0.7841"}, {"0.7013", "0", "0.3507"}, {"0.2167", "0.667", "0.3507"}, { RowBox[{"-", "0.5674"}], "0.4122", "0.3507"}, { RowBox[{"-", "0.5674"}], RowBox[{"-", "0.4122"}], "0.3507"}, {"0.2167", RowBox[{"-", "0.667"}], "0.3507"}, {"0.5674", "0.4122", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.2167"}], "0.667", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.7013"}], "0", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.2167"}], RowBox[{"-", "0.667"}], RowBox[{"-", "0.3507"}]}, {"0.5674", RowBox[{"-", "0.4122"}], RowBox[{"-", "0.3507"}]}, {"0", "0", RowBox[{"-", "0.7841"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) na = {0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415} (* radius *) (* Bergman: 1. shell, spheres:12 *) mb1 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.6882", "0.5", "1.1135"}, { RowBox[{"-", "0.2629"}], "0.809", "1.1135"}, { RowBox[{"-", "0.8507"}], "0", "1.1135"}, { RowBox[{"-", "0.2629"}], RowBox[{"-", "0.809"}], "1.1135"}, {"0.6882", RowBox[{"-", "0.5"}], "1.1135"}, {"1.1135", "0.809", "0.2629"}, { RowBox[{"-", "0.4253"}], "1.309", "0.2629"}, { RowBox[{"-", "1.3764"}], "0", "0.2629"}, { RowBox[{"-", "0.4253"}], RowBox[{"-", "1.309"}], "0.2629"}, {"1.1135", RowBox[{"-", "0.809"}], "0.2629"}, {"1.3764", "0", RowBox[{"-", "0.2629"}]}, {"0.4253", "1.309", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], "0.809", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], RowBox[{"-", "0.809"}], RowBox[{"-", "0.2629"}]}, {"0.4253", RowBox[{"-", "1.309"}], RowBox[{"-", "0.2629"}]}, {"0.8507", "0", RowBox[{"-", "1.1135"}]}, {"0.2629", "0.809", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], "0.5", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], RowBox[{"-", "0.5"}], RowBox[{"-", "1.1135"}]}, {"0.2629", RowBox[{"-", "0.809"}], RowBox[{"-", "1.1135"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nb1 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* radius *) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## distance calculation for z ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## *) z0mb1 = 1.1135 z1mm3 = 1.376382 z2 = (z0mb1 + z1mm3) z2 /= 0.951057 (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Berechnung der neuen Nullpunkte einer Schale des expandierten Clusters ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) ml2Fz2M = MatrixForm[ml2*z2] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Extrahierung der Einzeltripel aus "Matrixform" (neuen \ Nullpunktkoordinaten) Erstellung von Matrizen mit den Nullpunktkoordinaten zur weiteren Berechnung ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) ml2Fz2M[[1, 1]] ml2Fz2M11Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M11Matrix20K = ({ {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819} }) ml2Fz2M11Matrix30K = ({ {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819} }) ml2Fz2M[[1, 2]] ml2Fz2M12Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M12Matrix20K = ({ {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507} }) ml2Fz2M12Matrix30K = ({ {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507} }) ml2Fz2M[[1, 3]] ml2Fz2M13Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M13Matrix20K = ({ {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507} }) ml2Fz2M13Matrix30K = ({ {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507} }) ml2Fz2M[[1, 4]] ml2Fz2M14Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M14Matrix20K = ({ {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507} }) ml2Fz2M14Matrix30K = ({ {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507} }) ml2Fz2M[[1, 5]] ml2Fz2M15Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M15Matrix20K = ({ {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507} }) ml2Fz2M15Matrix30K = ({ {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507} }) ml2Fz2M[[1, 6]] ml2Fz2M16Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M16Matrix20K = ({ {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507} }) ml2Fz2M16Matrix30K = ({ {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507} }) ml2Fz2M[[1, 7]] ml2Fz2M17Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M17Matrix20K = ({ {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507} }) ml2Fz2M17Matrix30K = ({ {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507} }) ml2Fz2M[[1, 8]] ml2Fz2M18Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M18Matrix20K = ({ {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507} }) ml2Fz2M18Matrix30K = ({ {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507} }) ml2Fz2M[[1, 9]] ml2Fz2M19Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M19Matrix20K = ({ {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507} }) ml2Fz2M19Matrix30K = ({ {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507} }) ml2Fz2M[[1, 10]] ml2Fz2M110Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M110Matrix20K = ({ {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507} }) ml2Fz2M110Matrix30K = ({ {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507} }) ml2Fz2M[[1, 11]] ml2Fz2M111Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M111Matrix20K = ({ {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507} }) ml2Fz2M111Matrix30K = ({ {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507} }) ml2Fz2M[[1, 12]] ml2Fz2M112Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]}, {"0", "0", RowBox[{"-", "2.4898819"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M112Matrix20K = ({ {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819} }) ml2Fz2M112Matrix30K = ({ {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819}, {0, 0, -2.4898819} }) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Berechnung der neuen Nullpunkte einer Schale des expandierten Clusters ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mm3Fz2M = MatrixForm[mm3*z2] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Extrahierung der Einzeltripel (neuen Nullpunktkoordinaten) Erstellung von Matrizen mit den Nullpunktkoordinaten zur weiteren Berechnung ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mm3Fz2M[[1, 22]] mm3Fz2M122Matrix12K = ({ {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017} }) mm3Fz2M122Matrix20K = ({ {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017} }) mm3Fz2M122Matrix30K = ({ {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017} }) mm3Fz2M[[1, 23]] mm3Fz2M123Matrix12K = ({ {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017} }) mm3Fz2M123Matrix20K = ({ {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017} }) mm3Fz2M123Matrix30K = ({ {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017} }) mm3Fz2M[[1, 24]] mm3Fz2M124Matrix12K = ({ {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017} }) mm3Fz2M124Matrix20K = ({ {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017} }) mm3Fz2M124Matrix30K = ({ {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017} }) mm3Fz2M[[1, 25]] mm3Fz2M125Matrix12K = ({ {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017} }) mm3Fz2M125Matrix20K = ({ {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017} }) mm3Fz2M125Matrix30K = ({ {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017} }) mm3Fz2M[[1, 26]] mm3Fz2M126Matrix12K = ({ {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389} }) mm3Fz2M126Matrix20K = ({ {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389} }) mm3Fz2M126Matrix30K = ({ {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389} }) mm3Fz2M[[1, 27]] mm3Fz2M127Matrix12K = ({ {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389} }) mm3Fz2M127Matrix20K = ({ {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389} }) mm3Fz2M127Matrix30K = ({ {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389} }) mm3Fz2M[[1, 28]] mm3Fz2M128Matrix12K = ({ {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389} }) mm3Fz2M128Matrix20K = ({ {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389} }) mm3Fz2M128Matrix30K = ({ {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389} }) mm3Fz2M[[1, 29]] mm3Fz2M129Matrix12K = ({ {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389} }) mm3Fz2M129Matrix20K = ({ {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389} }) mm3Fz2M129Matrix30K = ({ {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389} }) mm3Fz2M[[1, 30]] mm3Fz2M130Matrix12K = ({ {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389} }) mm3Fz2M130Matrix20K = ({ {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389} }) mm3Fz2M130Matrix30K = ({ {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389} }) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Berechnung der neuen Nullpunkte einer Schale des expandierten Clusters ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mn61Fz2M = MatrixForm[mn61*z2] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Extrahierung der Einzeltripel (neuen Nullpunktkoordinaten) Erstellung von Matrizen mit den Nullpunktkoordinaten zur weiteren Berechnung ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mn61Fz2M[[1, 1]] mn61Fz2M11Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"}, {"2.915202", "2.118019", "4.716896"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M11Matrix20K = ({ {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896} }) mn61Fz2M11Matrix30K = ({ {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896}, {2.915202, 2.118019, 4.716896} }) mn61Fz2M[[1, 2]] mn61Fz2M12Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"}, { RowBox[{"-", "1.11350"}], "3.427026", "4.716896"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M12Matrix20K = ({ {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896} }) mn61Fz2M12Matrix30K = ({ {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896}, {-1.11350, 3.427026, 4.716896} }) mn61Fz2M[[1, 3]] mn61Fz2M13Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"}, { RowBox[{"-", "3.603389"}], "0", "4.716896"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M13Matrix20K = ({ {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896} }) mn61Fz2M13Matrix30K = ({ {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896}, {-3.603389, 0, 4.716896} }) mn61Fz2M[[1, 4]] mn61Fz2M14Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"}, { RowBox[{"-", "1.113507"}], RowBox[{"-", "3.4270268"}], "4.716896"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M14Matrix20K = ({ {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896} }) mn61Fz2M14Matrix30K = ({ {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896}, {-1.113507, -3.4270268, 4.716896} }) mn61Fz2M[[1, 5]] mn61Fz2M15Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"}, {"2.915202", RowBox[{"-", "2.118019"}], "4.716896"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M15Matrix20K = ({ {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896} }) mn61Fz2M15Matrix30K = ({ {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896}, {2.915202, -2.118019, 4.716896} }) mn61Fz2M[[1, 6]] mn61Fz2M16Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"}, {"4.716899", "3.4270268", "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M16Matrix20K = ({ {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507} }) mn61Fz2M16Matrix30K = ({ {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507}, {4.716899, 3.4270268, 1.113507} }) mn61Fz2M[[1, 7]] mn61Fz2M17Matrix12K = \!\(\* TagBox[ TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"}, { RowBox[{"-", "1.8016947"}], "5.5450459", "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M17Matrix20K = ({ {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507} }) mn61Fz2M17Matrix30K = ({ {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507}, {-1.8016947, 5.5450459, 1.113507} }) mn61Fz2M[[1, 8]] mn61Fz2M18Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"}, { RowBox[{"-", "5.83040698"}], "0", "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M18Matrix20K = ({ {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507} }) mn61Fz2M18Matrix30K = ({ {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507}, {-5.83040698, 0, 1.113507} }) mn61Fz2M[[1, 9]] mn61Fz2M19Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"}, { RowBox[{"-", "1.8016947"}], RowBox[{"-", "5.5450459"}], "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M19Matrix20K = ({ {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507} }) mn61Fz2M19Matrix30K = ({ {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507}, {-1.8016947, -5.5450459, 1.113507} }) mn61Fz2M[[1, 10]] mn61Fz2M110Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"}, {"4.716899", RowBox[{"-", "3.4270268"}], "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M110Matrix20K = ({ {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507} }) mn61Fz2M110Matrix30K = ({ {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507}, {4.716899, -3.4270268, 1.113507} }) mn61Fz2M[[1, 11]] mn61Fz2M111Matrix12K = ({ {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507} }) mn61Fz2M111Matrix20K = ({ {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507} }) mn61Fz2M111Matrix30K = ({ {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507}, {5.83040698, 0, -1.113507} }) mn61Fz2M[[1, 12]] mn61Fz2M112Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]}, {"1.8016947", "5.5450459", RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M112Matrix20K = ({ {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507} }) mn61Fz2M112Matrix30K = ({ {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507}, {1.8016947, 5.5450459, -1.113507} }) mn61Fz2M[[1, 13]] mn61Fz2M113Matrix12K = ({ {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507} }) mn61Fz2M113Matrix20K = ({ {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507} }) mn61Fz2M113Matrix30K = ({ {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507}, {-4.716899, 3.4270268, -1.113507} }) mn61Fz2M[[1, 14]] mn61Fz2M114Matrix12K = ({ {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507} }) mn61Fz2M114Matrix20K = ({ {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507} }) mn61Fz2M114Matrix30K = ({ {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507}, {-4.716899, -3.4270268, -1.113507} }) mn61Fz2M[[1, 15]] mn61Fz2M115Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]}, {"1.8016947", RowBox[{"-", "5.5450459"}], RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M115Matrix20K = ({ {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507} }) mn61Fz2M115Matrix30K = ({ {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507}, {1.8016947, -5.5450459, -1.113507} }) mn61Fz2M[[1, 16]] mn61Fz2M116Matrix12K = ({ {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896} }) mn61Fz2M116Matrix20K = ({ {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896} }) mn61Fz2M116Matrix30K = ({ {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896}, {3.603389, 0, -4.716896} }) mn61Fz2M[[1, 17]] mn61Fz2M117Matrix12K = ({ {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896} }) mn61Fz2M117Matrix20K = ({ {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896} }) mn61Fz2M117Matrix30K = ({ {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896}, {1.113507, 3.4270268, -4.716896} }) mn61Fz2M[[1, 18]] mn61Fz2M118Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]}, { RowBox[{"-", "2.915202"}], "2.118019", RowBox[{"-", "4.716896"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M118Matrix20K = ({ {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896} }) mn61Fz2M118Matrix30K = ({ {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896}, {-2.915202, 2.118019, -4.716896} }) mn61Fz2M[[1, 19]] mn61Fz2M119Matrix12K = ({ {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896} }) mn61Fz2M119Matrix20K = ({ {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896} }) mn61Fz2M119Matrix30K = ({ {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896}, {-2.915202, -2.118019, -4.716896} }) mn61Fz2M[[1, 20]] mn61Fz2M120Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]}, {"1.113507", RowBox[{"-", "3.4270268"}], RowBox[{"-", "4.716896"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mn61Fz2M120Matrix20K = ({ {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896} }) mn61Fz2M120Matrix30K = ({ {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896}, {1.113507, -3.4270268, -4.716896} }) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Berechnung der neuen Nullpunkte einer Schale des expandierten Clusters ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mm3Fz2M = MatrixForm[mm3*z2] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Extrahierung der Einzeltripel (neuen Nullpunktkoordinaten) Erstellung von Matrizen mit den Nullpunktkoordinaten zur weiteren Berechnung ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mm3Fz2M[[1, 1]] \!\(\* TagBox[ RowBox[{"mm3Fz2M11Matrix12K", "=", RowBox[{"(", "", GridBox[{ {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}]}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) \!\(\* TagBox[ RowBox[{"mm3Fz2M11Matrix20K", "=", RowBox[{"(", "", GridBox[{ {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}]}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) \!\(\* TagBox[ RowBox[{"mm3Fz2M11Matrix30K", "=", RowBox[{"(", "", GridBox[{ {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"}, {"2.2270175", "0", "3.603389"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}]}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) mm3Fz2M[[1, 2]] mm3Fz2M12Matrix12K = ({ {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389} }) mm3Fz2M12Matrix20K = ({ {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389} }) mm3Fz2M12Matrix30K = ({ {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389}, {0.6881846, 2.11801907, 3.603389} }) mm3Fz2M[[1, 3]] mm3Fz2M13Matrix12K = ({ {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389} }) mm3Fz2M13Matrix20K = ({ {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389} }) mm3Fz2M13Matrix30K = ({ {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389}, {-1.80169, 1.309007, 3.603389} }) mm3Fz2M[[1, 4]] mm3Fz2M14Matrix12K = ({ {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389} }) mm3Fz2M14Matrix20K = ({ {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389} }) mm3Fz2M14Matrix30K = ({ {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389}, {-1.80169, -1.309007, 3.603389} }) mm3Fz2M[[1, 5]] mm3Fz2M15Matrix12K = ({ {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389} }) mm3Fz2M15Matrix20K = ({ {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389} }) mm3Fz2M15Matrix30K = ({ {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389}, {0.6881846, -2.11801907, 3.603389} }) mm3Fz2M[[1, 6]] mm3Fz2M16Matrix12K = ({ {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017} }) mm3Fz2M16Matrix20K = ({ {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017} }) mm3Fz2M16Matrix30K = ({ {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017}, {2.915202, 2.118019, 2.227017} }) mm3Fz2M[[1, 7]] mm3Fz2M17Matrix12K = ({ {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017} }) mm3Fz2M17Matrix20K = ({ {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017} }) mm3Fz2M17Matrix30K = ({ {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017}, {-1.113507, 3.427026, 2.227017} }) mm3Fz2M[[1, 8]] mm3Fz2M18Matrix12K = ({ {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017} }) mm3Fz2M18Matrix20K = ({ {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017} }) mm3Fz2M18Matrix30K = ({ {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017}, {-3.603389, 0, 2.227017} }) mm3Fz2M[[1, 9]] mm3Fz2M19Matrix12K =({ {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017} }) mm3Fz2M19Matrix20K =({ {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017} }) mm3Fz2M19Matrix30K =({ {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017}, {-1.113507, -3.427026, 2.227017} }) mm3Fz2M[[1, 10]] mm3Fz2M110Matrix12K = ({ {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017} }) mm3Fz2M110Matrix20K = ({ {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017} }) mm3Fz2M110Matrix30K = ({ {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017}, {2.915202, -2.118019, 2.227017} }) mm3Fz2M[[1, 11]] mm3Fz2M111Matrix12K = ({ {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0} }) mm3Fz2M111Matrix20K = ({ {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0} }) mm3Fz2M111Matrix30K = ({ {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0}, {4.028709, 1.309007, 0} }) mm3Fz2M[[1, 12]] mm3Fz2M112Matrix12K = ({ {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0} }) mm3Fz2M112Matrix20K = ({ {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0} }) mm3Fz2M112Matrix30K = ({ {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0}, {2.489879, 3.427026, 0} }) mm3Fz2M[[1, 13]] mm3Fz2M113Matrix12K = ({ {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0} }) mm3Fz2M113Matrix20K = ({ {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0} }) mm3Fz2M113Matrix30K = ({ {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0}, {0, 4.236038, 0} }) mm3Fz2M[[1, 14]] mm3Fz2M114Matrix12K = ({ {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0} }) mm3Fz2M114Matrix20K = ({ {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0} }) mm3Fz2M114Matrix30K = ({ {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0}, {-2.489879, 3.427026, 0} }) mm3Fz2M[[1, 15]] mm3Fz2M115Matrix12K = ({ {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0} }) mm3Fz2M115Matrix20K = ({ {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0} }) mm3Fz2M115Matrix30K = ({ {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0}, {-4.028709, 1.309007, 0} }) mm3Fz2M[[1, 16]] mm3Fz2M116Matrix12K = ({ {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0} }) mm3Fz2M116Matrix20K = ({ {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0} }) mm3Fz2M116Matrix30K = ({ {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0}, {-4.028709, -1.309007, 0} }) mm3Fz2M[[1, 17]] mm3Fz2M117Matrix12K = ({ {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0} }) mm3Fz2M117Matrix20K = ({ {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0} }) mm3Fz2M117Matrix30K = ({ {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0}, {-2.489879, -3.427026, 0} }) mm3Fz2M[[1, 18]] mm3Fz2M118Matrix12K = ({ {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0} }) mm3Fz2M118Matrix20K = ({ {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0} }) mm3Fz2M118Matrix30K = ({ {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0}, {0, -4.236038, 0} }) mm3Fz2M[[1, 19]] mm3Fz2M119Matrix12K = ({ {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0} }) mm3Fz2M119Matrix20K = ({ {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0} }) mm3Fz2M119Matrix30K = ({ {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0}, {2.489879, -3.427026, 0} }) mm3Fz2M[[1, 20]] mm3Fz2M120Matrix12K = ({ {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0} }) mm3Fz2M120Matrix20K = ({ {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0} }) mm3Fz2M120Matrix30K = ({ {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0}, {4.028709, -1.309007, 0} }) mm3Fz2M[[1, 21]] mm3Fz2M121Matrix12K = ({ {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017} }) mm3Fz2M121Matrix20K = ({ {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017} }) mm3Fz2M121Matrix30K = ({ {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017}, {3.603389, 0, -2.227017} }) mm3Fz2M[[1, 22]] mm3Fz2M122Matrix12K = ({ {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017} }) mm3Fz2M122Matrix20K = ({ {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017} }) mm3Fz2M122Matrix30K = ({ {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017}, {1.113507, 3.427026, -2.227017} }) mm3Fz2M[[1, 23]] mm3Fz2M123Matrix12K = ({ {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017} }) mm3Fz2M123Matrix20K = ({ {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017} }) mm3Fz2M123Matrix30K = ({ {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017}, {-2.915202, 2.118019, -2.227017} }) mm3Fz2M[[1, 24]] mm3Fz2M124Matrix12K = ({ {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017} }) mm3Fz2M124Matrix20K = ({ {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017} }) mm3Fz2M124Matrix30K = ({ {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017}, {-2.915202, -2.118019, -2.227017} }) mm3Fz2M[[1, 25]] mm3Fz2M125Matrix12K = ({ {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017} }) mm3Fz2M125Matrix20K = ({ {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017} }) mm3Fz2M125Matrix30K = ({ {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017}, {1.113507, -3.427026, -2.227017} }) mm3Fz2M[[1, 26]] mm3Fz2M126Matrix12K = ({ {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389} }) mm3Fz2M126Matrix20K = ({ {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389} }) mm3Fz2M126Matrix30K = ({ {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389}, {1.80169, 1.309007, -3.603389} }) mm3Fz2M[[1, 27]] mm3Fz2M127Matrix12K = ({ {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389} }) mm3Fz2M127Matrix20K = ({ {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389} }) mm3Fz2M127Matrix30K = ({ {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389}, {-0.6881846, 2.11801907, -3.603389} }) mm3Fz2M[[1, 28]] mm3Fz2M128Matrix12K = ({ {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389} }) mm3Fz2M128Matrix20K = ({ {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389} }) mm3Fz2M128Matrix30K = ({ {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389}, {-2.2270175, 0, -3.603389} }) mm3Fz2M[[1, 29]] mm3Fz2M129Matrix12K = ({ {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389} }) mm3Fz2M129Matrix20K = ({ {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389} }) mm3Fz2M129Matrix30K = ({ {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389}, {-0.6881846, -2.11801907, -3.603389} }) mm3Fz2M[[1, 30]] mm3Fz2M130Matrix12K = ({ {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389} }) mm3Fz2M130Matrix20K = ({ {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389} }) mm3Fz2M130Matrix30K = ({ {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389}, {1.80169, -1.309007, -3.603389} }) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Addition der neuen Nullpunktkoordinaten mit den einzelnen \ Clusterkugeln 12 Cluster in 1. Schale [ml2/nl2] ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) ml2S01mn61Fz2M11 = (ml2) + (ml2Fz2M11Matrix12K) ml2S01mn61Fz2M12 = (ml2) + (ml2Fz2M12Matrix12K) ml2S01mn61Fz2M13 = (ml2) + (ml2Fz2M13Matrix12K) ml2S01mn61Fz2M14 = (ml2) + (ml2Fz2M14Matrix12K) ml2S01mn61Fz2M15 = (ml2) + (ml2Fz2M15Matrix12K) ml2S01mn61Fz2M16 = (ml2) + (ml2Fz2M16Matrix12K) ml2S01mn61Fz2M17 = (ml2) + (ml2Fz2M17Matrix12K) ml2S01mn61Fz2M18 = (ml2) + (ml2Fz2M18Matrix12K) ml2S01mn61Fz2M19 = (ml2) + (ml2Fz2M19Matrix12K) ml2S01mn61Fz2M110 = (ml2) + (ml2Fz2M110Matrix12K) ml2S01mn61Fz2M111 = (ml2) + (ml2Fz2M111Matrix12K) ml2S01mn61Fz2M112 = (ml2) + (ml2Fz2M112Matrix12K) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Addition der neuen Nullpunktkoordinaten mit den einzelnen \ Clusterkugeln 12 Cluster in 2. Schale [mm3/nm3] ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mm3S01mn61Fz2M11 = (mm3) + (ml2Fz2M11Matrix30K) mm3S01mn61Fz2M12 = (mm3) + (ml2Fz2M12Matrix30K) mm3S01mn61Fz2M13 = (mm3) + (ml2Fz2M13Matrix30K) mm3S01mn61Fz2M14 = (mm3) + (ml2Fz2M14Matrix30K) mm3S01mn61Fz2M15 = (mm3) + (ml2Fz2M15Matrix30K) mm3S01mn61Fz2M16 = (mm3) + (ml2Fz2M16Matrix30K) mm3S01mn61Fz2M17 = (mm3) + (ml2Fz2M17Matrix30K) mm3S01mn61Fz2M18 = (mm3) + (ml2Fz2M18Matrix30K) mm3S01mn61Fz2M19 = (mm3) + (ml2Fz2M19Matrix30K) mm3S01mn61Fz2M110 = (mm3) + (ml2Fz2M110Matrix30K) mm3S01mn61Fz2M111 = (mm3) + (ml2Fz2M111Matrix30K) mm3S01mn61Fz2M112 = (mm3) + (ml2Fz2M112Matrix30K) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Addition der neuen Nullpunktkoordinaten mit den einzelnen \ Clusterkugeln 12 Cluster in 1. Schale [ma/na] ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) maS01mn61Fz2M11 = (ma) + (ml2Fz2M11Matrix12K) maS01mn61Fz2M12 = (ma) + (ml2Fz2M12Matrix12K) maS01mn61Fz2M13 = (ma) + (ml2Fz2M13Matrix12K) maS01mn61Fz2M14 = (ma) + (ml2Fz2M14Matrix12K) maS01mn61Fz2M15 = (ma) + (ml2Fz2M15Matrix12K) maS01mn61Fz2M16 = (ma) + (ml2Fz2M16Matrix12K) maS01mn61Fz2M17 = (ma) + (ml2Fz2M17Matrix12K) maS01mn61Fz2M18 = (ma) + (ml2Fz2M18Matrix12K) maS01mn61Fz2M19 = (ma) + (ml2Fz2M19Matrix12K) maS01mn61Fz2M110 = (ma) + (ml2Fz2M110Matrix12K) maS01mn61Fz2M111 = (ma) + (ml2Fz2M111Matrix12K) maS01mn61Fz2M112 = (ma) + (ml2Fz2M112Matrix12K) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Addition der neuen Nullpunktkoordinaten mit den einzelnen \ Clusterkugeln 12 Cluster in 1. Schale [mb1/nb1] ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mb1S01mn61Fz2M11 = (mb1) + (ml2Fz2M11Matrix20K) mb1S01mn61Fz2M12 = (mb1) + (ml2Fz2M12Matrix20K) mb1S01mn61Fz2M13 = (mb1) + (ml2Fz2M13Matrix20K) mb1S01mn61Fz2M14 = (mb1) + (ml2Fz2M14Matrix20K) mb1S01mn61Fz2M15 = (mb1) + (ml2Fz2M15Matrix20K) mb1S01mn61Fz2M16 = (mb1) + (ml2Fz2M16Matrix20K) mb1S01mn61Fz2M17 = (mb1) + (ml2Fz2M17Matrix20K) mb1S01mn61Fz2M18 = (mb1) + (ml2Fz2M18Matrix20K) mb1S01mn61Fz2M19 = (mb1) + (ml2Fz2M19Matrix20K) mb1S01mn61Fz2M110 = (mb1) + (ml2Fz2M110Matrix20K) mb1S01mn61Fz2M111 = (mb1) + (ml2Fz2M111Matrix20K) mb1S01mn61Fz2M112 = (mb1) + (ml2Fz2M112Matrix20K) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Addition der neuen Nullpunktkoordinaten mit den einzelnen \ Clusterkugeln 30 Cluster in 2. Schale [ma/na] ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) maS02mn61Fz2M11 = (ma) + (mm3Fz2M11Matrix12K) maS02mn61Fz2M12 = (ma) + (mm3Fz2M12Matrix12K) maS02mn61Fz2M13 = (ma) + (mm3Fz2M13Matrix12K) maS02mn61Fz2M14 = (ma) + (mm3Fz2M14Matrix12K) maS02mn61Fz2M15 = (ma) + (mm3Fz2M15Matrix12K) maS02mn61Fz2M16 = (ma) + (mm3Fz2M16Matrix12K) maS02mn61Fz2M17 = (ma) + (mm3Fz2M17Matrix12K) maS02mn61Fz2M18 = (ma) + (mm3Fz2M18Matrix12K) maS02mn61Fz2M19 = (ma) + (mm3Fz2M19Matrix12K) maS02mn61Fz2M110 = (ma) + (mm3Fz2M110Matrix12K) maS02mn61Fz2M111 = (ma) + (mm3Fz2M111Matrix12K) maS02mn61Fz2M112 = (ma) + (mm3Fz2M112Matrix12K) maS02mn61Fz2M113 = (ma) + (mm3Fz2M113Matrix12K) maS02mn61Fz2M114 = (ma) + (mm3Fz2M114Matrix12K) maS02mn61Fz2M115 = (ma) + (mm3Fz2M115Matrix12K) maS02mn61Fz2M116 = (ma) + (mm3Fz2M116Matrix12K) maS02mn61Fz2M117 = (ma) + (mm3Fz2M117Matrix12K) maS02mn61Fz2M118 = (ma) + (mm3Fz2M118Matrix12K) maS02mn61Fz2M119 = (ma) + (mm3Fz2M119Matrix12K) maS02mn61Fz2M120 = (ma) + (mm3Fz2M120Matrix12K) maS02mn61Fz2M121 = (ma) + (mm3Fz2M121Matrix12K) maS02mn61Fz2M122 = (ma) + (mm3Fz2M122Matrix12K) maS02mn61Fz2M123 = (ma) + (mm3Fz2M123Matrix12K) maS02mn61Fz2M124 = (ma) + (mm3Fz2M124Matrix12K) maS02mn61Fz2M125 = (ma) + (mm3Fz2M125Matrix12K) maS02mn61Fz2M126 = (ma) + (mm3Fz2M126Matrix12K) maS02mn61Fz2M127 = (ma) + (mm3Fz2M127Matrix12K) maS02mn61Fz2M128 = (ma) + (mm3Fz2M128Matrix12K) maS02mn61Fz2M129 = (ma) + (mm3Fz2M129Matrix12K) maS02mn61Fz2M130 = (ma) + (mm3Fz2M130Matrix12K) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Addition der neuen Nullpunktkoordinaten mit den einzelnen \ Clusterkugeln 30 Cluster in 2. Schale [mb1/nb1] ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mb1S02mn61Fz2M11 = (mb1) + (mm3Fz2M11Matrix20K) mb1S02mn61Fz2M12 = (mb1) + (mm3Fz2M12Matrix20K) mb1S02mn61Fz2M13 = (mb1) + (mm3Fz2M13Matrix20K) mb1S02mn61Fz2M14 = (mb1) + (mm3Fz2M14Matrix20K) mb1S02mn61Fz2M15 = (mb1) + (mm3Fz2M15Matrix20K) mb1S02mn61Fz2M16 = (mb1) + (mm3Fz2M16Matrix20K) mb1S02mn61Fz2M17 = (mb1) + (mm3Fz2M17Matrix20K) mb1S02mn61Fz2M18 = (mb1) + (mm3Fz2M18Matrix20K) mb1S02mn61Fz2M19 = (mb1) + (mm3Fz2M19Matrix20K) mb1S02mn61Fz2M110 = (mb1) + (mm3Fz2M110Matrix20K) mb1S02mn61Fz2M111 = (mb1) + (mm3Fz2M111Matrix20K) mb1S02mn61Fz2M112 = (mb1) + (mm3Fz2M112Matrix20K) mb1S02mn61Fz2M113 = (mb1) + (mm3Fz2M113Matrix20K) mb1S02mn61Fz2M114 = (mb1) + (mm3Fz2M114Matrix20K) mb1S02mn61Fz2M115 = (mb1) + (mm3Fz2M115Matrix20K) mb1S02mn61Fz2M116 = (mb1) + (mm3Fz2M116Matrix20K) mb1S02mn61Fz2M117 = (mb1) + (mm3Fz2M117Matrix20K) mb1S02mn61Fz2M118 = (mb1) + (mm3Fz2M118Matrix20K) mb1S02mn61Fz2M119 = (mb1) + (mm3Fz2M119Matrix20K) mb1S02mn61Fz2M120 = (mb1) + (mm3Fz2M120Matrix20K) mb1S02mn61Fz2M121 = (mb1) + (mm3Fz2M121Matrix20K) mb1S02mn61Fz2M122 = (mb1) + (mm3Fz2M122Matrix20K) mb1S02mn61Fz2M123 = (mb1) + (mm3Fz2M123Matrix20K) mb1S02mn61Fz2M124 = (mb1) + (mm3Fz2M124Matrix20K) mb1S02mn61Fz2M125 = (mb1) + (mm3Fz2M125Matrix20K) mb1S02mn61Fz2M126 = (mb1) + (mm3Fz2M126Matrix20K) mb1S02mn61Fz2M127 = (mb1) + (mm3Fz2M127Matrix20K) mb1S02mn61Fz2M128 = (mb1) + (mm3Fz2M128Matrix20K) mb1S02mn61Fz2M129 = (mb1) + (mm3Fz2M129Matrix20K) mb1S02mn61Fz2M130 = (mb1) + (mm3Fz2M130Matrix20K) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Addition der neuen Nullpunktkoordinaten mit den einzelnen \ Clusterkugeln 20 Cluster in 3. Schale [ml2/nl2] ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) ml2S03mn61Fz2M11 = (ml2) + (mn61Fz2M11Matrix12K) ml2S03mn61Fz2M12 = (ml2) + (mn61Fz2M12Matrix12K) ml2S03mn61Fz2M13 = (ml2) + (mn61Fz2M13Matrix12K) ml2S03mn61Fz2M14 = (ml2) + (mn61Fz2M14Matrix12K) ml2S03mn61Fz2M15 = (ml2) + (mn61Fz2M15Matrix12K) ml2S03mn61Fz2M16 = (ml2) + (mn61Fz2M16Matrix12K) ml2S03mn61Fz2M17 = (ml2) + (mn61Fz2M17Matrix12K) ml2S03mn61Fz2M18 = (ml2) + (mn61Fz2M18Matrix12K) ml2S03mn61Fz2M19 = (ml2) + (mn61Fz2M19Matrix12K) ml2S03mn61Fz2M110 = (ml2) + (mn61Fz2M110Matrix12K) ml2S03mn61Fz2M111 = (ml2) + (mn61Fz2M111Matrix12K) ml2S03mn61Fz2M112 = (ml2) + (mn61Fz2M112Matrix12K) ml2S03mn61Fz2M113 = (ml2) + (mn61Fz2M113Matrix12K) ml2S03mn61Fz2M114 = (ml2) + (mn61Fz2M114Matrix12K) ml2S03mn61Fz2M115 = (ml2) + (mn61Fz2M115Matrix12K) ml2S03mn61Fz2M116 = (ml2) + (mn61Fz2M116Matrix12K) ml2S03mn61Fz2M117 = (ml2) + (mn61Fz2M117Matrix12K) ml2S03mn61Fz2M118 = (ml2) + (mn61Fz2M118Matrix12K) ml2S03mn61Fz2M119 = (ml2) + (mn61Fz2M119Matrix12K) ml2S03mn61Fz2M120 = (ml2) + (mn61Fz2M120Matrix12K) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Addition der neuen Nullpunktkoordinaten mit den einzelnen \ Clusterkugeln 20 Cluster in 3. Schale [mm3/nm3] ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) mm3S03mn61Fz2M11 = (mm3) + (mn61Fz2M11Matrix30K) mm3S03mn61Fz2M12 = (mm3) + (mn61Fz2M12Matrix30K) mm3S03mn61Fz2M13 = (mm3) + (mn61Fz2M13Matrix30K) mm3S03mn61Fz2M14 = (mm3) + (mn61Fz2M14Matrix30K) mm3S03mn61Fz2M15 = (mm3) + (mn61Fz2M15Matrix30K) mm3S03mn61Fz2M16 = (mm3) + (mn61Fz2M16Matrix30K) mm3S03mn61Fz2M17 = (mm3) + (mn61Fz2M17Matrix30K) mm3S03mn61Fz2M18 = (mm3) + (mn61Fz2M18Matrix30K) mm3S03mn61Fz2M19 = (mm3) + (mn61Fz2M19Matrix30K) mm3S03mn61Fz2M110 = (mm3) + (mn61Fz2M110Matrix30K) mm3S03mn61Fz2M111 = (mm3) + (mn61Fz2M111Matrix30K) mm3S03mn61Fz2M112 = (mm3) + (mn61Fz2M112Matrix30K) mm3S03mn61Fz2M113 = (mm3) + (mn61Fz2M113Matrix30K) mm3S03mn61Fz2M114 = (mm3) + (mn61Fz2M114Matrix30K) mm3S03mn61Fz2M115 = (mm3) + (mn61Fz2M115Matrix30K) mm3S03mn61Fz2M116 = (mm3) + (mn61Fz2M116Matrix30K) mm3S03mn61Fz2M117 = (mm3) + (mn61Fz2M117Matrix30K) mm3S03mn61Fz2M118 = (mm3) + (mn61Fz2M118Matrix30K) mm3S03mn61Fz2M119 = (mm3) + (mn61Fz2M119Matrix30K) mm3S03mn61Fz2M120 = (mm3) + (mn61Fz2M120Matrix30K) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## 3D-Darstellung 2.2.Construction Principle of the Clusters of the 2nd Generation ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## *) Graphics3D[{Blue, Sphere[ml20, nl20], Green, Sphere[ml2, nl2], Red, Sphere[mm3, nm3], Yellow, Sphere[mn61, nn61]}] Graphics3D[{Blue, Sphere[{ml20}, nl20], Green, Sphere[{ml2*z2}, nl2], Red, Sphere[{mm3*z2}, nm3], Yellow, Sphere[{mn61*z2}, nn61]}] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Step by Step Growth of a Cluster BMBM ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## *) Graphics3D[{ (* Bergman-Baustein *) (* 1. Schale Blue (ma/mb1)(Pink/Blue)*) Pink, Sphere[ma, na], Blue, Sphere[mb1, nb1] }] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Step by Step Growth of a Cluster BMBM ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## *) Graphics3D[{ (*Bergman-Baustein (ma/mb1) (Pink/Blue*) (* 1. Schale Blue *) Pink, Sphere[ma, na], Blue, Sphere[mb1, nb1], (*Mckay-Baustein (ml2/mm3)(Cyan/Green)*) (* 2. Schale Green *) Cyan, Sphere[ml2S01mn61Fz2M11, nl2], Cyan, Sphere[ml2S01mn61Fz2M12, nl2], Cyan, Sphere[ml2S01mn61Fz2M13, nl2], Cyan, Sphere[ml2S01mn61Fz2M14, nl2], Cyan, Sphere[ml2S01mn61Fz2M15, nl2], Cyan, Sphere[ml2S01mn61Fz2M16, nl2], Cyan, Sphere[ml2S01mn61Fz2M17, nl2], Cyan, Sphere[ml2S01mn61Fz2M18, nl2], Cyan, Sphere[ml2S01mn61Fz2M19, nl2], Cyan, Sphere[ml2S01mn61Fz2M110, nl2], Cyan, Sphere[ml2S01mn61Fz2M111, nl2], Cyan, Sphere[ml2S01mn61Fz2M112, nl2], Green, Sphere[mm3S01mn61Fz2M11, nm3], Green, Sphere[mm3S01mn61Fz2M12, nm3], Green, Sphere[mm3S01mn61Fz2M13, nm3], Green, Sphere[mm3S01mn61Fz2M14, nm3], Green, Sphere[mm3S01mn61Fz2M15, nm3], Green, Sphere[mm3S01mn61Fz2M16, nm3], Green, Sphere[mm3S01mn61Fz2M17, nm3], Green, Sphere[mm3S01mn61Fz2M18, nm3], Green, Sphere[mm3S01mn61Fz2M19, nm3], Green, Sphere[mm3S01mn61Fz2M110, nm3], Green, Sphere[mm3S01mn61Fz2M111, nm3], Green, Sphere[mm3S01mn61Fz2M112, nm3] }] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Step by Step Growth of a Cluster BMBM ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## *) Graphics3D[{ (*Bergman-Baustein (ma/mb1) (Pink/Blue*) (* 1. Schale Blue (ma/mb1)(Pink/Blue)*) Pink, Sphere[ma, na], Blue, Sphere[mb1, nb1], (*Mckay-Baustein (ml2/mm3)(Cyan/Green)*) (* 2. Schale Green (ml2/mm3)(Cyan/Green)*) Cyan, Sphere[ml2S01mn61Fz2M11, nl2], Cyan, Sphere[ml2S01mn61Fz2M12, nl2], Cyan, Sphere[ml2S01mn61Fz2M13, nl2], Cyan, Sphere[ml2S01mn61Fz2M14, nl2], Cyan, Sphere[ml2S01mn61Fz2M15, nl2], Cyan, Sphere[ml2S01mn61Fz2M16, nl2], Cyan, Sphere[ml2S01mn61Fz2M17, nl2], Cyan, Sphere[ml2S01mn61Fz2M18, nl2], Cyan, Sphere[ml2S01mn61Fz2M19, nl2], Cyan, Sphere[ml2S01mn61Fz2M110, nl2], Cyan, Sphere[ml2S01mn61Fz2M111, nl2], Cyan, Sphere[ml2S01mn61Fz2M112, nl2], Green, Sphere[mm3S01mn61Fz2M11, nm3], Green, Sphere[mm3S01mn61Fz2M12, nm3], Green, Sphere[mm3S01mn61Fz2M13, nm3], Green, Sphere[mm3S01mn61Fz2M14, nm3], Green, Sphere[mm3S01mn61Fz2M15, nm3], Green, Sphere[mm3S01mn61Fz2M16, nm3], Green, Sphere[mm3S01mn61Fz2M17, nm3], Green, Sphere[mm3S01mn61Fz2M18, nm3], Green, Sphere[mm3S01mn61Fz2M19, nm3], Green, Sphere[mm3S01mn61Fz2M110, nm3], Green, Sphere[mm3S01mn61Fz2M111, nm3], Green, Sphere[mm3S01mn61Fz2M112, nm3], (*Bergman-Baustein *) (* 3. Schale Red (ma/mb1)(Pink/Red)*) Pink, Sphere[maS02mn61Fz2M11, na], Pink, Sphere[maS02mn61Fz2M12, na], Pink, Sphere[maS02mn61Fz2M13, na], Pink, Sphere[maS02mn61Fz2M14, na], Pink, Sphere[maS02mn61Fz2M15, na], Pink, Sphere[maS02mn61Fz2M16, na], Pink, Sphere[maS02mn61Fz2M17, na], Pink, Sphere[maS02mn61Fz2M18, na], Pink, Sphere[maS02mn61Fz2M19, na], Pink, Sphere[maS02mn61Fz2M110, na], Pink, Sphere[maS02mn61Fz2M111, na], Pink, Sphere[maS02mn61Fz2M112, na], Pink, Sphere[maS02mn61Fz2M113, na], Pink, Sphere[maS02mn61Fz2M114, na], Pink, Sphere[maS02mn61Fz2M115, na], Pink, Sphere[maS02mn61Fz2M116, na], Pink, Sphere[maS02mn61Fz2M117, na], Pink, Sphere[maS02mn61Fz2M118, na], Pink, Sphere[maS02mn61Fz2M119, na], Pink, Sphere[maS02mn61Fz2M120, na], Pink, Sphere[maS02mn61Fz2M121, na], Pink, Sphere[maS02mn61Fz2M122, na], Pink, Sphere[maS02mn61Fz2M123, na], Pink, Sphere[maS02mn61Fz2M124, na], Pink, Sphere[maS02mn61Fz2M125, na], Pink, Sphere[maS02mn61Fz2M126, na], Pink, Sphere[maS02mn61Fz2M127, na], Pink, Sphere[maS02mn61Fz2M128, na], Pink, Sphere[maS02mn61Fz2M129, na], Pink, Sphere[maS02mn61Fz2M130, na], Red, Sphere[mb1S02mn61Fz2M11, nb1], Red, Sphere[mb1S02mn61Fz2M12, nb1], Red, Sphere[mb1S02mn61Fz2M13, nb1], Red, Sphere[mb1S02mn61Fz2M14, nb1], Red, Sphere[mb1S02mn61Fz2M15, nb1], Red, Sphere[mb1S02mn61Fz2M16, nb1], Red, Sphere[mb1S02mn61Fz2M17, nb1], Red, Sphere[mb1S02mn61Fz2M18, nb1], Red, Sphere[mb1S02mn61Fz2M19, nb1], Red, Sphere[mb1S02mn61Fz2M110, nb1], Red, Sphere[mb1S02mn61Fz2M111, nb1], Red, Sphere[mb1S02mn61Fz2M112, nb1], Red, Sphere[mb1S02mn61Fz2M113, nb1], Red, Sphere[mb1S02mn61Fz2M114, nb1], Red, Sphere[mb1S02mn61Fz2M115, nb1], Red, Sphere[mb1S02mn61Fz2M116, nb1], Red, Sphere[mb1S02mn61Fz2M117, nb1], Red, Sphere[mb1S02mn61Fz2M118, nb1], Red, Sphere[mb1S02mn61Fz2M119, nb1], Red, Sphere[mb1S02mn61Fz2M120, nb1], Red, Sphere[mb1S02mn61Fz2M121, nb1], Red, Sphere[mb1S02mn61Fz2M122, nb1], Red, Sphere[mb1S02mn61Fz2M123, nb1], Red, Sphere[mb1S02mn61Fz2M124, nb1], Red, Sphere[mb1S02mn61Fz2M125, nb1], Red, Sphere[mb1S02mn61Fz2M126, nb1], Red, Sphere[mb1S02mn61Fz2M127, nb1], Red, Sphere[mb1S02mn61Fz2M128, nb1], Red, Sphere[mb1S02mn61Fz2M129, nb1], Red, Sphere[mb1S02mn61Fz2M130, nb1] }] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Step by Step Growth of a Cluster BMBM ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## *) Graphics3D[{ (*Bergman-Baustein *) (* 1. Schale Blue (ma/mb1) (Pink/Blue) *) Pink, Sphere[ma, na], Blue, Sphere[mb1, nb1], (*Mckay-Baustein *) (* 2. Schale Green (ml2/mm3)(Cyan/Green)*) Cyan, Sphere[ml2S01mn61Fz2M11, nl2], Cyan, Sphere[ml2S01mn61Fz2M12, nl2], Cyan, Sphere[ml2S01mn61Fz2M13, nl2], Cyan, Sphere[ml2S01mn61Fz2M14, nl2], Cyan, Sphere[ml2S01mn61Fz2M15, nl2], Cyan, Sphere[ml2S01mn61Fz2M16, nl2], Cyan, Sphere[ml2S01mn61Fz2M17, nl2], Cyan, Sphere[ml2S01mn61Fz2M18, nl2], Cyan, Sphere[ml2S01mn61Fz2M19, nl2], Cyan, Sphere[ml2S01mn61Fz2M110, nl2], Cyan, Sphere[ml2S01mn61Fz2M111, nl2], Cyan, Sphere[ml2S01mn61Fz2M112, nl2], Green, Sphere[mm3S01mn61Fz2M11, nm3], Green, Sphere[mm3S01mn61Fz2M12, nm3], Green, Sphere[mm3S01mn61Fz2M13, nm3], Green, Sphere[mm3S01mn61Fz2M14, nm3], Green, Sphere[mm3S01mn61Fz2M15, nm3], Green, Sphere[mm3S01mn61Fz2M16, nm3], Green, Sphere[mm3S01mn61Fz2M17, nm3], Green, Sphere[mm3S01mn61Fz2M18, nm3], Green, Sphere[mm3S01mn61Fz2M19, nm3], Green, Sphere[mm3S01mn61Fz2M110, nm3], Green, Sphere[mm3S01mn61Fz2M111, nm3], Green, Sphere[mm3S01mn61Fz2M112, nm3], (*Bergman-Baustein *) (* 3. Schale Red (ma/mb1)(Pink/Red)*) Pink, Sphere[maS02mn61Fz2M11, na], Pink, Sphere[maS02mn61Fz2M12, na], Pink, Sphere[maS02mn61Fz2M13, na], Pink, Sphere[maS02mn61Fz2M14, na], Pink, Sphere[maS02mn61Fz2M15, na], Pink, Sphere[maS02mn61Fz2M16, na], Pink, Sphere[maS02mn61Fz2M17, na], Pink, Sphere[maS02mn61Fz2M18, na], Pink, Sphere[maS02mn61Fz2M19, na], Pink, Sphere[maS02mn61Fz2M110, na], Pink, Sphere[maS02mn61Fz2M111, na], Pink, Sphere[maS02mn61Fz2M112, na], Pink, Sphere[maS02mn61Fz2M113, na], Pink, Sphere[maS02mn61Fz2M114, na], Pink, Sphere[maS02mn61Fz2M115, na], Pink, Sphere[maS02mn61Fz2M116, na], Pink, Sphere[maS02mn61Fz2M117, na], Pink, Sphere[maS02mn61Fz2M118, na], Pink, Sphere[maS02mn61Fz2M119, na], Pink, Sphere[maS02mn61Fz2M120, na], Pink, Sphere[maS02mn61Fz2M121, na], Pink, Sphere[maS02mn61Fz2M122, na], Pink, Sphere[maS02mn61Fz2M123, na], Pink, Sphere[maS02mn61Fz2M124, na], Pink, Sphere[maS02mn61Fz2M125, na], Pink, Sphere[maS02mn61Fz2M126, na], Pink, Sphere[maS02mn61Fz2M127, na], Pink, Sphere[maS02mn61Fz2M128, na], Pink, Sphere[maS02mn61Fz2M129, na], Pink, Sphere[maS02mn61Fz2M130, na], Red, Sphere[mb1S02mn61Fz2M11, nb1], Red, Sphere[mb1S02mn61Fz2M12, nb1], Red, Sphere[mb1S02mn61Fz2M13, nb1], Red, Sphere[mb1S02mn61Fz2M14, nb1], Red, Sphere[mb1S02mn61Fz2M15, nb1], Red, Sphere[mb1S02mn61Fz2M16, nb1], Red, Sphere[mb1S02mn61Fz2M17, nb1], Red, Sphere[mb1S02mn61Fz2M18, nb1], Red, Sphere[mb1S02mn61Fz2M19, nb1], Red, Sphere[mb1S02mn61Fz2M110, nb1], Red, Sphere[mb1S02mn61Fz2M111, nb1], Red, Sphere[mb1S02mn61Fz2M112, nb1], Red, Sphere[mb1S02mn61Fz2M113, nb1], Red, Sphere[mb1S02mn61Fz2M114, nb1], Red, Sphere[mb1S02mn61Fz2M115, nb1], Red, Sphere[mb1S02mn61Fz2M116, nb1], Red, Sphere[mb1S02mn61Fz2M117, nb1], Red, Sphere[mb1S02mn61Fz2M118, nb1], Red, Sphere[mb1S02mn61Fz2M119, nb1], Red, Sphere[mb1S02mn61Fz2M120, nb1], Red, Sphere[mb1S02mn61Fz2M121, nb1], Red, Sphere[mb1S02mn61Fz2M122, nb1], Red, Sphere[mb1S02mn61Fz2M123, nb1], Red, Sphere[mb1S02mn61Fz2M124, nb1], Red, Sphere[mb1S02mn61Fz2M125, nb1], Red, Sphere[mb1S02mn61Fz2M126, nb1], Red, Sphere[mb1S02mn61Fz2M127, nb1], Red, Sphere[mb1S02mn61Fz2M128, nb1], Red, Sphere[mb1S02mn61Fz2M129, nb1], Red, Sphere[mb1S02mn61Fz2M130, nb1], (*Mckay-Baustein *) (* 4. Schale Yellow (ml2/mm3)(Cyan/Yellow)*) Cyan, Sphere[ml2S03mn61Fz2M11, nl2], Cyan, Sphere[ml2S03mn61Fz2M12, nl2], Cyan, Sphere[ml2S03mn61Fz2M13, nl2], Cyan, Sphere[ml2S03mn61Fz2M14, nl2], Cyan, Sphere[ml2S03mn61Fz2M15, nl2], Cyan, Sphere[ml2S03mn61Fz2M16, nl2], Cyan, Sphere[ml2S03mn61Fz2M17, nl2], Cyan, Sphere[ml2S03mn61Fz2M18, nl2], Cyan, Sphere[ml2S03mn61Fz2M19, nl2], Cyan, Sphere[ml2S03mn61Fz2M110, nl2], Cyan, Sphere[ml2S03mn61Fz2M111, nl2], Cyan, Sphere[ml2S03mn61Fz2M112, nl2], Cyan, Sphere[ml2S03mn61Fz2M113, nl2], Cyan, Sphere[ml2S03mn61Fz2M114, nl2], Cyan, Sphere[ml2S03mn61Fz2M115, nl2], Cyan, Sphere[ml2S03mn61Fz2M116, nl2], Cyan, Sphere[ml2S03mn61Fz2M117, nl2], Cyan, Sphere[ml2S03mn61Fz2M118, nl2], Cyan, Sphere[ml2S03mn61Fz2M119, nl2], Cyan, Sphere[ml2S03mn61Fz2M120, nl2], Yellow, Sphere[mm3S03mn61Fz2M11, nm3], Yellow, Sphere[mm3S03mn61Fz2M12, nm3], Yellow, Sphere[mm3S03mn61Fz2M13, nm3], Yellow, Sphere[mm3S03mn61Fz2M14, nm3], Yellow, Sphere[mm3S03mn61Fz2M15, nm3], Yellow, Sphere[mm3S03mn61Fz2M16, nm3], Yellow, Sphere[mm3S03mn61Fz2M17, nm3], Yellow, Sphere[mm3S03mn61Fz2M18, nm3], Yellow, Sphere[mm3S03mn61Fz2M19, nm3], Yellow, Sphere[mm3S03mn61Fz2M110, nm3], Yellow, Sphere[mm3S03mn61Fz2M111, nm3], Yellow, Sphere[mm3S03mn61Fz2M112, nm3], Yellow, Sphere[mm3S03mn61Fz2M113, nm3], Yellow, Sphere[mm3S03mn61Fz2M114, nm3], Yellow, Sphere[mm3S03mn61Fz2M115, nm3], Yellow, Sphere[mm3S03mn61Fz2M116, nm3], Yellow, Sphere[mm3S03mn61Fz2M117, nm3], Yellow, Sphere[mm3S03mn61Fz2M118, nm3], Yellow, Sphere[mm3S03mn61Fz2M119, nm3], Yellow, Sphere[mm3S03mn61Fz2M120, nm3] }] (* ## ## ## ## A4. CLUSTERS OF THE 3RD GENERATION A4.1 TWO BUILDING BLOCKS WITH A COMMON 5-FOLD SYMMETRY AXIS RED: Rot-Überlagerung der Koinzidenzplätze: siehe \"Switch" - coordinates - ## ## ## ## ## # *) ml20 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* center *) nl20 = {0.5} (* radius *) (* Mackay: 2. shell, spheres:12 *) ml2 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0.951057"}, {"0.850651", "0", "0.425325"}, {"0.262866", "0.809017", "0.425325"}, { RowBox[{"-", "0.688191"}], "0.5", "0.425325"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "0.5"}], "0.425325"}, {"0.262866", RowBox[{"-", "0.809017"}], "0.425325"}, {"0.688191", "0.5", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.262866"}], "0.809017", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.850651"}], "0", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "0.262866"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "0.425325"}]}, {"0.688191", RowBox[{"-", "0.5"}], RowBox[{"-", "0.425325"}]}, {"0", "0", RowBox[{"-", "0.951057"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nl2 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* radius *) (* Mackay: 3. shell, spheres:30 *) mm3 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.850651", "0", "1.376382"}, {"0.262865", "0.809017", "1.376382"}, { RowBox[{"-", "0.688191"}], "0.5", "1.376382"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "0.5"}], "1.376382"}, {"0.262865", RowBox[{"-", "0.809017"}], "1.376382"}, {"1.113516", "0.809017", "0.850651"}, { RowBox[{"-", "0.425325"}], "1.309017", "0.850651"}, { RowBox[{"-", "1.376382"}], "0", "0.850651"}, { RowBox[{"-", "0.425325"}], RowBox[{"-", "1.309017"}], "0.850651"}, {"1.113516", RowBox[{"-", "0.809017"}], "0.850651"}, {"1.538841", "0.5", "0"}, {"0.951056", "1.309017", "0"}, {"0", "1.618034", "0"}, { RowBox[{"-", "0.951056"}], "1.309017", "0"}, { RowBox[{"-", "1.538841"}], "0.5", "0"}, { RowBox[{"-", "1.538841"}], RowBox[{"-", "0.5"}], "0"}, { RowBox[{"-", "0.951056"}], RowBox[{"-", "1.309017"}], "0"}, {"0", RowBox[{"-", "1.618034"}], "0"}, {"0.951056", RowBox[{"-", "1.309017"}], "0"}, {"1.538841", RowBox[{"-", "0.5"}], "0"}, {"1.376382", "0", RowBox[{"-", "0.850651"}]}, {"0.425325", "1.309017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], "0.809017", RowBox[{"-", "0.850651"}]}, { RowBox[{"-", "1.113516"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "0.850651"}]}, {"0.425325", RowBox[{"-", "1.309017"}], RowBox[{"-", "0.850651"}]}, {"0.688191", "0.5", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.262865"}], "0.809017", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.850651"}], "0", RowBox[{"-", "1.376382"}]}, { RowBox[{"-", "0.262865"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "1.376382"}]}, {"0.688191", RowBox[{"-", "0.5"}], RowBox[{"-", "1.376382"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* "Switch" für erisierende Farbüberlagerung auf den Koinzidenzplätzen *) (*nm3T2={0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,\ 0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5} *) (* \ radius *) (*nm3={0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.\ 5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5} (* \ radius *)*) nm3T11 = {0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495} nm3 = nm3T2 = {0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505, 0.505} (* radius *) mn61 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.113516", "0.809017", "1.801707"}, { RowBox[{"-", "0.425325"}], "1.309017", "1.801707"}, { RowBox[{"-", "1.376382"}], "0", "1.801707"}, { RowBox[{"-", "0.425325"}], RowBox[{"-", "1.309017"}], "1.801707"}, {"1.113516", RowBox[{"-", "0.809017"}], "1.801707"}, {"1.801708", "1.309017", "0.425325"}, { RowBox[{"-", "0.688191"}], "2.118034", "0.425325"}, { RowBox[{"-", "2.227033"}], "0", "0.425325"}, { RowBox[{"-", "0.688191"}], RowBox[{"-", "2.118034"}], "0.425325"}, {"1.801708", RowBox[{"-", "1.309017"}], "0.425325"}, {"2.227033", "0", RowBox[{"-", "0.425325"}]}, {"0.688191", "2.118034", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "1.801708"}], "1.309017", RowBox[{"-", "0.425325"}]}, { RowBox[{"-", "1.801708"}], RowBox[{"-", "1.309017"}], RowBox[{"-", "0.425325"}]}, {"0.688191", RowBox[{"-", "2.118034"}], RowBox[{"-", "0.425325"}]}, {"1.376382", "0", RowBox[{"-", "1.801707"}]}, {"0.425325", "1.309017", RowBox[{"-", "1.801707"}]}, { RowBox[{"-", "1.113516"}], "0.809017", RowBox[{"-", "1.801707"}]}, { RowBox[{"-", "1.113516"}], RowBox[{"-", "0.809017"}], RowBox[{"-", "1.801707"}]}, {"0.425325", RowBox[{"-", "1.309017"}], RowBox[{"-", "1.801707"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) nn61 = {0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5} (* Bergman mit „Mackay-Einsatz \[OpenCurlyDoubleQuote], spheres:1 *) ma0 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* center *) na0 = {0.415} (* radius *) (* Bergman: spheres:12 *) ma = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "0.7841"}, {"0.7013", "0", "0.3507"}, {"0.2167", "0.667", "0.3507"}, { RowBox[{"-", "0.5674"}], "0.4122", "0.3507"}, { RowBox[{"-", "0.5674"}], RowBox[{"-", "0.4122"}], "0.3507"}, {"0.2167", RowBox[{"-", "0.667"}], "0.3507"}, {"0.5674", "0.4122", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.2167"}], "0.667", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.7013"}], "0", RowBox[{"-", "0.3507"}]}, { RowBox[{"-", "0.2167"}], RowBox[{"-", "0.667"}], RowBox[{"-", "0.3507"}]}, {"0.5674", RowBox[{"-", "0.4122"}], RowBox[{"-", "0.3507"}]}, {"0", "0", RowBox[{"-", "0.7841"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) na = {0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415, 0.415} (* radius *) (* Bergman: 1. shell, spheres:12 *) mb1 = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.6882", "0.5", "1.1135"}, { RowBox[{"-", "0.2629"}], "0.809", "1.1135"}, { RowBox[{"-", "0.8507"}], "0", "1.1135"}, { RowBox[{"-", "0.2629"}], RowBox[{"-", "0.809"}], "1.1135"}, {"0.6882", RowBox[{"-", "0.5"}], "1.1135"}, {"1.1135", "0.809", "0.2629"}, { RowBox[{"-", "0.4253"}], "1.309", "0.2629"}, { RowBox[{"-", "1.3764"}], "0", "0.2629"}, { RowBox[{"-", "0.4253"}], RowBox[{"-", "1.309"}], "0.2629"}, {"1.1135", RowBox[{"-", "0.809"}], "0.2629"}, {"1.3764", "0", RowBox[{"-", "0.2629"}]}, {"0.4253", "1.309", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], "0.809", RowBox[{"-", "0.2629"}]}, { RowBox[{"-", "1.1135"}], RowBox[{"-", "0.809"}], RowBox[{"-", "0.2629"}]}, {"0.4253", RowBox[{"-", "1.309"}], RowBox[{"-", "0.2629"}]}, {"0.8507", "0", RowBox[{"-", "1.1135"}]}, {"0.2629", "0.809", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], "0.5", RowBox[{"-", "1.1135"}]}, { RowBox[{"-", "0.6882"}], RowBox[{"-", "0.5"}], RowBox[{"-", "1.1135"}]}, {"0.2629", RowBox[{"-", "0.809"}], RowBox[{"-", "1.1135"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) (* "T1 Switch" nb1Yellow (0.5):on, nb1Yellow (0.505):off -> erisierende \ Farbüberlagerung auf den Koinzidenzplätzen *) (* nb1Yellow={0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,0.5,\ 0.5,0.5,0.5,0.5,0.5,0.5} *) (* nb1Yellow (0.5):off, nb1Yellow (0.505):on -> rote Farbüberlagerung \ auf den Koinzidenzplätzen *) (* nb1Yello={0.505,0.505,0.505,0.505,0.505,0.505,0.505,0.505,0.505,0.\ 505,0.505,0.505,0.505,0.505,0.505,0.505,0.505,0.505,0.505,0.505} *) \ (* radius *) nb1Yellow = nb1 = nb1T11 = {0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495, 0.495} (* radius *) (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## distance calculation z ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## *) z0mb1 = 1.1135 z1mm3 = 1.376382 z2 = (z0mb1 + z1mm3) z2 /= 0.951057 (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Berechnung der neuen Nullpunkte einer Schale des expandierten Clusters ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) ml2Fz2M = MatrixForm[ml2*z2] (* ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## Extrahierung der Einzeltripel aus Matrixform (neuen \ Nullpunktkoordinaten) Erstellung von Matrizen mit den Nullpunktkoordinaten zur weiteren Berechnung ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## \ ## ## *) ml2Fz2M[[1, 1]] ml2Fz2M11Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"}, {"0", "0", "2.4898819"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M11Matrix20K = ({ {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819} }) ml2Fz2M11Matrix30K = ({ {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819}, {0, 0, 2.4898819} }) ml2Fz2M[[1, 2]] ml2Fz2M12Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"}, {"2.227017", "0", "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M12Matrix20K = ({ {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507} }) ml2Fz2M12Matrix30K = ({ {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507}, {2.227017, 0, 1.113507} }) ml2Fz2M[[1, 3]] ml2Fz2M13Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"}, {"0.68818727", "2.118019", "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M13Matrix20K = ({ {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507} }) ml2Fz2M13Matrix30K = ({ {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507}, {0.68818727, 2.118019, 1.113507} }) ml2Fz2M[[1, 4]] ml2Fz2M14Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"}, { RowBox[{"-", "1.80169"}], "1.309007", "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M14Matrix20K = ({ {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507} }) ml2Fz2M14Matrix30K = ({ {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507}, {-1.80169, 1.309007, 1.113507} }) ml2Fz2M[[1, 5]] ml2Fz2M15Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"}, { RowBox[{"-", "1.80169"}], RowBox[{"-", "1.309007"}], "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M15Matrix20K = ({ {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507} }) ml2Fz2M15Matrix30K = ({ {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507}, {-1.80169, -1.309007, 1.113507} }) ml2Fz2M[[1, 6]] ml2Fz2M16Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"}, {"0.6881872", RowBox[{"-", "2.118019"}], "1.113507"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M16Matrix20K = ({ {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507} }) ml2Fz2M16Matrix30K = ({ {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507}, {0.6881872, -2.118019, 1.113507} }) ml2Fz2M[[1, 7]] ml2Fz2M17Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]}, {"1.80169", "1.309007", RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M17Matrix20K = ({ {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507} }) ml2Fz2M17Matrix30K = ({ {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507}, {1.80169, 1.309007, -1.113507} }) ml2Fz2M[[1, 8]] ml2Fz2M18Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], "2.118019", RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M18Matrix20K = ({ {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507} }) ml2Fz2M18Matrix30K = ({ {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507}, {-0.6881872, 2.118019, -1.113507} }) ml2Fz2M[[1, 9]] ml2Fz2M19Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "2.227017"}], "0", RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M19Matrix20K = ({ {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507} }) ml2Fz2M19Matrix30K = ({ {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507}, {-2.227017, 0, -1.113507} }) ml2Fz2M[[1, 10]] ml2Fz2M110Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]}, { RowBox[{"-", "0.6881872"}], RowBox[{"-", "2.118019"}], RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M110Matrix20K = ({ {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507} }) ml2Fz2M110Matrix30K = ({ {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507}, {-0.6881872, -2.118019, -1.113507} }) ml2Fz2M[[1, 11]] ml2Fz2M111Matrix12K = \!\(\* TagBox[ RowBox[{"(", "", GridBox[{ {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]}, {"1.80169", RowBox[{"-", "1.309007"}], RowBox[{"-", "1.113507"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]\) ml2Fz2M111Matrix20K = ({ {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.309007, -1.113507}, {1.80169, -1.30900