(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     10408,        247]
NotebookOptionsPosition[      9945,        226]
NotebookOutlinePosition[     10324,        242]
CellTagsIndexPosition[     10281,        239]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["accHUAWEI29m.xlsx", "Title",
 CellChangeTimes->{{3.589015845157797*^9, 3.589015847239852*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "9.549832987"}], ",", "\n", "10.14496219", ",", "\n", 
       "0.413309375", ",", "\n", "0.368766406", ",", "\n", "0.51029168", ",", 
       "\n", "0.23183437", ",", "\n", "0.230218747", ",", "\n", "0.304597844",
        ",", "\n", 
       RowBox[{"-", "0.6120114"}], ",", "\n", 
       RowBox[{"-", "0.741094639"}], ",", "\n", "8.345166212", ",", "\n", 
       "7.903559705", ",", "\n", 
       RowBox[{"-", "7.216437671"}], ",", "\n", 
       RowBox[{"-", "7.537670359"}], ",", "\n", "0.359915288", ",", "\n", 
       "0.069260676", ",", "\n", "0.491483606", ",", "\n", "0.042524175", ",",
        "\n", 
       RowBox[{"-", "1.000274975"}], ",", "\n", "1.764999819", ",", "\n", 
       RowBox[{"-", "1.902239264"}], ",", "\n", "2.794601899", ",", "\n", 
       RowBox[{"-", "6.090046342"}], ",", "\n", 
       RowBox[{"-", "6.126144065"}], ",", "\n", 
       RowBox[{"-", "5.179076327"}], ",", "\n", 
       RowBox[{"-", "6.400252322"}], ",", "\n", 
       RowBox[{"-", "2.752668177"}], ",", "\n", 
       RowBox[{"-", "7.35003855"}], ",", "\n", 
       RowBox[{"-", "5.076212053"}]}], "\n", "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"y", "=", 
     RowBox[{"{", 
      RowBox[{"0.378289508", ",", "\n", "0.314528006", ",", "\n", 
       RowBox[{"-", "9.476405892"}], ",", "\n", "10.14421174", ",", "\n", 
       "0.338026062", ",", "\n", "0.48218639", ",", "\n", "7.857285751", ",", 
       "\n", "8.055402663", ",", "\n", 
       RowBox[{"-", "7.073907695"}], ",", "\n", 
       RowBox[{"-", "7.065702822"}], ",", "\n", 
       RowBox[{"-", "1.001714169"}], ",", "\n", 
       RowBox[{"-", "1.011209966"}], ",", "\n", 
       RowBox[{"-", "0.678395609"}], ",", "\n", 
       RowBox[{"-", "0.887222579"}], ",", "\n", "1.368313168", ",", "\n", 
       "1.566944302", ",", "\n", 
       RowBox[{"-", "0.827213993"}], ",", "\n", 
       RowBox[{"-", "0.80292728"}], ",", "\n", "0.562195881", ",", "\n", 
       "0.425372239", ",", "\n", "7.049996055", ",", "\n", "7.320337224", ",",
        "\n", 
       RowBox[{"-", "5.892884847"}], ",", "\n", 
       RowBox[{"-", "2.402660943"}], ",", "\n", 
       RowBox[{"-", "5.641094739"}], ",", "\n", "7.412499399", ",", "\n", 
       "7.192834358", ",", "\n", 
       RowBox[{"-", "2.930268845"}], ",", "\n", "5.316678878"}], "}"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"z", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.999283057"}], ",", "\n", 
       RowBox[{"-", "1.377890861"}], ",", "\n", 
       RowBox[{"-", "1.620758817"}], ",", "\n", 
       RowBox[{"-", "0.910231659"}], ",", "\n", 
       RowBox[{"-", "10.78512368"}], ",", "\n", "8.605530158", ",", "\n", 
       "5.098360324", ",", "\n", 
       RowBox[{"-", "7.093515773"}], ",", "\n", 
       RowBox[{"-", "7.399078028"}], ",", "\n", "5.226674899", ",", "\n", 
       "4.350233726", ",", "\n", 
       RowBox[{"-", "7.159353126"}], ",", "\n", "5.069950551", ",", "\n", 
       RowBox[{"-", "6.845101375"}], ",", "\n", "8.554303268", ",", "\n", 
       RowBox[{"-", "10.70576799"}], ",", "\n", "8.558524589", ",", "\n", 
       RowBox[{"-", "10.71197326"}], ",", "\n", 
       RowBox[{"-", "10.69610339"}], ",", "\n", "8.516811066", ",", "\n", 
       "5.607305745", ",", "\n", 
       RowBox[{"-", "7.461489372"}], ",", "\n", "2.999875978", ",", "\n", 
       RowBox[{"-", "7.914766219"}], ",", "\n", "4.398763131", ",", "\n", 
       "0.119649114", ",", "\n", "5.108520974", ",", "\n", 
       RowBox[{"-", "6.29041613"}], ",", "\n", 
       RowBox[{"-", "7.626808169"}]}], "\n", "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{
       SubscriptBox["A", "i"], "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"z", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "29"}], "}"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.5889358949359612`*^9, 3.5889362887572155`*^9}, {
   3.5889363951327157`*^9, 3.588936452055053*^9}, {3.5889379669876533`*^9, 
   3.5889379689206986`*^9}, 3.588938038836342*^9, {3.588938080173313*^9, 
   3.5889382982794385`*^9}, {3.5889385393329782`*^9, 
   3.5889385462905793`*^9}, {3.5889385876773868`*^9, 3.588938597037389*^9}, {
   3.5889386528697987`*^9, 3.5889389781470623`*^9}, 3.5889390618722773`*^9, {
   3.588939111729887*^9, 3.5889391189214883`*^9}, 3.5889392277003083`*^9, {
   3.588939424743945*^9, 3.588939426116745*^9}, {3.5889395189523625`*^9, 
   3.588939526767964*^9}, 3.697464122044911*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["accGT27m.xlsx", "Title",
 CellChangeTimes->{{3.589015875352597*^9, 3.5890158828857965`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"x", "=", 
    RowBox[{"{", 
     RowBox[{
     "0.686143985", ",", "\n", "0.307313184", ",", "\n", "10.20588166", ",", 
      "\n", 
      RowBox[{"-", "9.235730337"}], ",", "\n", "0.277144172", ",", "\n", 
      "0.652333397", ",", "\n", "2.819218128", ",", "\n", 
      RowBox[{"-", "1.006468208"}], ",", "\n", "10.10396889", ",", "\n", 
      RowBox[{"-", "1.605962585"}], ",", "\n", "0.246794337", ",", "\n", 
      "0.706211903", ",", "\n", "7.728566894", ",", "\n", "2.053861069", ",", 
      "\n", "5.742237957", ",", "\n", "1.604557037", ",", "\n", "1.029262184",
       ",", "\n", "0.041407842", ",", "\n", "2.730162016", ",", "\n", 
      RowBox[{"-", "2.924918942"}], ",", "\n", 
      RowBox[{"-", "2.924918942"}], ",", "\n", "10.18267071", ",", "\n", 
      "3.908533423", ",", "\n", 
      RowBox[{"-", "4.59854197"}], ",", "\n", 
      RowBox[{"-", "1.674747469"}], ",", "\n", "10.04636598", ",", "\n", 
      "7.685992297"}], "\n", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"y", "=", 
    RowBox[{"{", 
     RowBox[{"9.693013241", ",", "\n", 
      RowBox[{"-", "9.555131822"}], ",", "\n", "0.146627372", ",", "\n", 
      "0.149835656", ",", "\n", 
      RowBox[{"-", "0.108499369"}], ",", "\n", "0.026782191", ",", "\n", 
      "0.00984892", ",", "\n", "0.586054944", ",", "\n", "0.089937928", ",", 
      "\n", "0.058272144", ",", "\n", "1.126126555", ",", "\n", 
      RowBox[{"-", "3.139230967"}], ",", "\n", "0.248629672", ",", "\n", 
      RowBox[{"-", "2.927665847"}], ",", "\n", "0.041531765", ",", "\n", 
      "0.951821853", ",", "\n", "1.996550095", ",", "\n", 
      RowBox[{"-", "2.516368282"}], ",", "\n", 
      RowBox[{"-", "8.137597633"}], ",", "\n", 
      RowBox[{"-", "6.411393964"}], ",", "\n", 
      RowBox[{"-", "6.411393964"}], ",", "\n", "0.144573621", ",", "\n", 
      RowBox[{"-", "8.83618239"}], ",", "\n", 
      RowBox[{"-", "8.151722848"}], ",", "\n", "9.466063897", ",", "\n", 
      "1.799748205", ",", "\n", "6.529638446"}], "\n", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"z", "=", 
   RowBox[{"{", 
    RowBox[{
    "0.146230973", ",", "\n", "0.121707371", ",", "\n", "0.293913142", ",", 
     "\n", 
     RowBox[{"-", "0.153514714"}], ",", "\n", "9.72381854", ",", "\n", 
     RowBox[{"-", "9.867581581"}], ",", "\n", "9.453752615", ",", "\n", 
     "9.610065897", ",", "\n", 
     RowBox[{"-", "1.625049867"}], ",", "\n", 
     RowBox[{"-", "9.639987664"}], ",", "\n", "9.709396155", ",", "\n", 
     RowBox[{"-", "9.302827738"}], ",", "\n", "6.471431237", ",", "\n", 
     "9.11283197", ",", "\n", "8.152279472", ",", "\n", 
     RowBox[{"-", "9.754449668"}], ",", "\n", "9.543562547", ",", "\n", 
     "9.358991009", ",", "\n", 
     RowBox[{"-", "4.711984149"}], ",", "\n", "6.335544161", ",", "\n", 
     "6.335544161", ",", "\n", "0.312617999", ",", "\n", 
     RowBox[{"-", "1.558956159"}], ",", "\n", "0.065404421", ",", "\n", 
     "0.036135226", ",", "\n", "0.246702889", ",", "\n", "0.083514447"}], 
    "\n", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     SubscriptBox["A", "i"], "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"z", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "27"}], "}"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.589021364096388*^9, 3.5890213640973883`*^9}, {
  3.589021411374092*^9, 3.5890215972167215`*^9}, {3.5890216698198743`*^9, 
  3.5890216701578937`*^9}, {3.589021730026318*^9, 3.5890217304683433`*^9}, {
  3.589021795748077*^9, 3.589021803415516*^9}, {3.5890219198251734`*^9, 
  3.589021939395293*^9}, {3.5890219797095985`*^9, 3.5890220217010007`*^9}, {
  3.5890252094853315`*^9, 3.5890252239981613`*^9}}]
}, Open  ]]
},
WindowSize->{1350, 633},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification->1.2000000476837158`,
FrontEndVersion->"10.3 for Microsoft Windows (64-bit) (October 9, 2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 100, 1, 122, "Title"],
Cell[682, 25, 4982, 104, 2130, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5701, 134, 98, 1, 122, "Title"],
Cell[5802, 137, 4127, 86, 2015, "Input"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)