怎么在matlab工具箱倒出神经网络系数
怎么在matlab工具箱倒出神经网络系数？任何一种都可以，谢谢大家啦 帮忙顶，等高手。 神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗{:soso_e113:} 同问上一楼的观点。 问题完善一下！或者把代码贴上！涳夢 发表于 2013-7-30 20:31 static/image/common/back.gif
神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗
(* Content-type: application/mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 7.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 145, 7]
NotebookDataLength[ 423629, 11534]
NotebookOptionsPosition[ 412607, 11173]
NotebookOutlinePosition[ 412953, 11188]
CellTagsIndexPosition[ 412910, 11185]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Data", "=",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
"0.304348", ",", "0.552818", ",", "0.330370", ",", "0.025823", ",",
"0.538462", ",", "0.752072", ",", "0.408943", ",", "0.504532", ",",
"0.000000", ",", "0.277091", ",", "0.873239"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.565217", ",", "0.346857", ",", "0.393585", ",", "0.118785", ",",
"0.349650", ",", "0.370761", ",", "0.413008", ",", "0.502518", ",",
"0.000000", ",", "0.220259", ",", "0.464789"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.608696", ",", "0.339186", ",", "0.494300", ",", "0.099338", ",",
"0.321678", ",", "0.375283", ",", "0.000000", ",", "0.505539", ",",
"0.000000", ",", "0.899882", ",", "0.492958"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.521739", ",", "0.334022", ",", "0.355500", ",", "0.025156", ",",
"0.489510", ",", "0.376790", ",", "0.411382", ",", "0.000000", ",",
"0.000000", ",", "0.265607", ",", "0.774648"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.565217", ",", "0.346931", ",", "0.218229", ",", "0.043639", ",",
"0.503497", ",", "0.761115", ",", "0.415447", ",", "0.503525", ",",
"0.000000", ",", "0.642226", ",", "0.380282"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.478261", ",", "0.293154", ",", "0.259368", ",", "0.026688", ",",
"0.587413", ",", "0.755840", ",", "0.409756", ",", "0.498489", ",",
"0.000000", ",", "0.306243", ",", "0.647887"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.347826", ",", "0.359693", ",", "0.614393", ",", "0.081521", ",",
"0.258741", ",", "0.367747", ",", "0.410569", ",", "0.499496", ",",
"0.000000", ",", "0.186985", ",", "0.563380"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.565217", ",", "0.705518", ",", "0.510223", ",", "0.066892", ",",
"0.244755", ",", "0.748304", ",", "0.000000", ",", "0.000000", ",",
"0.243032", ",", "0.175501", ",", "0.295775"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.565217", ",", "0.710460", ",", "0.649730", ",", "0.119897", ",",
"0.468531", ",", "0.000000", ",", "0.636585", ",", "0.000000", ",",
"0.766748", ",", "0.147821", ",", "0.338028"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.565217", ",", "0.697772", ",", "0.171587", ",", "0.028566", ",",
"0.363636", ",", "0.449887", ",", "0.408130", ",", "0.000000", ",",
"0.000000", ",", "0.352768", ",", "0.211268"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.282609", ",", "0.660888", ",", "0.460064", ",", "0.110334", ",",
"0.475524", ",", "0.000000", ",", "0.545528", ",", "0.000000", ",",
"0.551100", ",", "0.238810", ",", "0.690141"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.130435", ",", "0.682724", ",", "0.258697", ",", "0.019299", ",",
"0.510490", ",", "0.420497", ",", "0.535772", ",", "0.000000", ",",
"0.494866", ",", "0.095701", ",", "0.436620"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.347826", ",", "0.697772", ",", "0.108288", ",", "0.022413", ",",
"0.356643", ",", "0.247928", ",", "0.908130", ",", "0.000000", ",",
"0.383374", ",", "0.162839", ",", "0.000000"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.695652", ",", "0.718280", ",", "0.339730", ",", "0.110285", ",",
"0.335664", ",", "0.000000", ",", "0.636585", ",", "0.780463", ",",
"0.000000", ",", "0.335395", ",", "0.267606"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.652174", ",", "0.569711", ",", "0.414297", ",", "0.175398", ",",
"0.167832", ",", "0.000000", ",", "0.544715", ",", "0.000000", ",",
"0.000000", ",", "0.160483", ",", "0.211268"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.000000", ",", "0.395544", ",", "0.027011", ",", "0.048087", ",",
"0.496503", ",", "0.000000", ",", "0.452033", ",", "0.000000", ",",
"0.278729", ",", "0.398115", ",", "0.408451"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.608696", ",", "0.425199", ",", "0.012979", ",", "0.000000", ",",
"0.482517", ",", "0.509420", ",", "0.406504", ",", "0.000000", ",",
"0.000000", ",", "0.157833", ",", "0.478873"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.608696", ",", "0.577973", ",", "0.213587", ",", "0.030889", ",",
"0.370629", ",", "0.000000", ",", "0.452846", ",", "0.000000", ",",
"0.000000", ",", "0.315665", ",", "0.380282"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.565217", ",", "0.572293", ",", "0.655012", ",", "0.281852", ",",
"0.000000", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.492344", ",", "0.211268"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.130435", ",", "0.562039", ",", "0.331662", ",", "0.032643", ",",
"0.314685", ",", "0.414469", ",", "0.275610", ",", "0.000000", ",",
"0.000000", ",", "0.638398", ",", "0.436620"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.717391", ",", "0.736205", ",", "0.267704", ",", "0.036152", ",",
"0.307692", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.392521", ",", "0.478873"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.608696", ",", "0.769475", ",", "0.289283", ",", "0.022882", ",",
"0.321678", ",", "0.000000", ",", "0.274797", ",", "0.333333", ",",
"0.000000", ",", "0.362191", ",", "0.295775"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.913043", ",", "0.170478", ",", "0.000000", ",", "0.012973", ",",
"0.293706", ",", "0.000000", ",", "0.000000", ",", "0.672709", ",",
"0.000000", ",", "0.114252", ",", "0.028169"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.739130", ",", "0.193199", ",", "0.160584", ",", "0.037907", ",",
"0.461538", ",", "0.000000", ",", "0.684553", ",", "0.000000", ",",
"0.000000", ",", "0.401355", ",", "0.436620"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.826087", ",", "0.203969", ",", "0.234619", ",", "0.272240", ",",
"0.265734", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.827444", ",", "0.394366"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"1.000000", ",", "0.199248", ",", "0.295044", ",", "0.041613", ",",
"0.209790", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.676973", ",", "0.295775"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.869565", ",", "0.180363", ",", "0.243056", ",", "0.098349", ",",
"0.265734", ",", "0.503391", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.331272", ",", "0.830986"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.695652", ",", "0.551785", ",", "0.326201", ",", "0.253608", ",",
"0.195804", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.845701", ",", "0.169014"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.652174", ",", "0.572293", ",", "0.111511", ",", "0.035584", ",",
"0.405594", ",", "0.249435", ",", "0.544715", ",", "0.000000", ",",
"0.000000", ",", "0.287102", ",", "0.366197"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.652174", ",", "0.562039", ",", "0.336155", ",", "0.014604", ",",
"0.174825", ",", "0.244160", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.000000", ",", "0.309859"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.565217", ",", "0.577383", ",", "0.155870", ",", "0.030963", ",",
"0.258741", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.050059", ",", "0.352113"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.565217", ",", "0.613234", ",", "0.232956", ",", "0.053870", ",",
"0.230769", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.254122", ",", "0.309859"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.565217", ",", "0.559531", ",", "0.493262", ",", "0.046209", ",",
"0.293706", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.086867", ",", "0.774648"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.608696", ",", "0.569711", ",", "0.111932", ",", "0.013542", ",",
"0.335664", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.168704", ",", "0.659894", ",", "0.422535"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.608696", ",", "0.564547", ",", "0.329844", ",", "0.202036", ",",
"0.510490", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.317138", ",", "0.887324"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.521739", ",", "0.546695", ",", "0.165788", ",", "0.029431", ",",
"0.510490", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.605124", ",", "0.887324"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.521739", ",", "0.564178", ",", "0.400518", ",", "0.045023", ",",
"0.615385", ",", "0.368500", ",", "0.660163", ",", "0.301108", ",",
"0.000000", ",", "0.321260", ",", "0.859155"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.413043", ",", "0.551859", ",", "0.544826", ",", "0.230503", ",",
"0.244755", ",", "0.530520", ",", "0.819512", ",", "0.000000", ",",
"0.000000", ",", "0.595406", ",", "0.239437"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.652174", ",", "0.549277", ",", "0.257578", ",", "0.058688", ",",
"0.356643", ",", "0.000000", ",", "0.817886", ",", "0.000000", ",",
"0.000000", ",", "0.555359", ",", "0.295775"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.695652", ",", "0.549277", ",", "0.572308", ",", "0.082411", ",",
"0.461538", ",", "0.528259", ",", "0.819512", ",", "0.000000", ",",
"0.000000", ",", "0.333333", ",", "0.746479"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.434783", ",", "0.551785", ",", "0.530346", ",", "0.151651", ",",
"0.790210", ",", "0.529013", ",", "0.409756", ",", "0.000000", ",",
"1.000000", ",", "0.149588", ",", "1.000000"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.282609", ",", "0.531278", ",", "0.321428", ",", "0.228625", ",",
"0.594406", ",", "0.530520", ",", "0.410569", ",", "0.000000", ",",
"0.757457", ",", "0.493522", ",", "0.549296"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.347826", ",", "0.705444", ",", "0.109343", ",", "0.072008", ",",
"0.496503", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.752567", ",", "0.224676", ",", "0.366197"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.391304", ",", "0.705444", ",", "0.045908", ",", "0.073120", ",",
"0.622378", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.496333", ",", "0.410188", ",", "0.549296"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.282609", ",", "0.661921", ",", "0.344992", ",", "0.085178", ",",
"0.293706", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.668139", ",", "0.577465"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.478261", ",", "0.661921", ",", "0.644209", ",", "0.077296", ",",
"0.412587", ",", "0.000000", ",", "0.413008", ",", "0.502518", ",",
"0.000000", ",", "0.102179", ",", "0.690141"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.173913", ",", "0.984656", ",", "0.420753", ",", "0.137022", ",",
"0.321678", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.380742", ",", "0.718310"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.500000", ",", "0.984656", ",", "0.288432", ",", "0.047692", ",",
"0.279720", ",", "0.000000", ",", "0.821138", ",", "0.510574", ",",
"0.000000", ",", "0.319494", ",", "0.521127"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.391304", ",", "1.000000", ",", "0.452931", ",", "0.150909", ",",
"0.342657", ",", "0.370761", ",", "0.000000", ",", "0.509567", ",",
"0.000000", ",", "0.031508", ",", "0.929577"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.739130", ",", "0.774639", ",", "0.175120", ",", "0.036498", ",",
"0.391608", ",", "0.739261", ",", "0.408943", ",", "0.553877", ",",
"0.000000", ",", "0.292108", ",", "0.521127"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.586957", ",", "0.982074", ",", "0.158462", ",", "0.063902", ",",
"0.321678", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.329505", ",", "0.338028"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.543478", ",", "0.982074", ",", "0.306872", ",", "0.041934", ",",
"0.426573", ",", "0.380558", ",", "0.414634", ",", "0.506546", ",",
"0.000000", ",", "0.337456", ",", "0.380282"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.739130", ",", "0.997418", ",", "0.170143", ",", "0.058268", ",",
"0.538462", ",", "0.248681", ",", "0.000000", ",", "0.339376", ",",
"0.000000", ",", "0.766784", ",", "0.676056"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.695652", ",", "0.700428", ",", "0.139361", ",", "0.182169", ",",
"0.412587", ",", "0.243406", ",", "0.000000", ",", "0.000000", ",",
"0.136919", ",", "0.676678", ",", "0.591549"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.782609", ",", "0.751623", ",", "0.177646", ",", "0.350845", ",",
"0.412587", ",", "0.502638", ",", "0.000000", ",", "0.000000", ",",
"0.178973", ",", "0.541519", ",", "0.464789"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.652174", ",", "0.751623", ",", "0.355593", ",", "0.039883", ",",
"0.195804", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.064488", ",", "0.295775"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.521739", ",", "0.679847", ",", "0.152375", ",", "0.030048", ",",
"0.363636", ",", "0.000000", ",", "0.271545", ",", "0.000000", ",",
"0.000000", ",", "0.463192", ",", "0.380282"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.434783", ",", "0.728533", ",", "0.186830", ",", "0.129510", ",",
"0.195804", ",", "0.000000", ",", "0.269919", ",", "0.000000", ",",
"0.326650", ",", "0.388398", ",", "0.211268"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.608696", ",", "0.606152", ",", "0.158058", ",", "0.090170", ",",
"1.000000", ",", "0.166541", ",", "0.278049", ",", "0.000000", ",",
"0.236675", ",", "0.262367", ",", "0.253521"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.608696", ",", "0.633742", ",", "0.322697", ",", "0.068597", ",",
"0.328671", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.287042", ",", "0.290931", ",", "0.281690"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.478261", ",", "0.539023", ",", "0.412108", ",", "0.107566", ",",
"0.237762", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.380742", ",", "0.507042"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.608696", ",", "0.551859", ",", "0.176821", ",", "0.076332", ",",
"0.265734", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.429034", ",", "0.239437"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.652174", ",", "0.551859", ",", "0.033549", ",", "0.018459", ",",
"0.573427", ",", "0.000000", ",", "0.553659", ",", "0.000000", ",",
"0.404890", ",", "0.193168", ",", "0.394366"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.695652", ",", "0.595382", ",", "0.277493", ",", "0.100326", ",",
"0.286713", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.448763", ",", "0.338028"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.565217", ",", "0.559531", ",", "0.422669", ",", "0.078111", ",",
"0.286713", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.442285", ",", "0.394366"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.586957", ",", "0.398126", ",", "0.140619", ",", "0.069116", ",",
"0.461538", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.575383", ",", "0.154930"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.695652", ",", "0.398126", ",", "0.019829", ",", "0.041366", ",",
"0.552448", ",", "0.244160", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.515607", ",", "0.591549"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.695652", ",", "0.700354", ",", "0.422467", ",", "0.068128", ",",
"0.209790", ",", "0.000000", ",", "0.000000", ",", "0.500504", ",",
"0.000000", ",", "0.057715", ",", "0.408451"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.521739", ",", "0.193125", ",", "0.210582", ",", "0.110433", ",",
"0.447552", ",", "0.382065", ",", "0.413008", ",", "0.498489", ",",
"0.000000", ",", "0.174617", ",", "0.295775"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.347826", ",", "0.063588", ",", "0.830527", ",", "1.000000", ",",
"0.111888", ",", "0.000000", ",", "0.410569", ",", "0.000000", ",",
"0.000000", ",", "0.667550", ",", "0.661972"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.521739", ",", "0.188109", ",", "1.000000", ",", "0.785485", ",",
"0.342657", ",", "0.373775", ",", "0.406504", ",", "1.000000", ",",
"0.000000", ",", "0.371025", ",", "0.774648"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.695652", ",", "0.188404", ",", "0.088836", ",", "0.059504", ",",
"0.706294", ",", "0.376790", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.570966", ",", "0.746479"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.695652", ",", "0.057465", ",", "0.316316", ",", "0.151280", ",",
"0.615385", ",", "0.371515", ",", "0.412195", ",", "0.500504", ",",
"0.000000", ",", "0.468198", ",", "0.887324"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.608696", ",", "0.011360", ",", "0.295586", ",", "0.113892", ",",
"0.580420", ",", "0.746044", ",", "0.405691", ",", "0.501511", ",",
"0.000000", ",", "0.414016", ",", "0.845070"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.608696", ",", "0.364783", ",", "0.130582", ",", "0.020214", ",",
"0.356643", ",", "0.379804", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.186690", ",", "0.704225"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.608696", ",", "0.193199", ",", "0.112690", ",", "0.036152", ",",
"0.636364", ",", "0.382065", ",", "0.409756", ",", "0.495468", ",",
"0.000000", ",", "0.442874", ",", "0.760563"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.739130", ",", "0.328932", ",", "0.246779", ",", "0.126520", ",",
"0.454545", ",", "0.000000", ",", "0.495122", ",", "0.000000", ",",
"0.414181", ",", "0.686690", ",", "0.436620"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.739130", ",", "0.341767", ",", "0.362090", ",", "0.183528", ",",
"0.573427", ",", "0.413715", ",", "0.454472", ",", "0.661631", ",",
"0.000000", ",", "0.244111", ",", "0.633803"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.695652", ",", "0.187076", ",", "0.279724", ",", "0.006252", ",",
"0.405594", ",", "0.418237", ",", "0.544715", ",", "0.000000", ",",
"0.000000", ",", "1.000000", ",", "0.422535"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"1.000000", ",", "0.333948", ",", "0.064750", ",", "0.065855", ",",
"0.342657", ",", "0.000000", ",", "0.408130", ",", "0.000000", ",",
"0.000000", ",", "0.957892", ",", "0.295775"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.739130", ",", "0.305400", ",", "0.374567", ",", "0.132870", ",",
"0.258741", ",", "0.834966", ",", "0.000000", ",", "0.000000", ",",
"0.272861", ",", "0.266784", ",", "0.309859"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.826087", ",", "0.151962", ",", "0.360280", ",", "0.221632", ",",
"0.447552", ",", "0.584778", ",", "0.457724", ",", "0.000000", ",",
"0.000000", ",", "0.826855", ",", "0.408451"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.565217", ",", "0.047212", ",", "0.233154", ",", "0.121528", ",",
"0.314685", ",", "0.417483", ",", "0.546341", ",", "0.000000", ",",
"0.669438", ",", "0.341873", ",", "0.197183"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.826087", ",", "0.034376", ",", "0.690349", ",", "0.512380", ",",
"0.685315", ",", "1.000000", ",", "1.000000", ",", "0.000000", ",",
"0.556479", ",", "0.412544", ",", "0.732394"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.652174", ",", "0.000000", ",", "0.374417", ",", "0.188075", ",",
"0.706294", ",", "0.498116", ",", "0.729268", ",", "0.000000", ",",
"0.454279", ",", "0.322144", ",", "0.802817"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.782609", ",", "0.180363", ",", "0.237142", ",", "0.054809", ",",
"0.629371", ",", "0.373775", ",", "0.247967", ",", "0.000000", ",",
"0.163814", ",", "0.370436", ",", "0.746479"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.608696", ",", "0.169150", ",", "0.368148", ",", "0.393768", ",",
"0.440559", ",", "0.995479", ",", "0.545528", ",", "0.000000", ",",
"0.565770", ",", "0.333039", ",", "0.380282"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.695652", ",", "0.390454", ",", "0.186683", ",", "0.039439", ",",
"0.482517", ",", "0.497362", ",", "0.415447", ",", "0.508560", ",",
"0.000000", ",", "0.390754", ",", "0.563380"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.739130", ",", "0.428888", ",", "0.082728", ",", "0.070154", ",",
"0.279720", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.694935", ",", "0.323944"}], "}"}]}],
"}"}]}]], "Input",
CellChangeTimes->{3.5779587825701036`*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
"0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
"0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
"0.`", ",", "0.277091`", ",", "0.873239`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.565217`", ",", "0.346857`", ",", "0.393585`", ",", "0.118785`", ",",
"0.34965`", ",", "0.370761`", ",", "0.413008`", ",", "0.502518`", ",",
"0.`", ",", "0.220259`", ",", "0.464789`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
"0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`",
",", "0.899882`", ",", "0.492958`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
"0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`",
",", "0.265607`", ",", "0.774648`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.565217`", ",", "0.346931`", ",", "0.218229`", ",", "0.043639`", ",",
"0.503497`", ",", "0.761115`", ",", "0.415447`", ",", "0.503525`", ",",
"0.`", ",", "0.642226`", ",", "0.380282`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.478261`", ",", "0.293154`", ",", "0.259368`", ",", "0.026688`", ",",
"0.587413`", ",", "0.75584`", ",", "0.409756`", ",", "0.498489`", ",",
"0.`", ",", "0.306243`", ",", "0.647887`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.347826`", ",", "0.359693`", ",", "0.614393`", ",", "0.081521`", ",",
"0.258741`", ",", "0.367747`", ",", "0.410569`", ",", "0.499496`", ",",
"0.`", ",", "0.186985`", ",", "0.56338`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
"0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`",
",", "0.175501`", ",", "0.295775`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
"0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`",
",", "0.147821`", ",", "0.338028`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.565217`", ",", "0.697772`", ",", "0.171587`", ",", "0.028566`", ",",
"0.363636`", ",", "0.449887`", ",", "0.40813`", ",", "0.`", ",", "0.`",
",", "0.352768`", ",", "0.211268`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.282609`", ",", "0.660888`", ",", "0.460064`", ",", "0.110334`", ",",
"0.475524`", ",", "0.`", ",", "0.545528`", ",", "0.`", ",", "0.5511`",
",", "0.23881`", ",", "0.690141`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
"0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
"0.494866`", ",", "0.095701`", ",", "0.43662`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.347826`", ",", "0.697772`", ",", "0.108288`", ",", "0.022413`", ",",
"0.356643`", ",", "0.247928`", ",", "0.90813`", ",", "0.`", ",",
"0.383374`", ",", "0.162839`", ",", "0.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
"0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`",
",", "0.335395`", ",", "0.267606`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
"0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`", ",",
"0.160483`", ",", "0.211268`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
"0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`",
",", "0.398115`", ",", "0.408451`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.425199`", ",", "0.012979`", ",", "0.`", ",",
"0.482517`", ",", "0.50942`", ",", "0.406504`", ",", "0.`", ",", "0.`",
",", "0.157833`", ",", "0.478873`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.577973`", ",", "0.213587`", ",", "0.030889`", ",",
"0.370629`", ",", "0.`", ",", "0.452846`", ",", "0.`", ",", "0.`", ",",
"0.315665`", ",", "0.380282`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.492344`",
",", "0.211268`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.130435`", ",", "0.562039`", ",", "0.331662`", ",", "0.032643`", ",",
"0.314685`", ",", "0.414469`", ",", "0.27561`", ",", "0.`", ",", "0.`",
",", "0.638398`", ",", "0.43662`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
"0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.392521`", ",", "0.478873`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.769475`", ",", "0.289283`", ",", "0.022882`", ",",
"0.321678`", ",", "0.`", ",", "0.274797`", ",", "0.333333`", ",", "0.`",
",", "0.362191`", ",", "0.295775`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
"0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`", ",",
"0.114252`", ",", "0.028169`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
"0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`", ",",
"0.401355`", ",", "0.43662`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",
"0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.827444`", ",", "0.394366`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"1.`", ",", "0.199248`", ",", "0.295044`", ",", "0.041613`", ",",
"0.20979`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.676973`", ",", "0.295775`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.869565`", ",", "0.180363`", ",", "0.243056`", ",", "0.098349`", ",",
"0.265734`", ",", "0.503391`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.331272`", ",", "0.830986`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.695652`", ",", "0.551785`", ",", "0.326201`", ",", "0.253608`", ",",
"0.195804`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.845701`", ",", "0.169014`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.652174`", ",", "0.572293`", ",", "0.111511`", ",", "0.035584`", ",",
"0.405594`", ",", "0.249435`", ",", "0.544715`", ",", "0.`", ",", "0.`",
",", "0.287102`", ",", "0.366197`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.652174`", ",", "0.562039`", ",", "0.336155`", ",", "0.014604`", ",",
"0.174825`", ",", "0.24416`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.`", ",", "0.309859`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.565217`", ",", "0.577383`", ",", "0.15587`", ",", "0.030963`", ",",
"0.258741`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.050059`", ",", "0.352113`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.565217`", ",", "0.613234`", ",", "0.232956`", ",", "0.05387`", ",",
"0.230769`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.254122`", ",", "0.309859`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.565217`", ",", "0.559531`", ",", "0.493262`", ",", "0.046209`", ",",
"0.293706`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.086867`", ",", "0.774648`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.569711`", ",", "0.111932`", ",", "0.013542`", ",",
"0.335664`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.168704`", ",",
"0.659894`", ",", "0.422535`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.564547`", ",", "0.329844`", ",", "0.202036`", ",",
"0.51049`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.317138`", ",", "0.887324`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.521739`", ",", "0.546695`", ",", "0.165788`", ",", "0.029431`", ",",
"0.51049`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.605124`", ",", "0.887324`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.521739`", ",", "0.564178`", ",", "0.400518`", ",", "0.045023`", ",",
"0.615385`", ",", "0.3685`", ",", "0.660163`", ",", "0.301108`", ",",
"0.`", ",", "0.32126`", ",", "0.859155`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
"0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`",
",", "0.595406`", ",", "0.239437`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.652174`", ",", "0.549277`", ",", "0.257578`", ",", "0.058688`", ",",
"0.356643`", ",", "0.`", ",", "0.817886`", ",", "0.`", ",", "0.`", ",",
"0.555359`", ",", "0.295775`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.695652`", ",", "0.549277`", ",", "0.572308`", ",", "0.082411`", ",",
"0.461538`", ",", "0.528259`", ",", "0.819512`", ",", "0.`", ",", "0.`",
",", "0.333333`", ",", "0.746479`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
"0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`",
",", "0.149588`", ",", "1.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.282609`", ",", "0.531278`", ",", "0.321428`", ",", "0.228625`", ",",
"0.594406`", ",", "0.53052`", ",", "0.410569`", ",", "0.`", ",",
"0.757457`", ",", "0.493522`", ",", "0.549296`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
"0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`", ",",
"0.224676`", ",", "0.366197`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.391304`", ",", "0.705444`", ",", "0.045908`", ",", "0.07312`", ",",
"0.622378`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.496333`", ",",
"0.410188`", ",", "0.549296`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.282609`", ",", "0.661921`", ",", "0.344992`", ",", "0.085178`", ",",
"0.293706`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.668139`", ",", "0.577465`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.478261`", ",", "0.661921`", ",", "0.644209`", ",", "0.077296`", ",",
"0.412587`", ",", "0.`", ",", "0.413008`", ",", "0.502518`", ",", "0.`",
",", "0.102179`", ",", "0.690141`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
"0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.380742`", ",", "0.71831`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.5`", ",", "0.984656`", ",", "0.288432`", ",", "0.047692`", ",",
"0.27972`", ",", "0.`", ",", "0.821138`", ",", "0.510574`", ",", "0.`",
",", "0.319494`", ",", "0.521127`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
"0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`",
",", "0.031508`", ",", "0.929577`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.73913`", ",", "0.774639`", ",", "0.17512`", ",", "0.036498`", ",",
"0.391608`", ",", "0.739261`", ",", "0.408943`", ",", "0.553877`", ",",
"0.`", ",", "0.292108`", ",", "0.521127`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.586957`", ",", "0.982074`", ",", "0.158462`", ",", "0.063902`", ",",
"0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.329505`", ",", "0.338028`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.543478`", ",", "0.982074`", ",", "0.306872`", ",", "0.041934`", ",",
"0.426573`", ",", "0.380558`", ",", "0.414634`", ",", "0.506546`", ",",
"0.`", ",", "0.337456`", ",", "0.380282`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.73913`", ",", "0.997418`", ",", "0.170143`", ",", "0.058268`", ",",
"0.538462`", ",", "0.248681`", ",", "0.`", ",", "0.339376`", ",", "0.`",
",", "0.766784`", ",", "0.676056`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.695652`", ",", "0.700428`", ",", "0.139361`", ",", "0.182169`", ",",
"0.412587`", ",", "0.243406`", ",", "0.`", ",", "0.`", ",", "0.136919`",
",", "0.676678`", ",", "0.591549`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
"0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`",
",", "0.541519`", ",", "0.464789`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.652174`", ",", "0.751623`", ",", "0.355593`", ",", "0.039883`", ",",
"0.195804`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.064488`", ",", "0.295775`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.521739`", ",", "0.679847`", ",", "0.152375`", ",", "0.030048`", ",",
"0.363636`", ",", "0.`", ",", "0.271545`", ",", "0.`", ",", "0.`", ",",
"0.463192`", ",", "0.380282`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.434783`", ",", "0.728533`", ",", "0.18683`", ",", "0.12951`", ",",
"0.195804`", ",", "0.`", ",", "0.269919`", ",", "0.`", ",", "0.32665`",
",", "0.388398`", ",", "0.211268`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
"1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`",
",", "0.262367`", ",", "0.253521`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.633742`", ",", "0.322697`", ",", "0.068597`", ",",
"0.328671`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.287042`", ",",
"0.290931`", ",", "0.28169`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.478261`", ",", "0.539023`", ",", "0.412108`", ",", "0.107566`", ",",
"0.237762`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.380742`", ",", "0.507042`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.551859`", ",", "0.176821`", ",", "0.076332`", ",",
"0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.429034`", ",", "0.239437`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.652174`", ",", "0.551859`", ",", "0.033549`", ",", "0.018459`", ",",
"0.573427`", ",", "0.`", ",", "0.553659`", ",", "0.`", ",", "0.40489`",
",", "0.193168`", ",", "0.394366`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.695652`", ",", "0.595382`", ",", "0.277493`", ",", "0.100326`", ",",
"0.286713`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.448763`", ",", "0.338028`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.565217`", ",", "0.559531`", ",", "0.422669`", ",", "0.078111`", ",",
"0.286713`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.442285`", ",", "0.394366`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.586957`", ",", "0.398126`", ",", "0.140619`", ",", "0.069116`", ",",
"0.461538`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.575383`", ",", "0.15493`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.695652`", ",", "0.398126`", ",", "0.019829`", ",", "0.041366`", ",",
"0.552448`", ",", "0.24416`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.515607`", ",", "0.591549`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.695652`", ",", "0.700354`", ",", "0.422467`", ",", "0.068128`", ",",
"0.20979`", ",", "0.`", ",", "0.`", ",", "0.500504`", ",", "0.`", ",",
"0.057715`", ",", "0.408451`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.521739`", ",", "0.193125`", ",", "0.210582`", ",", "0.110433`", ",",
"0.447552`", ",", "0.382065`", ",", "0.413008`", ",", "0.498489`", ",",
"0.`", ",", "0.174617`", ",", "0.295775`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.347826`", ",", "0.063588`", ",", "0.830527`", ",", "1.`", ",",
"0.111888`", ",", "0.`", ",", "0.410569`", ",", "0.`", ",", "0.`", ",",
"0.66755`", ",", "0.661972`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.521739`", ",", "0.188109`", ",", "1.`", ",", "0.785485`", ",",
"0.342657`", ",", "0.373775`", ",", "0.406504`", ",", "1.`", ",", "0.`",
",", "0.371025`", ",", "0.774648`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.695652`", ",", "0.188404`", ",", "0.088836`", ",", "0.059504`", ",",
"0.706294`", ",", "0.37679`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.570966`", ",", "0.746479`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.695652`", ",", "0.057465`", ",", "0.316316`", ",", "0.15128`", ",",
"0.615385`", ",", "0.371515`", ",", "0.412195`", ",", "0.500504`", ",",
"0.`", ",", "0.468198`", ",", "0.887324`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.01136`", ",", "0.295586`", ",", "0.113892`", ",",
"0.58042`", ",", "0.746044`", ",", "0.405691`", ",", "0.501511`", ",",
"0.`", ",", "0.414016`", ",", "0.84507`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.364783`", ",", "0.130582`", ",", "0.020214`", ",",
"0.356643`", ",", "0.379804`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.18669`", ",", "0.704225`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.193199`", ",", "0.11269`", ",", "0.036152`", ",",
"0.636364`", ",", "0.382065`", ",", "0.409756`", ",", "0.495468`", ",",
"0.`", ",", "0.442874`", ",", "0.760563`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.73913`", ",", "0.328932`", ",", "0.246779`", ",", "0.12652`", ",",
"0.454545`", ",", "0.`", ",", "0.495122`", ",", "0.`", ",", "0.414181`",
",", "0.68669`", ",", "0.43662`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.73913`", ",", "0.341767`", ",", "0.36209`", ",", "0.183528`", ",",
"0.573427`", ",", "0.413715`", ",", "0.454472`", ",", "0.661631`", ",",
"0.`", ",", "0.244111`", ",", "0.633803`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.695652`", ",", "0.187076`", ",", "0.279724`", ",", "0.006252`", ",",
"0.405594`", ",", "0.418237`", ",", "0.544715`", ",", "0.`", ",", "0.`",
",", "1.`", ",", "0.422535`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"1.`", ",", "0.333948`", ",", "0.06475`", ",", "0.065855`", ",",
"0.342657`", ",", "0.`", ",", "0.40813`", ",", "0.`", ",", "0.`", ",",
"0.957892`", ",", "0.295775`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.73913`", ",", "0.3054`", ",", "0.374567`", ",", "0.13287`", ",",
"0.258741`", ",", "0.834966`", ",", "0.`", ",", "0.`", ",", "0.272861`",
",", "0.266784`", ",", "0.309859`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.826087`", ",", "0.151962`", ",", "0.36028`", ",", "0.221632`", ",",
"0.447552`", ",", "0.584778`", ",", "0.457724`", ",", "0.`", ",", "0.`",
",", "0.826855`", ",", "0.408451`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.565217`", ",", "0.047212`", ",", "0.233154`", ",", "0.121528`", ",",
"0.314685`", ",", "0.417483`", ",", "0.546341`", ",", "0.`", ",",
"0.669438`", ",", "0.341873`", ",", "0.197183`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.826087`", ",", "0.034376`", ",", "0.690349`", ",", "0.51238`", ",",
"0.685315`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.556479`", ",",
"0.412544`", ",", "0.732394`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.652174`", ",", "0.`", ",", "0.374417`", ",", "0.188075`", ",",
"0.706294`", ",", "0.498116`", ",", "0.729268`", ",", "0.`", ",",
"0.454279`", ",", "0.322144`", ",", "0.802817`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.782609`", ",", "0.180363`", ",", "0.237142`", ",", "0.054809`", ",",
"0.629371`", ",", "0.373775`", ",", "0.247967`", ",", "0.`", ",",
"0.163814`", ",", "0.370436`", ",", "0.746479`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.16915`", ",", "0.368148`", ",", "0.393768`", ",",
"0.440559`", ",", "0.995479`", ",", "0.545528`", ",", "0.`", ",",
"0.56577`", ",", "0.333039`", ",", "0.380282`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.695652`", ",", "0.390454`", ",", "0.186683`", ",", "0.039439`", ",",
"0.482517`", ",", "0.497362`", ",", "0.415447`", ",", "0.50856`", ",",
"0.`", ",", "0.390754`", ",", "0.56338`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.73913`", ",", "0.428888`", ",", "0.082728`", ",", "0.070154`", ",",
"0.27972`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.694935`", ",", "0.323944`"}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{3.57795879182092*^9, 3.5779604974578943`*^9,
3.57801214396875*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Array", "[",
RowBox[{"CM", ",",
RowBox[{"{",
RowBox[{"80", ",", "9"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.577844235859375*^9, 3.577844291953125*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"1", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"1", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"1", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"1", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"1", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"1", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"1", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"1", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"1", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"2", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"2", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"2", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"2", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"2", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"2", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"2", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"2", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"2", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"3", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"3", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"3", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"3", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"3", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"3", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"3", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"3", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"3", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"4", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"4", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"4", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"4", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"4", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"4", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"4", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"4", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"4", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"5", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"5", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"5", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"5", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"5", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"5", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"5", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"5", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"5", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"6", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"6", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"6", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"6", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"6", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"6", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"6", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"6", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"6", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"7", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"7", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"7", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"7", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"7", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"7", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"7", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"7", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"7", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"8", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"8", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"8", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"8", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"8", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"8", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"8", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"8", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"8", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"9", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"9", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"9", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"9", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"9", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"9", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"9", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"9", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"9", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"10", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"10", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"10", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"10", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"10", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"10", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"10", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"10", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"10", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"11", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"11", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"11", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"11", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"11", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"11", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"11", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"11", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"11", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"12", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"12", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"12", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"12", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"12", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"12", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"12", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"12", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"12", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"13", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"13", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"13", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"13", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"13", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"13", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"13", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"13", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"13", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"14", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"14", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"14", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"14", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"14", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"14", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"14", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"14", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"14", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"15", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"15", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"15", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"15", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"15", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"15", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"15", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"15", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"15", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"16", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"16", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"16", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"16", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"16", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"16", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"16", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"16", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"16", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"17", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"17", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"17", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"17", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"17", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"17", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"17", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"17", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"17", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"18", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"18", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"18", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"18", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"18", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"18", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"18", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"18", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"18", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"19", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"19", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"19", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"19", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"19", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"19", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"19", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"19", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"19", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"20", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"20", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"20", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"20", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"20", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"20", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"20", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"20", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"20", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"21", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"21", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"21", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"21", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"21", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"21", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"21", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"21", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"21", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"22", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"22", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"22", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"22", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"22", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"22", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"22", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"22", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"22", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"23", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"23", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"23", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"23", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"23", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"23", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"23", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"23", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"23", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"24", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"24", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"24", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"24", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"24", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"24", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"24", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"24", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"24", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"25", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"25", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"25", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"25", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"25", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"25", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"25", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"25", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"25", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"26", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"26", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"26", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"26", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"26", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"26", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"26", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"26", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"26", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"27", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"27", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"27", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"27", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"27", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"27", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"27", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"27", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"27", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"28", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"28", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"28", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"28", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"28", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"28", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"28", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"28", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"28", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"29", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"29", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"29", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"29", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"29", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"29", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"29", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"29", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"29", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"30", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"30", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"30", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"30", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"30", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"30", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"30", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"30", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"30", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"31", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"31", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"31", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"31", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"31", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"31", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"31", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"31", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"31", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"32", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"32", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"32", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"32", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"32", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"32", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"32", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"32", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"32", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"33", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"33", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"33", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"33", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"33", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"33", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"33", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"33", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"33", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"34", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"34", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"34", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"34", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"34", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"34", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"34", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"34", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"34", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"35", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"35", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"35", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"35", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"35", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"35", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"35", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"35", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"35", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"36", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"36", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"36", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"36", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"36", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"36", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"36", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"36", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"36", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"37", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"37", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"37", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"37", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"37", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"37", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"37", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"37", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"37", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"38", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"38", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"38", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"38", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"38", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"38", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"38", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"38", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"38", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"39", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"39", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"39", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"39", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"39", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"39", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"39", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"39", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"39", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"40", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"40", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"40", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"40", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"40", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"40", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"40", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"40", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"40", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"41", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"41", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"41", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"41", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"41", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"41", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"41", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"41", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"41", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"42", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"42", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"42", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"42", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"42", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"42", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"42", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"42", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"42", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"43", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"43", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"43", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"43", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"43", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"43", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"43", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"43", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"43", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"44", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"44", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"44", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"44", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"44", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"44", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"44", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"44", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"44", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"45", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"45", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"45", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"45", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"45", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"45", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"45", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"45", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"45", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"46", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"46", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"46", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"46", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"46", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"46", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"46", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"46", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"46", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"47", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"47", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"47", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"47", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"47", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"47", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"47", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"47", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"47", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"48", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"48", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"48", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"48", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"48", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"48", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"48", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"48", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"48", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"49", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"49", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"49", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"49", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"49", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"49", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"49", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"49", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"49", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"50", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"50", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"50", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"50", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"50", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"50", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"50", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"50", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"50", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"51", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"51", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"51", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"51", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"51", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"51", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"51", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"51", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"51", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"52", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"52", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"52", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"52", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"52", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"52", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"52", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"52", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"52", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"53", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"53", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"53", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"53", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"53", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"53", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"53", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"53", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"53", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"54", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"54", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"54", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"54", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"54", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"54", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"54", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"54", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"54", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"55", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"55", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"55", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"55", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"55", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"55", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"55", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"55", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"55", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"56", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"56", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"56", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"56", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"56", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"56", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"56", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"56", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"56", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"57", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"57", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"57", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"57", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"57", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"57", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"57", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"57", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"57", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"58", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"58", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"58", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"58", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"58", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"58", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"58", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"58", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"58", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"59", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"59", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"59", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"59", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"59", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"59", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"59", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"59", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"59", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"60", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"60", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"60", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"60", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"60", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"60", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"60", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"60", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"60", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"61", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"61", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"61", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"61", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"61", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"61", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"61", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"61", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"61", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"62", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"62", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"62", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"62", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"62", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"62", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"62", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"62", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"62", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"63", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"63", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"63", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"63", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"63", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"63", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"63", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"63", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"63", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"64", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"64", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"64", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"64", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"64", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"64", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"64", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"64", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"64", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"65", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"65", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"65", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"65", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"65", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"65", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"65", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"65", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"65", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"66", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"66", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"66", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"66", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"66", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"66", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"66", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"66", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"66", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"67", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"67", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"67", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"67", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"67", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"67", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"67", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"67", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"67", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"68", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"68", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"68", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"68", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"68", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"68", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"68", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"68", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"68", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"69", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"69", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"69", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"69", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"69", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"69", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"69", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"69", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"69", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"70", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"70", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"70", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"70", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"70", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"70", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"70", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"70", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"70", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"71", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"71", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"71", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"71", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"71", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"71", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"71", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"71", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"71", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"72", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"72", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"72", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"72", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"72", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"72", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"72", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"72", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"72", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"73", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"73", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"73", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"73", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"73", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"73", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"73", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"73", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"73", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"74", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"74", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"74", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"74", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"74", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"74", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"74", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"74", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"74", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"75", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"75", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"75", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"75", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"75", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"75", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"75", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"75", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"75", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"76", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"76", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"76", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"76", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"76", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"76", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"76", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"76", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"76", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"77", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"77", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"77", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"77", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"77", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"77", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"77", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"77", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"77", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"78", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"78", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"78", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"78", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"78", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"78", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"78", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"78", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"78", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"79", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"79", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"79", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"79", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"79", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"79", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"79", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"79", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"79", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"80", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"80", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"80", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"80", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"80", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"80", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"80", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"80", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"80", ",", "9"}], "]"}]}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{3.577844244140625*^9, 3.57784429425*^9, 3.577847845125*^9,
3.57791322703125*^9, 3.577957088820712*^9, 3.5779605002346992`*^9,
3.578012145828125*^9}]
}, Open ]],
Cell[BoxData[
RowBox[{"For", "[",
RowBox[{
RowBox[{"i", "=", "1"}], ",",
RowBox[{"i", "\", "9"}], ",",
RowBox[{"i", "++"}], ",", "\",
RowBox[{"For", "[",
RowBox[{
RowBox[{"j", "=", "1"}], ",",
RowBox[{"j", "\", "80"}], ",",
RowBox[{"j", "++"}], ",", "\",
RowBox[{
RowBox[{
RowBox[{"CM", "[",
RowBox[{"j", ",", "i"}], "]"}], "=", "0.0"}], ";"}]}],
"\", "]"}]}], "\", "]"}]], "Input",
CellChangeTimes->{{3.5779132504375*^9, 3.577913285203125*^9}}],
Cell[BoxData[
RowBox[{"For", "[",
RowBox[{
RowBox[{"i", "=", "1"}], ",",
RowBox[{"i", "\", "9"}], ",",
RowBox[{"i", "++"}], ",", "\",
RowBox[{
RowBox[{
RowBox[{"CM", "[",
RowBox[{"1", ",", "i"}], "]"}], "=",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}],
"\", "]"}]], "Input",
CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {
3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9,
3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9,
3.57791344209375*^9, 3.5779588070933466`*^9}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"r0", "=", "0.2"}], "\",
RowBox[{"M1", "=", "1"}]}], "Input",
CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {
3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9,
3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {
3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9,
3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {
3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {
3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9,
3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {
3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {
3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9,
3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],
Cell, "Output",
CellChangeTimes->{
3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
3.577960510686717*^9, 3.578012149296875*^9}],
Cell, "Output",
CellChangeTimes->{
3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
3.577960510686717*^9, 3.578012149296875*^9}]
}, Open ]],
Cell[BoxData[
RowBox[{"For", "[",
RowBox[{
RowBox[{"k", "=", "2"}], ",",
RowBox[{"k", "\", "60"}], ",",
RowBox[{"k", "++"}], ",",
RowBox[{"{", "\",
RowBox[{
RowBox[{"rmin", "=", "0.0"}], ";", "\",
RowBox[{"For", "[",
RowBox[{
RowBox[{"j", "=", "1"}], ",",
RowBox[{"j", "\",
RowBox[{"k", "-", "1"}]}], ",",
RowBox[{"j", "++"}], ",",
RowBox[{"{", "\",
RowBox[{
RowBox[{"r1", "=", "0.0"}], ";", "\",
RowBox[{"For", "[",
RowBox[{
RowBox[{"i", "=", "1"}], ",",
RowBox[{"i", "\", "9"}], ",",
RowBox[{"i", "++"}], ",", "\",
RowBox[{
RowBox[{"r1", "+=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"j", ",", "i"}], "]"}], "-",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
RowBox[{"(",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"j", ",", "i"}], "]"}], "-",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],
"\", "]"}], ";", "\",
RowBox[{"r1", "=",
RowBox[{"Sqrt", "[",
RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\",
RowBox[{"If", "[", " ",
RowBox[{
RowBox[{"j", "\", "1"}], ",",
RowBox[{"rmin", "=", "r1"}], ",",
RowBox[{"If", "[",
RowBox[{
RowBox[{"r1", "<", "rmin"}], ",",
RowBox[{"rmin", "=", "r1"}], ",",
RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}],
"\", "}"}]}], "\", "]"}], ";",
"\",
RowBox[{"If", "[",
RowBox[{
RowBox[{"rmin", ">", "r0"}], ",",
RowBox[{"{", "\",
RowBox[{
RowBox[{"M1", "++"}], ";", "\",
RowBox[{"For", "[",
RowBox[{
RowBox[{"i1", "=", "1"}], ",",
RowBox[{"i1", "\", "9"}], ",",
RowBox[{"i1", "++"}], ",", "\",
RowBox[{
RowBox[{
RowBox[{"CM", "[",
RowBox[{"M1", ",", "i1"}], "]"}], "=",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}],
"\", "]"}]}], "\", "}"}], ",",
RowBox[{"i", "=", "i"}]}], "\", "]"}]}],
"\", "}"}]}], "\", "]"}]], "Input",
CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {
3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9,
3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {
3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9,
3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {
3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9,
3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {
3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9,
3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {
3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {
3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9,
3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {
3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9,
3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {
3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9,
3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9,
3.577958821991373*^9}}],
Cell[CellGroupData[{
Cell, "Input",
CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
Cell, "Output",
CellChangeTimes->{
3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {
3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9,
3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {
3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9,
3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9,
3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9,
3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9,
3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9,
3.577960515600726*^9, 3.5780121541875*^9}]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[",
RowBox[{"1", ",", "i"}], "]"}],
RowBox[{"\:5230CM", "[",
RowBox[{"21", ",", "i"}], "]"}],
"\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\
\:51fd\:6570u1\:5230u21"}]], "Input",
CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {
3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9,
3.577960526583145*^9}}],
Cell[BoxData[
RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Xa", "=",
RowBox[{"{",
RowBox[{
"x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7",
",", "x8", ",", "x9"}], "}"}]}]], "Input",
CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
"x8", ",", "x9"}], "}"}]], "Output",
CellChangeTimes->{
3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9,
3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {
3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9,
3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9},
3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {
3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
3.57801215725*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Ca", "=",
RowBox[{"{",
RowBox[{
"c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7",
",", "c8", ",", "c9"}], "}"}]}]], "Input",
CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
"c8", ",", "c9"}], "}"}]], "Output",
CellChangeTimes->{
3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9,
3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {
3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9,
3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9},
3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9,
3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
3.577961904604212*^9}, 3.578012158671875*^9}]
}, Open ]],
Cell[BoxData[
RowBox[{"For", "[",
RowBox[{
RowBox[{"i", "=", "1"}], ",",
RowBox[{"i", "\", "9"}], ",",
RowBox[{"i", "++"}], ",",
RowBox[{
RowBox[{"Ca", "[",
RowBox[{"[", "i", "]"}], "]"}], "=",
RowBox[{"CM", "[",
RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9,
3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9,
3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9,
3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9,
3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9,
3.577961906897415*^9}, 3.578012176296875*^9}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],
Cell[BoxData[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}]], "Output",
CellChangeTimes->{
3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9},
3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9,
3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9,
3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9,
3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9},
3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,
3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {
3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {
3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9,
3.5779618537169228`*^9}, {3.5779618846049767`*^9,
3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Ca", "[",
RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
3.5779616465173616`*^9}],
Cell, "Output",
CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
3.5779616484049644`*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Ca", "[",
RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{3.577957376235614*^9}],
Cell, "Output",
CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Ca", "[",
RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{3.5779573112927003`*^9}],
Cell, "Output",
CellChangeTimes->{
3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,
3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,
3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9},
3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Ca", "[",
RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{3.577921461734375*^9}],
Cell, "Output",
CellChangeTimes->{
3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9,
3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9,
3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Ca", "[",
RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{3.577957303118286*^9}],
Cell, "Output",
CellChangeTimes->{
3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {
3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,
3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
3.577961889378585*^9, 3.577961912965826*^9}}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Ca", "[",
RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {
3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {
3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {
3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
3.577921435703125*^9}}],
Cell, "Output",
CellChangeTimes->{
3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {
3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9,
3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {
3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9,
3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {
3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {
3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9,
3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Delta1", "=",
RowBox[{
SubsuperscriptBox["\",
RowBox[{"-", "\"}], "\"],
RowBox[{
SubsuperscriptBox["\",
RowBox[{"-", "\"}], "\"],
RowBox[{
SubsuperscriptBox["\",
RowBox[{"-", "\"}], "\"],
RowBox[{
SubsuperscriptBox["\",
RowBox[{"-", "\"}], "\"],
RowBox[{
SubsuperscriptBox["\",
RowBox[{"-", "\"}], "\"],
RowBox[{
SubsuperscriptBox["\",
RowBox[{"-", "\"}], "\"],
RowBox[{
SubsuperscriptBox["\",
RowBox[{"-", "\"}], "\"],
RowBox[{
SubsuperscriptBox["\",
RowBox[{"-", "\"}], "\"],
RowBox[{
SubsuperscriptBox["\",
RowBox[{"-", "\"}], "\"],
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
"Delta"}], "]"}],
RowBox[{"\", "x1"}],
RowBox[{"\", "x2"}],
RowBox[{"\", "x3"}],
RowBox[{"\", "x4"}],
RowBox[{"\", "x5"}],
RowBox[{"\", "x6"}],
RowBox[{"\", "x7"}],
RowBox[{"\", "x8"}],
RowBox[{"\", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {
3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9,
3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {
3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {
3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9,
3.577918964453125*^9}}],
Cell[BoxData[
RowBox[{"97.40909103400237`", " ",
SuperscriptBox["Delta", "8"], " ",
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{"Re", "[",
SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
FractionBox[
RowBox[{"1.7724538509055159`", " ",
SuperscriptBox["\",
FractionBox["1.1102230246251565`*^-16",
SuperscriptBox["Delta", "2"]]]}],
SqrtBox[
FractionBox["1",
SuperscriptBox["Delta", "2"]]]], ",",
RowBox[{"Integrate", "[",
RowBox[{
SuperscriptBox["\",
FractionBox[
RowBox[{"1.1102230246251565`*^-16", "-",
RowBox[{"1.`", " ",
SuperscriptBox["x9", "2"]}]}],
SuperscriptBox["Delta", "2"]]], ",",
RowBox[{"{",
RowBox[{"x9", ",",
RowBox[{"-", "\"}], ",", "\"}], "}"}], ",",
RowBox[{"Assumptions", "\",
RowBox[{
RowBox[{"Re", "[",
SuperscriptBox["Delta", "2"], "]"}], "\", "0"}]}]}],
"]"}]}], "]"}]}]], "Output",
CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9,
3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,
3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9,
3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Delta1", "=",
StyleBox[
RowBox[{"97.40909103400237`", " ",
SuperscriptBox["Delta", "8"], " ",
FractionBox[
RowBox[{"1.7724538509055159`", " ",
SuperscriptBox["\",
FractionBox["1.1102230246251565`*^-16",
SuperscriptBox["Delta", "2"]]]}],
SqrtBox[
FractionBox["1",
SuperscriptBox["Delta", "2"]]]]}],
FontWeight->"Plain"]}]], "Input",
CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {
3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,
3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},
3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],
Cell[BoxData[
FractionBox[
RowBox[{"172.65311851642346`", " ",
SuperscriptBox["Delta", "8"], " ",
SuperscriptBox["\",
FractionBox["1.1102230246251565`*^-16",
SuperscriptBox["Delta", "2"]]]}],
SqrtBox[
FractionBox["1",
SuperscriptBox["Delta", "2"]]]]], "Output",
CellChangeTimes->{
3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9,
3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
3.578012166234375*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"DeltaX", "=",
RowBox[{"FindRoot", "[",
RowBox[{
RowBox[{"Delta1", "\", "1"}], ",",
RowBox[{"{",
RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {
3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9,
3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9,
3.57791921584375*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"Delta", "\", "0.5641895835477563`"}], "}"}]], "Output",
CellChangeTimes->{
3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9,
3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9,
3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
3.57796070150625*^9, 3.578012167703125*^9}]
}, Open ]],
Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\
\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
3.577960705312657*^9, 3.577960707621461*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"C1", "=", "Ca"}]], "Input",
CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
"0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
"0.`"}], "}"}]], "Output",
CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9,
3.577960710273465*^9, 3.5780121855*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"u1", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {
3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {
3.577919193484375*^9, 3.5779192326875*^9}}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9,
3.578012187078125*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"C2", "=", "Ca"}]], "Input",
CellChangeTimes->{3.57792047321875*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
"0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}],
"}"}]], "Output",
CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
3.5779607401163173`*^9, 3.578012204671875*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"u2", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{3.577920484109375*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
3.5779607413955193`*^9, 3.578012205484375*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"C3", "=", "Ca"}]], "Input",
CellChangeTimes->{3.57792064125*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
"0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
"}"}]], "Output",
CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
3.5779607642027593`*^9, 3.5780122103125*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"u3", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{3.57792064921875*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
3.5779607654819613`*^9, 3.578012211515625*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"C4", "=", "Ca"}]], "Input",
CellChangeTimes->{3.5779207559375*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
"0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}],
"}"}]], "Output",
CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
3.5779607861363974`*^9, 3.578012216171875*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"u4", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{3.57792076325*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,
3.5779607873531995`*^9, 3.5780122169375*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"C5", "=", "Ca"}]], "Input",
CellChangeTimes->{3.577920860671875*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
"0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],
"}"}]], "Output",
CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
3.5779608137328453`*^9, 3.5780122209375*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"u5", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{3.577920869375*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
3.577960815043248*^9, 3.578012221953125*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"C6", "=", "Ca"}]], "Input",
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
"0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
"0.494866`"}], "}"}]], "Output",
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,
3.5779608373044868`*^9, 3.578012227359375*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"u6", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"C7", "=", "Ca"}]], "Input",
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
3.577921316125*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
"0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
"}"}]], "Output",
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"u7", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
3.57792132028125*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9,
3.578012251359375*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"C8", "=", "Ca"}]], "Input",
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
3.577921316125*^9, 3.57792141421875*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
"0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
"}"}]], "Output",
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
3.578012260515625*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"u8", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
3.57792132028125*^9, 3.577921416921875*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
3.5779608945565863`*^9, 3.57801226165625*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"C9", "=", "Ca"}]], "Input",
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
"0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}],
"}"}]], "Output",
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9,
3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9,
3.578012268234375*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"u9", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9,
3.577961530421959*^9, 3.578012269125*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"C10", "=", "Ca"}], "\",
RowBox[{"u10", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"C11", "=", "Ca"}], "\",
RowBox[{"u11", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
3.57796154237158*^9, 3.5779615434011817`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
"0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
"}"}]], "Output",
CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
3.57801228203125*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
3.57801228203125*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"C12", "=", "Ca"}], "\",
RowBox[{"u12", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
3.57796154237158*^9, 3.5779615576284065`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
"0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],
"}"}]], "Output",
CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"C13", "=", "Ca"}], "\",
RowBox[{"u13", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
3.57796154237158*^9, 3.5779615599684105`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
"0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
"}"}]], "Output",
CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"C14", "=", "Ca"}], "\",
RowBox[{"u14", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
3.57796154237158*^9, 3.5779615663176217`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",
"0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
"}"}]], "Output",
CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"C15", "=", "Ca"}], "\",
RowBox[{"u15", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
3.57796154237158*^9, 3.57796157098203*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
"0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
"}"}]], "Output",
CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
}, Open ]],
Cell[BoxData[
RowBox[{"For", "[",
RowBox[{
RowBox[{"i", "=", "1"}], ",",
RowBox[{"i", "\", "9"}], ",",
RowBox[{"i", "++"}], ",",
RowBox[{
RowBox[{"Ca", "[",
RowBox[{"[", "i", "]"}], "]"}], "=",
RowBox[{"CM", "[",
RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"C16", "=", "Ca"}], "\",
RowBox[{"u16", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
3.5779615751004367`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
"0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
"}"}]], "Output",
CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",
CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"C17", "=", "Ca"}], "\",
RowBox[{"u17", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9,
3.577961578953644*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
"0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}],
"}"}]], "Output",
CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"C18", "=", "Ca"}], "\",
RowBox[{"u18", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
3.5779615828848505`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
"0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
"}"}]], "Output",
CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"C19", "=", "Ca"}], "\",
RowBox[{"u19", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9,
3.577961588890861*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
"0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],
"}"}]], "Output",
CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"C20", "=", "Ca"}], "\",
RowBox[{"u20", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
3.57796159382047*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
"0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
"}"}]], "Output",
CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"C21", "=", "Ca"}], "\",
RowBox[{"u21", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
3.5779615991556787`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
"1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}],
"}"}]], "Output",
CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]
}, Open ]],
Cell, "Input",
CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"y1a", "=",
RowBox[{"Table", "[",
RowBox[{"x", ",",
RowBox[{"{",
RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
3.5779226649375*^9, 3.5779226810625*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
"35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
"48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
"}"}]], "Output",
CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",
CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],
Cell, "Output",
CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
3.577961929080654*^9, 3.5780123419375*^9}]
}, Open ]],
Cell[BoxData[
RowBox[{"For", "[",
RowBox[{
RowBox[{"i", "=", "1"}], ",",
RowBox[{"i", "\", "60"}], ",",
RowBox[{"i", "++"}], ",",
RowBox[{
RowBox[{"y1a", "[",
RowBox[{"[", "i", "]"}], "]"}], "=",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
3.577922923203125*^9}, 3.5779588839702806`*^9}],
Cell[CellGroupData[{
Cell, "Input",
CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",",
"0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",",
"0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",",
"0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",",
"0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",",
"0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",",
"0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
"0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",",
"0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",",
"0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",
"0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",",
"0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",",
"0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
"0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",",
"0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}],
"}"}]], "Output",
CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"m60n21", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"Table", "[",
RowBox[{"y", ",",
RowBox[{"{",
RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9,
3.5779619706547265`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}]}], "}"}]], "Output",
CellChangeTimes->{
3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9,
3.5779619748823338`*^9}, 3.578012345453125*^9}]
}, Open ]],
Cell[BoxData[
RowBox[{"For", "[",
RowBox[{
RowBox[{"i", "=", "1"}], ",",
RowBox[{"i", "\", "60"}], ",",
RowBox[{"i", "++"}], ",",
RowBox[{"{", "\",
RowBox[{
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}], "=",
RowBox[{"u1", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[", 涳夢 发表于 2013-7-30 20:31 static/image/common/back.gif
神经网络系数？有这种系数吗？可不可以具体一点儿，给出原问题或更具体点呗
(* Content-type: application/mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 7.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 145, 7]
NotebookDataLength[ 423629, 11534]
NotebookOptionsPosition[ 412607, 11173]
NotebookOutlinePosition[ 412953, 11188]
CellTagsIndexPosition[ 412910, 11185]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Data", "=",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
"0.304348", ",", "0.552818", ",", "0.330370", ",", "0.025823", ",",
"0.538462", ",", "0.752072", ",", "0.408943", ",", "0.504532", ",",
"0.000000", ",", "0.277091", ",", "0.873239"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.565217", ",", "0.346857", ",", "0.393585", ",", "0.118785", ",",
"0.349650", ",", "0.370761", ",", "0.413008", ",", "0.502518", ",",
"0.000000", ",", "0.220259", ",", "0.464789"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.608696", ",", "0.339186", ",", "0.494300", ",", "0.099338", ",",
"0.321678", ",", "0.375283", ",", "0.000000", ",", "0.505539", ",",
"0.000000", ",", "0.899882", ",", "0.492958"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.521739", ",", "0.334022", ",", "0.355500", ",", "0.025156", ",",
"0.489510", ",", "0.376790", ",", "0.411382", ",", "0.000000", ",",
"0.000000", ",", "0.265607", ",", "0.774648"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.565217", ",", "0.346931", ",", "0.218229", ",", "0.043639", ",",
"0.503497", ",", "0.761115", ",", "0.415447", ",", "0.503525", ",",
"0.000000", ",", "0.642226", ",", "0.380282"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.478261", ",", "0.293154", ",", "0.259368", ",", "0.026688", ",",
"0.587413", ",", "0.755840", ",", "0.409756", ",", "0.498489", ",",
"0.000000", ",", "0.306243", ",", "0.647887"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.347826", ",", "0.359693", ",", "0.614393", ",", "0.081521", ",",
"0.258741", ",", "0.367747", ",", "0.410569", ",", "0.499496", ",",
"0.000000", ",", "0.186985", ",", "0.563380"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.565217", ",", "0.705518", ",", "0.510223", ",", "0.066892", ",",
"0.244755", ",", "0.748304", ",", "0.000000", ",", "0.000000", ",",
"0.243032", ",", "0.175501", ",", "0.295775"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.565217", ",", "0.710460", ",", "0.649730", ",", "0.119897", ",",
"0.468531", ",", "0.000000", ",", "0.636585", ",", "0.000000", ",",
"0.766748", ",", "0.147821", ",", "0.338028"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.565217", ",", "0.697772", ",", "0.171587", ",", "0.028566", ",",
"0.363636", ",", "0.449887", ",", "0.408130", ",", "0.000000", ",",
"0.000000", ",", "0.352768", ",", "0.211268"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.282609", ",", "0.660888", ",", "0.460064", ",", "0.110334", ",",
"0.475524", ",", "0.000000", ",", "0.545528", ",", "0.000000", ",",
"0.551100", ",", "0.238810", ",", "0.690141"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.130435", ",", "0.682724", ",", "0.258697", ",", "0.019299", ",",
"0.510490", ",", "0.420497", ",", "0.535772", ",", "0.000000", ",",
"0.494866", ",", "0.095701", ",", "0.436620"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.347826", ",", "0.697772", ",", "0.108288", ",", "0.022413", ",",
"0.356643", ",", "0.247928", ",", "0.908130", ",", "0.000000", ",",
"0.383374", ",", "0.162839", ",", "0.000000"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.695652", ",", "0.718280", ",", "0.339730", ",", "0.110285", ",",
"0.335664", ",", "0.000000", ",", "0.636585", ",", "0.780463", ",",
"0.000000", ",", "0.335395", ",", "0.267606"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.652174", ",", "0.569711", ",", "0.414297", ",", "0.175398", ",",
"0.167832", ",", "0.000000", ",", "0.544715", ",", "0.000000", ",",
"0.000000", ",", "0.160483", ",", "0.211268"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.000000", ",", "0.395544", ",", "0.027011", ",", "0.048087", ",",
"0.496503", ",", "0.000000", ",", "0.452033", ",", "0.000000", ",",
"0.278729", ",", "0.398115", ",", "0.408451"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.608696", ",", "0.425199", ",", "0.012979", ",", "0.000000", ",",
"0.482517", ",", "0.509420", ",", "0.406504", ",", "0.000000", ",",
"0.000000", ",", "0.157833", ",", "0.478873"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.608696", ",", "0.577973", ",", "0.213587", ",", "0.030889", ",",
"0.370629", ",", "0.000000", ",", "0.452846", ",", "0.000000", ",",
"0.000000", ",", "0.315665", ",", "0.380282"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.565217", ",", "0.572293", ",", "0.655012", ",", "0.281852", ",",
"0.000000", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.492344", ",", "0.211268"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.130435", ",", "0.562039", ",", "0.331662", ",", "0.032643", ",",
"0.314685", ",", "0.414469", ",", "0.275610", ",", "0.000000", ",",
"0.000000", ",", "0.638398", ",", "0.436620"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.717391", ",", "0.736205", ",", "0.267704", ",", "0.036152", ",",
"0.307692", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.392521", ",", "0.478873"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.608696", ",", "0.769475", ",", "0.289283", ",", "0.022882", ",",
"0.321678", ",", "0.000000", ",", "0.274797", ",", "0.333333", ",",
"0.000000", ",", "0.362191", ",", "0.295775"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.913043", ",", "0.170478", ",", "0.000000", ",", "0.012973", ",",
"0.293706", ",", "0.000000", ",", "0.000000", ",", "0.672709", ",",
"0.000000", ",", "0.114252", ",", "0.028169"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.739130", ",", "0.193199", ",", "0.160584", ",", "0.037907", ",",
"0.461538", ",", "0.000000", ",", "0.684553", ",", "0.000000", ",",
"0.000000", ",", "0.401355", ",", "0.436620"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.826087", ",", "0.203969", ",", "0.234619", ",", "0.272240", ",",
"0.265734", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.827444", ",", "0.394366"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"1.000000", ",", "0.199248", ",", "0.295044", ",", "0.041613", ",",
"0.209790", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.676973", ",", "0.295775"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.869565", ",", "0.180363", ",", "0.243056", ",", "0.098349", ",",
"0.265734", ",", "0.503391", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.331272", ",", "0.830986"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.695652", ",", "0.551785", ",", "0.326201", ",", "0.253608", ",",
"0.195804", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.845701", ",", "0.169014"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.652174", ",", "0.572293", ",", "0.111511", ",", "0.035584", ",",
"0.405594", ",", "0.249435", ",", "0.544715", ",", "0.000000", ",",
"0.000000", ",", "0.287102", ",", "0.366197"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.652174", ",", "0.562039", ",", "0.336155", ",", "0.014604", ",",
"0.174825", ",", "0.244160", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.000000", ",", "0.309859"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.565217", ",", "0.577383", ",", "0.155870", ",", "0.030963", ",",
"0.258741", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.050059", ",", "0.352113"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.565217", ",", "0.613234", ",", "0.232956", ",", "0.053870", ",",
"0.230769", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.254122", ",", "0.309859"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.565217", ",", "0.559531", ",", "0.493262", ",", "0.046209", ",",
"0.293706", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.086867", ",", "0.774648"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.608696", ",", "0.569711", ",", "0.111932", ",", "0.013542", ",",
"0.335664", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.168704", ",", "0.659894", ",", "0.422535"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.608696", ",", "0.564547", ",", "0.329844", ",", "0.202036", ",",
"0.510490", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.317138", ",", "0.887324"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.521739", ",", "0.546695", ",", "0.165788", ",", "0.029431", ",",
"0.510490", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.605124", ",", "0.887324"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.521739", ",", "0.564178", ",", "0.400518", ",", "0.045023", ",",
"0.615385", ",", "0.368500", ",", "0.660163", ",", "0.301108", ",",
"0.000000", ",", "0.321260", ",", "0.859155"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.413043", ",", "0.551859", ",", "0.544826", ",", "0.230503", ",",
"0.244755", ",", "0.530520", ",", "0.819512", ",", "0.000000", ",",
"0.000000", ",", "0.595406", ",", "0.239437"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.652174", ",", "0.549277", ",", "0.257578", ",", "0.058688", ",",
"0.356643", ",", "0.000000", ",", "0.817886", ",", "0.000000", ",",
"0.000000", ",", "0.555359", ",", "0.295775"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.695652", ",", "0.549277", ",", "0.572308", ",", "0.082411", ",",
"0.461538", ",", "0.528259", ",", "0.819512", ",", "0.000000", ",",
"0.000000", ",", "0.333333", ",", "0.746479"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.434783", ",", "0.551785", ",", "0.530346", ",", "0.151651", ",",
"0.790210", ",", "0.529013", ",", "0.409756", ",", "0.000000", ",",
"1.000000", ",", "0.149588", ",", "1.000000"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.282609", ",", "0.531278", ",", "0.321428", ",", "0.228625", ",",
"0.594406", ",", "0.530520", ",", "0.410569", ",", "0.000000", ",",
"0.757457", ",", "0.493522", ",", "0.549296"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.347826", ",", "0.705444", ",", "0.109343", ",", "0.072008", ",",
"0.496503", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.752567", ",", "0.224676", ",", "0.366197"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.391304", ",", "0.705444", ",", "0.045908", ",", "0.073120", ",",
"0.622378", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.496333", ",", "0.410188", ",", "0.549296"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.282609", ",", "0.661921", ",", "0.344992", ",", "0.085178", ",",
"0.293706", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.668139", ",", "0.577465"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.478261", ",", "0.661921", ",", "0.644209", ",", "0.077296", ",",
"0.412587", ",", "0.000000", ",", "0.413008", ",", "0.502518", ",",
"0.000000", ",", "0.102179", ",", "0.690141"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.173913", ",", "0.984656", ",", "0.420753", ",", "0.137022", ",",
"0.321678", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.380742", ",", "0.718310"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.500000", ",", "0.984656", ",", "0.288432", ",", "0.047692", ",",
"0.279720", ",", "0.000000", ",", "0.821138", ",", "0.510574", ",",
"0.000000", ",", "0.319494", ",", "0.521127"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.391304", ",", "1.000000", ",", "0.452931", ",", "0.150909", ",",
"0.342657", ",", "0.370761", ",", "0.000000", ",", "0.509567", ",",
"0.000000", ",", "0.031508", ",", "0.929577"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.739130", ",", "0.774639", ",", "0.175120", ",", "0.036498", ",",
"0.391608", ",", "0.739261", ",", "0.408943", ",", "0.553877", ",",
"0.000000", ",", "0.292108", ",", "0.521127"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.586957", ",", "0.982074", ",", "0.158462", ",", "0.063902", ",",
"0.321678", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.329505", ",", "0.338028"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.543478", ",", "0.982074", ",", "0.306872", ",", "0.041934", ",",
"0.426573", ",", "0.380558", ",", "0.414634", ",", "0.506546", ",",
"0.000000", ",", "0.337456", ",", "0.380282"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.739130", ",", "0.997418", ",", "0.170143", ",", "0.058268", ",",
"0.538462", ",", "0.248681", ",", "0.000000", ",", "0.339376", ",",
"0.000000", ",", "0.766784", ",", "0.676056"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.695652", ",", "0.700428", ",", "0.139361", ",", "0.182169", ",",
"0.412587", ",", "0.243406", ",", "0.000000", ",", "0.000000", ",",
"0.136919", ",", "0.676678", ",", "0.591549"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.782609", ",", "0.751623", ",", "0.177646", ",", "0.350845", ",",
"0.412587", ",", "0.502638", ",", "0.000000", ",", "0.000000", ",",
"0.178973", ",", "0.541519", ",", "0.464789"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.652174", ",", "0.751623", ",", "0.355593", ",", "0.039883", ",",
"0.195804", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.064488", ",", "0.295775"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.521739", ",", "0.679847", ",", "0.152375", ",", "0.030048", ",",
"0.363636", ",", "0.000000", ",", "0.271545", ",", "0.000000", ",",
"0.000000", ",", "0.463192", ",", "0.380282"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.434783", ",", "0.728533", ",", "0.186830", ",", "0.129510", ",",
"0.195804", ",", "0.000000", ",", "0.269919", ",", "0.000000", ",",
"0.326650", ",", "0.388398", ",", "0.211268"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.608696", ",", "0.606152", ",", "0.158058", ",", "0.090170", ",",
"1.000000", ",", "0.166541", ",", "0.278049", ",", "0.000000", ",",
"0.236675", ",", "0.262367", ",", "0.253521"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.608696", ",", "0.633742", ",", "0.322697", ",", "0.068597", ",",
"0.328671", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.287042", ",", "0.290931", ",", "0.281690"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.478261", ",", "0.539023", ",", "0.412108", ",", "0.107566", ",",
"0.237762", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.380742", ",", "0.507042"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.608696", ",", "0.551859", ",", "0.176821", ",", "0.076332", ",",
"0.265734", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.429034", ",", "0.239437"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.652174", ",", "0.551859", ",", "0.033549", ",", "0.018459", ",",
"0.573427", ",", "0.000000", ",", "0.553659", ",", "0.000000", ",",
"0.404890", ",", "0.193168", ",", "0.394366"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.695652", ",", "0.595382", ",", "0.277493", ",", "0.100326", ",",
"0.286713", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.448763", ",", "0.338028"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.565217", ",", "0.559531", ",", "0.422669", ",", "0.078111", ",",
"0.286713", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.442285", ",", "0.394366"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.586957", ",", "0.398126", ",", "0.140619", ",", "0.069116", ",",
"0.461538", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.575383", ",", "0.154930"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.695652", ",", "0.398126", ",", "0.019829", ",", "0.041366", ",",
"0.552448", ",", "0.244160", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.515607", ",", "0.591549"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.695652", ",", "0.700354", ",", "0.422467", ",", "0.068128", ",",
"0.209790", ",", "0.000000", ",", "0.000000", ",", "0.500504", ",",
"0.000000", ",", "0.057715", ",", "0.408451"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.521739", ",", "0.193125", ",", "0.210582", ",", "0.110433", ",",
"0.447552", ",", "0.382065", ",", "0.413008", ",", "0.498489", ",",
"0.000000", ",", "0.174617", ",", "0.295775"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.347826", ",", "0.063588", ",", "0.830527", ",", "1.000000", ",",
"0.111888", ",", "0.000000", ",", "0.410569", ",", "0.000000", ",",
"0.000000", ",", "0.667550", ",", "0.661972"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.521739", ",", "0.188109", ",", "1.000000", ",", "0.785485", ",",
"0.342657", ",", "0.373775", ",", "0.406504", ",", "1.000000", ",",
"0.000000", ",", "0.371025", ",", "0.774648"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.695652", ",", "0.188404", ",", "0.088836", ",", "0.059504", ",",
"0.706294", ",", "0.376790", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.570966", ",", "0.746479"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.695652", ",", "0.057465", ",", "0.316316", ",", "0.151280", ",",
"0.615385", ",", "0.371515", ",", "0.412195", ",", "0.500504", ",",
"0.000000", ",", "0.468198", ",", "0.887324"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.608696", ",", "0.011360", ",", "0.295586", ",", "0.113892", ",",
"0.580420", ",", "0.746044", ",", "0.405691", ",", "0.501511", ",",
"0.000000", ",", "0.414016", ",", "0.845070"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.608696", ",", "0.364783", ",", "0.130582", ",", "0.020214", ",",
"0.356643", ",", "0.379804", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.186690", ",", "0.704225"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.608696", ",", "0.193199", ",", "0.112690", ",", "0.036152", ",",
"0.636364", ",", "0.382065", ",", "0.409756", ",", "0.495468", ",",
"0.000000", ",", "0.442874", ",", "0.760563"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.739130", ",", "0.328932", ",", "0.246779", ",", "0.126520", ",",
"0.454545", ",", "0.000000", ",", "0.495122", ",", "0.000000", ",",
"0.414181", ",", "0.686690", ",", "0.436620"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.739130", ",", "0.341767", ",", "0.362090", ",", "0.183528", ",",
"0.573427", ",", "0.413715", ",", "0.454472", ",", "0.661631", ",",
"0.000000", ",", "0.244111", ",", "0.633803"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.695652", ",", "0.187076", ",", "0.279724", ",", "0.006252", ",",
"0.405594", ",", "0.418237", ",", "0.544715", ",", "0.000000", ",",
"0.000000", ",", "1.000000", ",", "0.422535"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"1.000000", ",", "0.333948", ",", "0.064750", ",", "0.065855", ",",
"0.342657", ",", "0.000000", ",", "0.408130", ",", "0.000000", ",",
"0.000000", ",", "0.957892", ",", "0.295775"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.739130", ",", "0.305400", ",", "0.374567", ",", "0.132870", ",",
"0.258741", ",", "0.834966", ",", "0.000000", ",", "0.000000", ",",
"0.272861", ",", "0.266784", ",", "0.309859"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.826087", ",", "0.151962", ",", "0.360280", ",", "0.221632", ",",
"0.447552", ",", "0.584778", ",", "0.457724", ",", "0.000000", ",",
"0.000000", ",", "0.826855", ",", "0.408451"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.565217", ",", "0.047212", ",", "0.233154", ",", "0.121528", ",",
"0.314685", ",", "0.417483", ",", "0.546341", ",", "0.000000", ",",
"0.669438", ",", "0.341873", ",", "0.197183"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.826087", ",", "0.034376", ",", "0.690349", ",", "0.512380", ",",
"0.685315", ",", "1.000000", ",", "1.000000", ",", "0.000000", ",",
"0.556479", ",", "0.412544", ",", "0.732394"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.652174", ",", "0.000000", ",", "0.374417", ",", "0.188075", ",",
"0.706294", ",", "0.498116", ",", "0.729268", ",", "0.000000", ",",
"0.454279", ",", "0.322144", ",", "0.802817"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.782609", ",", "0.180363", ",", "0.237142", ",", "0.054809", ",",
"0.629371", ",", "0.373775", ",", "0.247967", ",", "0.000000", ",",
"0.163814", ",", "0.370436", ",", "0.746479"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.608696", ",", "0.169150", ",", "0.368148", ",", "0.393768", ",",
"0.440559", ",", "0.995479", ",", "0.545528", ",", "0.000000", ",",
"0.565770", ",", "0.333039", ",", "0.380282"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.695652", ",", "0.390454", ",", "0.186683", ",", "0.039439", ",",
"0.482517", ",", "0.497362", ",", "0.415447", ",", "0.508560", ",",
"0.000000", ",", "0.390754", ",", "0.563380"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{
"0.739130", ",", "0.428888", ",", "0.082728", ",", "0.070154", ",",
"0.279720", ",", "0.000000", ",", "0.000000", ",", "0.000000", ",",
"0.000000", ",", "0.694935", ",", "0.323944"}], "}"}]}],
"}"}]}]], "Input",
CellChangeTimes->{3.5779587825701036`*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
"0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
"0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
"0.`", ",", "0.277091`", ",", "0.873239`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.565217`", ",", "0.346857`", ",", "0.393585`", ",", "0.118785`", ",",
"0.34965`", ",", "0.370761`", ",", "0.413008`", ",", "0.502518`", ",",
"0.`", ",", "0.220259`", ",", "0.464789`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
"0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`",
",", "0.899882`", ",", "0.492958`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
"0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`",
",", "0.265607`", ",", "0.774648`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.565217`", ",", "0.346931`", ",", "0.218229`", ",", "0.043639`", ",",
"0.503497`", ",", "0.761115`", ",", "0.415447`", ",", "0.503525`", ",",
"0.`", ",", "0.642226`", ",", "0.380282`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.478261`", ",", "0.293154`", ",", "0.259368`", ",", "0.026688`", ",",
"0.587413`", ",", "0.75584`", ",", "0.409756`", ",", "0.498489`", ",",
"0.`", ",", "0.306243`", ",", "0.647887`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.347826`", ",", "0.359693`", ",", "0.614393`", ",", "0.081521`", ",",
"0.258741`", ",", "0.367747`", ",", "0.410569`", ",", "0.499496`", ",",
"0.`", ",", "0.186985`", ",", "0.56338`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
"0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`",
",", "0.175501`", ",", "0.295775`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
"0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`",
",", "0.147821`", ",", "0.338028`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.565217`", ",", "0.697772`", ",", "0.171587`", ",", "0.028566`", ",",
"0.363636`", ",", "0.449887`", ",", "0.40813`", ",", "0.`", ",", "0.`",
",", "0.352768`", ",", "0.211268`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.282609`", ",", "0.660888`", ",", "0.460064`", ",", "0.110334`", ",",
"0.475524`", ",", "0.`", ",", "0.545528`", ",", "0.`", ",", "0.5511`",
",", "0.23881`", ",", "0.690141`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
"0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
"0.494866`", ",", "0.095701`", ",", "0.43662`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.347826`", ",", "0.697772`", ",", "0.108288`", ",", "0.022413`", ",",
"0.356643`", ",", "0.247928`", ",", "0.90813`", ",", "0.`", ",",
"0.383374`", ",", "0.162839`", ",", "0.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
"0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`",
",", "0.335395`", ",", "0.267606`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
"0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`", ",",
"0.160483`", ",", "0.211268`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
"0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`",
",", "0.398115`", ",", "0.408451`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.425199`", ",", "0.012979`", ",", "0.`", ",",
"0.482517`", ",", "0.50942`", ",", "0.406504`", ",", "0.`", ",", "0.`",
",", "0.157833`", ",", "0.478873`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.577973`", ",", "0.213587`", ",", "0.030889`", ",",
"0.370629`", ",", "0.`", ",", "0.452846`", ",", "0.`", ",", "0.`", ",",
"0.315665`", ",", "0.380282`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.492344`",
",", "0.211268`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.130435`", ",", "0.562039`", ",", "0.331662`", ",", "0.032643`", ",",
"0.314685`", ",", "0.414469`", ",", "0.27561`", ",", "0.`", ",", "0.`",
",", "0.638398`", ",", "0.43662`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
"0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.392521`", ",", "0.478873`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.769475`", ",", "0.289283`", ",", "0.022882`", ",",
"0.321678`", ",", "0.`", ",", "0.274797`", ",", "0.333333`", ",", "0.`",
",", "0.362191`", ",", "0.295775`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
"0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`", ",",
"0.114252`", ",", "0.028169`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
"0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`", ",",
"0.401355`", ",", "0.43662`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",
"0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.827444`", ",", "0.394366`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"1.`", ",", "0.199248`", ",", "0.295044`", ",", "0.041613`", ",",
"0.20979`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.676973`", ",", "0.295775`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.869565`", ",", "0.180363`", ",", "0.243056`", ",", "0.098349`", ",",
"0.265734`", ",", "0.503391`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.331272`", ",", "0.830986`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.695652`", ",", "0.551785`", ",", "0.326201`", ",", "0.253608`", ",",
"0.195804`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.845701`", ",", "0.169014`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.652174`", ",", "0.572293`", ",", "0.111511`", ",", "0.035584`", ",",
"0.405594`", ",", "0.249435`", ",", "0.544715`", ",", "0.`", ",", "0.`",
",", "0.287102`", ",", "0.366197`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.652174`", ",", "0.562039`", ",", "0.336155`", ",", "0.014604`", ",",
"0.174825`", ",", "0.24416`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.`", ",", "0.309859`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.565217`", ",", "0.577383`", ",", "0.15587`", ",", "0.030963`", ",",
"0.258741`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.050059`", ",", "0.352113`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.565217`", ",", "0.613234`", ",", "0.232956`", ",", "0.05387`", ",",
"0.230769`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.254122`", ",", "0.309859`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.565217`", ",", "0.559531`", ",", "0.493262`", ",", "0.046209`", ",",
"0.293706`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.086867`", ",", "0.774648`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.569711`", ",", "0.111932`", ",", "0.013542`", ",",
"0.335664`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.168704`", ",",
"0.659894`", ",", "0.422535`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.564547`", ",", "0.329844`", ",", "0.202036`", ",",
"0.51049`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.317138`", ",", "0.887324`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.521739`", ",", "0.546695`", ",", "0.165788`", ",", "0.029431`", ",",
"0.51049`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.605124`", ",", "0.887324`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.521739`", ",", "0.564178`", ",", "0.400518`", ",", "0.045023`", ",",
"0.615385`", ",", "0.3685`", ",", "0.660163`", ",", "0.301108`", ",",
"0.`", ",", "0.32126`", ",", "0.859155`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
"0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`",
",", "0.595406`", ",", "0.239437`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.652174`", ",", "0.549277`", ",", "0.257578`", ",", "0.058688`", ",",
"0.356643`", ",", "0.`", ",", "0.817886`", ",", "0.`", ",", "0.`", ",",
"0.555359`", ",", "0.295775`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.695652`", ",", "0.549277`", ",", "0.572308`", ",", "0.082411`", ",",
"0.461538`", ",", "0.528259`", ",", "0.819512`", ",", "0.`", ",", "0.`",
",", "0.333333`", ",", "0.746479`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
"0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`",
",", "0.149588`", ",", "1.`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.282609`", ",", "0.531278`", ",", "0.321428`", ",", "0.228625`", ",",
"0.594406`", ",", "0.53052`", ",", "0.410569`", ",", "0.`", ",",
"0.757457`", ",", "0.493522`", ",", "0.549296`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
"0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`", ",",
"0.224676`", ",", "0.366197`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.391304`", ",", "0.705444`", ",", "0.045908`", ",", "0.07312`", ",",
"0.622378`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.496333`", ",",
"0.410188`", ",", "0.549296`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.282609`", ",", "0.661921`", ",", "0.344992`", ",", "0.085178`", ",",
"0.293706`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.668139`", ",", "0.577465`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.478261`", ",", "0.661921`", ",", "0.644209`", ",", "0.077296`", ",",
"0.412587`", ",", "0.`", ",", "0.413008`", ",", "0.502518`", ",", "0.`",
",", "0.102179`", ",", "0.690141`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
"0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.380742`", ",", "0.71831`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.5`", ",", "0.984656`", ",", "0.288432`", ",", "0.047692`", ",",
"0.27972`", ",", "0.`", ",", "0.821138`", ",", "0.510574`", ",", "0.`",
",", "0.319494`", ",", "0.521127`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
"0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`",
",", "0.031508`", ",", "0.929577`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.73913`", ",", "0.774639`", ",", "0.17512`", ",", "0.036498`", ",",
"0.391608`", ",", "0.739261`", ",", "0.408943`", ",", "0.553877`", ",",
"0.`", ",", "0.292108`", ",", "0.521127`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.586957`", ",", "0.982074`", ",", "0.158462`", ",", "0.063902`", ",",
"0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.329505`", ",", "0.338028`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.543478`", ",", "0.982074`", ",", "0.306872`", ",", "0.041934`", ",",
"0.426573`", ",", "0.380558`", ",", "0.414634`", ",", "0.506546`", ",",
"0.`", ",", "0.337456`", ",", "0.380282`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.73913`", ",", "0.997418`", ",", "0.170143`", ",", "0.058268`", ",",
"0.538462`", ",", "0.248681`", ",", "0.`", ",", "0.339376`", ",", "0.`",
",", "0.766784`", ",", "0.676056`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.695652`", ",", "0.700428`", ",", "0.139361`", ",", "0.182169`", ",",
"0.412587`", ",", "0.243406`", ",", "0.`", ",", "0.`", ",", "0.136919`",
",", "0.676678`", ",", "0.591549`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
"0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`",
",", "0.541519`", ",", "0.464789`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.652174`", ",", "0.751623`", ",", "0.355593`", ",", "0.039883`", ",",
"0.195804`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.064488`", ",", "0.295775`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.521739`", ",", "0.679847`", ",", "0.152375`", ",", "0.030048`", ",",
"0.363636`", ",", "0.`", ",", "0.271545`", ",", "0.`", ",", "0.`", ",",
"0.463192`", ",", "0.380282`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.434783`", ",", "0.728533`", ",", "0.18683`", ",", "0.12951`", ",",
"0.195804`", ",", "0.`", ",", "0.269919`", ",", "0.`", ",", "0.32665`",
",", "0.388398`", ",", "0.211268`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
"1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`",
",", "0.262367`", ",", "0.253521`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.633742`", ",", "0.322697`", ",", "0.068597`", ",",
"0.328671`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.287042`", ",",
"0.290931`", ",", "0.28169`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.478261`", ",", "0.539023`", ",", "0.412108`", ",", "0.107566`", ",",
"0.237762`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.380742`", ",", "0.507042`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.551859`", ",", "0.176821`", ",", "0.076332`", ",",
"0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.429034`", ",", "0.239437`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.652174`", ",", "0.551859`", ",", "0.033549`", ",", "0.018459`", ",",
"0.573427`", ",", "0.`", ",", "0.553659`", ",", "0.`", ",", "0.40489`",
",", "0.193168`", ",", "0.394366`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.695652`", ",", "0.595382`", ",", "0.277493`", ",", "0.100326`", ",",
"0.286713`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.448763`", ",", "0.338028`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.565217`", ",", "0.559531`", ",", "0.422669`", ",", "0.078111`", ",",
"0.286713`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.442285`", ",", "0.394366`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.586957`", ",", "0.398126`", ",", "0.140619`", ",", "0.069116`", ",",
"0.461538`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.575383`", ",", "0.15493`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.695652`", ",", "0.398126`", ",", "0.019829`", ",", "0.041366`", ",",
"0.552448`", ",", "0.24416`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.515607`", ",", "0.591549`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.695652`", ",", "0.700354`", ",", "0.422467`", ",", "0.068128`", ",",
"0.20979`", ",", "0.`", ",", "0.`", ",", "0.500504`", ",", "0.`", ",",
"0.057715`", ",", "0.408451`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.521739`", ",", "0.193125`", ",", "0.210582`", ",", "0.110433`", ",",
"0.447552`", ",", "0.382065`", ",", "0.413008`", ",", "0.498489`", ",",
"0.`", ",", "0.174617`", ",", "0.295775`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.347826`", ",", "0.063588`", ",", "0.830527`", ",", "1.`", ",",
"0.111888`", ",", "0.`", ",", "0.410569`", ",", "0.`", ",", "0.`", ",",
"0.66755`", ",", "0.661972`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.521739`", ",", "0.188109`", ",", "1.`", ",", "0.785485`", ",",
"0.342657`", ",", "0.373775`", ",", "0.406504`", ",", "1.`", ",", "0.`",
",", "0.371025`", ",", "0.774648`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.695652`", ",", "0.188404`", ",", "0.088836`", ",", "0.059504`", ",",
"0.706294`", ",", "0.37679`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.570966`", ",", "0.746479`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.695652`", ",", "0.057465`", ",", "0.316316`", ",", "0.15128`", ",",
"0.615385`", ",", "0.371515`", ",", "0.412195`", ",", "0.500504`", ",",
"0.`", ",", "0.468198`", ",", "0.887324`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.01136`", ",", "0.295586`", ",", "0.113892`", ",",
"0.58042`", ",", "0.746044`", ",", "0.405691`", ",", "0.501511`", ",",
"0.`", ",", "0.414016`", ",", "0.84507`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.364783`", ",", "0.130582`", ",", "0.020214`", ",",
"0.356643`", ",", "0.379804`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.18669`", ",", "0.704225`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.193199`", ",", "0.11269`", ",", "0.036152`", ",",
"0.636364`", ",", "0.382065`", ",", "0.409756`", ",", "0.495468`", ",",
"0.`", ",", "0.442874`", ",", "0.760563`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.73913`", ",", "0.328932`", ",", "0.246779`", ",", "0.12652`", ",",
"0.454545`", ",", "0.`", ",", "0.495122`", ",", "0.`", ",", "0.414181`",
",", "0.68669`", ",", "0.43662`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.73913`", ",", "0.341767`", ",", "0.36209`", ",", "0.183528`", ",",
"0.573427`", ",", "0.413715`", ",", "0.454472`", ",", "0.661631`", ",",
"0.`", ",", "0.244111`", ",", "0.633803`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.695652`", ",", "0.187076`", ",", "0.279724`", ",", "0.006252`", ",",
"0.405594`", ",", "0.418237`", ",", "0.544715`", ",", "0.`", ",", "0.`",
",", "1.`", ",", "0.422535`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"1.`", ",", "0.333948`", ",", "0.06475`", ",", "0.065855`", ",",
"0.342657`", ",", "0.`", ",", "0.40813`", ",", "0.`", ",", "0.`", ",",
"0.957892`", ",", "0.295775`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.73913`", ",", "0.3054`", ",", "0.374567`", ",", "0.13287`", ",",
"0.258741`", ",", "0.834966`", ",", "0.`", ",", "0.`", ",", "0.272861`",
",", "0.266784`", ",", "0.309859`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.826087`", ",", "0.151962`", ",", "0.36028`", ",", "0.221632`", ",",
"0.447552`", ",", "0.584778`", ",", "0.457724`", ",", "0.`", ",", "0.`",
",", "0.826855`", ",", "0.408451`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.565217`", ",", "0.047212`", ",", "0.233154`", ",", "0.121528`", ",",
"0.314685`", ",", "0.417483`", ",", "0.546341`", ",", "0.`", ",",
"0.669438`", ",", "0.341873`", ",", "0.197183`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.826087`", ",", "0.034376`", ",", "0.690349`", ",", "0.51238`", ",",
"0.685315`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.556479`", ",",
"0.412544`", ",", "0.732394`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.652174`", ",", "0.`", ",", "0.374417`", ",", "0.188075`", ",",
"0.706294`", ",", "0.498116`", ",", "0.729268`", ",", "0.`", ",",
"0.454279`", ",", "0.322144`", ",", "0.802817`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.782609`", ",", "0.180363`", ",", "0.237142`", ",", "0.054809`", ",",
"0.629371`", ",", "0.373775`", ",", "0.247967`", ",", "0.`", ",",
"0.163814`", ",", "0.370436`", ",", "0.746479`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.16915`", ",", "0.368148`", ",", "0.393768`", ",",
"0.440559`", ",", "0.995479`", ",", "0.545528`", ",", "0.`", ",",
"0.56577`", ",", "0.333039`", ",", "0.380282`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.695652`", ",", "0.390454`", ",", "0.186683`", ",", "0.039439`", ",",
"0.482517`", ",", "0.497362`", ",", "0.415447`", ",", "0.50856`", ",",
"0.`", ",", "0.390754`", ",", "0.56338`"}], "}"}], ",",
RowBox[{"{",
RowBox[{
"0.73913`", ",", "0.428888`", ",", "0.082728`", ",", "0.070154`", ",",
"0.27972`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",",
"0.694935`", ",", "0.323944`"}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{3.57795879182092*^9, 3.5779604974578943`*^9,
3.57801214396875*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Array", "[",
RowBox[{"CM", ",",
RowBox[{"{",
RowBox[{"80", ",", "9"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.577844235859375*^9, 3.577844291953125*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"1", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"1", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"1", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"1", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"1", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"1", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"1", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"1", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"1", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"2", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"2", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"2", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"2", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"2", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"2", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"2", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"2", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"2", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"3", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"3", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"3", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"3", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"3", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"3", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"3", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"3", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"3", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"4", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"4", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"4", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"4", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"4", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"4", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"4", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"4", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"4", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"5", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"5", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"5", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"5", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"5", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"5", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"5", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"5", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"5", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"6", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"6", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"6", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"6", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"6", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"6", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"6", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"6", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"6", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"7", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"7", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"7", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"7", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"7", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"7", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"7", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"7", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"7", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"8", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"8", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"8", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"8", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"8", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"8", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"8", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"8", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"8", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"9", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"9", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"9", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"9", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"9", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"9", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"9", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"9", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"9", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"10", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"10", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"10", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"10", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"10", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"10", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"10", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"10", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"10", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"11", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"11", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"11", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"11", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"11", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"11", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"11", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"11", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"11", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"12", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"12", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"12", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"12", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"12", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"12", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"12", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"12", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"12", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"13", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"13", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"13", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"13", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"13", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"13", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"13", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"13", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"13", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"14", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"14", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"14", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"14", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"14", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"14", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"14", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"14", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"14", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"15", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"15", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"15", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"15", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"15", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"15", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"15", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"15", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"15", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"16", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"16", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"16", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"16", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"16", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"16", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"16", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"16", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"16", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"17", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"17", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"17", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"17", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"17", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"17", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"17", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"17", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"17", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"18", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"18", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"18", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"18", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"18", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"18", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"18", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"18", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"18", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"19", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"19", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"19", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"19", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"19", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"19", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"19", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"19", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"19", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"20", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"20", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"20", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"20", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"20", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"20", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"20", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"20", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"20", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"21", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"21", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"21", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"21", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"21", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"21", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"21", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"21", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"21", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"22", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"22", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"22", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"22", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"22", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"22", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"22", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"22", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"22", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"23", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"23", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"23", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"23", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"23", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"23", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"23", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"23", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"23", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"24", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"24", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"24", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"24", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"24", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"24", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"24", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"24", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"24", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"25", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"25", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"25", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"25", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"25", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"25", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"25", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"25", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"25", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"26", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"26", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"26", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"26", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"26", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"26", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"26", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"26", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"26", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"27", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"27", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"27", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"27", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"27", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"27", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"27", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"27", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"27", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"28", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"28", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"28", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"28", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"28", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"28", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"28", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"28", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"28", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"29", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"29", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"29", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"29", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"29", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"29", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"29", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"29", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"29", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"30", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"30", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"30", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"30", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"30", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"30", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"30", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"30", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"30", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"31", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"31", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"31", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"31", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"31", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"31", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"31", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"31", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"31", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"32", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"32", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"32", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"32", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"32", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"32", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"32", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"32", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"32", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"33", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"33", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"33", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"33", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"33", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"33", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"33", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"33", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"33", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"34", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"34", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"34", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"34", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"34", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"34", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"34", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"34", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"34", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"35", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"35", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"35", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"35", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"35", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"35", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"35", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"35", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"35", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"36", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"36", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"36", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"36", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"36", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"36", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"36", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"36", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"36", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"37", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"37", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"37", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"37", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"37", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"37", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"37", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"37", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"37", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"38", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"38", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"38", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"38", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"38", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"38", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"38", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"38", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"38", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"39", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"39", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"39", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"39", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"39", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"39", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"39", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"39", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"39", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"40", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"40", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"40", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"40", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"40", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"40", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"40", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"40", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"40", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"41", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"41", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"41", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"41", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"41", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"41", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"41", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"41", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"41", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"42", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"42", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"42", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"42", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"42", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"42", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"42", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"42", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"42", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"43", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"43", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"43", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"43", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"43", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"43", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"43", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"43", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"43", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"44", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"44", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"44", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"44", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"44", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"44", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"44", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"44", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"44", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"45", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"45", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"45", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"45", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"45", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"45", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"45", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"45", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"45", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"46", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"46", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"46", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"46", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"46", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"46", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"46", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"46", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"46", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"47", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"47", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"47", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"47", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"47", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"47", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"47", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"47", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"47", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"48", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"48", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"48", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"48", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"48", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"48", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"48", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"48", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"48", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"49", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"49", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"49", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"49", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"49", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"49", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"49", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"49", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"49", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"50", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"50", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"50", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"50", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"50", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"50", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"50", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"50", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"50", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"51", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"51", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"51", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"51", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"51", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"51", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"51", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"51", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"51", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"52", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"52", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"52", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"52", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"52", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"52", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"52", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"52", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"52", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"53", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"53", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"53", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"53", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"53", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"53", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"53", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"53", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"53", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"54", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"54", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"54", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"54", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"54", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"54", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"54", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"54", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"54", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"55", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"55", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"55", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"55", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"55", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"55", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"55", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"55", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"55", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"56", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"56", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"56", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"56", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"56", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"56", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"56", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"56", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"56", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"57", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"57", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"57", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"57", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"57", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"57", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"57", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"57", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"57", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"58", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"58", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"58", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"58", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"58", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"58", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"58", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"58", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"58", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"59", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"59", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"59", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"59", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"59", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"59", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"59", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"59", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"59", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"60", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"60", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"60", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"60", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"60", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"60", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"60", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"60", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"60", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"61", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"61", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"61", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"61", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"61", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"61", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"61", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"61", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"61", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"62", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"62", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"62", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"62", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"62", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"62", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"62", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"62", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"62", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"63", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"63", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"63", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"63", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"63", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"63", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"63", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"63", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"63", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"64", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"64", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"64", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"64", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"64", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"64", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"64", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"64", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"64", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"65", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"65", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"65", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"65", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"65", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"65", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"65", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"65", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"65", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"66", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"66", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"66", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"66", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"66", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"66", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"66", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"66", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"66", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"67", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"67", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"67", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"67", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"67", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"67", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"67", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"67", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"67", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"68", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"68", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"68", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"68", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"68", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"68", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"68", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"68", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"68", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"69", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"69", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"69", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"69", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"69", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"69", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"69", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"69", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"69", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"70", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"70", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"70", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"70", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"70", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"70", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"70", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"70", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"70", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"71", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"71", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"71", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"71", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"71", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"71", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"71", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"71", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"71", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"72", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"72", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"72", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"72", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"72", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"72", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"72", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"72", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"72", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"73", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"73", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"73", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"73", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"73", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"73", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"73", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"73", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"73", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"74", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"74", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"74", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"74", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"74", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"74", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"74", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"74", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"74", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"75", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"75", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"75", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"75", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"75", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"75", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"75", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"75", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"75", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"76", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"76", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"76", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"76", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"76", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"76", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"76", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"76", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"76", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"77", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"77", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"77", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"77", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"77", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"77", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"77", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"77", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"77", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"78", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"78", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"78", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"78", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"78", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"78", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"78", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"78", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"78", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"79", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"79", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"79", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"79", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"79", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"79", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"79", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"79", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"79", ",", "9"}], "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"80", ",", "1"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"80", ",", "2"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"80", ",", "3"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"80", ",", "4"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"80", ",", "5"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"80", ",", "6"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"80", ",", "7"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"80", ",", "8"}], "]"}], ",",
RowBox[{"CM", "[",
RowBox[{"80", ",", "9"}], "]"}]}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{3.577844244140625*^9, 3.57784429425*^9, 3.577847845125*^9,
3.57791322703125*^9, 3.577957088820712*^9, 3.5779605002346992`*^9,
3.578012145828125*^9}]
}, Open ]],
Cell[BoxData[
RowBox[{"For", "[",
RowBox[{
RowBox[{"i", "=", "1"}], ",",
RowBox[{"i", "\", "9"}], ",",
RowBox[{"i", "++"}], ",", "\",
RowBox[{"For", "[",
RowBox[{
RowBox[{"j", "=", "1"}], ",",
RowBox[{"j", "\", "80"}], ",",
RowBox[{"j", "++"}], ",", "\",
RowBox[{
RowBox[{
RowBox[{"CM", "[",
RowBox[{"j", ",", "i"}], "]"}], "=", "0.0"}], ";"}]}],
"\", "]"}]}], "\", "]"}]], "Input",
CellChangeTimes->{{3.5779132504375*^9, 3.577913285203125*^9}}],
Cell[BoxData[
RowBox[{"For", "[",
RowBox[{
RowBox[{"i", "=", "1"}], ",",
RowBox[{"i", "\", "9"}], ",",
RowBox[{"i", "++"}], ",", "\",
RowBox[{
RowBox[{
RowBox[{"CM", "[",
RowBox[{"1", ",", "i"}], "]"}], "=",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"1", ",", "i"}], "]"}], "]"}]}], ";"}]}],
"\", "]"}]], "Input",
CellChangeTimes->{{3.577844179875*^9, 3.577844181703125*^9}, {
3.577844217765625*^9, 3.5778442320625*^9}, {3.57784429953125*^9,
3.577844347875*^9}, 3.57791328640625*^9, 3.57791338828125*^9,
3.57791344209375*^9, 3.5779588070933466`*^9}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"r0", "=", "0.2"}], "\",
RowBox[{"M1", "=", "1"}]}], "Input",
CellChangeTimes->{{3.577844361578125*^9, 3.57784436678125*^9}, {
3.5778457908125*^9, 3.57784580253125*^9}, {3.57784602534375*^9,
3.577846109453125*^9}, {3.57784617128125*^9, 3.57784619321875*^9}, {
3.577846583984375*^9, 3.577846620984375*^9}, {3.577846653203125*^9,
3.577846691984375*^9}, {3.577846779953125*^9, 3.577846794921875*^9}, {
3.5778470791875*^9, 3.577847088921875*^9}, 3.577847409671875*^9, {
3.577847477203125*^9, 3.577847523203125*^9}, {3.577847586484375*^9,
3.577847600640625*^9}, {3.577847649140625*^9, 3.57784770196875*^9}, {
3.57784774896875*^9, 3.57784776490625*^9}, 3.577847981546875*^9, {
3.577913312890625*^9, 3.577913360109375*^9}, {3.577919262828125*^9,
3.5779193133125*^9}, 3.577919388484375*^9, 3.5779605095479155`*^9}],
Cell, "Output",
CellChangeTimes->{
3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
3.577960510686717*^9, 3.578012149296875*^9}],
Cell, "Output",
CellChangeTimes->{
3.57784436821875*^9, 3.577845806375*^9, {3.57784603053125*^9,
3.57784611128125*^9}, {3.577846174328125*^9, 3.57784619575*^9}, {
3.577846575515625*^9, 3.57784662446875*^9}, {3.577846655421875*^9,
3.577846694828125*^9}, {3.577846773609375*^9, 3.577846802171875*^9}, {
3.577847068765625*^9, 3.577847134203125*^9}, {3.577847398859375*^9,
3.5778475331875*^9}, {3.577847581359375*^9, 3.577847611953125*^9}, {
3.57784767515625*^9, 3.57784770903125*^9}, {3.577847751453125*^9,
3.5778477734375*^9}, {3.577847849671875*^9, 3.577847869046875*^9}, {
3.57784795690625*^9, 3.57784798321875*^9}, {3.5779132940625*^9,
3.57791340575*^9}, 3.5779134450625*^9, {3.577919266859375*^9,
3.5779193165*^9}, 3.577919391265625*^9, 3.577919455125*^9,
3.577920297984375*^9, 3.5779570945615225`*^9, 3.5779588145501595`*^9,
3.577960510686717*^9, 3.578012149296875*^9}]
}, Open ]],
Cell[BoxData[
RowBox[{"For", "[",
RowBox[{
RowBox[{"k", "=", "2"}], ",",
RowBox[{"k", "\", "60"}], ",",
RowBox[{"k", "++"}], ",",
RowBox[{"{", "\",
RowBox[{
RowBox[{"rmin", "=", "0.0"}], ";", "\",
RowBox[{"For", "[",
RowBox[{
RowBox[{"j", "=", "1"}], ",",
RowBox[{"j", "\",
RowBox[{"k", "-", "1"}]}], ",",
RowBox[{"j", "++"}], ",",
RowBox[{"{", "\",
RowBox[{
RowBox[{"r1", "=", "0.0"}], ";", "\",
RowBox[{"For", "[",
RowBox[{
RowBox[{"i", "=", "1"}], ",",
RowBox[{"i", "\", "9"}], ",",
RowBox[{"i", "++"}], ",", "\",
RowBox[{
RowBox[{"r1", "+=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"j", ",", "i"}], "]"}], "-",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}], "*",
RowBox[{"(",
RowBox[{
RowBox[{"CM", "[",
RowBox[{"j", ",", "i"}], "]"}], "-",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"k", ",", "i"}], "]"}], "]"}]}], ")"}]}]}], ";"}]}],
"\", "]"}], ";", "\",
RowBox[{"r1", "=",
RowBox[{"Sqrt", "[",
RowBox[{"r1", "/", "8"}], "]"}]}], ";", "\",
RowBox[{"If", "[", " ",
RowBox[{
RowBox[{"j", "\", "1"}], ",",
RowBox[{"rmin", "=", "r1"}], ",",
RowBox[{"If", "[",
RowBox[{
RowBox[{"r1", "<", "rmin"}], ",",
RowBox[{"rmin", "=", "r1"}], ",",
RowBox[{"i", "=", "i"}]}], "]"}]}], "]"}], ";"}],
"\", "}"}]}], "\", "]"}], ";",
"\",
RowBox[{"If", "[",
RowBox[{
RowBox[{"rmin", ">", "r0"}], ",",
RowBox[{"{", "\",
RowBox[{
RowBox[{"M1", "++"}], ";", "\",
RowBox[{"For", "[",
RowBox[{
RowBox[{"i1", "=", "1"}], ",",
RowBox[{"i1", "\", "9"}], ",",
RowBox[{"i1", "++"}], ",", "\",
RowBox[{
RowBox[{
RowBox[{"CM", "[",
RowBox[{"M1", ",", "i1"}], "]"}], "=",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"k", ",", "i1"}], "]"}], "]"}]}], ";"}]}],
"\", "]"}]}], "\", "}"}], ",",
RowBox[{"i", "=", "i"}]}], "\", "]"}]}],
"\", "}"}]}], "\", "]"}]], "Input",
CellChangeTimes->{{3.577844030515625*^9, 3.577844093140625*^9}, {
3.577844374484375*^9, 3.577844448265625*^9}, {3.57784448490625*^9,
3.577844518609375*^9}, {3.577844553671875*^9, 3.577844611984375*^9}, {
3.57784478278125*^9, 3.5778448395*^9}, {3.57784493659375*^9,
3.577844964765625*^9}, {3.577845100328125*^9, 3.577845101921875*^9}, {
3.577845269609375*^9, 3.577845304125*^9}, {3.577845421203125*^9,
3.57784542309375*^9}, {3.577845475359375*^9, 3.57784575834375*^9}, {
3.5778458119375*^9, 3.57784582953125*^9}, {3.5778458803125*^9,
3.57784594859375*^9}, {3.577845984984375*^9, 3.57784598753125*^9}, {
3.577846034546875*^9, 3.577846038390625*^9}, {3.577846303984375*^9,
3.577846311921875*^9}, {3.57784637396875*^9, 3.57784644271875*^9}, {
3.57784649071875*^9, 3.577846495203125*^9}, {3.577846525859375*^9,
3.57784654409375*^9}, {3.577846732234375*^9, 3.577846764765625*^9}, {
3.577847031171875*^9, 3.577847033453125*^9}, {3.577847388296875*^9,
3.57784739490625*^9}, {3.5778475661875*^9, 3.577847571375*^9}, {
3.577847651921875*^9, 3.577847669046875*^9}, {3.57784793653125*^9,
3.5778479520625*^9}, 3.577920065921875*^9, {3.5779588175765653`*^9,
3.577958821991373*^9}}],
Cell[CellGroupData[{
Cell, "Input",
CellChangeTimes->{3.57784599821875*^9, 3.57784767159375*^9}],
Cell, "Output",
CellChangeTimes->{
3.577845999015625*^9, {3.577846043078125*^9, 3.577846114078125*^9}, {
3.57784617665625*^9, 3.577846198859375*^9}, {3.577846578203125*^9,
3.57784669890625*^9}, {3.5778467768125*^9, 3.577846804546875*^9}, {
3.577847071859375*^9, 3.577847137234375*^9}, {3.577847401296875*^9,
3.57784753571875*^9}, {3.577847583625*^9, 3.577847614734375*^9}, {
3.5778476783125*^9, 3.577847711390625*^9}, {3.5778477535*^9,
3.577847775859375*^9}, {3.577847852734375*^9, 3.57784787165625*^9}, {
3.577847966390625*^9, 3.577847986703125*^9}, {3.577913298203125*^9,
3.577913408046875*^9}, 3.577913447296875*^9, {3.5779192700625*^9,
3.57791931975*^9}, 3.577919394140625*^9, 3.577919458796875*^9,
3.577920302703125*^9, 3.5779570980247283`*^9, 3.5779588282469835`*^9,
3.577960515600726*^9, 3.5780121541875*^9}]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"\:4ece21\:4e2a\:805a\:7c7b\:4e2d\:5fc3CM", "[",
RowBox[{"1", ",", "i"}], "]"}],
RowBox[{"\:5230CM", "[",
RowBox[{"21", ",", "i"}], "]"}],
"\:8fd0\:884c\:4e0b\:9762\:7a0b\:5e8f\:ff0c\:5f97\:5230\:9ad8\:65af\:6838\
\:51fd\:6570u1\:5230u21"}]], "Input",
CellChangeTimes->{{3.57792097971875*^9, 3.57792107725*^9}, {
3.5779212193125*^9, 3.577921224546875*^9}, {3.5779605210919356`*^9,
3.577960526583145*^9}}],
Cell[BoxData[
RowBox[{"Clear", "[", "Delta", "]"}]], "Input",
CellChangeTimes->{{3.57791779953125*^9, 3.57791780503125*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Xa", "=",
RowBox[{"{",
RowBox[{
"x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7",
",", "x8", ",", "x9"}], "}"}]}]], "Input",
CellChangeTimes->{{3.577915885125*^9, 3.577915917671875*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"x1", ",", "x2", ",", "x3", ",", "x4", ",", "x5", ",", "x6", ",", "x7", ",",
"x8", ",", "x9"}], "}"}]], "Output",
CellChangeTimes->{
3.577915921125*^9, 3.5779202114375*^9, 3.577920516515625*^9,
3.577920662203125*^9, 3.57792077490625*^9, 3.57792090509375*^9,
3.577921145078125*^9, 3.577921329484375*^9, 3.577921423265625*^9,
3.577957103968339*^9, 3.5779572906382647`*^9, {3.577957337563146*^9,
3.5779573648007936`*^9}, 3.5779573998384547`*^9, 3.5779574405545254`*^9, {
3.5779574803345947`*^9, 3.5779575349346905`*^9}, 3.577958833036192*^9,
3.577960538064765*^9, {3.5779607232682877`*^9, 3.5779608705013447`*^9},
3.577960901170998*^9, 3.577961447695015*^9, 3.5779616069712925`*^9, {
3.577961638124547*^9, 3.5779616672029977`*^9}, 3.577961702599459*^9, {
3.5779617344391146`*^9, 3.5779617594615583`*^9}, {3.5779617927208166`*^9,
3.577961846057309*^9}, {3.5779618785053663`*^9, 3.5779619036214094`*^9},
3.57801215725*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Ca", "=",
RowBox[{"{",
RowBox[{
"c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7",
",", "c8", ",", "c9"}], "}"}]}]], "Input",
CellChangeTimes->{{3.577915931921875*^9, 3.577915967953125*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"c1", ",", "c2", ",", "c3", ",", "c4", ",", "c5", ",", "c6", ",", "c7", ",",
"c8", ",", "c9"}], "}"}]], "Output",
CellChangeTimes->{
3.577915976625*^9, 3.577920215953125*^9, 3.577920310953125*^9,
3.577920517265625*^9, 3.577920663078125*^9, 3.577920775703125*^9,
3.577920905765625*^9, 3.57792114575*^9, 3.577921330125*^9,
3.57792142384375*^9, 3.577957106386343*^9, 3.5779572916366663`*^9, {
3.577957338327547*^9, 3.577957365424795*^9}, 3.577957400743256*^9,
3.577957441303327*^9, {3.577957481020996*^9, 3.577957535979892*^9},
3.5779588343153944`*^9, 3.577960599544472*^9, {3.577960723892289*^9,
3.577960871172146*^9}, 3.5779609019665995`*^9, 3.577961448365816*^9,
3.577961607517294*^9, {3.577961638935748*^9, 3.5779616678269987`*^9},
3.577961703566661*^9, {3.577961735063116*^9, 3.5779617600699596`*^9}, {
3.577961793391618*^9, 3.5779618468841105`*^9}, {3.5779618793477674`*^9,
3.577961904604212*^9}, 3.578012158671875*^9}]
}, Open ]],
Cell[BoxData[
RowBox[{"For", "[",
RowBox[{
RowBox[{"i", "=", "1"}], ",",
RowBox[{"i", "\", "9"}], ",",
RowBox[{"i", "++"}], ",",
RowBox[{
RowBox[{"Ca", "[",
RowBox[{"[", "i", "]"}], "]"}], "=",
RowBox[{"CM", "[",
RowBox[{"1", ",", "i"}], "]"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.577915983546875*^9, 3.577916019953125*^9},
3.57792022403125*^9, 3.57792052028125*^9, 3.5779206656875*^9,
3.577920778296875*^9, 3.577920907875*^9, 3.577921140296875*^9,
3.577921332234375*^9, 3.57792142584375*^9, 3.577957226662553*^9,
3.5779572941638703`*^9, 3.577957335176342*^9, 3.577957367405998*^9,
3.5779574034576607`*^9, 3.577957444064532*^9, {3.5779574828929996`*^9,
3.577957538663097*^9}, 3.5779606027268777`*^9, {3.577960726232293*^9,
3.577960872778949*^9}, 3.577960904415804*^9, {3.5779614517042217`*^9,
3.5779614520474224`*^9}, 3.577961505836316*^9, {3.5779616092020965`*^9,
3.5779616093892965`*^9}, {3.577961640604951*^9, 3.5779616696366014`*^9},
3.577961705345064*^9, {3.5779617369975195`*^9, 3.577961762113563*^9}, {
3.5779617950764203`*^9, 3.577961851064918*^9}, {3.5779618822649727`*^9,
3.577961906897415*^9}, 3.578012176296875*^9}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]], "Input"],
Cell[BoxData[
RowBox[{
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "+",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}]], "Output",
CellChangeTimes->{
3.577920239578125*^9, {3.577920313765625*^9, 3.577920337375*^9},
3.577920523875*^9, 3.57792066971875*^9, 3.577920780875*^9,
3.577920912375*^9, 3.577921147703125*^9, 3.5779213341875*^9,
3.577921427984375*^9, 3.5779571106607504`*^9, 3.5779572305781593`*^9,
3.577957296800275*^9, {3.577957340215151*^9, 3.577957369621202*^9},
3.5779574064528666`*^9, 3.5779574463577356`*^9, {3.577957484733803*^9,
3.5779575407691*^9}, 3.5779588373105993`*^9, 3.577960607391286*^9, {
3.577960728775098*^9, 3.5779608753061533`*^9}, 3.577960906849408*^9,
3.5779614551050277`*^9, 3.577961509346322*^9, 3.5779616115109005`*^9, {
3.5779616432101555`*^9, 3.5779616717114058`*^9}, 3.577961707607068*^9, {
3.5779617396339235`*^9, 3.5779617643131666`*^9}, {3.5779617971824245`*^9,
3.5779618537169228`*^9}, {3.5779618846049767`*^9,
3.5779619094246197`*^9}, {3.578012161203125*^9, 3.57801217953125*^9}}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Ca", "[",
RowBox[{"[", "3", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{3.5779574142996798`*^9, 3.577961516116734*^9,
3.5779616465173616`*^9}],
Cell, "Output",
CellChangeTimes->{3.5779574163276834`*^9, 3.5779615176611366`*^9,
3.5779616484049644`*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Ca", "[",
RowBox[{"[", "5", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{3.577957376235614*^9}],
Cell, "Output",
CellChangeTimes->{3.5779573779048166`*^9, 3.5779614600346365`*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Ca", "[",
RowBox[{"[", "6", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{3.5779573112927003`*^9}],
Cell, "Output",
CellChangeTimes->{
3.5779573131491036`*^9, 3.5779573438343573`*^9, 3.5779573794336195`*^9,
3.5779574208204913`*^9, 3.5779574530345473`*^9, 3.5779575154814568`*^9,
3.57796080484083*^9, {3.5779608543709164`*^9, 3.5779608784573584`*^9},
3.577960912044217*^9, 3.5779614619378395`*^9, 3.577961522372345*^9,
3.57796161703331*^9, {3.577961650978969*^9, 3.5779616775146155`*^9},
3.5779617114602747`*^9, {3.577961801144831*^9, 3.5779618299268813`*^9}}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Ca", "[",
RowBox[{"[", "7", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{3.577921461734375*^9}],
Cell, "Output",
CellChangeTimes->{
3.57792149215625*^9, 3.5779571133283553`*^9, 3.5779573808844213`*^9,
3.5779574235192957`*^9, {3.577957489351411*^9, 3.5779575470715113`*^9},
3.5779588406958055`*^9, 3.577960732409904*^9, 3.577960778851185*^9,
3.5779614640906434`*^9, 3.577961617641711*^9, 3.5779616533033733`*^9,
3.5779617130982776`*^9, {3.5779618019560328`*^9, 3.577961888005782*^9}}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Ca", "[",
RowBox[{"[", "8", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{3.577957303118286*^9}],
Cell, "Output",
CellChangeTimes->{
3.5779573073770933`*^9, 3.577957382647225*^9, 3.5779574565133533`*^9, {
3.5779574910986137`*^9, 3.5779575189290624`*^9}, {3.577960756371546*^9,
3.5779608308772755`*^9}, 3.577960881717764*^9, 3.577960915320223*^9,
3.5779614659002466`*^9, 3.5779615232459464`*^9, 3.577961618671313*^9,
3.5779616809778214`*^9, 3.5779617145334797`*^9, {3.5779617456243343`*^9,
3.5779617686187744`*^9}, {3.577961803796836*^9, 3.5779618329844866`*^9}, {
3.577961889378585*^9, 3.577961912965826*^9}}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Ca", "[",
RowBox[{"[", "9", "]"}], "]"}], "=", "0"}]], "Input",
CellChangeTimes->{{3.577916107859375*^9, 3.577916113453125*^9}, {
3.577920324765625*^9, 3.577920332875*^9}, {3.5779205288125*^9,
3.577920534375*^9}, {3.57792067859375*^9, 3.577920688875*^9}, {
3.57792078446875*^9, 3.577920797171875*^9}, {3.57792091940625*^9,
3.577920923875*^9}, {3.577921154453125*^9, 3.577921160328125*^9}, {
3.577921339734375*^9, 3.577921348109375*^9}, {3.577921432890625*^9,
3.577921435703125*^9}}],
Cell, "Output",
CellChangeTimes->{
3.57791611621875*^9, {3.57792032565625*^9, 3.57792033440625*^9}, {
3.577920530328125*^9, 3.577920535140625*^9}, {3.577920676546875*^9,
3.57792069140625*^9}, {3.577920785734375*^9, 3.577920798453125*^9}, {
3.57792091690625*^9, 3.57792092634375*^9}, {3.57792115590625*^9,
3.577921160984375*^9}, {3.577921341484375*^9, 3.577921348890625*^9}, {
3.577921433703125*^9, 3.577921437140625*^9}, 3.577957114155156*^9,
3.5779572385809736`*^9, 3.577957346314761*^9, 3.5779573843164277`*^9,
3.5779574262025003`*^9, 3.577957459134158*^9, 3.5779574929862175`*^9,
3.5779575497079163`*^9, 3.5779588425366087`*^9, 3.5779606144112983`*^9, {
3.5779607339075065`*^9, 3.577960757759948*^9}, {3.5779608577717223`*^9,
3.577960883308967*^9}, 3.577961466820648*^9, 3.577961619373314*^9, {
3.5779616551441765`*^9, 3.577961682569024*^9}, 3.577961716046683*^9,
3.5779617465759363`*^9, {3.577961834419689*^9, 3.5779618634045396`*^9}}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Delta1", "=",
RowBox[{
SubsuperscriptBox["\",
RowBox[{"-", "\"}], "\"],
RowBox[{
SubsuperscriptBox["\",
RowBox[{"-", "\"}], "\"],
RowBox[{
SubsuperscriptBox["\",
RowBox[{"-", "\"}], "\"],
RowBox[{
SubsuperscriptBox["\",
RowBox[{"-", "\"}], "\"],
RowBox[{
SubsuperscriptBox["\",
RowBox[{"-", "\"}], "\"],
RowBox[{
SubsuperscriptBox["\",
RowBox[{"-", "\"}], "\"],
RowBox[{
SubsuperscriptBox["\",
RowBox[{"-", "\"}], "\"],
RowBox[{
SubsuperscriptBox["\",
RowBox[{"-", "\"}], "\"],
RowBox[{
SubsuperscriptBox["\",
RowBox[{"-", "\"}], "\"],
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/",
"Delta"}], "]"}],
RowBox[{"\", "x1"}],
RowBox[{"\", "x2"}],
RowBox[{"\", "x3"}],
RowBox[{"\", "x4"}],
RowBox[{"\", "x5"}],
RowBox[{"\", "x6"}],
RowBox[{"\", "x7"}],
RowBox[{"\", "x8"}],
RowBox[{"\", "x9"}]}]}]}]}]}]}]}]}]}]}]}]], "Input",
CellChangeTimes->{{3.5779153084375*^9, 3.57791531240625*^9}, {
3.5779153614375*^9, 3.57791536246875*^9}, {3.57791678490625*^9,
3.5779168805625*^9}, 3.577917071640625*^9, 3.57791718425*^9, {
3.57791733884375*^9, 3.57791734359375*^9}, {3.577917406875*^9,
3.577917409*^9}, {3.577917781921875*^9, 3.577917795890625*^9}, {
3.57791886146875*^9, 3.57791887259375*^9}, {3.57791891146875*^9,
3.577918964453125*^9}}],
Cell[BoxData[
RowBox[{"97.40909103400237`", " ",
SuperscriptBox["Delta", "8"], " ",
RowBox[{"If", "[",
RowBox[{
RowBox[{
RowBox[{"Re", "[",
SuperscriptBox["Delta", "2"], "]"}], ">", "0"}], ",",
FractionBox[
RowBox[{"1.7724538509055159`", " ",
SuperscriptBox["\",
FractionBox["1.1102230246251565`*^-16",
SuperscriptBox["Delta", "2"]]]}],
SqrtBox[
FractionBox["1",
SuperscriptBox["Delta", "2"]]]], ",",
RowBox[{"Integrate", "[",
RowBox[{
SuperscriptBox["\",
FractionBox[
RowBox[{"1.1102230246251565`*^-16", "-",
RowBox[{"1.`", " ",
SuperscriptBox["x9", "2"]}]}],
SuperscriptBox["Delta", "2"]]], ",",
RowBox[{"{",
RowBox[{"x9", ",",
RowBox[{"-", "\"}], ",", "\"}], "}"}], ",",
RowBox[{"Assumptions", "\",
RowBox[{
RowBox[{"Re", "[",
SuperscriptBox["Delta", "2"], "]"}], "\", "0"}]}]}],
"]"}]}], "]"}]}]], "Output",
CellChangeTimes->{3.577915314703125*^9, 3.57791536890625*^9,
3.57791688871875*^9, 3.5779170798125*^9, 3.57791719340625*^9,
3.5779173640625*^9, 3.5779174255*^9, 3.57791786128125*^9,
3.577918058328125*^9, 3.577918134703125*^9, 3.577919019796875*^9,
3.577920388796875*^9, 3.5779205859375*^9, 3.577920727078125*^9,
3.57792083884375*^9, 3.577920979015625*^9, 3.5779212189375*^9,
3.57792139025*^9, 3.577921489421875*^9, 3.5779606695417943`*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Delta1", "=",
StyleBox[
RowBox[{"97.40909103400237`", " ",
SuperscriptBox["Delta", "8"], " ",
FractionBox[
RowBox[{"1.7724538509055159`", " ",
SuperscriptBox["\",
FractionBox["1.1102230246251565`*^-16",
SuperscriptBox["Delta", "2"]]]}],
SqrtBox[
FractionBox["1",
SuperscriptBox["Delta", "2"]]]]}],
FontWeight->"Plain"]}]], "Input",
CellChangeTimes->{{3.577919054890625*^9, 3.577919076328125*^9}, {
3.577920422671875*^9, 3.57792044959375*^9}, {3.577920594890625*^9,
3.5779205978125*^9}, {3.5779207405*^9, 3.57792074359375*^9}, {
3.577920846078125*^9, 3.57792084959375*^9}, 3.577921100453125*^9,
3.577921302609375*^9, {3.577921396640625*^9, 3.57792140075*^9},
3.577921500234375*^9, {3.5779606881994267`*^9, 3.5779606915378323`*^9}}],
Cell[BoxData[
FractionBox[
RowBox[{"172.65311851642346`", " ",
SuperscriptBox["Delta", "8"], " ",
SuperscriptBox["\",
FractionBox["1.1102230246251565`*^-16",
SuperscriptBox["Delta", "2"]]]}],
SqrtBox[
FractionBox["1",
SuperscriptBox["Delta", "2"]]]]], "Output",
CellChangeTimes->{
3.577957275022637*^9, 3.57795735116637*^9, 3.577957388263234*^9,
3.577957429759307*^9, 3.5779574644225674`*^9, {3.577957495341821*^9,
3.577957524966273*^9}, 3.577957555479926*^9, 3.5779606933318357`*^9,
3.578012166234375*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"DeltaX", "=",
RowBox[{"FindRoot", "[",
RowBox[{
RowBox[{"Delta1", "\", "1"}], ",",
RowBox[{"{",
RowBox[{"Delta", ",", "0.1"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.577917987171875*^9, 3.577918019109375*^9}, {
3.57791809359375*^9, 3.57791809525*^9}, {3.577918142421875*^9,
3.57791816790625*^9}, 3.57791913871875*^9, {3.577919206734375*^9,
3.57791921584375*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"Delta", "\", "0.5641895835477563`"}], "}"}]], "Output",
CellChangeTimes->{
3.577918020859375*^9, {3.577918138328125*^9, 3.5779181693125*^9},
3.57791914315625*^9, 3.5779192174375*^9, 3.577920459234375*^9,
3.577920625578125*^9, 3.577920748296875*^9, 3.577920852515625*^9,
3.577921108140625*^9, 3.577921305546875*^9, 3.577921403703125*^9,
3.577921503515625*^9, {3.5779572551794024`*^9, 3.57795727691024*^9}, {
3.5779573234295216`*^9, 3.577957352414372*^9}, 3.577957389792037*^9,
3.5779574309761086`*^9, 3.5779574661853704`*^9, {3.577957497042224*^9,
3.5779575262922754`*^9}, 3.577957557071129*^9, 3.577958853019827*^9,
3.57796070150625*^9, 3.578012167703125*^9}]
}, Open ]],
Cell[BoxData["\:805a\:7c7b\:4e2d\:5fc3C1\:5230C21\:3001\:9ad8\:65af\:6838\
\:51fd\:6570u1\:5230u21\:5982\:4e0b\:ff1a"], "Input",
CellChangeTimes->{{3.57792124640625*^9, 3.577921284203125*^9}, {
3.577960705312657*^9, 3.577960707621461*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"C1", "=", "Ca"}]], "Input",
CellChangeTimes->{{3.577920010125*^9, 3.5779200415*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.304348`", ",", "0.552818`", ",", "0.33037`", ",", "0.025823`", ",",
"0.538462`", ",", "0.752072`", ",", "0.408943`", ",", "0.504532`", ",",
"0.`"}], "}"}]], "Output",
CellChangeTimes->{3.5779200429375*^9, 3.577957279796245*^9,
3.577960710273465*^9, 3.5780121855*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"u1", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{{3.577915830328125*^9, 3.57791584871875*^9}, {
3.57791608375*^9, 3.57791613809375*^9}, 3.577917047203125*^9, {
3.577919193484375*^9, 3.5779192326875*^9}}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.57791618121875*^9, 3.577917049421875*^9,
3.577919237265625*^9, 3.577957283197051*^9, 3.577960712457469*^9,
3.578012187078125*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"C2", "=", "Ca"}]], "Input",
CellChangeTimes->{3.57792047321875*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.339186`", ",", "0.4943`", ",", "0.099338`", ",",
"0.321678`", ",", "0.375283`", ",", "0.`", ",", "0.505539`", ",", "0.`"}],
"}"}]], "Output",
CellChangeTimes->{3.577920475421875*^9, 3.5779573274855285`*^9,
3.5779607401163173`*^9, 3.578012204671875*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"u2", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{3.577920484109375*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.57792048809375*^9, 3.577957329482332*^9,
3.5779607413955193`*^9, 3.578012205484375*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"C3", "=", "Ca"}]], "Input",
CellChangeTimes->{3.57792064125*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.521739`", ",", "0.334022`", ",", "0.3555`", ",", "0.025156`", ",",
"0.48951`", ",", "0.37679`", ",", "0.411382`", ",", "0.`", ",", "0.`"}],
"}"}]], "Output",
CellChangeTimes->{3.5779206423125*^9, 3.5779573552067766`*^9,
3.5779607642027593`*^9, 3.5780122103125*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"u3", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{3.57792064921875*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.57792065059375*^9, 3.5779573573283806`*^9,
3.5779607654819613`*^9, 3.578012211515625*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"C4", "=", "Ca"}]], "Input",
CellChangeTimes->{3.5779207559375*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.565217`", ",", "0.705518`", ",", "0.510223`", ",", "0.066892`", ",",
"0.244755`", ",", "0.748304`", ",", "0.`", ",", "0.`", ",", "0.243032`"}],
"}"}]], "Output",
CellChangeTimes->{3.577920757265625*^9, 3.5779573926780424`*^9,
3.5779607861363974`*^9, 3.578012216171875*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"u4", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{3.57792076325*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.577920764625*^9, 3.577957394799646*^9,
3.5779607873531995`*^9, 3.5780122169375*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"C5", "=", "Ca"}]], "Input",
CellChangeTimes->{3.577920860671875*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.565217`", ",", "0.71046`", ",", "0.64973`", ",", "0.119897`", ",",
"0.468531`", ",", "0.`", ",", "0.636585`", ",", "0.`", ",", "0.766748`"}],
"}"}]], "Output",
CellChangeTimes->{3.5779208614375*^9, 3.5779574339713144`*^9,
3.5779608137328453`*^9, 3.5780122209375*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"u5", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{3.577920869375*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.57792087128125*^9, 3.577957435188116*^9,
3.577960815043248*^9, 3.578012221953125*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"C6", "=", "Ca"}]], "Input",
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.130435`", ",", "0.682724`", ",", "0.258697`", ",", "0.019299`", ",",
"0.51049`", ",", "0.420497`", ",", "0.535772`", ",", "0.`", ",",
"0.494866`"}], "}"}]], "Output",
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.5779574726281815`*^9,
3.5779608373044868`*^9, 3.578012227359375*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"u6", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
3.5779574736733837`*^9, 3.5779608382560883`*^9, 3.57801223009375*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"C7", "=", "Ca"}]], "Input",
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
3.577921316125*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.695652`", ",", "0.71828`", ",", "0.33973`", ",", "0.110285`", ",",
"0.335664`", ",", "0.`", ",", "0.636585`", ",", "0.780463`", ",", "0.`"}],
"}"}]], "Output",
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
3.57795750042743*^9, 3.5779608630913315`*^9, 3.578012250234375*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"u7", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
3.57792132028125*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
3.5779213213125*^9, 3.577957502221433*^9, 3.5779608640897336`*^9,
3.578012251359375*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"C8", "=", "Ca"}]], "Input",
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
3.577921316125*^9, 3.57792141421875*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.652174`", ",", "0.569711`", ",", "0.414297`", ",", "0.175398`", ",",
"0.167832`", ",", "0.`", ",", "0.544715`", ",", "0.`", ",", "0.`"}],
"}"}]], "Output",
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
3.577921415375*^9, 3.5779575288038797`*^9, 3.577960893433385*^9,
3.578012260515625*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"u8", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
3.57792132028125*^9, 3.577921416921875*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
3.5779213213125*^9, 3.577921418765625*^9, 3.577957530145482*^9,
3.5779608945565863`*^9, 3.57801226165625*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"C9", "=", "Ca"}]], "Input",
CellChangeTimes->{3.577920860671875*^9, 3.5779211201875*^9,
3.577921316125*^9, 3.57792141421875*^9, 3.577921513890625*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.`", ",", "0.395544`", ",", "0.027011`", ",", "0.048087`", ",",
"0.496503`", ",", "0.`", ",", "0.452033`", ",", "0.`", ",", "0.278729`"}],
"}"}]], "Output",
CellChangeTimes->{3.5779208614375*^9, 3.577921121*^9, 3.57792131765625*^9,
3.577921415375*^9, 3.577921514890625*^9, 3.577957560674735*^9,
3.5779588670442514`*^9, 3.577961429021782*^9, 3.5779615287839565`*^9,
3.578012268234375*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"u9", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]], "Input",
CellChangeTimes->{3.577920869375*^9, 3.57792112309375*^9,
3.57792132028125*^9, 3.577921416921875*^9, 3.577921516859375*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.57792087128125*^9, 3.577921124328125*^9,
3.5779213213125*^9, 3.577921418765625*^9, 3.577921518078125*^9,
3.5779575617355366`*^9, 3.5779588687914543`*^9, 3.5779614354177933`*^9,
3.577961530421959*^9, 3.578012269125*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"C10", "=", "Ca"}], "\",
RowBox[{"u10", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.565217`", ",", "0.572293`", ",", "0.655012`", ",", "0.281852`", ",",
"0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
CellChangeTimes->{3.5779614955246983`*^9, 3.57801227703125*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.5779614955246983`*^9, 3.578012277046875*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"C11", "=", "Ca"}], "\",
RowBox[{"u11", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
3.57796154237158*^9, 3.5779615434011817`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.717391`", ",", "0.736205`", ",", "0.267704`", ",", "0.036152`", ",",
"0.307692`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
"}"}]], "Output",
CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
3.57801228203125*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.5779614955246983`*^9, 3.5779616282029295`*^9,
3.57801228203125*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"C12", "=", "Ca"}], "\",
RowBox[{"u12", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
3.57796154237158*^9, 3.5779615576284065`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.913043`", ",", "0.170478`", ",", "0.`", ",", "0.012973`", ",",
"0.293706`", ",", "0.`", ",", "0.`", ",", "0.672709`", ",", "0.`"}],
"}"}]], "Output",
CellChangeTimes->{3.5779616594029837`*^9, 3.57801228759375*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.5779616594029837`*^9, 3.578012287609375*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"C13", "=", "Ca"}], "\",
RowBox[{"u13", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
3.57796154237158*^9, 3.5779615599684105`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.73913`", ",", "0.193199`", ",", "0.160584`", ",", "0.037907`", ",",
"0.461538`", ",", "0.`", ",", "0.684553`", ",", "0.`", ",", "0.`"}],
"}"}]], "Output",
CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.5779616928806424`*^9, 3.578012300078125*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"C14", "=", "Ca"}], "\",
RowBox[{"u14", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
3.57796154237158*^9, 3.5779615663176217`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.826087`", ",", "0.203969`", ",", "0.234619`", ",", "0.27224`", ",",
"0.265734`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
"}"}]], "Output",
CellChangeTimes->{3.5779617235034957`*^9, 3.57801230559375*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.5779617235034957`*^9, 3.578012305609375*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"C15", "=", "Ca"}], "\",
RowBox[{"u15", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
3.57796154237158*^9, 3.57796157098203*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.413043`", ",", "0.551859`", ",", "0.544826`", ",", "0.230503`", ",",
"0.244755`", ",", "0.53052`", ",", "0.819512`", ",", "0.`", ",", "0.`"}],
"}"}]], "Output",
CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.577961751599145*^9, 3.57801231003125*^9}]
}, Open ]],
Cell[BoxData[
RowBox[{"For", "[",
RowBox[{
RowBox[{"i", "=", "1"}], ",",
RowBox[{"i", "\", "9"}], ",",
RowBox[{"i", "++"}], ",",
RowBox[{
RowBox[{"Ca", "[",
RowBox[{"[", "i", "]"}], "]"}], "=",
RowBox[{"CM", "[",
RowBox[{"21", ",", "i"}], "]"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.578012202078125*^9, 3.5780123368125*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"C16", "=", "Ca"}], "\",
RowBox[{"u16", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615741020355`*^9,
3.5779615751004367`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.434783`", ",", "0.551785`", ",", "0.530346`", ",", "0.151651`", ",",
"0.79021`", ",", "0.529013`", ",", "0.409756`", ",", "0.`", ",", "1.`"}],
"}"}]], "Output",
CellChangeTimes->{3.5779617754359865`*^9, 3.578012314984375*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]], "Output",
CellChangeTimes->{3.5779617754359865`*^9, 3.578012315*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"C17", "=", "Ca"}], "\",
RowBox[{"u17", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615779084415`*^9,
3.577961578953644*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.347826`", ",", "0.705444`", ",", "0.109343`", ",", "0.072008`", ",",
"0.496503`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.752567`"}],
"}"}]], "Output",
CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.57796181215845*^9, 3.578012319296875*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"C18", "=", "Ca"}], "\",
RowBox[{"u18", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961581886449*^9,
3.5779615828848505`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.173913`", ",", "0.984656`", ",", "0.420753`", ",", "0.137022`", ",",
"0.321678`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}],
"}"}]], "Output",
CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.577961839926499*^9, 3.57801232378125*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"C19", "=", "Ca"}], "\",
RowBox[{"u19", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615879548593`*^9,
3.577961588890861*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.391304`", ",", "1.`", ",", "0.452931`", ",", "0.150909`", ",",
"0.342657`", ",", "0.370761`", ",", "0.`", ",", "0.509567`", ",", "0.`"}],
"}"}]], "Output",
CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.5779618714853535`*^9, 3.5780123283125*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"C20", "=", "Ca"}], "\",
RowBox[{"u20", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
3.57796154237158*^9, 3.5779615434011817`*^9}, {3.5779615923384666`*^9,
3.57796159382047*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.782609`", ",", "0.751623`", ",", "0.177646`", ",", "0.350845`", ",",
"0.412587`", ",", "0.502638`", ",", "0.`", ",", "0.`", ",", "0.178973`"}],
"}"}]], "Output",
CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.5779618958681965`*^9, 3.5780123335625*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"C21", "=", "Ca"}], "\",
RowBox[{"u21", "=",
RowBox[{
RowBox[{"Exp", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}], ".",
RowBox[{"(",
RowBox[{"Xa", "-", "Ca"}], ")"}]}]}], "/", "Delta"}], "/", "Delta"}],
"]"}], "/.", "DeltaX"}]}]}], "Input",
CellChangeTimes->{{3.5779614893314877`*^9, 3.577961493964696*^9}, {
3.57796154237158*^9, 3.5779615434011817`*^9}, {3.577961596971675*^9,
3.5779615991556787`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.608696`", ",", "0.606152`", ",", "0.158058`", ",", "0.09017`", ",",
"1.`", ",", "0.166541`", ",", "0.278049`", ",", "0.`", ",", "0.236675`"}],
"}"}]], "Output",
CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}],
Cell[BoxData[
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}],
")"}]}]]], "Output",
CellChangeTimes->{3.57796192085944*^9, 3.57801233915625*^9}]
}, Open ]],
Cell, "Input",
CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"y1a", "=",
RowBox[{"Table", "[",
RowBox[{"x", ",",
RowBox[{"{",
RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
3.5779226649375*^9, 3.5779226810625*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
"35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
"48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
"}"}]], "Output",
CellChangeTimes->{3.577922682296875*^9, 3.5779575713607535`*^9,
3.577958873908263*^9, 3.5779619268186502`*^9, 3.57801234115625*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"3", ",", "10"}], "]"}], "]"}]], "Input",
CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
3.577922912015625*^9, 3.577922912171875*^9}, 3.577958877121869*^9}],
Cell, "Output",
CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
3.577922913203125*^9, 3.577957573622758*^9, 3.5779588807410755`*^9,
3.577961929080654*^9, 3.5780123419375*^9}]
}, Open ]],
Cell[BoxData[
RowBox[{"For", "[",
RowBox[{
RowBox[{"i", "=", "1"}], ",",
RowBox[{"i", "\", "60"}], ",",
RowBox[{"i", "++"}], ",",
RowBox[{
RowBox[{"y1a", "[",
RowBox[{"[", "i", "]"}], "]"}], "=",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
3.577922923203125*^9}, 3.5779588839702806`*^9}],
Cell[CellGroupData[{
Cell, "Input",
CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.277091`", ",", "0.220259`", ",", "0.899882`", ",", "0.265607`", ",",
"0.642226`", ",", "0.306243`", ",", "0.186985`", ",", "0.175501`", ",",
"0.147821`", ",", "0.352768`", ",", "0.23881`", ",", "0.095701`", ",",
"0.162839`", ",", "0.335395`", ",", "0.160483`", ",", "0.398115`", ",",
"0.157833`", ",", "0.315665`", ",", "0.492344`", ",", "0.638398`", ",",
"0.392521`", ",", "0.362191`", ",", "0.114252`", ",", "0.401355`", ",",
"0.827444`", ",", "0.676973`", ",", "0.331272`", ",", "0.845701`", ",",
"0.287102`", ",", "0.`", ",", "0.050059`", ",", "0.254122`", ",",
"0.086867`", ",", "0.659894`", ",", "0.317138`", ",", "0.605124`", ",",
"0.32126`", ",", "0.595406`", ",", "0.555359`", ",", "0.333333`", ",",
"0.149588`", ",", "0.493522`", ",", "0.224676`", ",", "0.410188`", ",",
"0.668139`", ",", "0.102179`", ",", "0.380742`", ",", "0.319494`", ",",
"0.031508`", ",", "0.292108`", ",", "0.329505`", ",", "0.337456`", ",",
"0.766784`", ",", "0.676678`", ",", "0.541519`", ",", "0.064488`", ",",
"0.463192`", ",", "0.388398`", ",", "0.262367`", ",", "0.290931`"}],
"}"}]], "Output",
CellChangeTimes->{3.57792293246875*^9, 3.577957577756765*^9,
3.577958888806289*^9, 3.5779619425902777`*^9, 3.5780123438125*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"m60n21", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"Table", "[",
RowBox[{"y", ",",
RowBox[{"{",
RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
3.577924052828125*^9, 3.577924101671875*^9}, {3.5779619669419203`*^9,
3.5779619706547265`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}]}], "}"}]], "Output",
CellChangeTimes->{
3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
3.577957579987569*^9, 3.577958891536294*^9, {3.5779619459910836`*^9,
3.5779619748823338`*^9}, 3.578012345453125*^9}]
}, Open ]],
Cell[BoxData[
RowBox[{"For", "[",
RowBox[{
RowBox[{"i", "=", "1"}], ",",
RowBox[{"i", "\", "60"}], ",",
RowBox[{"i", "++"}], ",",
RowBox[{"{", "\",
RowBox[{
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}], "=",
RowBox[{"u1", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}], "=",
RowBox[{"u2", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}], "=",
RowBox[{"u3", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}], "=",
RowBox[{"u4", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}], "=",
RowBox[{"u5", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}], "=",
RowBox[{"u6", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}], "=",
RowBox[{"u7", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}], "=",
RowBox[{"u8", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}], "=",
RowBox[{"u9", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "10"}], "]"}], "]"}], "=",
RowBox[{"u10", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "11"}], "]"}], "]"}], "=",
RowBox[{"u11", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "12"}], "]"}], "]"}], "=",
RowBox[{"u12", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "13"}], "]"}], "]"}], "=",
RowBox[{"u13", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "14"}], "]"}], "]"}], "=",
RowBox[{"u14", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "15"}], "]"}], "]"}], "=",
RowBox[{"u15", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "16"}], "]"}], "]"}], "=",
RowBox[{"u16", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "17"}], "]"}], "]"}], "=",
RowBox[{"u17", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "18"}], "]"}], "]"}], "=",
RowBox[{"u18", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "19"}], "]"}], "]"}], "=",
RowBox[{"u19", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "20"}], "]"}], "]"}], "=",
RowBox[{"u20", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "21"}], "]"}], "]"}], "=",
RowBox[{"u21", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}],
"\", "}"}]}], "\", "]"}]], "Input",
CellChangeTimes->{{3.5779241165*^9, 3.57792417728125*^9}, {
3.57792428359375*^9, 3.577924585109375*^9}, {3.577958919491543*^9,
3.5779589224867477`*^9}, {3.5779619825731473`*^9, 3.5779620676400957`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"w1a", "=",
RowBox[{"LeastSquares", "[",
RowBox[{"m60n21", ",", "y1a"}], "]"}]}]], "Input",
CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {
3.577924662765625*^9, 3.57792466596875*^9}, {3.577962074644508*^9,
3.5779620748317084`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{"0.32564305572552416`", ",", "0.500820838606441`", ",",
RowBox[{"-", "0.5945873894818967`"}], ",",
RowBox[{"-", "0.1999688587779198`"}], ",", "0.020180806675835994`", ",",
RowBox[{"-", "0.03345934908892623`"}], ",", "0.25282438852646905`", ",",
RowBox[{"-", "0.17602467625404622`"}], ",", "0.3961180670900672`", ",",
"0.02759193650965952`", ",",
RowBox[{"-", "0.320472847796449`"}], ",",
RowBox[{"-", "0.07581214474544527`"}], ",", "0.4812237524557292`", ",",
"0.7528674241482847`", ",", "0.6665374509702799`", ",",
"0.22861495086373018`", ",", "0.13092706311748484`", ",",
"0.5252475961933538`", ",",
RowBox[{"-", "0.10599338351843157`"}], ",", "0.6670272593678526`", ",",
"0.23580523388620733`"}], "}"}]], "Output",
CellChangeTimes->{3.577924621953125*^9, 3.5779246688125*^9,
3.5779575884583836`*^9, 3.577958952875601*^9, 3.5779620806661186`*^9,
3.578012349875*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"y1", "=",
RowBox[{"w1a", ".",
RowBox[{"{",
RowBox[{
"u1", ",", "u2", ",", "u3", ",", "u4", ",", "u5", ",", "u6", ",", "u7",
",", "u8", ",", "u9", ",", "u10", ",", "u11", ",", "u12", ",", "u13",
",", "u14", ",", "u15", ",", "u16", ",", "u17", ",", "u18", ",", "u19",
",", "u20", ",", "u21"}], "}"}]}]}]], "Input",
CellChangeTimes->{{3.57792471553125*^9, 3.577924755875*^9}, {
3.577924897078125*^9, 3.57792491596875*^9}, {3.577962095642144*^9,
3.5779621231449924`*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"0.22861495086373018`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
RowBox[{"0.020180806675835994`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
"+",
RowBox[{"0.13092706311748484`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
"-",
RowBox[{"0.03345934908892623`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
"+",
RowBox[{"0.3961180670900672`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
"-",
RowBox[{"0.1999688587779198`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
"+",
RowBox[{"0.23580523388620733`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
"+",
RowBox[{"0.6670272593678526`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
"+",
RowBox[{"0.25282438852646905`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]}], "-",
RowBox[{"0.07581214474544527`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]}], "-",
RowBox[{"0.10599338351843157`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]}], "+",
RowBox[{"0.500820838606441`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]}], "+",
RowBox[{"0.32564305572552416`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]}], "+",
RowBox[{"0.6665374509702799`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]}], "+",
RowBox[{"0.4812237524557292`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]}], "-",
RowBox[{"0.17602467625404622`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]}], "-",
RowBox[{"0.5945873894818967`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]}], "+",
RowBox[{"0.5252475961933538`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]}], "-",
RowBox[{"0.320472847796449`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]}], "+",
RowBox[{"0.7528674241482847`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]}], "+",
RowBox[{"0.02759193650965952`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]}]}]], "Output",
CellChangeTimes->{3.577924759875*^9, 3.577924921203125*^9,
3.57795759203079*^9, 3.5779589554964056`*^9, 3.5779621253913965`*^9,
3.5780123515625*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"y1fit", "=",
RowBox[{"Table", "[",
RowBox[{"x", ",",
RowBox[{"{",
RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {
3.5779252768125*^9, 3.577925277484375*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
",", "29"}], "}"}]], "Output",
CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9,
3.577957594916795*^9, 3.5779589579612093`*^9, 3.5779621294942036`*^9,
3.57801235340625*^9}]
}, Open ]],
Cell[BoxData[
RowBox[{"For", "[",
RowBox[{
RowBox[{"i", "=", "61"}], ",",
RowBox[{"i", "\", "89"}], ",",
RowBox[{"i", "++"}], ",", "\",
RowBox[{
RowBox[{
RowBox[{"y1fit", "[",
RowBox[{"[",
RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
RowBox[{"y1", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}],
"\", "]"}]], "Input",
CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {
3.577925286140625*^9, 3.577925306765625*^9}, {3.577958922517948*^9,
3.577958922549148*^9}}],
Cell[CellGroupData[{
Cell, "Input",
CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {
3.577925040484375*^9, 3.5779250440625*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.43193416525930517`", ",", "0.4501634853493982`", ",",
"0.33336034768525247`", ",", "0.4418609896858925`", ",",
"0.41030378932283024`", ",", "0.516814798191575`", ",",
"0.4476631213729994`", ",", "0.3016552978696669`", ",",
"0.378122167437847`", ",", "0.020339844919720733`", ",",
"0.018745375782087376`", ",", "0.2919925992695025`", ",",
"0.2649067959681263`", ",", "0.16343444284525593`", ",",
"0.4182466778551563`", ",", "0.27347752211364934`", ",",
"0.38554057386385654`", ",", "0.35253160453718047`", ",",
"0.2054745841100774`", ",", "0.45504377112716676`", ",",
"0.1598805094678612`", ",", "0.18662509982279485`", ",",
"0.10684797493248213`", ",", "0.013349212673286828`", ",",
"0.08215836003004297`", ",", "0.2979041599362813`", ",",
"0.05995976512343641`", ",", "0.3884793499104568`", ",",
"0.5361889337034293`"}], "}"}]], "Output",
CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9,
3.577925312375*^9, 3.5779575978808002`*^9, 3.5779589654960227`*^9,
3.5779621416934247`*^9, 3.578012355546875*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"y1fit", "=",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
"28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
"41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
"54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
"0.4319341652593058", ",", "0.4319341652593058`", ",",
"0.45016348534939865`", ",", "0.3333603476852527`", ",",
"0.44186098968589294`", ",", "0.41030378932283074`", ",",
"0.5168147981915754`", ",", "0.4476631213729997`", ",",
"0.30165529786966755`", ",", "0.3781221674378473`", ",",
"0.020339844919720775`", ",", "0.018745375782087393`", ",",
"0.2919925992695026`", ",", "0.26490679596812655`", ",",
"0.16343444284525593`", ",", "0.4182466778551567`", ",",
"0.27347752211364945`", ",", "0.385540573863857`", ",",
"0.3525316045371807`", ",", "0.20547458411007796`", ",",
"0.4550437711271672`", ",", "0.1598805094678611`", ",",
"0.18662509982279502`", ",", "0.10684797493248224`", ",",
"0.013349212673286806`", ",", "0.08215836003004302`", ",",
"0.2979041599362817`", ",", "0.05995976512343637`", ",",
"0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]}]], "Input",
CellChangeTimes->{{3.577959701349306*^9, 3.5779597161381316`*^9}, {
3.5779621548286476`*^9, 3.5779621618642597`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
"35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
"48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
"0.4319341652593058`", ",", "0.4319341652593058`", ",",
"0.45016348534939865`", ",", "0.3333603476852527`", ",",
"0.44186098968589294`", ",", "0.41030378932283074`", ",",
"0.5168147981915754`", ",", "0.4476631213729997`", ",",
"0.30165529786966755`", ",", "0.3781221674378473`", ",",
"0.020339844919720775`", ",", "0.018745375782087393`", ",",
"0.2919925992695026`", ",", "0.26490679596812655`", ",",
"0.16343444284525593`", ",", "0.4182466778551567`", ",",
"0.27347752211364945`", ",", "0.385540573863857`", ",",
"0.3525316045371807`", ",", "0.20547458411007796`", ",",
"0.4550437711271672`", ",", "0.1598805094678611`", ",",
"0.18662509982279502`", ",", "0.10684797493248224`", ",",
"0.013349212673286806`", ",", "0.08215836003004302`", ",",
"0.2979041599362817`", ",", "0.05995976512343637`", ",",
"0.3884793499104571`", ",", "0.5361889337034297`"}], "}"}]], "Output",
CellChangeTimes->{3.5779597200381384`*^9, 3.5779621650778656`*^9,
3.5780123569375*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"y10", "=",
RowBox[{"Table", "[",
RowBox[{"x", ",",
RowBox[{"{",
RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{3.5779253628125*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
",", "29"}], "}"}]], "Output",
CellChangeTimes->{3.57792536553125*^9, 3.577957599565603*^9,
3.577958967383626*^9, 3.5779621678858705`*^9, 3.578012358609375*^9}]
}, Open ]],
Cell[BoxData[
RowBox[{"For", "[",
RowBox[{
RowBox[{"i", "=", "61"}], ",",
RowBox[{"i", "\", "89"}], ",",
RowBox[{"i", "++"}], ",",
RowBox[{
RowBox[{"y10", "[",
RowBox[{"[",
RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "10"}], "]"}], "]"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9},
3.577958922549148*^9}],
Cell[CellGroupData[{
Cell, "Input",
CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`", ",",
"0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`", ",",
"0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
"0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
"0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
"0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
"0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
"0.694935`"}], "}"}]], "Output",
CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9,
3.577925393046875*^9, 3.5779576032628093`*^9, 3.577958971767234*^9,
3.5779621736734805`*^9, 3.57801236071875*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"y10", "=",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
"28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
"41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
"54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
"0.380742", ",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",",
"0.448763`", ",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",",
"0.057715`", ",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",",
"0.570966`", ",", "0.468198`", ",", "0.414016`", ",", "0.18669`", ",",
"0.442874`", ",", "0.68669`", ",", "0.244111`", ",", "1.`", ",",
"0.957892`", ",", "0.266784`", ",", "0.826855`", ",", "0.341873`", ",",
"0.412544`", ",", "0.322144`", ",", "0.370436`", ",", "0.333039`", ",",
"0.390754`", ",", "0.694935`"}], "}"}]}]], "Input",
CellChangeTimes->{{3.577959733438562*^9, 3.57795974955339*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
"35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
"48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.380742`",
",", "0.380742`", ",", "0.429034`", ",", "0.193168`", ",", "0.448763`",
",", "0.442285`", ",", "0.575383`", ",", "0.515607`", ",", "0.057715`",
",", "0.174617`", ",", "0.66755`", ",", "0.371025`", ",", "0.570966`", ",",
"0.468198`", ",", "0.414016`", ",", "0.18669`", ",", "0.442874`", ",",
"0.68669`", ",", "0.244111`", ",", "1.`", ",", "0.957892`", ",",
"0.266784`", ",", "0.826855`", ",", "0.341873`", ",", "0.412544`", ",",
"0.322144`", ",", "0.370436`", ",", "0.333039`", ",", "0.390754`", ",",
"0.694935`"}], "}"}]], "Output",
CellChangeTimes->{3.5779597517529936`*^9, 3.5779621844842997`*^9,
3.578012361734375*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"p1a", "=",
RowBox[{"ListPlot", "[",
RowBox[{"y1fit", ",",
RowBox[{"PlotJoined", "\", "True"}], ",",
RowBox[{"PlotStyle", "\",
RowBox[{"{",
RowBox[{"RGBColor", "[",
RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
RowBox[{"PlotRange", "\",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"61", ",", "89"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
RowBox[{"AxesOrigin", "\",
RowBox[{"{",
RowBox[{"61", ",", "0"}], "}"}]}], ",",
RowBox[{"Frame", "\", "True"}], ",",
RowBox[{"FrameLabel", "\",
RowBox[{"{",
RowBox[{
"\"\<\:7089\:6b21\>\"", ",",
"\"\<\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
\:ff09\>\""}], "}"}]}]}], "]"}]}]], "Input",
CellChangeTimes->{
3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
3.5779576143076286`*^9, 3.5779576277548523`*^9}, 3.577959769006624*^9,
3.577960184458948*^9, {3.5779602338174343`*^9, 3.577960278745513*^9}, {
3.577960347588433*^9, 3.5779603994429235`*^9}, 3.57801239140625*^9}],
Cell[BoxData[
GraphicsBox[{{}, {},
{RGBColor, LineBox[CompressedData["
1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN
a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
Y6nGQ3sAieueIw==
"]]}},
AspectRatio->NCache,
Axes->True,
AxesOrigin->{61, 0},
Frame->True,
FrameLabel->{
FormBox["\"\:7089\:6b21\"", TraditionalForm],
FormBox[
"\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
\:ff09\"", TraditionalForm]},
PlotRange->{{61, 89}, {0, 1}},
PlotRangeClipping->True,
PlotRangePadding->{Automatic, Automatic}]], "Output",
CellChangeTimes->{
3.577925144625*^9, 3.577925396578125*^9, 3.577957630297656*^9,
3.5779576933061666`*^9, 3.5779589732960367`*^9, 3.577959771908229*^9,
3.577960281756318*^9, {3.5779603518628407`*^9, 3.577960407664138*^9},
3.577962187510705*^9, 3.578012396921875*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"p1b", "=",
RowBox[{"ListPlot", "[",
RowBox[{"y10", ",",
RowBox[{"PlotJoined", "\", "True"}], ",",
RowBox[{"PlotStyle", "\",
RowBox[{"{",
RowBox[{
RowBox[{"RGBColor", "[",
RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
",",
RowBox[{"PlotRange", "\",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"61", ",", "89"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
RowBox[{"AxesOrigin", "\",
RowBox[{"{",
RowBox[{"61", ",", "0"}], "}"}]}], ",",
RowBox[{"Frame", "\", "True"}]}], "]"}]}]], "Input",
CellChangeTimes->{3.5779253991875*^9, 3.5779576384564705`*^9,
3.5779597764166365`*^9, 3.578012409265625*^9}],
Cell[BoxData[
GraphicsBox[{{}, {},
{RGBColor, Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
rQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
vA==
"]]}},
AspectRatio->NCache,
Axes->True,
AxesOrigin->{61, 0},
Frame->True,
PlotRange->{{61, 89}, {0, 1}},
PlotRangeClipping->True,
PlotRangePadding->{Automatic, Automatic}]], "Output",
CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
3.577957640266074*^9, 3.5779576946009684`*^9, 3.5779589749964395`*^9,
3.5779597781950397`*^9, 3.577962189476308*^9, 3.578012410328125*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Show", "[",
RowBox[{"p1a", ",", "p1b"}], "]"}]], "Input"],
Cell[BoxData[
GraphicsBox[{{{}, {},
{RGBColor, LineBox[CompressedData["
1:eJxTTMoPSmViYGCQB2IQrbz/js6hf74ODGDwwR5C+zm8FykxOr/kNoTfgMZn
8HfIK73dWHX+DlTe32HNjaOLj4VehcoHOHAIsAYWu0PlHQIcchxULmc53YKq
D3Bg8uYy2N/5AMI/EOCgxV5t0bwMqp4h0GH17wOsQX6XofoDHbYVHgpUN74B
1R/owDX546Pvl6dA9Qc66O7be/+P4WSo/iCHU2FKuxg3XILqD3LY/dVrkfWX
C1D9QQ67drZXZr8+AtUf5BAnfXhb7xGo+xiCHW5eybq7vOEiVH+wQ9t6xvhN
a2D2Bzt4nBLa8aD/GlR/sMO33SV7//qcguoPcZALP/8iX/4uVH+IA1Po9tff
yqD2NYQ4dDHpngt5fByqP8TBaOqv3uSo3VD9oQ6/y+//uxLWDdUf6sDLldMb
wrEVqj/UQcZIcM4dAWj4HAh1CLjff4d78zqo/jAHnahDtTfuQN3rEObQXX59
Y6nGQ3sAieueIw==
"]]}}, {{}, {},
{RGBColor, Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQB2IQzZemdm3pP18HBjD4YA+h/RzU1vRuFI67AeE3oPEZ
/B2end/O6l16Gyrv78AgF7hw184TUPkAB46XmkUdO+5A+A4BDvK7FuxL9YPy
GwIccqZ8nd2Z+QjCPxDgkH4tyOFW/QOo/kAHNv1fXJd61kL1Bzr4r9OccDPy
GFR/oMNZa7+LE2OeQvUHOpx8ar/k/r7rUP1BDrwSKrVRrlDzHYIc3sU27/vy
7S5Uf5DD3mDG7zb1t6D6gxz0D9hZlT49DtUf7HDkVb8BTwTM/cEOPBv6/WJ/
Qu1rCHaoZD5Tw25/Hqo/GC38QhzKjBfL8y5/B9Uf4vBK9ZjRX6GLUP0hDvri
H+fOKH0F1R/i0LZqhpf9w6tQ/aEOFn5cn+XSoe5zCHVImah2j3HeFaj+UAeV
rQFGlluh/j0Q6sC1M+h8UwBMf5jD638bBWSZbkL1hzmUC1gHv7B5Zg8Ayg6T
vA==
"]]}}},
AspectRatio->NCache,
Axes->True,
AxesOrigin->{61, 0},
Frame->True,
FrameLabel->{
FormBox["\"\:7089\:6b21\"", TraditionalForm],
FormBox[
"\"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf\:ff08\:5f52\:4e00\:5316\
\:ff09\"", TraditionalForm]},
PlotRange->{{61, 89}, {0, 1}},
PlotRangeClipping->True,
PlotRangePadding->{Automatic, Automatic}]], "Output",
CellChangeTimes->{3.577962196683521*^9, 3.5780124119375*^9}]
}, Open ]],
Cell, "Input",
CellChangeTimes->{{3.5779225126875*^9, 3.577922521484375*^9},
3.577959662349238*^9}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"y1b", "=",
RowBox[{"Table", "[",
RowBox[{"x", ",",
RowBox[{"{",
RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.57792262821875*^9, 3.577922633546875*^9}, {
3.5779226649375*^9, 3.5779226810625*^9}, 3.577958232403945*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
"35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
"48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "60"}],
"}"}]], "Output",
CellChangeTimes->{
3.577922682296875*^9, {3.5779582291435394`*^9, 3.5779582351339493`*^9},
3.577958478041973*^9, 3.577959010205701*^9, 3.5779622225483656`*^9,
3.578012438953125*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"3", ",", "11"}], "]"}], "]"}]], "Input",
CellChangeTimes->{{3.577922711734375*^9, 3.577922728984375*^9}, {
3.577922912015625*^9, 3.577922912171875*^9}, 3.5779582414831605`*^9, {
3.577959014090108*^9, 3.577959016040111*^9}}],
Cell, "Output",
CellChangeTimes->{{3.57792271875*^9, 3.577922729828125*^9},
3.577922913203125*^9, 3.577958242809163*^9, 3.5779584790403748`*^9,
3.5779590175689135`*^9, 3.5779622239523687`*^9, 3.578012439828125*^9}]
}, Open ]],
Cell[BoxData[
RowBox[{"For", "[",
RowBox[{
RowBox[{"i", "=", "1"}], ",",
RowBox[{"i", "\", "60"}], ",",
RowBox[{"i", "++"}], ",",
RowBox[{
RowBox[{"y1b", "[",
RowBox[{"[", "i", "]"}], "]"}], "=",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
3.577922923203125*^9}, 3.577958246272369*^9, 3.5779584755771685`*^9, {
3.57795902089172*^9, 3.5779590227793226`*^9}}],
Cell[CellGroupData[{
Cell, "Input",
CellChangeTimes->{{3.57792293078125*^9, 3.577922931484375*^9},
3.577958484172784*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.873239`", ",", "0.464789`", ",", "0.492958`", ",", "0.774648`", ",",
"0.380282`", ",", "0.647887`", ",", "0.56338`", ",", "0.295775`", ",",
"0.338028`", ",", "0.211268`", ",", "0.690141`", ",", "0.43662`", ",",
"0.`", ",", "0.267606`", ",", "0.211268`", ",", "0.408451`", ",",
"0.478873`", ",", "0.380282`", ",", "0.211268`", ",", "0.43662`", ",",
"0.478873`", ",", "0.295775`", ",", "0.028169`", ",", "0.43662`", ",",
"0.394366`", ",", "0.295775`", ",", "0.830986`", ",", "0.169014`", ",",
"0.366197`", ",", "0.309859`", ",", "0.352113`", ",", "0.309859`", ",",
"0.774648`", ",", "0.422535`", ",", "0.887324`", ",", "0.887324`", ",",
"0.859155`", ",", "0.239437`", ",", "0.295775`", ",", "0.746479`", ",",
"1.`", ",", "0.549296`", ",", "0.366197`", ",", "0.549296`", ",",
"0.577465`", ",", "0.690141`", ",", "0.71831`", ",", "0.521127`", ",",
"0.929577`", ",", "0.521127`", ",", "0.338028`", ",", "0.380282`", ",",
"0.676056`", ",", "0.591549`", ",", "0.464789`", ",", "0.295775`", ",",
"0.380282`", ",", "0.211268`", ",", "0.253521`", ",", "0.28169`"}],
"}"}]], "Output",
CellChangeTimes->{3.57792293246875*^9, 3.5779582549771843`*^9,
3.577958485420786*^9, 3.577959026460929*^9, 3.5779622288195767`*^9,
3.57801244275*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"m60n21", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"Table", "[",
RowBox[{"y", ",",
RowBox[{"{",
RowBox[{"y", ",", "1", ",", "21"}], "}"}]}], "]"}], ",",
RowBox[{"{",
RowBox[{"x", ",", "1", ",", "60"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.5779239260625*^9, 3.577924021765625*^9}, {
3.577924052828125*^9, 3.577924101671875*^9}, {3.577962237961193*^9,
3.577962240082796*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}], ",",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}],
"}"}]}], "}"}]], "Output",
CellChangeTimes->{
3.577924022828125*^9, {3.577924056171875*^9, 3.577924103265625*^9},
3.5779582609987946`*^9, 3.577958492393998*^9, 3.5779590297369347`*^9,
3.5779622422980003`*^9, 3.578012443890625*^9}]
}, Open ]],
Cell[BoxData[
RowBox[{"For", "[",
RowBox[{
RowBox[{"i", "=", "1"}], ",",
RowBox[{"i", "\", "60"}], ",",
RowBox[{"i", "++"}], ",",
RowBox[{"{", "\",
RowBox[{
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}], "=",
RowBox[{"u1", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}], "=",
RowBox[{"u2", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}], "=",
RowBox[{"u3", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}], "=",
RowBox[{"u4", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}], "=",
RowBox[{"u5", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}], "=",
RowBox[{"u6", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}], "=",
RowBox[{"u7", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}], "=",
RowBox[{"u8", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}], "=",
RowBox[{"u9", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "10"}], "]"}], "]"}], "=",
RowBox[{"u10", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "11"}], "]"}], "]"}], "=",
RowBox[{"u11", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "12"}], "]"}], "]"}], "=",
RowBox[{"u12", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "13"}], "]"}], "]"}], "=",
RowBox[{"u13", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "14"}], "]"}], "]"}], "=",
RowBox[{"u14", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "15"}], "]"}], "]"}], "=",
RowBox[{"u15", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "16"}], "]"}], "]"}], "=",
RowBox[{"u16", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "17"}], "]"}], "]"}], "=",
RowBox[{"u17", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "18"}], "]"}], "]"}], "=",
RowBox[{"u18", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "19"}], "]"}], "]"}], "=",
RowBox[{"u19", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "20"}], "]"}], "]"}], "=",
RowBox[{"u20", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";",
"\",
RowBox[{
RowBox[{"m60n21", "[",
RowBox[{"[",
RowBox[{"i", ",", "21"}], "]"}], "]"}], "=",
RowBox[{"u21", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}],
"\", "}"}]}], "\", "]"}]], "Input",
CellChangeTimes->{{3.5779241165*^9, 3.57792417728125*^9}, {
3.57792428359375*^9, 3.577924585109375*^9}, {3.577958919491543*^9,
3.5779589224867477`*^9}, {3.5779619825731473`*^9, 3.5779620676400957`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"w1b", "=",
RowBox[{"LeastSquares", "[",
RowBox[{"m60n21", ",", "y1b"}], "]"}]}]], "Input",
CellChangeTimes->{{3.577924598484375*^9, 3.5779246208125*^9}, {
3.577924662765625*^9, 3.57792466596875*^9}, {3.5779582865360394`*^9,
3.5779582963172565`*^9}, {3.5779622900808835`*^9, 3.577962290377284*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.48228184971363947`", ",", "0.16041393254115022`", ",",
"0.3741982811661129`", ",",
RowBox[{"-", "0.12620581913715245`"}], ",", "0.28831860112966734`", ",",
RowBox[{"-", "0.2282993884666894`"}], ",", "0.3207174990295839`", ",",
RowBox[{"-", "0.4666313851213302`"}], ",", "0.27551257162880227`", ",",
RowBox[{"-", "0.025873988843993667`"}], ",",
RowBox[{"-", "0.1339854044819916`"}], ",",
RowBox[{"-", "0.15852708848338315`"}], ",", "0.3129687276967983`", ",",
"0.45723850991134063`", ",", "0.2954923840077215`", ",",
"0.9125798890455868`", ",", "0.21159052285983104`", ",",
"0.5575503376854456`", ",", "0.6019775648968265`", ",",
"0.2361524780938108`", ",", "0.12782130225993923`"}], "}"}]], "Output",
CellChangeTimes->{
3.577924621953125*^9, 3.5779246688125*^9, {3.5779582894220443`*^9,
3.5779582992968616`*^9}, 3.5779584995700107`*^9, 3.577959040157753*^9,
3.5779622919996867`*^9, 3.578012447734375*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"y2", "=",
RowBox[{"w1b", ".",
RowBox[{"{",
RowBox[{
"u1", ",", "u2", ",", "u3", ",", "u4", ",", "u5", ",", "u6", ",", "u7",
",", "u8", ",", "u9", ",", "u10", ",", "u11", ",", "u12", ",", "u13",
",", "u14", ",", "u15", ",", "u16", ",", "u17", ",", "u18", ",", "u19",
",", "u20", ",", "u21"}], "}"}]}]}]], "Input",
CellChangeTimes->{{3.57792471553125*^9, 3.577924755875*^9}, {
3.577924897078125*^9, 3.57792491596875*^9}, {3.5779583101856804`*^9,
3.5779583178920937`*^9}, 3.5779623163513293`*^9}],
Cell[BoxData[
RowBox[{
RowBox[{"0.9125798890455868`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.434783`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.551785`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.151651`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.79021`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
RowBox[{"0.28831860112966734`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.71046`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.119897`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.468531`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
"+",
RowBox[{"0.21159052285983104`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.347826`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.705444`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.072008`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
"-",
RowBox[{"0.2282993884666894`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.130435`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.682724`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.019299`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.51049`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
"+",
RowBox[{"0.27551257162880227`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.395544`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.048087`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.496503`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
"-",
RowBox[{"0.12620581913715245`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.705518`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.066892`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
"+",
RowBox[{"0.12782130225993923`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.606152`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.09017`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1.`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
"+",
RowBox[{"0.2361524780938108`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.782609`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.751623`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.350845`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.412587`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
"+",
RowBox[{"0.3207174990295839`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.695652`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.71828`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.110285`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.335664`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]}], "-",
RowBox[{"0.15852708848338315`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.913043`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.170478`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.012973`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.293706`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]}], "+",
RowBox[{"0.6019775648968265`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.391304`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1.`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.150909`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.342657`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]}], "+",
RowBox[{"0.16041393254115022`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.608696`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.339186`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.099338`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]}], "+",
RowBox[{"0.48228184971363947`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.304348`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.552818`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.025823`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.538462`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]}], "+",
RowBox[{"0.2954923840077215`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.413043`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.551859`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.230503`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.244755`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]}], "+",
RowBox[{"0.3129687276967983`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.73913`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.193199`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.037907`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.461538`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]}], "-",
RowBox[{"0.4666313851213302`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.652174`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.569711`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.175398`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.167832`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]}], "+",
RowBox[{"0.3741982811661129`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.521739`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.334022`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.025156`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.48951`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]}], "+",
RowBox[{"0.5575503376854456`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.173913`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.984656`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.137022`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.321678`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]}], "-",
RowBox[{"0.1339854044819916`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.717391`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.736205`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.036152`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.307692`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]}], "+",
RowBox[{"0.45723850991134063`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.826087`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.203969`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.27224`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.265734`"}], "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]}], "-",
RowBox[{"0.025873988843993667`", " ",
SuperscriptBox["\",
RowBox[{"3.141592653589793`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.565217`"}], "+", "x1"}], ")"}], "2"]}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.572293`"}], "+", "x2"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.281852`"}], "+", "x4"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x5"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{"0.`", "\", "+", "x9"}], ")"}], "2"]}],
")"}]}]]}]}]], "Output",
CellChangeTimes->{3.577924759875*^9, 3.577924921203125*^9,
3.5779583210432997`*^9, 3.5779585060284224`*^9, 3.577959043308958*^9,
3.577962317973732*^9, 3.578012448875*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"y2fit", "=",
RowBox[{"Table", "[",
RowBox[{"x", ",",
RowBox[{"{",
RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{{3.577924969375*^9, 3.577924979515625*^9}, {
3.5779252768125*^9, 3.577925277484375*^9}, 3.5779583246625056`*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
",", "29"}], "}"}]], "Output",
CellChangeTimes->{3.57792498240625*^9, 3.5779252798125*^9,
3.5779583268153095`*^9, 3.577958508118826*^9, 3.5779590470685654`*^9,
3.577962320173336*^9, 3.57801245028125*^9}]
}, Open ]],
Cell[BoxData[
RowBox[{"For", "[",
RowBox[{
RowBox[{"i", "=", "61"}], ",",
RowBox[{"i", "\", "89"}], ",",
RowBox[{"i", "++"}], ",", "\",
RowBox[{
RowBox[{
RowBox[{"y2fit", "[",
RowBox[{"[",
RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
RowBox[{"y2", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "1"}], "]"}], "]"}]}], ",",
RowBox[{"x2", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "2"}], "]"}], "]"}]}], ",",
RowBox[{"x3", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ",",
RowBox[{"x4", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "4"}], "]"}], "]"}]}], ",",
RowBox[{"x5", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "5"}], "]"}], "]"}]}], ",",
RowBox[{"x6", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "6"}], "]"}], "]"}]}], ",",
RowBox[{"x7", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "7"}], "]"}], "]"}]}], ",",
RowBox[{"x8", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "8"}], "]"}], "]"}]}], ",",
RowBox[{"x9", "->",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "9"}], "]"}], "]"}]}]}], "}"}]}]}], ";"}]}],
"\", "]"}]], "Input",
CellChangeTimes->{{3.577925003234375*^9, 3.577925028578125*^9}, {
3.577925286140625*^9, 3.577925306765625*^9}, {3.577958329919715*^9,
3.5779583326341195`*^9}, {3.57795892351635*^9, 3.57795892354755*^9}}],
Cell[CellGroupData[{
Cell, "Input",
CellChangeTimes->{{3.57783581246875*^9, 3.5778358135*^9}, {
3.577925040484375*^9, 3.5779250440625*^9}, 3.5779583419785357`*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.4853171132859182`", ",", "0.4508635216665074`", ",",
"0.3642119241752518`", ",", "0.42852077425595436`", ",",
"0.4712694272667798`", ",", "0.5257533056184774`", ",",
"0.48620658140716133`", ",", "0.41106838915591876`", ",",
"0.5486894206610674`", ",", "0.007731168540073459`", ",",
"0.013872406140339109`", ",", "0.3956995051659558`", ",",
"0.3663118256142708`", ",", "0.29094217358055163`", ",",
"0.5453093690736555`", ",", "0.44138898880777927`", ",",
"0.42944922031163496`", ",", "0.43092890556748836`", ",",
"0.5942402821739969`", ",", "0.330046090785457`", ",",
"0.18938658036630585`", ",", "0.4263720292858679`", ",",
"0.23377136184738775`", ",", "0.02232858193309988`", ",",
"0.244364200084268`", ",", "0.5562383565309971`", ",",
"0.13114103402954333`", ",", "0.5815052048989465`", ",",
"0.4253455966293501`"}], "}"}]], "Output",
CellChangeTimes->{3.577835814609375*^9, 3.57792504521875*^9,
3.577925312375*^9, 3.577958343257738*^9, 3.577958511784832*^9,
3.5779590518421736`*^9, 3.5779623249157443`*^9, 3.578012452421875*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"y2fit", "=",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
"28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
"41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
"54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
"0.48531711328591953", ",", "0.48531711328591953`", ",",
"0.45086352166650845`", ",", "0.36421192417525217`", ",",
"0.4285207742559556`", ",", "0.4712694272667811`", ",",
"0.5257533056184786`", ",", "0.4862065814071623`", ",",
"0.41106838915592014`", ",", "0.5486894206610683`", ",",
"0.007731168540073532`", ",", "0.013872406140339166`", ",",
"0.3956995051659565`", ",", "0.3663118256142717`", ",",
"0.29094217358055185`", ",", "0.5453093690736568`", ",",
"0.4413889888077799`", ",", "0.42944922031163585`", ",",
"0.4309289055674891`", ",", "0.5942402821739983`", ",",
"0.33004609078545805`", ",", "0.18938658036630632`", ",",
"0.4263720292858688`", ",", "0.23377136184738778`", ",",
"0.022328581933099827`", ",", "0.24436420008426807`", ",",
"0.5562383565309981`", ",", "0.13114103402954314`", ",",
"0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]}]], "Input",
CellChangeTimes->{{3.577959355746303*^9, 3.5779593854019547`*^9}, {
3.5779594223272195`*^9, 3.577959425104024*^9}, {3.57796233399496*^9,
3.57796233957977*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
"35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
"48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
"0.48531711328591953`", ",", "0.48531711328591953`", ",",
"0.45086352166650845`", ",", "0.36421192417525217`", ",",
"0.4285207742559556`", ",", "0.4712694272667811`", ",",
"0.5257533056184786`", ",", "0.4862065814071623`", ",",
"0.41106838915592014`", ",", "0.5486894206610683`", ",",
"0.007731168540073532`", ",", "0.013872406140339166`", ",",
"0.3956995051659565`", ",", "0.3663118256142717`", ",",
"0.29094217358055185`", ",", "0.5453093690736568`", ",",
"0.4413889888077799`", ",", "0.42944922031163585`", ",",
"0.4309289055674891`", ",", "0.5942402821739983`", ",",
"0.33004609078545805`", ",", "0.18938658036630632`", ",",
"0.4263720292858688`", ",", "0.23377136184738778`", ",",
"0.022328581933099827`", ",", "0.24436420008426807`", ",",
"0.5562383565309981`", ",", "0.13114103402954314`", ",",
"0.5815052048989473`", ",", "0.42534559662935123`"}], "}"}]], "Output",
CellChangeTimes->{3.5779593961191735`*^9, 3.5779594268512273`*^9,
3.577962342060174*^9, 3.57801245340625*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"y20", "=",
RowBox[{"Table", "[",
RowBox[{"x", ",",
RowBox[{"{",
RowBox[{"x", ",", "1", ",", "29"}], "}"}]}], "]"}]}]], "Input",
CellChangeTimes->{3.5779253628125*^9, 3.577958351198152*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
",", "29"}], "}"}]], "Output",
CellChangeTimes->{3.57792536553125*^9, 3.5779583535225563`*^9,
3.577958515653639*^9, 3.577959053714177*^9, 3.5779623443065777`*^9,
3.578012454875*^9}]
}, Open ]],
Cell[BoxData[
RowBox[{"For", "[",
RowBox[{
RowBox[{"i", "=", "61"}], ",",
RowBox[{"i", "\", "89"}], ",",
RowBox[{"i", "++"}], ",",
RowBox[{
RowBox[{"y20", "[",
RowBox[{"[",
RowBox[{"i", "-", "60"}], "]"}], "]"}], "=",
RowBox[{"Data", "[",
RowBox[{"[",
RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.57792259890625*^9, 3.577922624859375*^9}, {
3.577922687234375*^9, 3.577922702859375*^9}, {3.577922917453125*^9,
3.577922923203125*^9}, {3.577925372296875*^9, 3.57792538503125*^9}, {
3.5779583574225626`*^9, 3.5779583606673684`*^9}, {3.577959056849782*^9,
3.577959058690585*^9}}],
Cell[CellGroupData[{
Cell, "Input",
CellChangeTimes->{{3.57783581975*^9, 3.57783582009375*^9}, {
3.57792504965625*^9, 3.577925050125*^9}, 3.57792539146875*^9,
3.5779583657841773`*^9}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`", ",",
"0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",
"0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",",
"0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",
"0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
"0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",
"0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
"0.323944`"}], "}"}]], "Output",
CellChangeTimes->{3.577835820984375*^9, 3.57792505125*^9,
3.577925393046875*^9, 3.5779583678277807`*^9, 3.577958517946843*^9,
3.5779590634017935`*^9, 3.577962347629384*^9, 3.578012456484375*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"y20", "=",
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",",
"15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21",
",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",",
"28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34",
",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",",
"41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47",
",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",",
"54", ",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",",
"0.507042", ",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",",
"0.338028`", ",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",",
"0.408451`", ",", "0.295775`", ",", "0.661972`", ",", "0.774648`", ",",
"0.746479`", ",", "0.887324`", ",", "0.84507`", ",", "0.704225`", ",",
"0.760563`", ",", "0.43662`", ",", "0.633803`", ",", "0.422535`", ",",
"0.295775`", ",", "0.309859`", ",", "0.408451`", ",", "0.197183`", ",",
"0.732394`", ",", "0.802817`", ",", "0.746479`", ",", "0.380282`", ",",
"0.56338`", ",", "0.323944`"}], "}"}]}]], "Input",
CellChangeTimes->{{3.577959534959416*^9, 3.5779595573142548`*^9}}],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8",
",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",",
"22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28",
",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",",
"35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41",
",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",",
"48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54",
",", "55", ",", "56", ",", "57", ",", "58", ",", "59", ",", "0.507042`",
",", "0.507042`", ",", "0.239437`", ",", "0.394366`", ",", "0.338028`",
",", "0.394366`", ",", "0.15493`", ",", "0.591549`", ",", "0.408451`", ",",
"0.295775`", ",", "0.661972`", ",", "0.774648`", ",", "0.746479`", ",",
"0.887324`", ",", "0.84507`", ",", "0.704225`", ",", "0.760563`", ",",
"0.43662`", ",", "0.633803`", ",", "0.422535`", ",", "0.295775`", ",",
"0.309859`", ",", "0.408451`", ",", "0.197183`", ",", "0.732394`", ",",
"0.802817`", ",", "0.746479`", ",", "0.380282`", ",", "0.56338`", ",",
"0.323944`"}], "}"}]], "Output",
CellChangeTimes->{3.5779595594514585`*^9, 3.577962351778991*^9,
3.578012457234375*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"p2a", "=",
RowBox[{"ListPlot", "[",
RowBox[{"y2fit", ",",
RowBox[{"PlotJoined", "\", "True"}], ",",
RowBox[{"PlotStyle", "\",
RowBox[{"{",
RowBox[{"RGBColor", "[",
RowBox[{"0", ",", "0", ",", "0"}], "]"}], "}"}]}], ",",
RowBox[{"PlotRange", "\",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"61", ",", "89"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
RowBox[{"AxesOrigin", "\",
RowBox[{"{",
RowBox[{"61", ",", "0"}], "}"}]}], ",",
RowBox[{"Frame", "\", "True"}], ",",
RowBox[{"FrameLabel", "\",
RowBox[{"{",
RowBox[{
"\"\<\:7089\:6b21\>\"", ",",
"\"\<\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\
\>\""}], "}"}]}]}], "]"}]}]], "Input",
CellChangeTimes->{
3.577925078578125*^9, {3.577925141125*^9, 3.577925141453125*^9}, {
3.5779583712597866`*^9, 3.5779583781393986`*^9}, {3.577958536604475*^9,
3.5779585491624975`*^9}, {3.5779592802577715`*^9,
3.5779593014270086`*^9}, {3.5779594039971876`*^9,
3.5779594059783907`*^9}, {3.57795949706695*^9, 3.5779595174717855`*^9}, {
3.5779604302529774`*^9, 3.577960442311798*^9}, 3.57801246978125*^9,
3.578012920859375*^9}],
Cell[BoxData[
GraphicsBox[{{}, {},
{RGBColor, LineBox[CompressedData["
1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P
ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC
qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
99yxuG0PAHw7nyU=
"]]}},
AspectRatio->NCache,
Axes->True,
AxesOrigin->{61, 0},
Frame->True,
FrameLabel->{
FormBox["\"\:7089\:6b21\"", TraditionalForm],
FormBox[
"\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"",
TraditionalForm]},
PlotRange->{{61, 89}, {0, 1}},
PlotRangeClipping->True,
PlotRangePadding->{Automatic, Automatic}]], "Output",
CellChangeTimes->{
3.577925144625*^9, 3.577925396578125*^9, 3.5779583797150016`*^9,
3.577958519990446*^9, 3.5779585510813007`*^9, 3.5779590670678*^9,
3.5779593035642123`*^9, {3.5779594075383935`*^9, 3.577959430158433*^9},
3.5779595184233866`*^9, 3.5779604438874006`*^9, 3.5779623548833966`*^9,
3.57801247209375*^9, 3.5780129225625*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"p2b", "=",
RowBox[{"ListPlot", "[",
RowBox[{"y20", ",",
RowBox[{"PlotJoined", "\", "True"}], ",",
RowBox[{"PlotStyle", "\",
RowBox[{"{",
RowBox[{
RowBox[{"RGBColor", "[",
RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", "Dashed"}], "}"}]}],
",",
RowBox[{"PlotRange", "\",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"61", ",", "89"}], "}"}], ",",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",",
RowBox[{"AxesOrigin", "\",
RowBox[{"{",
RowBox[{"61", ",", "0"}], "}"}]}], ",",
RowBox[{"Frame", "\", "True"}]}], "]"}]}]], "Input",
CellChangeTimes->{
3.5779253991875*^9, {3.577958382429406*^9, 3.5779583843326097`*^9},
3.57795855655691*^9, 3.5779595724462814`*^9, 3.57801248346875*^9}],
Cell[BoxData[
GraphicsBox[{{}, {},
{RGBColor, Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
TWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
p0OYg4Fg/tz63VfsAdsCnzU=
"]]}},
AspectRatio->NCache,
Axes->True,
AxesOrigin->{61, 0},
Frame->True,
PlotRange->{{61, 89}, {0, 1}},
PlotRangeClipping->True,
PlotRangePadding->{Automatic, Automatic}]], "Output",
CellChangeTimes->{3.577925147265625*^9, 3.577925400640625*^9,
3.5779583861890125`*^9, 3.5779585219092493`*^9, 3.577958558132513*^9,
3.5779590691114035`*^9, 3.577959577906291*^9, 3.5779623569426003`*^9,
3.578012484703125*^9, 3.578012925875*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Show", "[",
RowBox[{"p2a", ",", "p2b"}], "]"}]], "Input"],
Cell[BoxData[
GraphicsBox[{{{}, {},
{RGBColor, LineBox[CompressedData["
1:eJxTTMoPSmViYGCQB2IQLfG6//j9f74ODGDwwR5C+zk4KBc05fPfh/Ab0PgM
/g4m4oprPt26A5X3dxAJP9lu738dKh/gcKP+aOqjnNsQvkOAQ9SpXDt3zXtQ
9QEOX5eumfHj0gMI/0CAg/bMflMmOZj5gQ4JrN9OfvS7BdUf6LDxwhrZu30P
ofoDHVZuXXhg+6p6qP5Ah8uuLVeVMnug+oMcck/nsagE34TqD3I4uP6k+vJC
qPsaghzi+pXfnJ53Cao/yOHQV+9FOsVQ8xmCHcrmvJ+53R7qP4dgh6P/FKdK
1ED90xDsEMcvcjVsCpR/INih6pmNEQvLY6j+EIfv6m2LK+WvQvWHOOTuqzlx
0fYEVH+Iw5EJuS/WesL0hzi8kP0QYPHmLFR/qMO/I2uO+N6dBtUf6rAj61p1
sPt5qP5QB47ZhxK3nIG690CoQwOb5i6rkweg+sMc+K6uP7th9iOo/jCHdUEH
99yxuG0PAHw7nyU=
"]]}}, {{}, {},
{RGBColor, Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQB2IQbff56PXX/3wdGMDggz2E9nPoi/ymssHyAYTfgMZn
8HdY88xS6f7Sc1B5f4clDzSfeNnehMoHOGSUexg6LLoK4TsEoMo3BDj8WDWV
c/+VwxD+gQCH6gx57R9vH0H1Bzpw6R9cya9yC6o/0GFSzD/nX28vQfUHOvgc
iX5+X+8pVH+gQ4eu7axXJ19A9Qc5WF5ueav++DlUf5DDkWlyvl9T3kD1Bzk4
TZ1le4HrNVR/kMP2iwz3mDqfQfUHO4S2FZp3hEHNcwh2WPHYkHnqx9tQ/cEO
fzMXW8l6PIHqD4aaB5VnCEF1r0OIw6lD16/vunIZqj8E1X8HQqDhcxKqP9SB
TWdn19F8mPtDHa63f3Vbu+ElVH8oqv8OhDrkVAUEdIXdgOoPc9DhS68zZYeG
p0OYg4Fg/tz63VfsAdsCnzU=
"]]}}},
AspectRatio->NCache,
Axes->True,
AxesOrigin->{61, 0},
Frame->True,
FrameLabel->{
FormBox["\"\:7089\:6b21\"", TraditionalForm],
FormBox[
"\"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6\:ff08\:5f52\:4e00\:5316\:ff09\"",
TraditionalForm]},
PlotRange->{{61, 89}, {0, 1}},
PlotRangeClipping->True,
PlotRangePadding->{Automatic, Automatic}]], "Output",
CellChangeTimes->{3.5779623624182096`*^9, 3.5780124863125*^9,
3.578012927734375*^9}]
}, Open ]],
Cell[BoxData[
RowBox[{"\:ff08",
RowBox[{
"\:5df2\:77e5\:521d\:59cb\:94c1\:6c34\:8d28\:91cf0", ".7406",
"\:3001\:5e9f\:94a2\:8d28\:91cf0", ".4621",
"\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea60", ".5208",
"\:3001\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:542b\:78b3\:91cf0",
".2221", "\:ff1b\:76ee\:6807\:94a2\:6c34\:7684\:7ec8\:70b9\:6e29\:5ea6\
\:4e3a0", ".6224",
"\:3001\:76ee\:6807\:94a2\:6c34\:7684\:78b3\:542b\:91cf\:4e3a0", ".2521"}],
"\:ff09"}]], "Input"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
"\:94c1\:6c34\:8d28\:91cf", ",", "\:5e9f\:94a2\:8d28\:91cf", ",",
"\:5439\:6c27\:91cf", ",",
"\:4e0b\:526f\:67aa\:65f6\:7684\:542b\:78b3\:91cf", ",",
"\:4e0b\:526f\:67aa\:65f6\:7684\:94a2\:6c34\:6e29\:5ea6", ",",
"\:5757\:72b6\:77f3\:7070", ",", "\:8f7b\:70e7\:767d\:77f3\:7070", ",",
"\:83f1\:9541\:7403", ",", "\:5757\:72b6\:767d\:4e91\:77f3", ",",
"\:94a2\:6c34\:7ec8\:70b9\:542b\:78b3\:91cf", ",",
"\:94a2\:6c34\:7ec8\:70b9\:6e29\:5ea6"}], "}"}]], "Input"],
Cell, "Input",
CellChangeTimes->{3.577962834553033*^9}],
Cell, "Input"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"y1", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->", "0.7406"}], ",",
RowBox[{"x2", "->", "0.4621"}], ",",
RowBox[{"x4", "->", "0.2221"}], ",",
RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",
CellChangeTimes->{{3.57796267209435*^9, 3.5779627224200373`*^9}, {
3.5779627663029137`*^9, 3.577962774820529*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"0.2286149508637297`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.17911224641499998`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
RowBox[{"0.020180806675835994`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.105619387859`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox["x6", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
"+",
RowBox[{"0.13092706311748437`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.236605670085`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox["x6", "2"], "-",
SuperscriptBox["x7", "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
"-",
RowBox[{"0.033459349088924784`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.46221081830200006`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
"+",
RowBox[{"0.39611806709006653`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.5837889295140001`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox["x6", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
"-",
RowBox[{"0.19996885877792045`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.19030188470200005`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox["x7", "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
"+",
RowBox[{"0.23580523388620744`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.28518780882`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
"+",
RowBox[{"0.667027259367853`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.11387365200400001`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox["x7", "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
"+",
RowBox[{"0.25282438852646905`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.11442644782500001`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox["x6", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
RowBox[{"0.07581214474544536`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.21008576609800003`"}], "-",
SuperscriptBox["x3", "2"], "-",
SuperscriptBox["x6", "2"], "-",
SuperscriptBox["x7", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
RowBox[{"0.10599338351843121`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.4481471925460001`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox["x7", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
RowBox[{"0.5008208386064421`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.08722659614000003`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox["x7", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
RowBox[{"0.32564305572552343`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.23738217000100004`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
RowBox[{"0.6665374509702793`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.19162171876400003`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
RowBox[{"0.4812237524557293`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.109748954594`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox["x6", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
RowBox[{"0.176024676254045`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.14616677062500003`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox["x6", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
RowBox[{"0.5945873894818965`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.10407011464100005`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
RowBox[{"0.027591936509660075`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.31770463544200006`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox["x6", "2"], "-",
SuperscriptBox["x7", "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
RowBox[{"0.5252475961933536`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.6410867660730001`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox["x6", "2"], "-",
SuperscriptBox["x7", "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
RowBox[{"0.32047284779644936`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.155663887074`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox["x6", "2"], "-",
SuperscriptBox["x7", "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
RowBox[{"0.7528674241482847`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.14151232428600002`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox["x6", "2"], "-",
SuperscriptBox["x7", "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",
CellChangeTimes->{3.5779628386090403`*^9}]
}, Open ]],
Cell, "Input",
CellChangeTimes->{3.577962835879035*^9}],
Cell, "Input"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"y2", "/.",
RowBox[{"{",
RowBox[{
RowBox[{"x1", "->", "0.7406"}], ",",
RowBox[{"x2", "->", "0.4621"}], ",",
RowBox[{"x4", "->", "0.2221"}], ",",
RowBox[{"x5", "->", "0.5208"}]}], "}"}]}]], "Input",
CellChangeTimes->{3.577962787784151*^9}],
Cell[BoxData[
RowBox[{
RowBox[{"0.9125798890455848`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.17911224641499998`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.530346`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.529013`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.409756`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "1.`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}], "+",
RowBox[{"0.2883186011296682`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.105619387859`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.64973`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox["x6", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.766748`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
"+",
RowBox[{"0.2115905228598317`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.236605670085`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.109343`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox["x6", "2"], "-",
SuperscriptBox["x7", "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.752567`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
"-",
RowBox[{"0.22829938846668896`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.46221081830200006`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.258697`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.420497`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.535772`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.494866`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
"+",
RowBox[{"0.27551257162880105`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.5837889295140001`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.027011`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox["x6", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.452033`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.278729`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
"-",
RowBox[{"0.12620581913715256`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.19030188470200005`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.510223`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.748304`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox["x7", "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.243032`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
"+",
RowBox[{"0.12782130225993898`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.28518780882`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.158058`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.166541`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.278049`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.236675`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
"+",
RowBox[{"0.23615247809381104`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.11387365200400001`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.177646`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.502638`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox["x7", "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.178973`"}], "+", "x9"}], ")"}], "2"]}], ")"}]}]]}],
"+",
RowBox[{"0.3207174990295845`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.11442644782500001`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.33973`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox["x6", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.636585`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.780463`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
RowBox[{"0.15852708848338293`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.21008576609800003`"}], "-",
SuperscriptBox["x3", "2"], "-",
SuperscriptBox["x6", "2"], "-",
SuperscriptBox["x7", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.672709`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
RowBox[{"0.6019775648968266`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.4481471925460001`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.452931`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.370761`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox["x7", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.509567`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
RowBox[{"0.16041393254115266`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.08722659614000003`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.4943`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.375283`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox["x7", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.505539`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
RowBox[{"0.482281849713638`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.23738217000100004`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.33037`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.752072`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.408943`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.504532`"}], "+", "x8"}], ")"}], "2"], "-",
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
RowBox[{"0.29549238400772093`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.19162171876400003`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.544826`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.53052`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.819512`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
RowBox[{"0.31296872769679895`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.109748954594`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.160584`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox["x6", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.684553`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
RowBox[{"0.4666313851213299`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.14616677062500003`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.414297`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox["x6", "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.544715`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
RowBox[{"0.37419828116611387`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.10407011464100005`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.3555`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.37679`"}], "+", "x6"}], ")"}], "2"], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.411382`"}], "+", "x7"}], ")"}], "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
RowBox[{"0.025873988843992612`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.31770463544200006`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.655012`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox["x6", "2"], "-",
SuperscriptBox["x7", "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
RowBox[{"0.5575503376854455`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.6410867660730001`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.420753`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox["x6", "2"], "-",
SuperscriptBox["x7", "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "-",
RowBox[{"0.13398540448199214`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.155663887074`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.267704`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox["x6", "2"], "-",
SuperscriptBox["x7", "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox["x9", "2"]}], ")"}]}]]}], "+",
RowBox[{"0.4572385099113415`", " ",
SuperscriptBox["\",
RowBox[{"3.1415926535897936`", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.14151232428600002`"}], "-",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"-", "0.234619`"}], "+", "x3"}], ")"}], "2"], "-",
SuperscriptBox["x6", "2"], "-",
SuperscriptBox["x7", "2"], "-",
SuperscriptBox["x8", "2"], "-",
SuperscriptBox["x9", "2"]}], ")"}]}]]}]}]], "Output",
CellChangeTimes->{3.577962841401445*^9}]
}, Open ]]
},
WindowSize->{1093, 659},
WindowMargins->{{61, Automatic}, {Automatic, 15}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell,
Cell,
Cell[CellGroupData[{
Cell,
Cell,
Cell
}, Open ]],
Cell,
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell,
Cell,
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell,
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell,
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell,
Cell
}, Open ]],
Cell,
Cell[CellGroupData[{
Cell,
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell,
Cell
}, Open ]],
Cell,
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell,
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell,
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell,
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell,
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell,
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell,
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell,
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell,
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell,
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell,
Cell,
Cell,
Cell,
Cell[CellGroupData[{
Cell,
Cell
}, Open ]],
Cell,
Cell,
Cell[CellGroupData[{
Cell,
Cell
}, Open ]]
}
]
*)
(* End of internal cache information *）
这个是用mathmatic做的神经网络，能导出最后的权值，就是可以写出表达式，我想用matlab做，却不知道怎么做 可能不能导出系数 者。。。。这是神马
页:
[1]