diff --git a/hadron_PDF/.gitignore b/hadron_PDF/.gitignore deleted file mode 100644 index 874c63c..0000000 --- a/hadron_PDF/.gitignore +++ /dev/null @@ -1,2 +0,0 @@ -*.o - diff --git a/hadron_PDF/.vscode/launch.json b/hadron_PDF/.vscode/launch.json deleted file mode 100644 index a4b89c3..0000000 --- a/hadron_PDF/.vscode/launch.json +++ /dev/null @@ -1,17 +0,0 @@ -{ - "version": "0.2.0", - "configurations": [ - { - "name": "(lldb) Launch", - "type": "cppdbg", - "request": "launch", - "program": "enter program name, for example ${workspaceRoot}/a.out", - "args": [], - "stopAtEntry": false, - "cwd": "${workspaceRoot}", - "environment": [], - "externalConsole": true, - "MIMode": "lldb" - } - ] - } \ No newline at end of file diff --git a/hadron_PDF/.vscode/settings.json b/hadron_PDF/.vscode/settings.json deleted file mode 100644 index 8f7c85e..0000000 --- a/hadron_PDF/.vscode/settings.json +++ /dev/null @@ -1,20 +0,0 @@ -// Place your settings in this file to overwrite default and user settings. -{ - "files.associations": { - "*.cu": "cpp", - "string": "cpp", - "__config": "cpp", - "cstddef": "cpp", - "exception": "cpp", - "initializer_list": "cpp", - "new": "cpp", - "stdexcept": "cpp", - "typeinfo": "cpp", - "iosfwd": "cpp", - "__functional_base": "cpp", - "memory": "cpp", - "tuple": "cpp", - "utility": "cpp" - }, - "python.linting.pylintEnabled": false -} \ No newline at end of file diff --git a/hadron_PDF/Makefile b/hadron_PDF/Makefile deleted file mode 100644 index 12a7148..0000000 --- a/hadron_PDF/Makefile +++ /dev/null @@ -1,25 +0,0 @@ -CHROMA=/Users/tomluu/Research/lqcd/code/usqcd/install/chroma/bin -CONFIG=$(CHROMA)/chroma-config -CXX=$(shell $(CONFIG) --cxx) -g -CXXFLAGS=$(shell $(CONFIG) --cxxflags) -I. -fsanitize=address -fno-omit-frame-pointer -LDFLAGS=$(shell $(CONFIG) --ldflags) -fsanitize=address -LIBS=$(shell $(CONFIG) --libs) - -HDRS= - -OBJS1= hadron_PDF.o permutations.o mom_project.o readwrite.o nucleon.o -OBJS2= gauge_link.o - -hadron_PDF: $(OBJS1) - $(CXX) -o $@ $(CXXFLAGS) $(OBJS1) $(LDFLAGS) $(LIBS) - -gauge_link: $(OBJS2) - $(CXX) -o $@ $(CXXFLAGS) $(OBJS3) $(LDFLAGS) $(LIBS) - -%.o: %.cc $(HDRS) - $(CXX) $(CXXFLAGS) -c $< - -clean: - rm -rf hadron_PDF $(OBJS1) *~ - rm -rf gauge_link $(OBJS2) *~ - rm -rf multi_shift_test $(OBJS3) *~ diff --git a/hadron_PDF/cfgs/weak_field_4448.cfg b/hadron_PDF/cfgs/weak_field_4448.cfg deleted file mode 100644 index ea6a93e..0000000 Binary files a/hadron_PDF/cfgs/weak_field_4448.cfg and /dev/null differ diff --git a/hadron_PDF/cfgs/wilson_k0.1665_b5.32144_4by32_cfg_4000.lime b/hadron_PDF/cfgs/wilson_k0.1665_b5.32144_4by32_cfg_4000.lime deleted file mode 100644 index a2b8f7b..0000000 Binary files a/hadron_PDF/cfgs/wilson_k0.1665_b5.32144_4by32_cfg_4000.lime and /dev/null differ diff --git a/hadron_PDF/fh_xmldat b/hadron_PDF/fh_xmldat deleted file mode 100644 index 76371e4..0000000 --- a/hadron_PDF/fh_xmldat +++ /dev/null @@ -1,79 +0,0 @@ - - - - - - - 0 - 0 - 32 - 1.1230098805263e-09 - - - 0 - 1 - 32 - 9.70590150780222e-10 - - - 0 - 2 - 32 - 9.2952511287283e-10 - - - 0 - 3 - 32 - 1.1842424313418e-09 - - - 1 - 0 - 32 - 1.21961091450593e-09 - - - 1 - 1 - 32 - 1.00454536660392e-09 - - - 1 - 2 - 32 - 1.00520623092845e-09 - - - 1 - 3 - 32 - 1.20294193992068e-09 - - - 2 - 0 - 32 - 9.29982124322602e-10 - - - 2 - 1 - 32 - 9.94554686836298e-10 - - - 2 - 2 - 32 - 1.12985175592534e-09 - - - 2 - 3 - 32 - 1.07050993347606e-09 - - - \ No newline at end of file diff --git a/hadron_PDF/gauge_link.cc b/hadron_PDF/gauge_link.cc deleted file mode 100644 index 48cf2af..0000000 --- a/hadron_PDF/gauge_link.cc +++ /dev/null @@ -1,159 +0,0 @@ -#include -#include "chroma.h" -#include "actions/ferm/invert/syssolver_linop_cg.h" - -using namespace std; -using namespace QDP; -using namespace Chroma; - -Real one = 1.0; -Real zero = 0.0; - -LatticeColorMatrix gauge_shift(const multi1d &U, - const LatticeColorMatrix &v, - const int sign, const int dir) -{ - if (sign == 0) - return v; - return sign > 0 ? shift(adj(U[dir]) * v, -1, dir) - : U[dir] * shift(v, +1, dir); -} - -LatticeColorMatrix gauge_link(const multi1d &U, const int dir, const int displacement) -{ - LatticeColorMatrix gaugelink = one; - - if (displacement == 0) - { - gaugelink = one; - } - - else if (displacement > 0) - { - for (int stp = 1; stp <= displacement; stp++) - { - gaugelink = gauge_shift(U, gaugelink, 1, dir); - } - } - - else - { - for (int stp = -1; stp >= displacement; stp--) - { - gaugelink = gauge_shift(U, gaugelink, -1, dir); - } - } - return gaugelink; -} - -int main(int argc, char **argv) -{ - initialize(&argc, &argv); - START_CODE(); - - - XMLReader xml_in; - - try - { - xml_in.open(getXMLInputFileName()); - } - catch (...) - { - cerr << "Error in Reading input XML:" << endl; - QDP_abort(1); - } - - multi1d nrow; - Cfg_t cfg; - int ncg_had = 0; - int j_decay = 0; - multi1d t_srce; - - int dir; - int steps; - - //read in - try - { - read(xml_in, "/chroma/Param/nrow", nrow); - // cout<<"read nrow done"< u(Nd); - - //HotSt(u); - - gaugeStartup(gauge_file_xml, gauge_xml, u, cfg); - - unitarityCheck(u); - - LatticeColorMatrix gauge_link_orgnl = one; - LatticeColorMatrix gauge_link_trnsfrmd = one; - LatticeColorMatrix gauge_link_dffrnc = zero; - - LatticeColorMatrix g1 = one; - LatticeColorMatrix g2 = one; - LatticeColorMatrix g0 = one; - - gauge_link_orgnl = gauge_link(u, dir, steps); - - rgauge(u, g1); - - g0 = g1; - - if (steps == 0) - { - g2 = shift(g0, -1, dir); - } - else if (steps > 0) - { - for (int i = 1; i <= steps; i++) - { - g2 = shift(g0, -1, dir); - g0 = g2; - } - } - else - { - for (int i = -1; i >= steps; i--) - { - g2 = shift(g0, +1, dir); - g0 = g2; - } - } - - gauge_link_trnsfrmd = gauge_link(u, +1, dir, steps); - - gauge_link_dffrnc = adj(g1) * gauge_link_trnsfrmd * g2 - - gauge_link_orgnl; - - XMLFileWriter xml_out("gauge_link_difference"); - push(xml_out, "difference"); - - write(xml_out, "delta", gauge_link_dffrnc); - - xml_out.flush(); - pop(xml_out); - - END_CODE(); - finalize(); - exit(0); -} \ No newline at end of file diff --git a/hadron_PDF/gauge_link.h b/hadron_PDF/gauge_link.h deleted file mode 100644 index 12d9e09..0000000 --- a/hadron_PDF/gauge_link.h +++ /dev/null @@ -1,43 +0,0 @@ -#ifndef GAUGE_LINK_H -#define GAUGE_LINK_H - -LatticeColorMatrix gauge_shift(const multi1d &U, const LatticeColorMatrix &v, const int sign, const int dir) -{ - if (sign == 0) - return v; - return sign > 0 ? shift(U[dir] * v, +1, dir) - : shift(adj(U[dir]) * v, -1, dir); -} -// create a gauge link in \bar psi(n)L(n,n+\Delta\hat \mu)psi(n+\Delta \hat \mu) -// L(n,n+\Delta\hat\mu)=U_\mu(n)*U_\mu(n+\hat\mu)*...*U_\mu(n+(\Delta-1)\hat\mu) -LatticeColorMatrix gauge_link(const multi1d &U, const int sign, const int dir, const int displacement) -{ - Real one = 1.0; - - LatticeColorMatrix gaugelink = one; - - if (displacement == 0) - { - return one; - } - else if (displacement > 0) - { - for (int stp = 1; stp < displacement; stp++) - { - gaugelink = gauge_shift(U, gaugelink, 1, dir); - } - return U[dir] * gaugelink; - // return gaugelink; - } - else - { - for (int stp = -1; stp >= displacement; stp--) - { - gaugelink = gauge_shift(U, gaugelink, -1, dir); - } - return gaugelink; - } -} - - -#endif \ No newline at end of file diff --git a/hadron_PDF/hadron.ini.xml b/hadron_PDF/hadron.ini.xml deleted file mode 100644 index df812d9..0000000 --- a/hadron_PDF/hadron.ini.xml +++ /dev/null @@ -1,156 +0,0 @@ - - - - - - MAKE_SOURCE - 1 - - 6 - - - 1 - POINT_SOURCE - 3 - 0 0 0 0 - - GAUGE_INV_GAUSSIAN - 2.8284 - 20 - 3 - - - - STOUT_SMEAR - 0.0 - 0 - 3 - - - - - 1 - POINT_SINK - 3 - 0 0 0 0 - - GAUGE_INV_GAUSSIAN - 2.8284 - 20 - 3 - - - - - - default_gauge_field - t160z0y0x0 - - - - - 3 - 3 - - - - - PROPAGATOR - 1 - - 10 - FULL - false - 1 - - CLOVER - -0.0743 - 1.58932722549812 - 0.902783591772098 - - true - 3 - 4.3 - 1.265 - - - STOUT_FERM_STATE - 0.14 - 2 - 3 - - SIMPLE_FERMBC - 1 1 1 -1 - - - - - CG_INVERTER - 1e-9 - 100 - - -0.0743 - 1.58932722549812 - 0.902783591772098 - - true - 3 - 4.3 - 1.265 - - - 1.0e-8 - 0.1 - 10000000 - true - BICGSTAB - false - false - RECONS_12 - HALF - RECONS_12 - false - - - - default_gauge_field - t160z0y0x0 - t160z0y0x0_pt_pt - - - - - - Save the prop - QIO_WRITE_NAMED_OBJECT - 1 - - t160z0y0x0_sh_pt - LatticePropagatorF - - - ./props/testProp - SINGLEFILE - - - - - - Pion (meson) PDF - 15 - - - Nucleon PDF - Avg - 0 0 0 0 - ./data/ - - - - 4 4 4 32 - - - SZINQIO - ./cfgs/wilson_k0.1665_b5.32144_4by32_cfg_4000.lime - - diff --git a/hadron_PDF/hadron_PDF b/hadron_PDF/hadron_PDF deleted file mode 100755 index b1eda28..0000000 Binary files a/hadron_PDF/hadron_PDF and /dev/null differ diff --git a/hadron_PDF/hadron_PDF.cc b/hadron_PDF/hadron_PDF.cc deleted file mode 100644 index 677e0b2..0000000 --- a/hadron_PDF/hadron_PDF.cc +++ /dev/null @@ -1,337 +0,0 @@ -#include -#include "chroma.h" -#include "actions/ferm/invert/syssolver_linop_cg.h" -#include "gauge_link.h" -#include "multi_shift.h" -#include "nucleon.h" - -using namespace std; -using namespace QDP; -using namespace Chroma; - -#define PASS(ln) cout << "====== PASS " << ln << " ======" << endl - -typedef OLattice, Nc>, Ns>> LatticePropagatorReImPrt; - -typedef OLattice, Nc>>> LatticeColorMatrixReImPrt; - -LatticePropagator getPointSource(const multi1d &pos, const int &time_dir) -{ - START_CODE(); - - //result vector: - LatticePropagator result = zero; - for (unsigned int c = 0; c < Nc; c++) - { - //fill lattice color vector with a one at pos: - LatticeColorVector tmpcolorvec = zero; - srcfil(tmpcolorvec, pos, c); - - //inject in larger source: - for (unsigned int s = 0; s < Ns; s++) - { - LatticeFermion tmpferm = zero; - CvToFerm(tmpcolorvec, tmpferm, s); - FermToProp(tmpferm, result, c, s); - } - } - END_CODE(); - - return result; -} - -bool linkageHack(void) -{ - bool foo = true; - // Inline Measurements - foo &= InlineAggregateEnv::registerAll(); - foo &= GaugeInitEnv::registerAll(); - - return foo; -} - -int main(int argc, char **argv) -{ - - initialize(&argc, &argv); - START_CODE(); - - linkageHack(); - - Real one = 1.0; - Real zero = 0.0; - - XMLReader xml_in; - - try - { - xml_in.open(getXMLInputFileName()); - } - catch (...) - { - cerr << "Error in Reading input XML:" << endl; - QDP_abort(1); - } - - multi1d nrow; - Cfg_t cfg; - Real mass = 0.0; - string prpgtr_fl; - multi1d bndry_cndtns; - int ncg_had = 0; - int j_decay = 0; - multi1d t_srce; - - int dir; - int steps; - - Real wvf_param; - int wvfIntPar; - - /* - * Meson parameters. . . - */ - int gamma; - bool meson; - - /* - * Nucleon parameters. . . - */ - Nucleon_system nucleon; - string file_dir; - string spin; - multi1d pN(4); - bool baryon; - - //================= set parameters ===================== - - try - { - read(xml_in, "/chroma/Param/nrow", nrow); - read(xml_in, "/chroma/Cfg", cfg); - read(xml_in, "/chroma/Param/InlineMeasurements/elem/propagator/Param/FermionAction/Mass", mass); - read(xml_in, "/chroma/Param/InlineMeasurements/elem/propagator/Param/FermionAction/FermState/FermionBC/boundary", bndry_cndtns); - read(xml_in, "/chroma/Param/InlineMeasurements/elem/Param/Source/Source_Smearing/j_decay", j_decay); - read(xml_in, "/chroma/Param/InlineMeasurements/elem/Param/Source/Source_Smearing/t_srce", t_srce); - read(xml_in, "/chroma/Param/InlineMeasurements/elem/displacement/dir", dir); - read(xml_in, "/chroma/Param/InlineMeasurements/elem/displacement/steps", steps); - } - catch (const string &e) - { - QDPIO::cerr << "Parsing XML: " << e << endl; - QDP_abort(1); - } - try - { - read(xml_in, "/chroma/Param/InlineMeasurements/elem/meson/gamma", gamma); - QDPIO::cout << "Performing meson measurement(s)" << endl; - meson = true; - } - catch (const string &e) - { - meson = false; - } - try - { - read(xml_in, "/chroma/Param/InlineMeasurements/elem/nucleon/spin", spin); - read(xml_in, "/chroma/Param/InlineMeasurements/elem/nucleon/pmom", pN); - read(xml_in, "/chroma/Param/InlineMeasurements/elem/nucleon/file_dir", file_dir); - QDPIO::cout << "Performing nucleon measurement(s)" << endl; - baryon = true; - } - catch (const string &e) - { - baryon = false; - } - - Layout::setLattSize(nrow); - Layout::create(); - - LatticePropagator quark_prpgtr = zero; - LatticePropagator quark_src = zero; - quark_src = getPointSource(t_srce, j_decay); - - XMLReader rd(xml_in, "/chroma/Param/InlineMeasurements/elem/propagator/Param"); - - SimpleFermBCParams bc_prmtrs; - - GroupXML_t InvertParam = readXMLGroup(rd, "InvertParam", "invType"); - - //boundary conditions - bc_prmtrs.boundary.resize(Nd); - for (int i = 0; i < Nd - 1; i++) - { - bc_prmtrs.boundary[i] = bndry_cndtns[i]; //BC_TYPE_PERIODIC; - } - bc_prmtrs.boundary[Nd - 1] = bndry_cndtns[Nd - 1]; //BC_TYPE_ANTIPERIODIC; - - //calculate propagator - - typedef LatticeFermion T; - typedef multi1d P; - Handle> fbc_handle(new SimpleFermBC(bc_prmtrs)); - Handle> cfs(new CreateSimpleFermState(fbc_handle)); - - EvenOddPrecWilsonFermAct S(cfs, mass); - - //============= create gauge configurations =================== - - XMLReader gauge_file_xml, gauge_xml; - multi1d u(Nd); - //HotSt(u); - - gaugeStartup(gauge_file_xml, gauge_xml, u, cfg); - unitarityCheck(u); - - //====================================================== - // - // BEFORE rgauge - // - //====================================================== - - //=================== 1st inversion ===================== - - Handle> state(S.createState(u)); - LinOpSysSolverCGEnv::registerAll(); - QuarkSpinType quarkSpinType = QUARK_SPIN_TYPE_FULL; - - try - { - XMLFileWriter xml_out("1st_propagator"); - push(xml_out, "meson_crrltr"); - - S.quarkProp(quark_prpgtr, xml_out, - quark_src, state, InvertParam, - quarkSpinType, ncg_had); - - xml_out.flush(); - pop(xml_out); - } - catch (const string &e) - { - QDPIO::cout << "Error trying to perform the inversion:" << e << endl; - QDP_abort(1); - } - - //============== 1st propagator sink smearing (not applied here)!!!!================ - /* try - { - // Get the name of the smearing - string smearing_name; - read(xml_in, "/chroma/Param/InlineMeasurements/elem/Param/Sink/Sink_Smearing/SinkType", smearing_name); - - QDPIO::cout << "sink smearing:" << smearing_name << endl; - - Handle> - sinkSmearing(ThePropSinkSmearingFactory::Instance().createObject(smearing_name, xml_in, "/chroma/Param/InlineMeasurements/elem/Param/Sink/Sink_Smearing", u)); - - (*sinkSmearing)(quark_prpgtr); - } - catch (const string &e) - { - QDPIO::cerr << ": Caught Exception : " << e << endl; - QDP_abort(1); - } -*/ - //======================Feynman-Hellman Source========================= - - //Src^{H}(Delta)=gaugelink(z,z+\Delta \hat \mu)*quark_prpatr(z+Delta), Needs to shift quark_prpatr(z) to quark_prpatr quark_prpatr(z+Delta) - - //calculate propagator with FH source - LatticePropagator quark_prpgtr_Delta = zero; - LatticePropagator FH_src = zero; - LatticePropagator FH_quark_prpgtr = zero; - LatticeColorMatrix gaugelink = zero; - - try - { - gaugelink = gauge_link(u, +1, dir, steps); - - quark_prpgtr_Delta = multi_shift(quark_prpgtr, steps, dir, nrow[dir], bndry_cndtns[dir]); - - //Gamma(8)=gamma^3 comes from the definition of quasi-PDF - - // LatticePropagator FH_src = Gamma(8)* gaugelink * quark_prpgtr_Delta; Wrong!, QDP does not support Gamma multiply with ColorMatrix - - FH_src = gaugelink * (Gamma(8) * quark_prpgtr_Delta); - - //======================Feynman-Hellman Source========================= - - Handle> state(S.createState(u)); - - LinOpSysSolverCGEnv::registerAll(); - - QuarkSpinType quarkSpinType = QUARK_SPIN_TYPE_FULL; - - //===============2nd inversion Feynman-Hellman propagator================== - - XMLFileWriter xml_out("fh_xmldat"); - push(xml_out, "FH_meson_crrltr"); - S.quarkProp(FH_quark_prpgtr, xml_out, - FH_src, state, InvertParam, - quarkSpinType, ncg_had); - xml_out.flush(); - pop(xml_out); - } - catch (const string &e) - { - QDPIO::cout << "Error trying to perform the inversion:" << e << endl; - QDP_abort(1); - } - - if(meson) { - //=========================meson-correlation function======================== - - LatticePropagator anti_quark_prpgtr = Gamma(gamma) * quark_prpgtr * Gamma(gamma); - LatticeComplex tr_prpgtrs = trace(Gamma(gamma) * adj(anti_quark_prpgtr) * Gamma(gamma) * FH_quark_prpgtr); - - //=========================HDF5 Output======================== - - LatticePropagatorReImPrt quark_prpgtr_Re = real(quark_prpgtr); - LatticePropagatorReImPrt quark_prpgtr_Im = imag(quark_prpgtr); - - LatticePropagatorReImPrt quark_prpgtr_shftd_Re = real(quark_prpgtr_Delta); - LatticePropagatorReImPrt quark_prpgtr_shftd_Im = imag(quark_prpgtr_Delta); - - LatticeColorMatrixReImPrt gaugelink_Re = real(gaugelink); - LatticeColorMatrixReImPrt gaugelink_Im = imag(gaugelink); - - LatticePropagatorReImPrt FH_src_Re = real(FH_src); - LatticePropagatorReImPrt FH_src_Im = imag(FH_src); - - LatticePropagatorReImPrt FH_quark_prpgtrRe = real(FH_quark_prpgtr); - LatticePropagatorReImPrt FH_quark_prpgtrIm = imag(FH_quark_prpgtr); - - LatticeDouble tr_prpgtrs_Re = real(tr_prpgtrs); - LatticeDouble tr_prpgtrs_Im = imag(tr_prpgtrs); - - string pi_mtrx_elmnt = ""; - string meson_interp = "ubar Gamma(" + to_string(gamma)+") u"; - - - - cout<<"==========================\n"< - - - - - MAKE_SOURCE - 1 - - 6 - - - 1 - POINT_SOURCE - 3 - 0 0 0 0 - - GAUGE_INV_GAUSSIAN - 2.8284 - 20 - 3 - - - - STOUT_SMEAR - 0.0 - 0 - 3 - - - - - 1 - POINT_SINK - 3 - 0 0 0 0 - - GAUGE_INV_GAUSSIAN - 2.8284 - 20 - 3 - - - - - - default_gauge_field - t160z0y0x0 - - - - - 3 - 3 - - - - - PROPAGATOR - 1 - - 10 - FULL - false - 1 - - CLOVER - -0.0743 - 1.58932722549812 - 0.902783591772098 - - true - 3 - 4.3 - 1.265 - - - STOUT_FERM_STATE - 0.14 - 2 - 3 - - SIMPLE_FERMBC - 1 1 1 -1 - - - - - CG_INVERTER - 1e-9 - 100 - - -0.0743 - 1.58932722549812 - 0.902783591772098 - - true - 3 - 4.3 - 1.265 - - - 1.0e-8 - 0.1 - 10000000 - true - BICGSTAB - false - false - RECONS_12 - HALF - RECONS_12 - false - - - - default_gauge_field - t160z0y0x0 - t160z0y0x0_pt_pt - - - - - - Save the prop - QIO_WRITE_NAMED_OBJECT - 1 - - t160z0y0x0_sh_pt - LatticePropagatorF - - - ./props/testProp - SINGLEFILE - - - - - 4 4 4 32 - - - SZINQIO - ./cfgs/wilson_k0.1665_b5.32144_4by32_cfg_4000.lime - - diff --git a/hadron_PDF/misc/get_point_source.h b/hadron_PDF/misc/get_point_source.h deleted file mode 100644 index 8594cfe..0000000 --- a/hadron_PDF/misc/get_point_source.h +++ /dev/null @@ -1,29 +0,0 @@ -#ifndef GET_POINT_SOURCE_H -#define GET_POINT_SOURCE_H - -LatticePropagator getPointSource(const multi1d &pos, const int &time_dir) -{ - START_CODE(); - - //result vector: - LatticePropagator result = zero; - for (unsigned int c = 0; c < Nc; c++) - { - //fill lattice color vector with a one at pos: - LatticeColorVector tmpcolorvec = zero; - srcfil(tmpcolorvec, pos, c); - - //inject in larger source: - for (unsigned int s = 0; s < Ns; s++) - { - LatticeFermion tmpferm = zero; - CvToFerm(tmpcolorvec, tmpferm, s); - FermToProp(tmpferm, result, c, s); - } - } - END_CODE(); - - return result; -} - -#endif \ No newline at end of file diff --git a/hadron_PDF/misc/pion_PDF_Data_Analysis.nb b/hadron_PDF/misc/pion_PDF_Data_Analysis.nb deleted file mode 100644 index dfe4e26..0000000 --- a/hadron_PDF/misc/pion_PDF_Data_Analysis.nb +++ /dev/null @@ -1,17007 +0,0 @@ -(* Content-type: application/vnd.wolfram.mathematica *) - -(*** Wolfram Notebook File ***) -(* http://www.wolfram.com/nb *) - -(* CreatedBy='Mathematica 11.0' *) - -(*CacheID: 234*) -(* Internal cache information: -NotebookFileLineBreakTest -NotebookFileLineBreakTest -NotebookDataPosition[ 158, 7] -NotebookDataLength[ 786824, 16999] -NotebookOptionsPosition[ 769484, 16463] -NotebookOutlinePosition[ 769878, 16480] -CellTagsIndexPosition[ 769835, 16477] -WindowFrame->Normal*) - -(* Beginning of Notebook Content *) -Notebook[{ -Cell[BoxData["Quit"], "Input", - CellChangeTimes->{{3.725539484270484*^9, 3.725539484959667*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"SetDirectory", "[", - RowBox[{"NotebookDirectory", "[", "]"}], "]"}]], "Input", - CellChangeTimes->{{3.705760640546487*^9, 3.705760649245377*^9}}], - -Cell[BoxData[ - FormBox["\<\"/Users/xiaonuxiong/Dropbox/PDF Euclidean \ -Lattice/Hadron_Structure_Lattice/PDF/pion_PDF_HDF5\"\>", - TraditionalForm]], "Output", - CellChangeTimes->{ - 3.705760649944145*^9, 3.706639442369989*^9, 3.707476381909349*^9, - 3.70755191009597*^9, 3.7076353391362143`*^9, 3.707636824438384*^9, - 3.707758213544374*^9, 3.707812527065201*^9, 3.708018973962532*^9, - 3.725350119635661*^9, {3.725539487977661*^9, 3.725539489167404*^9}, { - 3.725626691728545*^9, 3.725626706595131*^9}, 3.725631566008964*^9, - 3.7256399820248404`*^9, 3.725640165640423*^9, 3.7256402750651627`*^9, - 3.7256410503621798`*^9, 3.725643585836741*^9, 3.7256564491350307`*^9, - 3.725700419461087*^9, 3.725700909852065*^9, 3.725701436885186*^9, - 3.725785341958517*^9, 3.726307807970208*^9, 3.72760624719274*^9, - 3.7276065804890347`*^9, 3.7276066735851*^9}] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"H", "=", "ConjugateTranspose"}], ";"}]], "Input", - CellChangeTimes->{{3.72564137145625*^9, 3.725641375872422*^9}, { - 3.7256414718059387`*^9, 3.725641487111169*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"{", - RowBox[{"Nx", ",", "Ny", ",", "Nz", ",", "Nt"}], "}"}], "=", - RowBox[{"{", - RowBox[{"4", ",", "4", ",", "4", ",", "32"}], "}"}]}]], "Input", - CellChangeTimes->{{3.727626582048881*^9, 3.727626606808469*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{"4", ",", "4", ",", "4", ",", "32"}], "}"}], - TraditionalForm]], "Output", - CellChangeTimes->{{3.727626603212178*^9, 3.7276266072122183`*^9}}] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trcdprpgtr_", ",", - RowBox[{"P_", "?", - RowBox[{"(", - RowBox[{ - RowBox[{ - RowBox[{"(", - RowBox[{ - RowBox[{"Head", "[", "#", "]"}], "\[Equal]", "List"}], ")"}], "&&", - - RowBox[{"(", - RowBox[{ - RowBox[{"Length", "[", - RowBox[{"#", "_"}], "]"}], "\[Equal]", "3"}], ")"}]}], "&"}], - ")"}]}]}], "]"}], ":=", - RowBox[{"Table", "[", - RowBox[{ - RowBox[{"ParallelSum", "[", - RowBox[{ - RowBox[{ - SuperscriptBox["E", - RowBox[{ - RowBox[{"-", "I"}], "*", "2", "\[Pi]", "*", - RowBox[{"(", - RowBox[{ - RowBox[{ - RowBox[{ - "P", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "*", - - FractionBox["i", "Nx"]}], "+", - RowBox[{ - RowBox[{ - "P", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "*", - - FractionBox["j", "Ny"]}], "+", - RowBox[{ - RowBox[{ - "P", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "*", - - FractionBox["k", "Nz"]}]}], ")"}]}]], "*", - RowBox[{"trcdprpgtr", "\[LeftDoubleBracket]", - RowBox[{"i", ",", "j", ",", "k", ",", "t"}], - "\[RightDoubleBracket]"}]}], ",", - RowBox[{"{", - RowBox[{"i", ",", "Nx"}], "}"}], ",", - RowBox[{"{", - RowBox[{"j", ",", "Ny"}], "}"}], ",", - RowBox[{"{", - RowBox[{"k", ",", "Nz"}], "}"}]}], "]"}], ",", - RowBox[{"{", - RowBox[{"t", ",", "Nt"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.725712757613652*^9, 3.725712899276647*^9}, - 3.725712991285158*^9, {3.725713042194129*^9, 3.7257130474869823`*^9}, { - 3.7257175633041487`*^9, 3.725717587739884*^9}, {3.725717895228223*^9, - 3.725717945580244*^9}, {3.72762654927557*^9, 3.727626576727689*^9}}], - -Cell[CellGroupData[{ - -Cell[TextData[{ - "quark propagator calculated from transformed gauge configuration, ", - Cell[BoxData[ - FormBox[ - RowBox[{ - RowBox[{ - SubscriptBox["S", "F"], "[", - RowBox[{ - SubscriptBox["n", "x"], ",", - SubscriptBox["n", "y"], ",", - SubscriptBox["n", "z"], ",", - SubscriptBox["n", "t"]}], "]"}], " ", "=", " ", - RowBox[{"(", GridBox[{ - { - SuperscriptBox[ - SubscriptBox["T", "01"], - RowBox[{ - SubscriptBox["a", "n"], - SubscriptBox["b", "src"]}]], "...", "...", - SuperscriptBox[ - SubscriptBox["T", "03"], - RowBox[{ - SubscriptBox["a", "n"], - SubscriptBox["b", "src"]}]]}, - {"...", "...", "...", "..."}, - {"...", "...", "...", "..."}, - { - SuperscriptBox[ - SubscriptBox["T", "31"], - RowBox[{ - SubscriptBox["a", "n"], - SubscriptBox["b", "src"]}]], "...", "...", - SuperscriptBox[ - SubscriptBox["T", "33"], - RowBox[{ - SubscriptBox["a", "n"], - SubscriptBox["b", "src"]}]]} - }], ")"}], " "}], TraditionalForm]]], - " is the propagator ", - Cell[BoxData[ - FormBox[ - RowBox[{"src", "\[Rule]", " ", - RowBox[{"LatticeSite", " ", "[", - RowBox[{ - SubscriptBox["n", "x"], ",", - SubscriptBox["n", "y"], ",", - SubscriptBox["n", "z"], ",", - SubscriptBox["n", "t"]}], "]"}]}], TraditionalForm]]], - ", ", - Cell[BoxData[ - FormBox[ - RowBox[{ - RowBox[{ - RowBox[{"SFTrnsfmdF", "[", - RowBox[{"{", - RowBox[{ - SubscriptBox["n", "x"], ",", - SubscriptBox["n", "y"], ",", - SubscriptBox["n", "z"], ",", - SubscriptBox["n", "t"]}], "}"}], "]"}], "\[LeftDoubleBracket]", - RowBox[{"\[Alpha]", ",", "\[Beta]"}], "\[RightDoubleBracket]"}], "=", - SubscriptBox["T", "\[Alpha]\[Beta]"]}], TraditionalForm]]], - ", ", - Cell[BoxData[ - FormBox[ - SubscriptBox["T", "\[Alpha]\[Beta]"], TraditionalForm]]], - " is an 3\[Times]3 SU(3) color matrix ", - Cell[BoxData[ - FormBox[ - RowBox[{"(", - RowBox[{ - SubscriptBox["\[Alpha]", "n"], ",", - SubscriptBox["\[Beta]", "src"]}]}], TraditionalForm]]], - " are Dirac Spinor indices and ", - Cell[BoxData[ - FormBox[ - RowBox[{"a", ",", "b"}], TraditionalForm]]], - " are color indices) " -}], "Subtitle", - CellGroupingRules->{"TitleGrouping", Inherited}, - CellChangeTimes->{{3.708086065839361*^9, 3.7080861441953993`*^9}, { - 3.70808625143326*^9, 3.708086252107943*^9}, 3.708086988220398*^9, { - 3.708102693292859*^9, 3.708102812181559*^9}, {3.708102882460631*^9, - 3.7081029937434893`*^9}, {3.708103029735848*^9, 3.708103210018227*^9}, { - 3.708103254326831*^9, 3.7081032591648397`*^9}, {3.708103551568356*^9, - 3.708103560757443*^9}, {3.725643982094989*^9, 3.725644041912719*^9}}], - -Cell[CellGroupData[{ - -Cell["Before rgauge", "Section", - CellGroupingRules->{"SectionGrouping", Inherited}, - CellChangeTimes->{{3.7256412183837976`*^9, 3.725641223278173*^9}, { - 3.725644486987544*^9, 3.725644489852841*^9}}], - -Cell[CellGroupData[{ - -Cell["1st propagator", "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}, - CellChangeTimes->{{3.725656271709669*^9, 3.725656276566455*^9}, { - 3.725699692754438*^9, 3.7256996962179937`*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"qPrpgtr1stRe", "=", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.72562665211205*^9, 3.72562676950429*^9}, { - 3.725631551939337*^9, 3.725631602205366*^9}, {3.7256435592880087`*^9, - 3.725643559920628*^9}, 3.72571181213239*^9}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"qPrpgtr1stIm", "=", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.725631607412291*^9, 3.725631610565555*^9}, { - 3.7256316703181667`*^9, 3.725631671183812*^9}, {3.725643564343758*^9, - 3.7256435649761257`*^9}, 3.725711816203471*^9}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"qPrpgtr1st", "=", - RowBox[{"qPrpgtr1stRe", "+", - RowBox[{"I", "*", "qPrpgtr1stIm"}]}]}], ";"}]], "Input", - CellChangeTimes->{{3.725643605560816*^9, 3.725643612562199*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"qPrpgtr1stLttcSpnClr", "=", - RowBox[{"Transpose", "[", - RowBox[{ - RowBox[{"ArrayReshape", "[", - RowBox[{"qPrpgtr1st", ",", - RowBox[{"{", - RowBox[{ - "32", ",", "4", ",", "4", ",", "4", ",", "4", ",", "4", ",", "3", ",", - "3"}], "}"}]}], "]"}], ",", - RowBox[{"{", - RowBox[{ - "4", ",", "3", ",", "2", ",", "1", ",", "5", ",", "6", ",", "7", ",", - "8"}], "}"}]}], "]"}]}], ";"}]], "Input"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell["shifted propagator", "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}, - CellChangeTimes->{{3.725656271709669*^9, 3.725656276566455*^9}, { - 3.725699692754438*^9, 3.7256996962179937`*^9}, {3.725699819441413*^9, - 3.725699828613596*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"qPrpgtrshftdRe", "=", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.72562665211205*^9, 3.72562676950429*^9}, { - 3.725631551939337*^9, 3.725631602205366*^9}, {3.7256435592880087`*^9, - 3.725643559920628*^9}, {3.725699833055893*^9, 3.7256998527021093`*^9}, - 3.72571185826889*^9}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"qPrpgtrshftdIm", "=", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.725631607412291*^9, 3.725631610565555*^9}, { - 3.7256316703181667`*^9, 3.725631671183812*^9}, {3.725643564343758*^9, - 3.7256435649761257`*^9}, {3.725699842110869*^9, 3.725699856965682*^9}, { - 3.7257118611675253`*^9, 3.725711861414588*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"qPrpgtrshftd", "=", - RowBox[{"qPrpgtrshftdRe", "+", - RowBox[{"I", "*", "qPrpgtrshftdIm"}]}]}], ";"}]], "Input", - CellChangeTimes->{{3.725643605560816*^9, 3.725643612562199*^9}, { - 3.72569984472806*^9, 3.7256998501421967`*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"qPrpgtrshftdLttcSpnClr", "=", - RowBox[{"Transpose", "[", - RowBox[{ - RowBox[{"ArrayReshape", "[", - RowBox[{"qPrpgtrshftd", ",", - RowBox[{"{", - RowBox[{ - "32", ",", "4", ",", "4", ",", "4", ",", "4", ",", "4", ",", "3", ",", - "3"}], "}"}]}], "]"}], ",", - RowBox[{"{", - RowBox[{ - "4", ",", "3", ",", "2", ",", "1", ",", "5", ",", "6", ",", "7", ",", - "8"}], "}"}]}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.7256998642465153`*^9, 3.725699870541575*^9}}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell["gauge link", "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}, - CellChangeTimes->{{3.725656271709669*^9, 3.7256562858139887`*^9}, { - 3.7256996980657873`*^9, 3.725699704005851*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"glinkRe", "=", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.7256472399839163`*^9, 3.7256472610576773`*^9}, { - 3.725711868846345*^9, 3.725711869080202*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"glinkIm", "=", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.725647265733886*^9, 3.725647274254881*^9}, { - 3.7257118720054903`*^9, 3.725711872239101*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"glink", "=", - RowBox[{"Transpose", "[", - RowBox[{ - RowBox[{"ArrayReshape", "[", - RowBox[{ - RowBox[{"glinkRe", "+", - RowBox[{"I", "*", "glinkIm"}]}], ",", - RowBox[{"{", - RowBox[{"32", ",", "4", ",", "4", ",", "4", ",", "3", ",", "3"}], - "}"}]}], "]"}], ",", - RowBox[{"{", - RowBox[{"4", ",", "3", ",", "2", ",", "1", ",", "5", ",", "6"}], - "}"}]}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.725647279453188*^9, 3.725647339148005*^9}}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell["Feynman - Hellman source", "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}, - CellChangeTimes->{{3.725656291238531*^9, 3.725656301669157*^9}, { - 3.725699708412888*^9, 3.725699713374634*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"FHqSrcRe", "=", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.72562665211205*^9, 3.72562676950429*^9}, { - 3.725631551939337*^9, 3.725631602205366*^9}, {3.7256435592880087`*^9, - 3.725643559920628*^9}, {3.7256444989311533`*^9, 3.725644508726789*^9}, { - 3.725655849555999*^9, 3.725655890614148*^9}, {3.725656523039193*^9, - 3.7256565367458143`*^9}, {3.725656649870903*^9, 3.7256566525202017`*^9}, - 3.7257118789586554`*^9}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"FHqSrcIm", "=", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.725656464317852*^9, 3.725656473766823*^9}, { - 3.725656524758922*^9, 3.725656540303549*^9}, {3.725656657215453*^9, - 3.7256566597831163`*^9}, {3.725711881301868*^9, 3.725711881551652*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"FHqSrc", "=", - RowBox[{"FHqSrcRe", "+", - RowBox[{"I", "*", "FHqSrcIm"}]}]}], ";"}]], "Input", - CellChangeTimes->{{3.725643605560816*^9, 3.725643612562199*^9}, { - 3.7256445037950573`*^9, 3.725644521419815*^9}, {3.725655854199995*^9, - 3.7256558544890127`*^9}, {3.725656491957226*^9, 3.725656495327186*^9}, { - 3.725656554352331*^9, 3.725656563721546*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"FHqSrcLttcSpnClr", "=", - RowBox[{"Transpose", "[", - RowBox[{ - RowBox[{"ArrayReshape", "[", - RowBox[{"FHqSrc", ",", - RowBox[{"{", - RowBox[{ - "32", ",", "4", ",", "4", ",", "4", ",", "4", ",", "4", ",", "3", ",", - "3"}], "}"}]}], "]"}], ",", - RowBox[{"{", - RowBox[{ - "4", ",", "3", ",", "2", ",", "1", ",", "5", ",", "6", ",", "7", ",", - "8"}], "}"}]}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.72564452511548*^9, 3.725644528836793*^9}, { - 3.725655856810301*^9, 3.725655861554368*^9}, {3.725656574537294*^9, - 3.725656577188403*^9}}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell["Feynman - Hellman propagator", "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}, - CellChangeTimes->{{3.725656291238531*^9, 3.7256563165990334`*^9}, { - 3.725699716498109*^9, 3.725699721368417*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"FHqPrpgtrRe", "=", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.72562665211205*^9, 3.72562676950429*^9}, { - 3.725631551939337*^9, 3.725631602205366*^9}, {3.7256435592880087`*^9, - 3.725643559920628*^9}, {3.7256444989311533`*^9, 3.725644508726789*^9}, { - 3.725655849555999*^9, 3.725655867868916*^9}, {3.725711905132998*^9, - 3.72571190536789*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"FHqPrpgtrIm", "=", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.725631607412291*^9, 3.725631610565555*^9}, { - 3.7256316703181667`*^9, 3.725631671183812*^9}, {3.725643564343758*^9, - 3.7256435649761257`*^9}, {3.725644501043137*^9, 3.7256445125633993`*^9}, { - 3.725655852089212*^9, 3.725655870657283*^9}, {3.7257119078889217`*^9, - 3.7257119081678867`*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"FHqPrpgtr", "=", - RowBox[{"FHqPrpgtrRe", "+", - RowBox[{"I", "*", "FHqPrpgtrIm"}]}]}], ";"}]], "Input", - CellChangeTimes->{{3.725643605560816*^9, 3.725643612562199*^9}, { - 3.7256445037950573`*^9, 3.725644521419815*^9}, {3.725655854199995*^9, - 3.7256558544890127`*^9}, {3.725656491957226*^9, 3.725656495327186*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"FHqPrpgtrLttcSpnClr", "=", - RowBox[{"Transpose", "[", - RowBox[{ - RowBox[{"ArrayReshape", "[", - RowBox[{"FHqPrpgtr", ",", - RowBox[{"{", - RowBox[{ - "32", ",", "4", ",", "4", ",", "4", ",", "4", ",", "4", ",", "3", ",", - "3"}], "}"}]}], "]"}], ",", - RowBox[{"{", - RowBox[{ - "4", ",", "3", ",", "2", ",", "1", ",", "5", ",", "6", ",", "7", ",", - "8"}], "}"}]}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.72564452511548*^9, 3.725644528836793*^9}, { - 3.725655856810301*^9, 3.725655861554368*^9}}] -}, Open ]] -}, Closed]], - -Cell[CellGroupData[{ - -Cell["rgauge", "Section", - CellGroupingRules->{"SectionGrouping", Inherited}, - CellChangeTimes->{{3.725641225186697*^9, 3.725641230854754*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"grgaugeRe", "=", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.725639953362183*^9, 3.7256399787934504`*^9}, - 3.7256401483147993`*^9, {3.725640292183514*^9, 3.725640298738061*^9}, { - 3.725643566903841*^9, 3.7256435700750933`*^9}, {3.725643640930113*^9, - 3.725643642018786*^9}, {3.72564370171421*^9, 3.725643702468093*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"grgaugeIm", "=", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.725639953362183*^9, 3.7256399787934504`*^9}, - 3.7256401483147993`*^9, {3.725643572490059*^9, 3.7256435772155046`*^9}, { - 3.7256437094071007`*^9, 3.72564371073253*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"grgauge", "=", - RowBox[{"Transpose", "[", - RowBox[{ - RowBox[{"ArrayReshape", "[", - RowBox[{ - RowBox[{"grgaugeRe", "+", - RowBox[{"I", "*", "grgaugeIm"}]}], ",", - RowBox[{"{", - RowBox[{"32", ",", "4", ",", "4", ",", "4", ",", "3", ",", "3"}], - "}"}]}], "]"}], ",", - RowBox[{"{", - RowBox[{"4", ",", "3", ",", "2", ",", "1", ",", "5", ",", "6"}], - "}"}]}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.725640312024447*^9, 3.725640323623966*^9}, { - 3.725641102689322*^9, 3.7256411327386913`*^9}, {3.725643713467198*^9, - 3.725643718686511*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"grgauge", "\[LeftDoubleBracket]", - RowBox[{"1", ",", "2", ",", "1", ",", "13"}], "\[RightDoubleBracket]"}], "//", - "Det"}]], "Input", - CellChangeTimes->{{3.725641400686921*^9, 3.725641417726728*^9}, - 3.725643722524563*^9}], - -Cell[BoxData[ - FormBox[ - RowBox[{"0.9999999999999999`", "\[VeryThinSpace]", "+", - RowBox[{"2.7755575615628914`*^-17", " ", "\[ImaginaryI]"}]}], - TraditionalForm]], "Output", - CellChangeTimes->{{3.725641404210082*^9, 3.725641418072795*^9}, - 3.725643649931398*^9, 3.725643723092515*^9, 3.725646558217729*^9, - 3.72565659341159*^9}] -}, Open ]] -}, Closed]], - -Cell[CellGroupData[{ - -Cell["After rgauge", "Section", - CellGroupingRules->{"SectionGrouping", Inherited}, - CellChangeTimes->{{3.7256412347706003`*^9, 3.7256412389689093`*^9}}], - -Cell[CellGroupData[{ - -Cell["1 st propagator", "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}, - CellChangeTimes->{{3.725656271709669*^9, 3.725656276566455*^9}, { - 3.725699725682953*^9, 3.725699741163118*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"qPrpgtr1strgaugedRe", "=", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.72562665211205*^9, 3.72562676950429*^9}, { - 3.725631551939337*^9, 3.725631602205366*^9}, {3.725641271505569*^9, - 3.725641303208529*^9}, {3.725643657177619*^9, 3.7256436777385273`*^9}, { - 3.7256437272425137`*^9, 3.725643728227606*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"qPrpgtr1strgaugedIm", "=", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.725631607412291*^9, 3.725631610565555*^9}, { - 3.7256316703181667`*^9, 3.725631671183812*^9}, {3.725641277845203*^9, - 3.72564130484127*^9}, {3.725643679233067*^9, 3.725643686496804*^9}, { - 3.725643733376554*^9, 3.725643735076849*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"qPrpgtr1strgauged", "=", - RowBox[{"qPrpgtr1strgaugedRe", "+", - RowBox[{"I", "*", "qPrpgtr1strgaugedIm"}]}]}], ";"}]], "Input", - CellChangeTimes->{{3.725631677942274*^9, 3.725631685485791*^9}, { - 3.725641314361702*^9, 3.725641318070971*^9}, {3.7256437369982033`*^9, - 3.725643742342338*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"qPrpgtr1strgaugedLttcSpnClr", "=", - RowBox[{"Transpose", "[", - RowBox[{ - RowBox[{"ArrayReshape", "[", - RowBox[{"qPrpgtr1strgauged", ",", - RowBox[{"{", - RowBox[{ - "32", ",", "4", ",", "4", ",", "4", ",", "4", ",", "4", ",", "3", ",", - "3"}], "}"}]}], "]"}], ",", - RowBox[{"{", - RowBox[{ - "4", ",", "3", ",", "2", ",", "1", ",", "5", ",", "6", ",", "7", ",", - "8"}], "}"}]}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.7256415561181517`*^9, 3.725641559197625*^9}, { - 3.725643752140738*^9, 3.725643759952509*^9}}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell["gauge link", "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}, - CellChangeTimes->{{3.725656271709669*^9, 3.7256562858139887`*^9}, { - 3.72569972733399*^9, 3.725699751412302*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"glinkrgaugedRe", "=", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.7256472399839163`*^9, 3.7256472610576773`*^9}, { - 3.7256473917646313`*^9, 3.725647413354886*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"glinkrgaugedIm", "=", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.725647265733886*^9, 3.725647274254881*^9}, { - 3.7256473976504498`*^9, 3.725647416923065*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"glinkrgauged", "=", - RowBox[{"Transpose", "[", - RowBox[{ - RowBox[{"ArrayReshape", "[", - RowBox[{ - RowBox[{"glinkrgaugedRe", "+", - RowBox[{"I", "*", "glinkrgaugedIm"}]}], ",", - RowBox[{"{", - RowBox[{"32", ",", "4", ",", "4", ",", "4", ",", "3", ",", "3"}], - "}"}]}], "]"}], ",", - RowBox[{"{", - RowBox[{"4", ",", "3", ",", "2", ",", "1", ",", "5", ",", "6"}], - "}"}]}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.725647279453188*^9, 3.725647339148005*^9}, { - 3.7256474021082773`*^9, 3.725647427604389*^9}}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell["Feynman - Hellman source", "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}, - CellChangeTimes->{{3.725656291238531*^9, 3.725656301669157*^9}, { - 3.725699729545974*^9, 3.7256997569293013`*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"FHqSrcrgaugedRe", "=", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.72562665211205*^9, 3.72562676950429*^9}, { - 3.725631551939337*^9, 3.725631602205366*^9}, {3.7256435592880087`*^9, - 3.725643559920628*^9}, {3.7256444989311533`*^9, 3.725644508726789*^9}, { - 3.725655849555999*^9, 3.725655890614148*^9}, {3.725656523039193*^9, - 3.7256565367458143`*^9}, {3.725656626461113*^9, 3.725656628550949*^9}, { - 3.7256566730311117`*^9, 3.725656678283309*^9}, {3.7256567466812067`*^9, - 3.725656748006177*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"FHqSrcrgaugedIm", "=", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.725656464317852*^9, 3.725656473766823*^9}, { - 3.725656524758922*^9, 3.725656540303549*^9}, 3.725656632553776*^9, { - 3.7256566826878853`*^9, 3.725656686894453*^9}, {3.7256567492221212`*^9, - 3.7256567528621683`*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"FHqSrcrgauged", "=", - RowBox[{"FHqSrcrgaugedRe", "+", - RowBox[{"I", "*", "FHqSrcrgaugedIm"}]}]}], ";"}]], "Input", - CellChangeTimes->{{3.725643605560816*^9, 3.725643612562199*^9}, { - 3.7256445037950573`*^9, 3.725644521419815*^9}, {3.725655854199995*^9, - 3.7256558544890127`*^9}, {3.725656491957226*^9, 3.725656495327186*^9}, { - 3.725656554352331*^9, 3.725656563721546*^9}, 3.7256566349727907`*^9, { - 3.725656698412743*^9, 3.7256567009480057`*^9}, {3.725656762296735*^9, - 3.725656766608568*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"FHqSrcrgaugedLttcSpnClr", "=", - RowBox[{"Transpose", "[", - RowBox[{ - RowBox[{"ArrayReshape", "[", - RowBox[{"FHqSrcrgauged", ",", - RowBox[{"{", - RowBox[{ - "32", ",", "4", ",", "4", ",", "4", ",", "4", ",", "4", ",", "3", ",", - "3"}], "}"}]}], "]"}], ",", - RowBox[{"{", - RowBox[{ - "4", ",", "3", ",", "2", ",", "1", ",", "5", ",", "6", ",", "7", ",", - "8"}], "}"}]}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.72564452511548*^9, 3.725644528836793*^9}, { - 3.725655856810301*^9, 3.725655861554368*^9}, {3.725656574537294*^9, - 3.725656577188403*^9}, {3.725656820762151*^9, 3.725656826600218*^9}}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell["Feynman - Hellman propagator", "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}, - CellChangeTimes->{{3.725656291238531*^9, 3.7256563165990334`*^9}, - 3.725699731862711*^9, {3.725699762712425*^9, 3.7256997644767237`*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"FHqPrpgtrrgaugedRe", "=", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.72562665211205*^9, 3.72562676950429*^9}, { - 3.725631551939337*^9, 3.725631602205366*^9}, {3.725641271505569*^9, - 3.725641303208529*^9}, {3.725643657177619*^9, 3.7256436777385273`*^9}, { - 3.7256437272425137`*^9, 3.725643728227606*^9}, {3.725644541124464*^9, - 3.725644556880106*^9}, {3.725656833682551*^9, 3.7256568412517643`*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"FHqPrpgtrrgaugedIm", "=", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.725631607412291*^9, 3.725631610565555*^9}, { - 3.7256316703181667`*^9, 3.725631671183812*^9}, {3.725641277845203*^9, - 3.72564130484127*^9}, {3.725643679233067*^9, 3.725643686496804*^9}, { - 3.725643733376554*^9, 3.725643735076849*^9}, {3.725644544756536*^9, - 3.725644558973984*^9}, {3.725656836522678*^9, 3.725656844507267*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"FHqPrpgtrrgauged", "=", - RowBox[{"FHqPrpgtrrgaugedRe", "+", - RowBox[{"I", "*", "FHqPrpgtrrgaugedIm"}]}]}], ";"}]], "Input", - CellChangeTimes->{{3.725631677942274*^9, 3.725631685485791*^9}, { - 3.725641314361702*^9, 3.725641318070971*^9}, {3.7256437369982033`*^9, - 3.725643742342338*^9}, {3.725644547718061*^9, 3.7256445541345587`*^9}, { - 3.725656846090735*^9, 3.725656853286272*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"FHqPrpgtrrgaugedLttcSpnClr", "=", - RowBox[{"Transpose", "[", - RowBox[{ - RowBox[{"ArrayReshape", "[", - RowBox[{"FHqPrpgtrrgauged", ",", - RowBox[{"{", - RowBox[{ - "32", ",", "4", ",", "4", ",", "4", ",", "4", ",", "4", ",", "3", ",", - "3"}], "}"}]}], "]"}], ",", - RowBox[{"{", - RowBox[{ - "4", ",", "3", ",", "2", ",", "1", ",", "5", ",", "6", ",", "7", ",", - "8"}], "}"}]}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.7256415561181517`*^9, 3.725641559197625*^9}, { - 3.725643752140738*^9, 3.725643759952509*^9}, {3.725644550052765*^9, - 3.7256445688215647`*^9}, {3.725656860804782*^9, 3.7256568663011293`*^9}}] -}, Open ]] -}, Closed]], - -Cell[CellGroupData[{ - -Cell["Checks", "Section", - CellChangeTimes->{{3.72569966787253*^9, 3.725699669625636*^9}}], - -Cell[CellGroupData[{ - -Cell["Check gauge transformation on gaugelink", "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}, - CellChangeTimes->{ - 3.725641242645789*^9, {3.725641322515449*^9, 3.725641331570396*^9}, { - 3.72564735939476*^9, 3.725647360668185*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"glink", "//", "Dimensions"}]], "Input", - CellChangeTimes->{{3.725647730952394*^9, 3.72564773284862*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{"4", ",", "4", ",", "4", ",", "32", ",", "3", ",", "3"}], "}"}], - TraditionalForm]], "Output", - CellChangeTimes->{3.7256477334970016`*^9}] -}, Open ]], - -Cell[BoxData[ - RowBox[{"glink", "\[LeftDoubleBracket]", - RowBox[{"2", ",", "1", ",", "1", ",", "4"}], - "\[RightDoubleBracket]"}]], "Input"] -}, Closed]], - -Cell[CellGroupData[{ - -Cell["Check shifted quark propagator (checked)", "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}, - CellChangeTimes->{ - 3.725641242645789*^9, {3.725641322515449*^9, 3.725641331570396*^9}, { - 3.72564735939476*^9, 3.725647360668185*^9}, {3.7256999148095007`*^9, - 3.725699921524846*^9}, {3.725702771834337*^9, 3.725702774616982*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"qPrpgtr1stLttcSpnClr", "\[LeftDoubleBracket]", - RowBox[{"1", ",", "1", ",", "2", ",", "1"}], - "\[RightDoubleBracket]"}]], "Input", - CellChangeTimes->{ - 3.725700201394765*^9, {3.725702387652401*^9, 3.7257023937564707`*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{ - RowBox[{"-", "0.003111927246681806`"}], "-", - RowBox[{"0.0010361123359370861`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.003100271437016059`"}], "+", - RowBox[{"0.01705589913237144`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.018258301832311204`"}], "-", - RowBox[{"0.015020241016367591`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.026704023624807092`", "\[VeryThinSpace]", "-", - RowBox[{"0.011520730262297838`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0034449044826304915`", "\[VeryThinSpace]", "-", - RowBox[{"0.0033398146794742342`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0032486448265802636`"}], "-", - RowBox[{"0.007526290468758525`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.005314814904957572`", "\[VeryThinSpace]", "+", - RowBox[{"0.0002642417995088883`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0203740482696112`"}], "+", - RowBox[{"0.009984979216154696`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0027698441105191785`"}], "+", - RowBox[{"0.015232322560096193`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"0.0021341902536708745`", "\[VeryThinSpace]", "+", - RowBox[{"0.0008543230555648359`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0003685271816528357`", "\[VeryThinSpace]", "+", - RowBox[{"0.0007470219943559312`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0008056696310021448`"}], "+", - RowBox[{"0.0007748185111270787`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.0007225856389732218`"}], "+", - RowBox[{"0.000999244994675621`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.002158668930738066`"}], "+", - RowBox[{"0.0003238697859670175`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0006355473701741656`", "\[VeryThinSpace]", "-", - RowBox[{"0.0007536303656387293`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.00025711816992531706`"}], "+", - RowBox[{"0.00022774695727950813`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.00018271211485033106`"}], "-", - RowBox[{"0.0014414395760855999`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0008231915301506297`", "\[VeryThinSpace]", "-", - RowBox[{"0.00019809726542014362`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{ - RowBox[{"-", "0.00134209451234664`"}], "+", - RowBox[{"0.000104176711406038`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.018802165291500344`"}], "-", - RowBox[{"0.0030244146780465967`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.024190372988031703`", "\[VeryThinSpace]", "-", - RowBox[{"0.020849084980152`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.011544985150805577`", "\[VeryThinSpace]", "+", - RowBox[{"0.0340681002467944`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0027679746250431733`", "\[VeryThinSpace]", "+", - RowBox[{"0.0034514412139725332`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0018296243176731616`", "\[VeryThinSpace]", "+", - RowBox[{"0.0005124653507724738`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.00011214694602987216`", "\[VeryThinSpace]", "+", - RowBox[{"0.006416966633931995`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.01035341491848808`"}], "-", - RowBox[{"0.027328818098660404`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.018355322165011224`"}], "-", - RowBox[{"0.00529042896006286`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"0.0002926264425563402`", "\[VeryThinSpace]", "-", - RowBox[{"0.0006662803118414336`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0011230189079720308`"}], "-", - RowBox[{"0.0011894828246202878`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.00032948880737485286`", "\[VeryThinSpace]", "-", - RowBox[{"0.00023754938056990663`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.0007131073801535969`", "\[VeryThinSpace]", "+", - RowBox[{"0.00007200507049375409`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.00010905929942570812`"}], "-", - RowBox[{"0.00019136869134926777`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.00022473520731223115`", "\[VeryThinSpace]", "+", - RowBox[{"0.0004232393741809165`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.00006748637733705534`", "\[VeryThinSpace]", "+", - RowBox[{"0.0005179042788815587`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0009349487566071765`"}], "-", - RowBox[{"0.00010051179411125404`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0006397725456194311`"}], "+", - RowBox[{"0.000021622229306387335`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}, - { - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"0.00024682399113248665`", "\[VeryThinSpace]", "-", - RowBox[{"0.0002192633001168316`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.00044051110335383215`", "\[VeryThinSpace]", "+", - RowBox[{"0.000953925500367285`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0011215132711265509`", "\[VeryThinSpace]", "-", - RowBox[{"0.0014526358414399206`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.0009811304239935896`", "\[VeryThinSpace]", "-", - RowBox[{"0.0007879188017503104`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.000013796519367553716`"}], "+", - RowBox[{"0.000446682034673523`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0012392696763665109`"}], "+", - RowBox[{"0.00018400113673472387`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.0017683987780086627`", "\[VeryThinSpace]", "-", - RowBox[{"0.001134808140335533`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.00043629407149681785`", "\[VeryThinSpace]", "+", - RowBox[{"0.0004271070336724675`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0013456348006646878`", "\[VeryThinSpace]", "-", - RowBox[{"0.0012261204972902147`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{ - RowBox[{"-", "0.0052216229415547235`"}], "-", - RowBox[{"0.0011853951268387087`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0035703030786753613`"}], "+", - RowBox[{"0.015664949110970137`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.01718365513520141`"}], "-", - RowBox[{"0.014976236457419956`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.025610786236504892`", "\[VeryThinSpace]", "-", - RowBox[{"0.010359416112210177`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.003030639561248787`", "\[VeryThinSpace]", "-", - RowBox[{"0.00265252062789694`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0017200451868324216`"}], "-", - RowBox[{"0.006057666651250803`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.005514219898269599`", "\[VeryThinSpace]", "+", - RowBox[{"0.000028506011022446954`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.023187002292348075`"}], "+", - RowBox[{"0.010984133118849536`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.003308410998804296`"}], "+", - RowBox[{"0.015574443774874701`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{ - RowBox[{"-", "0.00025423568645825136`"}], "+", - RowBox[{"0.0008010702695717851`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.00018492891216434815`"}], "+", - RowBox[{"0.00020911124196303866`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.00032125237329843405`"}], "+", - RowBox[{"0.0005700333195310573`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.00032373590331081966`", "\[VeryThinSpace]", "-", - RowBox[{"0.0003935801374008684`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.000017718170824336256`"}], "+", - RowBox[{"0.0002348930029379215`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0005545575319961796`", "\[VeryThinSpace]", "-", - RowBox[{"0.0009183191585954786`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.00048312957219970017`", "\[VeryThinSpace]", "-", - RowBox[{"0.00015622013846940355`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0005885987513662319`", "\[VeryThinSpace]", "+", - RowBox[{"0.0008882726272873286`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0011851901745716662`"}], "+", - RowBox[{"0.0006730791224539654`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"0.0011615102379839315`", "\[VeryThinSpace]", "-", - RowBox[{"0.0006386943714183066`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.01894008280286485`", "\[VeryThinSpace]", "+", - RowBox[{"0.0029444113466893466`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.023067909249014786`"}], "+", - RowBox[{"0.0207239136043381`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.011826350922827607`"}], "-", - RowBox[{"0.034252983273085263`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0024858874366127793`"}], "-", - RowBox[{"0.003826638743478202`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.002656684939460204`"}], "-", - RowBox[{"0.00017798806358253726`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.0002022731963010069`", "\[VeryThinSpace]", "-", - RowBox[{"0.006051894705818247`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.01102265047957832`", "\[VeryThinSpace]", "+", - RowBox[{"0.028118924306652526`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.01830559792236339`", "\[VeryThinSpace]", "+", - RowBox[{"0.005530913699720727`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}, - { - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"0.0010403897206402574`", "\[VeryThinSpace]", "-", - RowBox[{"0.001152523612679884`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.01865545360774206`", "\[VeryThinSpace]", "+", - RowBox[{"0.00298484051521987`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.02321775182123086`"}], "+", - RowBox[{"0.02073695813995996`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.01182752704566756`"}], "-", - RowBox[{"0.034468002073157006`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.002200571451273089`"}], "-", - RowBox[{"0.003641685353377914`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0029970658218437464`"}], "+", - RowBox[{"0.0002432724905525082`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.0003055203035820321`"}], "-", - RowBox[{"0.006244598743305323`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.010822285913025202`", "\[VeryThinSpace]", "+", - RowBox[{"0.02772124619793503`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.01826143685834048`", "\[VeryThinSpace]", "+", - RowBox[{"0.005476236823563375`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{ - RowBox[{"-", "0.00028875207679416367`"}], "+", - RowBox[{"0.00027222679309258854`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0010516909882588052`", "\[VeryThinSpace]", "+", - RowBox[{"0.0009581755953705516`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0000784238556482831`", "\[VeryThinSpace]", "+", - RowBox[{"0.00021405668623378498`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.00041724257484595026`"}], "-", - RowBox[{"0.00024552101575205765`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.00031929981116909554`", "\[VeryThinSpace]", "+", - RowBox[{"0.0002393392929906998`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.000383793137053576`"}], "+", - RowBox[{"0.00010231998463890472`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.00015901069880574668`"}], "-", - RowBox[{"0.0004394823623678684`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0007427725919132003`", "\[VeryThinSpace]", "+", - RowBox[{"0.0004815821047586612`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0009040084760658031`", "\[VeryThinSpace]", "-", - RowBox[{"0.0006629038442891386`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{ - RowBox[{"-", "0.005117171640414745`"}], "-", - RowBox[{"0.0009014771280331686`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0036041719981379115`"}], "+", - RowBox[{"0.01589366974450097`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.017286088909323448`"}], "-", - RowBox[{"0.014946583424923407`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.02566055780689925`", "\[VeryThinSpace]", "-", - RowBox[{"0.010222987127161227`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0029380517795307465`", "\[VeryThinSpace]", "-", - RowBox[{"0.002881539738719106`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0019355122482671305`"}], "-", - RowBox[{"0.006309441441130638`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.005442761750238554`", "\[VeryThinSpace]", "+", - RowBox[{"0.000012928104286252493`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.02309819639854762`"}], "+", - RowBox[{"0.01069913158669577`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0032744196614021993`"}], "+", - RowBox[{"0.01542952343998876`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"0.001909856673411332`", "\[VeryThinSpace]", "+", - RowBox[{"0.0009590910385647528`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.00013711209907963937`"}], "+", - RowBox[{"0.0006719403648010563`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0010213517965841367`"}], "+", - RowBox[{"0.0009255854775699198`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.0006346569322851153`"}], "+", - RowBox[{"0.0009442018267254116`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0021869946976359527`"}], "+", - RowBox[{"0.00034636765696755803`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0005174346140074226`", "\[VeryThinSpace]", "-", - RowBox[{"0.0007150437506996124`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.0002373634729341166`"}], "+", - RowBox[{"0.0004357568549548366`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.00008779459317077275`"}], "-", - RowBox[{"0.0012597000669497451`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.00041706081835263785`", "\[VeryThinSpace]", "-", - RowBox[{"0.00007661392623285262`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}, - { - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"0.0001462143051432423`", "\[VeryThinSpace]", "-", - RowBox[{"0.00037338831838011524`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0002935101732350679`", "\[VeryThinSpace]", "+", - RowBox[{"0.0002763056698100146`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.00024460110697301806`", "\[VeryThinSpace]", "-", - RowBox[{"0.00007540446657092262`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.0001844893527047275`", "\[VeryThinSpace]", "+", - RowBox[{"0.0007556811342704653`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.00002568959215994548`"}], "-", - RowBox[{"0.0005336003234442195`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.00010014186249432332`"}], "+", - RowBox[{"0.0006166836427200907`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.00047097154002029285`"}], "+", - RowBox[{"0.0006408051887882885`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.00028480046336383573`"}], "-", - RowBox[{"0.0009640190601940819`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0010227894952531777`", "\[VeryThinSpace]", "-", - RowBox[{"0.0005913892736588781`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{ - RowBox[{"-", "0.0013730176957487217`"}], "-", - RowBox[{"0.0003901974944925637`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.019030324260859585`"}], "-", - RowBox[{"0.002925946354604807`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.024048106467076776`", "\[VeryThinSpace]", "-", - RowBox[{"0.020695668980372554`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.011526240919593282`", "\[VeryThinSpace]", "+", - RowBox[{"0.033786777985243106`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.002935584676552916`", "\[VeryThinSpace]", "+", - RowBox[{"0.003478509024745418`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0013946469308379953`", "\[VeryThinSpace]", "+", - RowBox[{"0.0007728927521549911`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.0003463859274122267`"}], "+", - RowBox[{"0.00636808345062699`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.010541158001937294`"}], "-", - RowBox[{"0.027674117537188167`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.018459047908848263`"}], "-", - RowBox[{"0.005279565053238468`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"0.00016972457826248567`", "\[VeryThinSpace]", "-", - RowBox[{"0.00017548991728222611`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0000706993930704425`"}], "+", - RowBox[{"0.0008860803325095854`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0008807916941023187`", "\[VeryThinSpace]", "-", - RowBox[{"0.00125639746472561`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.0009586232726274195`", "\[VeryThinSpace]", "-", - RowBox[{"0.0008618887894256455`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0003060305232643046`", "\[VeryThinSpace]", "+", - RowBox[{"0.00011587406054487183`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0010504229487991745`"}], "+", - RowBox[{"0.00017799281625714445`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.0017255877078324428`", "\[VeryThinSpace]", "-", - RowBox[{"0.0010065317624028938`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.00040776288676384393`", "\[VeryThinSpace]", "+", - RowBox[{"0.0006130816343263521`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0011424884996345049`", "\[VeryThinSpace]", "-", - RowBox[{"0.0013827234356614498`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{ - RowBox[{"-", "0.0032219448370107437`"}], "-", - RowBox[{"0.0012673322711473525`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0029154577337213317`"}], "+", - RowBox[{"0.01687819709110922`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.01815673387229649`"}], "-", - RowBox[{"0.015104623719616472`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.026535187917811714`", "\[VeryThinSpace]", "-", - RowBox[{"0.011667351859609498`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.003452501544652332`", "\[VeryThinSpace]", "-", - RowBox[{"0.0030952924955327567`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.00301782285714877`"}], "-", - RowBox[{"0.007161876802779977`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.005391333707807786`", "\[VeryThinSpace]", "+", - RowBox[{"0.0002599817522918044`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.020467881696602568`"}], "+", - RowBox[{"0.010310050382717881`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.002727227128473754`"}], "+", - RowBox[{"0.015293558549294843`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, - "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - TraditionalForm]], "Output", - CellChangeTimes->{ - 3.7256993948706903`*^9, 3.725699930804122*^9, 3.7257000918994207`*^9, - 3.725700202571278*^9, {3.7257004065028276`*^9, 3.725700432598298*^9}, - 3.725700944406681*^9, 3.725701454964221*^9, 3.7257022574619827`*^9, { - 3.72570238831679*^9, 3.725702394337873*^9}}] -}, Closed]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"qPrpgtrshftdLttcSpnClr", "\[LeftDoubleBracket]", - RowBox[{"1", ",", "1", ",", "1", ",", "1"}], - "\[RightDoubleBracket]"}]], "Input", - CellChangeTimes->{{3.725699936298595*^9, 3.725700004324898*^9}, - 3.7257000978946457`*^9, 3.725700205307418*^9, 3.7257009336844378`*^9, - 3.725702313908619*^9, {3.72570238289314*^9, 3.725702396428728*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{ - RowBox[{"-", "0.003111927246681806`"}], "-", - RowBox[{"0.0010361123359370861`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.003100271437016059`"}], "+", - RowBox[{"0.01705589913237144`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.018258301832311204`"}], "-", - RowBox[{"0.015020241016367591`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.026704023624807092`", "\[VeryThinSpace]", "-", - RowBox[{"0.011520730262297838`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0034449044826304915`", "\[VeryThinSpace]", "-", - RowBox[{"0.0033398146794742342`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0032486448265802636`"}], "-", - RowBox[{"0.007526290468758525`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.005314814904957572`", "\[VeryThinSpace]", "+", - RowBox[{"0.0002642417995088883`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0203740482696112`"}], "+", - RowBox[{"0.009984979216154696`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0027698441105191785`"}], "+", - RowBox[{"0.015232322560096193`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"0.0021341902536708745`", "\[VeryThinSpace]", "+", - RowBox[{"0.0008543230555648359`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0003685271816528357`", "\[VeryThinSpace]", "+", - RowBox[{"0.0007470219943559312`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0008056696310021448`"}], "+", - RowBox[{"0.0007748185111270787`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.0007225856389732218`"}], "+", - RowBox[{"0.000999244994675621`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.002158668930738066`"}], "+", - RowBox[{"0.0003238697859670175`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0006355473701741656`", "\[VeryThinSpace]", "-", - RowBox[{"0.0007536303656387293`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.00025711816992531706`"}], "+", - RowBox[{"0.00022774695727950813`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.00018271211485033106`"}], "-", - RowBox[{"0.0014414395760855999`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0008231915301506297`", "\[VeryThinSpace]", "-", - RowBox[{"0.00019809726542014362`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{ - RowBox[{"-", "0.00134209451234664`"}], "+", - RowBox[{"0.000104176711406038`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.018802165291500344`"}], "-", - RowBox[{"0.0030244146780465967`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.024190372988031703`", "\[VeryThinSpace]", "-", - RowBox[{"0.020849084980152`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.011544985150805577`", "\[VeryThinSpace]", "+", - RowBox[{"0.0340681002467944`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0027679746250431733`", "\[VeryThinSpace]", "+", - RowBox[{"0.0034514412139725332`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0018296243176731616`", "\[VeryThinSpace]", "+", - RowBox[{"0.0005124653507724738`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.00011214694602987216`", "\[VeryThinSpace]", "+", - RowBox[{"0.006416966633931995`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.01035341491848808`"}], "-", - RowBox[{"0.027328818098660404`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.018355322165011224`"}], "-", - RowBox[{"0.00529042896006286`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"0.0002926264425563402`", "\[VeryThinSpace]", "-", - RowBox[{"0.0006662803118414336`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0011230189079720308`"}], "-", - RowBox[{"0.0011894828246202878`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.00032948880737485286`", "\[VeryThinSpace]", "-", - RowBox[{"0.00023754938056990663`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.0007131073801535969`", "\[VeryThinSpace]", "+", - RowBox[{"0.00007200507049375409`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.00010905929942570812`"}], "-", - RowBox[{"0.00019136869134926777`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.00022473520731223115`", "\[VeryThinSpace]", "+", - RowBox[{"0.0004232393741809165`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.00006748637733705534`", "\[VeryThinSpace]", "+", - RowBox[{"0.0005179042788815587`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0009349487566071765`"}], "-", - RowBox[{"0.00010051179411125404`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0006397725456194311`"}], "+", - RowBox[{"0.000021622229306387335`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}, - { - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"0.00024682399113248665`", "\[VeryThinSpace]", "-", - RowBox[{"0.0002192633001168316`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.00044051110335383215`", "\[VeryThinSpace]", "+", - RowBox[{"0.000953925500367285`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0011215132711265509`", "\[VeryThinSpace]", "-", - RowBox[{"0.0014526358414399206`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.0009811304239935896`", "\[VeryThinSpace]", "-", - RowBox[{"0.0007879188017503104`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.000013796519367553716`"}], "+", - RowBox[{"0.000446682034673523`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0012392696763665109`"}], "+", - RowBox[{"0.00018400113673472387`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.0017683987780086627`", "\[VeryThinSpace]", "-", - RowBox[{"0.001134808140335533`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.00043629407149681785`", "\[VeryThinSpace]", "+", - RowBox[{"0.0004271070336724675`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0013456348006646878`", "\[VeryThinSpace]", "-", - RowBox[{"0.0012261204972902147`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{ - RowBox[{"-", "0.0052216229415547235`"}], "-", - RowBox[{"0.0011853951268387087`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0035703030786753613`"}], "+", - RowBox[{"0.015664949110970137`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.01718365513520141`"}], "-", - RowBox[{"0.014976236457419956`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.025610786236504892`", "\[VeryThinSpace]", "-", - RowBox[{"0.010359416112210177`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.003030639561248787`", "\[VeryThinSpace]", "-", - RowBox[{"0.00265252062789694`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0017200451868324216`"}], "-", - RowBox[{"0.006057666651250803`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.005514219898269599`", "\[VeryThinSpace]", "+", - RowBox[{"0.000028506011022446954`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.023187002292348075`"}], "+", - RowBox[{"0.010984133118849536`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.003308410998804296`"}], "+", - RowBox[{"0.015574443774874701`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{ - RowBox[{"-", "0.00025423568645825136`"}], "+", - RowBox[{"0.0008010702695717851`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.00018492891216434815`"}], "+", - RowBox[{"0.00020911124196303866`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.00032125237329843405`"}], "+", - RowBox[{"0.0005700333195310573`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.00032373590331081966`", "\[VeryThinSpace]", "-", - RowBox[{"0.0003935801374008684`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.000017718170824336256`"}], "+", - RowBox[{"0.0002348930029379215`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0005545575319961796`", "\[VeryThinSpace]", "-", - RowBox[{"0.0009183191585954786`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.00048312957219970017`", "\[VeryThinSpace]", "-", - RowBox[{"0.00015622013846940355`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0005885987513662319`", "\[VeryThinSpace]", "+", - RowBox[{"0.0008882726272873286`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0011851901745716662`"}], "+", - RowBox[{"0.0006730791224539654`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"0.0011615102379839315`", "\[VeryThinSpace]", "-", - RowBox[{"0.0006386943714183066`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.01894008280286485`", "\[VeryThinSpace]", "+", - RowBox[{"0.0029444113466893466`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.023067909249014786`"}], "+", - RowBox[{"0.0207239136043381`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.011826350922827607`"}], "-", - RowBox[{"0.034252983273085263`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0024858874366127793`"}], "-", - RowBox[{"0.003826638743478202`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.002656684939460204`"}], "-", - RowBox[{"0.00017798806358253726`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.0002022731963010069`", "\[VeryThinSpace]", "-", - RowBox[{"0.006051894705818247`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.01102265047957832`", "\[VeryThinSpace]", "+", - RowBox[{"0.028118924306652526`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.01830559792236339`", "\[VeryThinSpace]", "+", - RowBox[{"0.005530913699720727`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}, - { - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"0.0010403897206402574`", "\[VeryThinSpace]", "-", - RowBox[{"0.001152523612679884`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.01865545360774206`", "\[VeryThinSpace]", "+", - RowBox[{"0.00298484051521987`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.02321775182123086`"}], "+", - RowBox[{"0.02073695813995996`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.01182752704566756`"}], "-", - RowBox[{"0.034468002073157006`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.002200571451273089`"}], "-", - RowBox[{"0.003641685353377914`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0029970658218437464`"}], "+", - RowBox[{"0.0002432724905525082`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.0003055203035820321`"}], "-", - RowBox[{"0.006244598743305323`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.010822285913025202`", "\[VeryThinSpace]", "+", - RowBox[{"0.02772124619793503`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.01826143685834048`", "\[VeryThinSpace]", "+", - RowBox[{"0.005476236823563375`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{ - RowBox[{"-", "0.00028875207679416367`"}], "+", - RowBox[{"0.00027222679309258854`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0010516909882588052`", "\[VeryThinSpace]", "+", - RowBox[{"0.0009581755953705516`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0000784238556482831`", "\[VeryThinSpace]", "+", - RowBox[{"0.00021405668623378498`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.00041724257484595026`"}], "-", - RowBox[{"0.00024552101575205765`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.00031929981116909554`", "\[VeryThinSpace]", "+", - RowBox[{"0.0002393392929906998`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.000383793137053576`"}], "+", - RowBox[{"0.00010231998463890472`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.00015901069880574668`"}], "-", - RowBox[{"0.0004394823623678684`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0007427725919132003`", "\[VeryThinSpace]", "+", - RowBox[{"0.0004815821047586612`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0009040084760658031`", "\[VeryThinSpace]", "-", - RowBox[{"0.0006629038442891386`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{ - RowBox[{"-", "0.005117171640414745`"}], "-", - RowBox[{"0.0009014771280331686`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0036041719981379115`"}], "+", - RowBox[{"0.01589366974450097`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.017286088909323448`"}], "-", - RowBox[{"0.014946583424923407`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.02566055780689925`", "\[VeryThinSpace]", "-", - RowBox[{"0.010222987127161227`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0029380517795307465`", "\[VeryThinSpace]", "-", - RowBox[{"0.002881539738719106`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0019355122482671305`"}], "-", - RowBox[{"0.006309441441130638`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.005442761750238554`", "\[VeryThinSpace]", "+", - RowBox[{"0.000012928104286252493`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.02309819639854762`"}], "+", - RowBox[{"0.01069913158669577`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0032744196614021993`"}], "+", - RowBox[{"0.01542952343998876`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"0.001909856673411332`", "\[VeryThinSpace]", "+", - RowBox[{"0.0009590910385647528`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.00013711209907963937`"}], "+", - RowBox[{"0.0006719403648010563`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0010213517965841367`"}], "+", - RowBox[{"0.0009255854775699198`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.0006346569322851153`"}], "+", - RowBox[{"0.0009442018267254116`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0021869946976359527`"}], "+", - RowBox[{"0.00034636765696755803`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0005174346140074226`", "\[VeryThinSpace]", "-", - RowBox[{"0.0007150437506996124`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.0002373634729341166`"}], "+", - RowBox[{"0.0004357568549548366`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.00008779459317077275`"}], "-", - RowBox[{"0.0012597000669497451`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.00041706081835263785`", "\[VeryThinSpace]", "-", - RowBox[{"0.00007661392623285262`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}, - { - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"0.0001462143051432423`", "\[VeryThinSpace]", "-", - RowBox[{"0.00037338831838011524`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0002935101732350679`", "\[VeryThinSpace]", "+", - RowBox[{"0.0002763056698100146`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.00024460110697301806`", "\[VeryThinSpace]", "-", - RowBox[{"0.00007540446657092262`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.0001844893527047275`", "\[VeryThinSpace]", "+", - RowBox[{"0.0007556811342704653`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.00002568959215994548`"}], "-", - RowBox[{"0.0005336003234442195`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.00010014186249432332`"}], "+", - RowBox[{"0.0006166836427200907`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.00047097154002029285`"}], "+", - RowBox[{"0.0006408051887882885`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.00028480046336383573`"}], "-", - RowBox[{"0.0009640190601940819`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0010227894952531777`", "\[VeryThinSpace]", "-", - RowBox[{"0.0005913892736588781`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{ - RowBox[{"-", "0.0013730176957487217`"}], "-", - RowBox[{"0.0003901974944925637`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.019030324260859585`"}], "-", - RowBox[{"0.002925946354604807`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.024048106467076776`", "\[VeryThinSpace]", "-", - RowBox[{"0.020695668980372554`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.011526240919593282`", "\[VeryThinSpace]", "+", - RowBox[{"0.033786777985243106`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.002935584676552916`", "\[VeryThinSpace]", "+", - RowBox[{"0.003478509024745418`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0013946469308379953`", "\[VeryThinSpace]", "+", - RowBox[{"0.0007728927521549911`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.0003463859274122267`"}], "+", - RowBox[{"0.00636808345062699`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.010541158001937294`"}], "-", - RowBox[{"0.027674117537188167`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.018459047908848263`"}], "-", - RowBox[{"0.005279565053238468`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"0.00016972457826248567`", "\[VeryThinSpace]", "-", - RowBox[{"0.00017548991728222611`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0000706993930704425`"}], "+", - RowBox[{"0.0008860803325095854`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0008807916941023187`", "\[VeryThinSpace]", "-", - RowBox[{"0.00125639746472561`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.0009586232726274195`", "\[VeryThinSpace]", "-", - RowBox[{"0.0008618887894256455`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0003060305232643046`", "\[VeryThinSpace]", "+", - RowBox[{"0.00011587406054487183`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0010504229487991745`"}], "+", - RowBox[{"0.00017799281625714445`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.0017255877078324428`", "\[VeryThinSpace]", "-", - RowBox[{"0.0010065317624028938`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.00040776288676384393`", "\[VeryThinSpace]", "+", - RowBox[{"0.0006130816343263521`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0011424884996345049`", "\[VeryThinSpace]", "-", - RowBox[{"0.0013827234356614498`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{ - RowBox[{"-", "0.0032219448370107437`"}], "-", - RowBox[{"0.0012673322711473525`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0029154577337213317`"}], "+", - RowBox[{"0.01687819709110922`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.01815673387229649`"}], "-", - RowBox[{"0.015104623719616472`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.026535187917811714`", "\[VeryThinSpace]", "-", - RowBox[{"0.011667351859609498`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.003452501544652332`", "\[VeryThinSpace]", "-", - RowBox[{"0.0030952924955327567`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.00301782285714877`"}], "-", - RowBox[{"0.007161876802779977`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.005391333707807786`", "\[VeryThinSpace]", "+", - RowBox[{"0.0002599817522918044`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.020467881696602568`"}], "+", - RowBox[{"0.010310050382717881`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.002727227128473754`"}], "+", - RowBox[{"0.015293558549294843`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, - "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - TraditionalForm]], "Output", - CellChangeTimes->{{3.725699944339611*^9, 3.7257000051847267`*^9}, { - 3.725700095359808*^9, 3.725700098489482*^9}, 3.725700205881616*^9, { - 3.725700407740015*^9, 3.7257004340287657`*^9}, 3.72570093462497*^9, - 3.7257014588818083`*^9, 3.725701582476468*^9, 3.725702258786282*^9, { - 3.7257023115173798`*^9, 3.725702314272634*^9}, {3.72570238325453*^9, - 3.72570239716671*^9}}] -}, Closed]] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[TextData[{ - "Check Feynman-Hellman source ", - Cell[BoxData[ - FormBox[ - RowBox[{ - RowBox[{ - SuperscriptBox["Src", "FH"], "[", "n", "]"}], "=", - RowBox[{ - RowBox[{"W", "[", - RowBox[{"n", ",", - RowBox[{"n", "+", "\[CapitalDelta]z"}]}], "]"}], "*", - RowBox[{"S", "[", - RowBox[{ - RowBox[{"n", "+", "\[CapitalDelta]z"}], "\[LeftArrow]", "src"}], - "]"}]}]}], TraditionalForm]]], - " (checked)" -}], "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}, - CellChangeTimes->{ - 3.725641242645789*^9, {3.725641322515449*^9, 3.725641331570396*^9}, { - 3.72564735939476*^9, 3.725647360668185*^9}, {3.7256917887424707`*^9, - 3.725691826514814*^9}, {3.725702582066845*^9, 3.725702591604857*^9}, { - 3.725702776135221*^9, 3.725702779514689*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"\[Gamma]z", "=", - RowBox[{"(", GridBox[{ - {"0", "0", "1", "0"}, - {"0", "0", "0", "1"}, - {"1", "0", "0", "0"}, - {"0", "1", "0", "0"} - }], ")"}]}], ";"}]], "Input", - CellChangeTimes->{{3.7256919454339333`*^9, 3.725692004770255*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"FHSrcMMA", "=", - RowBox[{"Table", "[", - RowBox[{ - RowBox[{"Sum", "[", - RowBox[{ - RowBox[{ - RowBox[{"\[Gamma]z", "\[LeftDoubleBracket]", - RowBox[{"i", ",", "j"}], "\[RightDoubleBracket]"}], "*", - RowBox[{ - RowBox[{"qPrpgtr1stLttcSpnClr", "\[LeftDoubleBracket]", - RowBox[{"1", ",", "1", ",", "2", ",", "1"}], - "\[RightDoubleBracket]"}], "\[LeftDoubleBracket]", - RowBox[{"j", ",", "k"}], "\[RightDoubleBracket]"}]}], ",", - RowBox[{"{", - RowBox[{"j", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", - RowBox[{"{", - RowBox[{"i", ",", "1", ",", "4"}], "}"}], ",", - RowBox[{"{", - RowBox[{"k", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.725691901538793*^9, 3.7256919430366697`*^9}, { - 3.725692008944378*^9, 3.725692068870234*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"glink", "\[LeftDoubleBracket]", - RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "\[RightDoubleBracket]"}], - ".", - RowBox[{"FHSrcMMA", "\[LeftDoubleBracket]", - RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}]}]], "Input", - CellChangeTimes->{{3.725691838456503*^9, 3.725691881280802*^9}, { - 3.725692082832382*^9, 3.725692093224875*^9}, {3.725692851423818*^9, - 3.7256928615958977`*^9}, {3.7256936053984547`*^9, 3.725693624502741*^9}, { - 3.7257024546397038`*^9, 3.725702454743157*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"0.0011347772960056568`", "\[VeryThinSpace]", "-", - RowBox[{"0.03673903197430471`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0006574611108599625`", "\[VeryThinSpace]", "+", - RowBox[{"0.0010964339468774002`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.002895192194936845`", "\[VeryThinSpace]", "-", - RowBox[{"0.0012572614267142804`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.0008616300894815856`"}], "-", - RowBox[{"0.000823575282746368`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0006521819876243735`", "\[VeryThinSpace]", "-", - RowBox[{"0.035447485859347976`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.001372596427818321`", "\[VeryThinSpace]", "+", - RowBox[{"0.0010918534429802586`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.0026038904401968262`", "\[VeryThinSpace]", "+", - RowBox[{"0.0031917898580623156`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0013497926896313996`", "\[VeryThinSpace]", "-", - RowBox[{"0.00047224397939404743`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0029893848214547205`", "\[VeryThinSpace]", "-", - RowBox[{"0.03632658575766065`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, - "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - TraditionalForm]], "Output", - CellChangeTimes->{{3.725691836486108*^9, 3.725691843684456*^9}, { - 3.725692083688218*^9, 3.725692093699565*^9}, 3.725692863790024*^9, { - 3.725693605922324*^9, 3.7256936248502007`*^9}, 3.725702410735777*^9, - 3.725702455155962*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"FHqSrcLttcSpnClr", "\[LeftDoubleBracket]", - RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "\[RightDoubleBracket]"}], - "\[LeftDoubleBracket]", - RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}]], "Input", - CellChangeTimes->{{3.72569211477535*^9, 3.7256921293311853`*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"0.0011347772960056573`", "\[VeryThinSpace]", "-", - RowBox[{"0.03673903197430471`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.000657461110859963`", "\[VeryThinSpace]", "+", - RowBox[{"0.0010964339468774015`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.002895192194936845`", "\[VeryThinSpace]", "-", - RowBox[{"0.0012572614267142804`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.0008616300894815857`"}], "-", - RowBox[{"0.0008235752827463686`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0006521819876243746`", "\[VeryThinSpace]", "-", - RowBox[{"0.035447485859347976`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.00137259642781832`", "\[VeryThinSpace]", "+", - RowBox[{"0.0010918534429802586`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.0026038904401968267`", "\[VeryThinSpace]", "+", - RowBox[{"0.003191789858062315`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0013497926896313996`", "\[VeryThinSpace]", "-", - RowBox[{"0.0004722439793940457`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.002989384821454722`", "\[VeryThinSpace]", "-", - RowBox[{"0.03632658575766065`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, - "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - TraditionalForm]], "Output", - CellChangeTimes->{{3.7256921253930693`*^9, 3.725692129988521*^9}, - 3.725702449033942*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"glink", "\[LeftDoubleBracket]", - RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "\[RightDoubleBracket]"}], - ".", - RowBox[{"FHSrcMMA", "\[LeftDoubleBracket]", - RowBox[{"2", ",", "2"}], "\[RightDoubleBracket]"}]}]], "Input", - CellChangeTimes->{{3.725702465064991*^9, 3.725702466039694*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{ - RowBox[{"-", "0.00129213285072558`"}], "+", - RowBox[{"0.03616192216208403`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.00015487385059077645`", "\[VeryThinSpace]", "-", - RowBox[{"0.0009814721384070035`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.004807531964842382`"}], "+", - RowBox[{"0.0016506492925032117`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.0005776770373513262`", "\[VeryThinSpace]", "+", - RowBox[{"0.0011529086890491131`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0006798954368197093`"}], "+", - RowBox[{"0.03557348283154426`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0014925920521894707`"}], "-", - RowBox[{"0.0016648822688537738`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.0012672992336058772`"}], "-", - RowBox[{"0.002118329476310548`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.00120306104632115`"}], "+", - RowBox[{"0.00018791363820167516`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0033991522145231864`"}], "+", - RowBox[{"0.03654290482237083`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, - "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - TraditionalForm]], "Output", - CellChangeTimes->{3.725702466395268*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"FHqSrcLttcSpnClr", "\[LeftDoubleBracket]", - RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "\[RightDoubleBracket]"}], - "\[LeftDoubleBracket]", - RowBox[{"2", ",", "2"}], "\[RightDoubleBracket]"}]], "Input", - CellChangeTimes->{{3.725702472359105*^9, 3.725702473696086*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{ - RowBox[{"-", "0.0012921328507255812`"}], "+", - RowBox[{"0.03616192216208403`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.00015487385059077667`", "\[VeryThinSpace]", "-", - RowBox[{"0.0009814721384070037`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0048075319648423825`"}], "+", - RowBox[{"0.0016506492925032117`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.0005776770373513262`", "\[VeryThinSpace]", "+", - RowBox[{"0.001152908689049113`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0006798954368197087`"}], "+", - RowBox[{"0.03557348283154427`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0014925920521894705`"}], "-", - RowBox[{"0.0016648822688537747`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.0012672992336058772`"}], "-", - RowBox[{"0.002118329476310548`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.00120306104632115`"}], "+", - RowBox[{"0.00018791363820167602`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.003399152214523187`"}], "+", - RowBox[{"0.03654290482237083`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, - "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - TraditionalForm]], "Output", - CellChangeTimes->{3.725702474290267*^9}] -}, Open ]] -}, Closed]], - -Cell[CellGroupData[{ - -Cell[TextData[{ - "Check Feynman-Hellman propagator ", - Cell[BoxData[ - FormBox[ - RowBox[{ - RowBox[{ - SuperscriptBox["S", "FH"], "[", - RowBox[{"n", "\[LeftArrow]", " ", "src"}], "]"}], "=", - RowBox[{ - RowBox[{"W", "[", - RowBox[{"n", ",", - RowBox[{"n", "+", "\[CapitalDelta]z"}]}], "]"}], "*", - RowBox[{"S", "[", - RowBox[{ - RowBox[{"n", "+", "\[CapitalDelta]z"}], "\[LeftArrow]", "src"}], - "]"}]}]}], TraditionalForm]]] -}], "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}, - CellChangeTimes->{ - 3.725641242645789*^9, {3.725641322515449*^9, 3.725641331570396*^9}, { - 3.72564735939476*^9, 3.725647360668185*^9}, {3.7256917887424707`*^9, - 3.725691826514814*^9}, {3.725702571668717*^9, 3.72570260018148*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"FHqPrpgtrLttcSpnClr", "\[LeftDoubleBracket]", - RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "\[RightDoubleBracket]"}], - "\[LeftDoubleBracket]", - RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}]], "Input", - CellChangeTimes->{ - 3.7257025654873962`*^9, {3.725702612901731*^9, 3.72570261831791*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{ - RowBox[{"-", "0.0005400796362455386`"}], "+", - RowBox[{"0.000496181795917481`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.00001210681472588857`"}], "+", - RowBox[{"0.00014333518987959425`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0004300241909575537`", "\[VeryThinSpace]", "+", - RowBox[{"0.00003763758462470697`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.00026969787872253224`", "\[VeryThinSpace]", "-", - RowBox[{"0.00002177237348807996`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.00024355369233053552`", "\[VeryThinSpace]", "+", - RowBox[{"0.0012188872137815806`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.000158169074698321`"}], "-", - RowBox[{"0.0006584514302031778`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.000604123035126516`", "\[VeryThinSpace]", "+", - RowBox[{"0.0003708110999659392`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.00008405727873181229`", "\[VeryThinSpace]", "-", - RowBox[{"0.0006118595404019358`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.00024330247496383617`", "\[VeryThinSpace]", "+", - RowBox[{"0.0005408686019298926`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, - "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - TraditionalForm]], "Output", - CellChangeTimes->{3.725702618765263*^9}] -}, Open ]] -}, Closed]], - -Cell[CellGroupData[{ - -Cell["Check gauge transformation on propagator", "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}, - CellChangeTimes->{ - 3.725641242645789*^9, {3.725641322515449*^9, 3.725641331570396*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"grgauge", "\[LeftDoubleBracket]", - RowBox[{"2", ",", "1", ",", "3", ",", "2"}], "\[RightDoubleBracket]"}], - ".", - RowBox[{"qPrpgtr1stLttcSpnClr", "\[LeftDoubleBracket]", - RowBox[{"2", ",", "1", ",", "3", ",", "2", ",", "1", ",", "1"}], - "\[RightDoubleBracket]"}], ".", - RowBox[{"H", "[", - RowBox[{"grgauge", "\[LeftDoubleBracket]", - RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "\[RightDoubleBracket]"}], - "]"}]}]], "Input", - CellChangeTimes->{ - 3.725643770491025*^9, {3.7256438061100693`*^9, 3.725643825006386*^9}, { - 3.7256440545087547`*^9, 3.725644176294866*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{ - RowBox[{"-", "0.000020178392666748403`"}], "+", - RowBox[{"0.0003699504326562178`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0001877569449493753`", "\[VeryThinSpace]", "-", - RowBox[{"0.000017041331616191838`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "3.137112468547422`*^-6"}], "-", - RowBox[{"0.0010739298036822962`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.00017514716797506713`"}], "-", - RowBox[{"0.000010141180219071081`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.00013525733241491396`"}], "-", - RowBox[{"0.0001480531951823977`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0009769333947003374`"}], "+", - RowBox[{"0.0005006678574738188`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.0014451933042264563`"}], "+", - RowBox[{"0.00001947655205432716`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.000742222578125605`", "\[VeryThinSpace]", "-", - RowBox[{"0.00037352982415007956`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0008297773141826412`"}], "-", - RowBox[{"0.0002116208651296186`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, - "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - TraditionalForm]], "Output", - CellChangeTimes->{ - 3.725643770955369*^9, {3.725643814176363*^9, 3.725643825955451*^9}, { - 3.725644079806972*^9, 3.7256441768009377`*^9}, 3.725646229511107*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"qPrpgtr1strgaugedLttcSpnClr", "\[LeftDoubleBracket]", - RowBox[{"2", ",", "1", ",", "3", ",", "2", ",", "1", ",", "1"}], - "\[RightDoubleBracket]"}]], "Input", - CellChangeTimes->{{3.725644082674569*^9, 3.7256441749266663`*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{ - RowBox[{"-", "0.000020178394157856916`"}], "+", - RowBox[{"0.00036995043240400406`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.00018775694299109558`", "\[VeryThinSpace]", "-", - RowBox[{"0.000017041314349534516`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "3.137113390429722`*^-6"}], "-", - RowBox[{"0.0010739298041104394`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.0001751471658408073`"}], "-", - RowBox[{"0.000010141182356054114`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0001352573575795677`"}], "-", - RowBox[{"0.00014805317496602142`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0009769333961922033`"}], "+", - RowBox[{"0.0005006678614220545`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "0.0014451933058209994`"}], "+", - RowBox[{"0.00001947655211341247`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0007422225810681104`", "\[VeryThinSpace]", "-", - RowBox[{"0.0003735298415192219`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0008297773108765128`"}], "-", - RowBox[{"0.00021162086284544257`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, - "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - TraditionalForm]], "Output", - CellChangeTimes->{ - 3.725643838097973*^9, {3.7256440889355917`*^9, 3.7256441777361393`*^9}, - 3.7256462319107637`*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"grgauge", "\[LeftDoubleBracket]", - RowBox[{"1", ",", "1", ",", "1", ",", "4"}], "\[RightDoubleBracket]"}], - ".", - RowBox[{"qPrpgtr1stLttcSpnClr", "\[LeftDoubleBracket]", - RowBox[{"1", ",", "1", ",", "1", ",", "4", ",", "1", ",", "1"}], - "\[RightDoubleBracket]"}], ".", - RowBox[{"H", "[", - RowBox[{"grgauge", "\[LeftDoubleBracket]", - RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "\[RightDoubleBracket]"}], - "]"}]}]], "Input", - CellChangeTimes->{ - 3.725643770491025*^9, {3.7256438061100693`*^9, 3.725643825006386*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"0.00023945175231775996`", "\[VeryThinSpace]", "-", - RowBox[{"0.0001418861547129383`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.00037592174512257273`", "\[VeryThinSpace]", "-", - RowBox[{"0.00046705208166382677`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0005595949018256033`", "\[VeryThinSpace]", "+", - RowBox[{"0.0024292166603341087`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.001198260177972082`", "\[VeryThinSpace]", "-", - RowBox[{"0.001149140725766349`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0020273416884556052`"}], "-", - RowBox[{"0.00024709557384499693`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0003089083791154081`"}], "+", - RowBox[{"0.00033763840934776437`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.0005122821730849633`", "\[VeryThinSpace]", "-", - RowBox[{"0.001918711738319579`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0008736089452676406`", "\[VeryThinSpace]", "-", - RowBox[{"0.0004424542896593065`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.00025526510049505815`"}], "-", - RowBox[{"0.00024146144976262325`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, - "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - TraditionalForm]], "Output", - CellChangeTimes->{ - 3.725643770955369*^9, {3.725643814176363*^9, 3.725643825955451*^9}, - 3.725646233458637*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"qPrpgtr1strgaugedLttcSpnClr", "\[LeftDoubleBracket]", - RowBox[{"1", ",", "1", ",", "1", ",", "4", ",", "1", ",", "1"}], - "\[RightDoubleBracket]"}]], "Input"], - -Cell[BoxData[ - FormBox[ - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"0.00023945175284261283`", "\[VeryThinSpace]", "-", - RowBox[{"0.00014188614895802734`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0003759217021879019`", "\[VeryThinSpace]", "-", - RowBox[{"0.00046705209366655533`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0005595949017588533`", "\[VeryThinSpace]", "+", - RowBox[{"0.0024292166599601444`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.0011982601690675974`", "\[VeryThinSpace]", "-", - RowBox[{"0.0011491407205506728`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0020273417352955746`"}], "-", - RowBox[{"0.0002470956285265356`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.00030890838428072073`"}], "+", - RowBox[{"0.00033763840815832064`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.0005122821715868364`", "\[VeryThinSpace]", "-", - RowBox[{"0.0019187117391440823`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0008736089652189078`", "\[VeryThinSpace]", "-", - RowBox[{"0.0004424542909392189`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.00025526509656529213`"}], "-", - RowBox[{"0.0002414614567879939`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, - "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - TraditionalForm]], "Output", - CellChangeTimes->{3.725643838097973*^9, 3.72564623439598*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"ArrayReshape", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"1", ",", "I"}], "}"}], ".", "#"}], "&"}], "/@", - RowBox[{"ToExpression", "[", - RowBox[{"StringReplace", "[", - RowBox[{ - "\"\<{{0.249036,-2.76181e-19},{0.000340879,8.65219e-05},{0.00133894,-0.\ -000478686},{0.000340879,-8.65219e-05},{0.248141,-1.54661e-18},{0.000897637,0.\ -000133951},{0.00133894,0.000478686},{0.000897637,-0.000133951},{0.247288,3.\ -14846e-18}}\>\"", ",", - RowBox[{"\"\\"", "\[Rule]", "\"\<*^\>\""}]}], "]"}], "]"}]}], ",", - - RowBox[{"{", - RowBox[{"3", ",", "3"}], "}"}]}], "]"}]], "Input", - CellChangeTimes->{{3.725632769342238*^9, 3.725632879954403*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"0.249036`", "\[VeryThinSpace]", "-", - RowBox[{"2.76181`*^-19", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.000340879`", "\[VeryThinSpace]", "+", - RowBox[{"0.0000865219`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.00133894`", "\[VeryThinSpace]", "-", - RowBox[{"0.000478686`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.000340879`", "\[VeryThinSpace]", "-", - RowBox[{"0.0000865219`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.248141`", "\[VeryThinSpace]", "-", - RowBox[{"1.54661`*^-18", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.000897637`", "\[VeryThinSpace]", "+", - RowBox[{"0.000133951`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.00133894`", "\[VeryThinSpace]", "+", - RowBox[{"0.000478686`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.000897637`", "\[VeryThinSpace]", "-", - RowBox[{"0.000133951`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.247288`", "\[VeryThinSpace]", "+", - RowBox[{"3.14846`*^-18", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, - "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - TraditionalForm]], "Output", - CellChangeTimes->{{3.725632787259592*^9, 3.725632808560547*^9}, { - 3.725632855003784*^9, 3.725632880375745*^9}}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"NumberForm", "[", - RowBox[{ - RowBox[{"qPrpgtr1stLttcSpnClr", "\[LeftDoubleBracket]", - RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], - "\[RightDoubleBracket]"}], ",", "6"}], "]"}]], "Input", - CellChangeTimes->{{3.72563290515417*^9, 3.725632905619864*^9}, { - 3.7256570178572607`*^9, 3.725657018401482*^9}}], - -Cell[BoxData[ - FormBox[ - TagBox[ - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"\<\"0.249036\"\>", "-", - RowBox[{ - RowBox[{"(", - RowBox[{"\<\"6.07597\"\>", "\[Times]", - SuperscriptBox["10", "\<\"-19\"\>"]}], ")"}], " ", - "\[ImaginaryI]"}]}], - RowBox[{"\<\"0.000340879\"\>", "+", - RowBox[{"\<\"0.0000865219\"\>", " ", "\[ImaginaryI]"}]}], - RowBox[{"\<\"0.00133894\"\>", "-", - RowBox[{"\<\"0.000478686\"\>", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"\<\"0.000340879\"\>", "-", - RowBox[{"\<\"0.0000865219\"\>", " ", "\[ImaginaryI]"}]}], - RowBox[{"\<\"0.248141\"\>", "-", - RowBox[{ - RowBox[{"(", - RowBox[{"\<\"6.90451\"\>", "\[Times]", - SuperscriptBox["10", "\<\"-19\"\>"]}], ")"}], " ", - "\[ImaginaryI]"}]}], - RowBox[{"\<\"0.000897637\"\>", "+", - RowBox[{"\<\"0.000133951\"\>", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"\<\"0.00133894\"\>", "+", - RowBox[{"\<\"0.000478686\"\>", " ", "\[ImaginaryI]"}]}], - RowBox[{"\<\"0.000897637\"\>", "-", - RowBox[{"\<\"0.000133951\"\>", " ", "\[ImaginaryI]"}]}], - RowBox[{"\<\"0.247288\"\>", "+", - RowBox[{ - RowBox[{"(", - RowBox[{"\<\"2.54086\"\>", "\[Times]", - SuperscriptBox["10", "\<\"-18\"\>"]}], ")"}], " ", - "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, - "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - NumberForm[#, 6]& ], TraditionalForm]], "Output", - CellChangeTimes->{3.725632906594884*^9, 3.725643867874748*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"NumberForm", "[", - RowBox[{ - RowBox[{"FHqSrcLttcSpnClr", "\[LeftDoubleBracket]", - RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], - "\[RightDoubleBracket]"}], ",", "6"}], "]"}]], "Input", - CellChangeTimes->{3.725691013778822*^9}], - -Cell[BoxData[ - FormBox[ - TagBox[ - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"\<\"0.000235287\"\>", "-", - RowBox[{"\<\"0.000275779\"\>", " ", "\[ImaginaryI]"}]}], - RowBox[{"\<\"0.0000543657\"\>", "+", - RowBox[{"\<\"0.000057928\"\>", " ", "\[ImaginaryI]"}]}], - RowBox[{"\<\"0.000158065\"\>", "-", - RowBox[{"\<\"0.0000296877\"\>", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"\<\"-0.0000303011\"\>", "+", - RowBox[{"\<\"0.000113184\"\>", " ", "\[ImaginaryI]"}]}], - RowBox[{"\<\"0.000117111\"\>", "-", - RowBox[{"\<\"0.000148606\"\>", " ", "\[ImaginaryI]"}]}], - RowBox[{"\<\"0.0000969412\"\>", "-", - RowBox[{"\<\"0.0000400537\"\>", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"\<\"0.000131583\"\>", "+", - RowBox[{"\<\"0.0000673195\"\>", " ", "\[ImaginaryI]"}]}], - RowBox[{"\<\"0.0000193588\"\>", "+", - RowBox[{"\<\"0.000038264\"\>", " ", "\[ImaginaryI]"}]}], - RowBox[{"\<\"0.000175657\"\>", "-", - RowBox[{"\<\"0.000178212\"\>", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, - "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - NumberForm[#, 6]& ], TraditionalForm]], "Output", - CellChangeTimes->{3.725691014455484*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"NumberForm", "[", - RowBox[{ - RowBox[{"FHqPrpgtrLttcSpnClr", "\[LeftDoubleBracket]", - RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], - "\[RightDoubleBracket]"}], ",", "6"}], "]"}]], "Input", - CellChangeTimes->{{3.725644652104147*^9, 3.725644652283184*^9}, { - 3.7256569907289352`*^9, 3.725656991553649*^9}}], - -Cell[BoxData[ - FormBox[ - TagBox[ - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{ - RowBox[{"\<\"-2.22534\"\>", "\[Times]", - SuperscriptBox["10", "\<\"-6\"\>"]}], "+", - RowBox[{ - RowBox[{"(", - RowBox[{"\<\"6.95247\"\>", "\[Times]", - SuperscriptBox["10", "\<\"-6\"\>"]}], ")"}], " ", - "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"\<\"6.02254\"\>", "\[Times]", - SuperscriptBox["10", "\<\"-6\"\>"]}], "+", - RowBox[{"\<\"0.0000526522\"\>", " ", "\[ImaginaryI]"}]}], - RowBox[{"\<\"0.0000247701\"\>", "+", - RowBox[{ - RowBox[{"(", - RowBox[{"\<\"1.54955\"\>", "\[Times]", - SuperscriptBox["10", "\<\"-6\"\>"]}], ")"}], " ", - "\[ImaginaryI]"}]}]}, - { - RowBox[{"\<\"-0.000010343\"\>", "+", - RowBox[{"\<\"0.00004973\"\>", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"\<\"-7.22998\"\>", "\[Times]", - SuperscriptBox["10", "\<\"-6\"\>"]}], "+", - RowBox[{"\<\"0.0000513585\"\>", " ", "\[ImaginaryI]"}]}], - RowBox[{"\<\"0.0000182243\"\>", "-", - RowBox[{"\<\"0.0000342421\"\>", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"\<\"-0.0000215432\"\>", "+", - RowBox[{"\<\"0.0000508658\"\>", " ", "\[ImaginaryI]"}]}], - RowBox[{"\<\"-0.0000157803\"\>", "-", - RowBox[{"\<\"0.0000244807\"\>", " ", "\[ImaginaryI]"}]}], - RowBox[{"\<\"0.0000177674\"\>", "+", - RowBox[{"\<\"0.0000446142\"\>", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, - "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - NumberForm[#, 6]& ], TraditionalForm]], "Output", - CellChangeTimes->{3.725644653174246*^9, 3.725646239805056*^9, - 3.725646567516974*^9, 3.7256569925015097`*^9}] -}, Open ]], - -Cell[BoxData[ - RowBox[{"NumberForm", "[", - RowBox[{ - RowBox[{"FHqPrpgtrLttcSpnClr", "\[LeftDoubleBracket]", - RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], - "\[RightDoubleBracket]"}], ",", "6"}], "]"}]], "Input"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"grgauge", "\[LeftDoubleBracket]", - RowBox[{"1", ",", "1", ",", "1", ",", "4"}], "\[RightDoubleBracket]"}], - ".", - RowBox[{"qPrpgtr1stLttcSpnClr", "\[LeftDoubleBracket]", - RowBox[{"1", ",", "1", ",", "1", ",", "4", ",", "1", ",", "1"}], - "\[RightDoubleBracket]"}], ".", - RowBox[{"H", "[", - RowBox[{"grgauge", "\[LeftDoubleBracket]", - RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "\[RightDoubleBracket]"}], - "]"}]}]], "Input", - CellChangeTimes->{ - 3.725643770491025*^9, {3.7256438061100693`*^9, 3.725643825006386*^9}, { - 3.725657011389744*^9, 3.725657012209283*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"0.00023945175231775996`", "\[VeryThinSpace]", "-", - RowBox[{"0.0001418861547129383`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.00037592174512257273`", "\[VeryThinSpace]", "-", - RowBox[{"0.00046705208166382677`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0005595949018256033`", "\[VeryThinSpace]", "+", - RowBox[{"0.0024292166603341087`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.001198260177972082`", "\[VeryThinSpace]", "-", - RowBox[{"0.001149140725766349`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0020273416884556052`"}], "-", - RowBox[{"0.00024709557384499693`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0003089083791154081`"}], "+", - RowBox[{"0.00033763840934776437`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.0005122821730849633`", "\[VeryThinSpace]", "-", - RowBox[{"0.001918711738319579`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0008736089452676406`", "\[VeryThinSpace]", "-", - RowBox[{"0.0004424542896593065`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.00025526510049505815`"}], "-", - RowBox[{"0.00024146144976262325`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, - "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - TraditionalForm]], "Output", - CellChangeTimes->{ - 3.725643770955369*^9, {3.725643814176363*^9, 3.725643825955451*^9}}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"qPrpgtr1strgaugedLttcSpnClr", "\[LeftDoubleBracket]", - RowBox[{"1", ",", "1", ",", "1", ",", "4", ",", "1", ",", "1"}], - "\[RightDoubleBracket]"}]], "Input", - CellChangeTimes->{{3.725656995616624*^9, 3.725656996417535*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"0.00023945175284261283`", "\[VeryThinSpace]", "-", - RowBox[{"0.00014188614895802734`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0003759217021879018`", "\[VeryThinSpace]", "-", - RowBox[{"0.0004670520936665553`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0005595949017588533`", "\[VeryThinSpace]", "+", - RowBox[{"0.0024292166599601444`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.0011982601690675974`", "\[VeryThinSpace]", "-", - RowBox[{"0.0011491407205506728`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0020273417352955746`"}], "-", - RowBox[{"0.0002470956285265356`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0003089083842807207`"}], "+", - RowBox[{"0.0003376384081583206`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"0.0005122821715868364`", "\[VeryThinSpace]", "-", - RowBox[{"0.0019187117391440823`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.0008736089652189077`", "\[VeryThinSpace]", "-", - RowBox[{"0.0004424542909392189`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.0002552650965652922`"}], "-", - RowBox[{"0.0002414614567879939`", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, - "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - TraditionalForm]], "Output", - CellChangeTimes->{3.725643838097973*^9}] -}, Open ]] -}, Closed]], - -Cell[CellGroupData[{ - -Cell["Check gauge transformation on Feynman-Hellman source", "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}, - CellChangeTimes->{ - 3.725641242645789*^9, {3.725641322515449*^9, 3.725641331570396*^9}, { - 3.72564735939476*^9, 3.725647360668185*^9}, {3.7256569094672823`*^9, - 3.725656919994326*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"grgauge", "\[LeftDoubleBracket]", - RowBox[{"1", ",", "1", ",", "1", ",", "4"}], "\[RightDoubleBracket]"}], - ".", - RowBox[{"FHqSrcLttcSpnClr", "\[LeftDoubleBracket]", - RowBox[{"1", ",", "1", ",", "1", ",", "4", ",", "1", ",", "1"}], - "\[RightDoubleBracket]"}], ".", - RowBox[{"H", "[", - RowBox[{"grgauge", "\[LeftDoubleBracket]", - RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "\[RightDoubleBracket]"}], - "]"}]}]], "Input", - CellChangeTimes->{ - 3.725643770491025*^9, {3.7256438061100693`*^9, 3.725643825006386*^9}, { - 3.725657011389744*^9, 3.725657012209283*^9}, {3.7256570800402718`*^9, - 3.725657086962069*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{ - RowBox[{"-", "0.0000707416689171323`"}], "+", - RowBox[{"6.920518825092331`*^-7", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.000017853151719340914`", "\[VeryThinSpace]", "+", - RowBox[{"0.000035565452624608925`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.000019463547737388794`", "\[VeryThinSpace]", "+", - RowBox[{"0.00004307772011391988`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"8.685894643110058`*^-6", "-", - RowBox[{"0.00004059431976815402`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.000020204823597666898`"}], "-", - RowBox[{"3.7759208372711384`*^-6", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.000015307629010521045`"}], "+", - RowBox[{"3.951905221614699`*^-6", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "4.343553952720124`*^-6"}], "-", - RowBox[{"0.00001161993919005245`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.000017585845905822448`", "\[VeryThinSpace]", "+", - RowBox[{"0.000015151899598359067`", " ", "\[ImaginaryI]"}]}], - RowBox[{"4.2602082964760155`*^-6", "+", - RowBox[{"7.126324002786973`*^-6", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, - "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - TraditionalForm]], "Output", - CellChangeTimes->{ - 3.725643770955369*^9, {3.725643814176363*^9, 3.725643825955451*^9}, - 3.725657092282984*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"FHqSrcrgaugedLttcSpnClr", "\[LeftDoubleBracket]", - RowBox[{"1", ",", "1", ",", "1", ",", "4", ",", "1", ",", "1"}], - "\[RightDoubleBracket]"}]], "Input", - CellChangeTimes->{{3.725656995616624*^9, 3.725656996417535*^9}, { - 3.725657098329164*^9, 3.725657105722238*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{ - RowBox[{"-", "0.00007074166736904258`"}], "+", - RowBox[{"6.920524897511755`*^-7", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.000017853151300108615`", "\[VeryThinSpace]", "+", - RowBox[{"0.0000355654569093027`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.000019463549887284713`", "\[VeryThinSpace]", "+", - RowBox[{"0.00004307771950737169`", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{"8.685894330176737`*^-6", "-", - RowBox[{"0.00004059431932117912`", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.000020204823551774063`"}], "-", - RowBox[{"3.7759211462809036`*^-6", " ", "\[ImaginaryI]"}]}], - RowBox[{ - RowBox[{"-", "0.000015307628959081334`"}], "+", - RowBox[{"3.951906100195047`*^-6", " ", "\[ImaginaryI]"}]}]}, - { - RowBox[{ - RowBox[{"-", "4.3435537292567285`*^-6"}], "-", - RowBox[{"0.000011619939203332302`", " ", "\[ImaginaryI]"}]}], - RowBox[{"0.00001758584719299843`", "\[VeryThinSpace]", "+", - RowBox[{"0.000015151900101733717`", " ", "\[ImaginaryI]"}]}], - RowBox[{"4.260208826063604`*^-6", "+", - RowBox[{"7.1263236778945075`*^-6", " ", "\[ImaginaryI]"}]}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, - "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - TraditionalForm]], "Output", - CellChangeTimes->{3.725643838097973*^9, 3.725657107354904*^9}] -}, Open ]], - -Cell[BoxData[ - RowBox[{"<<", "XML`"}]], "Input", - CellChangeTimes->{{3.725703869994257*^9, 3.7257038730214863`*^9}}], - -Cell[BoxData[ - RowBox[{"<<", "MaTeX`"}]], "Input", - CellChangeTimes->{{3.725708373436564*^9, 3.7257083757418327`*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"FP0zXMLdat", "=", - RowBox[{"StringReplace", "[", - RowBox[{ - RowBox[{"Import", "[", "\"\\"", "]"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\"\<\\n\>\"", "\[Rule]", "\"\<\>\""}], ",", - RowBox[{ - RowBox[{"\"\<\"", "~~", "x__", "~~", "\"\\>\""}], - "\[Rule]", "\"\<\>\""}], ",", - RowBox[{"\"\<\>\"", "\[Rule]", "\"\<\>\""}], ",", - RowBox[{"\"\<\>\"", "\[Rule]", "\"\<\>\""}]}], "}"}]}], - "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.7078126289574614`*^9, 3.707812649356776*^9}, { - 3.707812690393458*^9, 3.707812701071402*^9}, {3.7253569593699408`*^9, - 3.7253569594576397`*^9}, {3.725357293761647*^9, 3.725357294321705*^9}, { - 3.7255387613215027`*^9, 3.7255387615018663`*^9}, {3.725540256857502*^9, - 3.725540257135949*^9}, {3.7257089047790833`*^9, 3.725708906757967*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"FP0ztdat", "=", - RowBox[{"Flatten", "[", - RowBox[{ - RowBox[{"(", - RowBox[{ - RowBox[{ - RowBox[{"ImportString", "[", - RowBox[{"FP0zXMLdat", ",", "\"\\""}], "]"}], "//.", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"XMLElement", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", "}"}], ",", - RowBox[{"{", "x__", "}"}]}], "]"}], ",", - RowBox[{"XMLElement", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", "}"}], ",", - RowBox[{"{", "y__", "}"}]}], "]"}]}], "}"}], "\[RuleDelayed]", - RowBox[{ - RowBox[{"ToExpression", "[", - RowBox[{"StringReplace", "[", - RowBox[{"x", ",", - RowBox[{"\"\\"", "\[Rule]", "\"\<*^\>\""}]}], "]"}], "]"}], - "+", - RowBox[{"I", "*", - RowBox[{"ToExpression", "[", - RowBox[{"StringReplace", "[", - RowBox[{"y", ",", - RowBox[{"\"\\"", "\[Rule]", "\"\<*^\>\""}]}], "]"}], - "]"}]}]}]}]}], "//.", - RowBox[{"{", - RowBox[{ - RowBox[{ - RowBox[{"XMLElement", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", "}"}], ",", "y_"}], "]"}], "\[Rule]", "y"}], ",", - RowBox[{ - RowBox[{"XMLElement", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", "}"}], ",", "y_"}], "]"}], "\[Rule]", "y"}]}], - "}"}]}], ")"}], "\[LeftDoubleBracket]", - RowBox[{"2", ",", - RowBox[{"-", "1"}], ",", - RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.7078130631990433`*^9, 3.707813140289648*^9}, { - 3.72535696065837*^9, 3.725356960771616*^9}, {3.725357296370091*^9, - 3.725357305883906*^9}, {3.725538763473781*^9, 3.725538766189974*^9}, - 3.725540026486553*^9, {3.725540259784634*^9, 3.7255402622099123`*^9}, - 3.725540849729952*^9, 3.725542110093449*^9, {3.725708910536935*^9, - 3.72570891349564*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Evan", "=", - RowBox[{ - RowBox[{"ToExpression", "[", - RowBox[{"StringReplace", "[", - RowBox[{ - "\"\<{1.50939502e-04 -2.58204955e-04j -5.81637563e-03 -3.52101910e-03j\ -\n -1.21073366e-03 -6.87272967e-04j -2.71334016e-04 -1.48938480e-04j\n \ --5.79560168e-05 -3.41965357e-05j -1.02351854e-05 -6.43287815e-06j\n \ --1.77255727e-06 -1.19330009e-06j -2.98680914e-07 -1.89073570e-07j\n \ --5.01602706e-08 -2.85732100e-08j -8.81932028e-09 -4.79817074e-09j\n \ --1.41277945e-09 -8.16297376e-10j -2.11389816e-10 -1.18125749e-10j\n \ --3.39281133e-11 -1.53052013e-11j -5.18230633e-12 -1.68033333e-12j\n \ --7.77856966e-13 -1.63106358e-13j -1.18939563e-13 -1.06460281e-14j\n \ -1.12314582e-14 +8.97112107e-15j 1.44126225e-13 +6.24711019e-14j\n \ -9.16956420e-13 +5.06801541e-13j 5.51644469e-12 +3.75878201e-12j\n \ -3.17148874e-11 +2.45794761e-11j 1.81779335e-10 +1.48731611e-10j\n \ -1.10268468e-09 +9.23332231e-10j 5.61570323e-09 +5.15001481e-09j\n \ -3.05195710e-08 +2.99057365e-08j 2.05079462e-07 +1.83756788e-07j\n \ -1.30766785e-06 +1.09783959e-06j 8.37705667e-06 +6.26008976e-06j\n \ -5.56174177e-05 +3.80014259e-05j 3.90689010e-04 +2.50215728e-04j\n \ -2.11481576e-03 +1.28653817e-03j 7.97392300e-03 +4.57969754e-03j}\>\"", ",", - - RowBox[{"{", - RowBox[{ - RowBox[{"\"\\"", "\[Rule]", "\"\<*^\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<,\>\""}]}], "}"}]}], "]"}], - "]"}], "//.", - RowBox[{"j", "\[Rule]", "I"}]}]}], ";"}]], "Input", - CellChangeTimes->{{3.725356440202724*^9, 3.725356446653222*^9}, - 3.725356753020193*^9, {3.725356797546096*^9, 3.725356798036972*^9}, { - 3.725356982690817*^9, 3.7253569831002407`*^9}, 3.725357217053687*^9, { - 3.7255386752804832`*^9, 3.725538675983728*^9}, {3.725539705416113*^9, - 3.72553970778539*^9}, {3.725539871080209*^9, 3.72553987148438*^9}, - 3.725540722839278*^9, {3.725614681867691*^9, 3.725614724650704*^9}, - 3.725703926275219*^9, {3.7257073061513243`*^9, 3.7257073599958363`*^9}, { - 3.72570889620053*^9, 3.725708901375813*^9}, {3.725709082466258*^9, - 3.725709086381435*^9}, 3.725709251910406*^9, {3.725709350316266*^9, - 3.7257093550806417`*^9}, 3.725709414896146*^9, 3.725709503383972*^9, { - 3.725709543152699*^9, 3.7257095478689613`*^9}, {3.725709593621467*^9, - 3.725709596982766*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"ReEvan", "=", - RowBox[{"ListPlot", "[", - RowBox[{ - RowBox[{"Evan", "//", "Re"}], ",", - RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", - RowBox[{"PlotLegends", "\[Rule]", - RowBox[{"{", "\"\\"", "}"}]}], ",", - RowBox[{"PlotRange", "\[Rule]", "All"}], ",", - RowBox[{"Frame", "\[Rule]", "True"}], ",", - RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.725356240019421*^9, 3.725356292872854*^9}, { - 3.725356334658679*^9, 3.7253563586172657`*^9}, {3.725356437170109*^9, - 3.7253564511808147`*^9}, {3.7253569910517483`*^9, 3.725357004186556*^9}, { - 3.725357253986396*^9, 3.725357261769793*^9}, {3.725357523519732*^9, - 3.725357581789619*^9}, {3.7255386905279284`*^9, 3.7255387218018208`*^9}, { - 3.725538800630095*^9, 3.7255388085745*^9}, {3.725539075949066*^9, - 3.725539080064452*^9}, {3.725540005374283*^9, 3.7255400055277452`*^9}, { - 3.7255407463491163`*^9, 3.725540747502914*^9}, {3.7257073678267183`*^9, - 3.725707368523823*^9}, {3.7257079974391937`*^9, 3.725707998025483*^9}, { - 3.7257080857939568`*^9, 3.725708086715453*^9}, {3.725708731124482*^9, - 3.725708755217411*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"ReXng", "=", - RowBox[{"ListPlot", "[", - RowBox[{ - RowBox[{ - RowBox[{"-", "FP0ztdat"}], "//", "Re"}], ",", - RowBox[{"PlotStyle", "\[Rule]", - RowBox[{"{", - RowBox[{"Dashed", ",", "Black"}], "}"}]}], ",", - RowBox[{"Joined", "\[Rule]", "True"}], ",", - RowBox[{"PlotLegends", "\[Rule]", - RowBox[{"{", "\"\\"", "}"}]}], ",", - RowBox[{"PlotRange", "\[Rule]", "All"}], ",", - RowBox[{"Frame", "\[Rule]", "True"}], ",", - RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.725356024809589*^9, 3.725356033093931*^9}, { - 3.725356178964899*^9, 3.725356180181107*^9}, {3.7253563001202517`*^9, - 3.725356311417178*^9}, {3.725356368092121*^9, 3.725356420786028*^9}, - 3.725357016243121*^9, {3.725357318010193*^9, 3.725357318426063*^9}, { - 3.7253575311761427`*^9, 3.725357534840942*^9}, {3.725357566348579*^9, - 3.7253575900939007`*^9}, {3.72553869375263*^9, 3.725538746735242*^9}, { - 3.725538817295732*^9, 3.725538817423017*^9}, {3.725540749353841*^9, - 3.7255407496719112`*^9}, {3.7255420360658216`*^9, 3.725542036433599*^9}, { - 3.7257080007510138`*^9, 3.725708025882341*^9}, {3.725708079626973*^9, - 3.725708081099951*^9}, {3.7257081494958878`*^9, 3.725708163282769*^9}, { - 3.725708760594219*^9, 3.725708760860838*^9}, 3.7257089178230267`*^9}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"ImEvan", "=", - RowBox[{"ListPlot", "[", - RowBox[{ - RowBox[{"Evan", "//", "Im"}], ",", - RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", - RowBox[{"PlotLegends", "\[Rule]", - RowBox[{"{", "\"\\"", "}"}]}], ",", - RowBox[{"PlotRange", "\[Rule]", "All"}], ",", - RowBox[{"Frame", "\[Rule]", "True"}], ",", - RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.725356240019421*^9, 3.725356292872854*^9}, { - 3.725356334658679*^9, 3.7253563586172657`*^9}, {3.725356437170109*^9, - 3.7253564511808147`*^9}, {3.7253569910517483`*^9, 3.725357004186556*^9}, { - 3.725357253986396*^9, 3.725357261769793*^9}, {3.725357523519732*^9, - 3.725357581789619*^9}, {3.7255386905279284`*^9, 3.7255387218018208`*^9}, { - 3.725538800630095*^9, 3.7255388085745*^9}, {3.725539075949066*^9, - 3.725539080064452*^9}, {3.725540005374283*^9, 3.7255400055277452`*^9}, { - 3.7255407463491163`*^9, 3.725540747502914*^9}, {3.7257073678267183`*^9, - 3.725707368523823*^9}, {3.725707440907703*^9, 3.725707444646428*^9}, { - 3.725708010296359*^9, 3.725708011726161*^9}, {3.725708083074068*^9, - 3.725708083835114*^9}, {3.725708762634406*^9, 3.72570876290068*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"ImXng", "=", - RowBox[{"ListPlot", "[", - RowBox[{ - RowBox[{ - RowBox[{"-", "FP0ztdat"}], "//", "Im"}], ",", - RowBox[{"PlotStyle", "\[Rule]", - RowBox[{"{", - RowBox[{"Dashed", ",", "Blue"}], "}"}]}], ",", - RowBox[{"Joined", "\[Rule]", "True"}], ",", - RowBox[{"PlotLegends", "\[Rule]", - RowBox[{"{", "\"\\"", "}"}]}], ",", - RowBox[{"PlotRange", "\[Rule]", "All"}], ",", - RowBox[{"Frame", "\[Rule]", "True"}], ",", - RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.725356024809589*^9, 3.725356033093931*^9}, { - 3.725356178964899*^9, 3.725356180181107*^9}, {3.7253563001202517`*^9, - 3.725356311417178*^9}, {3.725356368092121*^9, 3.725356420786028*^9}, - 3.725357016243121*^9, {3.725357318010193*^9, 3.725357318426063*^9}, { - 3.7253575311761427`*^9, 3.725357534840942*^9}, {3.725357566348579*^9, - 3.7253575900939007`*^9}, {3.72553869375263*^9, 3.725538746735242*^9}, { - 3.725538817295732*^9, 3.725538817423017*^9}, {3.725540749353841*^9, - 3.7255407496719112`*^9}, {3.7255420360658216`*^9, 3.725542036433599*^9}, { - 3.725707446029161*^9, 3.725707449093183*^9}, {3.725708015904922*^9, - 3.725708019569991*^9}, {3.725708060929983*^9, 3.725708077233617*^9}, { - 3.72570816621449*^9, 3.72570817134107*^9}, {3.725708764602477*^9, - 3.7257087648075542`*^9}, 3.7257089190476017`*^9}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"LogAbsReEvan", "=", - RowBox[{"ListPlot", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"Evan", "//", "Re"}], "//", "Abs"}], "//", "Log"}], ",", - RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", - RowBox[{"PlotLegends", "\[Rule]", - RowBox[{"{", "\"\\"", "}"}]}], ",", - RowBox[{"PlotRange", "\[Rule]", "All"}], ",", - RowBox[{"Frame", "\[Rule]", "True"}], ",", - RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.725356240019421*^9, 3.725356292872854*^9}, { - 3.725356334658679*^9, 3.7253563586172657`*^9}, {3.725356437170109*^9, - 3.7253564511808147`*^9}, {3.7253569910517483`*^9, 3.725357004186556*^9}, { - 3.725357253986396*^9, 3.725357261769793*^9}, {3.725357523519732*^9, - 3.725357581789619*^9}, {3.7255386905279284`*^9, 3.7255387218018208`*^9}, { - 3.725538800630095*^9, 3.7255388085745*^9}, {3.725539075949066*^9, - 3.725539080064452*^9}, {3.725540005374283*^9, 3.7255400055277452`*^9}, { - 3.7255407463491163`*^9, 3.725540747502914*^9}, {3.7257044492213497`*^9, - 3.725704462971003*^9}, {3.7257073896190653`*^9, 3.7257074156361628`*^9}, { - 3.725708092147316*^9, 3.7257080930122223`*^9}, {3.725708639885088*^9, - 3.72570864939789*^9}, {3.725708766922557*^9, 3.725708767180603*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"LogAbsReXng", "=", - RowBox[{"ListPlot", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"-", "FP0ztdat"}], "//", "Re"}], "//", "Abs"}], "//", "Log"}], - ",", - RowBox[{"PlotStyle", "\[Rule]", - RowBox[{"{", - RowBox[{"Dashed", ",", "Black"}], "}"}]}], ",", - RowBox[{"Joined", "\[Rule]", "True"}], ",", - RowBox[{"PlotLegends", "\[Rule]", - RowBox[{"{", "\"\\"", "}"}]}], ",", - RowBox[{"PlotRange", "\[Rule]", "All"}], ",", - RowBox[{"Frame", "\[Rule]", "True"}], ",", - RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.725356024809589*^9, 3.725356033093931*^9}, { - 3.725356178964899*^9, 3.725356180181107*^9}, {3.7253563001202517`*^9, - 3.725356311417178*^9}, {3.725356368092121*^9, 3.725356420786028*^9}, - 3.725357016243121*^9, {3.725357318010193*^9, 3.725357318426063*^9}, { - 3.7253575311761427`*^9, 3.725357534840942*^9}, {3.725357566348579*^9, - 3.7253575900939007`*^9}, {3.72553869375263*^9, 3.725538746735242*^9}, { - 3.725538817295732*^9, 3.725538817423017*^9}, {3.725540749353841*^9, - 3.7255407496719112`*^9}, {3.7255420360658216`*^9, 3.725542036433599*^9}, { - 3.725704451868462*^9, 3.725704468629925*^9}, {3.725707390907227*^9, - 3.725707403013687*^9}, {3.7257074822932177`*^9, 3.725707495000186*^9}, { - 3.725707957886224*^9, 3.7257079618163843`*^9}, {3.725708094883514*^9, - 3.7257080955807056`*^9}, 3.725708181008443*^9, 3.725708658389545*^9, { - 3.725708775682819*^9, 3.725708775931674*^9}, 3.725708920367887*^9}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"LogAbsImEvan", "=", - RowBox[{"ListPlot", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"Evan", "//", "Im"}], "//", "Abs"}], "//", "Log"}], ",", - RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", - RowBox[{"PlotLegends", "\[Rule]", - RowBox[{"{", "\"\\"", "}"}]}], ",", - RowBox[{"PlotRange", "\[Rule]", "All"}], ",", - RowBox[{"Frame", "\[Rule]", "True"}], ",", - RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.725356240019421*^9, 3.725356292872854*^9}, { - 3.725356334658679*^9, 3.7253563586172657`*^9}, {3.725356437170109*^9, - 3.7253564511808147`*^9}, {3.7253569910517483`*^9, 3.725357004186556*^9}, { - 3.725357253986396*^9, 3.725357261769793*^9}, {3.725357523519732*^9, - 3.725357581789619*^9}, {3.7255386905279284`*^9, 3.7255387218018208`*^9}, { - 3.725538800630095*^9, 3.7255388085745*^9}, {3.725539075949066*^9, - 3.725539080064452*^9}, {3.725540005374283*^9, 3.7255400055277452`*^9}, { - 3.7255407463491163`*^9, 3.725540747502914*^9}, {3.7257044492213497`*^9, - 3.725704462971003*^9}, {3.7257073924437857`*^9, 3.725707419023424*^9}, { - 3.725707968839718*^9, 3.725707977763062*^9}, {3.7257080968833447`*^9, - 3.725708097428895*^9}, {3.725708660670671*^9, 3.725708665295128*^9}, { - 3.725708777618863*^9, 3.725708777883621*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"LogAbsImXng", "=", - RowBox[{"ListPlot", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"-", "FP0ztdat"}], "//", "Im"}], "//", "Abs"}], "//", "Log"}], - ",", - RowBox[{"PlotStyle", "\[Rule]", - RowBox[{"{", - RowBox[{"Dashed", ",", "Blue"}], "}"}]}], ",", - RowBox[{"Joined", "\[Rule]", "True"}], ",", - RowBox[{"PlotLegends", "\[Rule]", - RowBox[{"{", "\"\\"", "}"}]}], ",", - RowBox[{"PlotRange", "\[Rule]", "All"}], ",", - RowBox[{"Frame", "\[Rule]", "True"}], ",", - RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.725356024809589*^9, 3.725356033093931*^9}, { - 3.725356178964899*^9, 3.725356180181107*^9}, {3.7253563001202517`*^9, - 3.725356311417178*^9}, {3.725356368092121*^9, 3.725356420786028*^9}, - 3.725357016243121*^9, {3.725357318010193*^9, 3.725357318426063*^9}, { - 3.7253575311761427`*^9, 3.725357534840942*^9}, {3.725357566348579*^9, - 3.7253575900939007`*^9}, {3.72553869375263*^9, 3.725538746735242*^9}, { - 3.725538817295732*^9, 3.725538817423017*^9}, {3.725540749353841*^9, - 3.7255407496719112`*^9}, {3.7255420360658216`*^9, 3.725542036433599*^9}, { - 3.725704451868462*^9, 3.725704468629925*^9}, {3.725707409835902*^9, - 3.725707427517907*^9}, {3.725707972550161*^9, 3.725707980707059*^9}, { - 3.725708099507863*^9, 3.725708100069131*^9}, 3.725708175806843*^9, { - 3.725708661728207*^9, 3.725708667760466*^9}, {3.725708779722494*^9, - 3.7257087799101763`*^9}, 3.7257089224010677`*^9}], - -Cell["Show", "Item", - CellChangeTimes->{{3.7257094317090483`*^9, 3.725709433769802*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Labeled", "[", - RowBox[{ - RowBox[{"Grid", "[", - RowBox[{"{", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"Show", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"ReXng", ",", "ReEvan"}], "}"}], ",", - RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], ",", - RowBox[{"Show", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"LogAbsReXng", ",", "LogAbsReEvan"}], "}"}], ",", - RowBox[{"PlotRange", "\[Rule]", "All"}], ",", - RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{"Show", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"ImXng", ",", "ImEvan"}], "}"}], ",", - RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], ",", - RowBox[{"Show", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"LogAbsImXng", ",", "LogAbsImEvan"}], "}"}], ",", - RowBox[{"PlotRange", "\[Rule]", "All"}], ",", - RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}], "}"}]}], "}"}], - "]"}], ",", - RowBox[{"MaTeX", "[", - RowBox[{ - "\"\<\\\\boldsymbol{\\\\sum_x\\\\langle\\\\pi^+(t)\\\\left|\\\\bar{\\\\\ -psi}(x)\\\\gamma_z W[x,x]\\\\psi(x)\\\\right|\\\\pi^+(0)\\\\rangle}\>\"", ",", - RowBox[{"Magnification", "\[Rule]", "1.75"}]}], "]"}], ",", "Top"}], - "]"}]], "Input", - CellChangeTimes->{{3.7257090247788563`*^9, 3.72570904330954*^9}, { - 3.725709287724681*^9, 3.725709305439658*^9}}], - -Cell[BoxData[ - FormBox[ - TemplateBox[{TagBox[ - GridBox[{{ - TemplateBox[{ - GraphicsBox[{{{}, {{{}, {}, { - Hue[0.67, 0.6, 0.6], - Directive[ - PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - GrayLevel[0]], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7I+ms72X2mGyHyrgsP7A93/pyougfA6HW7ob -H1kqVEL5Ag7LP3dNT70VBOWLOBxRb7l77ZQWlC/hcOEW1+qdZxmhfBkHNe0k -P96d1/dB+AoOehoNq2XE10P5Sg6bo3gUC41aoHwVB42fC6qYu6OgfDWHDTUv -2tWrDaB8DYfnk25XPb3IDOVrOXjdi9DPLr2xF8LXcdhzPqnvdOEaKF/PYevV -eL+Q7AYo38Dh/68b9/seBkP5hg5bHqz4ua9F1BbCN3KYfa9uxtM/oVC+sYOA -wvEi+fONUL6Jg+Nj46MtxauhfFOHvBuim6bNuwLlmznIFffKqov+h/LNHWa9 -/b3rw1INOwjfwuHPZVk+bq1AKN/SocJY4Pbs05VQvpVDUrjaax+GZVC+tYOt -9rJ7QRmXoHwbh3e3nFjk9f9B+bYOduYT2qfd1LSH8O0cQo9FNk4WDoPy7R1e -2jBMb3hUB+U7OEzhnBQY6LXEHgA1W5HB - - "]]}}}, {}, {}, {{}, {}}}, {{}, {{{}, { - Hue[0.67, 0.6, 0.6], - Directive[ - PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - RGBColor[1, 0, 0]], - PointBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7NUutHhL7zDZDxVwOPVg67905UVQPofDc8kj -Dy0VKqF8AYcPJwqnpt4KgvJFHC6KtFy+dkoLypdweB/oOmPnWUYoX8bBSrBW -mnfn9X0QvoLD/TkGPDLi66F8JQfnUsnb+UYtUL6Kw7I3q6/974qC8tUcWtMO -z1GpNoDyNRxuT7phceciM5Sv5cDWtOJGaOmNvRC+joPx8itPswrXQPl6DmrL -CmYfyGqA8g0cXuxZc+nEg2Ao39Dh66O8+r5KUVsI38hhlszyZVd/hUL5xg5y -UXGzrc81QvkmDhwvY5/sKFoN5Zs6+PBdexQz7wqUb+awlmNlqYTofyjf3OH2 -+fnzPyzVsIPwLRzWWu2v59EKhPItHQLjnZfMOV0J5Vs5fNkwPcqXYRmUb+0Q -z5svHJxxCcq3cdg355mqvP4/KN/WQVH4YO+0m5r2EL6dg9P6aU2ThcOgfHuH -lj/+0xoe1UH5Dg6ftPYHBnotsQcAiRqTTQ== - - "]]}, {}}}, {}, {}, {{}, {}}}}, { - ImageSize -> 400, DisplayFunction -> Identity, - PlotRangePadding -> {{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, AxesOrigin -> {0.515625, 0}, - PlotRange -> {{1., 32.}, {-0.0354263781299563, - 0.0396294986794771}}, PlotRangeClipping -> True, ImagePadding -> - All, DisplayFunction -> Identity, AspectRatio -> - NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes -> {False, False}, AxesLabel -> {None, None}, - AxesOrigin -> {0.515625, 0}, DisplayFunction :> Identity, - Frame -> {{True, True}, {True, True}}, - FrameLabel -> {{None, None}, {None, None}}, - FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines -> {None, None}, GridLinesStyle -> Directive[ - GrayLevel[0.5, 0.4]], - Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 1, - 2][#]& )[ - Part[#, 1]], - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 2, - 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 1, - 2][#]& )[ - Part[#, 1]], - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 2, - 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange -> {{1., 32.}, {-0.0354263781299563, - 0.0396294986794771}}, PlotRangeClipping -> True, - PlotRangePadding -> {{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], - FormBox[ - TagBox[ - GridBox[{{ - FormBox[ - - TemplateBox[{"\"Xiong, Re\""}, "PointLegend", - DisplayFunction -> (StyleBox[ - StyleBox[ - PaneBox[ - TagBox[ - GridBox[{{ - TagBox[ - GridBox[{{ - GraphicsBox[{{ - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.1155], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - GrayLevel[0]], { - LineBox[{{0, 10}, {40, 10}}]}}, { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.1155], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - GrayLevel[0]], {}}}, AspectRatio -> Full, - ImageSize -> {40, 10}, PlotRangePadding -> None, - ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, - GridBoxAlignment -> { - "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, - AutoDelete -> False, - GridBoxDividers -> { - "Columns" -> {{False}}, "Rows" -> {{False}}}, - GridBoxItemSize -> { - "Columns" -> {{All}}, "Rows" -> {{All}}}, - GridBoxSpacings -> { - "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], - "Grid"], Alignment -> Left, AppearanceElements -> None, - ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> - "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { - FontFamily -> "Arial"}, Background -> Automatic, - StripOnInput -> False]& ), - InterpretationFunction :> (RowBox[{"PointLegend", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], - ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - RowBox[{"Dashing", "[", - RowBox[{"{", - RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", - InterpretationBox[ - ButtonBox[ - TooltipBox[ - GraphicsBox[{{ - GrayLevel[0], - RectangleBox[{0, 0}]}, { - GrayLevel[0], - RectangleBox[{1, -1}]}, { - GrayLevel[0], - RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> - True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, - PlotRangePadding -> None, ImageSize -> - Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], "GrayLevel[0]"], - Appearance -> None, BaseStyle -> {}, BaselinePosition -> - Baseline, DefaultBaseStyle -> {}, ButtonFunction :> - With[{Typeset`box$ = EvaluationBox[]}, - If[ - Not[ - AbsoluteCurrentValue["Deployed"]], - SelectionMove[Typeset`box$, All, Expression]; - FrontEnd`Private`$ColorSelectorInitialAlpha = 1; - FrontEnd`Private`$ColorSelectorInitialColor = - GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = - True; MathLink`CallFrontEnd[ - FrontEnd`AttachCell[Typeset`box$, - FrontEndResource["GrayLevelColorValueSelector"], { - 0, {Left, Bottom}}, {Left, Top}, - "ClosingActions" -> { - "SelectionDeparture", "ParentChanged", - "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> - Automatic, Method -> "Preemptive"], - GrayLevel[0], Editable -> False, Selectable -> False]}], - "]"}], "}"}], ",", - RowBox[{"{", #, "}"}], ",", - RowBox[{"LegendMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"{", - RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", - - RowBox[{"Joined", "\[Rule]", - RowBox[{"{", "True", "}"}]}], ",", - RowBox[{"LabelStyle", "\[Rule]", - RowBox[{"{", "}"}]}], ",", - RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], - "]"}]& ), Editable -> True], TraditionalForm]}, { - FormBox[ - - TemplateBox[{"\"Evan, Re\""}, "PointLegend", - DisplayFunction -> (StyleBox[ - StyleBox[ - PaneBox[ - TagBox[ - GridBox[{{ - TagBox[ - GridBox[{{ - GraphicsBox[{{}, { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.462], - AbsoluteThickness[1.6], - RGBColor[1, 0, 0]], { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.462], - AbsoluteThickness[1.6], - RGBColor[1, 0, 0]], - PointBox[ - NCache[{ - Scaled[{ - Rational[1, 2], - Rational[1, 2]}]}, { - Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, - ImageSize -> {10, 10}, PlotRangePadding -> None, - ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, - GridBoxAlignment -> { - "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, - AutoDelete -> False, - GridBoxDividers -> { - "Columns" -> {{False}}, "Rows" -> {{False}}}, - GridBoxItemSize -> { - "Columns" -> {{All}}, "Rows" -> {{All}}}, - GridBoxSpacings -> { - "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], - "Grid"], Alignment -> Left, AppearanceElements -> None, - ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> - "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { - FontFamily -> "Arial"}, Background -> Automatic, - StripOnInput -> False]& ), - InterpretationFunction :> (RowBox[{"PointLegend", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], - ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - InterpretationBox[ - ButtonBox[ - TooltipBox[ - GraphicsBox[{{ - GrayLevel[0], - RectangleBox[{0, 0}]}, { - GrayLevel[0], - RectangleBox[{1, -1}]}, { - RGBColor[1, 0, 0], - RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> - True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], - FrameTicks -> None, PlotRangePadding -> None, ImageSize -> - Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], - "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {}, - BaselinePosition -> Baseline, DefaultBaseStyle -> {}, - ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, - If[ - Not[ - AbsoluteCurrentValue["Deployed"]], - SelectionMove[Typeset`box$, All, Expression]; - FrontEnd`Private`$ColorSelectorInitialAlpha = 1; - FrontEnd`Private`$ColorSelectorInitialColor = - RGBColor[1, 0, 0]; - FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; - MathLink`CallFrontEnd[ - FrontEnd`AttachCell[Typeset`box$, - FrontEndResource["RGBColorValueSelector"], { - 0, {Left, Bottom}}, {Left, Top}, - "ClosingActions" -> { - "SelectionDeparture", "ParentChanged", - "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> - Automatic, Method -> "Preemptive"], - RGBColor[1, 0, 0], Editable -> False, Selectable -> - False]}], "]"}], "}"}], ",", - RowBox[{"{", #, "}"}], ",", - RowBox[{"LegendMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"{", - RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", - - RowBox[{"Joined", "\[Rule]", - RowBox[{"{", "False", "}"}]}], ",", - RowBox[{"LabelStyle", "\[Rule]", - RowBox[{"{", "}"}]}], ",", - RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], - "]"}]& ), Editable -> True], TraditionalForm]}}, - GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"], - TraditionalForm]}, "Legended", DisplayFunction -> (FormBox[ - GridBox[{{ - TagBox[ - ItemBox[ - PaneBox[ - TagBox[#, "SkipImageSizeLevel"], - Alignment -> {Center, Baseline}, BaselinePosition -> - Baseline], DefaultBaseStyle -> "Labeled"], - "SkipImageSizeLevel"], - ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, - GridBoxAlignment -> { - "Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> - False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}], - TraditionalForm]& ), InterpretationFunction -> (FormBox[ - RowBox[{"Legended", "(", - RowBox[{#, ",", - RowBox[{"Placed", "[", - RowBox[{#2, ",", "After"}], "]"}]}], ")"}], - TraditionalForm]& ), Editable -> True], - TemplateBox[{ - GraphicsBox[{{{}, {{{}, {}, { - Hue[0.67, 0.6, 0.6], - Directive[ - PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - GrayLevel[0]], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7NcblXDFyCkcgAo47H54vPzdDi4on8PBb47U -dbkEEShfwCHl89HtZwSloXwRh+j/X60X/4Xpl3CorQtfum6KCpQv48BTc2pO -ipYGlK/g4Pn09MfpJ7ShfCWHM8clCq2z9aF8FYdHp290MbYYQvlqDoZFJYZP -E4yhfA0H5cN/DzO6mUL5Wg6X1Gx+NqqYQ/k6Dp9N3eyMhCyhfD0Hz7DvdYcY -raF8A4cT+VcvyD21gfINHWTyNN2XTLOH8o0c/FLU7oWehskbO5QEKVV9fWMF -5Zs4HN7pt9hbGma+qYOW/j5ZiwCY/WYO+5Y9VXJugbnP3MGmZN8s39Uw91s4 -VIrvcZz9GeY/SwfHP/bPcjUMoHwrBzOGzklLKnWgfGsHh2s9P93WwMLPxmF2 -3h9Hj5ew8LV1YGy6POEHvyKUb+fwJtUpQ7dACsq3d9CfzdV9tkcYyndweJhW -cDXgMucBAPA0jbk= - "]]}}}, {}, {}, {{}, {}}}, {{}, {{{}, { - Hue[0.67, 0.6, 0.6], - Directive[ - PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - RGBColor[1, 0, 0]], - PointBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7Pu72xhj5BQOQAUclr5/Uv5uBxeUz+EQF+Vw -XS5BBMoXcMh6bb7jjKA0lC/iYC611WbxX5h+CQee0OLl66aoQPkyDhlvRRam -aGlA+QoO64q5/0w/oQ3lKznoro6faJ2tD+WrOEx1/bqWscUQyldzsLl+Mu5p -gjGUr+GguXqiNZObKZSv5RDfMuVGk4o5lK/j0FVsscRUyBLK13P4Ifm99jSj -NZRv4JBwwP64xlMbKN/QIVNnc7vmdHso38hhy1+WR7mnYfLGDgGPZrkyvbWC -8k0c1klsFQiWhplv6lDvW/vaKgBmv5mD1ZFZs51bYO4zd+Cbd2u272qY+y0c -EtSNdWZ/hvnP0sHNsvheroYBlG/l8Lk/vWNJpQ6Ub+0gu/TCZ7c1sPCzcXh6 -4aC9x0tY+No6BD6OmPCDXxHKt3Pw/cWRoVsgBeXbOzzJU+w+2yMM5Ts4LJsd -dzXgMucBAGlXjAU= - "]]}, {}}}, {}, {}, {{}, {}}}}, { - PlotRange -> All, ImageSize -> 400, DisplayFunction -> Identity, - PlotRangePadding -> {{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, AxesOrigin -> {0.515625, 0}, - PlotRange -> {{1., 32.}, {-31.58844418298223, 0}}, - PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> - Identity, AspectRatio -> - NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes -> {False, False}, AxesLabel -> {None, None}, - AxesOrigin -> {0.515625, 0}, DisplayFunction :> Identity, - Frame -> {{True, True}, {True, True}}, - FrameLabel -> {{None, None}, {None, None}}, - FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines -> {None, None}, GridLinesStyle -> Directive[ - GrayLevel[0.5, 0.4]], - Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 1, - 2][#]& )[ - Part[#, 1]], - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 2, - 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 1, - 2][#]& )[ - Part[#, 1]], - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 2, - 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange -> {{1., 32.}, {-31.58844418298223, 0}}, - PlotRangeClipping -> True, PlotRangePadding -> {{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], - FormBox[ - TagBox[ - GridBox[{{ - FormBox[ - - TemplateBox[{"\"Xiong, Log[Abs[Re[]]]\""}, "PointLegend", - DisplayFunction -> (StyleBox[ - StyleBox[ - PaneBox[ - TagBox[ - GridBox[{{ - TagBox[ - GridBox[{{ - GraphicsBox[{{ - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.1155], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - GrayLevel[0]], { - LineBox[{{0, 10}, {40, 10}}]}}, { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.1155], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - GrayLevel[0]], {}}}, AspectRatio -> Full, - ImageSize -> {40, 10}, PlotRangePadding -> None, - ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, - GridBoxAlignment -> { - "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, - AutoDelete -> False, - GridBoxDividers -> { - "Columns" -> {{False}}, "Rows" -> {{False}}}, - GridBoxItemSize -> { - "Columns" -> {{All}}, "Rows" -> {{All}}}, - GridBoxSpacings -> { - "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], - "Grid"], Alignment -> Left, AppearanceElements -> None, - ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> - "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { - FontFamily -> "Arial"}, Background -> Automatic, - StripOnInput -> False]& ), - InterpretationFunction :> (RowBox[{"PointLegend", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], - ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - RowBox[{"Dashing", "[", - RowBox[{"{", - RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", - InterpretationBox[ - ButtonBox[ - TooltipBox[ - GraphicsBox[{{ - GrayLevel[0], - RectangleBox[{0, 0}]}, { - GrayLevel[0], - RectangleBox[{1, -1}]}, { - GrayLevel[0], - RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> - True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, - PlotRangePadding -> None, ImageSize -> - Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], "GrayLevel[0]"], - Appearance -> None, BaseStyle -> {}, BaselinePosition -> - Baseline, DefaultBaseStyle -> {}, ButtonFunction :> - With[{Typeset`box$ = EvaluationBox[]}, - If[ - Not[ - AbsoluteCurrentValue["Deployed"]], - SelectionMove[Typeset`box$, All, Expression]; - FrontEnd`Private`$ColorSelectorInitialAlpha = 1; - FrontEnd`Private`$ColorSelectorInitialColor = - GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = - True; MathLink`CallFrontEnd[ - FrontEnd`AttachCell[Typeset`box$, - FrontEndResource["GrayLevelColorValueSelector"], { - 0, {Left, Bottom}}, {Left, Top}, - "ClosingActions" -> { - "SelectionDeparture", "ParentChanged", - "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> - Automatic, Method -> "Preemptive"], - GrayLevel[0], Editable -> False, Selectable -> False]}], - "]"}], "}"}], ",", - RowBox[{"{", #, "}"}], ",", - RowBox[{"LegendMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"{", - RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", - - RowBox[{"Joined", "\[Rule]", - RowBox[{"{", "True", "}"}]}], ",", - RowBox[{"LabelStyle", "\[Rule]", - RowBox[{"{", "}"}]}], ",", - RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], - "]"}]& ), Editable -> True], TraditionalForm]}, { - FormBox[ - - TemplateBox[{"\"Evan, Log[Abs[Re[]]]\""}, "PointLegend", - DisplayFunction -> (StyleBox[ - StyleBox[ - PaneBox[ - TagBox[ - GridBox[{{ - TagBox[ - GridBox[{{ - GraphicsBox[{{}, { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.462], - AbsoluteThickness[1.6], - RGBColor[1, 0, 0]], { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.462], - AbsoluteThickness[1.6], - RGBColor[1, 0, 0]], - PointBox[ - NCache[{ - Scaled[{ - Rational[1, 2], - Rational[1, 2]}]}, { - Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, - ImageSize -> {10, 10}, PlotRangePadding -> None, - ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, - GridBoxAlignment -> { - "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, - AutoDelete -> False, - GridBoxDividers -> { - "Columns" -> {{False}}, "Rows" -> {{False}}}, - GridBoxItemSize -> { - "Columns" -> {{All}}, "Rows" -> {{All}}}, - GridBoxSpacings -> { - "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], - "Grid"], Alignment -> Left, AppearanceElements -> None, - ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> - "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { - FontFamily -> "Arial"}, Background -> Automatic, - StripOnInput -> False]& ), - InterpretationFunction :> (RowBox[{"PointLegend", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], - ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - InterpretationBox[ - ButtonBox[ - TooltipBox[ - GraphicsBox[{{ - GrayLevel[0], - RectangleBox[{0, 0}]}, { - GrayLevel[0], - RectangleBox[{1, -1}]}, { - RGBColor[1, 0, 0], - RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> - True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], - FrameTicks -> None, PlotRangePadding -> None, ImageSize -> - Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], - "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {}, - BaselinePosition -> Baseline, DefaultBaseStyle -> {}, - ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, - If[ - Not[ - AbsoluteCurrentValue["Deployed"]], - SelectionMove[Typeset`box$, All, Expression]; - FrontEnd`Private`$ColorSelectorInitialAlpha = 1; - FrontEnd`Private`$ColorSelectorInitialColor = - RGBColor[1, 0, 0]; - FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; - MathLink`CallFrontEnd[ - FrontEnd`AttachCell[Typeset`box$, - FrontEndResource["RGBColorValueSelector"], { - 0, {Left, Bottom}}, {Left, Top}, - "ClosingActions" -> { - "SelectionDeparture", "ParentChanged", - "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> - Automatic, Method -> "Preemptive"], - RGBColor[1, 0, 0], Editable -> False, Selectable -> - False]}], "]"}], "}"}], ",", - RowBox[{"{", #, "}"}], ",", - RowBox[{"LegendMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"{", - RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", - - RowBox[{"Joined", "\[Rule]", - RowBox[{"{", "False", "}"}]}], ",", - RowBox[{"LabelStyle", "\[Rule]", - RowBox[{"{", "}"}]}], ",", - RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], - "]"}]& ), Editable -> True], TraditionalForm]}}, - GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"], - TraditionalForm]}, "Legended", DisplayFunction -> (FormBox[ - GridBox[{{ - TagBox[ - ItemBox[ - PaneBox[ - TagBox[#, "SkipImageSizeLevel"], - Alignment -> {Center, Baseline}, BaselinePosition -> - Baseline], DefaultBaseStyle -> "Labeled"], - "SkipImageSizeLevel"], - ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, - GridBoxAlignment -> { - "Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> - False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}], - TraditionalForm]& ), InterpretationFunction -> (FormBox[ - RowBox[{"Legended", "(", - RowBox[{#, ",", - RowBox[{"Placed", "[", - RowBox[{#2, ",", "After"}], "]"}]}], ")"}], - TraditionalForm]& ), Editable -> True]}, { - TemplateBox[{ - GraphicsBox[{{{}, {{{}, {}, { - Hue[0.67, 0.6, 0.6], - Directive[ - PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - RGBColor[0, 0, 1]], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7J9Xteb+Ov3VDirg8JjFKu2RjZY9hMvh4PC1 -Yd08Yw4oX8DhkKJsZr7wE6h6EYfjy1/fWKQ+eR+EL+GwYkp7R86eiVC+jAPf -UVcGkewCKF/BwcCpVnqHogOUr+Tg8Cet3O+qIJSv4nBzhTJ785rreyF8NYed -m6bzhE7SsIXwNRyuzTJ58cipFMrXcpi/bu9TldIUKF/HQa3JL/1isAmUr+dw -ZqLW/KkCP2wgfAMHFu+W6WG39kH5hg5PazS0qg2O7IHwjRz8w1buWzXzFpRv -7KC458YVjpJjUL6Jw88C1sLdHpJQ800dlosdP7hksQ+Ub+bgMfG4gei+aijf -3KFf8UwwJ8ccKN/Cwb3j+NUdt49D+ZYO3s+ctyjN+AzlWzm87mmzWCwmDw1f -a4cejpx2Pd4IKN/GQWrl9YMbtBqgfFuHCbL/Nj3+uwLKt3PQ1D036cj7vVC+ -vcPDyN3esn//QfkODn8F80sXNgnaAwBDd4xb - - "]]}}}, {}, {}, {{}, {}}}, {{}, {{{}, { - Hue[0.67, 0.6, 0.6], - Directive[ - PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - RGBColor[0, 1, 0]], - PointBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7K3m9Nf9Pv3VDirgsCe/Je6RjZY9hMvhsKK2 -5uA8Yw4oX8Dhq67/znzhJ1D1Ig4GnzpE56tP3gfhSzioreo/mr1nIpQv42C/ -8u5/oewCKF/BYdGKTL/lig5QvpJDbwknx4srglC+isMD17Yi8ZXX90L4ag7v -ZTUZ8p0NbCF8DYcjt5tuzI8shfK1HHytucr9mlOgfB2Hg8J1c0RyTKB8PYfn -J4I46z99t4HwDRyOcNUdi7DYBeUbOphzyXpsVzu6B8I3ctCzXNnWWH8Lyjd2 -WLnt1sE7Ow5D+SYO/twWE9g2SULNN3V4zRIYbHLaB8o3c7DqUEy4daoayjd3 -sBOPNn4tNAfKt3A4UHBRpefucSjf0mFBV+rHdzM+Q/lWDtb++ybpistDw9fa -4X3Z2WOuvBFQvo3DM48C1c1aDVC+rcPENW09j/+ugPLtHFTd73w49H4vlG/v -8Pf3QSbZv/+gfAeHTZcSIxY2CdoDAOP4jCs= - - "]]}, {}}}, {}, {}, {{}, {}}}}, { - ImageSize -> 400, DisplayFunction -> Identity, - PlotRangePadding -> {{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, AxesOrigin -> {0.515625, 0}, - PlotRange -> {{1., 32.}, {-2.85429188658285*^-7, - 0.000200178753505787}}, PlotRangeClipping -> True, ImagePadding -> - All, DisplayFunction -> Identity, AspectRatio -> - NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes -> {False, False}, AxesLabel -> {None, None}, - AxesOrigin -> {0.515625, 0}, DisplayFunction :> Identity, - Frame -> {{True, True}, {True, True}}, - FrameLabel -> {{None, None}, {None, None}}, - FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines -> {None, None}, GridLinesStyle -> Directive[ - GrayLevel[0.5, 0.4]], - Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 1, - 2][#]& )[ - Part[#, 1]], - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 2, - 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 1, - 2][#]& )[ - Part[#, 1]], - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 2, - 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange -> {{1., 32.}, {-2.85429188658285*^-7, - 0.000200178753505787}}, PlotRangeClipping -> True, - PlotRangePadding -> {{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], - FormBox[ - TagBox[ - GridBox[{{ - FormBox[ - - TemplateBox[{"\"Xiong, Im\""}, "PointLegend", - DisplayFunction -> (StyleBox[ - StyleBox[ - PaneBox[ - TagBox[ - GridBox[{{ - TagBox[ - GridBox[{{ - GraphicsBox[{{ - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.1155], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - RGBColor[0, 0, 1]], { - LineBox[{{0, 10}, {40, 10}}]}}, { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.1155], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - RGBColor[0, 0, 1]], {}}}, AspectRatio -> Full, - ImageSize -> {40, 10}, PlotRangePadding -> None, - ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, - GridBoxAlignment -> { - "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, - AutoDelete -> False, - GridBoxDividers -> { - "Columns" -> {{False}}, "Rows" -> {{False}}}, - GridBoxItemSize -> { - "Columns" -> {{All}}, "Rows" -> {{All}}}, - GridBoxSpacings -> { - "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], - "Grid"], Alignment -> Left, AppearanceElements -> None, - ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> - "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { - FontFamily -> "Arial"}, Background -> Automatic, - StripOnInput -> False]& ), - InterpretationFunction :> (RowBox[{"PointLegend", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], - ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - RowBox[{"Dashing", "[", - RowBox[{"{", - RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", - InterpretationBox[ - ButtonBox[ - TooltipBox[ - GraphicsBox[{{ - GrayLevel[0], - RectangleBox[{0, 0}]}, { - GrayLevel[0], - RectangleBox[{1, -1}]}, { - RGBColor[0, 0, 1], - RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> - True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], - FrameTicks -> None, PlotRangePadding -> None, ImageSize -> - Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], - "RGBColor[0, 0, 1]"], Appearance -> None, BaseStyle -> {}, - BaselinePosition -> Baseline, DefaultBaseStyle -> {}, - ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, - If[ - Not[ - AbsoluteCurrentValue["Deployed"]], - SelectionMove[Typeset`box$, All, Expression]; - FrontEnd`Private`$ColorSelectorInitialAlpha = 1; - FrontEnd`Private`$ColorSelectorInitialColor = - RGBColor[0, 0, 1]; - FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; - MathLink`CallFrontEnd[ - FrontEnd`AttachCell[Typeset`box$, - FrontEndResource["RGBColorValueSelector"], { - 0, {Left, Bottom}}, {Left, Top}, - "ClosingActions" -> { - "SelectionDeparture", "ParentChanged", - "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> - Automatic, Method -> "Preemptive"], - RGBColor[0, 0, 1], Editable -> False, Selectable -> - False]}], "]"}], "}"}], ",", - RowBox[{"{", #, "}"}], ",", - RowBox[{"LegendMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"{", - RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", - - RowBox[{"Joined", "\[Rule]", - RowBox[{"{", "True", "}"}]}], ",", - RowBox[{"LabelStyle", "\[Rule]", - RowBox[{"{", "}"}]}], ",", - RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], - "]"}]& ), Editable -> True], TraditionalForm]}, { - FormBox[ - - TemplateBox[{"\"Evan, Im\""}, "PointLegend", - DisplayFunction -> (StyleBox[ - StyleBox[ - PaneBox[ - TagBox[ - GridBox[{{ - TagBox[ - GridBox[{{ - GraphicsBox[{{}, { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.462], - AbsoluteThickness[1.6], - RGBColor[0, 1, 0]], { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.462], - AbsoluteThickness[1.6], - RGBColor[0, 1, 0]], - PointBox[ - NCache[{ - Scaled[{ - Rational[1, 2], - Rational[1, 2]}]}, { - Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, - ImageSize -> {10, 10}, PlotRangePadding -> None, - ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, - GridBoxAlignment -> { - "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, - AutoDelete -> False, - GridBoxDividers -> { - "Columns" -> {{False}}, "Rows" -> {{False}}}, - GridBoxItemSize -> { - "Columns" -> {{All}}, "Rows" -> {{All}}}, - GridBoxSpacings -> { - "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], - "Grid"], Alignment -> Left, AppearanceElements -> None, - ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> - "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { - FontFamily -> "Arial"}, Background -> Automatic, - StripOnInput -> False]& ), - InterpretationFunction :> (RowBox[{"PointLegend", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], - ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - InterpretationBox[ - ButtonBox[ - TooltipBox[ - GraphicsBox[{{ - GrayLevel[0], - RectangleBox[{0, 0}]}, { - GrayLevel[0], - RectangleBox[{1, -1}]}, { - RGBColor[0, 1, 0], - RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> - True, FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], - FrameTicks -> None, PlotRangePadding -> None, ImageSize -> - Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], - "RGBColor[0, 1, 0]"], Appearance -> None, BaseStyle -> {}, - BaselinePosition -> Baseline, DefaultBaseStyle -> {}, - ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, - If[ - Not[ - AbsoluteCurrentValue["Deployed"]], - SelectionMove[Typeset`box$, All, Expression]; - FrontEnd`Private`$ColorSelectorInitialAlpha = 1; - FrontEnd`Private`$ColorSelectorInitialColor = - RGBColor[0, 1, 0]; - FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; - MathLink`CallFrontEnd[ - FrontEnd`AttachCell[Typeset`box$, - FrontEndResource["RGBColorValueSelector"], { - 0, {Left, Bottom}}, {Left, Top}, - "ClosingActions" -> { - "SelectionDeparture", "ParentChanged", - "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> - Automatic, Method -> "Preemptive"], - RGBColor[0, 1, 0], Editable -> False, Selectable -> - False]}], "]"}], "}"}], ",", - RowBox[{"{", #, "}"}], ",", - RowBox[{"LegendMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"{", - RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", - - RowBox[{"Joined", "\[Rule]", - RowBox[{"{", "False", "}"}]}], ",", - RowBox[{"LabelStyle", "\[Rule]", - RowBox[{"{", "}"}]}], ",", - RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], - "]"}]& ), Editable -> True], TraditionalForm]}}, - GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"], - TraditionalForm]}, "Legended", DisplayFunction -> (FormBox[ - GridBox[{{ - TagBox[ - ItemBox[ - PaneBox[ - TagBox[#, "SkipImageSizeLevel"], - Alignment -> {Center, Baseline}, BaselinePosition -> - Baseline], DefaultBaseStyle -> "Labeled"], - "SkipImageSizeLevel"], - ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, - GridBoxAlignment -> { - "Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> - False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}], - TraditionalForm]& ), InterpretationFunction -> (FormBox[ - RowBox[{"Legended", "(", - RowBox[{#, ",", - RowBox[{"Placed", "[", - RowBox[{#2, ",", "After"}], "]"}]}], ")"}], - TraditionalForm]& ), Editable -> True], - TemplateBox[{ - GraphicsBox[{{{}, {{{}, {}, { - Hue[0.67, 0.6, 0.6], - Directive[ - PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - RGBColor[0, 0, 1]], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7EXv5nz81q96ACrgMPujb3EEhyKUz+Fw5K+M -QO13ZShfwMFJNXvbNxl1KF/EQWk5/6xyZT0oX8KhJtym9J4XjC/joH1QlEl8 -jgGUr+Dwxfq81fstRlC+kkOeZMG5metNoHwVhw0nt7rc1jGH8tUctnJNEbI+ -bAflazjwHaz9zF1oDeVrOQgvWR0VrWMD5es4PBPXZQhxgqnXc/i4fdKi4jwH -KN/AwSCOZXbnRkco39DB3WnlTIl+GN/IQalugp+wMIxv7PDM/Tp3XSOMb+Kg -8W3y7ehceyjf1MEo88EmeUtbKN/MQfJxq+U7HZj7zB2c0ltVko9bQvkWDnVF -Ty8H3IH5z9JhY8Urw6RfplC+lcOOVSt3BCnCwsPa4bEPb7btXEMo38Yh5JCp -h+FdfSjf1qFLdHZ2soUOlG/ncN26U0igUgvKt3f4xBx6/fxtFSjfwYFdOZjD -x0r5AAAFHoZ+ - "]]}}}, {}, {}, {{}, {}}}, {{}, {{{}, { - Hue[0.67, 0.6, 0.6], - Directive[ - PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - RGBColor[0, 1, 0]], - PointBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7I/ax9/41q96ACrgsCPxSXEEhyKUz+FQnd7N -V/tdGcoXcJj6PHfdNxl1KF/EYVHfsn/lynpQvoTDnGUW3fe8YHwZB+/9mwXF -5xhA+QoOl6XzXT9sMYLylRxkn/7qmb/eBMpXcbB2n+jMoGsO5as58MhN+Z5b -bQflazhsfFi191e+NZSv5VA7a03cKm0bKF/HYY6okLqyI0y9ngOP5wUBkXwH -KN/AIbKbWzT2mCOUb+jg+WRbm3InjG/kcMm+PX+iMIxv7HD834In4pNgfBOH -iMk7I6wy7aF8U4fbkwXY9pvbQvlmDlLnG2ordGDuM3eY87Xy6v9jllC+hUNf -cqad7R2Y/ywdlKfsPRr+yxTKt3J4PC3X1U8RFh7WDnvc5xTbzDWE8m0cvkzu -+WNwVx/Kt3VYq7w+L9lCB8q3c0hzLdUTqNSC8u0dBLZw3Tl/WwXKd3D4NHsJ -t4+V8gEAryyMqQ== - "]]}, {}}}, {}, {}, {{}, {}}}}, { - PlotRange -> All, ImageSize -> 400, DisplayFunction -> Identity, - PlotRangePadding -> {{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, AxesOrigin -> {0.515625, 0}, - PlotRange -> {{1., 32.}, {-35.38701188767698, 0}}, - PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> - Identity, AspectRatio -> - NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes -> {False, False}, AxesLabel -> {None, None}, - AxesOrigin -> {0.515625, 0}, DisplayFunction :> Identity, - Frame -> {{True, True}, {True, True}}, - FrameLabel -> {{None, None}, {None, None}}, - FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines -> {None, None}, GridLinesStyle -> Directive[ - GrayLevel[0.5, 0.4]], - Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, - 2][#]& )[ - Part[#, 1]], - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 2, - 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 1, - 2][#]& )[ - Part[#, 1]], - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 2, - 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange -> {{1., 32.}, {-35.38701188767698, 0}}, - PlotRangeClipping -> True, PlotRangePadding -> {{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], - FormBox[ - TagBox[ - GridBox[{{ - FormBox[ - - TemplateBox[{"\"Xiong, Log[Abs[Im[]]]\""}, "PointLegend", - DisplayFunction -> (StyleBox[ - StyleBox[ - PaneBox[ - TagBox[ - GridBox[{{ - TagBox[ - GridBox[{{ - GraphicsBox[{{ - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.1155], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - RGBColor[0, 0, 1]], { - LineBox[{{0, 10}, {40, 10}}]}}, { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.1155], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - RGBColor[0, 0, 1]], {}}}, AspectRatio -> Full, ImageSize -> {\ -40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, - GridBoxAlignment -> { - "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, - AutoDelete -> False, - GridBoxDividers -> { - "Columns" -> {{False}}, "Rows" -> {{False}}}, - GridBoxItemSize -> { - "Columns" -> {{All}}, "Rows" -> {{All}}}, - GridBoxSpacings -> { - "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], - "Grid"], Alignment -> Left, AppearanceElements -> None, - ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> - "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { - FontFamily -> "Arial"}, Background -> Automatic, - StripOnInput -> False]& ), - InterpretationFunction :> (RowBox[{"PointLegend", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], - ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - RowBox[{"Dashing", "[", - RowBox[{"{", - RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", - InterpretationBox[ - ButtonBox[ - TooltipBox[ - GraphicsBox[{{ - GrayLevel[0], - RectangleBox[{0, 0}]}, { - GrayLevel[0], - RectangleBox[{1, -1}]}, { - RGBColor[0, 0, 1], - RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> - True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], - FrameTicks -> None, PlotRangePadding -> None, ImageSize -> - Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], - "RGBColor[0, 0, 1]"], Appearance -> None, BaseStyle -> {}, - BaselinePosition -> Baseline, DefaultBaseStyle -> {}, - ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, - If[ - Not[ - AbsoluteCurrentValue["Deployed"]], - SelectionMove[Typeset`box$, All, Expression]; - FrontEnd`Private`$ColorSelectorInitialAlpha = 1; - FrontEnd`Private`$ColorSelectorInitialColor = - RGBColor[0, 0, 1]; - FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; - MathLink`CallFrontEnd[ - FrontEnd`AttachCell[Typeset`box$, - FrontEndResource["RGBColorValueSelector"], { - 0, {Left, Bottom}}, {Left, Top}, - "ClosingActions" -> { - "SelectionDeparture", "ParentChanged", - "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> - Automatic, Method -> "Preemptive"], - RGBColor[0, 0, 1], Editable -> False, Selectable -> - False]}], "]"}], "}"}], ",", - RowBox[{"{", #, "}"}], ",", - RowBox[{"LegendMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"{", - RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", - - RowBox[{"Joined", "\[Rule]", - RowBox[{"{", "True", "}"}]}], ",", - RowBox[{"LabelStyle", "\[Rule]", - RowBox[{"{", "}"}]}], ",", - RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], - "]"}]& ), Editable -> True], TraditionalForm]}, { - FormBox[ - - TemplateBox[{"\"Evan, Log[Abs[Im[]]]\""}, "PointLegend", - DisplayFunction -> (StyleBox[ - StyleBox[ - PaneBox[ - TagBox[ - GridBox[{{ - TagBox[ - GridBox[{{ - GraphicsBox[{{}, { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.462], - AbsoluteThickness[1.6], - RGBColor[0, 1, 0]], { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.462], - AbsoluteThickness[1.6], - RGBColor[0, 1, 0]], - PointBox[ - NCache[{ - Scaled[{ - Rational[1, 2], - Rational[1, 2]}]}, { - Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, - ImageSize -> {10, 10}, PlotRangePadding -> None, - ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, - GridBoxAlignment -> { - "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, - AutoDelete -> False, - GridBoxDividers -> { - "Columns" -> {{False}}, "Rows" -> {{False}}}, - GridBoxItemSize -> { - "Columns" -> {{All}}, "Rows" -> {{All}}}, - GridBoxSpacings -> { - "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], - "Grid"], Alignment -> Left, AppearanceElements -> None, - ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> - "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { - FontFamily -> "Arial"}, Background -> Automatic, - StripOnInput -> False]& ), - InterpretationFunction :> (RowBox[{"PointLegend", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], - ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - InterpretationBox[ - ButtonBox[ - TooltipBox[ - GraphicsBox[{{ - GrayLevel[0], - RectangleBox[{0, 0}]}, { - GrayLevel[0], - RectangleBox[{1, -1}]}, { - RGBColor[0, 1, 0], - RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> - True, FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], - FrameTicks -> None, PlotRangePadding -> None, ImageSize -> - Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], - "RGBColor[0, 1, 0]"], Appearance -> None, BaseStyle -> {}, - BaselinePosition -> Baseline, DefaultBaseStyle -> {}, - ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, - If[ - Not[ - AbsoluteCurrentValue["Deployed"]], - SelectionMove[Typeset`box$, All, Expression]; - FrontEnd`Private`$ColorSelectorInitialAlpha = 1; - FrontEnd`Private`$ColorSelectorInitialColor = - RGBColor[0, 1, 0]; - FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; - MathLink`CallFrontEnd[ - FrontEnd`AttachCell[Typeset`box$, - FrontEndResource["RGBColorValueSelector"], { - 0, {Left, Bottom}}, {Left, Top}, - "ClosingActions" -> { - "SelectionDeparture", "ParentChanged", - "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> - Automatic, Method -> "Preemptive"], - RGBColor[0, 1, 0], Editable -> False, Selectable -> - False]}], "]"}], "}"}], ",", - RowBox[{"{", #, "}"}], ",", - RowBox[{"LegendMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"{", - RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", - - RowBox[{"Joined", "\[Rule]", - RowBox[{"{", "False", "}"}]}], ",", - RowBox[{"LabelStyle", "\[Rule]", - RowBox[{"{", "}"}]}], ",", - RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], - "]"}]& ), Editable -> True], TraditionalForm]}}, - GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"], - TraditionalForm]}, "Legended", DisplayFunction -> (FormBox[ - GridBox[{{ - TagBox[ - ItemBox[ - PaneBox[ - TagBox[#, "SkipImageSizeLevel"], - Alignment -> {Center, Baseline}, BaselinePosition -> - Baseline], DefaultBaseStyle -> "Labeled"], - "SkipImageSizeLevel"], - ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, - GridBoxAlignment -> { - "Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> - False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}], - TraditionalForm]& ), InterpretationFunction -> (FormBox[ - RowBox[{"Legended", "(", - RowBox[{#, ",", - RowBox[{"Placed", "[", - RowBox[{#2, ",", "After"}], "]"}]}], ")"}], - TraditionalForm]& ), Editable -> True]}}, AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], - GraphicsBox[{ - Thickness[0.004527755139002083], - StyleBox[{ - FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, - 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, - 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, - 0}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGI9IGYC4kaWo/2G4gYOOxyaHh23UHWo/21VcK7D0KHm -04aA7Fs6DtEKjh+TbRD8m9I1iUZHDRzkl7/w0IvXcvC9ODHmH7O+w38Q2K/h -0MLrv36Kq45DfEiQ+gJOKP+otsMW8x+HUl6pOzxOXHjNJF/T4U3xVtHf3uoO -m/TyFjPeUYHzX9Q+zj7/hhPOLz28zXXmXCUHf5A9h40cPixar3D2hBLEXXeM -HIQrJ5WcvaLkcBvkrqcIvr7WSuELXxB81SfN887+QvDB5jEbOzhPaBZKW6Xk -ID71CmeGkrHDVq8NFnMs+SDu3WXlcOqw09rMeSpwvtS8OM3TF9Th/C0g9//R -dOgPLlGZ3m/lYGIMAloOM2YCQSdUvkbbocfrFYtJoZXDE5D/+3UdbCojVpja -Wjn8+Vb6YE6hPsS9Sywh4ctq4LD4/j6+OcWWDvtrZS3SrxhAw88CHh9gez6b -w+MLxofF5xkQ8LF2WHJr+WNDZgY4/4Hfy4S/83/bw/g5UxMKLYp/24Pd62nt -ILNRbD7Tg1/2X4DRPcvc2uENKD7W/LI/AQoHPQQf7K4vVnD+gbbl4acuWTmI -gML3iTzEv4ZGDg3itayZx/7YQ9yvCjf/UYT49osLEHwJUPg3IfgbweGG4MPS -J9idM//A+TD/wfjo6RkAS9VRMQ== - "]], - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGI5IIaxWZDYzCSwGaB8BjL0DhR7oNwMAEUOAp8= - - "], CompressedData[" -1:eJxdlHlIVHEQx1fXa1003Usidd/b45llVLpZmcIs4h+atKaiQlaax2aXHQbl -EZIXtZkWEWpSJtUqFBqpqJRo/pGSimkFSWCRRVKGioSVaP7eb3ceOPDj8WF+ -x3xn3gx7JDc+SywSiRxWV/Lqclxd2zY1y0czA8A6Yf2yXSwFO5uzV+2bFOob -tV1LAQL/nfnRu1sscNzEhsL0MQ45dsA14k67wKUeppZbDzkwTUWP7ZBLYSr9 -/nvDVg42zuum66KdoW3n4stMdz34PlXdc0wTw743N1KXM3TIs40tzPCAFllE -rFgLpT5FzjnlTshnrHmty1UuyNn8+66guHgzb7hNS/VFSqGW2ActROQZi17X -e1B9Zh0kzIzP1bByqv+BjsYnUYIhhJgejpL7XFQQGv4i/nafwDFE7zuB6X4O -mb+vlIMhYteUsJ/ka14PP8tPWoL3KKH4X9jpkSY9jZdTIPP+A3LkzoSwlBWr -DBwlV9UZv/QgJ7qmvCEnd7ZsMI9DttfHzrze2gCoSrGYHEZlyE9kQZ7mQwpk -pruhJ8vTro+D/MnFiZDNPpCWGB/QMKhH5v2fdcg11evyQ/fqqL4hJWxh1Qsn -VDrU1/x7+sJQqxauk/erVbZ9GjxP42SReZ2v1Mh8nHf9aH2McuQyxlU/ZJAh -91l6Lhv6vaGGyFnvj5xIzqUL3Mt/BU7Vp/iOLK1hXzWNM0hG43Ni4FPUYWOd -t5LmK5DF+jYRfaMCF5C4j2uQPwb6PV55pqH/xTklMp/vUwrkCqLnrZyeL7Cx -Qkb7KEkDlSR/s162/LEgNXrG1ARKIFmiqgipYrGfhol7icF+sYRHd2efFZjW -XWC+PqK1fjUs9My1m5OcqG4jAx0xrbvq/zjR+Cy2/Ywrcjvxd7mt8bvD89zC -mdoohup4JKX3X1Ij2+tjZ1pXP5tOCTL//7S6IPP9bhLT/p7yp/GqHCCyukSW -fYxBvkL0x7PI/Dz5zkIcmUfjYjjf3xFV66dBfXz7lmjo+7GO4HUwbjLYrMXz -X8n8MumQB7o7K13iOGT7/OTrM+0Ga+frf3AfOH0= - "]], - FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, - 3}, {1, 3, 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJZIGYC4i3mPw6l3DJzqPm0ISB7lpYDjC+z/IWH3n4t -hy8g4etmDvpaK4UvHNFy4PNfPyX1hJmDeI/XKxYRbQeZeXGapyeYOOyvlbVI -f2IEl3dsenR8hrUFXL8xCCRbwM1PAwMEnwekrwLB9z7Bbjt7q4XDTBBYaebQ -yHK03/C6hUPJVtHfp+vQ+HYIPli9JtT8ZVDzpMwcisH6LBwOty0PP/XI2KEb -6HwTRWOHgjXdtzMuGEP0/TSC8xff38c35zOCD1b/EMEHm3fOyGEJSN1lY4f6 -31YF504Ywc0Hh8cSI7j94PCaouUQo+D4MVnHzCHglnRNopEW3P1T2lujLt/R -hPsPxof5H8aHhc9/EJBHxBcs/gC7/9ng - "]], - FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, - 3}, {1, 3, 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ7IGYC4v8g0G/vsMX8x6GUXSYOMH6P1ysWE0NThxvS -NYlGqgj+icNOazPf2cH5TxIXXjOxt4LzS7aK/j79zxLOd2x6dHxGNYLP5aZa -ynTLAqJunglEf76Fg11lxApTWxMHHv/1U1J/mDv8+Vb6YM5CYzjfxBgImhF8 -XhAdYexwBgRkLOD8UyD32SH4G/TyFjPmIPgw+6ZP4K8yizZ2UHvSPO9slwXE -nBpjh2Kw+y0cYhQcPybzmDikxN5xYz5hCecvf+Gh95/RCs5Xf8u7z2Angg82 -J8cKYr60scOBtuXhpz5ZOnSD/K9o5BAhvv0ig58lRN0bAwdbkL9lofITDRz8 -Lk6M+SdsCbGnEcFvZDnabxiO4BtorRS+wGIAFbeE+HOOvkN6GhAsQ+M/Q/D3 -18papItYOciCLLiv7zBjJhBoWkH9ZeDwYUNA9qxwK4f+4BKV6foGkHQRZeWw -EaTfxgCiPhPKrzGAxFOgNdz/X0D6l9vA+XtB9qXYOBSu6b6d8cHI4QgoPJxs -IO4yQ/DFp17hzGgyhPMPg+hNUPsqbRx8TrDbzp6qD/EHjy2cLzEvTvN0AYIP -Tlf3bOHuh/Fh4Qvjf9l5q+vvVgOIvqu2Dvyg9HHCwIEDlD53QeW/Gjg8zdL+ -Nl3XFhJPbw3h/GRQurhhBOeDw0nLGM5fcn8f35xiBF8C5L9JxpD8ZW8LDx9I -vrOD88Hx8wXBh+U/GB+cD4LtIfnICppfMuwd+kD+9UfkX3A6KUbwYfkbAMaW -sck= - "]], - FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, - 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, - 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJFIGYC4jMgMMfZwcQYCB6bOcD4KbF33Jg1zB0e7OOb -Y1yF4EeIb7/IkIfg8/ivn5Kq4ITBX3IfqPGwJZwP1ncPwe/xesViomjlIO/4 -MfnMX0c4H+QM49uY/A16eYsZ71jC+TDzYXyY/d4n2G1n9zqguqcBwS/eKvr7 -dBwmH+Z/GB/s3nlmDomHL2unNiL4MPNhfJj96HyJqVc4M5hMUN33whjON9Ba -KXxhiTHc/zA+LHzQ+dxuqqVMrxB8mPko4Qu0HxY/MD7YX9UIPix+0fkw/wMA -CRTHIg== - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ5IGYC4pASlen/E9wcaj5tCMiW0nKA8QNuSdckGiH4 -xw87rc2003LYqJe3mNHFzeEMCKzRcujxesViMtPVISH2jhtzhK7DF6Axs8Jd -HW6CtB81gPNPg/TfM4LzQdbNMjd1kJh6hTNjkauDzwl229mq5hB9vm4OxVtF -f5+us4Coi3dzMAaBxRZw96SBwDIEXxxkziYEv5HlaL/hdQuHEpA5fgj+k8SF -10zcEfyEw5e1Uy0RfLC5Zgj+AhudK7P4oPzpFg6/YnKP/jNydUgB+dfC3MEE -5K7TLg43hD45nmczhfO7QeHy0AjO/w8C6w0cDtTKWqSbuDqcvxr2Rl9aF+Jf -XjeHepD54VqQcDVxc5CZF6d5+oKmwwlNq0mnzRF8mPthfJj/YHyY/9H5sPgF -AOaZ0WQ= - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, - 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGI7IGYC4vv7+OYYM3k6cLupljKtMnSA8fW1VgpfuGLo -kM35c0H6aw843/sEu+3suwh+RcQK07OHEXyw/kMeDn+/lT6Yc9HQ4fOGgOxZ -2z0c/C9OjPm3GKq/1sPheZb2t+lzDRz+g4C6h8NGvbzFjDYGDlO+scXPeOMO -55dsFf19+h6CzwACJzD5Z0BgDYJ/XeiT4/lnUPPOuDvw+6+fksph6NDj9YrF -5KI7xF59QweQt2c5eDiseOGh93+hiQMvSN0JBL8YZP8zBP9ifjz7uZcI/kwQ -+OgBMXejicMb3n0GM395ONhVAgNmr4nD48SF10z+ezikxN5xY36B4G8x/3Eo -5ReCD9ZvaOpwU7om0egpgg/21xkEX/VJ87yzQQi+fdOj4zOaPSDiu8wg7uv0 -cNgACp83CH6k+PaLDP8QfLD9XOao6nPMHZaD/JXo4SAzL07z9AQo3xHBNwYB -bTR5Rg+HaRP4q8yqzSHh8dLdwQcUz6rmDjmg9PPY3cEWFB685vDwB9ONZg5p -IHDM3cEB5A9tMwceUPgfcHf4BEo3303hfHB6+mgKid8V7nD/z7PRuTJLDsEH -yzMg+LoTFvwwfOaGwa/7bVVw7oYJnA+LT7B5/xD8ZSBa0h3OB/trqjuqejt3 -SP55ZQhJlybukPiYZQiJPxUoXwrBV38LTCg/DeD8w23Lw08ZGUDCo80dEh9z -9B1YFk+yYnyK4IPT1ywPOB+WX7/svNX1txSRf2H5GQD0/a4k - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ5IGYC4v21shbpJt4Opw87rc28Z+QA4/cFl6hM5zd1 -MDEGgtNeDiteeOj9NzR3eMO7z2DmJ08Hv4sTY/5NtnBQedI87+wpT4dGlqP9 -htctHI5rWk06fRzBd1EtZZq1A8EPARr7fwOCP99G58qseZh88alXODM2Ifhp -ILAMwf8PAvMtHOybHh2fsdvTQf0t0GGZFg7pYIVeDkvu7+ObI2wOUbfcy2GL -+Y9DKb9M4Pxur1csJg+N4Pzk2DtuzB0GDiKfHM+nxXpB/G2sC3WHp4O5zd6g -aY1aDubXjuaaLPB02O4AtNhCC+6egFvSNYlGCH7Npw0B2VIIvsy8OM3TFzTh -/ofxYeED4+tPWPDD8BiCn3D4snbqSTT9H6D8AC2HM2Dg5fAkceE1E35dePzV -/rYqOLfDwAE9fgHw7OAb - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, - 3}, {0, 1, 0}}}, {{{59.72810000000001, 19.1391}, {59.72810000000001, - 18.948400000000003`}, {59.72810000000001, 18.696899999999996`}, { - 59.97810000000001, 18.696899999999996`}, {60.2406, - 18.696899999999996`}, {60.2406, 18.9359}, {60.2406, 19.1391}, { - 60.2406, 25.9094}, {60.2406, 26.099999999999994`}, {60.2406, - 26.349999999999994`}, {59.9906, 26.349999999999994`}, { - 59.72810000000001, 26.349999999999994`}, {59.72810000000001, - 26.112499999999997`}, {59.72810000000001, 25.9094}, { - 59.72810000000001, 19.1391}}}], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, - 3}, {0, 1, 0}}}, {{{59.72810000000001, 11.9391}, {59.72810000000001, - 11.7484}, {59.72810000000001, 11.4969}, {59.97810000000001, - 11.4969}, {60.2406, 11.4969}, {60.2406, 11.7359}, {60.2406, - 11.9391}, {60.2406, 18.7094}, {60.2406, 18.900000000000002`}, { - 60.2406, 19.150000000000002`}, {59.9906, 19.150000000000002`}, { - 59.72810000000001, 19.150000000000002`}, {59.72810000000001, - 18.912499999999998`}, {59.72810000000001, 18.7094}, { - 59.72810000000001, 11.9391}}}], - FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ - 70.66880000000002, 25.8609}, {70.66880000000002, - 26.434400000000007`}, {65.84219999999998, 26.434400000000007`}, { - 65.84219999999998, 25.8609}, {70.66880000000002, 25.8609}}}], - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGI5IIaxWZDYzGSyGaB8BhqpH+psAEKGAp8= - - "], CompressedData[" -1:eJx1lHtIU3EUx6cLzSIW9Fhl9qAkdbPd7d756sFRemAt7u/aS6h8lLPSysqS -XmvWopf0IFqWLkmF3qVZZgVJEmK1yoqKHv5hpmla0NOCVNpvZ7s/MDrwg312 -7u+e1/fcsUuzEsxKhULh4zoLXcfXdTQxR5zWoxLows4NejLPAG1VZcpWhwR5 -s9r7CMUG4KmVSQA7m+qOF/Iy7+hTe0gfKcj8kJrJCOKooRlztv6fZ2+16UxJ -jAd9i61Pj5WgZveZhQ+eCTJzNJ80xgfnbhifr/KwJEFws63oUTsPe1zXDIme -/N7ykKiueqrIkaAhcFuqwc7D8nSXbZfAeTfu0sokxvmHVVsiAhm77yUZoHLX -tidXQyXIrhzyxzmVg19+ycdNlwhcmbim1GcyB5O0zws+BEvQ1bmx0VETif0K -kaCc+j8xHmZ/HrDiG+MHNH4P40VjYr8u00bBhby3KxSjGd98s7/brGYc2NEU -MaJvL7+/BD/pj+Ao+F5OMguUHm6JBMvl60ut+wi8pvVP52Dx6tqeikkE60zn -cB48wfr762VuTi1+KVgZq8Syo+Z7ejhBzUiw3yMMUPbuo70ikYCCWi6P+aUR -GFmUFOr8wuPzZgIC1YVSkNmrFy+nLWmYoWzzzDOa4P/xRqxPxdg9R4sos+VP -zNrHnIj5nOdlbsvQdOavZuzWUxwPdaEugc9kPJjGm9/Lv5yxms5tPeNpwRt9 -CzZ54mXwMN4dV4SpmxPPGm8LmF+3iPpoEGAC9fcjMnvr8TK99kj9L+N+MTbd -859SOF9AfQ8kEPJ5QDUXIMBFqhd/Itfvzu+ViPotMsAGqttqEevwZYx+vcw4 -fw51sYBAI33gjg71s5mAo2Tcza4zOig9EuMzJ5fg+0p0kJXs/3j4DgK1t24c -8Dv8f26l87DosP5sAil03q/Cgcr44ToC9S8WfNIVhqM+M71+LcZLIZA8L2HC -qZUamd37JjG+RvvXFYb9yGTsfb+X3fthZezND/ujwX3cRUA7dvSPVTkasEnx -J3OPEdTR3nD8HtgJ/P7ccSfaFo7+0wT33aHD+8Mkmd8PDrrfkiVh/UF66P19 -/Qu8AFJM - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ5IGYC4u9s8TN8/gY51HzaEJAtpeUA4wfckq5JNELw -jx92Wptpp+Wg+qR53tl3QQ5nQGCNloPwJ8fzaTODHBJi77gxR+g6uKqWMs2q -CHK4CdJ+1ADOPw3Sf88IzgdZN8vc1CFSfPtFhnlBDj4n2G1nq5o77LzV9Tf1 -c5BD8VbR36frLCDq/wQ5GIPAYgu4e9JAYBmCLz71CmfGJgS/keVov+F1C4f2 -5eGnjL4g+PtrZS3SPyD4teu2JdW/RPD/g8BzBF/69SMzqStQ/nQLB+/qZn2f -tCCHFJB/Lcwd0kHuMApyuCEEDAg2Uzi/2+sVi8lDIzgfbO56A4c13bczGNKD -HM5fDXujL60L8e/lIId6kPnhWhB/Au2XmRenefqCpsP6hy+nbnqB4MPcD+PD -/Afjw/yPzofFLwC4lNwh - "]], - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGI5IIaxWZDYzCSwGaB8BjL0DhR7oNwMAEUOAp8= - - "], CompressedData[" -1:eJxdlHssVmEYwD+XFmv4g5bWbLVlKS3nOMcywx4axWrovBurTO5iYsbU8kU0 -WpRmmctkLi2xQoS1mpb6urlE+6qFSiXUahZmDOm85/2+84xne7fzO8/e97k/ -O6JSjsaaaTQaE/mEysdUPieSdf/apgls8nfMMG3iwcguexptB/U85DeEvnYd -R7ab8XkT92mdXo98rWaBnxhAPhN2262/l4DXWfnjLg8dF7MG2zsIXDDXFfNl -HDiO51X3nydwb9/pehNPDt7pksWcCOTckIAbOb7IfVREAk+p4TTkx1oH93j9 -OrbjwXKxJr7dm0B8nCydPFRQ8TPY3+UKdSUeJkdOEph7MHx5RSew+JMIeFN/ -tSLQa3H5BvujIqRGbBzYWos81dViNnkTWfG3E1mJV0cgbEvXkKZZhMBzeS6H -mwhcldJ3lhWLsNujpDe7ikBM+Ki/mRMy5H57UT4iqGwV1HI9tlwAbXNnVHYj -gfHI2vdikAAWNL4eZGN9jKzEu0hgtjU4qbIBWYnPS1Q5vWPzUu9nEYoCf5mL -Q4T9D3CD31bdXEUdsv2h4GX7TGSl3scIy9NzEYgc1mowxue5V1854WVgGzcQ -BVls8X44zfekpPIc9bNAWquXJLAv1VsmvBVUnkp0ni9LRn5C+8FXYO9HICt5 -j1unT0F2pvlNR1bsZ0qsLxMFVr8rEqTeKRxJyBHhoDwmlc8ktb7jdg6vfnyX -1vaDBuv/h+bPmgBH5+EmsuLHAWQn+mFpeM+MwPJ8xlhVpMD6bUWC+i/d1lWz -riz/sr0Vqg/hWfwfJHWeCug8PpLUeQmg/VaHnEf7sxpZ8bcIWYlXa8j/KY7Z -r5AgmvbnJY7V+5YEq1Smkdl9XmWl/7J5Vn/5vg3t35c8tH79WdqWg2ysj5G3 -+/yN7gswvJ+CfH//Qk/MMKeydskjdcCdgzE5LUKaBK3UfpULm/8aZCUffcjK -PE1JUEj7PIRje2EG48ui87WBMLbg2H7jiHpf2Q/HkZX99nCdXt6fH7dlRbr6 -4T417tf/q7FsmQ== - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ5IGYCYjfVUqZZCmEOpw87rc28Z+QA4/cFl6hM5zd1 -YACBN6EOK1546P03NHeIyT36b1N9qIPfxYkx/yZbOFRErDA9mx3q0MhytN/w -uoWDV3Wzvk8Wgs/xc0H65iQEf8KCH4bP4hD8rS01FzaHYvLFp17hzNiE4KeB -wDIE/z8IzLdwaFsefsooJdRB/S3vPoNMC4eZILAz1GHJ/X18c4TNIfpuhTps -Mf9xKOWXCZzf7fWKxeShEZyfHHvHjbnDwKEgnv2c5NZQBxNjENB1+LQhIHtW -fKiDuc3eoGmNWg5NgZ5zG8JCHbY7ND06bqEFd0/ALemaRCMEvwakUQrBl5kX -p3n6gibc/zA+LHxg/Np125LqMxF8CY+APxLZaPrroPwALYczIACMnyeJC6+Z -8OvC46/2t1XBuR0GDujxCwCbT9nA - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJzIGYC4kWTrBh9AyIcbgh9cjzPZuoA4/d4vWIxMTR1 -mAkCrgi+6pPmeWftEHxxj4A/EuYIvvTrR2ZSJgg+2DyDCIdb0jWJRqqmDpw/ -F6Rv1otweJK48JqJvKmDV3Wzvg9bhIPPCXbb2aImDjIg/RfCHbaY/ziUomXk -8I0tfobPyXCH6yD3fTNy2PDw5dRNS8Ih7vI0dUgDAT0EH+y+Q2Go/KYwh9OH -ndZmzjOG87tB7lNE8Bff38c357ORgwjQmrReBH8JyP1TEHyw/XMQfLD+RQj+ -G959BjOXhTnw+q+fkiph7LDzVtff1O1hDg5Nj47PuG3swAHy/7cwB2431VKm -X8YQ98uFw/lg+zwQfHB4VYU7SEy9wplxydgBJDxrSrgDAwg4GEPCeWW4wxeQ -RUeNHALkxLJ814dD7DttCOefBPnfD8HfXytrkX7FwEHB8WPymbXhkPjYb+Cg -aTXpdP2KcIfiraK/T9cZODwRkT35dDJUnl/foW15+CmjmnCHKe2tUZdrdOD8 -mk8bArJnacP58SFB6gsyEXx9rZXCF45oOTQFes5t6EPwz4DAAgRfDRSeq8Id -3EEOXK4Nd9/xXTt62T5oQ9yzOdxBHBQeTToOlRErTM8eD3eYs0h555/leg4v -tq9nfn4B6t8+A4etLTUXNl8MdzgMcsgmBL/2t1XBuR0GkHC8Eg5JDxcNHFxB -4fsi3CEdFC/bDCHivBHw+PQHhZ9zhEMJKHzmmTg8BrnHPcKhYE337YwDJvD8 -A06/vxB8WP4CAKqPfd8= - "]], - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGIpIIaxWZDYzFjYDFA+Ax419GTjcg893QkAwFcCeQ== - - "], CompressedData[" -1:eJxFlHtI01EUx2cblUVas0zzUdrDyG3+fmmWVuxYkZmOVZLdmSE6H0tCoyRU -rCztQVpqTVbmTJOyl6mzIb3MsGJZqaOhqJUo4iMbUYkP0mz399t2D9w/Pr/D -vfd8v79zrkdsyr54LofDsTGtENOaZVrSy6pk/nYZDCZ5j6nUIrCw0GP56JF2 -EfTgD4GE/0wb0ob9CTt2toyH+xLmRtgJNULCktiFKEAggz1dLpkxGhHgtNpL -Bj7r7ju0xYmgzbN78pSnDNwqh3aJZoSAr8/myEDXtK3q8DchPMztVnDyEYTp -5my9qRXC+Ozo62FqBFPGkcaAlSLg/w5qTbiDrOeN4XwnYveX+sAMDrEM7KXV -yvi5NPjiCJXBwRVBv+R5hJn9SsJ5u7/z/GppSHqRes1pB+FjikJjppiwa2Tc -5p6NhC3+WFij/ln5zuTPRxwltFV/KNaznwZ8PM9dBh1YyBoaUvjZjc2LCC9+ -HNybwSPM6JtEcIb3Np8OpuEGDiMC+aEvO7kKGhywH73Iqq+md7hIY0DWerYI -DMUDrwmnRM9pcS4ifKHyQPP6NAS1ouQKmynKyuJ0dG/DS8JHH5l+TBkFt68G -2kiyCL866bYpMYfwUH01d/Ai4bN7Q9RZVwi7jPT5LytAsLo/u/TTM4r1X4Vg -rXFBA/WeAtvJssS6YgSqAvsM/w8UoKX1es4DBP0x5e1+rRScx/U8ISx1d0yS -PEeQi/XoKateSz48dZVqRkfydboTDbfmmfv/q7n+KcT6fZeCCqxvFMHo065L -0+fMehoRnMb+d/hAT4NdiW8kAom+MOqf3NyvUgQ12L8ogZV/HNcu+RtKmJkH -vgCaPnvHO0cQZvRGEmZ8iSXM6JMjdr4cBVBQNkEPJCBwxfMjFrC60hEosV/z -hWz/5yIIxsK8hKzfSsKMP+WEmX6qQuBUZLBV9JnP01rmT8D694bo0+ZkttXp -SX1Mvp+wpb+t9Zvflwk8v1zy3ljen/9/NPE6 - "]], - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGJNIIaxWZDYzGSyGaB8BjQ2rfXiMofW5tPCnZTYRYwa -AJM5ArU= - "], CompressedData[" -1:eJyNlHtQTFEcx7ckr0qTxzaUYvCH1xbt3jVJv8ikyJbM2L13I6tSaYhBSs9J -DNWooRYrJqPZmtkUoizTNHk1OynvVEhTWRMNMsKUx7l3u+ewO2acmfPHZ+79 -nfP7/b7f85up2rk+apRAILBCW4W2NdqOWfWGkjnh0MSuFxTwbCerPBH1jYI9 -MQX9KW7hsO5hgfLnJCm40JHenULCU9qav4aNIjy743ta3HslzO3JOnt/vBTu -7as7N62V8BzPsToXPeH3obUzsjVKHH/mg/bumnTCLFJJhC9obrtXxVlyUf7E -ZMkNCnN9qqt020EKctU7nLL2E+4dKv/0KJWw/7XPP55kEM4oXJkTf46w1xK0 -riih4ZB2o0FFgVv2u9DaZwzs0uV0xHz0BOqIX0RvGQPt01O2LN5LQTobX8NA -blCfjVcmZaq/hcHntcxCDWo34z7CE+VLqxsHLZnX51/M94PL7w3hZZ2yPPU+ -BvfbyNa/igFj3PxBtb0UNjosvFwsIlzdiBJ2IvHmLEfyy+wJ39xz3NnmJ23B -vB488/Vs1gfaWU8g9elYQwkJa1n9ZhEOQfZ450n6WVWMHOHNgOHWiorYNArX -45MkLxMHSzBz+awkrBDWPBQsl0BAV/Lki74MKN39Pm11kZj0UdNYz9foc0As -jfVccHhqW3Mije/n/HGM1JOCfu86TZjzv45wIjpeVEHDQFXI9tOHKXAWvZxt -e4mG504Dfi1FI+/tKg1frrcf/VE64pcaGuv7v8z3n2Mt4fz+FF+xhMb6c/qN -prHeEY7IQB8VmDl9HitwvDlX7kYDoYnwtmi06iyZ159nvh+cnwyEN7D+a1X8 -7Y9uwsNIvuABBe6/TIUSHlZg/f1z4o1DS2mQs/o6eICveJM+cBkNwsIn42LO -i0z6+9Agmlc+6UGkCHpKkcFCzDjiD36AHmQ0DXf0tXm2+SPfE2jQvl296JeV -B3wN6y7VrGWgmvrWEJkshpOn0Epi8P0nkD2MBxgcz/U/jcHnc/MonzDntxLC -3PzQMrC2cYyPplBk8l8lg+/n/NWkhATWr44ULER2ynyqNOUTRIEr+/5fKXG/ -OHYIx/3k5zfP/Lw3Z95fvwEs679m - "]], - FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, - 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{120.52199999999999`, - 12.920299999999996`}, {120.52199999999999`, 13.575000000000001`}, { - 119.281, 13.575000000000001`}, {119.281, 24.184399999999997`}, { - 120.52199999999999`, 24.184399999999997`}, {120.52199999999999`, - 24.8406}, {118.62700000000001`, 24.8406}, {118.62700000000001`, - 12.920299999999996`}, {120.52199999999999`, 12.920299999999996`}}}], - - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGI5IIaxWZDYzCSwGaB8BjL0DhR7oNwMAEUOAp8= - - "], CompressedData[" -1:eJxdlHssl1EYxxUTay4TY6HUVFaT9/W+1gX1qNGqtV+yydq8h3L5JbeZbkYR -miVZi/2QdVkXqdxKVGu6iKQlmZU7lVaRyUg1TOe8v9/vfTZnO398dm7P832+ -z1m2P25PuKGBgcE8OvfSOZ9O6/Jtn5KmCSz0W3F4/m0e9Oy2unRRazsPdm69 -zsZjyLZGgeauQ3PWPyE/bb7qW9ONnBL1JPFCBwHv40G3PMp4eLe8+9+JFwTS -jBpyeQ0HPc7GafnZBKrWxl6b58XBZg/p8fZo5OLRksadKuSCQjp8CNSfLtnb -nID8NMVxfWT7HLbm4af/wyWZOwlERtBRw0OvKkcTu0f3/ip3yBimG2IITDzq -OjPTIMBZTaxV+jECm1i8KSKIAh0XdO/3iPCx5U/AlzLkZBZwFbJNJ91Qjyzn -20YgyLb2vUG5CK+O1F1eXEvgXECisyZXhIEkqngpgbDgHj9DF2Q49flVQbeg -sJmqIi+8QICMZ0xgAoOhVz+IKgES1edHkt8h6+ujZxa+YBgC45W7DxWVIMv5 -eYsKJz6wmXrTJwKtlp1RHwEmY+F2D0jN35odXYGcR/FbOjJ1i3V5JAEmb0Sj -CF+nSsfagjG/6xdfOlXu0LGFB8yysRTPy36bkBR2onJF5SHL9QiRwC6/3VTd -Jij8PWrNpCYG+TnzwxYBjv5YyZtEI2f5hHxtTZiznows65uGLL+fIcGKwfRL -b6MEbf2KJIi/m92tThWBZpOgfi8p9Q2xDNpQ/QuZyX/PDOu/4K7DvjB7Ahzr -h+vIsq+2IruMmNVxprr7LAlMTx4eKA4VYDe177ApgWv9debF4+5Ad3v2j0ow -w9b9df06KCn95MD68bWk9Ivstwpk2Z93kGX/FiLL+Z7R6X+Qgw7m9xsSHGD+ -zOK0/X1f0tZxFFl7nldY9t9JHhwzaYPdlMCC+beJB1caXloOsr4+evbqpw0a -qLs/Drl63d8XYV2cwilTG+Nb1nMw2MoClqCSvV/sBpbptEHKkGU9OpGDqHyq -3xJk7xgyEv05YPJ7zmJ+09S+u6yIlk04uOJbMz7jRZTzst/UyPL/1oSs/z87 -7ZND3X3xP9X/r/8BjVZdHQ== - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJJIGYCYo2Y/kNfKxIcbkrXJBq5GjjA+KpPmuedlTJ0 -UGFrnOqcneAgPvUKZ8YhQ4f4pxeUboci+Pamcbs8XRD8nul5Qs0WCQ6fNwRk -zwpH8PfXylqkXzGA87eY/ziUEmXgYAwCzgkOZ8BA34H7+uIC2zAEn32NTFRK -PIKvs2nu++VpCQ4GWiuFL7AYwN2XngYEagYO6oYca2SyYOr1IOrjEhzWgzyk -q+vQnfP890rPBIeM/A+tJ0V04O6fPoG/yuy0tgO/LlAD0D0tvP7rpxxF8B9E -iG+/uADB11GU/5JTpu0QDQwuDQ+ofTraEP94I/isQOd1ByD4sPD9DwL2ug7o -4Q8AdTawIA== - "]], - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGI5IIaxWZDYzCSwGaB8BjL0DhR7oNwMAEUOAp8= - - "], CompressedData[" -1:eJxdlGlIVFEUx8fRwjVFK22DCq2hLN/zvUGzJk+LkonYQjlE2VzXKUuHmqJA -26TVzCJrrLQYxpgMTQvbYTStFG2xGorUMlpoQyxMK8zq3jfLAQ/cDz/ucrb/ -uZNScpalu8pkMhe6kuiS0+X1wqRTWQh4xYZskV/kwcFh0yoC2qw8HDZk++ff -QPaST98/+uqQ/RrktR/aJndUIUcrk2/FVRJQbVdfUFbxkHmsOzfaSGC3270i -3sBBjn9+fcteApdnZptc5nBwbmzYq+CtyI9/Ln93PhP5ATMNgcZ95qSWTch1 -eRMiM61DeCQPfYrVRQ3pBDIzqF3jocd8Pz5ind3/1HBoZAeovx832w8N3hOg -KT7i4LxcAnNZvHkinGJ20O6/U4SsjwMV308i17GAS5ALNtADRmQp3woC6sDr -T2SXREid3ZVYeIbAkeX6YEORCDqV5wtTMYG0NZ2xrgpk2PO2qaRDcLJPYnVx -eokA8zS0wPT+e2J8LiYKMKu2eavFjOzoj4MFZo0EemuWZJ02I0v5qUQn66+O -Gmh9LcKaW3He8mpiyztOCfUtxphrBuRWir27kU0swM0EWHkz7ovQO2jd9jkb -83uWkOKnTrezrxL+MUvE+5LeopCP0nIpPZGlfnzTQNAJq4f2qeDkT+un9xs2 -It9hepgvwG398SC3fuS7E2s2aX8P2f+LLNVXRpws+ZcTCHmff/bhesHWPx8C -usqCDu0u2j8/9axaBfaXc68cvyoS2YWW/2UssuvKETOuJBDg2DyUI4us7guQ -Fd0+Fs7D/t4iAn/6t7wpJQIw+fYtJGDqsowo7Q0H3xlXynoiCAyy/aX2eQ3H -eSpk8xiM8yLpLRBZ0ucoZEm/3shSvsPs9V/HATv+3Z9AKtPnAc4232OIrY89 -yLb7vJMl/e3kgUavWB1AwJfpt5kHFl79cGRHfxxcxgb0q8b2fg5ybcSvhrR2 -zsl5A1G6R5EcbNbSgP9poIb5Lw2DA2xARhMnS/UIRQ6l5TNTvRUs/uImLuVg -BS1/WTTmx+Q7Jc7O7hzQbH7vSMb7kt70yNL/Vo7s+D9fjssl4TH4nzr+1/83 -y1pZ - "]], - FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, - 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{144.98099999999997`, - 12.920299999999996`}, {144.98099999999997`, 24.8406}, { - 143.08599999999998`, 24.8406}, {143.08599999999998`, - 24.184399999999997`}, {144.32699999999997`, 24.184399999999997`}, { - 144.32699999999997`, 13.575000000000001`}, {143.08599999999998`, - 13.575000000000001`}, {143.08599999999998`, 12.920299999999996`}, { - 144.98099999999997`, 12.920299999999996`}}}], - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGI5IIaxWZDYzGSyGaB8BhqpH+psAEKGAp8= - - "], CompressedData[" -1:eJx1lHtMjWEcx08X0UIINWVEuXQ6znvO+6ay8JNhKTPpNpdTPW/pItXcRitJ -WyLEOCs7FbGWTHOZu3BIpFJJLl1sTeUSjdytmOc5zznvs2V+2/PHZ79nv+v3 -eZxRUmC0hUwmM8MnFB9zfGyen0yeu0oEpVuZXWOQGsK8L1Zv1YiQs7THUihW -Q/BIxYXCGBFg16sH+Tpe4gzLqlyVpyBxHbEAD9iX8Ka/bNn/eUFEd+OU+YzF -UTgjJ8KdrNLQmiZBYo7UE8X4wMrNLnm2RvYSwbUrs+hRDw/rKzYfdvAx1tfG -Q/h1v+Hm/iK0O6ZGqrU8CDy25SLUVvqWx2kY5x20TZntyDjM/spjmUYNt49N -UL50EWHTpXH9tfM4cL9Q+LH0NYLzsxJPmvlwQNrpmyLCwPctHQV3PEF3b/K5 -jfj+OeL/wNhB22wd+5lxDcn/h/HqyQv6RHcv2BR7qDd1EuPbNcWLLjsy7mta -hkaNHeS3E+Hbtda9v129IGlMpr5mtJG7PaHt1474imYELaT/RRyE43G3lSOI -WUeMgxzSQBmi/duoJO6KLH4mpDO2XX72SHS1CrLJwk4jOu8JauCGnXFaVYFA -Rmwnnp8GD/wuAqcizczaTzy9j9kwVwtBYpNeTBy1tn2xxVvjPs8gOErMzwP0 -pL88xnj69/2TGDdvezdNtcZYz2le4rfx8u95Gxgb9OTLQy0O9yWS8RM8zrDo -Qf44xj9WdpboEhgb5JBozBfPQwlZYAqCedvDTnncFGh9uUZ9tAtQidcbq2Vs -6sfE2oV4wrp/mb4vxgHVQ+fqggWq73wEM3pH3OKsBaqXw6x/Q31ZiOq3SE3z -pSOwJ/ozZ0z9Konp/jkga+JvIOggF/RKqp86BAUnpl4bKFXC6ty732Y0GuOd -UMKQDFwh5qrrV/dbHfw/vyH7SFOCRQj+IB4iiCD7fqEAzz1YANUIGp6GfFDq -FFSfVSa/O82nRxAeFDj9eJxcYsN7W8H4IpnfgBvg7q0yqhib4ptYvnt8S30D -Y1N9dD5yCCX/XRMCd+dJXxO2ygFH0y5sQ5DWPye5PlsBZiRAK4Kfve/13pkK -6u9E9L0XKOl7dhIltsXf4cclIu1/ogoG/69/AYWBZk0= - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ5IGYCYp1Nc98v50txqPm0ISBbSssBxg+4JV2TaITg -Hz/stDbTTsuBY41MVAp7isMZEFij5ZAsEGG55U6yQ0LsHTfmCF0HB9O4XZ5n -kh1ugrQfNYDzT4P03zOC80HWzTI3dYjd5cnDdD/ZwecEu+1sVXMHljA+3U2c -KQ7FW0V/n66zcPiz8uMlX6D9xiCw2ALunjQQWIbgi0+9wpmxCcFvZDnab3jd -wkHNEOhiLgT/SsVLoBCCf+dnXdYeFgSfAQSQ+CZA5/L8Sobwp1s4OCY8vaB0 -ONkhBeRfC3OHD8uPeZuvTHa4IfTJ8TybKZzf7fWKxeShEZz/HwTWGzgUZ0x8 -WwPUf/5q2Bt9aV2If38mO9SDzA/XcggFcucypzjIzIvTPH1B08EAFOAsCD7M -/TA+zH8wPsz/6HxY/AIACzjPMQ== - "]], - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGI5IIaxWZDYzCSwGaB8BjL0DhR7oNwMAEUOAp8= - - "], CompressedData[" -1:eJxdlHsslXEYx49L5pZaF1mXrRplVN7X+56lcuqJsaXaCSuXpdDPpVPpZLRs -KKlYSIYd2allalKUTFplcomkMpnJNRVGbZi5lGT1/t5zeTbP9v7x2e/3e3/P -832+z29D6FmfMCOJRGIgfH7CZyh8nYVKmblFGFh42sUaPmRBx04Oxctb21kI -ILv65YuQO1t++Q4YLFifJ3reUn57vOgPsqWhY4r1LAFZnP8DaSkL/LGX+yzH -CCQZN2SyKgZc++UZqjYCT7dFFRq4MnB6eK54og5Z/WZ9WXQF8i0apQTqrxX5 -NUcjv05Y5xLRvoBXsFA3bX80s5xARLgQlSxUxWTbGFdq79/sDDfphnoCUy+6 -r883cJBjY3zE6h2B3TTfBB7osfAO7f29PLhUNJ2vHkBOpwkPIfvvEDaMIYv1 -zhDwX/X8k+QxD4xpydrAEQI3fGNsVZk8yMw/Fyq/ESBBvZ5G9shw+fvbvB5O -z4vlT3LC8jiw2ioIPExgMKSgg5dzYJKU6542hazrj44lNJaGwWTZoVP5Rchi -fTJezzHPVs69/8KDQ4p1V8sc0ei4TwoZqqhlyYPIeQLWtCAraYI1RKNTIw81 -zQUela+wvrurnfpsy7W8RAofaKjxvOi3FOQgQS5DP2SxHzICNrntZpFtnJ5H -FI4zqjPItdQPbhyk7g0eanVDzhqN3yP1XLDuhSzqexBZvF9OwG4w+c5HBafp -XyABZUlaT+QloX99tiZJsdjf+fYLPzZdRaby389Gbt3YM5uYT4Ch83APmeeE -cEe2H11czZhp/5dL4O9M7Fd1CAfUvnVZBAr7q63Uk87QO5uoqLpCYJ6ue2vn -9SLOUyCdx3M4L6LfCLLoz1Bk0b8ByGK9Plr9TzJAt1cfJ3CC+jOV0cx3OIF/ -NMaRNedZPYv+u8iCkP20fTCBJdS/TSzQ9DJ8kXX90bGCDqiL9v9nkSu2/64j -3YyeE+Z2KltcGACpkPABAmX0frUTHKYDcgJZ1CMOmcoXI/gtzeunMe/NAJVf -kY71UftO5mrZlAGhmsb9j/C86LdaZPF9m0DWvZ9da+JDnD3wPdW9r/8BhHNV -qQ== - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ5IGYCYgfTuF2eC1IdTh92Wpt5z8gBxu8LLlGZzm/q -sKdksgRLW6rDihceev8NzR2WFNhyXfdPdfC7ODHm32QLhxvnvgc/dk11aGQ5 -2m943cLh75WKl2pI/Cu+SQIRjgj+z7qsPSX2CD6jdrvYTStMvvjUK5wZmxD8 -NBBYhuD/B4H5Fg5qhhxrZJxSHdTf8u4zyLRwOAMCOakOS+7v45sjbO7wYfkx -b/PaVIct5j8OpfwygfO7vV6xmDw0gvOTY++4MXcYOBz6qhHTn5XqYGIMAroO -OkDrzgHda26zN2hao5aDClvjVGfrVIftDk2Pjltowd0TcEu6JtEIwa/5tCEg -WwrBl5kXp3n6gibc/zA+LHxg/DsgBS4I/gqg8zpd0fT7Q/kBWpBwAcbPk8SF -10z4deHxV/vbquDcDgMH9PgFABbx0g4= - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, - 3}, {0, 1, 0}}}, {{{176.128, 19.1391}, {176.128, - 18.948400000000003`}, {176.128, 18.696899999999996`}, {176.378, - 18.696899999999996`}, {176.641, 18.696899999999996`}, {176.641, - 18.9359}, {176.641, 19.1391}, {176.641, 25.9094}, {176.641, - 26.099999999999994`}, {176.641, 26.349999999999994`}, {176.391, - 26.349999999999994`}, {176.128, 26.349999999999994`}, {176.128, - 26.112499999999997`}, {176.128, 25.9094}, {176.128, 19.1391}}}], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, - 3}, {0, 1, 0}}}, {{{176.128, 11.9391}, {176.128, 11.7484}, {176.128, - 11.4969}, {176.378, 11.4969}, {176.641, 11.4969}, {176.641, - 11.7359}, {176.641, 11.9391}, {176.641, 18.7094}, {176.641, - 18.900000000000002`}, {176.641, 19.150000000000002`}, {176.391, - 19.150000000000002`}, {176.128, 19.150000000000002`}, {176.128, - 18.912499999999998`}, {176.128, 18.7094}, {176.128, 11.9391}}}], - FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, - 3}, {1, 3, 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ7IGYC4j0lkyVYJqU7bDH/cShll4kDjN/j9YrFxNDU -ocCW6/riFgQ/T6j5wKlaBH+qc3fO8+dpcP4SkIb7CP7Puqw9JecRfBW2xqnO -u9McSraK/j49z8ThxrnvwY/XpjnYVUasMLUF8hcDDZif5vDnW+mDOQuN4XwT -YyBoRvB5/ddPSY0wdgjl0900dzGCr9MudvPccgTf4C7QxrUIPsy+6RP4q8yi -jR2u+CYJRGxMczgDAjXGEPfvT3OIUXD8mMxj4rDQddvnvzcQ/GPe5p2ODxB8 -x4SnF5S+I/gzQeAt1HxpYwdQcIbdS3PoBvlf0cjhq0ZM/6GTUPveGDiAnLP0 -MFR+ooHDBaXbP+sOpTksf+Gh978RwW9kOdpvGI7gG2itFL7AYuDw5e+Vipen -0hw26OUtZpyjDzH3Chr/DoJ/COSAR2kOsiAL7us7fFgO9NFTqH2MBg45z3+v -/PgqzaE/uERlur6Bw9z3QAWv0xw2gvTbGEDUv4XyawwcJrytsTflSof7H+S9 -ryYIPii6u3XSHQrXdN/O+GDkYMCxRiZKI90hPQ0IzBB88alXODOaDOH8w23L -w09tMoDEu366g88JdtvZU/Uh8emI4GsYAjX4Ifjg+ItOh7sfxoeFL4z/Zeet -rr9bDRyWzj6isCEq3YEflD5OGEDSZzhU/quBA0sYMIG5pjvYgtLnW0M4Pzn2 -jhvzDSM4H5x/tIzh/CX39/HNKUbwJUD+m2TswAACHojwAYdvOYIPjp86BB+W -/2B8ULCldaU7cLmpljJZmThMASYvvt50hz6Qf/0R+dfv4sSYf8UIPix/AwDJ -daXg - "]], - FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, - 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, - 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJFIGYCYmMQaM9wMAHRj80cYPyU2DtuzBrmDoe+asT0 -1yH4RRkT39ZUI/hZe0omS2hg8pfc38c357AlnB8hvv0iwz0Ev8frFYuJopXD -zzqgiDyC3+GY8PSCGCZ/g17eYsY7lnA+zHwYH2Y/xxqZqJTD6ajuOYDgHzi1 -0HXbdkw+zP8wPti988wcDEAGHkDwYebD+DD70fkSU69wZjCZoLrvhTGcb6C1 -UvjCEmO4/2F8WPig87ndVEuZXiH4MPNRwhdoPyx+UNxTh+DD4hedD/M/ADOI -zwM= - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ5IGYC4mPe5p2OFpkONZ82BGRLaTnA+AG3pGsSjRD8 -44ed1mbaaTksdN32+a9BpsMZEFij5fB75cdLvmyZDgmxd9yYI3Qdbpz7Hvz4 -a4bDTZD2owZw/mmQ/ntGcD7Iulnmpg5A3tLZHJkOPifYbWermjvMfb/8mLdx -pkPxVtHfp+ssHKY6d+c8N890MAaBxRZw96SBwDIEX3zqFc6MTQh+I8vRfsPr -Fg77TwFdbIzg5wk1HzhliOCXTJZgCdND8GeCgC6CD3LuUmUof7qFw+2fdVl7 -3mQ4pID8a2Hu0OGY8PTCpQyHG0KfHM+zmcL53V6vWEweGsH5/0FgvYEDN5N2 -u9jbDIfzV8Pe6EvrQvwLNL8eZH64lgOIaw60X2ZenObpC5oOIOd/RuLD3A/j -w/wH48P8j86HxS8AyNDgvQ== - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}}}, {{{208.76300000000003`, 19.703100000000003`}, { - 208.76300000000003`, 20.846899999999998`}, {208.76300000000003`, - 23.720299999999995`}, {205.95000000000002`, 23.720299999999995`}, { - 203.12499999999997`, 23.720299999999995`}, {203.12499999999997`, - 20.859399999999997`}, {203.12499999999997`, 19.703100000000003`}, { - 203.12499999999997`, 18.557799999999997`}, {203.12499999999997`, - 15.756299999999996`}, {205.938, 15.756299999999996`}, { - 208.75199999999995`, 15.756299999999996`}, {208.76300000000003`, - 18.5219}, {208.76300000000003`, - 19.703100000000003`}}, CompressedData[" -1:eJxTTMoPSmViYGCQBGIQrb9p7vvlrzIdeP3XT0m9YewA4/OD+ByGDuadjglP -n2Q6PM/S/jb9roGDPdf1xQU3Mx2Wv/DQ+99o4BD/9ILS7YuZDjelaxKNXA0c -Uqzv+/cez3RITwMCNQMIvQ/Bn/C2xt50E4I/RYIljG9lpkOE+PaLDH4GDkcU -NhRlLMx0OHnYaW1mn4HD4gJbruvTMx22mP84lHLLwOGrRkz/oYmZDtMn8FeZ -cRvC+TD3w/hg89aZwPl/v5U+mFNo6nAGBKZkOjCAgICZw3wp/bsqszIdToHs -szN3mDETCLZmOiy5v49vTrC5w56SyRIs+xB8sPtPIfhg/z/MdPA5wW47W9Xc -wcQYCJ7D+Gbw8ORxUy1l6jKF8w+2LQ8/NcnEAT38AVa9s38= - "]}], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ5IGYC4uWzjyhsWJblcPqw09rMe0YOMH5fcInKdH5T -B5XbP+uyerIcVrzw0PtvaO7Ac31xgW1YloPfxYkx/yZbONibxu3y9MlyaGQ5 -2m943cIhxfq+f683gm+x5UTZPncEP+HpBaXbrgh+xsS3NfaOmHzxqVc4MzYh -+GkgsAzB/w8C8y0ceqbnCTV7ZDmov+XdZ5Bp4WBiDATFWQ5L7u/jmyNs7hDO -p7tpbnOWwxbzH4dSfpnA+d1er1hMHhrB+cmxd9yYOwwcNGL6D30tyIKYY6zr -MAFonalbloO5zd6gaY1aDj05z3+vBNq/3aHp0XELLbh7Am5J1yQaIfg1nzYE -ZEsh+DLz4jRPX9CE+x/Gh4UPjA9W4I3g8wOd994bTX8olB+g5XAGBIDx8yRx -4TUTfl14/NX+tio4t8PAAT1+Ab853G4= - "]], - FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, - 0}, {1, 3, 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJZIGYCYpYwPt1NntkO3V6vWEweGjnA+Ivv7+Ob8xnB -nwkCP40cONbIRKW4Q9UrGjvMOaKwoYgh28Gx6dHxGdUWDt81YvoP/c1y6A8u -UZm+3sJhSYEt1/XfWQ6NLEf7Da9D+Z8R/AtKt3/WvUPwVYDcrBdZDt4n2G1n -b0XwefzXT0mtQPDTwMDC4QwIAPnGIJBs4bB8NtBBr7Ig7rG2cOjJef57pSHC -fzB58R6ggIg2XL++1krhC0e04ObLLH/hobcfwa/5tCEgexaC/x8E5LXg7p/S -3hp1+Y4m3H8o/N8I/nwp/bsq/7IctjsAHWihBQ8/Fs4u+eQ+LXj47q+VtUhf -YuQQk2J93x8Y/hv18hYznkHER/FW0d+nzyH4MP8BAC5g0yo= - "]]}, - Thickness[0.004527755139002083], StripOnInput -> False]}, { - ImageSize -> {386.4987148194271, 51.60673723536737}, - ImageSize -> {220.85640846824407`, 29.48956413449564}, BaselinePosition -> - Scaled[0.5405405040177161], ImageSize -> {221., 30.}, - PlotRange -> {{0., 220.86}, {0., 29.49}}, AspectRatio -> Automatic}]}, - "Labeled", - DisplayFunction->(FormBox[ - GridBox[{{ - ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { - TagBox[ - ItemBox[ - PaneBox[ - TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, - BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], - "SkipImageSizeLevel"]}}, - GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - BaselinePosition -> {2, 1}], TraditionalForm]& ), - InterpretationFunction->(RowBox[{"Labeled", "[", - RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )], TraditionalForm]], "Output",\ - - CellChangeTimes->{ - 3.725709005554514*^9, {3.7257090381555653`*^9, 3.725709044695085*^9}, { - 3.7257092838923473`*^9, 3.7257093067055273`*^9}}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Labeled", "[", - RowBox[{ - RowBox[{"Grid", "[", - RowBox[{"{", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"Show", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"ReXng", ",", "ReEvan"}], "}"}], ",", - RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], ",", - RowBox[{"Show", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"LogAbsReXng", ",", "LogAbsReEvan"}], "}"}], ",", - RowBox[{"PlotRange", "\[Rule]", "All"}], ",", - RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{"Show", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"ImXng", ",", "ImEvan"}], "}"}], ",", - RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], ",", - RowBox[{"Show", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"LogAbsImXng", ",", "LogAbsImEvan"}], "}"}], ",", - RowBox[{"PlotRange", "\[Rule]", "All"}], ",", - RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}], "}"}]}], "}"}], - "]"}], ",", - RowBox[{"MaTeX", "[", - RowBox[{ - "\"\<\\\\boldsymbol{\\\\sum_x\\\\langle\\\\pi^+(t)\\\\left|\\\\bar{\\\\\ -psi}(x)\\\\gamma_z \ -W[x,x-\\\\hat{z}]\\\\psi(x-\\\\hat{z})\\\\right|\\\\pi^+(0)\\\\rangle}\>\"", - ",", - RowBox[{"Magnification", "\[Rule]", "1.75"}]}], "]"}], ",", "Top"}], - "]"}]], "Input", - CellChangeTimes->{{3.72570918862574*^9, 3.7257092080098047`*^9}, { - 3.725709312703259*^9, 3.72570931361268*^9}}], - -Cell[BoxData[ - FormBox[ - TemplateBox[{TagBox[ - GridBox[{{ - TemplateBox[{ - GraphicsBox[{{{}, {{{}, {}, { - Hue[0.67, 0.6, 0.6], - Directive[ - PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - GrayLevel[0]], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7Pk9Mk2WVgnshwo4SJ1I/tmxayKUz+FwYL2Z -UZ5wFpQv4PA9MZz9PIcrlC/i0Ln/d92kH/JQvoTDj19775xX/rYPwpdxEA79 -+D0w6xyUr+AQXbEt92fjEihfycHk4jlJY8NqKF/FYc4tKZVVGUFQvppDULa7 -u5qzOpSv4bCE96bHYpU/eyF8LYc70lMXsu65COXrOEj3tp+bI7wUytdzuLnw -xsOgCxVQvoHDUrd/fyUc/aB8Qwe5XzFXJigJ2UL4Rg7sjbcVdmsFQvnGDrFn -RJovTKiG8k0clk1N2zOTbSmUb+qwTsErTI7vPJRv5hA2N1CjT+g7lG/usOMa -X2u+qJIdhG/hMO39dvuZyzygfEsH2y13BKO4i6B8K4fXbT0bGtrmQfnWDlnH -e++5KJyE8m0cVkX6J8lGf4HybR3+Hkz1WcyvaA/h2znkfk7Q4Kz1hfLtHfy/ -adR4vC+G8h0c9N7qK2/eN9UeAFTUjEI= - - "]]}}}, {}, {}, {{}, {}}}, {{}, {{{}, { - Hue[0.67, 0.6, 0.6], - Directive[ - PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - RGBColor[1, 0, 0]], - PointBox[CompressedData[" -1:eJwtyFsoQwEcBvC1UiQsl2zlsovLkuRg7na+aFm5jT3I5UnR8oCsJEMpuT04 -oYXkUmw8iSg1sYcVTXEiuc4Db5TIfS6Fzv+rr6/fp6hrrqgXi0Qi+V//V8gj -a73X1Ns7JE46wPV/egccI2RfBH2lMU0hjWQJSm5PxbyvjhyKNo9Py+hHNFmK -Sv7ExavetgVHIPZI6yxvPCDLIStTyLw9C2QlRnem3QxjIcdglxkyLpkqyHEY -ml+NUhXEk9W4GZfWWmO+twQnoND15HjePCQnovT4NbA4xEZOwuR66J2Rbycn -Y8K0sb/HlpIZ7D2ruWVpcJ7gFBQZEH6tLienYsXjulRxFnIaGsayLk59bGQN -xs41PysBPDkdy7e7s93B7+QMdC9x+qYwpVZwJtwec/aUXU/OgqZfNlzt30rO -hvPMZOjpmyHnwKFLTtDJ3eRcDC6KOyNrXsh5GK+KNswHKVjBWjCx+Wq/rhIy -i7neK4v+wUwGRsyccm3byv4C+xONAw== - - "]]}, {}}}, {}, {}, {{}, {}}}}, { - ImageSize -> 400, DisplayFunction -> Identity, - PlotRangePadding -> {{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, AxesOrigin -> {0.515625, 0}, - PlotRange -> {{1., 32.}, {-0.0173131372657239, - 0.0212352743364878}}, PlotRangeClipping -> True, ImagePadding -> - All, DisplayFunction -> Identity, AspectRatio -> - NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes -> {False, False}, AxesLabel -> {None, None}, - AxesOrigin -> {0.515625, 0}, DisplayFunction :> Identity, - Frame -> {{True, True}, {True, True}}, - FrameLabel -> {{None, None}, {None, None}}, - FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines -> {None, None}, GridLinesStyle -> Directive[ - GrayLevel[0.5, 0.4]], - Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 1, - 2][#]& )[ - Part[#, 1]], - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 2, - 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 1, - 2][#]& )[ - Part[#, 1]], - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 2, - 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange -> {{1., 32.}, {-0.0173131372657239, - 0.0212352743364878}}, PlotRangeClipping -> True, - PlotRangePadding -> {{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], - FormBox[ - TagBox[ - GridBox[{{ - FormBox[ - - TemplateBox[{"\"Xiong, Re\""}, "PointLegend", - DisplayFunction -> (StyleBox[ - StyleBox[ - PaneBox[ - TagBox[ - GridBox[{{ - TagBox[ - GridBox[{{ - GraphicsBox[{{ - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.1155], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - GrayLevel[0]], { - LineBox[{{0, 10}, {40, 10}}]}}, { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.1155], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - GrayLevel[0]], {}}}, AspectRatio -> Full, - ImageSize -> {40, 10}, PlotRangePadding -> None, - ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, - GridBoxAlignment -> { - "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, - AutoDelete -> False, - GridBoxDividers -> { - "Columns" -> {{False}}, "Rows" -> {{False}}}, - GridBoxItemSize -> { - "Columns" -> {{All}}, "Rows" -> {{All}}}, - GridBoxSpacings -> { - "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], - "Grid"], Alignment -> Left, AppearanceElements -> None, - ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> - "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { - FontFamily -> "Arial"}, Background -> Automatic, - StripOnInput -> False]& ), - InterpretationFunction :> (RowBox[{"PointLegend", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], - ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - RowBox[{"Dashing", "[", - RowBox[{"{", - RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", - InterpretationBox[ - ButtonBox[ - TooltipBox[ - GraphicsBox[{{ - GrayLevel[0], - RectangleBox[{0, 0}]}, { - GrayLevel[0], - RectangleBox[{1, -1}]}, { - GrayLevel[0], - RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> - True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, - PlotRangePadding -> None, ImageSize -> - Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], "GrayLevel[0]"], - Appearance -> None, BaseStyle -> {}, BaselinePosition -> - Baseline, DefaultBaseStyle -> {}, ButtonFunction :> - With[{Typeset`box$ = EvaluationBox[]}, - If[ - Not[ - AbsoluteCurrentValue["Deployed"]], - SelectionMove[Typeset`box$, All, Expression]; - FrontEnd`Private`$ColorSelectorInitialAlpha = 1; - FrontEnd`Private`$ColorSelectorInitialColor = - GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = - True; MathLink`CallFrontEnd[ - FrontEnd`AttachCell[Typeset`box$, - FrontEndResource["GrayLevelColorValueSelector"], { - 0, {Left, Bottom}}, {Left, Top}, - "ClosingActions" -> { - "SelectionDeparture", "ParentChanged", - "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> - Automatic, Method -> "Preemptive"], - GrayLevel[0], Editable -> False, Selectable -> False]}], - "]"}], "}"}], ",", - RowBox[{"{", #, "}"}], ",", - RowBox[{"LegendMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"{", - RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", - - RowBox[{"Joined", "\[Rule]", - RowBox[{"{", "True", "}"}]}], ",", - RowBox[{"LabelStyle", "\[Rule]", - RowBox[{"{", "}"}]}], ",", - RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], - "]"}]& ), Editable -> True], TraditionalForm]}, { - FormBox[ - - TemplateBox[{"\"Evan, Re\""}, "PointLegend", - DisplayFunction -> (StyleBox[ - StyleBox[ - PaneBox[ - TagBox[ - GridBox[{{ - TagBox[ - GridBox[{{ - GraphicsBox[{{}, { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.462], - AbsoluteThickness[1.6], - RGBColor[1, 0, 0]], { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.462], - AbsoluteThickness[1.6], - RGBColor[1, 0, 0]], - PointBox[ - NCache[{ - Scaled[{ - Rational[1, 2], - Rational[1, 2]}]}, { - Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, - ImageSize -> {10, 10}, PlotRangePadding -> None, - ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, - GridBoxAlignment -> { - "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, - AutoDelete -> False, - GridBoxDividers -> { - "Columns" -> {{False}}, "Rows" -> {{False}}}, - GridBoxItemSize -> { - "Columns" -> {{All}}, "Rows" -> {{All}}}, - GridBoxSpacings -> { - "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], - "Grid"], Alignment -> Left, AppearanceElements -> None, - ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> - "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { - FontFamily -> "Arial"}, Background -> Automatic, - StripOnInput -> False]& ), - InterpretationFunction :> (RowBox[{"PointLegend", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], - ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - InterpretationBox[ - ButtonBox[ - TooltipBox[ - GraphicsBox[{{ - GrayLevel[0], - RectangleBox[{0, 0}]}, { - GrayLevel[0], - RectangleBox[{1, -1}]}, { - RGBColor[1, 0, 0], - RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> - True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], - FrameTicks -> None, PlotRangePadding -> None, ImageSize -> - Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], - "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {}, - BaselinePosition -> Baseline, DefaultBaseStyle -> {}, - ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, - If[ - Not[ - AbsoluteCurrentValue["Deployed"]], - SelectionMove[Typeset`box$, All, Expression]; - FrontEnd`Private`$ColorSelectorInitialAlpha = 1; - FrontEnd`Private`$ColorSelectorInitialColor = - RGBColor[1, 0, 0]; - FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; - MathLink`CallFrontEnd[ - FrontEnd`AttachCell[Typeset`box$, - FrontEndResource["RGBColorValueSelector"], { - 0, {Left, Bottom}}, {Left, Top}, - "ClosingActions" -> { - "SelectionDeparture", "ParentChanged", - "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> - Automatic, Method -> "Preemptive"], - RGBColor[1, 0, 0], Editable -> False, Selectable -> - False]}], "]"}], "}"}], ",", - RowBox[{"{", #, "}"}], ",", - RowBox[{"LegendMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"{", - RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", - - RowBox[{"Joined", "\[Rule]", - RowBox[{"{", "False", "}"}]}], ",", - RowBox[{"LabelStyle", "\[Rule]", - RowBox[{"{", "}"}]}], ",", - RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], - "]"}]& ), Editable -> True], TraditionalForm]}}, - GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"], - TraditionalForm]}, "Legended", DisplayFunction -> (FormBox[ - GridBox[{{ - TagBox[ - ItemBox[ - PaneBox[ - TagBox[#, "SkipImageSizeLevel"], - Alignment -> {Center, Baseline}, BaselinePosition -> - Baseline], DefaultBaseStyle -> "Labeled"], - "SkipImageSizeLevel"], - ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, - GridBoxAlignment -> { - "Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> - False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}], - TraditionalForm]& ), InterpretationFunction -> (FormBox[ - RowBox[{"Legended", "(", - RowBox[{#, ",", - RowBox[{"Placed", "[", - RowBox[{#2, ",", "After"}], "]"}]}], ")"}], - TraditionalForm]& ), Editable -> True], - TemplateBox[{ - GraphicsBox[{{{}, {{{}, {}, { - Hue[0.67, 0.6, 0.6], - Directive[ - PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - GrayLevel[0]], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7PMfH5gSH6l8ACrgoOD5hGGJpQCUz+GQIlvm -/Oy/GJQv4PBrT7RaZboslC/iYLaeI5SXTQnKl3CQ67a5/L1dFcqXcSg/51jF -w6cJ5Ss4aG16b79org6Ur+TwWeLZpbdSBlC+isPz0pt16x8aQvlqDjcCDmnJ -7TKG8jUcpPf/erJxrimUr+VwWH2K+rkycyhfxyH8XXXsxzhLKF/P4U7uzee1 -ntZQvoGD+Yl9cSLatlC+oUNF7/6m/EP2UL6RQ8qT8PpNXDB5Y4f34hc8JurB -9Js43FgsOqs/Hma+qcOZ80cTLs+A2W/mUKXxIav3Asx95g5ZBx+2T/0Fc7+F -g9bXxVOSPIygfEuHpCO3v79shvnfyoFZOav6vokulG/t0CPLPvtOPiz8bBzq -DLkkf2+Cha+tg83E6TLbnihC+XYOjM2679p4ZaB8e4dNJcl9Mr6iUL6Dw5U/ -4mmiF/kOAAAXwJA3 - "]]}}}, {}, {}, {{}, {}}}, {{}, {{{}, { - Hue[0.67, 0.6, 0.6], - Directive[ - PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - RGBColor[1, 0, 0]], - PointBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7L/eO5QfH6l8ACrg8Nf1EMMSSwEon8Ohbulc -52f/xaB8AQeBrWbqlemyUL6IA4vrj1BeNiUoX8LBpbDm6vd2VShfxiHU6k8t -D58mlK/gcChd32PRXB0oX8nhg6bz/bdSBlC+isPC+6Iz1j80hPLVHDT2t/jK -7TKG8jUc+FWXJm+aawrlazlEH/+teb7MHMrXcZjU7230Nc4SytdzEO5o1evw -tIbyDRy23DiYJa9tC+UbOmgd+qr3+5A9lG/kMFntvuw5Lpi8sYMXo/q1BXow -/SYOh3IeXZoRDzPf1OG0ktGzazNg9ps5XHvvKd53AeY+cwdhk6SZU3/B3G/h -IF0n2pDkYQTlWzqc1vn54WUzzP9WDm/PfSi4b6IL5Vs7CD9mnHonHxZ+Ng7O -R5rFfm+Cha+tg8wJdZltTxShfDuH/RsM37XxykD59g5iM4r6ZHxFoXwHh2ts -wWmiF/kOAACisIzw - "]]}, {}}}, {}, {}, {{}, {}}}}, { - PlotRange -> All, ImageSize -> 400, DisplayFunction -> Identity, - PlotRangePadding -> {{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, AxesOrigin -> {0.515625, 0}, - PlotRange -> {{1., 32.}, {-31.759514018789076`, 0}}, - PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> - Identity, AspectRatio -> - NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes -> {False, False}, AxesLabel -> {None, None}, - AxesOrigin -> {0.515625, 0}, DisplayFunction :> Identity, - Frame -> {{True, True}, {True, True}}, - FrameLabel -> {{None, None}, {None, None}}, - FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines -> {None, None}, GridLinesStyle -> Directive[ - GrayLevel[0.5, 0.4]], - Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 1, - 2][#]& )[ - Part[#, 1]], - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 2, - 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 1, - 2][#]& )[ - Part[#, 1]], - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 2, - 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange -> {{1., 32.}, {-31.759514018789076`, 0}}, - PlotRangeClipping -> True, PlotRangePadding -> {{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], - FormBox[ - TagBox[ - GridBox[{{ - FormBox[ - - TemplateBox[{"\"Xiong, Log[Abs[Re[]]]\""}, "PointLegend", - DisplayFunction -> (StyleBox[ - StyleBox[ - PaneBox[ - TagBox[ - GridBox[{{ - TagBox[ - GridBox[{{ - GraphicsBox[{{ - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.1155], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - GrayLevel[0]], { - LineBox[{{0, 10}, {40, 10}}]}}, { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.1155], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - GrayLevel[0]], {}}}, AspectRatio -> Full, - ImageSize -> {40, 10}, PlotRangePadding -> None, - ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, - GridBoxAlignment -> { - "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, - AutoDelete -> False, - GridBoxDividers -> { - "Columns" -> {{False}}, "Rows" -> {{False}}}, - GridBoxItemSize -> { - "Columns" -> {{All}}, "Rows" -> {{All}}}, - GridBoxSpacings -> { - "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], - "Grid"], Alignment -> Left, AppearanceElements -> None, - ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> - "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { - FontFamily -> "Arial"}, Background -> Automatic, - StripOnInput -> False]& ), - InterpretationFunction :> (RowBox[{"PointLegend", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], - ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - RowBox[{"Dashing", "[", - RowBox[{"{", - RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", - InterpretationBox[ - ButtonBox[ - TooltipBox[ - GraphicsBox[{{ - GrayLevel[0], - RectangleBox[{0, 0}]}, { - GrayLevel[0], - RectangleBox[{1, -1}]}, { - GrayLevel[0], - RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> - True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, - PlotRangePadding -> None, ImageSize -> - Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], "GrayLevel[0]"], - Appearance -> None, BaseStyle -> {}, BaselinePosition -> - Baseline, DefaultBaseStyle -> {}, ButtonFunction :> - With[{Typeset`box$ = EvaluationBox[]}, - If[ - Not[ - AbsoluteCurrentValue["Deployed"]], - SelectionMove[Typeset`box$, All, Expression]; - FrontEnd`Private`$ColorSelectorInitialAlpha = 1; - FrontEnd`Private`$ColorSelectorInitialColor = - GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = - True; MathLink`CallFrontEnd[ - FrontEnd`AttachCell[Typeset`box$, - FrontEndResource["GrayLevelColorValueSelector"], { - 0, {Left, Bottom}}, {Left, Top}, - "ClosingActions" -> { - "SelectionDeparture", "ParentChanged", - "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> - Automatic, Method -> "Preemptive"], - GrayLevel[0], Editable -> False, Selectable -> False]}], - "]"}], "}"}], ",", - RowBox[{"{", #, "}"}], ",", - RowBox[{"LegendMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"{", - RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", - - RowBox[{"Joined", "\[Rule]", - RowBox[{"{", "True", "}"}]}], ",", - RowBox[{"LabelStyle", "\[Rule]", - RowBox[{"{", "}"}]}], ",", - RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], - "]"}]& ), Editable -> True], TraditionalForm]}, { - FormBox[ - - TemplateBox[{"\"Evan, Log[Abs[Re[]]]\""}, "PointLegend", - DisplayFunction -> (StyleBox[ - StyleBox[ - PaneBox[ - TagBox[ - GridBox[{{ - TagBox[ - GridBox[{{ - GraphicsBox[{{}, { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.462], - AbsoluteThickness[1.6], - RGBColor[1, 0, 0]], { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.462], - AbsoluteThickness[1.6], - RGBColor[1, 0, 0]], - PointBox[ - NCache[{ - Scaled[{ - Rational[1, 2], - Rational[1, 2]}]}, { - Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, - ImageSize -> {10, 10}, PlotRangePadding -> None, - ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, - GridBoxAlignment -> { - "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, - AutoDelete -> False, - GridBoxDividers -> { - "Columns" -> {{False}}, "Rows" -> {{False}}}, - GridBoxItemSize -> { - "Columns" -> {{All}}, "Rows" -> {{All}}}, - GridBoxSpacings -> { - "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], - "Grid"], Alignment -> Left, AppearanceElements -> None, - ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> - "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { - FontFamily -> "Arial"}, Background -> Automatic, - StripOnInput -> False]& ), - InterpretationFunction :> (RowBox[{"PointLegend", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], - ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - InterpretationBox[ - ButtonBox[ - TooltipBox[ - GraphicsBox[{{ - GrayLevel[0], - RectangleBox[{0, 0}]}, { - GrayLevel[0], - RectangleBox[{1, -1}]}, { - RGBColor[1, 0, 0], - RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> - True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], - FrameTicks -> None, PlotRangePadding -> None, ImageSize -> - Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], - "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {}, - BaselinePosition -> Baseline, DefaultBaseStyle -> {}, - ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, - If[ - Not[ - AbsoluteCurrentValue["Deployed"]], - SelectionMove[Typeset`box$, All, Expression]; - FrontEnd`Private`$ColorSelectorInitialAlpha = 1; - FrontEnd`Private`$ColorSelectorInitialColor = - RGBColor[1, 0, 0]; - FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; - MathLink`CallFrontEnd[ - FrontEnd`AttachCell[Typeset`box$, - FrontEndResource["RGBColorValueSelector"], { - 0, {Left, Bottom}}, {Left, Top}, - "ClosingActions" -> { - "SelectionDeparture", "ParentChanged", - "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> - Automatic, Method -> "Preemptive"], - RGBColor[1, 0, 0], Editable -> False, Selectable -> - False]}], "]"}], "}"}], ",", - RowBox[{"{", #, "}"}], ",", - RowBox[{"LegendMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"{", - RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", - - RowBox[{"Joined", "\[Rule]", - RowBox[{"{", "False", "}"}]}], ",", - RowBox[{"LabelStyle", "\[Rule]", - RowBox[{"{", "}"}]}], ",", - RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], - "]"}]& ), Editable -> True], TraditionalForm]}}, - GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"], - TraditionalForm]}, "Legended", DisplayFunction -> (FormBox[ - GridBox[{{ - TagBox[ - ItemBox[ - PaneBox[ - TagBox[#, "SkipImageSizeLevel"], - Alignment -> {Center, Baseline}, BaselinePosition -> - Baseline], DefaultBaseStyle -> "Labeled"], - "SkipImageSizeLevel"], - ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, - GridBoxAlignment -> { - "Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> - False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}], - TraditionalForm]& ), InterpretationFunction -> (FormBox[ - RowBox[{"Legended", "(", - RowBox[{#, ",", - RowBox[{"Placed", "[", - RowBox[{#2, ",", "After"}], "]"}]}], ")"}], - TraditionalForm]& ), Editable -> True]}, { - TemplateBox[{ - GraphicsBox[{{{}, {{{}, {}, { - Hue[0.67, 0.6, 0.6], - Directive[ - PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - RGBColor[0, 0, 1]], - LineBox[CompressedData[" -1:eJwtyFsogwEcBfD5PMztAXlQpJn73Oa2C7PvKAoRzfKgbOUaL5pJksmD8CDl -HmEeTFopDVlsJqXUWLEmSony4lIidzX0/U+dTr8TXdemamR4PJ7gr//L5YmN -MN01LU9JHHRAeV/Z3e6nJvthVibXWC1icjBi+F6Llh9CDsNJKnP00vW8yzkc -fUHJwQdyFzkSHa6zlJOvZbIAzlNV6/ePgSzEdXH6Ts2GihyLZuEn8z6URI7H -pNbn5jCEISdiveJx9bHIY+cswtPYwNWmy0ROQXGA4aHkuZ2cBvug7+C4WEEW -wyh1GDX7nzbOGdBvmyQzER8Kzpl4W9TW/+jj8jlnQWidd+vbqsnZUPeKJnS2 -fnIOLFVLobXmNbIEBbVmncZ5TpYioS/cOHfJKDnLoB72jsCTRJZjhd0byLGr -yLm4PvO8uBt6yHmIChu9lZqXyAoEbnk7p0uPyflI82RadYZXshJBcQui+mgB -y5mF/0UZb7a8kAzYbUwLv0TD/gIFnY9B - - "]]}}}, {}, {}, {{}, {}}}, {{}, {{{}, { - Hue[0.67, 0.6, 0.6], - Directive[ - PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - RGBColor[0, 1, 0]], - PointBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7FXjRVKWTTPbDxVwUOqzri3iCIHyORyapz6O -3bHJAMoXcPhfm7konl0QyhdxEDZznf+54tM+CF/CYVvnqs4jluegfBmHVtU3 -TRd+LYPyFRwaGI85fP9TC+UrOfzSuv0tYEsQlK/iUPfw2dVrHZpQvppD1f32 -Z0sEmaB8DYe1dx2uTXS9uhfC13Jo3l2V/vzsUihfx+HBsROajz4UQfl6DtO5 -p/SIGdpA+QYO1+ec2nrw3889EL6hw6XqygBrlh82EL6RgyhDH0tXiaothG/s -cKFFJHlNfhiUb+Jwu7NcLWFPC5Rv6hAu9X2Rz6oNUL6Zg9kG3bUJp29A+eYO -aRG/4pbeYbKD8C0cVkt5XnW9qgnlWzqwCk76ZL43CMq3clA/E/zvakoNlG/t -4Gg+Ndpi1RIo38bh2C2N9uleZ6F8WwfXf427Cmu/Qvl2Dqwi2drJigr2EL69 -w+HZDP9m+rpA+Q4Oz7Pjstg94+wBFSSRgw== - - "]]}, {}}}, {}, {}, {{}, {}}}}, { - ImageSize -> 400, DisplayFunction -> Identity, - PlotRangePadding -> {{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, AxesOrigin -> {0.515625, 0}, - PlotRange -> {{1., 32.}, {-0.00122271708938966, - 0.00184846614505911}}, PlotRangeClipping -> True, ImagePadding -> - All, DisplayFunction -> Identity, AspectRatio -> - NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes -> {False, False}, AxesLabel -> {None, None}, - AxesOrigin -> {0.515625, 0}, DisplayFunction :> Identity, - Frame -> {{True, True}, {True, True}}, - FrameLabel -> {{None, None}, {None, None}}, - FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines -> {None, None}, GridLinesStyle -> Directive[ - GrayLevel[0.5, 0.4]], - Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 1, - 2][#]& )[ - Part[#, 1]], - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 2, - 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 1, - 2][#]& )[ - Part[#, 1]], - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 2, - 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange -> {{1., 32.}, {-0.00122271708938966, - 0.00184846614505911}}, PlotRangeClipping -> True, - PlotRangePadding -> {{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], - FormBox[ - TagBox[ - GridBox[{{ - FormBox[ - - TemplateBox[{"\"Xiong, Im\""}, "PointLegend", - DisplayFunction -> (StyleBox[ - StyleBox[ - PaneBox[ - TagBox[ - GridBox[{{ - TagBox[ - GridBox[{{ - GraphicsBox[{{ - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.1155], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - RGBColor[0, 0, 1]], { - LineBox[{{0, 10}, {40, 10}}]}}, { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.1155], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - RGBColor[0, 0, 1]], {}}}, AspectRatio -> Full, - ImageSize -> {40, 10}, PlotRangePadding -> None, - ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, - GridBoxAlignment -> { - "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, - AutoDelete -> False, - GridBoxDividers -> { - "Columns" -> {{False}}, "Rows" -> {{False}}}, - GridBoxItemSize -> { - "Columns" -> {{All}}, "Rows" -> {{All}}}, - GridBoxSpacings -> { - "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], - "Grid"], Alignment -> Left, AppearanceElements -> None, - ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> - "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { - FontFamily -> "Arial"}, Background -> Automatic, - StripOnInput -> False]& ), - InterpretationFunction :> (RowBox[{"PointLegend", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], - ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - RowBox[{"Dashing", "[", - RowBox[{"{", - RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", - InterpretationBox[ - ButtonBox[ - TooltipBox[ - GraphicsBox[{{ - GrayLevel[0], - RectangleBox[{0, 0}]}, { - GrayLevel[0], - RectangleBox[{1, -1}]}, { - RGBColor[0, 0, 1], - RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> - True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], - FrameTicks -> None, PlotRangePadding -> None, ImageSize -> - Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], - "RGBColor[0, 0, 1]"], Appearance -> None, BaseStyle -> {}, - BaselinePosition -> Baseline, DefaultBaseStyle -> {}, - ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, - If[ - Not[ - AbsoluteCurrentValue["Deployed"]], - SelectionMove[Typeset`box$, All, Expression]; - FrontEnd`Private`$ColorSelectorInitialAlpha = 1; - FrontEnd`Private`$ColorSelectorInitialColor = - RGBColor[0, 0, 1]; - FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; - MathLink`CallFrontEnd[ - FrontEnd`AttachCell[Typeset`box$, - FrontEndResource["RGBColorValueSelector"], { - 0, {Left, Bottom}}, {Left, Top}, - "ClosingActions" -> { - "SelectionDeparture", "ParentChanged", - "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> - Automatic, Method -> "Preemptive"], - RGBColor[0, 0, 1], Editable -> False, Selectable -> - False]}], "]"}], "}"}], ",", - RowBox[{"{", #, "}"}], ",", - RowBox[{"LegendMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"{", - RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", - - RowBox[{"Joined", "\[Rule]", - RowBox[{"{", "True", "}"}]}], ",", - RowBox[{"LabelStyle", "\[Rule]", - RowBox[{"{", "}"}]}], ",", - RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], - "]"}]& ), Editable -> True], TraditionalForm]}, { - FormBox[ - - TemplateBox[{"\"Evan, Im\""}, "PointLegend", - DisplayFunction -> (StyleBox[ - StyleBox[ - PaneBox[ - TagBox[ - GridBox[{{ - TagBox[ - GridBox[{{ - GraphicsBox[{{}, { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.462], - AbsoluteThickness[1.6], - RGBColor[0, 1, 0]], { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.462], - AbsoluteThickness[1.6], - RGBColor[0, 1, 0]], - PointBox[ - NCache[{ - Scaled[{ - Rational[1, 2], - Rational[1, 2]}]}, { - Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, - ImageSize -> {10, 10}, PlotRangePadding -> None, - ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, - GridBoxAlignment -> { - "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, - AutoDelete -> False, - GridBoxDividers -> { - "Columns" -> {{False}}, "Rows" -> {{False}}}, - GridBoxItemSize -> { - "Columns" -> {{All}}, "Rows" -> {{All}}}, - GridBoxSpacings -> { - "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], - "Grid"], Alignment -> Left, AppearanceElements -> None, - ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> - "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { - FontFamily -> "Arial"}, Background -> Automatic, - StripOnInput -> False]& ), - InterpretationFunction :> (RowBox[{"PointLegend", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], - ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - InterpretationBox[ - ButtonBox[ - TooltipBox[ - GraphicsBox[{{ - GrayLevel[0], - RectangleBox[{0, 0}]}, { - GrayLevel[0], - RectangleBox[{1, -1}]}, { - RGBColor[0, 1, 0], - RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> - True, FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], - FrameTicks -> None, PlotRangePadding -> None, ImageSize -> - Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], - "RGBColor[0, 1, 0]"], Appearance -> None, BaseStyle -> {}, - BaselinePosition -> Baseline, DefaultBaseStyle -> {}, - ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, - If[ - Not[ - AbsoluteCurrentValue["Deployed"]], - SelectionMove[Typeset`box$, All, Expression]; - FrontEnd`Private`$ColorSelectorInitialAlpha = 1; - FrontEnd`Private`$ColorSelectorInitialColor = - RGBColor[0, 1, 0]; - FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; - MathLink`CallFrontEnd[ - FrontEnd`AttachCell[Typeset`box$, - FrontEndResource["RGBColorValueSelector"], { - 0, {Left, Bottom}}, {Left, Top}, - "ClosingActions" -> { - "SelectionDeparture", "ParentChanged", - "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> - Automatic, Method -> "Preemptive"], - RGBColor[0, 1, 0], Editable -> False, Selectable -> - False]}], "]"}], "}"}], ",", - RowBox[{"{", #, "}"}], ",", - RowBox[{"LegendMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"{", - RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", - - RowBox[{"Joined", "\[Rule]", - RowBox[{"{", "False", "}"}]}], ",", - RowBox[{"LabelStyle", "\[Rule]", - RowBox[{"{", "}"}]}], ",", - RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], - "]"}]& ), Editable -> True], TraditionalForm]}}, - GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"], - TraditionalForm]}, "Legended", DisplayFunction -> (FormBox[ - GridBox[{{ - TagBox[ - ItemBox[ - PaneBox[ - TagBox[#, "SkipImageSizeLevel"], - Alignment -> {Center, Baseline}, BaselinePosition -> - Baseline], DefaultBaseStyle -> "Labeled"], - "SkipImageSizeLevel"], - ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, - GridBoxAlignment -> { - "Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> - False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}], - TraditionalForm]& ), InterpretationFunction -> (FormBox[ - RowBox[{"Legended", "(", - RowBox[{#, ",", - RowBox[{"Placed", "[", - RowBox[{#2, ",", "After"}], "]"}]}], ")"}], - TraditionalForm]& ), Editable -> True], - TemplateBox[{ - GraphicsBox[{{{}, {{{}, {}, { - Hue[0.67, 0.6, 0.6], - Directive[ - PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - RGBColor[0, 0, 1]], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7A2dPa44P5E/ABVwiL96687iy1JQPofDVe8F -JVd6FKB8AYdyjYzOSR7KUL6Iw9LwK082PFGF8iUcBOwuBDgIakL5Mg7sJ6zm -xCTrQPkKDhsV/zXeZzSA8pUcjGdzeM2+awjlqzhUWW2Qc1xkDOWrOUwskspZ -G2sK5Ws49NTHHLXyMIfytRwSdXSizcMsoXwdh5LjHnF9fdZQvp7DZ56XTfPe -2UL5Bg6lav2f96Y6QPmGDv/b5ktZ5sH4Rg7HzF48+PnUDso3dnj2wbVZ95gN -lG/isDZX8zvDMSso39TBMzxg+5yXFlC+mcP76QXVLIow95k7nFjfKbwxCOZ+ -C4eGf492e8yH+c/S4WWYlJkS3P9WDr4R66/e5oeFj7VDyySZ8J0zYeFn4zBv -pv2BYEVY+No63Dx56KTFdFj42zn4L+qMy2NUgvLtHWwP2f/Z0i0L5Ts4HKl4 -f75AR/IAALYykB4= - "]]}}}, {}, {}, {{}, {}}}, {{}, {{{}, { - Hue[0.67, 0.6, 0.6], - Directive[ - PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - RGBColor[0, 1, 0]], - PointBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7K3vn7ji/ET+AFTAof+A653Fl6WgfA6Hpb2r -Sq70KED5Ag67T0Z1T/JQhvJFHNZGrHm54YkqlC/h8GvWtkgHQU0oX8YhcjbL -6phkHShfweFORtvS+4wGUL6SQ+q0redn3zWE8lUcNka6JjotMoby1Rz2Jj3J -XB9rCuVrOBz4O1/M3sMcytdy8C6SvuwQZgnl6zhk3/kbvbDPGsrXc2iIlLo7 -850tlG/goPxlhv3kFAco39ChUWpT+tY8GN/IwdDgjdvnp3ZQvrHD+4hnf7WO -2UD5Jg6PjULOMR6zgvJNHURCT2+e+9ICyjdzCDienMKiCHOfucM11ZNzNgTB -3G/hEP9hbrvHfJj/LB1ULrGJKsH9b+Wwssvj8G1+WPhYOzycuMF750xY+Nk4 -eMqp7g9WhIWvrUPB0e6TFtNh4W/nUGpZEJfHqATl2zvkLtv8Z0u3LJTv4PCu -5+D5Ah3JAwDiG5Po - "]]}, {}}}, {}, {}, {{}, {}}}}, { - PlotRange -> All, ImageSize -> 400, DisplayFunction -> Identity, - PlotRangePadding -> {{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, AxesOrigin -> {0.515625, 0}, - PlotRange -> {{1., 32.}, {-32.861117675680354`, 0}}, - PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> - Identity, AspectRatio -> - NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes -> {False, False}, AxesLabel -> {None, None}, - AxesOrigin -> {0.515625, 0}, DisplayFunction :> Identity, - Frame -> {{True, True}, {True, True}}, - FrameLabel -> {{None, None}, {None, None}}, - FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines -> {None, None}, GridLinesStyle -> Directive[ - GrayLevel[0.5, 0.4]], - Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, - 2][#]& )[ - Part[#, 1]], - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 2, - 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 1, - 2][#]& )[ - Part[#, 1]], - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 2, - 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange -> {{1., 32.}, {-32.861117675680354`, 0}}, - PlotRangeClipping -> True, PlotRangePadding -> {{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], - FormBox[ - TagBox[ - GridBox[{{ - FormBox[ - - TemplateBox[{"\"Xiong, Log[Abs[Im[]]]\""}, "PointLegend", - DisplayFunction -> (StyleBox[ - StyleBox[ - PaneBox[ - TagBox[ - GridBox[{{ - TagBox[ - GridBox[{{ - GraphicsBox[{{ - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.1155], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - RGBColor[0, 0, 1]], { - LineBox[{{0, 10}, {40, 10}}]}}, { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.1155], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - RGBColor[0, 0, 1]], {}}}, AspectRatio -> Full, - ImageSize -> {40, 10}, PlotRangePadding -> None, - ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, - GridBoxAlignment -> { - "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, - AutoDelete -> False, - GridBoxDividers -> { - "Columns" -> {{False}}, "Rows" -> {{False}}}, - GridBoxItemSize -> { - "Columns" -> {{All}}, "Rows" -> {{All}}}, - GridBoxSpacings -> { - "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], - "Grid"], Alignment -> Left, AppearanceElements -> None, - ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> - "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { - FontFamily -> "Arial"}, Background -> Automatic, - StripOnInput -> False]& ), - InterpretationFunction :> (RowBox[{"PointLegend", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], - ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - RowBox[{"Dashing", "[", - RowBox[{"{", - RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", - InterpretationBox[ - ButtonBox[ - TooltipBox[ - GraphicsBox[{{ - GrayLevel[0], - RectangleBox[{0, 0}]}, { - GrayLevel[0], - RectangleBox[{1, -1}]}, { - RGBColor[0, 0, 1], - RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> - True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], - FrameTicks -> None, PlotRangePadding -> None, ImageSize -> - Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], - "RGBColor[0, 0, 1]"], Appearance -> None, BaseStyle -> {}, - BaselinePosition -> Baseline, DefaultBaseStyle -> {}, - ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, - If[ - Not[ - AbsoluteCurrentValue["Deployed"]], - SelectionMove[Typeset`box$, All, Expression]; - FrontEnd`Private`$ColorSelectorInitialAlpha = 1; - FrontEnd`Private`$ColorSelectorInitialColor = - RGBColor[0, 0, 1]; - FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; - MathLink`CallFrontEnd[ - FrontEnd`AttachCell[Typeset`box$, - FrontEndResource["RGBColorValueSelector"], { - 0, {Left, Bottom}}, {Left, Top}, - "ClosingActions" -> { - "SelectionDeparture", "ParentChanged", - "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> - Automatic, Method -> "Preemptive"], - RGBColor[0, 0, 1], Editable -> False, Selectable -> - False]}], "]"}], "}"}], ",", - RowBox[{"{", #, "}"}], ",", - RowBox[{"LegendMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"{", - RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", - - RowBox[{"Joined", "\[Rule]", - RowBox[{"{", "True", "}"}]}], ",", - RowBox[{"LabelStyle", "\[Rule]", - RowBox[{"{", "}"}]}], ",", - RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], - "]"}]& ), Editable -> True], TraditionalForm]}, { - FormBox[ - - TemplateBox[{"\"Evan, Log[Abs[Im[]]]\""}, "PointLegend", - DisplayFunction -> (StyleBox[ - StyleBox[ - PaneBox[ - TagBox[ - GridBox[{{ - TagBox[ - GridBox[{{ - GraphicsBox[{{}, { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.462], - AbsoluteThickness[1.6], - RGBColor[0, 1, 0]], { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.462], - AbsoluteThickness[1.6], - RGBColor[0, 1, 0]], - PointBox[ - NCache[{ - Scaled[{ - Rational[1, 2], - Rational[1, 2]}]}, { - Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, - ImageSize -> {10, 10}, PlotRangePadding -> None, - ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, - GridBoxAlignment -> { - "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, - AutoDelete -> False, - GridBoxDividers -> { - "Columns" -> {{False}}, "Rows" -> {{False}}}, - GridBoxItemSize -> { - "Columns" -> {{All}}, "Rows" -> {{All}}}, - GridBoxSpacings -> { - "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], - "Grid"], Alignment -> Left, AppearanceElements -> None, - ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> - "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { - FontFamily -> "Arial"}, Background -> Automatic, - StripOnInput -> False]& ), - InterpretationFunction :> (RowBox[{"PointLegend", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], - ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - InterpretationBox[ - ButtonBox[ - TooltipBox[ - GraphicsBox[{{ - GrayLevel[0], - RectangleBox[{0, 0}]}, { - GrayLevel[0], - RectangleBox[{1, -1}]}, { - RGBColor[0, 1, 0], - RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> - True, FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], - FrameTicks -> None, PlotRangePadding -> None, ImageSize -> - Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], - "RGBColor[0, 1, 0]"], Appearance -> None, BaseStyle -> {}, - BaselinePosition -> Baseline, DefaultBaseStyle -> {}, - ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, - If[ - Not[ - AbsoluteCurrentValue["Deployed"]], - SelectionMove[Typeset`box$, All, Expression]; - FrontEnd`Private`$ColorSelectorInitialAlpha = 1; - FrontEnd`Private`$ColorSelectorInitialColor = - RGBColor[0, 1, 0]; - FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; - MathLink`CallFrontEnd[ - FrontEnd`AttachCell[Typeset`box$, - FrontEndResource["RGBColorValueSelector"], { - 0, {Left, Bottom}}, {Left, Top}, - "ClosingActions" -> { - "SelectionDeparture", "ParentChanged", - "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> - Automatic, Method -> "Preemptive"], - RGBColor[0, 1, 0], Editable -> False, Selectable -> - False]}], "]"}], "}"}], ",", - RowBox[{"{", #, "}"}], ",", - RowBox[{"LegendMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"{", - RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", - - RowBox[{"Joined", "\[Rule]", - RowBox[{"{", "False", "}"}]}], ",", - RowBox[{"LabelStyle", "\[Rule]", - RowBox[{"{", "}"}]}], ",", - RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], - "]"}]& ), Editable -> True], TraditionalForm]}}, - GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"], - TraditionalForm]}, "Legended", DisplayFunction -> (FormBox[ - GridBox[{{ - TagBox[ - ItemBox[ - PaneBox[ - TagBox[#, "SkipImageSizeLevel"], - Alignment -> {Center, Baseline}, BaselinePosition -> - Baseline], DefaultBaseStyle -> "Labeled"], - "SkipImageSizeLevel"], - ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, - GridBoxAlignment -> { - "Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> - False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}], - TraditionalForm]& ), InterpretationFunction -> (FormBox[ - RowBox[{"Legended", "(", - RowBox[{#, ",", - RowBox[{"Placed", "[", - RowBox[{#2, ",", "After"}], "]"}]}], ")"}], - TraditionalForm]& ), Editable -> True]}}, AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], - GraphicsBox[{ - Thickness[0.0037210686909280345`], - StyleBox[{ - FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, - 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, - 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, - 0}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGI9IGYC4kaWo/2G4gYOOxyaHh23UHWo/21VcK7D0KHm -04aA7Fs6DtEKjh+TbRD8m9I1iUZHDRzkl7/w0IvXcvC9ODHmH7O+w38Q2K/h -0MLrv36Kq45DfEiQ+gJOKP+otsMW8x+HUl6pOzxOXHjNJF/T4U3xVtHf3uoO -m/TyFjPeUYHzX9Q+zj7/hhPOLz28zXXmXCUHf5A9h40cPixar3D2hBLEXXeM -HIQrJ5WcvaLkcBvkrqcIvr7WSuELXxB81SfN887+QvDB5jEbOzhPaBZKW6Xk -ID71CmeGkrHDVq8NFnMs+SDu3WXlcOqw09rMeSpwvtS8OM3TF9Th/C0g9//R -dOgPLlGZ3m/lYGIMAloOM2YCQSdUvkbbocfrFYtJoZXDE5D/+3UdbCojVpja -Wjn8+Vb6YE6hPsS9Sywh4ctq4LD4/j6+OcWWDvtrZS3SrxhAw88CHh9gez6b -w+MLxofF5xkQ8LF2WHJr+WNDZgY4/4Hfy4S/83/bw/g5UxMKLYp/24Pd62nt -ILNRbD7Tg1/2X4DRPcvc2uENKD7W/LI/AQoHPQQf7K4vVnD+gbbl4acuWTmI -gML3iTzEv4ZGDg3itayZx/7YQ9yvCjf/UYT49osLEHwJUPg3IfgbweGG4MPS -J9idM//A+TD/wfjo6RkAS9VRMQ== - "]], - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGI5IIaxWZDYzCSwGaB8BjL0DhR7oNwMAEUOAp8= - - "], CompressedData[" -1:eJxdlHlIVHEQx1fXa1003Usidd/b45llVLpZmcIs4h+atKaiQlaax2aXHQbl -EZIXtZkWEWpSJtUqFBqpqJRo/pGSimkFSWCRRVKGioSVaP7eb3ceOPDj8WF+ -x3xn3gx7JDc+SywSiRxWV/Lqclxd2zY1y0czA8A6Yf2yXSwFO5uzV+2bFOob -tV1LAQL/nfnRu1sscNzEhsL0MQ45dsA14k67wKUeppZbDzkwTUWP7ZBLYSr9 -/nvDVg42zuum66KdoW3n4stMdz34PlXdc0wTw743N1KXM3TIs40tzPCAFllE -rFgLpT5FzjnlTshnrHmty1UuyNn8+66guHgzb7hNS/VFSqGW2ActROQZi17X -e1B9Zh0kzIzP1bByqv+BjsYnUYIhhJgejpL7XFQQGv4i/nafwDFE7zuB6X4O -mb+vlIMhYteUsJ/ka14PP8tPWoL3KKH4X9jpkSY9jZdTIPP+A3LkzoSwlBWr -DBwlV9UZv/QgJ7qmvCEnd7ZsMI9DttfHzrze2gCoSrGYHEZlyE9kQZ7mQwpk -pruhJ8vTro+D/MnFiZDNPpCWGB/QMKhH5v2fdcg11evyQ/fqqL4hJWxh1Qsn -VDrU1/x7+sJQqxauk/erVbZ9GjxP42SReZ2v1Mh8nHf9aH2McuQyxlU/ZJAh -91l6Lhv6vaGGyFnvj5xIzqUL3Mt/BU7Vp/iOLK1hXzWNM0hG43Ni4FPUYWOd -t5LmK5DF+jYRfaMCF5C4j2uQPwb6PV55pqH/xTklMp/vUwrkCqLnrZyeL7Cx -Qkb7KEkDlSR/s162/LEgNXrG1ARKIFmiqgipYrGfhol7icF+sYRHd2efFZjW -XWC+PqK1fjUs9My1m5OcqG4jAx0xrbvq/zjR+Cy2/Ywrcjvxd7mt8bvD89zC -mdoohup4JKX3X1Ij2+tjZ1pXP5tOCTL//7S6IPP9bhLT/p7yp/GqHCCyukSW -fYxBvkL0x7PI/Dz5zkIcmUfjYjjf3xFV66dBfXz7lmjo+7GO4HUwbjLYrMXz -X8n8MumQB7o7K13iOGT7/OTrM+0Ga+frf3AfOH0= - "]], - FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, - 3}, {1, 3, 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJZIGYC4i3mPw6l3DJzqPm0ISB7lpYDjC+z/IWH3n4t -hy8g4etmDvpaK4UvHNFy4PNfPyX1hJmDeI/XKxYRbQeZeXGapyeYOOyvlbVI -f2IEl3dsenR8hrUFXL8xCCRbwM1PAwMEnwekrwLB9z7Bbjt7q4XDTBBYaebQ -yHK03/C6hUPJVtHfp+vQ+HYIPli9JtT8ZVDzpMwcisH6LBwOty0PP/XI2KEb -6HwTRWOHgjXdtzMuGEP0/TSC8xff38c35zOCD1b/EMEHm3fOyGEJSN1lY4f6 -31YF504Ywc0Hh8cSI7j94PCaouUQo+D4MVnHzCHglnRNopEW3P1T2lujLt/R -hPsPxof5H8aHhc9/EJBHxBcs/gC7/9ng - "]], - FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, - 3}, {1, 3, 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ7IGYC4v8g0G/vsMX8x6GUXSYOMH6P1ysWE0NThxvS -NYlGqgj+icNOazPf2cH5TxIXXjOxt4LzS7aK/j79zxLOd2x6dHxGNYLP5aZa -ynTLAqJunglEf76Fg11lxApTWxMHHv/1U1J/mDv8+Vb6YM5CYzjfxBgImhF8 -XhAdYexwBgRkLOD8UyD32SH4G/TyFjPmIPgw+6ZP4K8yizZ2UHvSPO9slwXE -nBpjh2Kw+y0cYhQcPybzmDikxN5xYz5hCecvf+Gh95/RCs5Xf8u7z2Angg82 -J8cKYr60scOBtuXhpz5ZOnSD/K9o5BAhvv0ig58lRN0bAwdbkL9lofITDRz8 -Lk6M+SdsCbGnEcFvZDnabxiO4BtorRS+wGIAFbeE+HOOvkN6GhAsQ+M/Q/D3 -18papItYOciCLLiv7zBjJhBoWkH9ZeDwYUNA9qxwK4f+4BKV6foGkHQRZeWw -EaTfxgCiPhPKrzGAxFOgNdz/X0D6l9vA+XtB9qXYOBSu6b6d8cHI4QgoPJxs -IO4yQ/DFp17hzGgyhPMPg+hNUPsqbRx8TrDbzp6qD/EHjy2cLzEvTvN0AYIP -Tlf3bOHuh/Fh4Qvjf9l5q+vvVgOIvqu2Dvyg9HHCwIEDlD53QeW/Gjg8zdL+ -Nl3XFhJPbw3h/GRQurhhBOeDw0nLGM5fcn8f35xiBF8C5L9JxpD8ZW8LDx9I -vrOD88Hx8wXBh+U/GB+cD4LtIfnICppfMuwd+kD+9UfkX3A6KUbwYfkbAMaW -sck= - "]], - FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, - 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, - 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJFIGYC4jMgMMfZwcQYCB6bOcD4KbF33Jg1zB0e7OOb -Y1yF4EeIb7/IkIfg8/ivn5Kq4ITBX3IfqPGwJZwP1ncPwe/xesViomjlIO/4 -MfnMX0c4H+QM49uY/A16eYsZ71jC+TDzYXyY/d4n2G1n9zqguqcBwS/eKvr7 -dBwmH+Z/GB/s3nlmDomHL2unNiL4MPNhfJj96HyJqVc4M5hMUN33whjON9Ba -KXxhiTHc/zA+LHzQ+dxuqqVMrxB8mPko4Qu0HxY/MD7YX9UIPix+0fkw/wMA -CRTHIg== - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ5IGYC4pASlen/E9wcaj5tCMiW0nKA8QNuSdckGiH4 -xw87rc2003LYqJe3mNHFzeEMCKzRcujxesViMtPVISH2jhtzhK7DF6Axs8Jd -HW6CtB81gPNPg/TfM4LzQdbNMjd1kJh6hTNjkauDzwl229mq5hB9vm4OxVtF -f5+us4Coi3dzMAaBxRZw96SBwDIEXxxkziYEv5HlaL/hdQuHEpA5fgj+k8SF -10zcEfyEw5e1Uy0RfLC5Zgj+AhudK7P4oPzpFg6/YnKP/jNydUgB+dfC3MEE -5K7TLg43hD45nmczhfO7QeHy0AjO/w8C6w0cDtTKWqSbuDqcvxr2Rl9aF+Jf -XjeHepD54VqQcDVxc5CZF6d5+oKmwwlNq0mnzRF8mPthfJj/YHyY/9H5sPgF -AOaZ0WQ= - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, - 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGI7IGYC4vv7+OYYM3k6cLupljKtMnSA8fW1VgpfuGLo -kM35c0H6aw843/sEu+3suwh+RcQK07OHEXyw/kMeDn+/lT6Yc9HQ4fOGgOxZ -2z0c/C9OjPm3GKq/1sPheZb2t+lzDRz+g4C6h8NGvbzFjDYGDlO+scXPeOMO -55dsFf19+h6CzwACJzD5Z0BgDYJ/XeiT4/lnUPPOuDvw+6+fksph6NDj9YrF -5KI7xF59QweQt2c5eDiseOGh93+hiQMvSN0JBL8YZP8zBP9ifjz7uZcI/kwQ -+OgBMXejicMb3n0GM395ONhVAgNmr4nD48SF10z+ezikxN5xY36B4G8x/3Eo -5ReCD9ZvaOpwU7om0egpgg/21xkEX/VJ87yzQQi+fdOj4zOaPSDiu8wg7uv0 -cNgACp83CH6k+PaLDP8QfLD9XOao6nPMHZaD/JXo4SAzL07z9AQo3xHBNwYB -bTR5Rg+HaRP4q8yqzSHh8dLdwQcUz6rmDjmg9PPY3cEWFB685vDwB9ONZg5p -IHDM3cEB5A9tMwceUPgfcHf4BEo3303hfHB6+mgKid8V7nD/z7PRuTJLDsEH -yzMg+LoTFvwwfOaGwa/7bVVw7oYJnA+LT7B5/xD8ZSBa0h3OB/trqjuqejt3 -SP55ZQhJlybukPiYZQiJPxUoXwrBV38LTCg/DeD8w23Lw08ZGUDCo80dEh9z -9B1YFk+yYnyK4IPT1ywPOB+WX7/svNX1txSRf2H5GQD0/a4k - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ5IGYC4v21shbpJt4Opw87rc28Z+QA4/cFl6hM5zd1 -MDEGgtNeDiteeOj9NzR3eMO7z2DmJ08Hv4sTY/5NtnBQedI87+wpT4dGlqP9 -htctHI5rWk06fRzBd1EtZZq1A8EPARr7fwOCP99G58qseZh88alXODM2Ifhp -ILAMwf8PAvMtHOybHh2fsdvTQf0t0GGZFg7pYIVeDkvu7+ObI2wOUbfcy2GL -+Y9DKb9M4Pxur1csJg+N4Pzk2DtuzB0GDiKfHM+nxXpB/G2sC3WHp4O5zd6g -aY1aDubXjuaaLPB02O4AtNhCC+6egFvSNYlGCH7Npw0B2VIIvsy8OM3TFzTh -/ofxYeED4+tPWPDD8BiCn3D4snbqSTT9H6D8AC2HM2Dg5fAkceE1E35dePzV -/rYqOLfDwAE9fgHw7OAb - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, - 3}, {0, 1, 0}}}, {{{59.72810000000001, 19.1391}, {59.72810000000001, - 18.948400000000003`}, {59.72810000000001, 18.696899999999996`}, { - 59.97810000000001, 18.696899999999996`}, {60.2406, - 18.696899999999996`}, {60.2406, 18.9359}, {60.2406, 19.1391}, { - 60.2406, 25.9094}, {60.2406, 26.099999999999994`}, {60.2406, - 26.349999999999994`}, {59.9906, 26.349999999999994`}, { - 59.72810000000001, 26.349999999999994`}, {59.72810000000001, - 26.112499999999997`}, {59.72810000000001, 25.9094}, { - 59.72810000000001, 19.1391}}}], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, - 3}, {0, 1, 0}}}, {{{59.72810000000001, 11.9391}, {59.72810000000001, - 11.7484}, {59.72810000000001, 11.4969}, {59.97810000000001, - 11.4969}, {60.2406, 11.4969}, {60.2406, 11.7359}, {60.2406, - 11.9391}, {60.2406, 18.7094}, {60.2406, 18.900000000000002`}, { - 60.2406, 19.150000000000002`}, {59.9906, 19.150000000000002`}, { - 59.72810000000001, 19.150000000000002`}, {59.72810000000001, - 18.912499999999998`}, {59.72810000000001, 18.7094}, { - 59.72810000000001, 11.9391}}}], - FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ - 70.66880000000002, 25.8609}, {70.66880000000002, - 26.434400000000007`}, {65.84219999999998, 26.434400000000007`}, { - 65.84219999999998, 25.8609}, {70.66880000000002, 25.8609}}}], - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGI5IIaxWZDYzGSyGaB8BhqpH+psAEKGAp8= - - "], CompressedData[" -1:eJx1lHtIU3EUx6cLzSIW9Fhl9qAkdbPd7d756sFRemAt7u/aS6h8lLPSysqS -XmvWopf0IFqWLkmF3qVZZgVJEmK1yoqKHv5hpmla0NOCVNpvZ7s/MDrwg312 -7u+e1/fcsUuzEsxKhULh4zoLXcfXdTQxR5zWoxLows4NejLPAG1VZcpWhwR5 -s9r7CMUG4KmVSQA7m+qOF/Iy7+hTe0gfKcj8kJrJCOKooRlztv6fZ2+16UxJ -jAd9i61Pj5WgZveZhQ+eCTJzNJ80xgfnbhifr/KwJEFws63oUTsPe1zXDIme -/N7ykKiueqrIkaAhcFuqwc7D8nSXbZfAeTfu0sokxvmHVVsiAhm77yUZoHLX -tidXQyXIrhzyxzmVg19+ycdNlwhcmbim1GcyB5O0zws+BEvQ1bmx0VETif0K -kaCc+j8xHmZ/HrDiG+MHNH4P40VjYr8u00bBhby3KxSjGd98s7/brGYc2NEU -MaJvL7+/BD/pj+Ao+F5OMguUHm6JBMvl60ut+wi8pvVP52Dx6tqeikkE60zn -cB48wfr762VuTi1+KVgZq8Syo+Z7ejhBzUiw3yMMUPbuo70ikYCCWi6P+aUR -GFmUFOr8wuPzZgIC1YVSkNmrFy+nLWmYoWzzzDOa4P/xRqxPxdg9R4sos+VP -zNrHnIj5nOdlbsvQdOavZuzWUxwPdaEugc9kPJjGm9/Lv5yxms5tPeNpwRt9 -CzZ54mXwMN4dV4SpmxPPGm8LmF+3iPpoEGAC9fcjMnvr8TK99kj9L+N+MTbd -859SOF9AfQ8kEPJ5QDUXIMBFqhd/Itfvzu+ViPotMsAGqttqEevwZYx+vcw4 -fw51sYBAI33gjg71s5mAo2Tcza4zOig9EuMzJ5fg+0p0kJXs/3j4DgK1t24c -8Dv8f26l87DosP5sAil03q/Cgcr44ToC9S8WfNIVhqM+M71+LcZLIZA8L2HC -qZUamd37JjG+RvvXFYb9yGTsfb+X3fthZezND/ujwX3cRUA7dvSPVTkasEnx -J3OPEdTR3nD8HtgJ/P7ccSfaFo7+0wT33aHD+8Mkmd8PDrrfkiVh/UF66P19 -/Qu8AFJM - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ5IGYC4u9s8TN8/gY51HzaEJAtpeUA4wfckq5JNELw -jx92Wptpp+Wg+qR53tl3QQ5nQGCNloPwJ8fzaTODHBJi77gxR+g6uKqWMs2q -CHK4CdJ+1ADOPw3Sf88IzgdZN8vc1CFSfPtFhnlBDj4n2G1nq5o77LzV9Tf1 -c5BD8VbR36frLCDq/wQ5GIPAYgu4e9JAYBmCLz71CmfGJgS/keVov+F1C4f2 -5eGnjL4g+PtrZS3SPyD4teu2JdW/RPD/g8BzBF/69SMzqStQ/nQLB+/qZn2f -tCCHFJB/Lcwd0kHuMApyuCEEDAg2Uzi/2+sVi8lDIzgfbO56A4c13bczGNKD -HM5fDXujL60L8e/lIId6kPnhWhB/Au2XmRenefqCpsP6hy+nbnqB4MPcD+PD -/Afjw/yPzofFLwC4lNwh - "]], - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGI5IIaxWZDYzCSwGaB8BjL0DhR7oNwMAEUOAp8= - - "], CompressedData[" -1:eJxdlHssVmEYwD+XFmv4g5bWbLVlKS3nOMcywx4axWrovBurTO5iYsbU8kU0 -WpRmmctkLi2xQoS1mpb6urlE+6qFSiXUahZmDOm85/2+84xne7fzO8/e97k/ -O6JSjsaaaTQaE/mEysdUPieSdf/apgls8nfMMG3iwcguexptB/U85DeEvnYd -R7ab8XkT92mdXo98rWaBnxhAPhN2262/l4DXWfnjLg8dF7MG2zsIXDDXFfNl -HDiO51X3nydwb9/pehNPDt7pksWcCOTckIAbOb7IfVREAk+p4TTkx1oH93j9 -OrbjwXKxJr7dm0B8nCydPFRQ8TPY3+UKdSUeJkdOEph7MHx5RSew+JMIeFN/ -tSLQa3H5BvujIqRGbBzYWos81dViNnkTWfG3E1mJV0cgbEvXkKZZhMBzeS6H -mwhcldJ3lhWLsNujpDe7ikBM+Ki/mRMy5H57UT4iqGwV1HI9tlwAbXNnVHYj -gfHI2vdikAAWNL4eZGN9jKzEu0hgtjU4qbIBWYnPS1Q5vWPzUu9nEYoCf5mL -Q4T9D3CD31bdXEUdsv2h4GX7TGSl3scIy9NzEYgc1mowxue5V1854WVgGzcQ -BVls8X44zfekpPIc9bNAWquXJLAv1VsmvBVUnkp0ni9LRn5C+8FXYO9HICt5 -j1unT0F2pvlNR1bsZ0qsLxMFVr8rEqTeKRxJyBHhoDwmlc8ktb7jdg6vfnyX -1vaDBuv/h+bPmgBH5+EmsuLHAWQn+mFpeM+MwPJ8xlhVpMD6bUWC+i/d1lWz -riz/sr0Vqg/hWfwfJHWeCug8PpLUeQmg/VaHnEf7sxpZ8bcIWYlXa8j/KY7Z -r5AgmvbnJY7V+5YEq1Smkdl9XmWl/7J5Vn/5vg3t35c8tH79WdqWg2ysj5G3 -+/yN7gswvJ+CfH//Qk/MMKeydskjdcCdgzE5LUKaBK3UfpULm/8aZCUffcjK -PE1JUEj7PIRje2EG48ui87WBMLbg2H7jiHpf2Q/HkZX99nCdXt6fH7dlRbr6 -4T417tf/q7FsmQ== - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ5IGYCYjfVUqZZCmEOpw87rc28Z+QA4/cFl6hM5zd1 -YACBN6EOK1546P03NHeIyT36b1N9qIPfxYkx/yZbOFRErDA9mx3q0MhytN/w -uoWDV3Wzvk8Wgs/xc0H65iQEf8KCH4bP4hD8rS01FzaHYvLFp17hzNiE4KeB -wDIE/z8IzLdwaFsefsooJdRB/S3vPoNMC4eZILAz1GHJ/X18c4TNIfpuhTps -Mf9xKOWXCZzf7fWKxeShEZyfHHvHjbnDwKEgnv2c5NZQBxNjENB1+LQhIHtW -fKiDuc3eoGmNWg5NgZ5zG8JCHbY7ND06bqEFd0/ALemaRCMEvwakUQrBl5kX -p3n6gibc/zA+LHxg/Np125LqMxF8CY+APxLZaPrroPwALYczIACMnyeJC6+Z -8OvC46/2t1XBuR0GDujxCwCbT9nA - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJzIGYC4kWTrBh9AyIcbgh9cjzPZuoA4/d4vWIxMTR1 -mAkCrgi+6pPmeWftEHxxj4A/EuYIvvTrR2ZSJgg+2DyDCIdb0jWJRqqmDpw/ -F6Rv1otweJK48JqJvKmDV3Wzvg9bhIPPCXbb2aImDjIg/RfCHbaY/ziUomXk -8I0tfobPyXCH6yD3fTNy2PDw5dRNS8Ih7vI0dUgDAT0EH+y+Q2Go/KYwh9OH -ndZmzjOG87tB7lNE8Bff38c357ORgwjQmrReBH8JyP1TEHyw/XMQfLD+RQj+ -G959BjOXhTnw+q+fkiph7LDzVtff1O1hDg5Nj47PuG3swAHy/7cwB2431VKm -X8YQ98uFw/lg+zwQfHB4VYU7SEy9wplxydgBJDxrSrgDAwg4GEPCeWW4wxeQ -RUeNHALkxLJ814dD7DttCOefBPnfD8HfXytrkX7FwEHB8WPymbXhkPjYb+Cg -aTXpdP2KcIfiraK/T9cZODwRkT35dDJUnl/foW15+CmjmnCHKe2tUZdrdOD8 -mk8bArJnacP58SFB6gsyEXx9rZXCF45oOTQFes5t6EPwz4DAAgRfDRSeq8Id -3EEOXK4Nd9/xXTt62T5oQ9yzOdxBHBQeTToOlRErTM8eD3eYs0h555/leg4v -tq9nfn4B6t8+A4etLTUXNl8MdzgMcsgmBL/2t1XBuR0GkHC8Eg5JDxcNHFxB -4fsi3CEdFC/bDCHivBHw+PQHhZ9zhEMJKHzmmTg8BrnHPcKhYE337YwDJvD8 -A06/vxB8WP4CAKqPfd8= - "]], - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGIpIIaxWZDYzFjYDFA+Ax419GTjcg893QkAwFcCeQ== - - "], CompressedData[" -1:eJxFlHtI01EUx2cblUVas0zzUdrDyG3+fmmWVuxYkZmOVZLdmSE6H0tCoyRU -rCztQVpqTVbmTJOyl6mzIb3MsGJZqaOhqJUo4iMbUYkP0mz399t2D9w/Pr/D -vfd8v79zrkdsyr54LofDsTGtENOaZVrSy6pk/nYZDCZ5j6nUIrCw0GP56JF2 -EfTgD4GE/0wb0ob9CTt2toyH+xLmRtgJNULCktiFKEAggz1dLpkxGhHgtNpL -Bj7r7ju0xYmgzbN78pSnDNwqh3aJZoSAr8/myEDXtK3q8DchPMztVnDyEYTp -5my9qRXC+Ozo62FqBFPGkcaAlSLg/w5qTbiDrOeN4XwnYveX+sAMDrEM7KXV -yvi5NPjiCJXBwRVBv+R5hJn9SsJ5u7/z/GppSHqRes1pB+FjikJjppiwa2Tc -5p6NhC3+WFij/ln5zuTPRxwltFV/KNaznwZ8PM9dBh1YyBoaUvjZjc2LCC9+ -HNybwSPM6JtEcIb3Np8OpuEGDiMC+aEvO7kKGhywH73Iqq+md7hIY0DWerYI -DMUDrwmnRM9pcS4ifKHyQPP6NAS1ouQKmynKyuJ0dG/DS8JHH5l+TBkFt68G -2kiyCL866bYpMYfwUH01d/Ai4bN7Q9RZVwi7jPT5LytAsLo/u/TTM4r1X4Vg -rXFBA/WeAtvJssS6YgSqAvsM/w8UoKX1es4DBP0x5e1+rRScx/U8ISx1d0yS -PEeQi/XoKateSz48dZVqRkfydboTDbfmmfv/q7n+KcT6fZeCCqxvFMHo065L -0+fMehoRnMb+d/hAT4NdiW8kAom+MOqf3NyvUgQ12L8ogZV/HNcu+RtKmJkH -vgCaPnvHO0cQZvRGEmZ8iSXM6JMjdr4cBVBQNkEPJCBwxfMjFrC60hEosV/z -hWz/5yIIxsK8hKzfSsKMP+WEmX6qQuBUZLBV9JnP01rmT8D694bo0+ZkttXp -SX1Mvp+wpb+t9Zvflwk8v1zy3ljen/9/NPE6 - "]], - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGJNIIaxWZDYzGSyGaB8BjQ2rfXiMofW5tPCnZTYRYwa -AJM5ArU= - "], CompressedData[" -1:eJyNlHtQTFEcx7ckr0qTxzaUYvCH1xbt3jVJv8ikyJbM2L13I6tSaYhBSs9J -DNWooRYrJqPZmtkUoizTNHk1OynvVEhTWRMNMsKUx7l3u+ewO2acmfPHZ+79 -nfP7/b7f85up2rk+apRAILBCW4W2NdqOWfWGkjnh0MSuFxTwbCerPBH1jYI9 -MQX9KW7hsO5hgfLnJCm40JHenULCU9qav4aNIjy743ta3HslzO3JOnt/vBTu -7as7N62V8BzPsToXPeH3obUzsjVKHH/mg/bumnTCLFJJhC9obrtXxVlyUf7E -ZMkNCnN9qqt020EKctU7nLL2E+4dKv/0KJWw/7XPP55kEM4oXJkTf46w1xK0 -riih4ZB2o0FFgVv2u9DaZwzs0uV0xHz0BOqIX0RvGQPt01O2LN5LQTobX8NA -blCfjVcmZaq/hcHntcxCDWo34z7CE+VLqxsHLZnX51/M94PL7w3hZZ2yPPU+ -BvfbyNa/igFj3PxBtb0UNjosvFwsIlzdiBJ2IvHmLEfyy+wJ39xz3NnmJ23B -vB488/Vs1gfaWU8g9elYQwkJa1n9ZhEOQfZ450n6WVWMHOHNgOHWiorYNArX -45MkLxMHSzBz+awkrBDWPBQsl0BAV/Lki74MKN39Pm11kZj0UdNYz9foc0As -jfVccHhqW3Mije/n/HGM1JOCfu86TZjzv45wIjpeVEHDQFXI9tOHKXAWvZxt -e4mG504Dfi1FI+/tKg1frrcf/VE64pcaGuv7v8z3n2Mt4fz+FF+xhMb6c/qN -prHeEY7IQB8VmDl9HitwvDlX7kYDoYnwtmi06iyZ159nvh+cnwyEN7D+a1X8 -7Y9uwsNIvuABBe6/TIUSHlZg/f1z4o1DS2mQs/o6eICveJM+cBkNwsIn42LO -i0z6+9Agmlc+6UGkCHpKkcFCzDjiD36AHmQ0DXf0tXm2+SPfE2jQvl296JeV -B3wN6y7VrGWgmvrWEJkshpOn0Epi8P0nkD2MBxgcz/U/jcHnc/MonzDntxLC -3PzQMrC2cYyPplBk8l8lg+/n/NWkhATWr44ULER2ynyqNOUTRIEr+/5fKXG/ -OHYIx/3k5zfP/Lw3Z95fvwEs679m - "]], - FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, - 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{120.52199999999999`, - 12.920299999999996`}, {120.52199999999999`, 13.575000000000001`}, { - 119.281, 13.575000000000001`}, {119.281, 24.184399999999997`}, { - 120.52199999999999`, 24.184399999999997`}, {120.52199999999999`, - 24.8406}, {118.62700000000001`, 24.8406}, {118.62700000000001`, - 12.920299999999996`}, {120.52199999999999`, 12.920299999999996`}}}], - - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGI5IIaxWZDYzCSwGaB8BjL0DhR7oNwMAEUOAp8= - - "], CompressedData[" -1:eJxdlHssl1EYxxUTay4TY6HUVFaT9/W+1gX1qNGqtV+yydq8h3L5JbeZbkYR -miVZi/2QdVkXqdxKVGu6iKQlmZU7lVaRyUg1TOe8v9/vfTZnO398dm7P832+ -z1m2P25PuKGBgcE8OvfSOZ9O6/Jtn5KmCSz0W3F4/m0e9Oy2unRRazsPdm69 -zsZjyLZGgeauQ3PWPyE/bb7qW9ONnBL1JPFCBwHv40G3PMp4eLe8+9+JFwTS -jBpyeQ0HPc7GafnZBKrWxl6b58XBZg/p8fZo5OLRksadKuSCQjp8CNSfLtnb -nID8NMVxfWT7HLbm4af/wyWZOwlERtBRw0OvKkcTu0f3/ip3yBimG2IITDzq -OjPTIMBZTaxV+jECm1i8KSKIAh0XdO/3iPCx5U/AlzLkZBZwFbJNJ91Qjyzn -20YgyLb2vUG5CK+O1F1eXEvgXECisyZXhIEkqngpgbDgHj9DF2Q49flVQbeg -sJmqIi+8QICMZ0xgAoOhVz+IKgES1edHkt8h6+ujZxa+YBgC45W7DxWVIMv5 -eYsKJz6wmXrTJwKtlp1RHwEmY+F2D0jN35odXYGcR/FbOjJ1i3V5JAEmb0Sj -CF+nSsfagjG/6xdfOlXu0LGFB8yysRTPy36bkBR2onJF5SHL9QiRwC6/3VTd -Jij8PWrNpCYG+TnzwxYBjv5YyZtEI2f5hHxtTZiznows65uGLL+fIcGKwfRL -b6MEbf2KJIi/m92tThWBZpOgfi8p9Q2xDNpQ/QuZyX/PDOu/4K7DvjB7Ahzr -h+vIsq+2IruMmNVxprr7LAlMTx4eKA4VYDe177ApgWv9debF4+5Ad3v2j0ow -w9b9df06KCn95MD68bWk9Ivstwpk2Z93kGX/FiLL+Z7R6X+Qgw7m9xsSHGD+ -zOK0/X1f0tZxFFl7nldY9t9JHhwzaYPdlMCC+beJB1caXloOsr4+evbqpw0a -qLs/Drl63d8XYV2cwilTG+Nb1nMw2MoClqCSvV/sBpbptEHKkGU9OpGDqHyq -3xJk7xgyEv05YPJ7zmJ+09S+u6yIlk04uOJbMz7jRZTzst/UyPL/1oSs/z87 -7ZND3X3xP9X/r/8BjVZdHQ== - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJJIGYCYo2Y/kNfKxIcbkrXJBq5GjjA+KpPmuedlTJ0 -UGFrnOqcneAgPvUKZ8YhQ4f4pxeUboci+Pamcbs8XRD8nul5Qs0WCQ6fNwRk -zwpH8PfXylqkXzGA87eY/ziUEmXgYAwCzgkOZ8BA34H7+uIC2zAEn32NTFRK -PIKvs2nu++VpCQ4GWiuFL7AYwN2XngYEagYO6oYca2SyYOr1IOrjEhzWgzyk -q+vQnfP890rPBIeM/A+tJ0V04O6fPoG/yuy0tgO/LlAD0D0tvP7rpxxF8B9E -iG+/uADB11GU/5JTpu0QDQwuDQ+ofTraEP94I/isQOd1ByD4sPD9DwL2ug7o -4Q8AdTawIA== - "]], - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGI5IIaxWZDYzCSwGaB8BjL0DhR7oNwMAEUOAp8= - - "], CompressedData[" -1:eJxdlGlIVFEUx8fRwjVFK22DCq2hLN/zvUGzJk+LkonYQjlE2VzXKUuHmqJA -26TVzCJrrLQYxpgMTQvbYTStFG2xGorUMlpoQyxMK8zq3jfLAQ/cDz/ucrb/ -uZNScpalu8pkMhe6kuiS0+X1wqRTWQh4xYZskV/kwcFh0yoC2qw8HDZk++ff -QPaST98/+uqQ/RrktR/aJndUIUcrk2/FVRJQbVdfUFbxkHmsOzfaSGC3270i -3sBBjn9+fcteApdnZptc5nBwbmzYq+CtyI9/Ln93PhP5ATMNgcZ95qSWTch1 -eRMiM61DeCQPfYrVRQ3pBDIzqF3jocd8Pz5ind3/1HBoZAeovx832w8N3hOg -KT7i4LxcAnNZvHkinGJ20O6/U4SsjwMV308i17GAS5ALNtADRmQp3woC6sDr -T2SXREid3ZVYeIbAkeX6YEORCDqV5wtTMYG0NZ2xrgpk2PO2qaRDcLJPYnVx -eokA8zS0wPT+e2J8LiYKMKu2eavFjOzoj4MFZo0EemuWZJ02I0v5qUQn66+O -Gmh9LcKaW3He8mpiyztOCfUtxphrBuRWir27kU0swM0EWHkz7ovQO2jd9jkb -83uWkOKnTrezrxL+MUvE+5LeopCP0nIpPZGlfnzTQNAJq4f2qeDkT+un9xs2 -It9hepgvwG398SC3fuS7E2s2aX8P2f+LLNVXRpws+ZcTCHmff/bhesHWPx8C -usqCDu0u2j8/9axaBfaXc68cvyoS2YWW/2UssuvKETOuJBDg2DyUI4us7guQ -Fd0+Fs7D/t4iAn/6t7wpJQIw+fYtJGDqsowo7Q0H3xlXynoiCAyy/aX2eQ3H -eSpk8xiM8yLpLRBZ0ucoZEm/3shSvsPs9V/HATv+3Z9AKtPnAc4232OIrY89 -yLb7vJMl/e3kgUavWB1AwJfpt5kHFl79cGRHfxxcxgb0q8b2fg5ybcSvhrR2 -zsl5A1G6R5EcbNbSgP9poIb5Lw2DA2xARhMnS/UIRQ6l5TNTvRUs/uImLuVg -BS1/WTTmx+Q7Jc7O7hzQbH7vSMb7kt70yNL/Vo7s+D9fjssl4TH4nzr+1/83 -y1pZ - "]], - FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, - 0}, {1, 3, 3}}}, {{{155.29999999999998`, 18.879699999999996`}, { - 155.29999999999998`, 19.25}, {154.955, 19.25}, {154.764, 19.25}, { - 147.48099999999997`, 19.25}, {147.302, 19.25}, {146.944, 19.25}, { - 146.944, 18.8922}, {146.944, 18.5219}, {147.29100000000003`, - 18.5219}, {147.48099999999997`, 18.5219}, {154.764, 18.5219}, { - 154.944, 18.5219}, {155.29999999999998`, 18.5219}, { - 155.29999999999998`, 18.879699999999996`}}}], - FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, - 0}, {0, 1, 0}}}, {{{165.95899999999997`, 22.170299999999997`}, { - 163.85000000000002`, 24.374999999999996`}, {161.73899999999998`, - 22.170299999999997`}, {161.95499999999998`, 21.907799999999998`}, { - 163.83799999999997`, 23.0875}, {165.72199999999998`, - 21.907799999999998`}, {165.95899999999997`, 22.170299999999997`}}}], - - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGIpIIaxWZDYzFjYDFA+Ax419GTjcg893QkAwFcCeQ== - - "], CompressedData[" -1:eJxdlH9IU1EUx+dcZTozFiWYkYmKNXLv+Z6Z1fCsH+aPYtBPtZLSay4LM0MJ -icKkMkZkkGj4q2UilpSWaBjIiixRKgtJQUMpwwqsrNAKhe69e28HunD/+Ozc -d+73fM/ZXZF+fEemp0aj8aA7gW4t3TONk2+2dxDIOkxXmwgqL61JW9k7KsKt -XLP3wAPk2f5Tn8NakPuCh/6cuYvMv7/93/lGAknd88yVXSLo9ixYfb+eAJx7 -/7zCLsLgy+mdHxwExg453sqxIgheTYGpJQQGDD8sr8JEqP7W8CxJIuBnvXct -00uEHseWtp9mAqFjxTUvUkWgt6Uv3Iz50joS9NqjSj0Fka74QwL7gyyTGdtk -YHKznQQeX2jY22OIcjO/fznydbYSoqC7oLM24BEyk1vfjsz1tCCr/qj8i/1A -/ako9StcY4xy15/bZB+yOWVIjmntLqgh0Br9+wkplCGFrB+xliEzO4gdmddX -rOS7I4P3QF2uuZBAS0ROncewDHqt8eKSE1gfS3c5C/WY2QcpyLy/0chhIr0x -mIB3XGi+dp3sZu7vkOTmQNbfZglYuWI4csjcorJNRuT6yqdBzRHI3I9IZN4f -mYAv6++gBPR0ni2GQLJ/+2vNVyW+QTn/XYI829WJ01sJFOm6rojTElgOfuwL -tiJXsQS7CPgw/X8ld71qvCLHUOxMw7iGrVJlPvSK/+eVeIcEskTXWQLhE76d -wiUJmF11yQTsiV90siMSdtN2VvsQKGf96BVc5z0JCKsaF/XpkGem8kerJk1u -bmb9qjLBHGqX3QuZ69Ejc78NyPz/Rtm/rH++7abJNW+LCSxr+BQfMWJy+Uv7 -k3FgOM6zRAA2nrMCgfFs41R5teCa52hk7rcF+UaA6V1IojIPRwSg6o6NW5V8 -8QI42cDvw/pYO2IzUd9aOs6dJ5HV+VZZfV+4/o343qjvzz/HnvDV - "]], - FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, - 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{168.88099999999997`, - 12.920299999999996`}, {168.88099999999997`, 24.8406}, {166.986, - 24.8406}, {166.986, 24.184399999999997`}, {168.22699999999998`, - 24.184399999999997`}, {168.22699999999998`, 13.575000000000001`}, { - 166.986, 13.575000000000001`}, {166.986, 12.920299999999996`}, { - 168.88099999999997`, 12.920299999999996`}}}], - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGI5IIaxWZDYzGSyGaB8BhqpH+psAEKGAp8= - - "], CompressedData[" -1:eJx1lHtMjWEcx08XuQu5NGUpIZ1znPec901l5FctFpmh28Kh9LxdljSXhglp -I0JZzsrOKcUstQwtlxI7LpFKpeXSbWsqudQItayY9znPOe+zZf2254/Pfs9+ -1+/zOEbs2YwsJBKJmXBChGMunEnvriasCuNB4Vpo0xCoglDP0qpENQ9p675Y -cvkqCJomL8mJ4gFOfHiRrWVFTrasTFe6cyLXYgtwg7NxPcOFG8Zm753dDU6r -KUdMFzIyPDw+WRBS3ciJzOB6Iimf37LfOcvayB48LOpKyX31hYXYiv2ZtiuN -9bWyoC73n2K+noc2uyPhKg0LHCvYRh5qnvrciFFTzsqwPrzcjnLo3HuvJWoV -PLo8T9HuzMO+O7OHa7wYkJXkfCv4iOD2svirZisZwO30O/EwMnigQ/fYHXTP -FtzaK9y/hf29lG01TROjf1Cuxvn/Ut66wLt/l8wD9kZf6DviQFlfne93145y -f+OGiOmzRvlteBgoaznzZ5EHxM9M0VfPMHK3O7T9Phpb0YSgGffvxwAed+sN -BFE8NobsoxCR/icrRe4Kz3/LHaNsvfHmRVSlhFS8sCJE5j1PBcyEYvuwCgQS -bMeF+eGBP0Fgn6teWvOdJfcFNszVghPZpBcTR25vW2PxybjPYgSXsPm7kf6y -KAvTf75+D+Wmg58XK7cZ6yliRf4UKx3M2k3ZoCcfFnC4n+GU8ThD0Sh/DOWh -LZ3XtHGU87Ac4o35Ylm4phUWeBiB16HQ624POVJfulEfbRzg9UZrKJv6MbHG -Ny2uR/s/k/dFOaBq/CptEEf0nY3ApW/qI2YiR/SSSfs31HcSEf3mqki+Ywjm -Yv2ZUyZ+pchk/wzZ0wMEHfiCXkH0U4tAd2Vh2UiBAralPxlwaTDGu6KAcclC -hQJXlt8/Z5UxNvfgfSQpwDJY+CBeItiJ9/1eDh6nBQFUIah/E9yr0MqJPitN -fhnJp0ewI3DzkrwYqciG97aJcime34grMO3OVsmVlE3xTSw7Nae5rp6yqT4y -Hyn57xoRyBwdfsUlSkGIpvFtRZA0vCKhLlUOZlIhQAuCob6ves8UOfF3IvLe -dQrynu15kfF3+G0tT/qfr4TR/+s/TxBnXQ== - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ5IGYCYp1Nc98v50t3qPm0ISBbSssBxg+4JV2TaITg -Hz/stDbTTsuBY41MVAp7usMZEFij5ZAkEGG55U6aQ0LsHTfmCF0HB9O4XZ5n -0hxugrQfNYDzT4P03zOC80HWzTI3dYjd5cnDdD/NwecEu+1sVXMHljA+3U2c -6Q7FW0V/n66zcPiz8uMlX6D9xiCw2ALunjQQWIbgi0+9wpmxCcFvZDnab3jd -wkHNEOhiLgT/SsVLoBCCf+dnXdYeFgSfAQSQ+CZA5/L8SoPwp1s4OCY8vaB0 -OM0hBeRfC3OHD8uPeZuvTHO4IfTJ8TybKZzf7fWKxeShEZz/HwTWGzgUZUx8 -WwPUf/5q2Bt9aV2If3+mOdSDzA/XcggFcucypzvIzIvTPH1B08EAFOAsCD7M -/TA+zH8wPsz/6HxY/AIAY9rPjA== - "]], - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGI5IIaxWZDYzCSwGaB8BjL0DhR7oNwMAEUOAp8= - - "], CompressedData[" -1:eJxd1H9MTVEcAPB68qOkzM82bFjlrUb3dm+rkL5pWLWEN3mzULycJ6S1NKaQ -jBIqtFcqm6W9aqm0/JxClFYkeZN+LOnH/FpLUiLhnPt+fMfZ7h+fe+6555zv -+X7Pop0HNoVPMDMzM6fPFvrI6JMX5WXVMlkNU9c6HJQV8WC0i1PhzCYdD478 -lOL5MnR+9pOFZb/Jv/0/0T+ORtyP+Y5+0/hd0TNMwOuwssDtOg/mzqfntH4i -kGBRk8prOKCjt6peELixLDLPfCUHnhV1sVUP0Or0/jjvG+jdrBUReHxKu6U+ -Gv0gfoEH0f3nWTykVQ/LQ0oJEPb+Fg9JPqF9TeWG+Ze4Qkgq/eAhgW93286M -1whAexe31xBYxdYbL4Io0PbKMH+HCBMTMnxTutBKtuButP0k+sFntLTfrwSU -c2+/NCsRYVx36KNjH4Hzihh7TaoIVi004p0EVNs61k6Qo+FE99PMdsHkaUGl -l8IzBehgAe4l0Bt29bUYJIAucOd05SDaeD5GP2PNWg1DZRv2Xtaipf15iSbH -3Jw91tApwqiiJz97lEAWa35usFW14m3QOzTjuQa0F1tgJdHHvVaEs5rIGYl3 -cH/73o8VDpYYbOumH5eF46+xfEtEO9FwNSrQ0nl4ErDL0FmqmwWTP0Q4j2j2 -ox+xfFgtwGabpeW53ujt9/ysZb7/9a9DS/H1R0vzBxBw6E288jxC0J9fMIGo -4pR29XERfhUONgdG4/nWX11zaygBnUPDH52Gzh3Q1gZoCHCsHq6hpbzyRcv7 -p1Vxlob/pRP4NXKwKydMAJa+qecJ5L2tsskZcoWC2gD3ZDrfOOvfyOvjdwTr -Sc7qMRLrRcq3MLSUnzvQUv4Go6X9rjfEfw8H7POUEAK7WH4mcfr63kXgD2sD -aP143mQp/47xIGcFRsfbsvyt44FjBb8BbTwfoz2SaYGKhv8fQFe4j1ar2jiT -48eWRzV6cGAtowv2I1DG5s9xgcXtdAWhaCkesWgWPp+TBFL8P1mIGzn4omVv -cH+ZNH0fXjB4Cgd0NxftCnC8lG+VaOl+60cb78/WeXFhrmvwPjXer38BcNdi -hQ== - "]], - FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, - 0}, {1, 3, 3}}}, {{{205.60000000000002`, 18.879699999999996`}, { - 205.60000000000002`, 19.25}, {205.255, 19.25}, {205.06399999999996`, - 19.25}, {197.78099999999998`, 19.25}, {197.60199999999998`, 19.25}, { - 197.244, 19.25}, {197.244, 18.8922}, {197.244, 18.5219}, { - 197.59099999999998`, 18.5219}, {197.78099999999998`, 18.5219}, { - 205.06399999999996`, 18.5219}, {205.24400000000003`, 18.5219}, { - 205.60000000000002`, 18.5219}, {205.60000000000002`, - 18.879699999999996`}}}], - FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, - 0}, {0, 1, 0}}}, {{{216.259, 22.170299999999997`}, { - 214.14999999999998`, 24.374999999999996`}, {212.039, - 22.170299999999997`}, {212.255, 21.907799999999998`}, { - 214.13800000000003`, 23.0875}, {216.02199999999993`, - 21.907799999999998`}, {216.259, 22.170299999999997`}}}], - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGIpIIaxWZDYzFjYDFA+Ax419GTjcg893QkAwFcCeQ== - - "], CompressedData[" -1:eJxdlH9IU1EUx7c5ytZEMcgoI4OUSnDv+d5aP5Qdi8SlIRjSMDPzR627oQYq -IhaZlMkUE41NNEtNliSlMAzE1H5YovbDGJloKWVohfkr1DSpd9/23o0u3D8+ -79x37jnf7+FuT0qPSXWTSCRSbuu4LeN2xSGzacLNCGfPcKuVBoG31CTs6huj -IUQxWJ+xikS2pHkXdC0TNrVnlm9aIsz/P//f+TkEkT1rQ6u6aaietj2PnEYA -lz+9sJppyDSUTeV9RzB+uvYdq6Whv/Zw6/wAgkHvubDXATRoisISv+Qh8Ix+ -UJHqTkPKgdHokkIE/uMFNS/jaCg2Taw0lpB8i8c+N1TZkbOf7GBnXGqEeL+w -2eQoFnC5coURHl+1He/1VovM37+NcCVeOjWkeOn32eWEcbla6T9xXM8KElnQ -R+Bi/IHTx3rdM3dPoFrsP6PJPGzoYmHm7dEkr0kEds3Sk5RcFn6uOnK+fiR8 -m5Nj1UGY76/fle8eC3cyQhWDTxG0BKXVS0dYsFU982tuQ2J/f7h0AS2kHs7N -UEU9YS32N59wZy9ngBGBItw/S7afFZnXd5gR2Rf728xAOtdu73nCnbc2qz5k -EtaqE9p0OYRLsR55hHl/LiDwwP6+Z+BUm04pK0Cg93k4IPnhil9xnZ9hQCkL -LNxYhiBf3l1KLzIw8usiarcS1nDXKWsQrMf1LzNiv0Kccm/yjbtL4lbc9xBy -zofSpf8rV7yNgX68ehDsnPLooIoYcMcJ6xCYj3yTs7XBgO3UxCKwYD/6KOf5 -KATU7sYNb+SEfy9kjVXPqkRuxn5VqwDLtSOGMF9PLGFe7xOEDXhA4xH43HCs -M9SpnPOWgGCrbTIiaFTl1NeEIPnkSLjbNQpCuPG05CKYQIELlpsUJOJ5vkSY -19tMeK+9J7uj3DUP5yjgqluTX+nKF0GBHg98A+lPwtkxdJ/U5+DGWf+IsDDf -AgvvC1//QfLeCO/PX0e9C5Q= - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ5IGYCYh4m7XaxudkOpw87rc28Z+QA4/cFl6hM5zd1 -6HBMeHqhKdthxQsPvf+G5g4FtlzXF/tkO/hdnBjzb7KFw/LZRxQ2OGU7NLIc -7Te8buFwZqHrts+OCP58Kf27KnYI/nFv805HGwT//Pfgx0vNMfniU69wZmxC -8NNAYBmC/x8E5ls4fPl7peIl0Hz1t7z7DDItHGbMBILMbIcl9/fxzRE2d9hT -MlmCpSrbYYv5j0Mpv0zg/G6vVywmD43g/OTYO27MHQYO/Ye+asSkZzuYGIOA -rgPIutlA95rb7A2a1qjl8OGSb5KARbbDdoemR8cttODuCbglXZNohODXfNoQ -kC2F4MvMi9M8fUET7n8YHxY+MP7yYyAFCD7IeWFOaPp9oPwALYg7m7MdniQu -vGbCrwuPv9rfVgXndhg4oMcvAOng12I= - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, - 3}, {0, 1, 0}}}, {{{223.928, 19.1391}, {223.928, - 18.948400000000003`}, {223.928, 18.696899999999996`}, {224.178, - 18.696899999999996`}, {224.441, 18.696899999999996`}, {224.441, - 18.9359}, {224.441, 19.1391}, {224.441, 25.9094}, {224.441, - 26.099999999999994`}, {224.441, 26.349999999999994`}, {224.191, - 26.349999999999994`}, {223.928, 26.349999999999994`}, {223.928, - 26.112499999999997`}, {223.928, 25.9094}, {223.928, 19.1391}}}], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, - 3}, {0, 1, 0}}}, {{{223.928, 11.9391}, {223.928, 11.7484}, {223.928, - 11.4969}, {224.178, 11.4969}, {224.441, 11.4969}, {224.441, - 11.7359}, {224.441, 11.9391}, {224.441, 18.7094}, {224.441, - 18.900000000000002`}, {224.441, 19.150000000000002`}, {224.191, - 19.150000000000002`}, {223.928, 19.150000000000002`}, {223.928, - 18.912499999999998`}, {223.928, 18.7094}, {223.928, 11.9391}}}], - FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, - 3}, {1, 3, 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ7IGYC4g7HhKcX+nIdtpj/OJSyy8QBxu/xesViYmjq -YMt1fXFBI4Jvc9+/d3oVgp8iEGG55UkOnF8A0nAHwT/ubd7peAbB/3DJN0lg -R45DyVbR36fnmTgsnX1EYcOqHAe7yogVprYmDktABszOcfjzrfTBnIXGcL6J -MRA0I/i8/uunpEYYO6jc/lmXtQDB/x78eOnsJQj+n5UfL/muQvBh9k2fwF9l -Fm3sMF9K/67KuhyHMyBQYwxx/54chxgFx4/JPCYO+ULNB05dRfCnSLCE8d1F -8Hl1N819/xnBT00DgldQ86WNHRyAwal0O8ehG+R/RSOHI181YvqPQe17Y+Aw -B+icogNQ+YlA/vvlx7z35zgsf+Gh978RwW9kOdpvGI7gG2itFL7AYuBw4NRC -123Hcxw26OUtZpyj7zBjJhBcROPfRPD7DwEdcD/HQRZkwX19hz0lkyVYHkHt -YzRwsNhyomzf8xyH/uASlen6Bg45IAUvchw2gvTbGEDUv4LyawwcYnd58jCx -58L9D/LeIUME/wowuiM0cx0K13Tfzvhg5PD3SsVLNdVch3RQOJkh+OJTr3Bm -NBnC+Yfbloef2mTg8B8EtHMdfE6w286eqg+JTzsE/wtIgxeCnw+Kv4hcuPth -fFj4wvhfdt7q+rvVwKEkY+LbmvBcB35Q+jhhAEmfIVD5rwYO55WACcwp18EW -lD7fGsL5ybF33JhvGMH54PyjZQznL7m/j29OMYIvAfLfJGNIvLsgwicDFKAl -CD44fqoRfFj+g/HB+aA914HLTbWUycrEIR6UvDpzHfpA/vVH5F+/ixNj/hUj -+LD8DQDxPb5h - "]], - FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, - 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, - 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJFIGYC4v8g0JznYGIMBI/NHGD8lNg7bswa5g79h75q -xFQj+Pamcbs8KxB8807HhKcqmPwl9/fxzTlsCedHiG+/yHAPwe/xesViomjl -cNwbKCKD4Ify6W6aK4zJ36CXt5jxjiWcDzMfxofZf6XipZrhgVxU9+xB8Hun -5wk1b8Hkw/wP44PdO8/M4S/IwL0IPsx8GB9mPzpfYuoVzgwmE1T3vTCG8w20 -VgpfWGIM9z+MDwsfdD63m2op0ysEH2Y+SvgC7YfFD4p7qhF8WPyi82H+BwBd -Z9Ne - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ5IGYC4ikSLGF8pvkONZ82BGRLaTnA+AG3pGsSjRD8 -44ed1mbaaTnkCzUfOKWb73AGBNZoOZwo2zdfijnfISH2jhtzhK7D0tlHFDZ8 -ynO4CdJ+1ADOPw3Sf88IzgdZN8vc1AHIK8pgzXfwOcFuO1vV3CFnT8lkCYN8 -h+Ktor9P11k4pAhEWG4xyXcwBoHFFnD3pIHAMgRffOoVzoxNCH4jy9F+w+sW -Dj3T84SaDRB8m/v+vdP1EHyHhKcXlLQR/FSQuVoI/hyQAxWg/OkWDsuPeZt3 -vsxzSAH518LcIZRPd9Pc83kON4Q+OZ5nM4Xzu71esZg8NILz/4PAegOHG+e+ -Bz8G6j9/NeyNvrQuxL9A8+tB5odrOYC4LED7ZebFaZ6+oOkAcv4BJD7M/TA+ -zH8wPsz/6HxY/AIAnGbKQA== - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}}}, {{{256.56300000000005`, 19.703100000000003`}, { - 256.56300000000005`, 20.846899999999998`}, {256.56300000000005`, - 23.720299999999995`}, {253.74999999999997`, 23.720299999999995`}, { - 250.92499999999995`, 23.720299999999995`}, {250.92499999999995`, - 20.859399999999997`}, {250.92499999999995`, 19.703100000000003`}, { - 250.92499999999995`, 18.557799999999997`}, {250.92499999999995`, - 15.756299999999996`}, {253.73799999999997`, 15.756299999999996`}, { - 256.55199999999996`, 15.756299999999996`}, {256.56300000000005`, - 18.5219}, {256.56300000000005`, - 19.703100000000003`}}, CompressedData[" -1:eJxTTMoPSmViYGCQBGIQfdzbvNPxSb4Dr//6Kak3jB1gfH4Qn8PQ4YLS7Z91 -9/Idnmdpf5t+18Dh+uICW67L+Q7LX3jo/W80cPhRl7Wn5HS+w03pmkQjVwOH -v1cqXqodzHdITwMCNQOH/yCwHcHXaRe7eW41gq+7ae775YvyHSLEt19k8DNw -iN3lycM0O9/h5GGntZl9Bg62XEAbJ+Y7bDH/cSjlloFD/6GvGjHd+Q7TJ/BX -mXEbwvkw98P4YPPWmcD5f7+VPphTaOqQCrK3L9+BAQQEzBwstpwo2zc53+EU -yD47cwcTYyBYn++w5P4+vjnB5g6hfEAXbkfwwe4/jOCD/X8738HnBLvtbFVz -hzMg8ADGN4OHJ4+bailTlymcf7BtefipSSYO6OEPAEr/tGs= - "]}], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ5IGYCYsstJ8r2BRY4nD7stDbznpEDjN8XXKIynd/U -4Xvw46WzXQocVrzw0PtvaO7wOnCHXKtmgYPfxYkx/yZbOLA3TnXuVilwaGQ5 -2m943cJBgiWMTxeJ33zg1EJXJQRf/Oa578GKCL60/l0VNnlMvvjUK5wZmxD8 -NBBYhuD/B4H5Fg46m+a+Xw40X/0t7z6DTAuIuHmBw5L7+/jmCJs7THxbY2/q -UOCwxfzHoZRfJnB+t9crFpOHRnB+cuwdN+YOA4dqkXXuD80KHEyMQUDXAWRd -I9C95jZ7g6Y1ajmslolKsQbav92h6dFxCy24ewJuSdckGiH4NZ82BGRLIfgy -8+I0T1/QhPsfxoeFD4zfLgZUoIzgg5wXp4KmXxPKD9ByOAMCwPh5krjwmgm/ -Ljz+an9bFZzbYeCAHr8ArRXRww== - "]], - FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, - 0}, {1, 3, 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJZIGYC4oyJb2vsFxc4dHu9YjF5aOQA4y++v49vzmcE -fyYI/DRyyN5TMlliEVS9orHD5hNl++bXFTg4Nj06PqPawuFhlcg699oCh/7g -EpXp6y0ctsu1vg6sKXBoZDnab3gdyq9A8M9/D368tBTBB3FnFxU4eJ9gt529 -FcHn8V8/JbUCwU8DAwuHMyAA5BuDQLKFg+UWoIOKoe6xtnBYLROVYj0d4T+Y -vHgPUEBEG65fX2ul8IUjWnDzZZa/8NDbj+DXfNoQkD0Lwf8PAvJacPdPaW+N -unxHE+4/FH4NEv/z3ysVwPDZ7gB0oIUWPPxYOLvkk/u04OG7v1bWIn2JkcNk -CZYwPmD4b9TLW8x4BhEfxVtFf58+h+DD/AcAZhLdjQ== - "]]}, - Thickness[0.0037210686909280345`], StripOnInput -> False]}, { - ImageSize -> {470.30076214196765`, 51.60673723536737}, - ImageSize -> {268.74329265255295`, 29.48956413449564}, BaselinePosition -> - Scaled[0.5405405040177161], ImageSize -> {269., 30.}, - PlotRange -> {{0., 268.74}, {0., 29.49}}, AspectRatio -> Automatic}]}, - "Labeled", - DisplayFunction->(FormBox[ - GridBox[{{ - ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { - TagBox[ - ItemBox[ - PaneBox[ - TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, - BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], - "SkipImageSizeLevel"]}}, - GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - BaselinePosition -> {2, 1}], TraditionalForm]& ), - InterpretationFunction->(RowBox[{"Labeled", "[", - RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )], TraditionalForm]], "Output",\ - - CellChangeTimes->{3.7257091493150883`*^9, 3.7257092103479137`*^9, - 3.725709392670433*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Labeled", "[", - RowBox[{ - RowBox[{"Grid", "[", - RowBox[{"{", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"Show", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"ReXng", ",", "ReEvan"}], "}"}], ",", - RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], ",", - RowBox[{"Show", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"LogAbsReXng", ",", "LogAbsReEvan"}], "}"}], ",", - RowBox[{"PlotRange", "\[Rule]", "All"}], ",", - RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{"Show", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"ImXng", ",", "ImEvan"}], "}"}], ",", - RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], ",", - RowBox[{"Show", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"LogAbsImXng", ",", "LogAbsImEvan"}], "}"}], ",", - RowBox[{"PlotRange", "\[Rule]", "All"}], ",", - RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}], "}"}]}], "}"}], - "]"}], ",", - RowBox[{"MaTeX", "[", - RowBox[{ - "\"\<\\\\boldsymbol{\\\\sum_x\\\\langle\\\\pi^+(t)\\\\left|\\\\bar{\\\\\ -psi}(x)\\\\gamma_z \ -W[x,x-2\\\\hat{z}]\\\\psi(x-2\\\\hat{z})\\\\right|\\\\pi^+(0)\\\\rangle}\>\"", - ",", - RowBox[{"Magnification", "\[Rule]", "1.75"}]}], "]"}], ",", "Top"}], - "]"}]], "Input", - CellChangeTimes->{{3.7257081154432917`*^9, 3.725708129566375*^9}, { - 3.7257082074146338`*^9, 3.725708262276889*^9}, {3.725708301706093*^9, - 3.725708438272654*^9}, {3.725708468600021*^9, 3.725708611300489*^9}, { - 3.7257086765441628`*^9, 3.72570870769555*^9}, {3.725708814683984*^9, - 3.7257088228301373`*^9}, {3.725709318541615*^9, 3.725709319301861*^9}}], - -Cell[BoxData[ - FormBox[ - TemplateBox[{TagBox[ - GridBox[{{ - TemplateBox[{ - GraphicsBox[{{{}, {{{}, {}, { - Hue[0.67, 0.6, 0.6], - Directive[ - PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - GrayLevel[0]], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7G9yXjm84YSyPVTAgbGkvPDlpfL9EC6HQ4jk -pDj9a8FQvoBDS9XcvVYnDKF8EYdq5fkLdibxQfkSDuG57p4/y57ug/BlHH4V -HV0svHcvlK/gcPorB7sv9xQoX8mB+/Ebzd9vs6B8FYdCnWv/qz44QflqDqfm -mB2tcZWA8jUcUl76rVzP+3YvhK/lIPfwlg/P8kNQvo7DXudHVuqnp0H5eg4p -646VTozPhvINHJj156vx7nOA8g0dOiOT79qFc9pC+EYOX/7O5FH2doHyjR2O -dxibn1IqgPJNHNJYV+8TcJkB5Zs6mDS1aJ7MPwjlmzm8n7Xp76PfL6B8c4ei -ednL13wUsoPwLRw2n/8X2CZnAeVbOhw3nNI3OSkByrdyKGKvq6xs64byrR1y -LuQdTv6wFcq3cZjEJHE6deJDKN/W4TFnwOPrGrzQ+LNzUAlSa10zyxLKt3cI -lUgSFA9OhPIdHP4drr6yMKTBHgAnJI5V - - "]]}}}, {}, {}, {{}, {}}}, {{}, {{{}, { - Hue[0.67, 0.6, 0.6], - Directive[ - PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - RGBColor[1, 0, 0]], - PointBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7NnCRIo3nFC2hwo4XNU6XfjyUvl+CJfDYfXl -4Dj9a8FQvoDD0oxZO61OGEL5Ig63dH9M2pnEB+VLOAiyNGv/LHu6D8KXcfBY -7BUivHcvlK/gMKfPvteHewqUr+Tw1e37/J9vs6B8FQeXeWZ/Kj44QflqDjx/ -vBwqXCWgfA0HU59Cw3m8b/dC+FoODmWV0l+XHYLydRyCWYOlDp2aBuXrOXzr -F+MJiMuG8g0c9hs8u2a/1wHKN3Qws+BfV+fFaQvhGzkYccuf3ujhAuUbO4R/ -azg2S7EAyjdxEF4y6e03pxlQvqlD2P0ZtpX5B6F8M4cVXlc2nPr9Aso3d4i5 -Lj5lxUchOwjfwuHctqnv2+UsoHxLB95erY+TkxKgfCuHiIYgtqq2bijf2oH5 -wHzGlA9boXwbh6JPj56lTnwI5ds67Gve9/q6Bi80/uwcftwOa10zyxLKt3do -1LouIB6cCOU7OLS84b6yMKTBHgDEy44u - - "]]}, {}}}, {}, {}, {{}, {}}}}, { - ImageSize -> 400, DisplayFunction -> Identity, - PlotRangePadding -> {{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, AxesOrigin -> {0.515625, 0}, - PlotRange -> {{1., 32.}, {-0.0058163756252414, - 0.00797392301271493}}, PlotRangeClipping -> True, ImagePadding -> - All, DisplayFunction -> Identity, AspectRatio -> - NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes -> {False, False}, AxesLabel -> {None, None}, - AxesOrigin -> {0.515625, 0}, DisplayFunction :> Identity, - Frame -> {{True, True}, {True, True}}, - FrameLabel -> {{None, None}, {None, None}}, - FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines -> {None, None}, GridLinesStyle -> Directive[ - GrayLevel[0.5, 0.4]], - Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 1, - 2][#]& )[ - Part[#, 1]], - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 2, - 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 1, - 2][#]& )[ - Part[#, 1]], - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 2, - 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange -> {{1., 32.}, {-0.0058163756252414, - 0.00797392301271493}}, PlotRangeClipping -> True, - PlotRangePadding -> {{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], - FormBox[ - TagBox[ - GridBox[{{ - FormBox[ - - TemplateBox[{"\"Xiong, Re\""}, "PointLegend", - DisplayFunction -> (StyleBox[ - StyleBox[ - PaneBox[ - TagBox[ - GridBox[{{ - TagBox[ - GridBox[{{ - GraphicsBox[{{ - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.1155], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - GrayLevel[0]], { - LineBox[{{0, 10}, {40, 10}}]}}, { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.1155], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - GrayLevel[0]], {}}}, AspectRatio -> Full, - ImageSize -> {40, 10}, PlotRangePadding -> None, - ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, - GridBoxAlignment -> { - "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, - AutoDelete -> False, - GridBoxDividers -> { - "Columns" -> {{False}}, "Rows" -> {{False}}}, - GridBoxItemSize -> { - "Columns" -> {{All}}, "Rows" -> {{All}}}, - GridBoxSpacings -> { - "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], - "Grid"], Alignment -> Left, AppearanceElements -> None, - ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> - "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { - FontFamily -> "Arial"}, Background -> Automatic, - StripOnInput -> False]& ), - InterpretationFunction :> (RowBox[{"PointLegend", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], - ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - RowBox[{"Dashing", "[", - RowBox[{"{", - RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", - InterpretationBox[ - ButtonBox[ - TooltipBox[ - GraphicsBox[{{ - GrayLevel[0], - RectangleBox[{0, 0}]}, { - GrayLevel[0], - RectangleBox[{1, -1}]}, { - GrayLevel[0], - RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> - True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, - PlotRangePadding -> None, ImageSize -> - Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], "GrayLevel[0]"], - Appearance -> None, BaseStyle -> {}, BaselinePosition -> - Baseline, DefaultBaseStyle -> {}, ButtonFunction :> - With[{Typeset`box$ = EvaluationBox[]}, - If[ - Not[ - AbsoluteCurrentValue["Deployed"]], - SelectionMove[Typeset`box$, All, Expression]; - FrontEnd`Private`$ColorSelectorInitialAlpha = 1; - FrontEnd`Private`$ColorSelectorInitialColor = - GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = - True; MathLink`CallFrontEnd[ - FrontEnd`AttachCell[Typeset`box$, - FrontEndResource["GrayLevelColorValueSelector"], { - 0, {Left, Bottom}}, {Left, Top}, - "ClosingActions" -> { - "SelectionDeparture", "ParentChanged", - "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> - Automatic, Method -> "Preemptive"], - GrayLevel[0], Editable -> False, Selectable -> False]}], - "]"}], "}"}], ",", - RowBox[{"{", #, "}"}], ",", - RowBox[{"LegendMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"{", - RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", - - RowBox[{"Joined", "\[Rule]", - RowBox[{"{", "True", "}"}]}], ",", - RowBox[{"LabelStyle", "\[Rule]", - RowBox[{"{", "}"}]}], ",", - RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], - "]"}]& ), Editable -> True], TraditionalForm]}, { - FormBox[ - - TemplateBox[{"\"Evan, Re\""}, "PointLegend", - DisplayFunction -> (StyleBox[ - StyleBox[ - PaneBox[ - TagBox[ - GridBox[{{ - TagBox[ - GridBox[{{ - GraphicsBox[{{}, { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.462], - AbsoluteThickness[1.6], - RGBColor[1, 0, 0]], { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.462], - AbsoluteThickness[1.6], - RGBColor[1, 0, 0]], - PointBox[ - NCache[{ - Scaled[{ - Rational[1, 2], - Rational[1, 2]}]}, { - Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, - ImageSize -> {10, 10}, PlotRangePadding -> None, - ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, - GridBoxAlignment -> { - "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, - AutoDelete -> False, - GridBoxDividers -> { - "Columns" -> {{False}}, "Rows" -> {{False}}}, - GridBoxItemSize -> { - "Columns" -> {{All}}, "Rows" -> {{All}}}, - GridBoxSpacings -> { - "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], - "Grid"], Alignment -> Left, AppearanceElements -> None, - ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> - "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { - FontFamily -> "Arial"}, Background -> Automatic, - StripOnInput -> False]& ), - InterpretationFunction :> (RowBox[{"PointLegend", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], - ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - InterpretationBox[ - ButtonBox[ - TooltipBox[ - GraphicsBox[{{ - GrayLevel[0], - RectangleBox[{0, 0}]}, { - GrayLevel[0], - RectangleBox[{1, -1}]}, { - RGBColor[1, 0, 0], - RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> - True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], - FrameTicks -> None, PlotRangePadding -> None, ImageSize -> - Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], - "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {}, - BaselinePosition -> Baseline, DefaultBaseStyle -> {}, - ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, - If[ - Not[ - AbsoluteCurrentValue["Deployed"]], - SelectionMove[Typeset`box$, All, Expression]; - FrontEnd`Private`$ColorSelectorInitialAlpha = 1; - FrontEnd`Private`$ColorSelectorInitialColor = - RGBColor[1, 0, 0]; - FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; - MathLink`CallFrontEnd[ - FrontEnd`AttachCell[Typeset`box$, - FrontEndResource["RGBColorValueSelector"], { - 0, {Left, Bottom}}, {Left, Top}, - "ClosingActions" -> { - "SelectionDeparture", "ParentChanged", - "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> - Automatic, Method -> "Preemptive"], - RGBColor[1, 0, 0], Editable -> False, Selectable -> - False]}], "]"}], "}"}], ",", - RowBox[{"{", #, "}"}], ",", - RowBox[{"LegendMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"{", - RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", - - RowBox[{"Joined", "\[Rule]", - RowBox[{"{", "False", "}"}]}], ",", - RowBox[{"LabelStyle", "\[Rule]", - RowBox[{"{", "}"}]}], ",", - RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], - "]"}]& ), Editable -> True], TraditionalForm]}}, - GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"], - TraditionalForm]}, "Legended", DisplayFunction -> (FormBox[ - GridBox[{{ - TagBox[ - ItemBox[ - PaneBox[ - TagBox[#, "SkipImageSizeLevel"], - Alignment -> {Center, Baseline}, BaselinePosition -> - Baseline], DefaultBaseStyle -> "Labeled"], - "SkipImageSizeLevel"], - ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, - GridBoxAlignment -> { - "Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> - False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}], - TraditionalForm]& ), InterpretationFunction -> (FormBox[ - RowBox[{"Legended", "(", - RowBox[{#, ",", - RowBox[{"Placed", "[", - RowBox[{#2, ",", "After"}], "]"}]}], ")"}], - TraditionalForm]& ), Editable -> True], - TemplateBox[{ - GraphicsBox[{{{}, {{{}, {}, { - Hue[0.67, 0.6, 0.6], - Directive[ - PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - GrayLevel[0]], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7F/M7zB4NkPxAFTAYUZOz6zZ00SgfA6HGTbP -tu+8KwXlCzhM/LncakGOApQv4vDz4+klv5uUoXwJhy8mlZbbf6lB+TIOrBWP -XpbWaEH5Cg6sHNOcrXn0oHwlhxMhmy/ePmcA5as4vFlzetrtbiMoX81hbU6+ -6cYEEyhfw+FH0ccVf93MoHwthx2VTxtCpC2gfB0Hjns3ucP/WEL5eg4xB44G -n3toDeUbOBSniCzpPWQL5Rs6RH+dO1WW3wHKN3KYodUR7D8RJm/scFCQs3Tl -dph+E4ev8UpfA97AzDd1WJATIDxNB2a/mcOP71JR83Nh7jN3aCncvVtxAcz9 -Fg7hG9hdM//D/GfpoNQXd4bXzxDKt3Ioko2dsvsMLHysHUrWS+saS2hD+TYO -3Odft3gmqkP5tg7RVS62QjNg4W/n8Lzj7YsPyfJQvr3DUhsRs5mLJKB8B4cM -wXsxncHCBwCEXZIr - "]]}}}, {}, {}, {{}, {}}}, {{}, {{{}, { - Hue[0.67, 0.6, 0.6], - Directive[ - PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - RGBColor[1, 0, 0]], - PointBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7DfGbbJ4NkPxAFTAISmubtbsaSJQPoeD3ulP -23felYLyBRxe1kpbL8hRgPJFHJz+bFz6u0kZypdw0LG3t9n+Sw3Kl3G4fsPq -fWmNFpSv4PDs+R5/ax49KF/JQScr5MHtcwZQvorDJGfWTbe7jaB8NQeL15Kp -GxNMoHwNB/6jd5z+uZlB+VoO+Y/N9odKW0D5Og4Ffmuqo/9YQvl6DmopnwVv -PbSG8g0cji/Z+HzmIVso39Bhvv4W3jh+ByjfyCHx+QuVvIkweWMH1rCHznu2 -w/SbOEjMaJwU8wZmvqlDWNPeFbN0YPabOUhJSQUvyIW5z9yBreTcJ8UFMPdb -OOg/fGic+R/mP0uHOquoY7x+hlC+lcP5NsWu3Wdg4WPtwO1XoG4soQ3l2zhM -vniw0TNRHcq3dZiZt8FGaAYs/O0cNnx++uJDsjyUb+/gHWBiNnORBJTv4BBf -9jOmM1j4AABAc5Ab - "]]}, {}}}, {}, {}, {{}, {}}}}, { - PlotRange -> All, ImageSize -> 400, DisplayFunction -> Identity, - PlotRangePadding -> {{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, AxesOrigin -> {0.515625, 0}, - PlotRange -> {{1., 32.}, {-32.11809034550489, 0}}, - PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> - Identity, AspectRatio -> - NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes -> {False, False}, AxesLabel -> {None, None}, - AxesOrigin -> {0.515625, 0}, DisplayFunction :> Identity, - Frame -> {{True, True}, {True, True}}, - FrameLabel -> {{None, None}, {None, None}}, - FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines -> {None, None}, GridLinesStyle -> Directive[ - GrayLevel[0.5, 0.4]], - Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 1, - 2][#]& )[ - Part[#, 1]], - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 2, - 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 1, - 2][#]& )[ - Part[#, 1]], - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 2, - 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange -> {{1., 32.}, {-32.11809034550489, 0}}, - PlotRangeClipping -> True, PlotRangePadding -> {{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], - FormBox[ - TagBox[ - GridBox[{{ - FormBox[ - - TemplateBox[{"\"Xiong, Log[Abs[Re[]]]\""}, "PointLegend", - DisplayFunction -> (StyleBox[ - StyleBox[ - PaneBox[ - TagBox[ - GridBox[{{ - TagBox[ - GridBox[{{ - GraphicsBox[{{ - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.1155], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - GrayLevel[0]], { - LineBox[{{0, 10}, {40, 10}}]}}, { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.1155], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - GrayLevel[0]], {}}}, AspectRatio -> Full, - ImageSize -> {40, 10}, PlotRangePadding -> None, - ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, - GridBoxAlignment -> { - "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, - AutoDelete -> False, - GridBoxDividers -> { - "Columns" -> {{False}}, "Rows" -> {{False}}}, - GridBoxItemSize -> { - "Columns" -> {{All}}, "Rows" -> {{All}}}, - GridBoxSpacings -> { - "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], - "Grid"], Alignment -> Left, AppearanceElements -> None, - ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> - "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { - FontFamily -> "Arial"}, Background -> Automatic, - StripOnInput -> False]& ), - InterpretationFunction :> (RowBox[{"PointLegend", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], - ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - RowBox[{"Dashing", "[", - RowBox[{"{", - RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", - InterpretationBox[ - ButtonBox[ - TooltipBox[ - GraphicsBox[{{ - GrayLevel[0], - RectangleBox[{0, 0}]}, { - GrayLevel[0], - RectangleBox[{1, -1}]}, { - GrayLevel[0], - RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> - True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, - PlotRangePadding -> None, ImageSize -> - Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], "GrayLevel[0]"], - Appearance -> None, BaseStyle -> {}, BaselinePosition -> - Baseline, DefaultBaseStyle -> {}, ButtonFunction :> - With[{Typeset`box$ = EvaluationBox[]}, - If[ - Not[ - AbsoluteCurrentValue["Deployed"]], - SelectionMove[Typeset`box$, All, Expression]; - FrontEnd`Private`$ColorSelectorInitialAlpha = 1; - FrontEnd`Private`$ColorSelectorInitialColor = - GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = - True; MathLink`CallFrontEnd[ - FrontEnd`AttachCell[Typeset`box$, - FrontEndResource["GrayLevelColorValueSelector"], { - 0, {Left, Bottom}}, {Left, Top}, - "ClosingActions" -> { - "SelectionDeparture", "ParentChanged", - "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> - Automatic, Method -> "Preemptive"], - GrayLevel[0], Editable -> False, Selectable -> False]}], - "]"}], "}"}], ",", - RowBox[{"{", #, "}"}], ",", - RowBox[{"LegendMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"{", - RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", - - RowBox[{"Joined", "\[Rule]", - RowBox[{"{", "True", "}"}]}], ",", - RowBox[{"LabelStyle", "\[Rule]", - RowBox[{"{", "}"}]}], ",", - RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], - "]"}]& ), Editable -> True], TraditionalForm]}, { - FormBox[ - - TemplateBox[{"\"Evan, Log[Abs[Re[]]]\""}, "PointLegend", - DisplayFunction -> (StyleBox[ - StyleBox[ - PaneBox[ - TagBox[ - GridBox[{{ - TagBox[ - GridBox[{{ - GraphicsBox[{{}, { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.462], - AbsoluteThickness[1.6], - RGBColor[1, 0, 0]], { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.462], - AbsoluteThickness[1.6], - RGBColor[1, 0, 0]], - PointBox[ - NCache[{ - Scaled[{ - Rational[1, 2], - Rational[1, 2]}]}, { - Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, - ImageSize -> {10, 10}, PlotRangePadding -> None, - ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, - GridBoxAlignment -> { - "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, - AutoDelete -> False, - GridBoxDividers -> { - "Columns" -> {{False}}, "Rows" -> {{False}}}, - GridBoxItemSize -> { - "Columns" -> {{All}}, "Rows" -> {{All}}}, - GridBoxSpacings -> { - "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], - "Grid"], Alignment -> Left, AppearanceElements -> None, - ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> - "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { - FontFamily -> "Arial"}, Background -> Automatic, - StripOnInput -> False]& ), - InterpretationFunction :> (RowBox[{"PointLegend", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], - ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - InterpretationBox[ - ButtonBox[ - TooltipBox[ - GraphicsBox[{{ - GrayLevel[0], - RectangleBox[{0, 0}]}, { - GrayLevel[0], - RectangleBox[{1, -1}]}, { - RGBColor[1, 0, 0], - RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> - True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], - FrameTicks -> None, PlotRangePadding -> None, ImageSize -> - Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], - "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {}, - BaselinePosition -> Baseline, DefaultBaseStyle -> {}, - ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, - If[ - Not[ - AbsoluteCurrentValue["Deployed"]], - SelectionMove[Typeset`box$, All, Expression]; - FrontEnd`Private`$ColorSelectorInitialAlpha = 1; - FrontEnd`Private`$ColorSelectorInitialColor = - RGBColor[1, 0, 0]; - FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; - MathLink`CallFrontEnd[ - FrontEnd`AttachCell[Typeset`box$, - FrontEndResource["RGBColorValueSelector"], { - 0, {Left, Bottom}}, {Left, Top}, - "ClosingActions" -> { - "SelectionDeparture", "ParentChanged", - "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> - Automatic, Method -> "Preemptive"], - RGBColor[1, 0, 0], Editable -> False, Selectable -> - False]}], "]"}], "}"}], ",", - RowBox[{"{", #, "}"}], ",", - RowBox[{"LegendMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"{", - RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", - - RowBox[{"Joined", "\[Rule]", - RowBox[{"{", "False", "}"}]}], ",", - RowBox[{"LabelStyle", "\[Rule]", - RowBox[{"{", "}"}]}], ",", - RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], - "]"}]& ), Editable -> True], TraditionalForm]}}, - GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"], - TraditionalForm]}, "Legended", DisplayFunction -> (FormBox[ - GridBox[{{ - TagBox[ - ItemBox[ - PaneBox[ - TagBox[#, "SkipImageSizeLevel"], - Alignment -> {Center, Baseline}, BaselinePosition -> - Baseline], DefaultBaseStyle -> "Labeled"], - "SkipImageSizeLevel"], - ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, - GridBoxAlignment -> { - "Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> - False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}], - TraditionalForm]& ), InterpretationFunction -> (FormBox[ - RowBox[{"Legended", "(", - RowBox[{#, ",", - RowBox[{"Placed", "[", - RowBox[{#2, ",", "After"}], "]"}]}], ")"}], - TraditionalForm]& ), Editable -> True]}, { - TemplateBox[{ - GraphicsBox[{{{}, {{{}, {}, { - Hue[0.67, 0.6, 0.6], - Directive[ - PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - RGBColor[0, 0, 1]], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7C8mVaz++tpgP1TA4ZZL+i6ZGzlQPoeDye7l -pc6tblC+gINxtvaV7lZlKF/E4e3pftkTbxmhfAmHjO8/4hx+39oH4cs4zMlf -vUafdQuUr+DQp7qrrS2hE8pXcuDc/CdWd10clK/iwB9wWHDTbBMoX83B8Ybz -zFAeHihfw6FObtJSH5sHeyF8LYfGbNsDjlc2QPk6Dhs3znnlPKEWytdz4AtP -Psj8xQ3KN3AQnimWpv2EHco3dNh+/obacysWWwjfyMF4nmXZpqmGUL6xw0Ej -hpcmVxOhfBOH+c9ZnSI6JkD5pg7bdvN8PM22G8o3c5BY8ElVqPAJlG/uMNG9 -W2LrTn47CN/CQXiT39VaOTMo39Jh1v7APFO+BCjfyuGat9/OKys7oHxrhyVP -XKX1szdB+TYOCVrybjscb0H5tg6sW16xl79htofw7Rz2r5kc9ybVAMq3d9gq -8u66okgolO/gkLqjw0jzUJE9AHdjie4= - - "]]}}}, {}, {}, {{}, {}}}, {{}, {{{}, { - Hue[0.67, 0.6, 0.6], - Directive[ - PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - RGBColor[0, 1, 0]], - PointBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7IuN4699fW2wHyrgcMbDaY/MjRwon8NBXiKs -1LnVDcoXcJBconW2u1UZyhdxePiBl/XEW0YoX8KBi+uuiMPvW/sgfBmHyUu4 -gvVZt0D5Cg53n2za2pLQCeUrOXyatui5yro4KF/F4cZev/9LZptA+WoOO59V -uFvx8ED5Gg7y+l0aejYP9kL4Wg7JGxN+s1/ZAOXrOJQ7ROX19NdC+XoOrw6I -zG/74gblGzi0lRkXsfxkh/INHTK8F5+uN2axhfCNHA6sP5TbMtUQyjd2sHoT -eurOlUQo38Th6X5BdeaOCVC+qcMGJdGXjWy7oXwzhzTjSkf2widQvrmDpWxT -xPad/HYQvoWD56NynwY5Myjf0iHnZXO/GV8ClG/lYBH++8zVlR1QvrWD5R+2 -VP3sTVC+jUPZkZtxOxxvQfm2DmdTDHnL3zDbQ/h2DjMLkuPepBpA+fYO69rj -ryuKhEL5Dg5TrvYZaR4qsgcAKraJtg== - - "]]}, {}}}, {}, {}, {{}, {}}}}, { - ImageSize -> 400, DisplayFunction -> Identity, - PlotRangePadding -> {{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, AxesOrigin -> {0.515625, 0}, - PlotRange -> {{1., 32.}, {-0.00352101908649925, - 0.00457969753965246}}, PlotRangeClipping -> True, ImagePadding -> - All, DisplayFunction -> Identity, AspectRatio -> - NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes -> {False, False}, AxesLabel -> {None, None}, - AxesOrigin -> {0.515625, 0}, DisplayFunction :> Identity, - Frame -> {{True, True}, {True, True}}, - FrameLabel -> {{None, None}, {None, None}}, - FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines -> {None, None}, GridLinesStyle -> Directive[ - GrayLevel[0.5, 0.4]], - Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 1, - 2][#]& )[ - Part[#, 1]], - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 2, - 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 1, - 2][#]& )[ - Part[#, 1]], - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 2, - 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange -> {{1., 32.}, {-0.00352101908649925, - 0.00457969753965246}}, PlotRangeClipping -> True, - PlotRangePadding -> {{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], - FormBox[ - TagBox[ - GridBox[{{ - FormBox[ - - TemplateBox[{"\"Xiong, Im\""}, "PointLegend", - DisplayFunction -> (StyleBox[ - StyleBox[ - PaneBox[ - TagBox[ - GridBox[{{ - TagBox[ - GridBox[{{ - GraphicsBox[{{ - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.1155], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - RGBColor[0, 0, 1]], { - LineBox[{{0, 10}, {40, 10}}]}}, { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.1155], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - RGBColor[0, 0, 1]], {}}}, AspectRatio -> Full, - ImageSize -> {40, 10}, PlotRangePadding -> None, - ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, - GridBoxAlignment -> { - "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, - AutoDelete -> False, - GridBoxDividers -> { - "Columns" -> {{False}}, "Rows" -> {{False}}}, - GridBoxItemSize -> { - "Columns" -> {{All}}, "Rows" -> {{All}}}, - GridBoxSpacings -> { - "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], - "Grid"], Alignment -> Left, AppearanceElements -> None, - ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> - "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { - FontFamily -> "Arial"}, Background -> Automatic, - StripOnInput -> False]& ), - InterpretationFunction :> (RowBox[{"PointLegend", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], - ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - RowBox[{"Dashing", "[", - RowBox[{"{", - RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", - InterpretationBox[ - ButtonBox[ - TooltipBox[ - GraphicsBox[{{ - GrayLevel[0], - RectangleBox[{0, 0}]}, { - GrayLevel[0], - RectangleBox[{1, -1}]}, { - RGBColor[0, 0, 1], - RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> - True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], - FrameTicks -> None, PlotRangePadding -> None, ImageSize -> - Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], - "RGBColor[0, 0, 1]"], Appearance -> None, BaseStyle -> {}, - BaselinePosition -> Baseline, DefaultBaseStyle -> {}, - ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, - If[ - Not[ - AbsoluteCurrentValue["Deployed"]], - SelectionMove[Typeset`box$, All, Expression]; - FrontEnd`Private`$ColorSelectorInitialAlpha = 1; - FrontEnd`Private`$ColorSelectorInitialColor = - RGBColor[0, 0, 1]; - FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; - MathLink`CallFrontEnd[ - FrontEnd`AttachCell[Typeset`box$, - FrontEndResource["RGBColorValueSelector"], { - 0, {Left, Bottom}}, {Left, Top}, - "ClosingActions" -> { - "SelectionDeparture", "ParentChanged", - "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> - Automatic, Method -> "Preemptive"], - RGBColor[0, 0, 1], Editable -> False, Selectable -> - False]}], "]"}], "}"}], ",", - RowBox[{"{", #, "}"}], ",", - RowBox[{"LegendMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"{", - RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", - - RowBox[{"Joined", "\[Rule]", - RowBox[{"{", "True", "}"}]}], ",", - RowBox[{"LabelStyle", "\[Rule]", - RowBox[{"{", "}"}]}], ",", - RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], - "]"}]& ), Editable -> True], TraditionalForm]}, { - FormBox[ - - TemplateBox[{"\"Evan, Im\""}, "PointLegend", - DisplayFunction -> (StyleBox[ - StyleBox[ - PaneBox[ - TagBox[ - GridBox[{{ - TagBox[ - GridBox[{{ - GraphicsBox[{{}, { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.462], - AbsoluteThickness[1.6], - RGBColor[0, 1, 0]], { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.462], - AbsoluteThickness[1.6], - RGBColor[0, 1, 0]], - PointBox[ - NCache[{ - Scaled[{ - Rational[1, 2], - Rational[1, 2]}]}, { - Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, - ImageSize -> {10, 10}, PlotRangePadding -> None, - ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, - GridBoxAlignment -> { - "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, - AutoDelete -> False, - GridBoxDividers -> { - "Columns" -> {{False}}, "Rows" -> {{False}}}, - GridBoxItemSize -> { - "Columns" -> {{All}}, "Rows" -> {{All}}}, - GridBoxSpacings -> { - "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], - "Grid"], Alignment -> Left, AppearanceElements -> None, - ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> - "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { - FontFamily -> "Arial"}, Background -> Automatic, - StripOnInput -> False]& ), - InterpretationFunction :> (RowBox[{"PointLegend", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], - ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - InterpretationBox[ - ButtonBox[ - TooltipBox[ - GraphicsBox[{{ - GrayLevel[0], - RectangleBox[{0, 0}]}, { - GrayLevel[0], - RectangleBox[{1, -1}]}, { - RGBColor[0, 1, 0], - RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> - True, FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], - FrameTicks -> None, PlotRangePadding -> None, ImageSize -> - Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], - "RGBColor[0, 1, 0]"], Appearance -> None, BaseStyle -> {}, - BaselinePosition -> Baseline, DefaultBaseStyle -> {}, - ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, - If[ - Not[ - AbsoluteCurrentValue["Deployed"]], - SelectionMove[Typeset`box$, All, Expression]; - FrontEnd`Private`$ColorSelectorInitialAlpha = 1; - FrontEnd`Private`$ColorSelectorInitialColor = - RGBColor[0, 1, 0]; - FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; - MathLink`CallFrontEnd[ - FrontEnd`AttachCell[Typeset`box$, - FrontEndResource["RGBColorValueSelector"], { - 0, {Left, Bottom}}, {Left, Top}, - "ClosingActions" -> { - "SelectionDeparture", "ParentChanged", - "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> - Automatic, Method -> "Preemptive"], - RGBColor[0, 1, 0], Editable -> False, Selectable -> - False]}], "]"}], "}"}], ",", - RowBox[{"{", #, "}"}], ",", - RowBox[{"LegendMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"{", - RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", - - RowBox[{"Joined", "\[Rule]", - RowBox[{"{", "False", "}"}]}], ",", - RowBox[{"LabelStyle", "\[Rule]", - RowBox[{"{", "}"}]}], ",", - RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], - "]"}]& ), Editable -> True], TraditionalForm]}}, - GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"], - TraditionalForm]}, "Legended", DisplayFunction -> (FormBox[ - GridBox[{{ - TagBox[ - ItemBox[ - PaneBox[ - TagBox[#, "SkipImageSizeLevel"], - Alignment -> {Center, Baseline}, BaselinePosition -> - Baseline], DefaultBaseStyle -> "Labeled"], - "SkipImageSizeLevel"], - ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, - GridBoxAlignment -> { - "Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> - False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}], - TraditionalForm]& ), InterpretationFunction -> (FormBox[ - RowBox[{"Legended", "(", - RowBox[{#, ",", - RowBox[{"Placed", "[", - RowBox[{#2, ",", "After"}], "]"}]}], ")"}], - TraditionalForm]& ), Editable -> True], - TemplateBox[{ - GraphicsBox[{{{}, {{{}, {}, { - Hue[0.67, 0.6, 0.6], - Directive[ - PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - RGBColor[0, 0, 1]], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7Bv1z7OwtikcgAo4TJYW2jFlhhiUz+FwhMPx -0gRFWShfwMF+w9nK3fMVoXwRh76VO/+IT1SB8iUchI4UuNS9UIfyZRzkl4Xp -8LtrQ/kKDslTRavDvulB+UoO7TfarN7EGUL5Kg5Ov5dXr1c3hvLVHOaypdrL -vjWB8jUcPMO+hny/bQblazmIdCmHyDy3gPJ1HEJZlu1YLmMN5es5PL9dYXCi -0BbKN3DQPjZ9/XIxByjf0OGy37n0T9owvpFDS1rYqrx0Oyjf2GH/iS8uTf42 -UL6Jw7TAqAm9flZQvqnDXrZZcddzYfabOYQeXjLj7wKY+8wdUpTKJk8+C3O/ -hYP8h96pk0Rh/rN0eJjIkuoYDPO/lUOAqLb3RxZ9KN/awcdk0YX9hbDws3Fw -e8YmkP8NFr62DuaXp/0VjoaFv50DC9uMeTLTYPFp75C1Sl2qa74UlO/g8F08 -Z1lyt+gBAH+/iO8= - "]]}}}, {}, {}, {{}, {}}}, {{}, {{{}, { - Hue[0.67, 0.6, 0.6], - Directive[ - PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - RGBColor[0, 1, 0]], - PointBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7A/J7P3P0qZwACrgwGxzYfuUGWJQPofDkQ7/ -SxMUZaF8AYdX0a1Vu+crQvkiDg5tpf/FJ6pA+RIOSfzvPeteqEP5Mg6t57xM -+d21oXwFB4+7u+eHfdOD8pUcUhSVG9/EGUL5Kg4t67jkNqgbQ/lqDsIv9lnI -vTWB8jUcPl3dbPrzthmUr+VgXfn2kPxzCyhfx6Hi5ZS3a2WsoXw9h21yP2oO -FdpC+QYOT2QK9SzEHKB8Q4e1ZZs9FHVgfCOHrisNHoXpdlC+sYPdcSazdn8b -KN/E4ekvi22T/KygfFOHM79vSt/Khdlv5pCkzaf4bwHMfeYODt1+jZPPwtxv -4WAgzFo5SRTmP0uHM3aMwY7BMP9bOSQbXDD5yKIP5Vs7NP6bf2J/ISz8bBz+ -bFDhy/8GC19bBylb/r/C0bDwt3PgfzF3nsw0WHzaO3Rsd5Lqmi8F5Ts4mJ3K -WpbcLXoAAMemi1s= - "]]}, {}}}, {}, {}, {{}, {}}}}, { - PlotRange -> All, ImageSize -> 400, DisplayFunction -> Identity, - PlotRangePadding -> {{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, AxesOrigin -> {0.515625, 0}, - PlotRange -> {{1., 32.}, {-32.34333512853268, 0}}, - PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> - Identity, AspectRatio -> - NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes -> {False, False}, AxesLabel -> {None, None}, - AxesOrigin -> {0.515625, 0}, DisplayFunction :> Identity, - Frame -> {{True, True}, {True, True}}, - FrameLabel -> {{None, None}, {None, None}}, - FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines -> {None, None}, GridLinesStyle -> Directive[ - GrayLevel[0.5, 0.4]], - Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, - 2][#]& )[ - Part[#, 1]], - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 2, - 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 1, - 2][#]& )[ - Part[#, 1]], - ( - Part[{{Identity, Identity}, {Identity, Identity}}, 2, - 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange -> {{1., 32.}, {-32.34333512853268, 0}}, - PlotRangeClipping -> True, PlotRangePadding -> {{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], - FormBox[ - TagBox[ - GridBox[{{ - FormBox[ - - TemplateBox[{"\"Xiong, Log[Abs[Im[]]]\""}, "PointLegend", - DisplayFunction -> (StyleBox[ - StyleBox[ - PaneBox[ - TagBox[ - GridBox[{{ - TagBox[ - GridBox[{{ - GraphicsBox[{{ - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.1155], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - RGBColor[0, 0, 1]], { - LineBox[{{0, 10}, {40, 10}}]}}, { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.1155], - AbsoluteThickness[1.6], - Dashing[{Small, Small}], - RGBColor[0, 0, 1]], {}}}, AspectRatio -> Full, ImageSize -> {\ -40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, - GridBoxAlignment -> { - "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, - AutoDelete -> False, - GridBoxDividers -> { - "Columns" -> {{False}}, "Rows" -> {{False}}}, - GridBoxItemSize -> { - "Columns" -> {{All}}, "Rows" -> {{All}}}, - GridBoxSpacings -> { - "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], - "Grid"], Alignment -> Left, AppearanceElements -> None, - ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> - "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { - FontFamily -> "Arial"}, Background -> Automatic, - StripOnInput -> False]& ), - InterpretationFunction :> (RowBox[{"PointLegend", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], - ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - RowBox[{"Dashing", "[", - RowBox[{"{", - RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", - InterpretationBox[ - ButtonBox[ - TooltipBox[ - GraphicsBox[{{ - GrayLevel[0], - RectangleBox[{0, 0}]}, { - GrayLevel[0], - RectangleBox[{1, -1}]}, { - RGBColor[0, 0, 1], - RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> - True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], - FrameTicks -> None, PlotRangePadding -> None, ImageSize -> - Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], - "RGBColor[0, 0, 1]"], Appearance -> None, BaseStyle -> {}, - BaselinePosition -> Baseline, DefaultBaseStyle -> {}, - ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, - If[ - Not[ - AbsoluteCurrentValue["Deployed"]], - SelectionMove[Typeset`box$, All, Expression]; - FrontEnd`Private`$ColorSelectorInitialAlpha = 1; - FrontEnd`Private`$ColorSelectorInitialColor = - RGBColor[0, 0, 1]; - FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; - MathLink`CallFrontEnd[ - FrontEnd`AttachCell[Typeset`box$, - FrontEndResource["RGBColorValueSelector"], { - 0, {Left, Bottom}}, {Left, Top}, - "ClosingActions" -> { - "SelectionDeparture", "ParentChanged", - "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> - Automatic, Method -> "Preemptive"], - RGBColor[0, 0, 1], Editable -> False, Selectable -> - False]}], "]"}], "}"}], ",", - RowBox[{"{", #, "}"}], ",", - RowBox[{"LegendMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"{", - RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", - - RowBox[{"Joined", "\[Rule]", - RowBox[{"{", "True", "}"}]}], ",", - RowBox[{"LabelStyle", "\[Rule]", - RowBox[{"{", "}"}]}], ",", - RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], - "]"}]& ), Editable -> True], TraditionalForm]}, { - FormBox[ - - TemplateBox[{"\"Evan, Log[Abs[Im[]]]\""}, "PointLegend", - DisplayFunction -> (StyleBox[ - StyleBox[ - PaneBox[ - TagBox[ - GridBox[{{ - TagBox[ - GridBox[{{ - GraphicsBox[{{}, { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.462], - AbsoluteThickness[1.6], - RGBColor[0, 1, 0]], { - Directive[ - EdgeForm[ - Directive[ - Opacity[0.3], - GrayLevel[0]]], - PointSize[0.462], - AbsoluteThickness[1.6], - RGBColor[0, 1, 0]], - PointBox[ - NCache[{ - Scaled[{ - Rational[1, 2], - Rational[1, 2]}]}, { - Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, - ImageSize -> {10, 10}, PlotRangePadding -> None, - ImagePadding -> Automatic, - BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, - GridBoxAlignment -> { - "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, - AutoDelete -> False, - GridBoxDividers -> { - "Columns" -> {{False}}, "Rows" -> {{False}}}, - GridBoxItemSize -> { - "Columns" -> {{All}}, "Rows" -> {{All}}}, - GridBoxSpacings -> { - "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, - GridBoxAlignment -> { - "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> - False, GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], - "Grid"], Alignment -> Left, AppearanceElements -> None, - ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> - "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { - FontFamily -> "Arial"}, Background -> Automatic, - StripOnInput -> False]& ), - InterpretationFunction :> (RowBox[{"PointLegend", "[", - RowBox[{ - RowBox[{"{", - RowBox[{"Directive", "[", - RowBox[{ - RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], - ",", - RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", - InterpretationBox[ - ButtonBox[ - TooltipBox[ - GraphicsBox[{{ - GrayLevel[0], - RectangleBox[{0, 0}]}, { - GrayLevel[0], - RectangleBox[{1, -1}]}, { - RGBColor[0, 1, 0], - RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> - True, FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], - FrameTicks -> None, PlotRangePadding -> None, ImageSize -> - Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ - AbsoluteCurrentValue[Magnification]}]], - "RGBColor[0, 1, 0]"], Appearance -> None, BaseStyle -> {}, - BaselinePosition -> Baseline, DefaultBaseStyle -> {}, - ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, - If[ - Not[ - AbsoluteCurrentValue["Deployed"]], - SelectionMove[Typeset`box$, All, Expression]; - FrontEnd`Private`$ColorSelectorInitialAlpha = 1; - FrontEnd`Private`$ColorSelectorInitialColor = - RGBColor[0, 1, 0]; - FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; - MathLink`CallFrontEnd[ - FrontEnd`AttachCell[Typeset`box$, - FrontEndResource["RGBColorValueSelector"], { - 0, {Left, Bottom}}, {Left, Top}, - "ClosingActions" -> { - "SelectionDeparture", "ParentChanged", - "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> - Automatic, Method -> "Preemptive"], - RGBColor[0, 1, 0], Editable -> False, Selectable -> - False]}], "]"}], "}"}], ",", - RowBox[{"{", #, "}"}], ",", - RowBox[{"LegendMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"{", - RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", - - RowBox[{"Joined", "\[Rule]", - RowBox[{"{", "False", "}"}]}], ",", - RowBox[{"LabelStyle", "\[Rule]", - RowBox[{"{", "}"}]}], ",", - RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], - "]"}]& ), Editable -> True], TraditionalForm]}}, - GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"], - TraditionalForm]}, "Legended", DisplayFunction -> (FormBox[ - GridBox[{{ - TagBox[ - ItemBox[ - PaneBox[ - TagBox[#, "SkipImageSizeLevel"], - Alignment -> {Center, Baseline}, BaselinePosition -> - Baseline], DefaultBaseStyle -> "Labeled"], - "SkipImageSizeLevel"], - ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, - GridBoxAlignment -> { - "Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> - False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}], - TraditionalForm]& ), InterpretationFunction -> (FormBox[ - RowBox[{"Legended", "(", - RowBox[{#, ",", - RowBox[{"Placed", "[", - RowBox[{#2, ",", "After"}], "]"}]}], ")"}], - TraditionalForm]& ), Editable -> True]}}, AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], - GraphicsBox[{ - Thickness[0.003543711683617421], - StyleBox[{ - FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, - 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, - 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, - 0}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGI9IGYC4kaWo/2G4gYOOxyaHh23UHWo/21VcK7D0KHm -04aA7Fs6DtEKjh+TbRD8m9I1iUZHDRzkl7/w0IvXcvC9ODHmH7O+w38Q2K/h -0MLrv36Kq45DfEiQ+gJOKP+otsMW8x+HUl6pOzxOXHjNJF/T4U3xVtHf3uoO -m/TyFjPeUYHzX9Q+zj7/hhPOLz28zXXmXCUHf5A9h40cPixar3D2hBLEXXeM -HIQrJ5WcvaLkcBvkrqcIvr7WSuELXxB81SfN887+QvDB5jEbOzhPaBZKW6Xk -ID71CmeGkrHDVq8NFnMs+SDu3WXlcOqw09rMeSpwvtS8OM3TF9Th/C0g9//R -dOgPLlGZ3m/lYGIMAloOM2YCQSdUvkbbocfrFYtJoZXDE5D/+3UdbCojVpja -Wjn8+Vb6YE6hPsS9Sywh4ctq4LD4/j6+OcWWDvtrZS3SrxhAw88CHh9gez6b -w+MLxofF5xkQ8LF2WHJr+WNDZgY4/4Hfy4S/83/bw/g5UxMKLYp/24Pd62nt -ILNRbD7Tg1/2X4DRPcvc2uENKD7W/LI/AQoHPQQf7K4vVnD+gbbl4acuWTmI -gML3iTzEv4ZGDg3itayZx/7YQ9yvCjf/UYT49osLEHwJUPg3IfgbweGG4MPS -J9idM//A+TD/wfjo6RkAS9VRMQ== - "]], - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGI5IIaxWZDYzCSwGaB8BjL0DhR7oNwMAEUOAp8= - - "], CompressedData[" -1:eJxdlHlIVHEQx1fXa1003Usidd/b45llVLpZmcIs4h+atKaiQlaax2aXHQbl -EZIXtZkWEWpSJtUqFBqpqJRo/pGSimkFSWCRRVKGioSVaP7eb3ceOPDj8WF+ -x3xn3gx7JDc+SywSiRxWV/Lqclxd2zY1y0czA8A6Yf2yXSwFO5uzV+2bFOob -tV1LAQL/nfnRu1sscNzEhsL0MQ45dsA14k67wKUeppZbDzkwTUWP7ZBLYSr9 -/nvDVg42zuum66KdoW3n4stMdz34PlXdc0wTw743N1KXM3TIs40tzPCAFllE -rFgLpT5FzjnlTshnrHmty1UuyNn8+66guHgzb7hNS/VFSqGW2ActROQZi17X -e1B9Zh0kzIzP1bByqv+BjsYnUYIhhJgejpL7XFQQGv4i/nafwDFE7zuB6X4O -mb+vlIMhYteUsJ/ka14PP8tPWoL3KKH4X9jpkSY9jZdTIPP+A3LkzoSwlBWr -DBwlV9UZv/QgJ7qmvCEnd7ZsMI9DttfHzrze2gCoSrGYHEZlyE9kQZ7mQwpk -pruhJ8vTro+D/MnFiZDNPpCWGB/QMKhH5v2fdcg11evyQ/fqqL4hJWxh1Qsn -VDrU1/x7+sJQqxauk/erVbZ9GjxP42SReZ2v1Mh8nHf9aH2McuQyxlU/ZJAh -91l6Lhv6vaGGyFnvj5xIzqUL3Mt/BU7Vp/iOLK1hXzWNM0hG43Ni4FPUYWOd -t5LmK5DF+jYRfaMCF5C4j2uQPwb6PV55pqH/xTklMp/vUwrkCqLnrZyeL7Cx -Qkb7KEkDlSR/s162/LEgNXrG1ARKIFmiqgipYrGfhol7icF+sYRHd2efFZjW -XWC+PqK1fjUs9My1m5OcqG4jAx0xrbvq/zjR+Cy2/Ywrcjvxd7mt8bvD89zC -mdoohup4JKX3X1Ij2+tjZ1pXP5tOCTL//7S6IPP9bhLT/p7yp/GqHCCyukSW -fYxBvkL0x7PI/Dz5zkIcmUfjYjjf3xFV66dBfXz7lmjo+7GO4HUwbjLYrMXz -X8n8MumQB7o7K13iOGT7/OTrM+0Ga+frf3AfOH0= - "]], - FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, - 3}, {1, 3, 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJZIGYC4i3mPw6l3DJzqPm0ISB7lpYDjC+z/IWH3n4t -hy8g4etmDvpaK4UvHNFy4PNfPyX1hJmDeI/XKxYRbQeZeXGapyeYOOyvlbVI -f2IEl3dsenR8hrUFXL8xCCRbwM1PAwMEnwekrwLB9z7Bbjt7q4XDTBBYaebQ -yHK03/C6hUPJVtHfp+vQ+HYIPli9JtT8ZVDzpMwcisH6LBwOty0PP/XI2KEb -6HwTRWOHgjXdtzMuGEP0/TSC8xff38c35zOCD1b/EMEHm3fOyGEJSN1lY4f6 -31YF504Ywc0Hh8cSI7j94PCaouUQo+D4MVnHzCHglnRNopEW3P1T2lujLt/R -hPsPxof5H8aHhc9/EJBHxBcs/gC7/9ng - "]], - FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, - 3}, {1, 3, 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ7IGYC4v8g0G/vsMX8x6GUXSYOMH6P1ysWE0NThxvS -NYlGqgj+icNOazPf2cH5TxIXXjOxt4LzS7aK/j79zxLOd2x6dHxGNYLP5aZa -ynTLAqJunglEf76Fg11lxApTWxMHHv/1U1J/mDv8+Vb6YM5CYzjfxBgImhF8 -XhAdYexwBgRkLOD8UyD32SH4G/TyFjPmIPgw+6ZP4K8yizZ2UHvSPO9slwXE -nBpjh2Kw+y0cYhQcPybzmDikxN5xYz5hCecvf+Gh95/RCs5Xf8u7z2Angg82 -J8cKYr60scOBtuXhpz5ZOnSD/K9o5BAhvv0ig58lRN0bAwdbkL9lofITDRz8 -Lk6M+SdsCbGnEcFvZDnabxiO4BtorRS+wGIAFbeE+HOOvkN6GhAsQ+M/Q/D3 -18papItYOciCLLiv7zBjJhBoWkH9ZeDwYUNA9qxwK4f+4BKV6foGkHQRZeWw -EaTfxgCiPhPKrzGAxFOgNdz/X0D6l9vA+XtB9qXYOBSu6b6d8cHI4QgoPJxs -IO4yQ/DFp17hzGgyhPMPg+hNUPsqbRx8TrDbzp6qD/EHjy2cLzEvTvN0AYIP -Tlf3bOHuh/Fh4Qvjf9l5q+vvVgOIvqu2Dvyg9HHCwIEDlD53QeW/Gjg8zdL+ -Nl3XFhJPbw3h/GRQurhhBOeDw0nLGM5fcn8f35xiBF8C5L9JxpD8ZW8LDx9I -vrOD88Hx8wXBh+U/GB+cD4LtIfnICppfMuwd+kD+9UfkX3A6KUbwYfkbAMaW -sck= - "]], - FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, - 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, - 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJFIGYC4jMgMMfZwcQYCB6bOcD4KbF33Jg1zB0e7OOb -Y1yF4EeIb7/IkIfg8/ivn5Kq4ITBX3IfqPGwJZwP1ncPwe/xesViomjlIO/4 -MfnMX0c4H+QM49uY/A16eYsZ71jC+TDzYXyY/d4n2G1n9zqguqcBwS/eKvr7 -dBwmH+Z/GB/s3nlmDomHL2unNiL4MPNhfJj96HyJqVc4M5hMUN33whjON9Ba -KXxhiTHc/zA+LHzQ+dxuqqVMrxB8mPko4Qu0HxY/MD7YX9UIPix+0fkw/wMA -CRTHIg== - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ5IGYC4pASlen/E9wcaj5tCMiW0nKA8QNuSdckGiH4 -xw87rc2003LYqJe3mNHFzeEMCKzRcujxesViMtPVISH2jhtzhK7DF6Axs8Jd -HW6CtB81gPNPg/TfM4LzQdbNMjd1kJh6hTNjkauDzwl229mq5hB9vm4OxVtF -f5+us4Coi3dzMAaBxRZw96SBwDIEXxxkziYEv5HlaL/hdQuHEpA5fgj+k8SF -10zcEfyEw5e1Uy0RfLC5Zgj+AhudK7P4oPzpFg6/YnKP/jNydUgB+dfC3MEE -5K7TLg43hD45nmczhfO7QeHy0AjO/w8C6w0cDtTKWqSbuDqcvxr2Rl9aF+Jf -XjeHepD54VqQcDVxc5CZF6d5+oKmwwlNq0mnzRF8mPthfJj/YHyY/9H5sPgF -AOaZ0WQ= - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, - 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGI7IGYC4vv7+OYYM3k6cLupljKtMnSA8fW1VgpfuGLo -kM35c0H6aw843/sEu+3suwh+RcQK07OHEXyw/kMeDn+/lT6Yc9HQ4fOGgOxZ -2z0c/C9OjPm3GKq/1sPheZb2t+lzDRz+g4C6h8NGvbzFjDYGDlO+scXPeOMO -55dsFf19+h6CzwACJzD5Z0BgDYJ/XeiT4/lnUPPOuDvw+6+fksph6NDj9YrF -5KI7xF59QweQt2c5eDiseOGh93+hiQMvSN0JBL8YZP8zBP9ifjz7uZcI/kwQ -+OgBMXejicMb3n0GM395ONhVAgNmr4nD48SF10z+ezikxN5xY36B4G8x/3Eo -5ReCD9ZvaOpwU7om0egpgg/21xkEX/VJ87yzQQi+fdOj4zOaPSDiu8wg7uv0 -cNgACp83CH6k+PaLDP8QfLD9XOao6nPMHZaD/JXo4SAzL07z9AQo3xHBNwYB -bTR5Rg+HaRP4q8yqzSHh8dLdwQcUz6rmDjmg9PPY3cEWFB685vDwB9ONZg5p -IHDM3cEB5A9tMwceUPgfcHf4BEo3303hfHB6+mgKid8V7nD/z7PRuTJLDsEH -yzMg+LoTFvwwfOaGwa/7bVVw7oYJnA+LT7B5/xD8ZSBa0h3OB/trqjuqejt3 -SP55ZQhJlybukPiYZQiJPxUoXwrBV38LTCg/DeD8w23Lw08ZGUDCo80dEh9z -9B1YFk+yYnyK4IPT1ywPOB+WX7/svNX1txSRf2H5GQD0/a4k - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ5IGYC4v21shbpJt4Opw87rc28Z+QA4/cFl6hM5zd1 -MDEGgtNeDiteeOj9NzR3eMO7z2DmJ08Hv4sTY/5NtnBQedI87+wpT4dGlqP9 -htctHI5rWk06fRzBd1EtZZq1A8EPARr7fwOCP99G58qseZh88alXODM2Ifhp -ILAMwf8PAvMtHOybHh2fsdvTQf0t0GGZFg7pYIVeDkvu7+ObI2wOUbfcy2GL -+Y9DKb9M4Pxur1csJg+N4Pzk2DtuzB0GDiKfHM+nxXpB/G2sC3WHp4O5zd6g -aY1aDubXjuaaLPB02O4AtNhCC+6egFvSNYlGCH7Npw0B2VIIvsy8OM3TFzTh -/ofxYeED4+tPWPDD8BiCn3D4snbqSTT9H6D8AC2HM2Dg5fAkceE1E35dePzV -/rYqOLfDwAE9fgHw7OAb - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, - 3}, {0, 1, 0}}}, {{{59.72810000000001, 19.1391}, {59.72810000000001, - 18.948400000000003`}, {59.72810000000001, 18.696899999999996`}, { - 59.97810000000001, 18.696899999999996`}, {60.2406, - 18.696899999999996`}, {60.2406, 18.9359}, {60.2406, 19.1391}, { - 60.2406, 25.9094}, {60.2406, 26.099999999999994`}, {60.2406, - 26.349999999999994`}, {59.9906, 26.349999999999994`}, { - 59.72810000000001, 26.349999999999994`}, {59.72810000000001, - 26.112499999999997`}, {59.72810000000001, 25.9094}, { - 59.72810000000001, 19.1391}}}], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, - 3}, {0, 1, 0}}}, {{{59.72810000000001, 11.9391}, {59.72810000000001, - 11.7484}, {59.72810000000001, 11.4969}, {59.97810000000001, - 11.4969}, {60.2406, 11.4969}, {60.2406, 11.7359}, {60.2406, - 11.9391}, {60.2406, 18.7094}, {60.2406, 18.900000000000002`}, { - 60.2406, 19.150000000000002`}, {59.9906, 19.150000000000002`}, { - 59.72810000000001, 19.150000000000002`}, {59.72810000000001, - 18.912499999999998`}, {59.72810000000001, 18.7094}, { - 59.72810000000001, 11.9391}}}], - FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ - 70.66880000000002, 25.8609}, {70.66880000000002, - 26.434400000000007`}, {65.84219999999998, 26.434400000000007`}, { - 65.84219999999998, 25.8609}, {70.66880000000002, 25.8609}}}], - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGI5IIaxWZDYzGSyGaB8BhqpH+psAEKGAp8= - - "], CompressedData[" -1:eJx1lHtIU3EUx6cLzSIW9Fhl9qAkdbPd7d756sFRemAt7u/aS6h8lLPSysqS -XmvWopf0IFqWLkmF3qVZZgVJEmK1yoqKHv5hpmla0NOCVNpvZ7s/MDrwg312 -7u+e1/fcsUuzEsxKhULh4zoLXcfXdTQxR5zWoxLows4NejLPAG1VZcpWhwR5 -s9r7CMUG4KmVSQA7m+qOF/Iy7+hTe0gfKcj8kJrJCOKooRlztv6fZ2+16UxJ -jAd9i61Pj5WgZveZhQ+eCTJzNJ80xgfnbhifr/KwJEFws63oUTsPe1zXDIme -/N7ykKiueqrIkaAhcFuqwc7D8nSXbZfAeTfu0sokxvmHVVsiAhm77yUZoHLX -tidXQyXIrhzyxzmVg19+ycdNlwhcmbim1GcyB5O0zws+BEvQ1bmx0VETif0K -kaCc+j8xHmZ/HrDiG+MHNH4P40VjYr8u00bBhby3KxSjGd98s7/brGYc2NEU -MaJvL7+/BD/pj+Ao+F5OMguUHm6JBMvl60ut+wi8pvVP52Dx6tqeikkE60zn -cB48wfr762VuTi1+KVgZq8Syo+Z7ejhBzUiw3yMMUPbuo70ikYCCWi6P+aUR -GFmUFOr8wuPzZgIC1YVSkNmrFy+nLWmYoWzzzDOa4P/xRqxPxdg9R4sos+VP -zNrHnIj5nOdlbsvQdOavZuzWUxwPdaEugc9kPJjGm9/Lv5yxms5tPeNpwRt9 -CzZ54mXwMN4dV4SpmxPPGm8LmF+3iPpoEGAC9fcjMnvr8TK99kj9L+N+MTbd -859SOF9AfQ8kEPJ5QDUXIMBFqhd/Itfvzu+ViPotMsAGqttqEevwZYx+vcw4 -fw51sYBAI33gjg71s5mAo2Tcza4zOig9EuMzJ5fg+0p0kJXs/3j4DgK1t24c -8Dv8f26l87DosP5sAil03q/Cgcr44ToC9S8WfNIVhqM+M71+LcZLIZA8L2HC -qZUamd37JjG+RvvXFYb9yGTsfb+X3fthZezND/ujwX3cRUA7dvSPVTkasEnx -J3OPEdTR3nD8HtgJ/P7ccSfaFo7+0wT33aHD+8Mkmd8PDrrfkiVh/UF66P19 -/Qu8AFJM - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ5IGYC4u9s8TN8/gY51HzaEJAtpeUA4wfckq5JNELw -jx92Wptpp+Wg+qR53tl3QQ5nQGCNloPwJ8fzaTODHBJi77gxR+g6uKqWMs2q -CHK4CdJ+1ADOPw3Sf88IzgdZN8vc1CFSfPtFhnlBDj4n2G1nq5o77LzV9Tf1 -c5BD8VbR36frLCDq/wQ5GIPAYgu4e9JAYBmCLz71CmfGJgS/keVov+F1C4f2 -5eGnjL4g+PtrZS3SPyD4teu2JdW/RPD/g8BzBF/69SMzqStQ/nQLB+/qZn2f -tCCHFJB/Lcwd0kHuMApyuCEEDAg2Uzi/2+sVi8lDIzgfbO56A4c13bczGNKD -HM5fDXujL60L8e/lIId6kPnhWhB/Au2XmRenefqCpsP6hy+nbnqB4MPcD+PD -/Afjw/yPzofFLwC4lNwh - "]], - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGI5IIaxWZDYzCSwGaB8BjL0DhR7oNwMAEUOAp8= - - "], CompressedData[" -1:eJxdlHssVmEYwD+XFmv4g5bWbLVlKS3nOMcywx4axWrovBurTO5iYsbU8kU0 -WpRmmctkLi2xQoS1mpb6urlE+6qFSiXUahZmDOm85/2+84xne7fzO8/e97k/ -O6JSjsaaaTQaE/mEysdUPieSdf/apgls8nfMMG3iwcguexptB/U85DeEvnYd -R7ab8XkT92mdXo98rWaBnxhAPhN2262/l4DXWfnjLg8dF7MG2zsIXDDXFfNl -HDiO51X3nydwb9/pehNPDt7pksWcCOTckIAbOb7IfVREAk+p4TTkx1oH93j9 -OrbjwXKxJr7dm0B8nCydPFRQ8TPY3+UKdSUeJkdOEph7MHx5RSew+JMIeFN/ -tSLQa3H5BvujIqRGbBzYWos81dViNnkTWfG3E1mJV0cgbEvXkKZZhMBzeS6H -mwhcldJ3lhWLsNujpDe7ikBM+Ki/mRMy5H57UT4iqGwV1HI9tlwAbXNnVHYj -gfHI2vdikAAWNL4eZGN9jKzEu0hgtjU4qbIBWYnPS1Q5vWPzUu9nEYoCf5mL -Q4T9D3CD31bdXEUdsv2h4GX7TGSl3scIy9NzEYgc1mowxue5V1854WVgGzcQ -BVls8X44zfekpPIc9bNAWquXJLAv1VsmvBVUnkp0ni9LRn5C+8FXYO9HICt5 -j1unT0F2pvlNR1bsZ0qsLxMFVr8rEqTeKRxJyBHhoDwmlc8ktb7jdg6vfnyX -1vaDBuv/h+bPmgBH5+EmsuLHAWQn+mFpeM+MwPJ8xlhVpMD6bUWC+i/d1lWz -riz/sr0Vqg/hWfwfJHWeCug8PpLUeQmg/VaHnEf7sxpZ8bcIWYlXa8j/KY7Z -r5AgmvbnJY7V+5YEq1Smkdl9XmWl/7J5Vn/5vg3t35c8tH79WdqWg2ysj5G3 -+/yN7gswvJ+CfH//Qk/MMKeydskjdcCdgzE5LUKaBK3UfpULm/8aZCUffcjK -PE1JUEj7PIRje2EG48ui87WBMLbg2H7jiHpf2Q/HkZX99nCdXt6fH7dlRbr6 -4T417tf/q7FsmQ== - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ5IGYCYjfVUqZZCmEOpw87rc28Z+QA4/cFl6hM5zd1 -YACBN6EOK1546P03NHeIyT36b1N9qIPfxYkx/yZbOFRErDA9mx3q0MhytN/w -uoWDV3Wzvk8Wgs/xc0H65iQEf8KCH4bP4hD8rS01FzaHYvLFp17hzNiE4KeB -wDIE/z8IzLdwaFsefsooJdRB/S3vPoNMC4eZILAz1GHJ/X18c4TNIfpuhTps -Mf9xKOWXCZzf7fWKxeShEZyfHHvHjbnDwKEgnv2c5NZQBxNjENB1+LQhIHtW -fKiDuc3eoGmNWg5NgZ5zG8JCHbY7ND06bqEFd0/ALemaRCMEvwakUQrBl5kX -p3n6gibc/zA+LHxg/Np125LqMxF8CY+APxLZaPrroPwALYczIACMnyeJC6+Z -8OvC46/2t1XBuR0GDujxCwCbT9nA - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJzIGYC4kWTrBh9AyIcbgh9cjzPZuoA4/d4vWIxMTR1 -mAkCrgi+6pPmeWftEHxxj4A/EuYIvvTrR2ZSJgg+2DyDCIdb0jWJRqqmDpw/ -F6Rv1otweJK48JqJvKmDV3Wzvg9bhIPPCXbb2aImDjIg/RfCHbaY/ziUomXk -8I0tfobPyXCH6yD3fTNy2PDw5dRNS8Ih7vI0dUgDAT0EH+y+Q2Go/KYwh9OH -ndZmzjOG87tB7lNE8Bff38c357ORgwjQmrReBH8JyP1TEHyw/XMQfLD+RQj+ -G959BjOXhTnw+q+fkiph7LDzVtff1O1hDg5Nj47PuG3swAHy/7cwB2431VKm -X8YQ98uFw/lg+zwQfHB4VYU7SEy9wplxydgBJDxrSrgDAwg4GEPCeWW4wxeQ -RUeNHALkxLJ814dD7DttCOefBPnfD8HfXytrkX7FwEHB8WPymbXhkPjYb+Cg -aTXpdP2KcIfiraK/T9cZODwRkT35dDJUnl/foW15+CmjmnCHKe2tUZdrdOD8 -mk8bArJnacP58SFB6gsyEXx9rZXCF45oOTQFes5t6EPwz4DAAgRfDRSeq8Id -3EEOXK4Nd9/xXTt62T5oQ9yzOdxBHBQeTToOlRErTM8eD3eYs0h555/leg4v -tq9nfn4B6t8+A4etLTUXNl8MdzgMcsgmBL/2t1XBuR0GkHC8Eg5JDxcNHFxB -4fsi3CEdFC/bDCHivBHw+PQHhZ9zhEMJKHzmmTg8BrnHPcKhYE337YwDJvD8 -A06/vxB8WP4CAKqPfd8= - "]], - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGIpIIaxWZDYzFjYDFA+Ax419GTjcg893QkAwFcCeQ== - - "], CompressedData[" -1:eJxFlHtI01EUx2cblUVas0zzUdrDyG3+fmmWVuxYkZmOVZLdmSE6H0tCoyRU -rCztQVpqTVbmTJOyl6mzIb3MsGJZqaOhqJUo4iMbUYkP0mz399t2D9w/Pr/D -vfd8v79zrkdsyr54LofDsTGtENOaZVrSy6pk/nYZDCZ5j6nUIrCw0GP56JF2 -EfTgD4GE/0wb0ob9CTt2toyH+xLmRtgJNULCktiFKEAggz1dLpkxGhHgtNpL -Bj7r7ju0xYmgzbN78pSnDNwqh3aJZoSAr8/myEDXtK3q8DchPMztVnDyEYTp -5my9qRXC+Ozo62FqBFPGkcaAlSLg/w5qTbiDrOeN4XwnYveX+sAMDrEM7KXV -yvi5NPjiCJXBwRVBv+R5hJn9SsJ5u7/z/GppSHqRes1pB+FjikJjppiwa2Tc -5p6NhC3+WFij/ln5zuTPRxwltFV/KNaznwZ8PM9dBh1YyBoaUvjZjc2LCC9+ -HNybwSPM6JtEcIb3Np8OpuEGDiMC+aEvO7kKGhywH73Iqq+md7hIY0DWerYI -DMUDrwmnRM9pcS4ifKHyQPP6NAS1ouQKmynKyuJ0dG/DS8JHH5l+TBkFt68G -2kiyCL866bYpMYfwUH01d/Ai4bN7Q9RZVwi7jPT5LytAsLo/u/TTM4r1X4Vg -rXFBA/WeAtvJssS6YgSqAvsM/w8UoKX1es4DBP0x5e1+rRScx/U8ISx1d0yS -PEeQi/XoKateSz48dZVqRkfydboTDbfmmfv/q7n+KcT6fZeCCqxvFMHo065L -0+fMehoRnMb+d/hAT4NdiW8kAom+MOqf3NyvUgQ12L8ogZV/HNcu+RtKmJkH -vgCaPnvHO0cQZvRGEmZ8iSXM6JMjdr4cBVBQNkEPJCBwxfMjFrC60hEosV/z -hWz/5yIIxsK8hKzfSsKMP+WEmX6qQuBUZLBV9JnP01rmT8D694bo0+ZkttXp -SX1Mvp+wpb+t9Zvflwk8v1zy3ljen/9/NPE6 - "]], - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGJNIIaxWZDYzGSyGaB8BjQ2rfXiMofW5tPCnZTYRYwa -AJM5ArU= - "], CompressedData[" -1:eJyNlHtQTFEcx7ckr0qTxzaUYvCH1xbt3jVJv8ikyJbM2L13I6tSaYhBSs9J -DNWooRYrJqPZmtkUoizTNHk1OynvVEhTWRMNMsKUx7l3u+ewO2acmfPHZ+79 -nfP7/b7f85up2rk+apRAILBCW4W2NdqOWfWGkjnh0MSuFxTwbCerPBH1jYI9 -MQX9KW7hsO5hgfLnJCm40JHenULCU9qav4aNIjy743ta3HslzO3JOnt/vBTu -7as7N62V8BzPsToXPeH3obUzsjVKHH/mg/bumnTCLFJJhC9obrtXxVlyUf7E -ZMkNCnN9qqt020EKctU7nLL2E+4dKv/0KJWw/7XPP55kEM4oXJkTf46w1xK0 -riih4ZB2o0FFgVv2u9DaZwzs0uV0xHz0BOqIX0RvGQPt01O2LN5LQTobX8NA -blCfjVcmZaq/hcHntcxCDWo34z7CE+VLqxsHLZnX51/M94PL7w3hZZ2yPPU+ -BvfbyNa/igFj3PxBtb0UNjosvFwsIlzdiBJ2IvHmLEfyy+wJ39xz3NnmJ23B -vB488/Vs1gfaWU8g9elYQwkJa1n9ZhEOQfZ450n6WVWMHOHNgOHWiorYNArX -45MkLxMHSzBz+awkrBDWPBQsl0BAV/Lki74MKN39Pm11kZj0UdNYz9foc0As -jfVccHhqW3Mije/n/HGM1JOCfu86TZjzv45wIjpeVEHDQFXI9tOHKXAWvZxt -e4mG504Dfi1FI+/tKg1frrcf/VE64pcaGuv7v8z3n2Mt4fz+FF+xhMb6c/qN -prHeEY7IQB8VmDl9HitwvDlX7kYDoYnwtmi06iyZ159nvh+cnwyEN7D+a1X8 -7Y9uwsNIvuABBe6/TIUSHlZg/f1z4o1DS2mQs/o6eICveJM+cBkNwsIn42LO -i0z6+9Agmlc+6UGkCHpKkcFCzDjiD36AHmQ0DXf0tXm2+SPfE2jQvl296JeV -B3wN6y7VrGWgmvrWEJkshpOn0Epi8P0nkD2MBxgcz/U/jcHnc/MonzDntxLC -3PzQMrC2cYyPplBk8l8lg+/n/NWkhATWr44ULER2ynyqNOUTRIEr+/5fKXG/ -OHYIx/3k5zfP/Lw3Z95fvwEs679m - "]], - FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, - 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{120.52199999999999`, - 12.920299999999996`}, {120.52199999999999`, 13.575000000000001`}, { - 119.281, 13.575000000000001`}, {119.281, 24.184399999999997`}, { - 120.52199999999999`, 24.184399999999997`}, {120.52199999999999`, - 24.8406}, {118.62700000000001`, 24.8406}, {118.62700000000001`, - 12.920299999999996`}, {120.52199999999999`, 12.920299999999996`}}}], - - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGI5IIaxWZDYzCSwGaB8BjL0DhR7oNwMAEUOAp8= - - "], CompressedData[" -1:eJxdlHssl1EYxxUTay4TY6HUVFaT9/W+1gX1qNGqtV+yydq8h3L5JbeZbkYR -miVZi/2QdVkXqdxKVGu6iKQlmZU7lVaRyUg1TOe8v9/vfTZnO398dm7P832+ -z1m2P25PuKGBgcE8OvfSOZ9O6/Jtn5KmCSz0W3F4/m0e9Oy2unRRazsPdm69 -zsZjyLZGgeauQ3PWPyE/bb7qW9ONnBL1JPFCBwHv40G3PMp4eLe8+9+JFwTS -jBpyeQ0HPc7GafnZBKrWxl6b58XBZg/p8fZo5OLRksadKuSCQjp8CNSfLtnb -nID8NMVxfWT7HLbm4af/wyWZOwlERtBRw0OvKkcTu0f3/ip3yBimG2IITDzq -OjPTIMBZTaxV+jECm1i8KSKIAh0XdO/3iPCx5U/AlzLkZBZwFbJNJ91Qjyzn -20YgyLb2vUG5CK+O1F1eXEvgXECisyZXhIEkqngpgbDgHj9DF2Q49flVQbeg -sJmqIi+8QICMZ0xgAoOhVz+IKgES1edHkt8h6+ujZxa+YBgC45W7DxWVIMv5 -eYsKJz6wmXrTJwKtlp1RHwEmY+F2D0jN35odXYGcR/FbOjJ1i3V5JAEmb0Sj -CF+nSsfagjG/6xdfOlXu0LGFB8yysRTPy36bkBR2onJF5SHL9QiRwC6/3VTd -Jij8PWrNpCYG+TnzwxYBjv5YyZtEI2f5hHxtTZiznows65uGLL+fIcGKwfRL -b6MEbf2KJIi/m92tThWBZpOgfi8p9Q2xDNpQ/QuZyX/PDOu/4K7DvjB7Ahzr -h+vIsq+2IruMmNVxprr7LAlMTx4eKA4VYDe177ApgWv9debF4+5Ad3v2j0ow -w9b9df06KCn95MD68bWk9Ivstwpk2Z93kGX/FiLL+Z7R6X+Qgw7m9xsSHGD+ -zOK0/X1f0tZxFFl7nldY9t9JHhwzaYPdlMCC+beJB1caXloOsr4+evbqpw0a -qLs/Drl63d8XYV2cwilTG+Nb1nMw2MoClqCSvV/sBpbptEHKkGU9OpGDqHyq -3xJk7xgyEv05YPJ7zmJ+09S+u6yIlk04uOJbMz7jRZTzst/UyPL/1oSs/z87 -7ZND3X3xP9X/r/8BjVZdHQ== - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJJIGYCYo2Y/kNfKxIcbkrXJBq5GjjA+KpPmuedlTJ0 -UGFrnOqcneAgPvUKZ8YhQ4f4pxeUboci+Pamcbs8XRD8nul5Qs0WCQ6fNwRk -zwpH8PfXylqkXzGA87eY/ziUEmXgYAwCzgkOZ8BA34H7+uIC2zAEn32NTFRK -PIKvs2nu++VpCQ4GWiuFL7AYwN2XngYEagYO6oYca2SyYOr1IOrjEhzWgzyk -q+vQnfP890rPBIeM/A+tJ0V04O6fPoG/yuy0tgO/LlAD0D0tvP7rpxxF8B9E -iG+/uADB11GU/5JTpu0QDQwuDQ+ofTraEP94I/isQOd1ByD4sPD9DwL2ug7o -4Q8AdTawIA== - "]], - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGI5IIaxWZDYzCSwGaB8BjL0DhR7oNwMAEUOAp8= - - "], CompressedData[" -1:eJxdlGlIVFEUx8fRwjVFK22DCq2hLN/zvUGzJk+LkonYQjlE2VzXKUuHmqJA -26TVzCJrrLQYxpgMTQvbYTStFG2xGorUMlpoQyxMK8zq3jfLAQ/cDz/ucrb/ -uZNScpalu8pkMhe6kuiS0+X1wqRTWQh4xYZskV/kwcFh0yoC2qw8HDZk++ff -QPaST98/+uqQ/RrktR/aJndUIUcrk2/FVRJQbVdfUFbxkHmsOzfaSGC3270i -3sBBjn9+fcteApdnZptc5nBwbmzYq+CtyI9/Ln93PhP5ATMNgcZ95qSWTch1 -eRMiM61DeCQPfYrVRQ3pBDIzqF3jocd8Pz5ind3/1HBoZAeovx832w8N3hOg -KT7i4LxcAnNZvHkinGJ20O6/U4SsjwMV308i17GAS5ALNtADRmQp3woC6sDr -T2SXREid3ZVYeIbAkeX6YEORCDqV5wtTMYG0NZ2xrgpk2PO2qaRDcLJPYnVx -eokA8zS0wPT+e2J8LiYKMKu2eavFjOzoj4MFZo0EemuWZJ02I0v5qUQn66+O -Gmh9LcKaW3He8mpiyztOCfUtxphrBuRWir27kU0swM0EWHkz7ovQO2jd9jkb -83uWkOKnTrezrxL+MUvE+5LeopCP0nIpPZGlfnzTQNAJq4f2qeDkT+un9xs2 -It9hepgvwG398SC3fuS7E2s2aX8P2f+LLNVXRpws+ZcTCHmff/bhesHWPx8C -usqCDu0u2j8/9axaBfaXc68cvyoS2YWW/2UssuvKETOuJBDg2DyUI4us7guQ -Fd0+Fs7D/t4iAn/6t7wpJQIw+fYtJGDqsowo7Q0H3xlXynoiCAyy/aX2eQ3H -eSpk8xiM8yLpLRBZ0ucoZEm/3shSvsPs9V/HATv+3Z9AKtPnAc4232OIrY89 -yLb7vJMl/e3kgUavWB1AwJfpt5kHFl79cGRHfxxcxgb0q8b2fg5ybcSvhrR2 -zsl5A1G6R5EcbNbSgP9poIb5Lw2DA2xARhMnS/UIRQ6l5TNTvRUs/uImLuVg -BS1/WTTmx+Q7Jc7O7hzQbH7vSMb7kt70yNL/Vo7s+D9fjssl4TH4nzr+1/83 -y1pZ - "]], - FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, - 0}, {1, 3, 3}}}, {{{155.29999999999998`, 18.879699999999996`}, { - 155.29999999999998`, 19.25}, {154.955, 19.25}, {154.764, 19.25}, { - 147.48099999999997`, 19.25}, {147.302, 19.25}, {146.944, 19.25}, { - 146.944, 18.8922}, {146.944, 18.5219}, {147.29100000000003`, - 18.5219}, {147.48099999999997`, 18.5219}, {154.764, 18.5219}, { - 154.944, 18.5219}, {155.29999999999998`, 18.5219}, { - 155.29999999999998`, 18.879699999999996`}}}], - FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, - 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, - 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGIdIGYC4iUFtlzXN6c4pKcBQZmRg1a72M1zixF8nU1z -3y9fBOWbGTkwgMCCFAfxqVc4M5oMHf6s/HjJd1aKg//FiTH/kg0dVNgapzpP -T3E4edhpbaafoQPQ9MUFlQi+xZYTZfuKEfwfwY+XzrZA8FOs7/v35qc4zASB -nUYON859D348M8XhhtAnx/PbjB1g7pUA2R9kAud/2hCQPavcFM7vCy5RmX7f -zCFulycPU3eKA4//+impO8wdQNKLIxD8Fce8zTt1EXxWoPO7OVIcDLRWCl/4 -YgbnmxgDwWVTOL/H6xWLiaGpg0ZM/6GvEikOS+7v45vDbOrwFSSgiODDzIfx -gaF5zNsayndG8MHhegGNH2Dm8LMua0+JfopDwZru2xkTzBxAwbFUOcUhRsHx -Y/IcM4cvf69UvDRKcaj7bVVwTsPcARi686XcUxxuSdckGpmaOzgmPL2g5I/g -T3hbY29ahOCDw6cZYR+Mf6BW1iK9xBTOB0V/WpuJQwfIwLwUB9UnzfPOrjKG -mB+f4vAZFP7qxg5Kt4Eu5klxONy2PPxUkQE8vBpZjvYbhiP43aDwC0Twt5j/ -OJQiheCfAQN9hzugAFiB4KOnVwDNHibz - "]], - FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, - 0}, {0, 1, 0}}}, {{{172.75900000000001`, 22.170299999999997`}, { - 170.64999999999998`, 24.374999999999996`}, {168.539, - 22.170299999999997`}, {168.755, 21.907799999999998`}, { - 170.63799999999998`, 23.0875}, {172.522, 21.907799999999998`}, { - 172.75900000000001`, 22.170299999999997`}}}], - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGIpIIaxWZDYzFjYDFA+Ax419GTjcg893QkAwFcCeQ== - - "], CompressedData[" -1:eJxdlH9IFEEUx+/0TL38EVdomJKBHqXl7Xp7WdnRuyLzR2EUlVpJ6o5dFiai -IiKUWamdmVJ6RmaZhUlCFmIgIRZZomQWkoqaYoZWGF2BWlk0s7e7Ew3MH599 -M+/H972dVckn9yBHhUKhxDsKbwe8k5fEbWwpR3A0Fa9WFiReUZu4pmecBfVA -fYbxAmU+fCz2YhHlDSWmIx/OUhbun/7v/CkEMV3OxmudLKQ9zrq8PB8BnJl4 -UW1hAQyJbVG5CCaT6t5yW1ioTtcUdiQiGNB8M73SsqDa77HuoSsCz9j7V5AL -C4xLk2/CMgSBk4W1LxNYwNG6cnyov2f+zZlmk1hPTqjdXobgkL/JlrKTg2Kc -bl8VgifnGw50awwyC/FXUr5KVpQBmNGARQUVlDmcrlvZP3aSTzFlSR+J48mH -cwiqyz3z1gcb5PozmizD5g4O2m/46EazELSEzT/l8zjo6K7b3nqcMpGjO4my -UF+86O8eBxlG3KHdCB6EpNcrRzjINFfM5O+g9RF33400n9vkgo6y0F8PyqVW -HHGeB3VEYLbDJk5mQd9hvcy+pL/NetiMy7X+oVx6YupXoxLJ7OYQXOTlRDmB -6OFKWeiPGoE76e+gHtYWeQ31eiKI8370WvFFtGvE81/1MNg7t/e9H4ICVecl -dk4Pd5/HhJUEUlbicENBCBaT/H/q5Xol++/+3I9aA7WnCkucDzdR/4OivU1v -12UfgtUz7u1MCY6P5VJjf5boTyquLhRIO1UTPFhJP3oY+/khHpigxqV9KsoL -s9njNTadzM2kXzU6IHLZ3lEW0pmgLOg9TVn43zB7V/a7mm/p7PP2mQe/hunI -kDGdXd8fPKQcHolwLGaAjCfvjGAqLXjWep2xz7M7ZUFvb8pOBZXbLP7iPBxj -YKHR9maXFtn9RTKgZbHHUCTXR9pxJxzJ+d3E4xwQTVmab4ml90XIfyt9b6T3 -5y8XAuxA - "]], - FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, - 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{175.58100000000002`, - 12.920299999999996`}, {175.58100000000002`, 24.8406}, { - 173.68599999999998`, 24.8406}, {173.68599999999998`, - 24.184399999999997`}, {174.92700000000002`, 24.184399999999997`}, { - 174.92700000000002`, 13.575000000000001`}, {173.68599999999998`, - 13.575000000000001`}, {173.68599999999998`, 12.920299999999996`}, { - 175.58100000000002`, 12.920299999999996`}}}], - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGI5IIaxWZDYzGSyGaB8BhqpH+psAEKGAp8= - - "], CompressedData[" -1:eJx1lHlIVEEcx9cDyy6jKMXssNTMddu3+96mltpPzcAyJDWTMjudp2YWHVLR -ZRtdZmppq7iZB6R20EFRRop2LllmYreRlKJZUkpa5hbNOG93wOgH748Pv3m/ -8zvjvGZjeJyVTCazwN9S/Fnib5PfsJclnAhKj/Kx9ZFqqDrjqHwniJC2oMNa -KFLD7a0nHaz9RYD9Hx7m5vNmTrW+n6HyEsz8mFioBroaFq0Z7fJ/Lnuw0OvI -OMaGFJxxiAg1B0uXPmoQzMyRetYxPh6x1UVnJ7GdCK4t2oInHTzUT33bt2eM -VN9bHu5Nubw53lmEpgm7VqtzeMgj5ipC7d3AiwmxjHWZdjtnTWAcbX/jmSxW -DS42qTlB/Qi2XB/XX+vPQbaDddSoSgRXZiaXWPhy0Ijbie5DYOzd1qyv8QIL -+aHxr38huEz8Xxg75DTaxnczfkTy/2G8fEpA11pPb3hV9yPiYw9jN9XQC07d -jKN9rhlSOgb5MfdUvDn629UbGrd/clO1S9zqBQGrWuunnkfwmvQfzAEZd8AB -BCIixtF97EO0/+EqM7esLnoh7GVsF3YpO86ggm+lOEIqovN2VENu8hht9QkE -MmL7eNCTgecicCqInVH7jafn8xAIPDYrwcwmvZh43Yqm+Vbt0j61iO4hRAPu -pL9kxnj6iqvBjH3fh6Xr1FI953gztyfKe3UbGA/oKZAHDodb5s3YG4+zas4g -PzCOvRUywjKIMZFD2jwpXyIPIyzxAhcj8N8RXaapFGh9cZI+mgTwwOutW8/Y -1I+JjeV4wpv/ZXq/GIcahvjlLxGovvH/7p0jqzhbgeolgfU/UF8MovotUNN8 -UQjsif4sGVO/ysx0/xydaxaCZnKgWkn1U4JAXzytwliqhDs97jEZZ6V4xUpI -ausv78J8/9bNdJvM/3Mb2cduJSSSB6IQwSqy71cKOP0VC+AMgqfPo74o8xVU -n3qT35PmO4VgZWT49MIEuZkH7ttixtfI/IwegLtPastnbIpv4qzOXXM1Zxmb -6qPzkdP3rgyBp/Pk70kpcjhGDlxBsLt/9qa6wwqIJwEw/+z8XO2jVVB/hXTf -9Up6n7sZk+cwapJI+5+ogsHv61+WdWCH - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ5IGYC4ikSLGF8T9Mdaj5tCMiW0nKA8QNuSdckGiH4 -xw87rc2003LIE2o+cOpuusMZEFij5XCibN98qc3pDgmxd9yYI3Qdls4+orBh -UbrDTZD2owZw/mmQ/ntGcD7Iulnmpg5AXlHG1nQHnxPstrNVzR2y9pRMlniQ -7lC8VfT36ToLhySBCMstT9IdjEFgsQXcPWkgsAzBF596hTNjE4LfyHK03/C6 -hUPPdKCLHyD4Nvf9e6ffQ/AdE55eULqN4IPNvYXgzwE58AKUP93CYcUxb/PO -mekOKSD/Wpg7hPLpbppbn+5wQ+iT43k2Uzi/2+sVi8lDIzj/PwisN3C4ce57 -8GOg/vNXw97oS+tC/As0vx5kfriWA4jLArRfZl6c5ukLmg4zQAGOxIe5H8aH -+Q/Gh/kfnQ+LXwDq2tad - "]], - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGI5IIaxWZDYzCSwGaB8BjL0DhR7oNwMAEUOAp8= - - "], CompressedData[" -1:eJxdlHssl1EYx93+ILmsi3RXQ+aS9/W+v1DJo2LpMmHFLMn9IJcZrTakTJRQ -o6hRM5k0lZooNiG3hGS/Li7RonXZzExUk9U57+/ybM52/vjsXJ7zfJ/vczaF -xPuEa2toaGjS6UenFp1L3pcnuIwS0PewSNa6x4OK7a2rlvfLebhcFLcs4wOy -vpZNlsnbRev9yEFf+jcP9yK7yo43ePYQcDnjf1d2n4fIq5Mpri0Ezum05/NF -HNDTzd0VBB5tjSvX3MnB7TX2H82vI/f98h2vyELuYSOdwIsLlX7dicjPU9c7 -RcoX8QoeZq2O5bdmEoiMoKOOh6nKjgOOF5XxtzhAK9tA4/18NnRpoV0AtupW -QmAXe2+qCDfYqFLGHxEh5ut81XQdchN78FPknJN0QwuylO9LAv6r6t9oPBAh -dMeYV24jgTzfJPOifBESXKjitQTCAkc8tK2Q4fznzuJhQc0GXg8Lw4sFcDtB -BabnJ4LL3oleAjjXdp1q6kRW1UfFAhvjBGZqDsfcrESW8nMR1Zz0ZOX8q1ER -Ahs8l2q9Joq8PWXQ3F3mXlePzHCmDLmcPbCAAJM3okOEmQX56e95mN/AoRBj -/0wlG8ngHxvxeF7yWwDyFSqXzBpZqocxAdNrcj0yIKj5W7TNXFEscgvzw24B -GpMKTHVMkNvMahLJ6kXrG5Alfc2QpfibCVhMZNzqjRYU9bMjkFCdM0zSRaDZ -ONfuw/pyutXrAvyRNan8gxHI2kcN7R7HEuBYP9xBFpnue5CtJg2aOD3lfYTA -37nkTyXBAjD7zoYRKB9rMiyZcQC6u3TKj8ACW/dW9qsP9lMu68e92C+S3xyR -JX/KkCX/2iJL+Voo9Y/igG2fdiAQyvyZzSn625ko6jiFrDjPq1ny31ke8lmD -CQSMmH+7eGDPa7ZEVtVHxaWsQfWV98cj1zr+bg0b4tScOr89oc+Jg0RCH7yR -QA2LX2IP2axBtiFLehxEtqXyVVK/5ez/oSN6c3CECRqE+TH7WkYpWZcDms2f -tDQ8L/mtEFn639qQVf/n4NqUYAd3/E9V/+t/dkNckA== - "]], - FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, - 0}, {1, 3, 3}}}, {{{212.39999999999998`, 18.879699999999996`}, { - 212.39999999999998`, 19.25}, {212.05500000000004`, 19.25}, {211.864, - 19.25}, {204.581, 19.25}, {204.402, 19.25}, {204.04399999999998`, - 19.25}, {204.04399999999998`, 18.8922}, {204.04399999999998`, - 18.5219}, {204.391, 18.5219}, {204.581, 18.5219}, {211.864, - 18.5219}, {212.04399999999998`, 18.5219}, {212.39999999999998`, - 18.5219}, {212.39999999999998`, 18.879699999999996`}}}], - FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, - 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, - 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGIdIGYC4iUFtlzXL2c7pKcBQZmRg0672M1zhxF8/U1z -3y8/BOWbGTn8B4H92Q7iU69wZjQZOvxZ+fGS765sB/+LE2P+JRs6qLA1TnXe -nu1w8rDT2kw/Qwd7ruuLC2Yi+BZbTpTtm4zgfw9+vHR2BIKfYn3fv7c/22Em -COw0crhxDqhiZ7bDDaFPjue3GTvA3CsBsj/IBM7/tCEge1a5KZzfF1yiMv2+ -mUP8Lk8eptXZDjz+66ek7jB3yAdKL65A8Jcf8zbv9EXw2YHO79bIdjDQWil8 -4YsZnG9iDASXTeH8Hq9XLCaGpg4aMf2HvlpkOyy5v49vDrOpw3eQgCOCDzMf -xp//HigSDeU7I/gMIHABjR9g5vCnLmtPiX+2Q8Ga7tsZE8wczoMCzDnbIUbB -8WPyHDOHL3+vVLwMynao+21VcE7D3OF42b75UunZDrekaxKNTM0dHBKeXlDK -R/AnvK2xN52E4IPDZzHCPhj/QK2sRXqJKZwPiv60NhOHDkeggX3ZDqpPmued -XWUMMb8+2+EzKPzVjR1Ubv+sy9LJdjjctjz8VJEBPLwaWY72G4Yj+N2g8AtE -8LeY/ziUIoXgnwEDfYc7QOP2nEDw0dMrAPefMsE= - "]], - FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, - 0}, {0, 1, 0}}}, {{{229.759, 22.170299999999997`}, { - 227.64999999999998`, 24.374999999999996`}, {225.539, - 22.170299999999997`}, {225.755, 21.907799999999998`}, { - 227.63800000000003`, 23.0875}, {229.52199999999993`, - 21.907799999999998`}, {229.759, 22.170299999999997`}}}], - FilledCurveBox[CompressedData[" -1:eJxTTMoPymNmYGBgBGIpIIaxWZDYzFjYDFA+Ax419GTjcg893QkAwFcCeQ== - - "], CompressedData[" -1:eJxdlH9IU1EUx+dctXRmGKiVlYKz1HTvubeG1vBYKP4oBKMUU9HUXHZTCZWy -CJbgD2ZUpGyRaaayLLEZYiD9sMgSTbOwVFSUMqzAaAXaD4vufXtvF3pw//i8 -c9+553y/512/w4VJuc4SicQJrzi8pHhlrk0J77IiyDuCn24WRN7YkBE4OMuC -fKy5SHeLcs7OmcTzFsra6qjMDy2U+e+v/7e/EUFC/yrd1T4W9PeLL3vXI4Bz -756bjSxEajJ64swI5rKa3nKRLJgKPMp7zyIY8/gW9TKABdnBNSF3AxG4J96p -zZWzwMjbfVI5BMq58oahVBaSw7v6SyNovqe+1hP6LKGf0jB7vANBmm+ULXsv -B1W43JFuBI8rLMkDHhoH8+dvoXyFPHEaUE37rzR0UiblKjoo8/XcpCzqI3IK -edGKwHzRvWxHsMbRf1G7cVLfy8GDxg2q6VoEXdofT3LKOHg00BTdbaR8HMsx -YKDM93dKyHebg0KdC3YIQWdoQbPTFAfF+ksLZ/Jofy9wuu/ptJ6WIvxBImUF -8TeUcg0xwBuBS4yyRBrBOZjXd1LtYB/ir1UNu3C7ps2Ua9D87zY/ygppcKWn -knIa0SOQMu9PEAI34u+4GrZXek4MqxCkeN17JfkixMOE/V/VMD68tP+9DoFB -1neBXVKD5VmCtjqasgwfNxGPwJXU/0vt6FeM/xk9+SngAI3nkjmpEOZDIeh/ -Woj3qMFMdClBsG3B7SFTrYY3WC4XnM8Y/1nGNYUBsVMmRWAifgwy9v0/jwET -1LZuREZ5ebFktt6mcrCV+FWvAiKX7S9lvh6cT2RebzllDfnfMHvVja7W31DZ -580VwSbLx9jQGZVd3/UIstOnYpyrGCDjmbMVwXx+8KLpGgMhZJ5DKPN6aymv -MNTtMYIwD0cZWG6zvd4XI+SLZUDJ4oxJyNHfELaj9RCtj4yzfz5lcb5FFu8X -vv7d9L4R759/M9LtRQ== - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ5IGYCYh4m7XYx31yH04ed1mbeM3KA8fuCS1Sm85s6 -dDgmPL1glOuw4oWH3n9Dc4cCW67ri//kOPhdnBjzb7KFw9LZRxQ2fMpxaGQ5 -2m943cLhzELXbZ8/IvjzpfTvqrxD8I97m3c6vkHwz38Pfrz0OSZffOoVzoxN -CH4aCCxD8P+DwHwLhy9/r1S8BJqv/pZ3n0GmhcOMmUAgmeuw5P4+vjnC5g57 -SiZLsGjlOmwx/3Eo5ZcJnN/t9YrF5KERnJ8ce8eNucPAof/QV40Y8VwHE2MQ -0HUAWTcb6F5zm71B0xq1HD5c8k0SeJHjsN2h6dFxCy24ewJuSdckGiH4NZ82 -BGRLIfgy8+I0T1/QhPsfxoeFD4y//BhQwUcEH+S8sE9o+v9A+QFaUHfmOjxJ -XHjNhF8XHn+1v60Kzu0wcECPXwAsmeHa - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, - 3}, {0, 1, 0}}}, {{{237.428, 19.1391}, {237.428, - 18.948400000000003`}, {237.428, 18.696899999999996`}, {237.678, - 18.696899999999996`}, {237.941, 18.696899999999996`}, {237.941, - 18.9359}, {237.941, 19.1391}, {237.941, 25.9094}, {237.941, - 26.099999999999994`}, {237.941, 26.349999999999994`}, {237.691, - 26.349999999999994`}, {237.428, 26.349999999999994`}, {237.428, - 26.112499999999997`}, {237.428, 25.9094}, {237.428, 19.1391}}}], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, - 3}, {0, 1, 0}}}, {{{237.428, 11.9391}, {237.428, 11.7484}, {237.428, - 11.4969}, {237.678, 11.4969}, {237.941, 11.4969}, {237.941, - 11.7359}, {237.941, 11.9391}, {237.941, 18.7094}, {237.941, - 18.900000000000002`}, {237.941, 19.150000000000002`}, {237.691, - 19.150000000000002`}, {237.428, 19.150000000000002`}, {237.428, - 18.912499999999998`}, {237.428, 18.7094}, {237.428, 11.9391}}}], - FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, - 3}, {1, 3, 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ7IGYC4g7HhKcX7PIdtpj/OJSyy8QBxu/xesViYmjq -YMt1fXGBIYJvc9+/d7oWgp8iEGG5ZUoenF8A0tCD4B/3Nu90rEHwP1zyTRLI -yHMo2Sr6+/Q8E4els48obIjKc7CrjFhhamvisARkgHeew59vpQ/mLDSG802M -gaAZwef1Xz8lNcLYQeX2z7qsAAT/e/DjpbNDEPw/Kz9e8o1C8GH2TZ/AX2UW -bewwX0r/rkpcnsMZEKgxhrg/J88hRsHxYzKPiUO+UPOBU60I/hQJljC+XgSf -V3fT3PeLEfzUNCCYBTVf2tjBARicSt15Dt0g/ysaORz5qhHTXwa1742Bwxyg -c4oKoPITgfz3y4955+c5LH/hofe/EcFvZDnabxiO4BtorRS+wGLgcODUQtdt -5XkOG/TyFjPO0XeYMRMIGtH4nQh+/yGQA/IcZEEW3Nd32FMyWYJlEtQ+RgMH -iy0nyvZNz3PoDy5Rma5v4JADUjAjz2EjSL+NAUT9LCi/xsAhdpcnD9N2hP9B -ph96iOBfAUZ3xM08h8I13bczPhg5/L1S8VLtap5DOiiczBB88alXODOaDOH8 -w23Lw09tMnD4DwK38xx8TrDbzp6qD4nPdwj+F5CGXwh+Pij+OPLh7ofxYeEL -43/Zeavr71YDh5KMiW9r2PMd+EHp44QBJH2yQOW/GjicVwImsE95Drag9PnW -EM5Pjr3jxnzDCM4H5x8tYzh/yf19fHOKEXwJkP8mGUPi/QsifDJAAaqSD+eD -40cbwYflPxgfnA/M8x243FRLmaxMHOKByeu2Zb5DH8i//oj863dxYsy/YgQf -lr8Bb/i6IA== - "]], - FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, - 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, - 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJFIGYC4v8gIFngYGIMBI/NHGD8lNg7bswa5g7uD6tE -1oki+POl9O+qiCD45p2OCU+v5GPwl9zfxzfnsCWcHyG+/SLDPQS/x+sVi4mi -lcNxb6DIGQQ/lE9309zDmPwNenmLGe9Ywvkw82F8mP1XKl6qGRaguScHwe+d -nifUnILJh/kfxge7d56Zw1+QgbkIPsx8GB9mPzpfYuoVzgwmE1T3vTCG8w20 -VgpfWGIM9z+MDwsfdD63m2op0ysEH2Y+SvgC7YfFD4yv3S5285wogg+LX3Q+ -zP8AT5va1A== - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ5IGYCYk8eJu32ogKHmk8bArKltBxg/IBb0jWJRgj+ -8cNOazPttBzMOx0TnuYVOJwBgTVaDinW9/17IwscEmLvuDFH6Dpc9k0SiAgs -cLgJ0n7UAM4/DdJ/zwjOB1k3y9zUIVkgwnJLVIGDzwl229mq5g6mcbs8eQoK -HIq3iv4+XWfhYMixRiYKaL8xCCy2gLsnDQSWIfjiU69wZmxC8BtZjvYbXrdw -OO4NdHEBgj/3/fJj3vkIvsKGooyJuQg+2B4kPsi5lhlQ/nQLh+DHS2cf8Slw -SAH518LcQbtd7OY5+wKHG0KfHM+zmcL53V6vWEweGsH5/0FgvYFDzvPfKz8C -9Z+/GvZGX1oX4l+g+fUg88O1HOKBXCag/TLz4jRPX9B0ADk/AYkPcz+MD/Mf -jA/zPzofFr8AcqrFlg== - "]], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}}}, {{{270.06300000000005`, 19.703100000000003`}, { - 270.06300000000005`, 20.846899999999998`}, {270.06300000000005`, - 23.720299999999995`}, {267.24999999999994`, 23.720299999999995`}, { - 264.42499999999995`, 23.720299999999995`}, {264.42499999999995`, - 20.859399999999997`}, {264.42499999999995`, 19.703100000000003`}, { - 264.42499999999995`, 18.557799999999997`}, {264.42499999999995`, - 15.756299999999996`}, {267.238, 15.756299999999996`}, { - 270.05199999999996`, 15.756299999999996`}, {270.06300000000005`, - 18.5219}, {270.06300000000005`, - 19.703100000000003`}}, CompressedData[" -1:eJxTTMoPSmViYGCQBGIQ/Xjp7CMKpwoceP3XT0m9YewA4/OD+ByGDhkT39bY -Hy9weJ6l/W36XQOH14E75FoPFjgsf+Gh97/RwKHG3jRu194Ch5vSNYlGrgYO -9Vl7SibvKHBITwMCNQOH/yCwGcGf6tyd83wtgi9+89z34JUFDhHi2y8y+Bk4 -6N9VYWtcWuBw8rDT2sw+Awf5VqCNCwoctpj/OJRyy8DB/WGVyLq5BQ7TJ/BX -mXEbwvkw98P4YPPWmcD5f7+VPphTaOpgDALzCxwYQEDAzEEmKsX6/sICh1Mg -++zMHWaCwPoChyX39/HNCTZ30G4Xu3luM4IPdv9OBB/s/6MFDj4n2G1nq5pD -/HUCxjeDhyePm2opU5cpnH+wbXn4qUkmDujhDwDDsLQO - "]}], - FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJ5IGYC4vlS+ndVNAodTh92Wpt5z8gBxu8LLlGZzm/q -EL/Lk4dJutBhxQsPvf+G5g7BO+RaX/8vcPC7ODHm32QLh5znv1d+/FXg0Mhy -tN/wuoVDfdaekslI/JdqhhxrfiD4tfamcbu+I/iNU527c75i8sWnXuHM2ITg -p4HAMgT/PwjMt3CYLMESxvezwEH9Le8+g0wLh3SQOr5ChyX39/HNETZ3+B78 -eOlssUKHLeY/DqX8MoHzu71esZg8NILzk2PvuDF3GDg8rBJZ585b6GBiDAK6 -DiDrngPda26zN2hao5aDcPOBUwuB9m93aHp03EIL7p6AW9I1iUYIfs2nDQHZ -Ugi+zLw4zdMXNOH+h/Fh4QPjv60BKviF4IOcd+QXmv7/UH6AlgPYmcD4eZK4 -8JoJvy48/mp/WxWc22HggB6/AJvZ3cU= - "]], - FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, - 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, - 0}, {1, 3, 3}}}, CompressedData[" -1:eJxTTMoPSmVmYGBgBGJZIGYC4oyJb2vsqwsdur1esZg8NHKA8Rff38c35zOC -PxMEfho5ZO8pmSxRBVWvaOyw+UTZvvlhhQ6OTY+Oz6i2cHhYJbLOPbTQoT+4 -RGX6eguH7XKtrwNDCh0aWY72G16H8gMQ/PPfgx8v9UXwQdzZXoUO3ifYbWdv -RfB5/NdPSa1A8NPAwMLhDAgA+cYgkGzhYLkF6CBvqHusLRxWy0SlWOcj/AeT -F+8BCohow/Xra60UvnBEC26+zPIXHnr7EfyaTxsCsmch+P9BQF4L7v4p7a1R -l+9owv2Hwg9B4n/+e6UCGD7bHYAOtNCChx8LZ5d8cp8WPHz318papC8xcpgs -wRLGBwz/jXp5ixnPIOKjeKvo79PnEHyY/wBXgNki - "]]}, - Thickness[0.003543711683617421], StripOnInput -> False]}, { - ImageSize -> {493.837499377335, 51.60673723536737}, - ImageSize -> {282.1928567870486, 29.48956413449564}, BaselinePosition -> - Scaled[0.5405405040177161], ImageSize -> {283., 30.}, - PlotRange -> {{0., 282.19}, {0., 29.49}}, AspectRatio -> Automatic}]}, - "Labeled", - DisplayFunction->(FormBox[ - GridBox[{{ - ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, { - TagBox[ - ItemBox[ - PaneBox[ - TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, - BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], - "SkipImageSizeLevel"]}}, - GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, - AutoDelete -> False, - GridBoxItemSize -> { - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - BaselinePosition -> {2, 1}], TraditionalForm]& ), - InterpretationFunction->(RowBox[{"Labeled", "[", - RowBox[{#, ",", #2, ",", "Top"}], "]"}]& )], TraditionalForm]], "Output",\ - - CellChangeTimes->{ - 3.725708340331893*^9, {3.72570839381804*^9, 3.725708425201014*^9}, { - 3.725708511266012*^9, 3.725708547469413*^9}, 3.725708612310021*^9, { - 3.72570867436313*^9, 3.725708709104349*^9}, 3.725708786703185*^9, - 3.725708823875008*^9, {3.725709448340066*^9, 3.7257094759458523`*^9}, - 3.725709517914611*^9, 3.725709558158085*^9, 3.725709606852255*^9}], - -Cell[BoxData[ - FormBox[ - InterpretationBox[ - TagBox[ - FrameBox[GridBox[{ - { - ItemBox[ - TagBox[ - RowBox[{ - RowBox[{"(", "\[NoBreak]", - TemplateBox[{"1"}, - "OutputSizeLimit`Skeleton", - DisplayFunction->(FrameBox[ - - RowBox[{ - "\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}], - Background -> GrayLevel[0.75], - BaseStyle -> { - "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller, - ShowStringCharacters -> False}, BaselinePosition -> Baseline, - ContentPadding -> False, FrameMargins -> {{1, 1}, {1, 2}}, - FrameStyle -> None, RoundingRadius -> 7]& )], "\[NoBreak]", - ")"}], "\[LeftDoubleBracket]", - RowBox[{"1", ",", "2", ",", "1", ",", "23"}], - "\[RightDoubleBracket]"}], - Short[#, 5]& ], - BaseStyle->{Deployed -> False}, - StripOnInput->False]}, - {GridBox[{ - { - TagBox[ - TooltipBox[ - StyleBox[ - StyleBox[ - DynamicBox[ToBoxes[ - FEPrivate`FrontEndResource[ - "FEStrings", "sizeBriefExplanation"], TraditionalForm], - ImageSizeCache->{73., {3., 10.}}], - StripOnInput->False, - DynamicUpdating->True], "SuggestionsBarCategory", - StripOnInput->False], - StyleBox[ - DynamicBox[ - ToBoxes[ - FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], - TraditionalForm]], DynamicUpdating -> True, StripOnInput -> - False]], - Annotation[#, - Style[ - Dynamic[ - FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], - DynamicUpdating -> True], "Tooltip"]& ], - ButtonBox[ - PaneSelectorBox[{False-> - StyleBox[ - StyleBox[ - DynamicBox[ToBoxes[ - FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], - TraditionalForm], - ImageSizeCache->{61., {0., 10.}}], - StripOnInput->False, - DynamicUpdating->True], "SuggestionsBarControl", - StripOnInput->False], True-> - StyleBox[ - StyleBox[ - DynamicBox[ToBoxes[ - FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], - TraditionalForm]], - StripOnInput->False, - DynamicUpdating->True], "SuggestionsBarControlActive", - StripOnInput->False]}, Dynamic[ - CurrentValue["MouseOver"]], - Alignment->Center, - FrameMargins->0, - ImageSize->{Automatic, 25}], - Appearance->None, - - ButtonFunction:>OutputSizeLimit`ButtonFunction[ - OutputSizeLimit`Defer, 372, 15230513597776205873, 5/2], - Enabled->True, - Evaluator->Automatic, - Method->"Queued"], - ButtonBox[ - PaneSelectorBox[{False-> - StyleBox[ - StyleBox[ - DynamicBox[ToBoxes[ - FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], - TraditionalForm], - ImageSizeCache->{68., {0., 10.}}], - StripOnInput->False, - DynamicUpdating->True], "SuggestionsBarControl", - StripOnInput->False], True-> - StyleBox[ - StyleBox[ - DynamicBox[ToBoxes[ - FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], - TraditionalForm]], - StripOnInput->False, - DynamicUpdating->True], "SuggestionsBarControlActive", - StripOnInput->False]}, Dynamic[ - CurrentValue["MouseOver"]], - Alignment->Center, - FrameMargins->0, - ImageSize->{Automatic, 25}], - Appearance->None, - - ButtonFunction:>OutputSizeLimit`ButtonFunction[ - OutputSizeLimit`Defer, 372, 15230513597776205873, 5 2], - Enabled->True, - Evaluator->Automatic, - Method->"Queued"], - ButtonBox[ - PaneSelectorBox[{False-> - StyleBox[ - StyleBox[ - DynamicBox[ToBoxes[ - FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], - TraditionalForm], - ImageSizeCache->{51., {0., 10.}}], - StripOnInput->False, - DynamicUpdating->True], "SuggestionsBarControl", - StripOnInput->False], True-> - StyleBox[ - StyleBox[ - DynamicBox[ToBoxes[ - FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], - TraditionalForm]], - StripOnInput->False, - DynamicUpdating->True], "SuggestionsBarControlActive", - StripOnInput->False]}, Dynamic[ - CurrentValue["MouseOver"]], - Alignment->Center, - FrameMargins->0, - ImageSize->{Automatic, 25}], - Appearance->None, - - ButtonFunction:>OutputSizeLimit`ButtonFunction[ - OutputSizeLimit`Defer, 372, 15230513597776205873, Infinity], - Enabled->True, - Evaluator->Automatic, - Method->"Queued"], - ButtonBox[ - PaneSelectorBox[{False-> - StyleBox[ - StyleBox[ - DynamicBox[ToBoxes[ - FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], - TraditionalForm], - ImageSizeCache->{92., {1., 10.}}], - StripOnInput->False, - DynamicUpdating->True], "SuggestionsBarControl", - StripOnInput->False], True-> - StyleBox[ - StyleBox[ - DynamicBox[ToBoxes[ - FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], - TraditionalForm]], - StripOnInput->False, - DynamicUpdating->True], "SuggestionsBarControlActive", - StripOnInput->False]}, Dynamic[ - CurrentValue["MouseOver"]], - Alignment->Center, - FrameMargins->0, - ImageSize->{Automatic, 25}], - Appearance->None, - ButtonFunction:>FrontEndExecute[{ - FrontEnd`SetOptions[ - FrontEnd`$FrontEnd, - FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], - FrontEnd`FrontEndToken["PreferencesDialog"]}], - Evaluator->None, - Method->"Preemptive"]} - }, - AutoDelete->False, - FrameStyle->GrayLevel[0.85], - GridBoxDividers->{"Columns" -> {False, {True}}}, - GridBoxItemSize->{ - "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, - GridBoxSpacings->{"Columns" -> {{2}}}]} - }, - DefaultBaseStyle->"Column", - GridBoxAlignment->{ - "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, - "RowsIndexed" -> {}}, - GridBoxDividers->{ - "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, - "RowsIndexed" -> {}}, - GridBoxItemSize->{ - "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, - "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.5599999999999999]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { - Offset[0.2], - Offset[1.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], - Background->RGBColor[0.9657, 0.9753, 0.9802], - FrameMargins->{{12, 12}, {0, 15}}, - FrameStyle->GrayLevel[0.85], - RoundingRadius->5, - StripOnInput->False], - Deploy, - DefaultBaseStyle->"Deploy"], - Out[372]], TraditionalForm]], "Output", - CellChangeTimes->{3.725711846845149*^9}] -}, Open ]] -}, Closed]], - -Cell[CellGroupData[{ - -Cell["Check multi_shift boundary condition", "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}, - CellChangeTimes->{ - 3.725641242645789*^9, {3.725641322515449*^9, 3.725641331570396*^9}, { - 3.72564735939476*^9, 3.725647360668185*^9}, {3.7256569094672823`*^9, - 3.725656919994326*^9}, {3.727606276864317*^9, 3.727606288577183*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Import", "[", "\"\\"", "]"}]], "Input", - CellChangeTimes->{{3.7276063260426683`*^9, 3.727606343291198*^9}, { - 3.7276079741423597`*^9, 3.72760798279854*^9}, {3.727608016902832*^9, - 3.7276080170467443`*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{"\<\"// \"\>", ",", "\<\"/FH_quark_prpgtr.h5/Im\"\>", - ",", "\<\"/FH_quark_prpgtr.h5/Re\"\>", ",", "\<\"/FH_src.h5/Im\"\>", - ",", "\<\"/FH_src.h5/Re\"\>", ",", "\<\"/gauge_link/Im\"\>", - ",", "\<\"/gauge_link/Re\"\>", ",", "\<\"/quark_prpgtrs/Im\"\>", - ",", "\<\"/quark_prpgtrs/Re\"\>", ",", "\<\"/quark_shftd_prpgtrs/Im\"\>", - ",", "\<\"/quark_shftd_prpgtrs/Re\"\>", ",", "\<\"/tr_prpgtrs.h5/Im\"\>", - ",", "\<\"/tr_prpgtrs.h5/Re\"\>"}], "}"}], TraditionalForm]], "Output", - CellChangeTimes->{{3.727606334485084*^9, 3.727606343907164*^9}, - 3.727606678605423*^9, 3.7276070199393578`*^9, 3.727607059548839*^9, - 3.727607516182416*^9, {3.72760797031537*^9, 3.7276079831143217`*^9}, - 3.727608023352025*^9, 3.727608162454997*^9, 3.727610929938017*^9, - 3.727611282555278*^9, 3.727611966685897*^9, 3.727612346441999*^9, - 3.7276221413631353`*^9, 3.727623962279561*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Import", "[", "\"\\"", "]"}]], "Input", - CellChangeTimes->{{3.727617320530241*^9, 3.727617325753626*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{"\<\"/coord_in_dir\"\>", ",", "\<\"/shft_phs_in_dir\"\>", - ",", "\<\"/shftd_coord_in_dir\"\>"}], "}"}], TraditionalForm]], "Output", - CellChangeTimes->{{3.727617323057144*^9, 3.727617326039929*^9}, - 3.727618207336138*^9, 3.727618868453751*^9, 3.727618981717319*^9, - 3.7276190469444427`*^9, 3.7276190909844017`*^9, 3.727622952080324*^9}] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"LttcCrdnt", "=", - RowBox[{"Transpose", "[", - RowBox[{ - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], - "]"}], ",", - RowBox[{"{", - RowBox[{"4", ",", "3", ",", "2", ",", "1"}], "}"}]}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.727617278268188*^9, 3.727617409552514*^9}, - 3.727618893006481*^9}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"LttcShftdCrdnt", "=", - RowBox[{"Transpose", "[", - RowBox[{ - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", "\"\\""}], - "}"}]}], "]"}], ",", - RowBox[{"{", - RowBox[{"4", ",", "3", ",", "2", ",", "1"}], "}"}]}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.7276182473576736`*^9, 3.727618259318041*^9}, - 3.7276188987259083`*^9}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"LttcShftPhs", "=", - RowBox[{"Transpose", "[", - RowBox[{ - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", "\"\\""}], - "}"}]}], "]"}], ",", - RowBox[{"{", - RowBox[{"4", ",", "3", ",", "2", ",", "1"}], "}"}]}], "]"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.727618972659363*^9, 3.7276189947960978`*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData["LttcShftPhs"], "Input"], - -Cell[BoxData[ - FormBox[ - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}, - { - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}, - { - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]}, - { - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"}, - { - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], - RowBox[{"-", "1.`"}], "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", "1.`", - "1.`", "1.`", "1.`", "1.`"} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, - "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, - "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, - "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - TraditionalForm]], "Output", - CellChangeTimes->{ - 3.7276189970107117`*^9, 3.727619049318302*^9, 3.72761909267218*^9, - 3.727619292541415*^9, 3.72761947526475*^9, {3.72762292720547*^9, - 3.727622955389686*^9}}] -}, Open ]], - -Cell[BoxData[ - RowBox[{"Clear", "[", - RowBox[{ - "qPrpgtrReIm", ",", "qShftdPrpgtrReIm", ",", "qPrpgtr", ",", - "qShftdPrpgtr"}], "]"}]], "Input", - CellChangeTimes->{{3.7276124903996277`*^9, 3.7276125076588783`*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"qPrpgtrReIm", "=", - RowBox[{ - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", "\"\\""}], - "}"}]}], "]"}], "+", - RowBox[{"I", "*", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", "\"\\""}], - "}"}]}], "]"}]}]}]}], ";"}]], "Input", - CellChangeTimes->{{3.727606396557128*^9, 3.727606435806625*^9}, { - 3.727606493122477*^9, 3.727606493880033*^9}, {3.727606967053432*^9, - 3.727606967329996*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"qShftdPrpgtrReIm", "=", - RowBox[{ - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", "\"\\""}], - "}"}]}], "]"}], "+", - RowBox[{"I", "*", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", "\"\\""}], - "}"}]}], "]"}]}]}]}], ";"}]], "Input", - CellChangeTimes->{{3.727606396557128*^9, 3.727606435806625*^9}, { - 3.727606493122477*^9, 3.727606493880033*^9}, {3.727606536026291*^9, - 3.727606547967966*^9}, {3.727608441367786*^9, 3.727608442863282*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"qPrpgtr", "=", - RowBox[{"Transpose", "[", - RowBox[{ - RowBox[{"ArrayReshape", "[", - RowBox[{"qPrpgtrReIm", ",", - RowBox[{"{", - RowBox[{ - "32", ",", "4", ",", "4", ",", "4", ",", "4", ",", "4", ",", "3", ",", - "3"}], "}"}]}], "]"}], ",", - RowBox[{"{", - RowBox[{ - "4", ",", "3", ",", "2", ",", "1", ",", "5", ",", "6", ",", "7", ",", - "8"}], "}"}]}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.727606498317027*^9, 3.7276065051447973`*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"qShftdPrpgtr", "=", - RowBox[{"Transpose", "[", - RowBox[{ - RowBox[{"ArrayReshape", "[", - RowBox[{"qShftdPrpgtrReIm", ",", - RowBox[{"{", - RowBox[{ - "32", ",", "4", ",", "4", ",", "4", ",", "4", ",", "4", ",", "3", ",", - "3"}], "}"}]}], "]"}], ",", - RowBox[{"{", - RowBox[{ - "4", ",", "3", ",", "2", ",", "1", ",", "5", ",", "6", ",", "7", ",", - "8"}], "}"}]}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.7276067423215733`*^9, 3.727606745973526*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Chop", "[", - RowBox[{ - RowBox[{ - RowBox[{"qPrpgtr", "\[LeftDoubleBracket]", - RowBox[{"2", ",", "2", ",", "1", ",", "5", ",", "2", ",", "4"}], - "\[RightDoubleBracket]"}], ".", - RowBox[{"Inverse", "[", - RowBox[{"qShftdPrpgtr", "\[LeftDoubleBracket]", - RowBox[{"2", ",", "2", ",", "1", ",", "3", ",", "2", ",", "4"}], - "\[RightDoubleBracket]"}], "]"}]}], ",", - SuperscriptBox["10", - RowBox[{"-", "8"}]]}], "]"}]], "Input", - CellChangeTimes->{{3.7276221891602087`*^9, 3.727622189544347*^9}, - 3.727623985738064*^9}], - -Cell[BoxData[ - FormBox[ - RowBox[{"(", "\[NoBreak]", GridBox[{ - {"1.`", "0", "0"}, - {"0", "1.`", "0"}, - {"0", "0", "1.`"} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, - "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - TraditionalForm]], "Output", - CellChangeTimes->{ - 3.727622190094563*^9, {3.727623979967085*^9, 3.727623985985941*^9}}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Chop", "[", - RowBox[{ - RowBox[{ - RowBox[{"qPrpgtr", "\[LeftDoubleBracket]", - RowBox[{"2", ",", "3", ",", "2", ",", "1", ",", "1", ",", "3"}], - "\[RightDoubleBracket]"}], ".", - RowBox[{"Inverse", "[", - RowBox[{"qShftdPrpgtr", "\[LeftDoubleBracket]", - RowBox[{"2", ",", "3", ",", "2", ",", "31", ",", "1", ",", "3"}], - "\[RightDoubleBracket]"}], "]"}]}], ",", - SuperscriptBox["10", - RowBox[{"-", "8"}]]}], "]"}]], "Input", - CellChangeTimes->{{3.7276221951766*^9, 3.72762222757309*^9}, { - 3.727623996858042*^9, 3.7276240301757717`*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"-", "1.`"}], "0", "0"}, - {"0", - RowBox[{"-", "1.`"}], "0"}, - {"0", "0", - RowBox[{"-", "1.`"}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, - "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - TraditionalForm]], "Output", - CellChangeTimes->{{3.727622203367292*^9, 3.7276222280941973`*^9}, { - 3.7276239930058117`*^9, 3.727624030507272*^9}}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Chop", "[", - RowBox[{ - RowBox[{ - RowBox[{"qPrpgtr", "\[LeftDoubleBracket]", - RowBox[{"2", ",", "3", ",", "1", ",", "2", ",", "2", ",", "3"}], - "\[RightDoubleBracket]"}], ".", - RowBox[{"Inverse", "[", - RowBox[{"qShftdPrpgtr", "\[LeftDoubleBracket]", - RowBox[{"2", ",", "3", ",", "1", ",", "32", ",", "2", ",", "3"}], - "\[RightDoubleBracket]"}], "]"}]}], ",", - SuperscriptBox["10", - RowBox[{"-", "8"}]]}], "]"}]], "Input", - CellChangeTimes->{{3.727611601439889*^9, 3.727611605575403*^9}, { - 3.7276123690908747`*^9, 3.727612371186179*^9}, {3.7276125295752487`*^9, - 3.7276125362556868`*^9}, {3.727619645590198*^9, 3.727619679078393*^9}, { - 3.727624145961924*^9, 3.727624146104513*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"(", "\[NoBreak]", GridBox[{ - { - RowBox[{"-", "1.0000000000000002`"}], "0", "0"}, - {"0", - RowBox[{"-", "1.0000000000000002`"}], "0"}, - {"0", "0", - RowBox[{"-", "1.0000000000000002`"}]} - }, - GridBoxAlignment->{ - "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, - "RowsIndexed" -> {}}, - GridBoxSpacings->{"Columns" -> { - Offset[0.27999999999999997`], { - Offset[0.7]}, - Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { - Offset[0.2], { - Offset[0.4]}, - Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], - TraditionalForm]], "Output", - CellChangeTimes->{ - 3.727611605917058*^9, 3.727611968937934*^9, 3.727612352046184*^9, { - 3.7276125179328117`*^9, 3.727612536913699*^9}, {3.727619653006773*^9, - 3.727619680240597*^9}, {3.7276241347601967`*^9, 3.727624146440928*^9}}] -}, Open ]] -}, Closed]] -}, Open ]] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[TextData[{ - "correlation function ", - Cell[BoxData[ - FormBox[ - RowBox[{ - UnderscriptBox["\[CapitalSigma]", "x"], - RowBox[{"\[LeftAngleBracket]", - RowBox[{ - RowBox[{ - SuperscriptBox["\[Pi]", "+"], "(", "t", ")"}], "|", - RowBox[{ - RowBox[{ - OverscriptBox["q", "_"], "(", "x", ")"}], - SubscriptBox["\[Gamma]", "z"], - RowBox[{"W", "[", - RowBox[{"x", ",", - RowBox[{"x", "+", - SubscriptBox["\[CapitalDelta]", "z"]}]}], "]"}], - RowBox[{"q", "(", - RowBox[{"x", "+", - SubscriptBox["\[CapitalDelta]", "z"]}], ")"}]}], "|", - RowBox[{ - SuperscriptBox["\[Pi]", "+"], "(", "0", ")"}]}], - "\[RightAngleBracket]"}]}], TraditionalForm]]], - " , traced propagators" -}], "Subtitle", - CellGroupingRules->{"TitleGrouping", Inherited}, - CellChangeTimes->{{3.708086065839361*^9, 3.7080861441953993`*^9}, { - 3.70808625143326*^9, 3.708086252107943*^9}, 3.708086988220398*^9, { - 3.708102693292859*^9, 3.708102812181559*^9}, {3.708102882460631*^9, - 3.7081029937434893`*^9}, {3.708103029735848*^9, 3.708103210018227*^9}, { - 3.708103254326831*^9, 3.7081032591648397`*^9}, {3.708103551568356*^9, - 3.708103560757443*^9}, {3.725643982094989*^9, 3.725644041912719*^9}, { - 3.72571214692204*^9, 3.7257122946216*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"PDFtags", "=", - RowBox[{ - RowBox[{"StringReplace", "[", - RowBox[{ - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", "\"\\"", "}"}]}], "]"}], ",", - RowBox[{ - RowBox[{"\"\\"", "~~", "X__", "~~", "\"\<>\>\"", "~~", "Y__"}], ":>", - RowBox[{"\"\\"", "~~", "X", "~~", "\"\<>\>\""}]}]}], "]"}], "//", - "Union"}]}]], "Input", - CellChangeTimes->{{3.7276297958750553`*^9, 3.727629909045376*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{"\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>"}], "}"}], TraditionalForm]], "Output", - CellChangeTimes->{3.727630031937303*^9, 3.727630802221396*^9, - 3.727631712967037*^9, 3.727631921711851*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell["-2 steps in dir_2", "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}, - CellChangeTimes->{ - 3.725641242645789*^9, {3.725641322515449*^9, 3.725641331570396*^9}, { - 3.72564735939476*^9, 3.725647360668185*^9}, {3.7256569094672823`*^9, - 3.725656919994326*^9}, {3.727606276864317*^9, 3.727606288577183*^9}, { - 3.727629995289629*^9, 3.727630019067541*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"PDFtags", "=", - RowBox[{ - RowBox[{"StringReplace", "[", - RowBox[{ - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", "\"\\"", "}"}]}], "]"}], ",", - RowBox[{ - RowBox[{"\"\\"", "~~", "X__", "~~", "\"\<>\>\"", "~~", "Y__"}], ":>", - RowBox[{"\"\\"", "~~", "X", "~~", "\"\<>\>\""}]}]}], "]"}], "//", - "Union"}]}]], "Input", - CellChangeTimes->{{3.7276297958750553`*^9, 3.727629909045376*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{"\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>"}], "}"}], TraditionalForm]], "Output", - CellChangeTimes->{{3.727629882115066*^9, 3.727629909786525*^9}}] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"trPrpgtrs", "=", - RowBox[{ - RowBox[{ - RowBox[{"Transpose", "[", - RowBox[{ - RowBox[{ - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", - RowBox[{"#", "<>", "\"\\""}]}], "}"}]}], "]"}], - "+", - RowBox[{"I", "*", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", - RowBox[{"#", "<>", "\"\\""}]}], "}"}]}], - "]"}]}]}], ",", - RowBox[{"{", - RowBox[{"4", ",", "3", ",", "2", ",", "1"}], "}"}]}], "]"}], "&"}], - "[", - RowBox[{"PDFtags", "\[LeftDoubleBracket]", - RowBox[{"-", "2"}], "\[RightDoubleBracket]"}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.7276272023981256`*^9, 3.727627227185638*^9}, { - 3.727627317333276*^9, 3.727627379408533*^9}, {3.7276293246878357`*^9, - 3.727629370118081*^9}, {3.72762966911945*^9, 3.727629672454177*^9}, { - 3.72762992155698*^9, 3.7276299359286823`*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"{", - RowBox[{"Nx", ",", "Ny", ",", "Nz", ",", "Nt"}], "}"}], "=", - RowBox[{"Dimensions", "[", "trPrpgtrs", "]"}]}]], "Input", - CellChangeTimes->{{3.7257124165972147`*^9, 3.725712473877812*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{"4", ",", "4", ",", "4", ",", "32"}], "}"}], - TraditionalForm]], "Output", - CellChangeTimes->{{3.725712432541099*^9, 3.725712439006362*^9}, - 3.7257124744779263`*^9, 3.725785348765053*^9, 3.7263078141133957`*^9, - 3.726307948137574*^9, 3.726308077424088*^9, 3.7276273848125963`*^9, - 3.727627629822362*^9, 3.727627899757317*^9, 3.727629351740223*^9, - 3.727629410764037*^9, 3.7276296745193768`*^9, 3.727629939340035*^9}] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Evan0Pz", "=", - RowBox[{ - RowBox[{"ToExpression", "[", - RowBox[{"StringReplace", "[", - RowBox[{ - "\"\<[1.50939502e-04 -2.58204955e-04j -5.81637563e-03 -3.52101910e-03j\ -\n -1.21073366e-03 -6.87272967e-04j -2.71334016e-04 -1.48938480e-04j\n \ --5.79560168e-05 -3.41965357e-05j -1.02351854e-05 -6.43287815e-06j\n \ --1.77255727e-06 -1.19330009e-06j -2.98680914e-07 -1.89073570e-07j\n \ --5.01602706e-08 -2.85732100e-08j -8.81932028e-09 -4.79817074e-09j\n \ --1.41277945e-09 -8.16297377e-10j -2.11389816e-10 -1.18125750e-10j\n \ --3.39281134e-11 -1.53052014e-11j -5.18230635e-12 -1.68033333e-12j\n \ --7.77856964e-13 -1.63106354e-13j -1.18939561e-13 -1.06460279e-14j\n \ -1.12314577e-14 +8.97112009e-15j 1.44126222e-13 +6.24711003e-14j\n \ -9.16956416e-13 +5.06801541e-13j 5.51644467e-12 +3.75878202e-12j\n \ -3.17148874e-11 +2.45794762e-11j 1.81779335e-10 +1.48731611e-10j\n \ -1.10268468e-09 +9.23332231e-10j 5.61570323e-09 +5.15001481e-09j\n \ -3.05195710e-08 +2.99057365e-08j 2.05079463e-07 +1.83756788e-07j\n \ -1.30766785e-06 +1.09783959e-06j 8.37705667e-06 +6.26008976e-06j\n \ -5.56174177e-05 +3.80014259e-05j 3.90689010e-04 +2.50215728e-04j\n \ -2.11481576e-03 +1.28653817e-03j 7.97392300e-03 +4.57969754e-03j]\>\"", ",", - - RowBox[{"{", - RowBox[{ - RowBox[{"\"\<[\>\"", "\[Rule]", "\"\<{\>\""}], ",", - RowBox[{"\"\<]\>\"", "\[Rule]", "\"\<}\>\""}], ",", - RowBox[{"\"\\"", "\[Rule]", "\"\<*^\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<,\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}]}], "}"}]}], "]"}], - "]"}], "//.", - RowBox[{"j", "\[Rule]", "I"}]}]}], ";"}]], "Input", - CellChangeTimes->{{3.7257125507134933`*^9, 3.7257126495783997`*^9}, { - 3.72571269097847*^9, 3.725712713900034*^9}, 3.725717644541053*^9, { - 3.7257176907900667`*^9, 3.72571769944528*^9}, {3.7257179259722347`*^9, - 3.725717927380402*^9}, {3.7257179798940783`*^9, 3.725717988829979*^9}, { - 3.727627657856822*^9, 3.727627668972213*^9}, {3.727627722677865*^9, - 3.7276277228782997`*^9}, 3.727627765147663*^9, 3.727630351560543*^9}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Chop", "[", - RowBox[{ - RowBox[{ - FractionBox[ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "]"}], "Evan0Pz"], "+", - "1"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}]], "Input", - CellChangeTimes->{{3.7276277621718187`*^9, 3.727627839991593*^9}, { - 3.727627914983019*^9, 3.727627915392362*^9}, 3.7276279507901573`*^9, { - 3.7276296824253397`*^9, 3.7276296827500153`*^9}, {3.727629947734486*^9, - 3.727629948126464*^9}, 3.727630351573547*^9}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{ - "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", - RowBox[{"0.`", "\[VeryThinSpace]", "-", - RowBox[{"0.000015412357284083633`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.`", "\[VeryThinSpace]", "-", - RowBox[{"0.00003047854187343546`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{ - RowBox[{"-", "0.000010228277497636995`"}], "-", - RowBox[{"0.000028708586606751574`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{ - RowBox[{"-", "0.00040532371091162034`"}], "+", - RowBox[{"0.00013686438383819777`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{ - RowBox[{"-", "0.00008153490433038257`"}], "+", - RowBox[{"0.00001901216075522738`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"-", "0.00002938032276866842`"}], ",", "0", ",", "0", ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", - "0", ",", "0", ",", "0"}], "}"}], TraditionalForm]], "Output", - CellChangeTimes->{{3.727627769142304*^9, 3.727627840404057*^9}, { - 3.7276279040817623`*^9, 3.72762791575653*^9}, {3.7276279516008177`*^9, - 3.727627961504963*^9}, 3.727629356251318*^9, 3.727629415190401*^9, { - 3.727629680146792*^9, 3.727629683547394*^9}, {3.727629944618627*^9, - 3.727629948839365*^9}}] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Evan2Pz", "=", - RowBox[{ - RowBox[{"ToExpression", "[", - RowBox[{"StringReplace", "[", - RowBox[{ - "\"\<[-1.02985814e-04 +1.44262529e-04j -1.87677684e-03 \ --1.04485134e-03j\n -3.06382668e-04 -1.45882475e-04j -4.08867034e-05 \ --2.70715745e-05j\n -6.56182730e-06 -4.32378965e-06j -7.51082848e-07 \ --5.09306053e-07j\n -2.19341071e-08 +6.04844804e-09j -4.93523333e-09 \ --1.39422100e-09j\n -1.63333173e-09 -1.32578574e-09j -1.50509786e-10 \ --1.45249134e-10j\n -6.22503335e-11 -5.39079043e-11j -9.84399400e-12 \ --1.31644432e-11j\n -1.82801739e-12 -2.23955215e-12j -1.74979543e-13 \ --2.40323006e-13j\n -3.76895450e-14 -3.01230049e-14j -6.36095257e-15 \ --3.28649127e-15j\n 2.28437334e-16 -4.71538503e-16j 3.80225390e-15 \ --1.28323757e-15j\n 3.18997453e-14 -3.31951824e-15j 1.34017971e-13 \ --8.05233445e-14j\n 2.79408755e-13 -1.08322541e-12j -2.97894587e-13 \ --4.02027609e-12j\n -9.11928400e-12 -8.91340193e-12j -3.17084648e-11 \ -+2.22809665e-11j\n -9.65932230e-11 +8.44727795e-10j 1.80999550e-09 \ -+3.68445863e-09j\n 5.43254908e-08 +4.83009433e-08j 4.42315068e-07 \ -+3.32556121e-07j\n 4.55996068e-06 +2.78699293e-06j 3.49881577e-05 \ -+2.93136808e-05j\n 3.37146340e-04 +2.17108992e-04j 2.22603075e-03 \ -+1.42853548e-03j]\n\>\"", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\"\<[\>\"", "\[Rule]", "\"\<{\>\""}], ",", - RowBox[{"\"\<]\>\"", "\[Rule]", "\"\<}\>\""}], ",", - RowBox[{"\"\\"", "\[Rule]", "\"\<*^\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<,\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}]}], "}"}]}], "]"}], - "]"}], "//.", - RowBox[{"j", "\[Rule]", "I"}]}]}], ";"}]], "Input", - CellChangeTimes->{{3.7276279827884827`*^9, 3.727628003399682*^9}, { - 3.727628381233543*^9, 3.7276283876570463`*^9}, {3.727628427089967*^9, - 3.727628432362475*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Chop", "[", - RowBox[{ - RowBox[{ - FractionBox[ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "2"}], "}"}]}], "]"}], "Evan2Pz"], "-", - "1"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}]], "Input", - CellChangeTimes->{{3.7276280128286753`*^9, 3.7276280129870043`*^9}, - 3.727628092981536*^9, {3.727628468635049*^9, 3.727628484739403*^9}, { - 3.7276294402911377`*^9, 3.727629442964613*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{ - "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", - RowBox[{"0.`", "\[VeryThinSpace]", "-", - RowBox[{"0.00003023027341964024`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.00001843160684211753`", "\[VeryThinSpace]", "-", - RowBox[{"0.00003981698810390233`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.00012827603313447788`", "\[VeryThinSpace]", "+", - RowBox[{"0.00006487221762740969`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.00045814306777680613`", "\[VeryThinSpace]", "-", - RowBox[{"0.0006232508879231435`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{ - RowBox[{"-", "0.00004561486448306784`"}], "+", - RowBox[{"0.00010486657570785152`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.00005441498801639355`", "\[VeryThinSpace]", "+", - RowBox[{"0.00002620776462197716`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.`", "\[VeryThinSpace]", "+", - RowBox[{"0.00001949678858026438`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.`", "\[VeryThinSpace]", "+", - RowBox[{"0.000012742304290852546`", " ", "\[ImaginaryI]"}]}], ",", "0", - ",", - RowBox[{"-", "0.000011967710042526392`"}], ",", - RowBox[{"0.`", "\[VeryThinSpace]", "-", - RowBox[{"0.000013061490034105283`", " ", "\[ImaginaryI]"}]}], ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], - "}"}], TraditionalForm]], "Output", - CellChangeTimes->{ - 3.72762801364791*^9, 3.727628093704427*^9, 3.727628389848628*^9, { - 3.727628441899981*^9, 3.7276284854201603`*^9}, {3.727629422011191*^9, - 3.727629443694212*^9}, 3.727629957013989*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"GraphicsRow", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"ListLinePlot", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", - "Evan0Pz"}], "}"}], "//", "#"}], "//", "Abs"}], "//", "Log"}], - ",", - RowBox[{"PlotStyle", "\[Rule]", - RowBox[{"{", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", "Blue"}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", - RowBox[{"Dashing", "[", "0.01", "]"}], ",", "Red"}], "}"}]}], - "}"}]}], ",", - RowBox[{"PlotMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"\"\<*\>\"", ",", "\"\<+\>\""}], "}"}]}]}], "]"}], "&"}], "/@", - RowBox[{"{", - RowBox[{"Re", ",", "Im"}], "}"}]}], ",", - RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]], "Input", - CellChangeTimes->{{3.727628603540069*^9, 3.727628664031665*^9}, - 3.7276303515909157`*^9}], - -Cell[BoxData[ - FormBox[ - GraphicsBox[{{}, {InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7KdOz7B4NkPxAFTAQSB3wqzZ00SgfA6Hd/0q -O3belYLyBRzyvypZL8hRgPJFHFYW7Fj6u0kZypdwOBb2x3r7LzUoX8Yhuo7v -fWmNFpSv4FBSLhBgzaMH5Ss5LD9j/fD2OQMoX8XhjfjNbbe7jaB8NYfl+/eW -bkwwgfI1HDYcO1r0z80Mytdy+Lq1wyNM2gLK13H480paPeaPJZSv5/CmfjnL -rYfWUL6Bw9nMmvSZh2yhfEOHu0lcRr78DlC+kcNPThXnjIkweWOHl+cNuHZt -h+k3caju0+WIeQMz39ThYLjinlk6MPvNHCzzFLsW5MLcZ+7A+jRPUmkBzP0W -Dotl6l0z/8P8Z+kgePzbGV4/QyjfyqFnweve3Wdg4WPtcLLTX8NYQhvKt3HI -cz3T6JmoDuXbOsx/utpGaAYs/O0cLl178eJDsjyUb+8QlmBnNnORBJTv4LAr -9UNMZ7DwAQCNuZIh - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7DfGbbJ4NkPxAFTAISmubtbsaSJQPoeD3ulP -23felYLyBRxe1kpbL8hRgPJFHJz+bFz6u0kZypdw0LG3t9n+Sw3Kl3G4fsPq -fWmNFpSv4PDs+R5/ax49KF/JQScr5MHtcwZQvorDJGfWTbe7jaB8NQeL15Kp -GxNMoHwNB/6jd5z+uZlB+VoOu6y09odKW0D5Og7Su2dXR/+xhPL1HHTz/wne -emgN5Rs4RN/9+XzmIVso39Ch96QwXxy/A5Rv5HDe10k1byJM3tghXuiL857t -MP0mDulaEyfFvIGZb+oQ1rR3xSwdmP1mDlJSUsELcmHuM3dgKzn3SXEBzP0W -DvoPHxpn/of5z9KhzirqGK+fIZRv5cC25Hvn7jOw8LF24PYrUDeW0IbybRwm -XzzY6JmoDuXbOszM22AjNAMW/nYOGz4/ffEhWR7Kt3fwDjAxm7lIAsp3cIgv -+xnTGSx8AABQrY9F - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9lOnZ1g8m6F4ACrgIJA7YdbsaSJQPofD -u36VHTvvSkH5Ag75X5WsF+QoQPkiDisLdiz93aQM5Us4HAv7Y739lxqUL+MQ -Xcf3vrRGC8pXcCgpFwiw5tGD8pUclp+xfnj7nAGUr+LwRvzmttvdRlC+msPy -/XtLNyaYQPkaDhuOHS3652YG5Ws5fN3a4REmbQHl6zj8eSWtHvPHEsrXc3hT -v5zl1kNrKN/A4WxmTfrMQ7ZQvqHD3SQuI19+ByjfyOEnp4pzxkSYvLHDy/MG -XLu2w/SbOFT36XLEvIGZb+pwMFxxzywdmP1mDpZ5il0LcmHuM3dgfZonqbQA -5n4Lh8Uy9a6Z/2H+s3QQPP7tDK+fIZRv5dCz4HXv7jOw8LF2ONnpr2EsoQ3l -2zjkuZ5p9ExUh/JtHeY/XW0jNAMW/nYOl669ePEhWR7Kt3cIS7Azm7lIAsp3 -cNiV+iGmM1j4AACZAZIj - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9hvjNlk8m6F4ACrgkBRXN2v2NBEon8NB -7/Sn7TvvSkH5Ag4va6WtF+QoQPkiDk5/Ni793aQM5Us46Njb22z/pQblyzhc -v2H1vrRGC8pXcHj2fI+/NY8elK/koJMV8uD2OQMoX8VhkjPrptvdRlC+moPF -a8nUjQkmUL6GA//RO07/3MygfC2HXVZa+0OlLaB8HQfp3bOro/9YQvl6Drr5 -/wRvPbSG8g0cou/+fD7zkC2Ub+jQe1KYL47fAco3cjjv66SaNxEmb+wQL/TF -ec92mH4Th3StiZNi3sDMN3UIa9q7YpYOzH4zBykpqeAFuTD3mTuwlZz7pLgA -5n4LB/2HD40z/8P8Z+lQZxV1jNfPEMq3cmBb8r1z9xlY+Fg7cPsVqBtLaEP5 -Ng6TLx5s9ExUh/JtHWbmbbARmgELfzuHDZ+fvviQLA/l2zt4B5iYzVwkAeU7 -OMSX/YzpDBY+AABb9Y9H - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-32.12005783048799, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {192., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}], InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7Je9O/GfpU3hAFTAgUPx7PYpM8SgfA4HNmmf -SxMUZaF8AYfTZ/urds9XhPJFHCStnP6LT1SB8iUc5CqneNa9UIfyZRzyY4JM -+N21oXwFB41Ll+aFfdOD8pUcoj2aGt7EGUL5Kg7Bb2SUNqgbQ/lqDvI7+z3k -3ppA+RoOTmciXH/eNoPytRxWPGvNkH9uAeXrOBw6e1x9tYw1lK/nENCdVrej -0BbKN3Co0d0WpivmAOUbOvB3y82X1IHxjRyafr24kJduB+UbO9yftsalzd8G -yjdxiBazd5vkZwXlmzocjLwhfCsXZr+ZQ/ml3V7/FsDcZ+7w+4T83MlnYe63 -cOh+erljkijMf5YOH5S4Ih2DYf63crhbutPiI4s+lG/tIBurdWp/ISz8bBzW -e17iy/8GC19bh+hyt7/C0bDwt3Ngnzttnsw0WHzaO/RqRUp1zZeC8h0cNKYl -LUvuFj0AACieinw= - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7A/J7P3P0qZwACrgwGxzYfuUGWJQPofDkQ7/ -SxMUZaF8AYdX0a1Vu+crQvkiDg5tpf/FJ6pA+RIOSfzvPeteqEP5Mg6t57xM -+d21oXwFB4+7u+eHfdOD8pUcUhSVG9/EGUL5Kg4t67jkNqgbQ/lqDgpLd1rI -vTWB8jUcflT2m/68bQblazkEZ148JP/cAsrXcah4OeXtWhlrKF/P4X9RYu2h -Qlso38DhdMlMPQsxByjf0GEd7zxPRR0Y38iB/+o7j8J0Oyjf2MHuOJNZu78N -lG/isK1Xd9skPyso39ShqemE9K1cmP1mDknafIr/FsDcZ+7g0O3XOPkszP0W -DgbCrJWTRGH+s3Q4Y8cY7BgM87+VQ7LBBZOPLPpQvrVD47/5J/YXwsLPxuHP -BhW+/G+w8LV1kLLl/yscDQt/Owf+F3PnyUyDxae9Q8d2J6mu+VJQvoOD2ams -ZcndogcAmdGI/Q== - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9svenfjP0qZwACrgwKF4dvuUGWJQPocD -m7TPpQmKslC+gMPps/1Vu+crQvkiDpJWTv/FJ6pA+RIOcpVTPOteqEP5Mg75 -MUEm/O7aUL6Cg8alS/PCvulB+UoO0R5NDW/iDKF8FYfgNzJKG9SNoXw1B/md -/R5yb02gfA0HpzMRrj9vm0H5Wg4rnrVmyD+3gPJ1HA6dPa6+WsYaytdzCOhO -q9tRaAvlGzjU6G4L0xVzgPINHfi75eZL6sD4Rg5Nv15cyEu3g/KNHe5PW+PS -5m8D5Zs4RIvZu03ys4LyTR0ORt4QvpULs9/MofzSbq9/C2DuM3f4fUJ+7uSz -MPdbOHQ/vdwxSRTmP0uHD0pckY7BMP9bOdwt3WnxkUUfyrd2kI3VOrW/EBZ+ -Ng7rPS/x5X+Dha+tQ3S521/haFj42zmwz502T2YaLD7tHXq1IqW65ktB+Q4O -GtOSliV3ix4AADPmin4= - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9odk9v5naVM4ABVwYLa5sH3KDDEon8Ph -SIf/pQmKslC+gMOr6Naq3fMVoXwRB4e20v/iE1WgfAmHJP73nnUv1KF8GYfW -c16m/O7aUL6Cg8fd3fPDvulB+UoOKYrKjW/iDKF8FYeWdVxyG9SNoXw1B4Wl -Oy3k3ppA+RoOPyr7TX/eNoPytRyCMy8ekn9uAeXrOFS8nPJ2rYw1lK/n8L8o -sfZQoS2Ub+BwumSmnoWYA5Rv6LCOd56nog6Mb+TAf/WdR2G6HZRv7GB3nMms -3d8Gyjdx2Naru22SnxWUb+rQ1HRC+lYuzH4zhyRtPsV/C2DuM3dw6PZrnHwW -5n4LBwNh1spJojD/WTqcsWMMdgyG+d/KIdnggslHFn0o39qh8d/8E/sLYeFn -4/Bngwpf/jdY+No6SNny/xWOhoW/nQP/i7nzZKbB4tPeoWO7k1TXfCko38HB -7FTWsuRu0QMApRmI/w== - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-32.34476585595563, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {576., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}]}, {}}, - ContentSelectable->True, - ImageSize->Large, - PlotRangePadding->{6, 5}], TraditionalForm]], "Output", - CellChangeTimes->{{3.7276286072479*^9, 3.7276286652093353`*^9}, - 3.727629456338523*^9, 3.727629962386148*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"GraphicsRow", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"ListLinePlot", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "2"}], "}"}]}], "]"}], ",", - "Evan2Pz"}], "}"}], "//", "#"}], "//", "Abs"}], "//", "Log"}], - ",", - RowBox[{"PlotStyle", "\[Rule]", - RowBox[{"{", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", "Blue"}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", - RowBox[{"Dashing", "[", "0.01", "]"}], ",", "Red"}], "}"}]}], - "}"}]}], ",", - RowBox[{"PlotMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"\"\<*\>\"", ",", "\"\<+\>\""}], "}"}]}]}], "]"}], "&"}], "/@", - RowBox[{"{", - RowBox[{"Re", ",", "Im"}], "}"}]}], ",", - RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]], "Input", - CellChangeTimes->{{3.727628673943778*^9, 3.727628675078917*^9}}], - -Cell[BoxData[ - FormBox[ - GraphicsBox[{{}, {InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7IW5V5YsjFE6ABVwKJ/F5/9ARhLK53AoaTLl -ztVTgPIFHBJiF/6abaoC5Ys4aPOyPw25pw7lSzhcNgrrlzDRgfJlHHiz1v6Z -u8gQyldwUN/+26tKwRjKV3KIcXef1GdtAuWrODyey2L7ea4ZlK/moOA0edq3 -enMoX8PBPCcmXyrCEsrXcsgxN54hw24N5es4nP51we9QvC2Ur+ewInXfrlMv -7KB8AwfXhm8PFSIcoHxDh1yHNc38TE5QvpHDIRcOc6ZZMHljh9e7fNbVCNtD -+SYOH/aFh3AtgZlv6qA74bXa5+c2UL6ZwxSzH20Tr8P45g4pE/7fWpcNc6+F -Q6PL560rdCygfEsHkzU3Aur4Yf6zcjC+sOO0syIsPKwd9Noc+Qp2GUD5Ng7x -/8zCjJx1oXxbh8S9ChZrZ2hA+XYO+/Zcjk9ohcWPvUPzlz8T7/+Sh/IdHB57 -/tsqmydxAABhSIr9 - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7M+emFGyMEbpAFTAQXAXv/8DGUkon8PBJtmc -O1dPAcoXcOB90P1rtqkKlC/isGbR+ych99ShfAkHmzLbfgkTHShfxuH3tiU/ -5y4yhPIVHEQ4Iz2qFIyhfCUHH5f/PX3WJlC+isOOBCbHz3PNoHw1hwLdWUu+ -1ZtD+RoOHqpXrktFWEL5Wg4Pd1kbyLJbQ/k6DuwvU+uPxttC+XoODuF3WM+9 -sIPyDRxurbv4RznCAco3dJh+7HP0F0YnKN/IwS3G7SHjLJi8scO1iV9zGoTt -oXwTh7VJlxZyL4GZb+rwwGCb6bfnNlC+mYPO2Y3b+6/D+OYO0fUZqeuyYe61 -cLB6sPTdch0LKN/SYer9y/tr+WH+s3LgPmt7w1kRFh7WDn+zPXkLdhlA+TYO -plr2oUbOulC+rQP3XCmLtTM0oHw7B6bSF/EJrbD4sXdwDuWYdP+XPJTv4BCS -8W6rbJ7EAQAwJowK - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9sLcK0sWxigdgAo4lM/i838gIwnlcziU -NJly5+opQPkCDgmxC3/NNlWB8kUctHnZn4bcU4fyJRwuG4X1S5joQPkyDrxZ -a//MXWQI5Ss4qG//7VWlYAzlKznEuLtP6rM2gfJVHB7PZbH9PNcMyldzUHCa -PO1bvTmUr+FgnhOTLxVhCeVrOeSYG8+QYbeG8nUcTv+64Hco3hbK13NYkbpv -16kXdlC+gYNrw7eHChEOUL6hQ67DmmZ+Jico38jhkAuHOdMsmLyxw+tdPutq -hO2hfBOHD/vCQ7iWwMw3ddCd8Frt83MbKN/MYYrZj7aJ12F8c4eUCf9vrcuG -udfCodHl89YVOhZQvqWDyZobAXX8MP9ZORhf2HHaWREWHtYOem2OfAW7DKB8 -G4f4f2ZhRs66UL6tQ+JeBYu1MzSgfDuHfXsuxye0wuLH3qH5y5+J93/JQ/kO -Do89/22VzZM4AABskIr/ - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9mdPzChZGKN0ACrgILiL3/+BjCSUz+Fg -k2zOnaunAOULOPA+6P4121QFyhdxWLPo/ZOQe+pQvoSDTZltv4SJDpQv4/B7 -25KfcxcZQvkKDiKckR5VCsZQvpKDj8v/nj5rEyhfxWFHApPj57lmUL6aQ4Hu -rCXf6s2hfA0HD9Ur16UiLKF8LYeHu6wNZNmtoXwdB/aXqfVH422hfD0Hh/A7 -rOde2EH5Bg631l38oxzhAOUbOkw/9jn6C6MTlG/k4Bbj9pBxFkze2OHaxK85 -DcL2UL6Jw9qkSwu5l8DMN3V4YLDN9NtzGyjfzEHn7Mbt/ddhfHOH6PqM1HXZ -MPdaOFg9WPpuuY4FlG/pMPX+5f21/DD/WTlwn7W94awICw9rh7/ZnrwFuwyg -fBsHUy37UCNnXSjf1oF7rpTF2hkaUL6dA1Ppi/iEVlj82Ds4h3JMuv9LHsp3 -cAjJeLdVNk/iAAA7bowM - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-36.01609846029974, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {192., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}], InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7LV//agR2KB4ACrgEDf7ieLcEmkon8PBTo3r -bsQqmLyAw8O+otXbOVShfBEHjz2pt59v1oDyJRyqi103/P2lA+XLODz7VaGY -8cYIyldwuH7MjkEkxQTKV3I4dOh3wbcCGF/FQfncr+d8y82gfDWHx18eh55Z -Yg7lazi4WUebbuK1hPK1HGZMDlmvdNkKytdxCFw9820Xny2Ur+cgd3iXm56S -PZRv4DD/HK/rojUOUL6hw/friRbiSx2hfCOHtwt9ssRUYXxjB8uFzemZq2Hq -TRzO1xiwlKvZQfmmDl8qIm8I91pD+WYO0ntSpKJtYe4xd+jkc+brKIS518Jh -57/O4N9tFlC+pcN2+Sd1UU9g/rdymHLE/LVPtjGUb+3Af/pUQPsNAyjfxsHD -Z/tDy6u6UL6tw+N3d+cdmqIJ5ds5bHS2d/51XwXKt3c4snXug2P3FKB8BwdW -hj//Q0ykDgAAMoWTxA== - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7EWL1WsFNigegAo4NO6/ozi3RBrK53DY+UHq -bsQqmLyAQ+O2vtXbOVShfBGH5U21t59v1oDyJRyMFDrX//2lA+XLOEz5zqSa -8cYIyldwCO7l/yucYgLlKzk8Xp9T/K0Axldx+MLsfZ9vuRmUr+YQWqyRcWaJ -OZSv4VD62MhjE68llK/loH8qq0HpshWUr+Ow8Hb4l04+Wyhfz0HklJKFjpI9 -lG/g0DRJetqqNQ5QvqGDv9wXWYOljlC+kcMGxll7uFRhfGOHRaKq75NWw9Sb -OHzT3ZlTqmYH5Zs6GF+yKBbutYbyzRwW+MbwRNvC3GPu4Omd8q6tEOZeC4cz -P4Ti/rRZQPmWDveXre+JegLzv5XDnN+nnvtkG0P51g53mjYFtN8wgPJtHCay -Mz60vKoL5ds6fFLQmX9oiiaUb+cQ0Obr/Ou+CpRv71BaOvXBsXsKUL6Dw5Rp -jAyhJlIHAH0Xjbg= - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9tq/ftQIbFA8ABVwiJv9RHFuiTSUz+Fg -p8Z1N2IVTF7A4WFf0ertHKpQvoiDx57U2883a0D5Eg7Vxa4b/v7SgfJlHJ79 -qlDMeGME5Ss4XD9mxyCSYgLlKzkcOvS74FsBjK/ioHzu13O+5WZQvprD4y+P -Q88sMYfyNRzcrKNNN/FaQvlaDjMmh6xXumwF5es4BK6e+baLzxbK13OQO7zL -TU/JHso3cJh/jtd10RoHKN/Q4fv1RAvxpY5QvpHD24U+WWKqML6xg+XC5vTM -1TD1Jg7nawxYytXsoHxThy8VkTeEe62hfDMH6T0pUtG2MPeYO3TyOfN1FMLc -a+Gw819n8O82Cyjf0mG7/JO6qCcw/1s5TDli/ton2xjKt3bgP30qoP2GAZRv -4+Dhs/2h5VVdKN/W4fG7u/MOTdGE8u0cNjrbO/+6rwLl2zsc2Tr3wbF7ClC+ -gwMrw5//ISZSBwA9zZPG - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9qLF6rUCGxQPQAUcGvffUZxbIg3lczjs -/CB1N2IVTF7AoXFb3+rtHKpQvojD8qba2883a0D5Eg5GCp3r//7SgfJlHKZ8 -Z1LNeGME5Ss4BPfy/xVOMYHylRwer88p/lYA46s4fGH2vs+33AzKV3MILdbI -OLPEHMrXcCh9bOSxidcSytdy0D+V1aB02QrK13FYeDv8SyefLZSv5yBySslC -R8keyjdwaJokPW3VGgco39DBX+6LrMFSRyjfyGED46w9XKowvrHDIlHV90mr -YepNHL7p7swpVbOD8k0djC9ZFAv3WkP5Zg4LfGN4om1h7jF38PROeddWCHOv -hcOZH0Jxf9osoHxLh/vL1vdEPYH538phzu9Tz32yjaF8a4c7TZsC2m8YQPk2 -DhPZGR9aXtWF8m0dPinozD80RRPKt3MIaPN1/nVfBcq3dygtnfrg2D0FKN/B -Yco0RoZQE6kDAIhfjbo= - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-35.29053091449588, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {576., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}]}, {}}, - ContentSelectable->True, - ImageSize->Large, - PlotRangePadding->{6, 5}], TraditionalForm]], "Output", - CellChangeTimes->{3.727628675829605*^9, 3.727629459709133*^9, - 3.727629963077262*^9}] -}, Open ]] -}, Closed]], - -Cell[CellGroupData[{ - -Cell["-1 steps in dir_2", "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}, - CellChangeTimes->{ - 3.725641242645789*^9, {3.725641322515449*^9, 3.725641331570396*^9}, { - 3.72564735939476*^9, 3.725647360668185*^9}, {3.7256569094672823`*^9, - 3.725656919994326*^9}, {3.727606276864317*^9, 3.727606288577183*^9}, { - 3.727629995289629*^9, 3.7276300239345284`*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"trPrpgtrs", "=", - RowBox[{ - RowBox[{ - RowBox[{"Transpose", "[", - RowBox[{ - RowBox[{ - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", - RowBox[{"#", "<>", "\"\\""}]}], "}"}]}], "]"}], - "+", - RowBox[{"I", "*", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", - RowBox[{"#", "<>", "\"\\""}]}], "}"}]}], - "]"}]}]}], ",", - RowBox[{"{", - RowBox[{"4", ",", "3", ",", "2", ",", "1"}], "}"}]}], "]"}], "&"}], - "[", - RowBox[{"PDFtags", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], - "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.7276272023981256`*^9, 3.727627227185638*^9}, { - 3.727627317333276*^9, 3.727627379408533*^9}, {3.7276293246878357`*^9, - 3.727629370118081*^9}, {3.72762966911945*^9, 3.727629672454177*^9}, { - 3.72762992155698*^9, 3.7276299359286823`*^9}, {3.727630049245205*^9, - 3.727630049698079*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Evan0Pz", "=", - RowBox[{ - RowBox[{"ToExpression", "[", - RowBox[{"StringReplace", "[", - RowBox[{ - "\"\<[-6.28627834e-05 -3.44672797e-04j -1.73131373e-02 \ --1.22271710e-03j\n -3.18309328e-03 -2.54793178e-04j -6.41919212e-04 \ --6.49597283e-05j\n -1.21959627e-04 -1.76167177e-05j -2.11142435e-05 \ --3.60317888e-06j\n -3.62578748e-06 -6.84849743e-07j -6.11177301e-07 \ --1.11714556e-07j\n -1.01298712e-07 -1.74197931e-08j -1.71445482e-08 \ --2.97261031e-09j\n -2.70808286e-09 -5.25874855e-10j -4.09533154e-10 \ --7.73861997e-11j\n -6.45165994e-11 -9.91545324e-12j -9.58397294e-12 \ --1.07666840e-12j\n -1.41027807e-12 -1.00157210e-13j -2.14933407e-13 \ --5.77208027e-15j\n 1.60728432e-14 +5.33274005e-15j 2.43853781e-13 \ -+3.81121451e-14j\n 1.56655579e-12 +3.18837925e-13j 9.56007391e-12 \ -+2.35739233e-12j\n 5.64859545e-11 +1.51569401e-11j 3.35745348e-10 \ -+9.02016615e-11j\n 2.10522139e-09 +5.48953492e-10j 1.14789261e-08 \ -+3.00736828e-09j\n 6.72204439e-08 +1.74521794e-08j 4.54864065e-07 \ -+1.05775484e-07j\n 2.99525921e-06 +6.15862681e-07j 1.94129168e-05 \ -+3.49180396e-06j\n 1.30165754e-04 +2.04944769e-05j 8.99915191e-04 \ -+1.23065334e-04j\n 4.86687006e-03 +6.19602386e-04j 2.12352743e-02 \ -+1.84846615e-03j]\>\"", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\"\<[\>\"", "\[Rule]", "\"\<{\>\""}], ",", - RowBox[{"\"\<]\>\"", "\[Rule]", "\"\<}\>\""}], ",", - RowBox[{"\"\\"", "\[Rule]", "\"\<*^\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<,\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}]}], "}"}]}], "]"}], - "]"}], "//.", - RowBox[{"j", "\[Rule]", "I"}]}]}], ";"}]], "Input", - CellChangeTimes->{{3.7257125507134933`*^9, 3.7257126495783997`*^9}, { - 3.72571269097847*^9, 3.725712713900034*^9}, 3.725717644541053*^9, { - 3.7257176907900667`*^9, 3.72571769944528*^9}, {3.7257179259722347`*^9, - 3.725717927380402*^9}, {3.7257179798940783`*^9, 3.725717988829979*^9}, { - 3.727627657856822*^9, 3.727627668972213*^9}, {3.727627722677865*^9, - 3.7276277228782997`*^9}, 3.727627765147663*^9, {3.727630085291217*^9, - 3.727630088434623*^9}, 3.727630351604679*^9}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Chop", "[", - RowBox[{ - RowBox[{ - FractionBox[ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "]"}], "Evan0Pz"], "+", - "1"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}]], "Input", - CellChangeTimes->{{3.7276277621718187`*^9, 3.727627839991593*^9}, { - 3.727627914983019*^9, 3.727627915392362*^9}, 3.7276279507901573`*^9, { - 3.7276296824253397`*^9, 3.7276296827500153`*^9}, {3.727629947734486*^9, - 3.727629948126464*^9}, 3.7276303516178837`*^9}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{ - "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", - RowBox[{"0.`", "\[VeryThinSpace]", "-", - RowBox[{"0.000013431654929035863`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.`", "\[VeryThinSpace]", "-", - RowBox[{"0.00002988942520269766`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.`", "\[VeryThinSpace]", "-", - RowBox[{"0.000036128681997184275`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{ - RowBox[{"-", "0.0005039487021014644`"}], "+", - RowBox[{"0.00009895054211211951`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{ - RowBox[{"-", "0.00007142837753759679`"}], "+", - RowBox[{"0.00001368561604636609`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"-", "0.000025725655843800155`"}], ",", "0", ",", "0", ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", - "0", ",", "0", ",", "0"}], "}"}], TraditionalForm]], "Output", - CellChangeTimes->{{3.727627769142304*^9, 3.727627840404057*^9}, { - 3.7276279040817623`*^9, 3.72762791575653*^9}, {3.7276279516008177`*^9, - 3.727627961504963*^9}, 3.727629356251318*^9, 3.727629415190401*^9, { - 3.727629680146792*^9, 3.727629683547394*^9}, {3.727629944618627*^9, - 3.727629948839365*^9}, 3.727630095746233*^9}] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Evan2Pz", "=", - RowBox[{ - RowBox[{"ToExpression", "[", - RowBox[{"StringReplace", "[", - RowBox[{ - "\"\<[-3.68596828e-04 +1.86378942e-04j -4.53507551e-03 \ --1.23688114e-04j\n -7.15691327e-04 -5.19854334e-05j -1.06212045e-04 \ --9.77980529e-06j\n -1.43916363e-05 -2.44094582e-06j -1.62872953e-06 \ --3.52847608e-07j\n -7.06193009e-08 +1.63457725e-08j -1.62888805e-08 \ -+2.22386367e-09j\n -3.90152934e-09 -2.54749480e-10j -3.17087160e-10 \ --1.43492262e-11j\n -1.39933388e-10 -3.63081898e-11j -2.22577897e-11 \ --9.02313483e-12j\n -3.96881677e-12 -1.61209346e-12j -4.28158385e-13 \ --1.92868541e-13j\n -7.50085969e-14 -2.68858439e-14j -1.12051335e-14 \ --2.48965819e-15j\n 6.11458990e-17 -5.31637495e-16j 4.79004851e-15 \ --1.63609782e-15j\n 4.08024043e-14 -4.85925515e-15j 1.56399615e-13 \ --2.31275195e-14j\n 6.08174895e-14 -3.72181717e-13j 3.07227671e-13 \ --1.67635744e-12j\n -9.32103578e-12 -3.76796975e-12j -5.56829877e-11 \ --1.28642668e-11j\n 4.54441703e-10 +6.46893494e-10j 2.25566302e-09 \ -+2.59217104e-09j\n 9.10007481e-08 +2.73546686e-08j 6.93022368e-07 \ -+1.33855684e-07j\n 7.60714431e-06 -1.02759417e-07j 5.24460285e-05 \ --9.36849771e-07j\n 4.25405114e-04 +4.28262323e-05j 4.36271632e-03 \ -+3.21914618e-04j]\>\"", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\"\<[\>\"", "\[Rule]", "\"\<{\>\""}], ",", - RowBox[{"\"\<]\>\"", "\[Rule]", "\"\<}\>\""}], ",", - RowBox[{"\"\\"", "\[Rule]", "\"\<*^\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<,\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}]}], "}"}]}], "]"}], - "]"}], "//.", - RowBox[{"j", "\[Rule]", "I"}]}]}], ";"}]], "Input", - CellChangeTimes->{{3.7276279827884827`*^9, 3.727628003399682*^9}, { - 3.727628381233543*^9, 3.7276283876570463`*^9}, {3.727628427089967*^9, - 3.727628432362475*^9}, {3.727630110793223*^9, 3.727630121444194*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Chop", "[", - RowBox[{ - RowBox[{ - FractionBox[ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "2"}], "}"}]}], "]"}], "Evan2Pz"], "-", - "1"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}]], "Input", - CellChangeTimes->{{3.7276280128286753`*^9, 3.7276280129870043`*^9}, - 3.727628092981536*^9, {3.727628468635049*^9, 3.727628484739403*^9}, { - 3.7276294402911377`*^9, 3.727629442964613*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{ - "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", - RowBox[{"0.00001908659924709788`", "\[VeryThinSpace]", "-", - RowBox[{"0.00002394993263771239`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.000024904987947271806`", "\[VeryThinSpace]", "-", - RowBox[{"0.00003000255220325654`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.00008943229758928695`", "\[VeryThinSpace]", "+", - RowBox[{"0.00008276112380736778`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.0006949855884945677`", "\[VeryThinSpace]", "-", - RowBox[{"0.0008095557961660949`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{ - RowBox[{"-", "0.0000719450986068626`"}], "+", - RowBox[{"0.00014400636698008729`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.000045587462888185826`", "\[VeryThinSpace]", "+", - RowBox[{"0.00001575637458613166`", " ", "\[ImaginaryI]"}]}], ",", - "0.000013084113814176845`", ",", - RowBox[{"0.000023578428970827403`", "\[VeryThinSpace]", "+", - RowBox[{"0.000040183310932778715`", " ", "\[ImaginaryI]"}]}], ",", "0", - ",", - RowBox[{"-", "0.000014173412549833841`"}], ",", - RowBox[{"-", "0.000012701633288592085`"}], ",", "0", ",", "0", ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], - TraditionalForm]], "Output", - CellChangeTimes->{ - 3.72762801364791*^9, 3.727628093704427*^9, 3.727628389848628*^9, { - 3.727628441899981*^9, 3.7276284854201603`*^9}, {3.727629422011191*^9, - 3.727629443694212*^9}, 3.727629957013989*^9, 3.727630123573206*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"GraphicsRow", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"ListLinePlot", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", - "Evan0Pz"}], "}"}], "//", "#"}], "//", "Abs"}], "//", "Log"}], - ",", - RowBox[{"PlotStyle", "\[Rule]", - RowBox[{"{", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", "Blue"}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", - RowBox[{"Dashing", "[", "0.01", "]"}], ",", "Red"}], "}"}]}], - "}"}]}], ",", - RowBox[{"PlotMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"\"\<*\>\"", ",", "\"\<+\>\""}], "}"}]}]}], "]"}], "&"}], "/@", - RowBox[{"{", - RowBox[{"Re", ",", "Im"}], "}"}]}], ",", - RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]], "Input", - CellChangeTimes->{{3.727628603540069*^9, 3.727628664031665*^9}, - 3.727630351632846*^9}], - -Cell[BoxData[ - FormBox[ - GraphicsBox[{{}, {InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7Le8TS+Mj1Q+ABVwEIx+ybDEUgDK53B4ybbd -+dl/MShfwMHY1F29Ml0WyhdxeJF9O5SXTQnKl3A46aV/9Xu7KpQv48DzaGMt -D58mlK/gUG02wWPRXB0oX8mB3bPlwVspAyhfxWF7dMHc9Q8NoXw1B/29L+Ll -dhlD+RoOUqzhkzbNNYXytRy82dkXny8zh/J1HBaybd39Nc4SytdzWLv7PleH -pzWUb+Cw22sFv7y2LZRv6HC7spflxiF7KN/IwZLpg/dJLpi8scO1zZ488/Vg -+k0cdr+JT58RDzPf1OFaxNkf12bA7Ddz0NJa7N53AeY+cwf+5Ut3Tv0Fc7+F -w/sFq/uSPIygfEuHz+utv71shvnfyuH83BfF9010oXxrh9/Sp6feyYeFn42D -gcAOsd+bYOFr67CvTkdm2xNFKN/OIdlQ4V0brwyUb++gvS2vT8ZXFMp3cDj6 -QiJN9CLfAQDT5Y1j - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7L/eO5QfH6l8ACrg8Nf1EMMSSwEon8Ohbulc -52f/xaB8AQeBrWbqlemyUL6IA4vrj1BeNiUoX8LBpbDm6vd2VShfxiHU6k8t -D58mlK/gcChd32PRXB0oX8nhg6bz/bdSBlC+isPC+6Iz1j80hPLVHDT2t/jK -7TKG8jUc+FWXJm+aawrlazkoyH/VPF9mDuXrONyStTP6GmcJ5es5CHe06nV4 -WkP5Bg7Vp/9myWvbQvmGDtM7Tuv/PmQP5Rs5aM1SlTvHBZM3dvBiVL+2QA+m -38ThZ8brSzPiYeabOpxWMnp2bQbMfjOHa+89xfsuwNxn7iBskjRz6i+Y+y0c -pOtEG5I8jKB8S4fTOj8/vGyG+d/K4e25DwX3TXShfGsH4ceMU+/kw8LPxsH5 -SLPY702w8LV1kDmhLrPtiSKUb+ewf4PhuzZeGSjf3kFsRlGfjK8olO/gcI0t -OE30It8BANnhi14= - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9lvephfGRyofgAo4CEa/ZFhiKQDlczi8 -ZNvu/Oy/GJQv4GBs6q5emS4L5Ys4vMi+HcrLpgTlSzic9NK/+r1dFcqXceB5 -tLGWh08TyldwqDab4LForg6Ur+TA7tny4K2UAZSv4rA9umDu+oeGUL6ag/7e -F/Fyu4yhfA0HKdbwSZvmmkL5Wg7e7OyLz5eZQ/k6DgvZtu7+GmcJ5es5rN19 -n6vD0xrKN3DY7bWCX17bFso3dLhd2cty45A9lG/kYMn0wfskF0ze2OHaZk+e -+Xow/SYOu9/Ep8+Ih5lv6nAt4uyPazNg9ps5aGktdu+7AHOfuQP/8qU7p/6C -ud/C4f2C1X1JHkZQvqXD5/XW3142w/xv5XB+7ovi+ya6UL61w2/p01Pv5MPC -z8bBQGCH2O9NsPC1ddhXpyOz7YkilG/nkGyo8K6NVwbKt3fQ3pbXJ+MrCuU7 -OBx9IZEmepHvAADfLY1l - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9l/vHcqPj1Q+ABVw+Ot6iGGJpQCUz+FQ -t3Su87P/YlC+gIPAVjP1ynRZKF/EgcX1RygvmxKUL+HgUlhz9Xu7KpQv4xBq -9aeWh08TyldwOJSu77Forg6Ur+TwQdP5/lspAyhfxWHhfdEZ6x8aQvlqDhr7 -W3zldhlD+RoO/KpLkzfNNYXytRwU5L9qni8zh/J1HG7J2hl9jbOE8vUchDta -9To8raF8A4fq03+z5LVtoXxDh+kdp/V/H7KH8o0ctGapyp3jgskbO3gxql9b -oAfTb+LwM+P1pRnxMPNNHU4rGT27NgNmv5nDtfee4n0XYO4zdxA2SZo59RfM -/RYO0nWiDUkeRlC+pcNpnZ8fXjbD/G/l8Pbch4L7JrpQvrWD8GPGqXfyYeFn -4+B8pFns9yZY+No6yJxQl9n2RBHKt3PYv8HwXRuvDJRv7yA2o6hPxlcUyndw -uMYWnCZ6ke8AAOUpi2A= - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-31.76164530486184, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {192., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}], InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7Od8rL/i/ET+AFTAYSmTz53Fl6WgfA4HnXtL -Sq70KED5Ag5XVE27J3koQ/kiDhe1Al5ueKIK5Us4XEi1jHQQ1ITyZRzETs1a -GZOsA+UrOCSeUF96n9EAyldyMLZluTj7riGUr+IgWuyT47TIGMpXcxBbKtm6 -PtYUytdwcNnNLGvvYQ7lazkYvd+70j7MEsrXcch3r/k2s88aytdzeN28kLnu -nS2Ub+BgXbTyb1qKA5Rv6KB8Y+7qdXkwvpFDrYZe2JendlC+sYNRrvkJ7WM2 -UL6JQ/SkhccYj1lB+aYOi3uvbp770gLKN3P44ZM4iUUR5j5zB9tMrW0bgmDu -t3AQvBY4w2M+zH+WDmW6VlJKcP9bOdhKCxy9zQ8LH2uHyo1NvjtnwsLPxmFb -dcSBYEVY+No6nPR7ctJiOiz87RyY+qbF5TEqQfn2DnNmbf6zpVsWyndwuGt2 -5HyBjuQBAFegi8E= - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7K3vn7ji/ET+AFTAof+A653Fl6WgfA6Hpb2r -Sq70KED5Ag67T0Z1T/JQhvJFHNZGrHm54YkqlC/h8GvWtkgHQU0oX8YhcjbL -6phkHShfweFORtvS+4wGUL6SQ+q0redn3zWE8lUcNka6JjotMoby1Rz2Jj3J -XB9rCuVrOCg8mSJm72EO5Ws5LCrmu+wQZgnl6zhMPaAas7DPGsrXc2hsc7s3 -850tlG/g4D1L3nFyigOUb+jgUyWSuTUPxjdyKMoudv/81A7KN3Yoer/3r9Yx -GyjfxOHkL8dzjMesoHxTB5HQ05vnvrSA8s0cAo4np7Aowtxn7nBN9eScDUEw -91s4xH+Y2+4xH+Y/SweVS2yiSnD/Wzms7PI4fJsfFj7WDg8nbvDeORMWfjYO -nnKq+4MVYeFr61BwtPukxXRY+Ns5lFoWxOUxKkH59g65yzb/2dItC+U7OLzr -OXi+QEfyAAAVNpJ3 - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9nM+1l9xfiJ/ACrgsJTJ587iy1JQPoeD -zr0lJVd6FKB8AYcrqqbdkzyUoXwRh4taAS83PFGF8iUcLqRaRjoIakL5Mg5i -p2atjEnWgfIVHBJPqC+9z2gA5Ss5GNuyXJx91xDKV3EQLfbJcVpkDOWrOYgt -lWxdH2sK5Ws4uOxmlrX3MIfytRyM3u9daR9mCeXrOOS713yb2WcN5es5vG5e -yFz3zhbKN3CwLlr5Ny3FAco3dFC+MXf1ujwY38ihVkMv7MtTOyjf2MEo1/yE -9jEbKN/EIXrSwmOMx6ygfFOHxb1XN899aQHlmzn88EmcxKIIc5+5g22m1rYN -QTD3WzgIXguc4TEf5j9LhzJdKykluP+tHGylBY7e5oeFj7VD5cYm350zYeFn -47CtOuJAsCIsfG0dTvo9OWkxHRb+dg5MfdPi8hiVoHx7hzmzNv/Z0i0L5Ts4 -3DU7cr5AR/IAAGLoi8M= - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9tb3T1xxfiJ/ACrg0H/A9c7iy1JQPofD -0t5VJVd6FKB8AYfdJ6O6J3koQ/kiDmsj1rzc8EQVypdw+DVrW6SDoCaUL+MQ -OZtldUyyDpSv4HAno23pfUYDKF/JIXXa1vOz7xpC+SoOGyNdE50WGUP5ag57 -k55kro81hfI1HBSeTBGz9zCH8rUcFhXzXXYIs4TydRymHlCNWdhnDeXrOTS2 -ud2b+c4Wyjdw8J4l7zg5xQHKN3TwqRLJ3JoH4xs5FGUXu39+agflGzsUvd/7 -V+uYDZRv4nDyl+M5xmNWUL6pg0jo6c1zX1pA+WYOAceTU1gUYe4zd7imenLO -hiCY+y0c4j/MbfeYD/OfpYPKJTZRJbj/rRxWdnkcvs0PCx9rh4cTN3jvnAkL -PxsHTznV/cGKsPC1dSg42n3SYjos/O0cSi0L4vIYlaB8e4fcZZv/bOmWhfId -HN71HDxfoCN5AAAgfpJ5 - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-32.86491120815171, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {576., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}]}, {}}, - ContentSelectable->True, - ImageSize->Large, - PlotRangePadding->{6, 5}], TraditionalForm]], "Output", - CellChangeTimes->{{3.7276286072479*^9, 3.7276286652093353`*^9}, - 3.727629456338523*^9, 3.727629962386148*^9, 3.727630135640305*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"GraphicsRow", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"ListLinePlot", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "2"}], "}"}]}], "]"}], ",", - "Evan2Pz"}], "}"}], "//", "#"}], "//", "Abs"}], "//", "Log"}], - ",", - RowBox[{"PlotStyle", "\[Rule]", - RowBox[{"{", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", "Blue"}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", - RowBox[{"Dashing", "[", "0.01", "]"}], ",", "Red"}], "}"}]}], - "}"}]}], ",", - RowBox[{"PlotMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"\"\<*\>\"", ",", "\"\<+\>\""}], "}"}]}]}], "]"}], "&"}], "/@", - RowBox[{"{", - RowBox[{"Re", ",", "Im"}], "}"}]}], ",", - RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]], "Input", - CellChangeTimes->{{3.727628673943778*^9, 3.727628675078917*^9}}], - -Cell[BoxData[ - FormBox[ - GraphicsBox[{{}, {InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7NODXj3rni9/ACrgwN5gEZM1VRTK53C4v8Ao -R/iHDJQv4PBxTX/8NR8lKF/E4eC5DRfMfdSgfAmHI9v5l5xcrgXlyzhMCVjm -71luAOUrOCzMS3lw6p0hlK/kUHpBxmdpjDGUr+Lgc57LyPC+KZSv5lC1e7Xf -rA1mUL6GA9v7pTEO7RZQvpbDqp2GN5c5WEH5Og7bJbdHbKiygfL1HN5ICTTM -sbCD8g0cOmbHzVvB7wDlGzrslTkuVrnaCco3chAxSvlRVAOTN3bgn7RarOoK -TL+Jw8OjpsmNNbZQvqnDqw+X99jmweTNHJ57W4WvPg+z39xhe4WHqmiaJZRv -4TClaRFX0xxzKN/SwaNvJhd/M8y/Vg4GHx7/f/kCFh7WDh9VXHbGm8HCz8aB -vXb2Sc9YHSjf1uHb2Zj/SyepQ/l2DvPyWLYpblOG8u0d2LqPTD7CA4tfB4ef -VqzzxPeKHgAApr6Pgw== - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7BeFbHvWPV/+AFTAgcXZISZrqiiUz+Eg72yU -I/xDBsoXcHhj0RF/zUcJyhdxWBcx6YK5jxqUL+FgGmiw5ORyLShfxmEG71s/ -z3IDKF/BweqO+YNT7wyhfCWHvW/vei+NMYbyVRzO33E1MrxvCuWrOUTI7fOf -tcEMytdwKH73epJDuwWUr+UQlcYbtNzBCsrXcTh47K3vpiobKF/PoX2p/7V5 -FnZQvoHDnBC/T6v4HaB8Q4cUg9+9K1Y5QflGDtLa1ZZFNTB5Ywf1/d+Maq/A -9Js4HNU8Z9FUYwvlmzpUlxSl+ufB5M0cQkvf/Vh5Hma/uYPCkz4/kTRLKN/C -oepDkHHjHHMo39JhzvVGB/5mmH+tHF5neIq9egELD2uHxtRvO+LNYOFn47A0 -kPGkZ6wOlG/r8PV7yv+lk9ShfDuHg7l82xS3KUP59g4Pnl2bfIQHFr8ODtbc -UvPE94oeAAAzE49e - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9ulBr551z5c/ABVwYG+wiMmaKgrlczjc -X2CUI/xDBsoXcPi4pj/+mo8SlC/icPDchgvmPmpQvoTDke38S04u14LyZRym -BCzz9yw3gPIVHBbmpTw49c4QyldyKL0g47M0xhjKV3HwOc9lZHjfFMpXc6ja -vdpv1gYzKF/Dge390hiHdgsoX8th1U7Dm8scrKB8HYftktsjNlTZQPl6Dm+k -BBrmWNhB+QYOHbPj5q3gd4DyDR32yhwXq1ztBOUbOYgYpfwoqoHJGzvwT1ot -VnUFpt/E4eFR0+TGGlso39Th1YfLe2zzYPJmDs+9rcJXn4fZb+6wvcJDVTTN -Esq3cJjStIiraY45lG/p4NE3k4u/GeZfKweDD4//v3wBCw9rh48qLjvjzWDh -Z+PAXjv7pGesDpRv6/DtbMz/pZPUoXw7h3l5LNsUtylD+fYObN1HJh/hgcWv -g8NPK9Z54ntFDwAAsgaPhQ== - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9otCtj3rni9/ACrgwOLsEJM1VRTK53CQ -dzbKEf4hA+ULOLyx6Ii/5qME5Ys4rIuYdMHcRw3Kl3AwDTRYcnK5FpQv4zCD -962fZ7kBlK/gYHXH/MGpd4ZQvpLD3rd3vZfGGEP5Kg7n77gaGd43hfLVHCLk -9vnP2mAG5Ws4FL97Pcmh3QLK13KISuMNWu5gBeXrOBw89tZ3U5UNlK/n0L7U -/9o8Czso38BhTojfp1X8DlC+oUOKwe/eFaucoHwjB2ntasuiGpi8sYP6/m9G -tVdg+k0cjmqes2iqsYXyTR2qS4pS/fNg8mYOoaXvfqw8D7Pf3EHhSZ+fSJol -lG/hUPUhyLhxjjmUb+kw53qjA38zzL9WDq8zPMVevYCFh7VDY+q3HfFmsPCz -cVgayHjSM1YHyrd1+Po95f/SSepQvp3DwVy+bYrblKF8e4cHz65NPsIDi18H -B2tuqXnie0UPAAA+W49g - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-37.339632842276366`, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {192., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}], InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7Cs+LDvySkfxAFTAYZtd3L4b/2B8DgdjqcXP -l+5ShvIFHL46TO5lEVKH8kUcDN/zXVt8QxPKl3AI+7X97LNtulC+jMPmwJdR -z94aQvkKDivzr9b1vDGG8pUcWJTaD1uJm0H5Kg5LYwu3Lf5uAeWrOeif1U3+ -xQnjazjUTm76kpJnCeVrOZRJnC7zVreG8nUc+o1UK++42UL5eg7Kr3+c97K3 -h/INHLzyFvqrXXCA8g0d2lNfZO2e6gjlGzkslbm1nIkNxjd2+KpQzzq/Cqbe -xOH5+nk2F1Nh5pk6nL6Z3dA/zwbKN3PgvbrgsYcszD3mDj8b/xt+8bWC8i0c -fr17OnuWMMz9lg63J+xZs1LDFMq3cuhVULMKPAoLH2sH5qi87SJZsPCzcRD/ -uahKe7k+lG/rIH7q5lxncQMo387BqsB5z4dD2lC+vUPs513BD2VVoHwHB7Fl -t8KkRRUOAABXgZL9 - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7ONn1R55paN4ACrg0HjLe9+NfzA+h8Py+K3P -l+5ShvIFHPbpFPeyCKlD+SIOLRonry6+oQnlSzhoTJh1+tk2XShfxsHEZmvC -s7eGUL6Cw38Tpf6eN8ZQvpLDig3bj1iJm0H5Kg4uB+TmLfpuAeWrOZw33F30 -ixPG13BwZpPlTs2zhPK1HNx573/xUreG8nUcHA9H2t5ys4Xy9RycDcu+utnb -Q/kGDnNudRWaXnCA8g0d9tmHWl+d6gjlGzm4fZ9c9YkVxjd28Jbj1JtTBVNv -4nDD6YTa5VSYeaYO/Peuzp0wzwbKN3PYr7JT11MW5h5zh7DX3Ns/+VpB+RYO -Z8KsP8wUhrnf0oF91uHNKzVMoXwrh1A9BoPAo7DwsXa4Wbt+u0gWLPxsHDb/ -eFOlvVwfyrd1EPLVne0sbgDl2zksbVix+8MhbSjf3uG/wpPgh7IqUL6Dg1Xn -6zBpUYUDAKEqjos= - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9hUflh15paN4ACrgsM0ubt+NfzA+h4Ox -1OLnS3cpQ/kCDl8dJveyCKlD+SIOhu/5ri2+oQnlSziE/dp+9tk2XShfxmFz -4MuoZ28NoXwFh5X5V+t63hhD+UoOLErth63EzaB8FYelsYXbFn+3gPLVHPTP -6ib/4oTxNRxqJzd9ScmzhPK1HMokTpd5q1tD+ToO/UaqlXfcbKF8PQfl1z/O -e9nbQ/kGDl55C/3VLjhA+YYO7akvsnZPdYTyjRyWytxazsQG4xs7fFWoZ51f -BVNv4vB8/Tybi6kw80wdTt/MbuifZwPlmznwXl3w2EMW5h5zh5+N/w2/+FpB -+RYOv949nT1LGOZ+S4fbE/asWalhCuVbOfQqqFkFHoWFj7UDc1TedpEsWPjZ -OIj/XFSlvVwfyrd1ED91c66zuAGUb+dgVeC858MhbSjf3iH2867gh7IqUL6D -g9iyW2HSogoHAGLJkv8= - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9vGzao+80lE8ABVwaLzlve/GPxifw2F5 -/NbnS3cpQ/kCDvt0intZhNShfBGHFo2TVxff0ITyJRw0Jsw6/WybLpQv42Bi -szXh2VtDKF/B4b+JUn/PG2MoX8lhxYbtR6zEzaB8FQeXA3LzFn23gPLVHM4b -7i76xQnjazg4s8lyp+ZZQvlaDu689794qVtD+ToOjocjbW+52UL5eg7OhmVf -3eztoXwDhzm3ugpNLzhA+YYO++xDra9OdYTyjRzcvk+u+sQK4xs7eMtx6s2p -gqk3cbjhdELtcirMPFMH/ntX506YZwPlmznsV9mp6ykLc4+5Q9hr7u2ffK2g -fAuHM2HWH2YKw9xv6cA+6/DmlRqmUL6VQ6geg0HgUVj4WDvcrF2/XSQLFn42 -Dpt/vKnSXq4P5ds6CPnqznYWN4Dy7RyWNqzY/eGQNpRv7/Bf4UnwQ1kVKN/B -warzdZi0qMIBAKxyjo0= - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-35.170569817185864`, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {576., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}]}, {}}, - ContentSelectable->True, - ImageSize->Large, - PlotRangePadding->{6, 5}], TraditionalForm]], "Output", - CellChangeTimes->{3.727628675829605*^9, 3.727629459709133*^9, - 3.727629963077262*^9, 3.7276301375202627`*^9}] -}, Open ]] -}, Closed]], - -Cell[CellGroupData[{ - -Cell["0 steps in dir_2", "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}, - CellChangeTimes->{ - 3.725641242645789*^9, {3.725641322515449*^9, 3.725641331570396*^9}, { - 3.72564735939476*^9, 3.725647360668185*^9}, {3.7256569094672823`*^9, - 3.725656919994326*^9}, {3.727606276864317*^9, 3.727606288577183*^9}, { - 3.727629995289629*^9, 3.7276300239345284`*^9}, {3.7276301863098497`*^9, - 3.727630187124752*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData["PDFtags"], "Input", - CellChangeTimes->{{3.727630197638349*^9, 3.727630199135261*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{"\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>"}], "}"}], TraditionalForm]], "Output", - CellChangeTimes->{3.72763019942703*^9}] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"trPrpgtrs", "=", - RowBox[{ - RowBox[{ - RowBox[{"Transpose", "[", - RowBox[{ - RowBox[{ - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", - RowBox[{"#", "<>", "\"\\""}]}], "}"}]}], "]"}], - "+", - RowBox[{"I", "*", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", - RowBox[{"#", "<>", "\"\\""}]}], "}"}]}], - "]"}]}]}], ",", - RowBox[{"{", - RowBox[{"4", ",", "3", ",", "2", ",", "1"}], "}"}]}], "]"}], "&"}], - "[", - RowBox[{"PDFtags", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], - "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.7276272023981256`*^9, 3.727627227185638*^9}, { - 3.727627317333276*^9, 3.727627379408533*^9}, {3.7276293246878357`*^9, - 3.727629370118081*^9}, {3.72762966911945*^9, 3.727629672454177*^9}, { - 3.72762992155698*^9, 3.7276299359286823`*^9}, {3.727630049245205*^9, - 3.727630049698079*^9}, {3.727630202750626*^9, 3.727630202902109*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Evan0Pz", "=", - RowBox[{ - RowBox[{"ToExpression", "[", - RowBox[{"StringReplace", "[", - RowBox[{ - "\"\<[-3.16149391e-04 +2.07870543e-05j -3.54263781e-02 \ -+2.00178750e-04j\n -6.13424883e-03 +4.61609672e-05j -1.15070267e-03 \ -+9.57294632e-06j\n -2.04409336e-04 -2.85428333e-07j -3.39576973e-05 \ --2.64287285e-07j\n -5.65596968e-06 -6.11627797e-08j -9.26562301e-07 \ --7.51179604e-09j\n -1.50479520e-07 -1.03793954e-09j -2.47200637e-08 \ --8.60764498e-11j\n -3.83728822e-09 +5.77784158e-14j -5.76831127e-10 \ -+1.21361221e-12j\n -8.89789269e-11 +5.83012126e-13j -1.29343959e-11 \ -+7.25542069e-14j\n -1.86639698e-12 +5.31736175e-15j -2.82484281e-13 \ -+3.63877498e-16j\n 1.90734802e-14 -5.87065677e-16j 3.12352062e-13 \ --1.47093823e-15j\n 2.02426202e-12 -5.47390328e-16j 1.24819661e-11 \ -+2.28221419e-14j\n 7.50100474e-11 +2.04592043e-13j 4.52308515e-10 \ -+1.57981458e-12j\n 2.86942848e-09 +6.38326558e-12j 1.59854565e-08 \ -+4.34109443e-11j\n 9.60952003e-08 +2.85179643e-10j 6.55686269e-07 \ -+1.80970756e-09j\n 4.38869420e-06 +2.24000271e-08j 2.87857714e-05 \ -+1.20452017e-07j\n 1.97219494e-04 +7.44812291e-07j 1.34744077e-03 \ -+1.78435852e-06j\n 7.54022817e-03 +2.95531501e-05j 3.96294987e-02 \ -+6.67963960e-05j]\>\"", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\"\<[\>\"", "\[Rule]", "\"\<{\>\""}], ",", - RowBox[{"\"\<]\>\"", "\[Rule]", "\"\<}\>\""}], ",", - RowBox[{"\"\\"", "\[Rule]", "\"\<*^\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<,\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}]}], "}"}]}], "]"}], - "]"}], "//.", - RowBox[{"j", "\[Rule]", "I"}]}]}], ";"}]], "Input", - CellChangeTimes->{{3.7257125507134933`*^9, 3.7257126495783997`*^9}, { - 3.72571269097847*^9, 3.725712713900034*^9}, 3.725717644541053*^9, { - 3.7257176907900667`*^9, 3.72571769944528*^9}, {3.7257179259722347`*^9, - 3.725717927380402*^9}, {3.7257179798940783`*^9, 3.725717988829979*^9}, { - 3.727627657856822*^9, 3.727627668972213*^9}, {3.727627722677865*^9, - 3.7276277228782997`*^9}, 3.727627765147663*^9, {3.727630085291217*^9, - 3.727630088434623*^9}, {3.7276302185723877`*^9, 3.7276302342658787`*^9}, - 3.727630351222513*^9}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Chop", "[", - RowBox[{ - RowBox[{ - FractionBox[ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "]"}], "Evan0Pz"], "+", - "1"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}]], "Input", - CellChangeTimes->{{3.7276277621718187`*^9, 3.727627839991593*^9}, { - 3.727627914983019*^9, 3.727627915392362*^9}, 3.7276279507901573`*^9, { - 3.7276296824253397`*^9, 3.7276296827500153`*^9}, {3.727629947734486*^9, - 3.727629948126464*^9}, 3.7276303512439938`*^9}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{ - "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", - RowBox[{"0.`", "\[VeryThinSpace]", "-", - RowBox[{"0.000011638374214096789`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.`", "\[VeryThinSpace]", "-", - RowBox[{"0.00002822369075680285`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.`", "\[VeryThinSpace]", "-", - RowBox[{"0.00003899377602493417`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"-", "0.0005337909349996117`"}], ",", - RowBox[{ - RowBox[{"-", "0.00006394754913929823`"}], "+", - RowBox[{"0.000015432492189115105`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"-", "0.000023932770833789974`"}], ",", "0", ",", "0", ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", - "0", ",", "0", ",", "0"}], "}"}], TraditionalForm]], "Output", - CellChangeTimes->{{3.727627769142304*^9, 3.727627840404057*^9}, { - 3.7276279040817623`*^9, 3.72762791575653*^9}, {3.7276279516008177`*^9, - 3.727627961504963*^9}, 3.727629356251318*^9, 3.727629415190401*^9, { - 3.727629680146792*^9, 3.727629683547394*^9}, {3.727629944618627*^9, - 3.727629948839365*^9}, 3.727630095746233*^9, 3.72763024234657*^9}] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Evan2Pz", "=", - RowBox[{ - RowBox[{"ToExpression", "[", - RowBox[{"StringReplace", "[", - RowBox[{ - "\"\<[-4.67258936e-04 +2.71189087e-05j -2.12073771e-02 \ -+5.80375694e-05j\n -2.65996816e-03 -3.84895227e-06j -3.53512838e-04 \ -+7.80264648e-07j\n -4.34159933e-05 -3.80345557e-07j -4.70564968e-06 \ --1.02209459e-07j\n -3.30197048e-07 -3.64068545e-09j -4.53354211e-08 \ -+8.44582540e-10j\n -7.50185458e-09 +1.96627155e-10j -5.96726716e-10 \ -+3.89343104e-12j\n -2.33228698e-10 -1.31387015e-11j -3.57817259e-11 \ --2.68504660e-12j\n -6.53211299e-12 -4.26597495e-13j -7.88816629e-13 \ --4.27504278e-14j\n -1.28575434e-13 -5.83425979e-15j -1.95187263e-14 \ --1.90874554e-16j\n -6.76078916e-16 -3.58567708e-16j 4.90875582e-15 \ --1.38394823e-15j\n 4.34950432e-14 -5.78814582e-15j 1.27684076e-13 \ --2.35109091e-14j\n -3.94519785e-13 -6.50212207e-14j 1.29570866e-12 \ --1.01375699e-13j\n 1.00250029e-11 +2.16348363e-12j 2.34125611e-10 \ -+1.23323482e-11j\n 3.57607230e-09 +2.98472397e-10j 2.80288886e-08 \ -+1.33139342e-09j\n 3.85621421e-07 +1.39398447e-08j 3.52745664e-06 \ -+9.36549231e-08j\n 3.55120931e-05 -2.69136346e-07j 3.24043706e-04 \ --4.32450168e-06j\n 2.62833978e-03 +1.15940700e-05j 2.24359452e-02 \ -+6.63033712e-05j]\>\"", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\"\<[\>\"", "\[Rule]", "\"\<{\>\""}], ",", - RowBox[{"\"\<]\>\"", "\[Rule]", "\"\<}\>\""}], ",", - RowBox[{"\"\\"", "\[Rule]", "\"\<*^\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<,\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}]}], "}"}]}], "]"}], - "]"}], "//.", - RowBox[{"j", "\[Rule]", "I"}]}]}], ";"}]], "Input", - CellChangeTimes->{{3.7276279827884827`*^9, 3.727628003399682*^9}, { - 3.727628381233543*^9, 3.7276283876570463`*^9}, {3.727628427089967*^9, - 3.727628432362475*^9}, {3.727630110793223*^9, 3.727630121444194*^9}, { - 3.7276302556888037`*^9, 3.727630258656848*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Chop", "[", - RowBox[{ - RowBox[{ - FractionBox[ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "2"}], "}"}]}], "]"}], "Evan2Pz"], "-", - "1"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}]], "Input", - CellChangeTimes->{{3.7276280128286753`*^9, 3.7276280129870043`*^9}, - 3.727628092981536*^9, {3.727628468635049*^9, 3.727628484739403*^9}, { - 3.7276294402911377`*^9, 3.727629442964613*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{ - "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", - RowBox[{"0.000018253878332208373`", "\[VeryThinSpace]", "-", - RowBox[{"0.000010494221153137251`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.00003074422476823102`", "\[VeryThinSpace]", "-", - RowBox[{"0.00002345796917552906`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.00007019976498989777`", "\[VeryThinSpace]", "+", - RowBox[{"0.000045265970088397695`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.0008529844078928317`", "\[VeryThinSpace]", "-", - RowBox[{"0.000049897365611062394`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{ - RowBox[{"-", "0.0001136759405464538`"}], "+", - RowBox[{"0.00022361518155411542`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.00003464629601257485`", "\[VeryThinSpace]", "+", - RowBox[{"0.000025177399136072642`", " ", "\[ImaginaryI]"}]}], ",", "0", - ",", - RowBox[{ - RowBox[{"-", "0.000031129483070935215`"}], "+", - RowBox[{"0.000031173840440462675`", " ", "\[ImaginaryI]"}]}], ",", "0", - ",", "0.000025161012439767205`", ",", "0", ",", "0", ",", "0", ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], - TraditionalForm]], "Output", - CellChangeTimes->{ - 3.72762801364791*^9, 3.727628093704427*^9, 3.727628389848628*^9, { - 3.727628441899981*^9, 3.7276284854201603`*^9}, {3.727629422011191*^9, - 3.727629443694212*^9}, 3.727629957013989*^9, 3.727630123573206*^9, - 3.7276302644713907`*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"GraphicsRow", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"ListLinePlot", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", - "Evan0Pz"}], "}"}], "//", "#"}], "//", "Abs"}], "//", "Log"}], - ",", - RowBox[{"PlotStyle", "\[Rule]", - RowBox[{"{", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", "Blue"}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", - RowBox[{"Dashing", "[", "0.01", "]"}], ",", "Red"}], "}"}]}], - "}"}]}], ",", - RowBox[{"PlotMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"\"\<*\>\"", ",", "\"\<+\>\""}], "}"}]}]}], "]"}], "&"}], "/@", - RowBox[{"{", - RowBox[{"Re", ",", "Im"}], "}"}]}], ",", - RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]], "Input", - CellChangeTimes->{{3.727628603540069*^9, 3.727628664031665*^9}, - 3.727630351264995*^9}], - -Cell[BoxData[ - FormBox[ - GraphicsBox[{{}, {InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7Lfb3WSMkVM4ABVwWHjwbPm7HVxQPodDY5bX -dbkEEShfwGF2de2OM4LSUL6Ig3/afpvFf2H6JRyCThguXzdFBcqXcXi6ceeC -FC0NKF/B4d5siz/TT2hD+UoOXa9lJltn60P5Kg4rLMo3MbYYQvlqDl/+H897 -mmAM5Ws4SB44ksTkZgrlazmwWEhbN6uYQ/k6Dt8KrrOYCVlC+XoOT863uZxm -tIbyDRzWq0X3aTy1gfINHQ6reE1km24P5Rs5eDZN2pR5GiZv7HD0ssIWhrdW -UL6Jw+nn6zYFScPMN3X46XDyj1UAzH4zhzrW2OPOLTD3mTuE9s7Y4bsa5n4L -BwFpV8vZn2H+s3Q4Uqz1OFfDAMq3cpB8KNu9pFIHyrd2iMya/MVtDSz8bBwU -RBgdPF7CwtfWoVgwe8IPfkUo387heYtZhm6BFJRv7xA5XaT7bI8wlO/gsCww -72rAZc4DAPWdi1s= - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7Pu72xhj5BQOQAUclr5/Uv5uBxeUz+EQF+Vw -XS5BBMoXcMh6bb7jjKA0lC/iYC611WbxX5h+CQee0OLl66aoQPkyDhlvRRam -aGlA+QoO64q5/0w/oQ3lKznoro6faJ2tD+WrOEx1/bqWscUQyldzsLl+Mu5p -gjGUr+HAadllzeRmCuVrOazZ0H+jScUcytdx6Cq2WGIqZAnl6zn8kPxee5rR -Gso3cHCMzT2u8dQGyjd0eHq1tkNzuj2Ub+TAYqf3KPc0TN7YIeDRLFemt1ZQ -vonDOomtAsHSMPNNHep9a19bBcDsN3OwOjJrtnMLzH3mDrbLTs/2XQ1zv4VD -grqxzuzPMP9ZOrhZFt/L1TCA8q0cPvendyyp1IHyrR1kl1747LYGFn42Dk8v -HLT3eAkLX1uHwMcRE37wK0L5dg6+vzgydAukoHx7hyd5it1ne4ShfAeHZbPj -rgZc5jwAALZei18= - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9tvtbjLGyCkcgAo4LDx4tvzdDi4on8Oh -McvrulyCCJQv4DC7unbHGUFpKF/EwT9tv83ivzD9Eg5BJwyXr5uiAuXLODzd -uHNBipYGlK/gcG+2xZ/pJ7ShfCWHrtcyk62z9aF8FYcVFuWbGFsMoXw1hy// -j+c9TTCG8jUcJA8cSWJyM4XytRxYLKStm1XMoXwdh28F11nMhCyhfD2HJ+fb -XE4zWkP5Bg7r1aL7NJ7aQPmGDodVvCayTbeH8o0cPJsmbco8DZM3djh6WWEL -w1srKN/E4fTzdZuCpGHmmzr8dDj5xyoAZr+ZQx1r7HHnFpj7zB1Ce2fs8F0N -c7+Fg4C0q+XszzD/WTocKdZ6nKthAOVbOUg+lO1eUqkD5Vs7RGZN/uK2BhZ+ -Ng4KIowOHi9h4WvrUCyYPeEHvyKUb+fwvMUsQ7dACsq3d4icLtJ9tkcYyndw -WBaYdzXgMucBAAD0i10= - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9v3dbYwxcgoHoAIOS98/KX+3gwvK53CI -i3K4LpcgAuULOGS9Nt9xRlAayhdxMJfaarP4L0y/hANPaPHydVNUoHwZh4y3 -IgtTtDSgfAWHdcXcf6af0IbylRx0V8dPtM7Wh/JVHKa6fl3L2GII5as52Fw/ -Gfc0wRjK13DgtOyyZnIzhfK1HNZs6L/RpGIO5es4dBVbLDEVsoTy9Rx+SH6v -Pc1oDeUbODjG5h7XeGoD5Rs6PL1a26E53R7KN3JgsdN7lHsaJm/sEPBolivT -Wyso38RhncRWgWBpmPmmDvW+ta+tAmD2mzlYHZk127kF5j5zB9tlp2f7roa5 -38IhQd1YZ/ZnmP8sHdwsi+/lahhA+VYOn/vTO5ZU6kD51g6ySy98dlsDCz8b -h6cXDtp7vISFr61D4OOICT/4FaF8OwffXxwZugVSUL69w5M8xe6zPcJQvoPD -stlxVwMucx4AAMGmi2E= - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-31.59047749588162, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {192., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}], InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7Hn/sd351q96ACrgIDv7d3EEhyKUz+Fw+Vov -X+13ZShfwGHZBLH132TUoXwRhyvX/30qV9aD8iUcvjus6rnnBePLOMhIb+UX -n2MA5Ss4uJQWhnzYYgTlKzkoth19N3+9CZSv4mDJIOXGpGsO5as5MOpXXd9X -YQflazik/DyjyFRgDeVrOQRf80k9rm0D5es4bLXlXrzaEaZezyFp816tqAIH -KN/AYcH8iQY+pxyhfEMHrQmv//F2wvhGDvdeTVdREYbxjR0eXBHwn9sL45s4 -7HlWeGtBpj2Ub+rw7rxEznFzWyjfzOHg9rnOVTow95k7nPh+6PufY5ZQvoVD -wa5LwrZ3YP6zdGD4nxQc/ssUyrdyKN10Vd1PERYe1g5z+TfW2Mw1hPJtHJwL -vCQM7+pD+bYOW9dUliVb6ED5dg4W+7yMBCq1oHx7h12pK++cv60C5Ts4KL/X -4PGxUj4AAA4+jik= - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7I/ax9/41q96ACrgsCPxSXEEhyKUz+FQnd7N -V/tdGcoXcJj6PHfdNxl1KF/EYVHfsn/lynpQvoTDnGUW3fe8YHwZB+/9mwXF -5xhA+QoOMimZrh+2GEH5Sg6yT3/1zF9vAuWrOFxNC3Vm0DWH8tUc+pMsX+ZV -20H5Gg5m6+wO/Mq3hvK1HFLieeJXadtA+ToOF3gXKCs7wtTrOdj6bOQSyXeA -8g0cPp5azRV7zBHKN3RoMS2pUO6E8Y0cJtomFUwUhvGNHfa5bE2VmATjmzgU -ZzA5WWXaQ/mmDoZ7nFj2m9tC+WYOsbMl6it0YO4zdxA/+Ona/2OWUL6Fg5Ls -AzvbOzD/WTqobr59NPyXKZRv5fB4Wq6rnyIsPKwd9rjPKbaZawjl2zh8mdzz -x+CuPpRv67BWeX1esoUOlG/nkOZaqidQqQXl2zsIbOG6c/62CpTv4PBp9hJu -HyvlAwDcUYlR - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9rz/2O5861c9ABVwkJ39uziCQxHK53C4 -fK2Xr/a7MpQv4LBsgtj6bzLqUL6Iw5Xr/z6VK+tB+RIO3x1W9dzzgvFlHGSk -t/KLzzGA8hUcXEoLQz5sMYLylRwU246+m7/eBMpXcbBkkHJj0jWH8tUcGPWr -ru+rsIPyNRxSfp5RZCqwhvK1HIKv+aQe17aB8nUcttpyL17tCFOv55C0ea9W -VIEDlG/gsGD+RAOfU45QvqGD1oTX/3g7YXwjh3uvpquoCMP4xg4Prgj4z+2F -8U0c9jwrvLUg0x7KN3V4d14i57i5LZRv5nBw+1znKh2Y+8wdTnw/9P3PMUso -38KhYNclYds7MP9ZOjD8TwoO/2UK5Vs5lG66qu6nCAsPa4e5/BtrbOYaQvk2 -Ds4FXhKGd/WhfFuHrWsqy5ItdKB8OweLfV5GApVaUL69w67UlXfO31aB8h0c -lN9r8PhYKR8AABmGjis= - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9kft429861c9ABVw2JH4pDiCQxHK53Co -Tu/mq/2uDOULOEx9nrvum4w6lC/isKhv2b9yZT0oX8JhzjKL7nteML6Mg/f+ -zYLicwygfAUHmZRM1w9bjKB8JQfZp7965q83gfJVHK6mhToz6JpD+WoO/UmW -L/Oq7aB8DQezdXYHfuVbQ/laDinxPPGrtG2gfB2HC7wLlJUdYer1HGx9NnKJ -5DtA+QYOH0+t5oo95gjlGzq0mJZUKHfC+EYOE22TCiYKw/jGDvtctqZKTILx -TRyKM5icrDLtoXxTB8M9Tiz7zW2hfDOH2NkS9RU6MPeZO4gf/HTt/zFLKN/C -QUn2gZ3tHZj/LB1UN98+Gv7LFMq3cng8LdfVTxEWHtYOe9znFNvMNYTybRy+ -TO75Y3BXH8q3dVirvD4v2UIHyrdzSHMt1ROo1ILy7R0EtnDdOX9bBcp3cPg0 -ewm3j5XyAQDnmYlT - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-35.58045012579464, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {576., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}]}, {}}, - ContentSelectable->True, - ImageSize->Large, - PlotRangePadding->{6, 5}], TraditionalForm]], "Output", - CellChangeTimes->{{3.7276286072479*^9, 3.7276286652093353`*^9}, - 3.727629456338523*^9, 3.727629962386148*^9, 3.727630135640305*^9, - 3.7276302692534733`*^9}] -}, Closed]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"GraphicsRow", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"ListLinePlot", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "2"}], "}"}]}], "]"}], ",", - "Evan2Pz"}], "}"}], "//", "#"}], "//", "Abs"}], "//", "Log"}], - ",", - RowBox[{"PlotStyle", "\[Rule]", - RowBox[{"{", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", "Blue"}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", - RowBox[{"Dashing", "[", "0.01", "]"}], ",", "Red"}], "}"}]}], - "}"}]}], ",", - RowBox[{"PlotMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"\"\<*\>\"", ",", "\"\<+\>\""}], "}"}]}]}], "]"}], "&"}], "/@", - RowBox[{"{", - RowBox[{"Re", ",", "Im"}], "}"}]}], ",", - RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]], "Input", - CellChangeTimes->{{3.727628673943778*^9, 3.727628675078917*^9}}], - -Cell[BoxData[ - FormBox[ - GraphicsBox[{{}, {InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7K1FdvSuWSN3ACrgMDPz+7xjl/mgfA4HjwS5 -rP3bxaF8AYdDUmbWoafkoXwRh+LrF5c+EFOB8iUcnrZEsU3u0IDyZRwmrVH7 -e++GLpSv4NDyJOTa/hcGUL6Sw5KKdn73rUZQvorDueRJb4NtTaF8NYdHfhME -LuuaQfkaDhwS+xu281pA+VoOEWpV5yUOWkL5Og49CyJfON+zhvL1HFIOuPQs -W2cL5Rs4LNm3f4PNRHso39DBf3Llli9ljlC+kYPqNf+dgZUOUL6xw18XnYly -R+ygfBMHdvmycwUbYOaZOkS87RVf3m8D5Zs5zHpfMcsyHma/ucPRE++l84Nh -7rNwKOopN7yuA/OPpQODQ8bqj0XGUL6VQ4qgIePNZEMo39rh9nFphtxOWPjZ -OFRf2m2jIKMJ5ds6vN7wW+tILSz87Rzq0wP9dgsqQPn2Dn0318v9PwyLPwcH -jkOqxoUJfAcA3fGO+g== - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7F/x9fSuWSN3ACrgEKS/e96xy3xQPodDnphS -1v7t4lC+gIP4fWPr0FPyUL6Iw3vVM0sfiKlA+RIO6kypbJM7NKB8GYcpj4L/ -3LuhC+UrOOzq5722/4UBlK/kIJV8l999qxGUr+Iw85zV22BbUyhfzaFGZyHP -ZV0zKF/DQW8e++rtvBZQvpaD3zRuQ8mDllC+jsP2NGUV13vWUL6ew5Udrxeu -WGcL5Rs4nDnJ6ew40R7KN3SYrzylSbDcEco3cri+erJAQKUDlG/s4Gu0hE/x -iB2Ub+IwwVq9p2ADzDxTB8Ywke1L+m2gfDOHDQwRfy3iYfabOwRI9ewqCIa5 -z8JBQ9uj8boOzD+WDixlh7d9LDKG8q0cHhfMY76ZbAjlWzt0Tzn/P6cTFn42 -DpPf9NooyGhC+bYOp204tI/UwsLfzmHnrBC/3YIKUL69Q+CsC3L/D8Piz8Hh -6/q3RoUJfAcA5kSJ1w== - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9tYiO3rXrJE7ABVwmJn5fd6xy3xQPoeD -R4Jc1v7t4lC+gMMhKTPr0FPyUL6IQ/H1i0sfiKlA+RIOT1ui2CZ3aED5Mg6T -1qj9vXdDF8pXcGh5EnJt/wsDKF/JYUlFO7/7ViMoX8XhXPKkt8G2plC+msMj -vwkCl3XNoHwNBw6J/Q3beS2gfC2HCLWq8xIHLaF8HYeeBZEvnO9ZQ/l6DikH -XHqWrbOF8g0cluzbv8Fmoj2Ub+jgP7lyy5cyRyjfyEH1mv/OwEoHKN/Y4a+L -zkS5I3ZQvokDu3zZuYINMPNMHSLe9oov77eB8s0cZr2vmGUZD7Pf3OHoiffS -+cEw91k4FPWUG17XgfnH0oHBIWP1xyJjKN/KIUXQkPFmsiGUb+1w+7g0Q24n -LPxsHKov7bZRkNGE8m0dXm/4rXWkFhb+dg716YF+uwUVoHx7h76b6+X+H4bF -n4MDxyFV48IEvgMA6TmO/A== - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9q/4enrXrJE7ABVwCNLfPe/YZT4on8Mh -T0wpa/92cShfwEH8vrF16Cl5KF/E4b3qmaUPxFSgfAkHdaZUtskdGlC+jMOU -R8F/7t3QhfIVHHb1817b/8IAyldykEq+y+++1QjKV3GYec7qbbCtKZSv5lCj -s5Dnsq4ZlK/hoDePffV2XgsoX8vBbxq3oeRBSyhfx2F7mrKK6z1rKF/P4cqO -1wtXrLOF8g0czpzkdHacaA/lGzrMV57SJFjuCOUbOVxfPVkgoNIByjd28DVa -wqd4xA7KN3GYYK3eU7ABZp6pA2OYyPYl/TZQvpnDBoaIvxbxMPvNHQKkenYV -BMPcZ+Ggoe3ReF0H5h9LB5ayw9s+FhlD+VYOjwvmMd9MNoTyrR26p5z/n9MJ -Cz8bh8lvem0UZDShfFuH0zYc2kdqYeFv57BzVojfbkEFKN/eIXDWBbn/h2Hx -5+Dwdf1bo8IEvgMA8YyJ2Q== - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-34.93022186501843, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {192., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}], InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7BfOK9h0iV31AFTAYU/C9zDnJmUon8NBZHLa -wvL3GlC+gMNjsc2lUxR0oHwRh3OvZy6omqAL5Us4BNTJ+S6WMIDyZRyiWfu8 -Y/KMoXwFh61+PJWpT0ygfCUH8bCGSW2RZlC+ioParzeFba5WUL6ag6Zua5kR -nyWUr+EQ9XSNx8YlMHkth39/Em4trraB8nUcmE9PN5txwg7K13No6VARc0l2 -gPINHMqU7GMjJZygfEOH+dMr7qqecITyjRxK7oVuqZGG8Y0d8re/sbVNgek3 -cahQe50+K9Eeyjd1mM6497ZGLMw+MwcnCf6VDa9toXxzB/76nU9/3Ia518Lh -X8Tjb5lyMP9YOszdMElw3TtTKN/K4X50w/WH+bDwsXZwN/5/Z4WYEZRv45Bu -GD2bWR8WvrYOwaWiVf2OelC+nUN1q7Pbpc2w+LJ3qHXTq368Sw3Kd3Dg/rZK -WNxO+QAAWMSLFQ== - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7F/VZ2+8xK56ACrgsPHqozDnJmUon8OBYXfh -wvL3GlC+gEPqrJayKQo6UL6Ig92bw4uqJuhC+RIOLO9dvRZLGED5Mg6zAm5q -xeQZQ/kKDmXpty+mPjGB8pUczCQCt7VFmkH5Kg4nl5TLTXC1gvLVHB6vzeoz -4rOE8jUcksUqL25YApPXcuBY3rViYbUNlK/j4HH55faeE3ZQvp7D1unZaibJ -DlC+gYPKrJm/P0k4QfmGDlWuRjvtTjhC+UYO2UqvfsZJw/jGDj7X4nQtUmD6 -TRzuZzQvn5toD+WbOli/XG5mHAuzz8zh3mqTpMbXtlC+ucPBE5a6v2/D3Gvh -sGvKjPhMOZh/LB0cDL4LrXtnCuVbObhvzr/2MB8WPtYOrBqST1aIGUH5Ng5n -2JznMOvDwtfWofXS/Ip+Rz0o387h2z4vt0ubYfFl7yCn4V/9eJcalO/gsGXL -XmFxO+UDAHvAjjk= - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9gvnFWy6xK56ACrgsCfhe5hzkzKUz+Eg -MjltYfl7DShfwOGx2ObSKQo6UL6Iw7nXMxdUTdCF8iUcAurkfBdLGED5Mg7R -rH3eMXnGUL6Cw1Y/nsrUJyZQvpKDeFjDpLZIMyhfxUHt15vCNlcrKF/NQVO3 -tcyIzxLK13CIerrGY+MSmLyWw78/CbcWV9tA+ToOzKenm804YQfl6zm0dKiI -uSQ7QPkGDmVK9rGREk5QvqHD/OkVd1VPOEL5Rg4l90K31EjD+MYO+dvf2Nqm -wPSbOFSovU6flWgP5Zs6TGfce1sjFmafmYOTBP/Khte2UL65A3/9zqc/bsPc -a+HwL+Lxt0w5mH8sHeZumCS47p0plG/lcD+64frDfFj4WDu4G/+/s0LMCMq3 -cUg3jJ7NrA8LX1uH4FLRqn5HPSjfzqG61dnt0mZYfNk71LrpVT/epQblOzhw -f1slLG6nfAAAZAyLFw== - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9q/qszdeYlc9ABVw2Hj1UZhzkzKUz+HA -sLtwYfl7DShfwCF1VkvZFAUdKF/Ewe7N4UVVE3ShfAkHlveuXoslDKB8GYdZ -ATe1YvKMoXwFh7L02xdTn5hA+UoOZhKB29oizaB8FYeTS8rlJrhaQflqDo/X -ZvUZ8VlC+RoOyWKVFzcsgclrOXAs71qxsNoGytdx8Lj8cnvPCTsoX89h6/Rs -NZNkByjfwEFl1szfnyScoHxDhypXo512JxyhfCOHbKVXP+OkYXxjB59rcboW -KTD9Jg73M5qXz020h/JNHaxfLjczjoXZZ+Zwb7VJUuNrWyjf3OHgCUvd37dh -7rVw2DVlRnymHMw/lg4OBt+F1r0zhfKtHNw35197mA8LH2sHVg3JJyvEjKB8 -G4czbM5zmPVh4Wvr0HppfkW/ox6Ub+fwbZ+X26XNsPiyd5DT8K9+vEsNyndw -2LJlr7C4nfIBAIcIjjs= - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-36.194915246964484`, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {576., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}]}, {}}, - ContentSelectable->True, - ImageSize->Large, - PlotRangePadding->{6, 5}], TraditionalForm]], "Output", - CellChangeTimes->{3.727628675829605*^9, 3.727629459709133*^9, - 3.727629963077262*^9, 3.7276301375202627`*^9, 3.727630271293865*^9}] -}, Closed]] -}, Closed]], - -Cell[CellGroupData[{ - -Cell["2 steps in dir_2", "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}, - CellChangeTimes->{ - 3.725641242645789*^9, {3.725641322515449*^9, 3.725641331570396*^9}, { - 3.72564735939476*^9, 3.725647360668185*^9}, {3.7256569094672823`*^9, - 3.725656919994326*^9}, {3.727606276864317*^9, 3.727606288577183*^9}, { - 3.727629995289629*^9, 3.7276300239345284`*^9}, {3.7276301863098497`*^9, - 3.727630187124752*^9}, 3.727630371797447*^9}], - -Cell[CellGroupData[{ - -Cell[BoxData["PDFtags"], "Input", - CellChangeTimes->{{3.727630197638349*^9, 3.727630199135261*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{"\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>"}], "}"}], TraditionalForm]], "Output", - CellChangeTimes->{3.72763019942703*^9}] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"trPrpgtrs", "=", - RowBox[{ - RowBox[{ - RowBox[{"Transpose", "[", - RowBox[{ - RowBox[{ - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", - RowBox[{"#", "<>", "\"\\""}]}], "}"}]}], "]"}], - "+", - RowBox[{"I", "*", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", - RowBox[{"#", "<>", "\"\\""}]}], "}"}]}], - "]"}]}]}], ",", - RowBox[{"{", - RowBox[{"4", ",", "3", ",", "2", ",", "1"}], "}"}]}], "]"}], "&"}], - "[", - RowBox[{"PDFtags", "\[LeftDoubleBracket]", - RowBox[{"-", "1"}], "\[RightDoubleBracket]"}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.7276272023981256`*^9, 3.727627227185638*^9}, { - 3.727627317333276*^9, 3.727627379408533*^9}, {3.7276293246878357`*^9, - 3.727629370118081*^9}, {3.72762966911945*^9, 3.727629672454177*^9}, { - 3.72762992155698*^9, 3.7276299359286823`*^9}, {3.727630049245205*^9, - 3.727630049698079*^9}, {3.727630202750626*^9, 3.727630202902109*^9}, { - 3.7276303818768272`*^9, 3.7276303826853848`*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Evan0Pz", "=", - RowBox[{ - RowBox[{"ToExpression", "[", - RowBox[{"StringReplace", "[", - RowBox[{ - "\"\<[2.01178526e-04 +4.56712629e-04j -5.77912664e-03 +3.81964313e-03j\ -\n -1.23821062e-03 +7.42693444e-04j -3.12654207e-04 +1.47240589e-04j\n \ --6.95577946e-05 +2.65091010e-05j -1.22701070e-05 +5.22248891e-06j\n \ --2.07834914e-06 +1.00645751e-06j -3.23016951e-07 +1.74016704e-07j\n \ --5.26058885e-08 +2.76185052e-08j -8.59076119e-09 +4.75301777e-09j\n \ --1.31155852e-09 +8.28380618e-10j -1.91604584e-10 +1.21776501e-10j\n \ --2.92545337e-11 +1.67622936e-11j -4.17790601e-12 +1.84108089e-12j\n \ --5.85843160e-13 +1.56985373e-13j -8.35872633e-14 +9.37812797e-15j\n \ -1.78656461e-14 -8.75515513e-15j 1.52963631e-13 -5.49929408e-14j\n \ -9.92554328e-13 -4.20748138e-13j 6.16450979e-12 -3.07000570e-12j\n \ -3.68730525e-11 -1.99418035e-11j 2.17256804e-10 -1.22270206e-10j\n \ -1.34817928e-09 -7.55835005e-10j 7.15738006e-09 -4.27476308e-09j\n \ -4.04727109e-08 -2.61455511e-08j 2.60400816e-07 -1.73025864e-07j\n \ -1.65179108e-06 -1.02188140e-06j 9.99734287e-06 -6.05958467e-06j\n \ -6.66098863e-05 -3.87494364e-05j 4.53809229e-04 -2.59985893e-04j\n \ -2.16519404e-03 -1.37516612e-03j 8.42389798e-03 -4.49679240e-03j]\>\"", ",", - - RowBox[{"{", - RowBox[{ - RowBox[{"\"\<[\>\"", "\[Rule]", "\"\<{\>\""}], ",", - RowBox[{"\"\<]\>\"", "\[Rule]", "\"\<}\>\""}], ",", - RowBox[{"\"\\"", "\[Rule]", "\"\<*^\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<,\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}]}], "}"}]}], "]"}], - "]"}], "//.", - RowBox[{"j", "\[Rule]", "I"}]}]}], ";"}]], "Input", - CellChangeTimes->{{3.7257125507134933`*^9, 3.7257126495783997`*^9}, { - 3.72571269097847*^9, 3.725712713900034*^9}, 3.725717644541053*^9, { - 3.7257176907900667`*^9, 3.72571769944528*^9}, {3.7257179259722347`*^9, - 3.725717927380402*^9}, {3.7257179798940783`*^9, 3.725717988829979*^9}, { - 3.727627657856822*^9, 3.727627668972213*^9}, {3.727627722677865*^9, - 3.7276277228782997`*^9}, 3.727627765147663*^9, {3.727630085291217*^9, - 3.727630088434623*^9}, {3.7276302185723877`*^9, 3.7276302342658787`*^9}, - 3.727630351222513*^9, {3.72763039479381*^9, 3.727630398614231*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Chop", "[", - RowBox[{ - RowBox[{ - FractionBox[ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "]"}], "Evan0Pz"], "+", - "1"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}]], "Input", - CellChangeTimes->{{3.7276277621718187`*^9, 3.727627839991593*^9}, { - 3.727627914983019*^9, 3.727627915392362*^9}, 3.7276279507901573`*^9, { - 3.7276296824253397`*^9, 3.7276296827500153`*^9}, {3.727629947734486*^9, - 3.727629948126464*^9}, 3.7276303512439938`*^9}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{ - "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", - RowBox[{"0.`", "\[VeryThinSpace]", "-", - RowBox[{"0.000011086587082875798`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.`", "\[VeryThinSpace]", "-", - RowBox[{"0.000028226704376549394`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.000057197420815446876`", "\[VeryThinSpace]", "-", - RowBox[{"0.000046996149671879595`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{ - RowBox[{"-", "0.0003619347220511493`"}], "-", - RowBox[{"0.00005536747762480143`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{ - RowBox[{"-", "0.00006832188570893294`"}], "+", - RowBox[{"0.000014188893216304788`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"-", "0.00002557889885368425`"}], ",", "0", ",", "0", ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", - "0", ",", "0", ",", "0"}], "}"}], TraditionalForm]], "Output", - CellChangeTimes->{{3.727627769142304*^9, 3.727627840404057*^9}, { - 3.7276279040817623`*^9, 3.72762791575653*^9}, {3.7276279516008177`*^9, - 3.727627961504963*^9}, 3.727629356251318*^9, 3.727629415190401*^9, { - 3.727629680146792*^9, 3.727629683547394*^9}, {3.727629944618627*^9, - 3.727629948839365*^9}, 3.727630095746233*^9, 3.72763024234657*^9, - 3.727630402766755*^9}] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Evan2Pz", "=", - RowBox[{ - RowBox[{"ToExpression", "[", - RowBox[{"StringReplace", "[", - RowBox[{ - "\"\<[8.78083936e-05 +1.14162825e-04j -1.49912232e-03 +1.29674085e-03j\ -\n -1.74295602e-04 +1.66748833e-04j -2.84858019e-05 +2.49769514e-05j\n \ --3.55411224e-06 +2.02966709e-06j -3.93327605e-07 +4.04961844e-07j\n \ -6.48480595e-08 +2.23139220e-09j 8.59966125e-09 +1.64103758e-09j\n \ --1.48772970e-10 +1.23601387e-09j 1.74187212e-10 +8.79276007e-11j\n \ --4.48990512e-11 +3.13637358e-11j -7.37071605e-12 +9.72972626e-12j\n \ --1.90022467e-12 +1.72637766e-12j -2.31977491e-13 +2.03828090e-13j\n \ --3.93915922e-14 +2.48141852e-14j -5.91042345e-15 +2.10148686e-15j\n \ -1.33279919e-16 +1.37133749e-16j 2.90771918e-15 +6.00819410e-17j\n \ -2.84921486e-14 -2.58069948e-15j 6.09645617e-14 +2.30490114e-14j\n \ --3.07055827e-13 +4.67716463e-13j 5.95260960e-13 +2.37932767e-12j\n \ -6.81084644e-12 +1.41134058e-11j 1.50162583e-10 +7.57573434e-11j\n \ -1.43843880e-09 +5.16158504e-10j 4.79425849e-09 +3.74626590e-09j\n \ -8.84151815e-08 -1.01680649e-08j 6.72992519e-07 -1.53490693e-07j\n \ -5.80789055e-06 -3.24653749e-06j 5.98786245e-05 -3.81762251e-05j\n \ -3.70828270e-04 -2.71204870e-04j 2.74514539e-03 -1.27746494e-03j]\>\"", ",", - - RowBox[{"{", - RowBox[{ - RowBox[{"\"\<[\>\"", "\[Rule]", "\"\<{\>\""}], ",", - RowBox[{"\"\<]\>\"", "\[Rule]", "\"\<}\>\""}], ",", - RowBox[{"\"\\"", "\[Rule]", "\"\<*^\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<,\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}]}], "}"}]}], "]"}], - "]"}], "//.", - RowBox[{"j", "\[Rule]", "I"}]}]}], ";"}]], "Input", - CellChangeTimes->{{3.7276279827884827`*^9, 3.727628003399682*^9}, { - 3.727628381233543*^9, 3.7276283876570463`*^9}, {3.727628427089967*^9, - 3.727628432362475*^9}, {3.727630110793223*^9, 3.727630121444194*^9}, { - 3.7276302556888037`*^9, 3.727630258656848*^9}, {3.7276304373146152`*^9, - 3.72763044276289*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Chop", "[", - RowBox[{ - RowBox[{ - FractionBox[ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "2"}], "}"}]}], "]"}], "Evan2Pz"], "-", - "1"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}]], "Input", - CellChangeTimes->{{3.7276280128286753`*^9, 3.7276280129870043`*^9}, - 3.727628092981536*^9, {3.727628468635049*^9, 3.727628484739403*^9}, { - 3.7276294402911377`*^9, 3.727629442964613*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{ - "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", - "0.00003294737178705098`", ",", - RowBox[{"0.00008155724156355681`", "\[VeryThinSpace]", "-", - RowBox[{"0.00003243684185094686`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.`", "\[VeryThinSpace]", "+", - RowBox[{"0.0010786460100226103`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.000012762952385392268`", "\[VeryThinSpace]", "+", - RowBox[{"0.0003082544621868244`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.00003061984875807333`", "\[VeryThinSpace]", "+", - RowBox[{"0.000020062719611135815`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"-", "0.000026223199122599183`"}], ",", - RowBox[{"-", "0.000013738352018233257`"}], ",", "0", ",", "0", ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", - "0"}], "}"}], TraditionalForm]], "Output", - CellChangeTimes->{ - 3.72762801364791*^9, 3.727628093704427*^9, 3.727628389848628*^9, { - 3.727628441899981*^9, 3.7276284854201603`*^9}, {3.727629422011191*^9, - 3.727629443694212*^9}, 3.727629957013989*^9, 3.727630123573206*^9, - 3.7276302644713907`*^9, 3.7276304461342077`*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"GraphicsRow", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"ListLinePlot", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", - "Evan0Pz"}], "}"}], "//", "#"}], "//", "Abs"}], "//", "Log"}], - ",", - RowBox[{"PlotStyle", "\[Rule]", - RowBox[{"{", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", "Blue"}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", - RowBox[{"Dashing", "[", "0.01", "]"}], ",", "Red"}], "}"}]}], - "}"}]}], ",", - RowBox[{"PlotMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"\"\<*\>\"", ",", "\"\<+\>\""}], "}"}]}]}], "]"}], "&"}], "/@", - RowBox[{"{", - RowBox[{"Re", ",", "Im"}], "}"}]}], ",", - RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]], "Input", - CellChangeTimes->{{3.727628603540069*^9, 3.727628664031665*^9}, - 3.727630351264995*^9}], - -Cell[BoxData[ - FormBox[ - GraphicsBox[{{}, {InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7K3fzy85zap4ACrgEHMg44L+XBEon8Phy4Ew -hv3HpKB8AYeWhp3KvCoKUL6IwyzWK+V9qspQvoTDTrNrYffnqkH5Mg4Tw37s -/amlBeUrOOyexzZJ4YkulK/k8DNtFfeaQwZQvorD1s06DVMmGUH5ag738h51 -7Sw2gfI1HOYFcveoJZhB+VoO0Y6f2d0dLaB8HQfjwMPrm4ytoHw9h7lnH/zL -0bKB8g0cCqrMi1/K2EH5hg4PPHmizy+3h/KNHJ5/dXih22QL5Rs7aFcdel+0 -2BrKN3Goaq+69Oa8JZRv6iD33uQcGxvMfjOHr2phAX/sYe4zdzgcMPH2mhyY -+y0cdp8X2+l/EOY/S4doqdR5p1kNoXwrhw7fnoiSID0o39qhYN3hE9MWwMLP -xuGztyTDQTZ1KN/WgSP2fucua1j42zncYqt5PuWUHJRv7/Dk+L+9tV0SUL6D -Q9jfX+uDpIUPAABU9JGV - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7G1XGpWcZlU8ABVw8LwffUF/rgiUz+Hws7mV -Yf8xKShfwOHf/CPKvCoKUL6Iw/Y1X8r7VJWhfAmH8MfG4ffnqkH5Mg7M0qz7 -f2ppQfkKDgeCSicrPNGF8pUcfqaf5VlzyADKV3EQvcbWOGWSEZSv5mA3NaN9 -Z7EJlK/hkOKwsVYtwQzK13I4dKHtjJujBZSv43C+ub+/ydgKytdzOJWl+iJH -ywbKN3CQ/8PF80zGDso3dOj563DzxXJ7KN/IwTrzMY9Rky2Ub+zg7TolqWSx -NZRv4nBOsEnj7XlLKN/U4VXg3J1sbDD7zRzqH25R+mMPc5+5Q8mEf3vX5MDc -b+GgPkN9lf9BmP8sHY5o3ppxmtUQyrdy8JNlCC0J0oPyrR2+rus4Pm0BLPxs -HFbbr/5/gE0dyrd1mG1yvHOXNSz87RzmJeU8n3JKDsq3d/hQp76vtksCyndw -qD7xY32QtPABAPIojvk= - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9tbv55ecZlU8ABVwiDmQcUF/rgiUz+Hw -5UAYw/5jUlC+gENLw05lXhUFKF/EYRbrlfI+VWUoX8Jhp9m1sPtz1aB8GYeJ -YT/2/tTSgvIVHHbPY5uk8EQXyldy+Jm2invNIQMoX8Vh62adhimTjKB8NYd7 -eY+6dhabQPkaDvMCuXvUEsygfC2HaMfP7O6OFlC+joNx4OH1TcZWUL6ew9yz -D/7laNlA+QYOBVXmxS9l7KB8Q4cHnjzR55fbQ/lGDs+/OrzQbbKF8o0dtKsO -vS9abA3lmzhUtVddenPeEso3dZB7b3KOjQ1mv5nDV7WwgD/2MPeZOxwOmHh7 -TQ7M/RYOu8+L7fQ/CPOfpUO0VOq806yGUL6VQ4dvT0RJkB6Ub+1QsO7wiWkL -YOFn4/DZW5LhIJs6lG/rwBF7v3OXNSz87RxusdU8n3JKDsq3d3hy/N/e2i4J -KN/BIezvr/VB0sIHAGA8kZc= - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9rYrjUpOsyoegAo4eN6PvqA/VwTK53D4 -2dzKsP+YFJQv4PBv/hFlXhUFKF/EYfuaL+V9qspQvoRD+GPj8Ptz1aB8GQdm -adb9P7W0oHwFhwNBpZMVnuhC+UoOP9PP8qw5ZADlqziIXmNrnDLJCMpXc7Cb -mtG+s9gEytdwSHHYWKuWYAblazkcutB2xs3RAsrXcTjf3N/fZGwF5es5nMpS -fZGjZQPlGzjI/+HieSZjB+UbOvT8dbj5Yrk9lG/kYJ35mMeoyRbKN3bwdp2S -VLLYGso3cTgn2KTx9rwllG/q8Cpw7k42Npj9Zg71D7co/bGHuc/coWTCv71r -cmDut3BQn6G+yv8gzH+WDkc0b804zWoI5Vs5+MkyhJYE6UH51g5f13Ucn7YA -Fn42DqvtV/8/wKYO5ds6zDY53rnLGhb+dg7zknKeTzklB+XbO3yoU99X2yUB -5Ts4VJ/4sT5IWvgAAP1wjvs= - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-31.655896738402177`, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {192., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}], InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7G+K7xHnPSJ3ACrgEHnzX7WFqxiUz+FQvbRX -WP2SDJQv4OD52s1t1lJFKF/E4WjstLXlwqpQvoTD3gl2v8yDNaB8GYdVsote -2c3ThvIVHIwvHpx9WUEfyldymGI+a9H8dEMoX8XBsq7hkLSWMZSv5mC7o9o7 -+qUJlK/h8CVdaIXeFTMoX8tBc+/XNTfOW0D5Og6nj6fP8WG1hvL1HFpDBHdM -qbaF8g0cGFYc/NOk5gDlGzp8XPF4rrk+jG/ksH79Fia+Djso39jBQ/dTp3q9 -DZRv4pB09HZScpMVlG/qEBW7ziJxMcx+M4f8/Pps1csw95k7LFE9vPkigymU -b+Fw4n/lT0dXmP8sHbz3utUvL4X538rh5f9JIgeUYeFj7bBe6n1t6TRY+Nk4 -LFzd/kCSHRa+tg7xNgkCkoEqUL6dw/7YBp6GJgUo395hxVYjo6BoKSjfweHs -QtsVEvNEDwAAfdKMNQ== - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7M+ryojzHpE7ABVw6FB7W23hKgblczjM05wv -rH5JBsoXcNh0NsFt1lJFKF/EYbbLtrXlwqpQvoTD6o4rv8yDNaB8GYeqh6Jv -7OZpQ/kKDpfFeedfVtCH8pUcqvYHLJufbgjlqzhk3rp2SFrLGMpXczCzU7CJ -fmkC5Ws4VE3QL9K7YgblazmULVL7cf28BZSv4yD9SrnFi9UaytdzWBzNb91b -bQvlGzhYHjNJKlZzgPINHdQv/Ttqrw/jGzlcO/ZfSLTDDso3dvB+Pbdaq94G -yjdxiHy51jylyQrKN3WI/MfnkrgYZr+ZA++EdZ6ql2HuM3doDd4x9SKDKZRv -4TDZ1feNoyvMf5YOv7feqVpeCvO/lcOxTTcFDyjDwsfaIWC1Xm3pNFj42TjU -Ccc9kGSHha+tg/6SMAHJQBUo387hjH8nT0OTApRv7+DWZGgUFC0F5Ts43GWM -WiExT/QAAGpIhb4= - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9jfF94jzHpE7ABVwiLz5r9rCVQzK53Co -XtorrH5JBsoXcPB87eY2a6kilC/icDR22tpyYVUoX8Jh7wS7X+bBGlC+jMMq -2UWv7OZpQ/kKDsYXD86+rKAP5Ss5TDGftWh+uiGUr+JgWddwSFrLGMpXc7Dd -Ue0d/dIEytdw+JIutELvihmUr+WguffrmhvnLaB8HYfTx9Pn+LBaQ/l6Dq0h -gjumVNtC+QYODCsO/mlSc4DyDR0+rng811wfxjdyWL9+CxNfhx2Ub+zgofup -U73eBso3cUg6ejspuckKyjd1iIpdZ5G4GGa/mUN+fn226mWY+8wdlqge3nyR -wRTKt3A48b/yp6MrzH+WDt573eqXl8L8b+Xw8v8kkQPKsPCxdlgv9b62dBos -/GwcFq5ufyDJDgtfW4d4mwQByUAVKN/OYX9sA09DkwKUb++wYquRUVC0FJTv -4HB2oe0KiXmiBwCJGow3 - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9udVZcR5j8gdgAo4dKi9rbZwFYPyORzm -ac4XVr8kA+ULOGw6m+A2a6kilC/iMNtl29pyYVUoX8JhdceVX+bBGlC+jEPV -Q9E3dvO0oXwFh8vivPMvK+hD+UoOVfsDls1PN4TyVRwyb107JK1lDOWrOZjZ -KdhEvzSB8jUcqiboF+ldMYPytRzKFqn9uH7eAsrXcZB+pdzixWoN5es5LI7m -t+6ttoXyDRwsj5kkFas5QPmGDuqX/h2114fxjRyuHfsvJNphB+UbO3i/nlut -VW8D5Zs4RL5ca57SZAXlmzpE/uNzSVwMs9/MgXfCOk/VyzD3mTu0Bu+YepHB -FMq3cJjs6vvG0RXmP0uH31vvVC0vhfnfyuHYppuCB5Rh4WPtELBar7Z0Giz8 -bBzqhOMeSLLDwtfWQX9JmIBkoAqUb+dwxr+Tp6FJAcq3d3BrMjQKipaC8h0c -7jJGrZCYJ3oAAHWQhcA= - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-32.36913371031215, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {576., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}]}, {}}, - ContentSelectable->True, - ImageSize->Large, - PlotRangePadding->{6, 5}], TraditionalForm]], "Output", - CellChangeTimes->{{3.7276286072479*^9, 3.7276286652093353`*^9}, - 3.727629456338523*^9, 3.727629962386148*^9, 3.727630135640305*^9, - 3.7276302692534733`*^9, 3.7276304506407747`*^9}] -}, Closed]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"GraphicsRow", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"ListLinePlot", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "2"}], "}"}]}], "]"}], ",", - "Evan2Pz"}], "}"}], "//", "#"}], "//", "Abs"}], "//", "Log"}], - ",", - RowBox[{"PlotStyle", "\[Rule]", - RowBox[{"{", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", "Blue"}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", - RowBox[{"Dashing", "[", "0.01", "]"}], ",", "Red"}], "}"}]}], - "}"}]}], ",", - RowBox[{"PlotMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"\"\<*\>\"", ",", "\"\<+\>\""}], "}"}]}]}], "]"}], "&"}], "/@", - RowBox[{"{", - RowBox[{"Re", ",", "Im"}], "}"}]}], ",", - RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]], "Input", - CellChangeTimes->{{3.727628673943778*^9, 3.727628675078917*^9}}], - -Cell[BoxData[ - FormBox[ - GraphicsBox[{{}, {InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7EWldp13Wqd0ACrg0Gx55cRHJikon8MhPCkm -28ZfEcoXcLBM/+Cx9J0KlC/i8OSZUIOrhCaUL+HQbq/X7F2vC+XLONgY3Voj -02sA5Ss4zL5TtCRgkhGUr+RwyV7n7usFZlC+ioNO5i+fngoYX81hmdD0oDmX -zaF8DYd3BjPFdBdZQvlaDtLtnf8N/1pB+ToOLy8c75gqbgvl6zl8lp/UU3vX -Dso3cDhpqHyrI9EByjd0OJlaVSfg7gTlGzmouAXdC9sDkzd28E28czfTwB7K -N3GYOrt4w6ZcmHmmDinnWiXOn7eB8s0cAkvkzkSqwfjmDq9PP45M3QZzr4WD -68OJeV3zYP6zdPD/93CfaIwJlG/lEJM+q/epujGUb+2g4Mez54AtLPxsHJrZ -Dtz3zdGB8m0dcgIWFl+S0YDy7RzEBfTF3IqUoXx7h1+8cZtiZ8pD+Q4Oyhw1 -qyqmix8AAAIsi5w= - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7F8tkT/vtE7pAFTAgUHh/4mPTFJQPocDH2N0 -to2/IpQv4LBt03uPpe9UoHwRh1sz1RpcJTShfAkHDsZZTd71ulC+jIPLms1r -ZXoNoHwFhyXBR5YETDKC8pUcUr4Fv3i9wAzKV3FQNmd376mA8dUcsjuKI+dc -NofyNRxKbvqX6y6yhPK1HJa3tgcY/bWC8nUcHqemW00Tt4Xy9RyYjZ4E1t+1 -g/INHBJmtKp2JzpA+YYObeEnJd64OUH5Rg7zTL4Ih++ByRs7/Nbm+5dtYA/l -mzhIxF6T2pgLM8/U4WTe+sXnzttA+WYOnR1LD4SrwfjmDj9vZ21N2wZzr4WD -y2e9OV3zYP6zdDh+ke+UaIwJlG/lsO6w8uSn6sZQvrUDQyvXngO2sPCzcdj7 -rfy+b44OlG/r4FZ0o/iSjAaUb+eQ22Mm5lakDOXbO1hOC94UO1MeyndwCHFP -XFUxXfwAABFHi7g= - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9qJSu847rVM6ABVwaLa8cuIjkxSUz+EQ -nhSTbeOvCOULOFimf/BY+k4FyhdxePJMqMFVQhPKl3Bot9dr9q7XhfJlHGyM -bq2R6TWA8hUcZt8pWhIwyQjKV3K4ZK9z9/UCMyhfxUEn85dPTwWMr+awTGh6 -0JzL5lC+hsM7g5liuossoXwtB+n2zv+Gf62gfB2HlxeOd0wVt4Xy9Rw+y0/q -qb1rB+UbOJw0VL7VkegA5Rs6nEytqhNwd4LyjRxU3ILuhe2ByRs7+CbeuZtp -YA/lmzhMnV28YVMuzDxTh5RzrRLnz9tA+WYOgSVyZyLVYHxzh9enH0emboO5 -18LB9eHEvK55MP9ZOvj/e7hPNMYEyrdyiEmf1ftU3RjKt3ZQ8OPZc8AWFn42 -Ds1sB+775uhA+bYOOQELiy/JaED5dg7iAvpibkXKUL69wy/euE2xM+WhfAcH -ZY6aVRXTxQ8AAA10i54= - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9q+WyJ93Wqd0ACrgwKDw/8RHJikon8OB -jzE628ZfEcoXcNi26b3H0ncqUL6Iw62Zag2uEppQvoQDB+OsJu96XShfxsFl -zea1Mr0GUL6Cw5LgI0sCJhlB+UoOKd+CX7xeYAblqzgom7O791TA+GoO2R3F -kXMum0P5Gg4lN/3LdRdZQvlaDstb2wOM/lpB+ToOj1PTraaJ20L5eg7MRk8C -6+/aQfkGDgkzWlW7Ex2gfEOHtvCTEm/cnKB8I4d5Jl+Ew/fA5I0dfmvz/cs2 -sIfyTRwkYq9JbcyFmWfqcDJv/eJz522gfDOHzo6lB8LVYHxzh5+3s7ambYO5 -18LB5bPenK55MP9ZOhy/yHdKNMYEyrdyWHdYefJTdWMo39qBoZVrzwFbWPjZ -OOz9Vn7fN0cHyrd1cCu6UXxJRgPKt3PI7TETcytShvLtHSynBW+KnSkP5Ts4 -hLgnrqqYLn4AAByPi7o= - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-36.55519085861631, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {192., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}], InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7NfXCbQ9UFc6ABVw0Jbbklk8XQrK53Dw9n1k -+CxVEcoXcPC8ysH42VAVyhdx+CHSmCtjrgXlSzjYSM87FFegC+XLOKS/1uVe -/9oYyldw8NR+zxVlZQLlKzlUTrtQ+LIJxldxKGRZdqRX3RzKV3OQb9IJLtG3 -gPI1HFw8P7wTj7aE8rUcVE+tNzgkag3l6ziYLq7bttnCFsrXc1Db1HvyVLA9 -lG/gcEjm1veHTx2gfEOHqTuitys7O0H5Rg4n32+UYloN4xs7aDQvu7roNEy9 -icOLhZnLt6TBzDN1MPznySWSYgPlmzn8O+etv/iwFZRv7iAZnHzrwW+Y+y0c -whYWzd3oC/OfpcPidVz7SpNMoXwrB2m+5Su50mHhZe3woEasIDfdCMq3cUjz -dFwqlqgP5ds63PzAtmyumyaUb+cQK/ajbFeECpRv7/DQdcfCezkKUL6Dg16o -Y8bJZVIHAGq2isg= - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7Ffe6Gx9oK50ACrgwPhmUmbxdCkon8NBxuqO -4bNURShfwEFDXYPxs6EqlC/i0Bv1PFfGXAvKl3CwOJ9+OK5AF8qXcSjLbxJa -/9oYyldw+P8jTizKygTKV3LwOhmV87IJxldxuNUffrpX3RzKV3NYppQdUqJv -AeVrOIjzTGeTiLaE8rUcIlY+cz8kag3l6zh8MNQw2GJhC+XrOTyNevzmbLA9 -lG/goDxdY+Hzpw5QvqHDbmYXLjdnJyjfyOFPm+P+52tgfGOHnzrOU+achqk3 -cfhyW+//xjSYeaYORzac/ySUYgPlmznELqi6uOiwFZRv7rCT6+TsB79h7rdw -EH28xXajL8x/lg7Kp1PmlSaZQvlWDpvDIpdxpcPCy9oh6c65ktx0IyjfxmFC -b+1SsUR9KN/WQeuL9rK5bppQvp2D/V7+8l0RKlC+vUMB09aF93IUoHwHhxvn -pTNOLpM6AACwUI5M - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9uvrBNoeqCsdgAo4aMttySyeLgXlczh4 -+z4yfJaqCOULOHhe5WD8bKgK5Ys4/BBpzJUx14LyJRxspOcdiivQhfJlHNJf -63Kvf20M5Ss4eGq/54qyMoHylRwqp10ofNkE46s4FLIsO9Krbg7lqznIN+kE -l+hbQPkaDi6eH96JR1tC+VoOqqfWGxwStYbydRxMF9dt22xhC+XrOaht6j15 -KtgeyjdwOCRz6/vDpw5QvqHD1B3R25WdnaB8I4eT7zdKMa2G8Y0dNJqXXV10 -GqbexOHFwszlW9Jg5pk6GP7z5BJJsYHyzRz+nfPWX3zYCso3d5AMTr714DfM -/RYOYQuL5m70hfnP0mHxOq59pUmmUL6VgzTf8pVc6bDwsnZ4UCNWkJtuBOXb -OKR5Oi4VS9SH8m0dbn5gWzbXTRPKt3OIFftRtitCBcq3d3joumPhvRwFKN/B -QS/UMePkMqkDAHX+iso= - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9itvdLY+UFc6ABVwYHwzKbN4uhSUz+Eg -Y3XH8FmqIpQv4KChrsH42VAVyhdx6I16nitjrgXlSzhYnE8/HFegC+XLOJTl -Nwmtf20M5Ss4/P8RJxZlZQLlKzl4nYzKedkE46s43OoPP92rbg7lqzksU8oO -KdG3gPI1HMR5prNJRFtC+VoOESufuR8StYbydRw+GGoYbLGwhfL1HJ5GPX5z -NtgeyjdwUJ6usfD5Uwco39BhN7MLl5uzE5Rv5PCnzXH/8zUwvrHDTx3nKXNO -w9SbOHy5rfd/YxrMPFOHIxvOfxJKsYHyzRxiF1RdXHTYCso3d9jJdXL2g98w -91s4iD7eYrvRF+Y/Swfl0ynzSpNMoXwrh81hkcu40mHhZe2QdOdcSW66EZRv -4zCht3apWKI+lG/roPVFe9lcN00o387Bfi9/+a4IFSjf3qGAaevCezkKUL6D -w43z0hknl0kdAAC7mI5O - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-37.3508223600347, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {576., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}]}, {}}, - ContentSelectable->True, - ImageSize->Large, - PlotRangePadding->{6, 5}], TraditionalForm]], "Output", - CellChangeTimes->{3.727628675829605*^9, 3.727629459709133*^9, - 3.727629963077262*^9, 3.7276301375202627`*^9, 3.727630271293865*^9, - 3.72763045201198*^9}] -}, Open ]] -}, Closed]], - -Cell[CellGroupData[{ - -Cell["1 steps in dir_2", "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}, - CellChangeTimes->{ - 3.725641242645789*^9, {3.725641322515449*^9, 3.725641331570396*^9}, { - 3.72564735939476*^9, 3.725647360668185*^9}, {3.7256569094672823`*^9, - 3.725656919994326*^9}, {3.727606276864317*^9, 3.727606288577183*^9}, { - 3.727629995289629*^9, 3.7276300239345284`*^9}, {3.7276301863098497`*^9, - 3.727630187124752*^9}, 3.727630371797447*^9, {3.7276304881388187`*^9, - 3.727630490907076*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData["PDFtags"], "Input", - CellChangeTimes->{{3.727630197638349*^9, 3.727630199135261*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{"\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>"}], "}"}], TraditionalForm]], "Output", - CellChangeTimes->{3.72763019942703*^9, 3.727632322080943*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"PDFtags", "\[LeftDoubleBracket]", "3", - "\[RightDoubleBracket]"}]], "Input", - CellChangeTimes->{3.727632326185255*^9}], - -Cell[BoxData[ - FormBox["\<\"/\"\>", TraditionalForm]], "Output", - CellChangeTimes->{3.727632326482152*^9}] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"trPrpgtrs", "=", - RowBox[{ - RowBox[{ - RowBox[{"Transpose", "[", - RowBox[{ - RowBox[{ - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", - RowBox[{"#", "<>", "\"\\""}]}], "}"}]}], "]"}], - "+", - RowBox[{"I", "*", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", - RowBox[{"#", "<>", "\"\\""}]}], "}"}]}], - "]"}]}]}], ",", - RowBox[{"{", - RowBox[{"4", ",", "3", ",", "2", ",", "1"}], "}"}]}], "]"}], "&"}], - "[", - RowBox[{"PDFtags", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], - "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.7276272023981256`*^9, 3.727627227185638*^9}, { - 3.727627317333276*^9, 3.727627379408533*^9}, {3.7276293246878357`*^9, - 3.727629370118081*^9}, {3.72762966911945*^9, 3.727629672454177*^9}, { - 3.72762992155698*^9, 3.7276299359286823`*^9}, {3.727630049245205*^9, - 3.727630049698079*^9}, {3.727630202750626*^9, 3.727630202902109*^9}, { - 3.7276303818768272`*^9, 3.7276303826853848`*^9}, 3.7276304985201263`*^9}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Evan0Pz", "=", - RowBox[{ - RowBox[{"ToExpression", "[", - RowBox[{"StringReplace", "[", - RowBox[{ - "\"\<[-4.68078202e-05 +1.74312464e-04j -1.84883673e-02 \ -+1.79240284e-03j\n -3.67161910e-03 +3.76354040e-04j -7.66147089e-04 \ -+8.02017258e-05j\n -1.45981251e-04 +1.36442323e-05j -2.51800821e-05 \ -+2.58090752e-06j\n -4.26066003e-06 +5.08183187e-07j -6.88305672e-07 \ -+9.56222446e-08j\n -1.11767333e-07 +1.54260209e-08j -1.82138351e-08 \ -+2.78465218e-09j\n -2.78748740e-09 +5.17160945e-10j -4.15168135e-10 \ -+7.84047900e-11j\n -6.34234039e-11 +1.10652369e-11j -9.07653254e-12 \ -+1.21543209e-12j\n -1.29166867e-12 +1.02355918e-13j -1.92708811e-13 \ -+5.29576180e-15j\n 1.85799673e-14 -5.54340786e-15j 2.40512776e-13 \ --3.29475242e-14j\n 1.56555453e-12 -2.59036485e-13j 9.73362062e-12 \ --1.89791673e-12j\n 5.88113871e-11 -1.20954474e-11j 3.53540843e-10 \ --7.23744173e-11j\n 2.23492742e-09 -4.40183296e-10j 1.22530455e-08 \ --2.43208591e-09j\n 7.23979518e-08 -1.44360734e-08j 4.86648990e-07 \ --9.26065049e-08j\n 3.20684641e-06 -5.41231069e-07j 2.04212681e-05 \ --3.27461961e-06j\n 1.38415424e-04 -2.08435588e-05j 9.40111201e-04 \ --1.37521599e-04j\n 4.86237386e-03 -6.38910937e-04j 2.16811342e-02 \ --2.05360804e-03j]\>\"", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\"\<[\>\"", "\[Rule]", "\"\<{\>\""}], ",", - RowBox[{"\"\<]\>\"", "\[Rule]", "\"\<}\>\""}], ",", - RowBox[{"\"\\"", "\[Rule]", "\"\<*^\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<,\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}]}], "}"}]}], "]"}], - "]"}], "//.", - RowBox[{"j", "\[Rule]", "I"}]}]}], ";"}]], "Input", - CellChangeTimes->{{3.7257125507134933`*^9, 3.7257126495783997`*^9}, { - 3.72571269097847*^9, 3.725712713900034*^9}, 3.725717644541053*^9, { - 3.7257176907900667`*^9, 3.72571769944528*^9}, {3.7257179259722347`*^9, - 3.725717927380402*^9}, {3.7257179798940783`*^9, 3.725717988829979*^9}, { - 3.727627657856822*^9, 3.727627668972213*^9}, {3.727627722677865*^9, - 3.7276277228782997`*^9}, 3.727627765147663*^9, {3.727630085291217*^9, - 3.727630088434623*^9}, {3.7276302185723877`*^9, 3.7276302342658787`*^9}, - 3.727630351222513*^9, {3.72763039479381*^9, 3.727630398614231*^9}, { - 3.727630509862031*^9, 3.727630513311664*^9}, {3.727630554575699*^9, - 3.7276305612083597`*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Chop", "[", - RowBox[{ - RowBox[{ - FractionBox[ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "]"}], "Evan0Pz"], "+", - "1"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}]], "Input", - CellChangeTimes->{{3.7276277621718187`*^9, 3.727627839991593*^9}, { - 3.727627914983019*^9, 3.727627915392362*^9}, 3.7276279507901573`*^9, { - 3.7276296824253397`*^9, 3.7276296827500153`*^9}, {3.727629947734486*^9, - 3.727629948126464*^9}, 3.7276303512439938`*^9}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{ - "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", - RowBox[{"0.`", "\[VeryThinSpace]", "-", - RowBox[{"0.000010742929689833147`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.`", "\[VeryThinSpace]", "-", - RowBox[{"0.00002735476384635449`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.`", "\[VeryThinSpace]", "-", - RowBox[{"0.000039142908662873066`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{ - RowBox[{"-", "0.00044285268864685534`"}], "-", - RowBox[{"0.00006679997693259665`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{ - RowBox[{"-", "0.000065478877080416`"}], "+", - RowBox[{"0.000017437336753550747`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{ - RowBox[{"-", "0.00002544698427597858`"}], "+", - RowBox[{"0.00001094879025415052`", " ", "\[ImaginaryI]"}]}], ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", - "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], - TraditionalForm]], "Output", - CellChangeTimes->{{3.727627769142304*^9, 3.727627840404057*^9}, { - 3.7276279040817623`*^9, 3.72762791575653*^9}, {3.7276279516008177`*^9, - 3.727627961504963*^9}, 3.727629356251318*^9, 3.727629415190401*^9, { - 3.727629680146792*^9, 3.727629683547394*^9}, {3.727629944618627*^9, - 3.727629948839365*^9}, 3.727630095746233*^9, 3.72763024234657*^9, - 3.727630402766755*^9, {3.7276305171873283`*^9, 3.727630524833425*^9}, - 3.727630564878993*^9, 3.727632334144124*^9}] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Evan2Pz", "=", - RowBox[{ - RowBox[{"ToExpression", "[", - RowBox[{"StringReplace", "[", - RowBox[{ - "\"\<[1.44030852e-04 -1.43730391e-05j -3.28052296e-03 +2.87029436e-04j\ -\n -2.85219497e-04 +2.97654902e-05j -4.00569067e-05 +2.69091885e-06j\n \ --5.14024420e-06 -1.25767544e-06j -5.24452377e-07 -2.13670054e-07j\n \ -1.12253322e-07 -5.48078919e-08j 9.60431050e-09 -2.56779840e-09j\n \ --8.90784461e-10 +7.22269088e-10j 9.18514620e-11 +5.57220462e-11j\n \ --1.17135273e-10 +1.05050544e-11j -1.84608620e-11 +3.23193824e-12j\n \ --3.93827027e-12 +6.49692128e-13j -4.92524935e-13 +7.78835613e-14j\n \ --8.45507762e-14 +9.37105184e-15j -1.32791165e-14 +1.78434835e-15j\n \ --4.84087642e-16 +3.86709842e-17j 3.30531643e-15 -9.86405751e-16j\n \ -3.01800733e-14 -8.99429851e-15j 4.35089434e-14 -2.60879068e-14j\n \ --7.13903365e-13 +3.37083849e-13j -9.69257059e-13 +1.36028316e-12j\n \ --7.90607862e-12 +2.55122372e-12j 5.37346576e-11 +4.61899941e-12j\n \ -1.00074216e-09 +4.75162465e-10j 1.19580372e-09 +3.50074659e-09j\n \ -1.00086350e-07 +2.14782383e-08j 7.52291611e-07 +8.72708686e-08j\n \ -6.62809013e-06 -1.16934361e-06j 7.00148746e-05 -1.47219412e-05j\n \ -4.76225116e-04 -5.89546161e-05j 4.35648244e-03 -2.66451413e-04j]\>\"", ",", - - RowBox[{"{", - RowBox[{ - RowBox[{"\"\<[\>\"", "\[Rule]", "\"\<{\>\""}], ",", - RowBox[{"\"\<]\>\"", "\[Rule]", "\"\<}\>\""}], ",", - RowBox[{"\"\\"", "\[Rule]", "\"\<*^\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<,\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}]}], "}"}]}], "]"}], - "]"}], "//.", - RowBox[{"j", "\[Rule]", "I"}]}]}], ";"}]], "Input", - CellChangeTimes->{{3.7276279827884827`*^9, 3.727628003399682*^9}, { - 3.727628381233543*^9, 3.7276283876570463`*^9}, {3.727628427089967*^9, - 3.727628432362475*^9}, {3.727630110793223*^9, 3.727630121444194*^9}, { - 3.7276302556888037`*^9, 3.727630258656848*^9}, {3.7276304373146152`*^9, - 3.72763044276289*^9}, 3.727630540024621*^9}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Chop", "[", - RowBox[{ - RowBox[{ - FractionBox[ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "2"}], "}"}]}], "]"}], "Evan2Pz"], "-", - "1"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}]], "Input", - CellChangeTimes->{{3.7276280128286753`*^9, 3.7276280129870043`*^9}, - 3.727628092981536*^9, {3.727628468635049*^9, 3.727628484739403*^9}, { - 3.7276294402911377`*^9, 3.727629442964613*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{ - "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", - "0.00001583680337091664`", ",", - RowBox[{"0.00002555479518573378`", "\[VeryThinSpace]", "-", - RowBox[{"0.0000253053845899881`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.00006763282120658687`", "\[VeryThinSpace]", "+", - RowBox[{"0.000011432561093011051`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.0008878826314275834`", "\[VeryThinSpace]", "+", - RowBox[{"0.00005868130524996906`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{ - RowBox[{"-", "0.00015364850308274836`"}], "+", - RowBox[{"0.00026853305426560725`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.000024525211907322486`", "\[VeryThinSpace]", "+", - RowBox[{"0.000021744053538830244`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.`", "\[VeryThinSpace]", "-", - RowBox[{"0.00005254663369813617`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"-", "0.00001622234096998465`"}], ",", "0", ",", - RowBox[{ - RowBox[{"-", "0.00002252447881812003`"}], "-", - RowBox[{"0.000014571656491324525`", " ", "\[ImaginaryI]"}]}], ",", - "0.000015958383716485613`", ",", "0", ",", "0", ",", "0", ",", "0", ",", - "0", ",", "0", ",", "0", ",", "0"}], "}"}], TraditionalForm]], "Output", - CellChangeTimes->{ - 3.72762801364791*^9, 3.727628093704427*^9, 3.727628389848628*^9, { - 3.727628441899981*^9, 3.7276284854201603`*^9}, {3.727629422011191*^9, - 3.727629443694212*^9}, 3.727629957013989*^9, 3.727630123573206*^9, - 3.7276302644713907`*^9, 3.7276304461342077`*^9, 3.727630541925376*^9, - 3.727632365944983*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"GraphicsRow", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"ListLinePlot", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", - "Evan0Pz"}], "}"}], "//", "#"}], "//", "Abs"}], "//", "Log"}], - ",", - RowBox[{"PlotStyle", "\[Rule]", - RowBox[{"{", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", "Blue"}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", - RowBox[{"Dashing", "[", "0.01", "]"}], ",", "Red"}], "}"}]}], - "}"}]}], ",", - RowBox[{"PlotMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"\"\<*\>\"", ",", "\"\<+\>\""}], "}"}]}]}], "]"}], "&"}], "/@", - RowBox[{"{", - RowBox[{"Re", ",", "Im"}], "}"}]}], ",", - RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]], "Input", - CellChangeTimes->{{3.727628603540069*^9, 3.727628664031665*^9}, - 3.727630351264995*^9}], - -Cell[BoxData[ - FormBox[ - GraphicsBox[{{}, {InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7Pe+Y5GM/aB8ACrgwLuh5dSxN/xQPodDtqlC -x8ZcMShfwOHDrPfnAjbJQPkiDjvfuagyrFKE8iUcRFpqws/qqkL5Mg7Gnz6v -y9+tAeUrOPyx/fP8RIIOlK/kkMi7YOMBRgMoX8XBd+6HGUaXDKF8NYf4gPrk -HZuMoXwNh3sntrw1mmUK5Ws5ZNn51OtXm0P5Og4O7/4ve5RjCeXrORxJMypk -TbCG8g0cCi17fgm420L5hg7hvL3WB+faQ/lGDqvnCYkH8cHkjR0ezdA0OKkH -02/i8NB/c/bfKJj5pg7HtS8wNffB7DdzSLmvMy30MMx95g7r+hsK3F/D3G/h -cNb/9YS15kZQvqXDP0dO9dcFMP9bOTzYJu7sJaQL5Vs7BPxY8uOljyaUb+PA -Gc91lXcmLHxtHV7qKCy0PwoLfzuHW3u1bh9/IA3l2zs8u3PqBp+fKJTv4LB9 -5ZXA9mV8BwB6zZGY - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7E+/3yUR+0H5AFTAoYRh4qljb/ihfA6HJc3K -HRtzxaB8AYezrh/PBWySgfJFHBrXBKkyrFKE8iUc6llvhJ/VVYXyZRyClqxa -n79bA8pXcGjaVf7iRIIOlK/k8PhX4sYDjAZQvoqDsez6qUaXDKF8NQf7V3ND -d2wyhvI1HObKPDtlNMsUytdyKD/+TVW/2hzK13HgmJcR9SjHEsrXcxA7xrWM -NcEayjdwWFq0plPA3RbKN3TI+/a19/5ceyjfyGGmXYtlGB9M3tghceXGPaf0 -YPpNHDZ+P3nmbxTMfFOHd99ffWrqg9lv5iAwvy8r9DDMfeYOHhNNg91fw9xv -4bBu+pWmteZGUL6lw6LvhxVfF8D8b+XQJs/h4CWkC+VbO1wPXf/9pY8mlG/j -UHZjyxXembDwtXUIbGJfaH8UFv52Drs7dW8ffyAN5ds7dGhducHnJwrlOzh4 -+20ObF/GdwAAfe2Tww== - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9nvfsUjGflA+ABVw4N3QcurYG34on8Mh -21ShY2OuGJQv4PBh1vtzAZtkoHwRh53vXFQZVilC+RIOIi014Wd1VaF8GQfj -T5/X5e/WgPIVHP7Y/nl+IkEHyldySORdsPEAowGUr+LgO/fDDKNLhlC+mkN8 -QH3yjk3GUL6Gw70TW94azTKF8rUcsux86vWrzaF8HQeHd/+XPcqxhPL1HI6k -GRWyJlhD+QYOhZY9vwTcbaF8Q4dw3l7rg3PtoXwjh9XzhMSD+GDyxg6PZmga -nNSD6TdxeOi/OftvFMx8U4fj2heYmvtg9ps5pNzXmRZ6GOY+c4d1/Q0F7q9h -7rdwOOv/esJacyMo39LhnyOn+usCmP+tHB5sE3f2EtKF8q0dAn4s+fHSRxPK -t3HgjOe6yjsTFr62Di91FBbaH4WFv53Drb1at48/kIby7R2e3Tl1g89PFMp3 -cNi+8kpg+zK+AwCGFZGa - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9qff75KI/aB8ACrgUMIw8dSxN/xQPofD -kmbljo25YlC+gMNZ14/nAjbJQPkiDo1rglQZVilC+RIO9aw3ws/qqkL5Mg5B -S1atz9+tAeUrODTtKn9xIkEHyldyePwrceMBRgMoX8XBWHb9VKNLhlC+moP9 -q7mhOzYZQ/kaDnNlnp0ymmUK5Ws5lB//pqpfbQ7l6zhwzMuIepRjCeXrOYgd -41rGmmAN5Rs4LC1a0yngbgvlGzrkffvae3+uPZRv5DDTrsUyjA8mb+yQuHLj -nlN6MP0mDhu/nzzzNwpmvqnDu++vPjX1wew3cxCY35cVehjmPnMHj4mmwe6v -Ye63cFg3/UrTWnMjKN/SYdH3w4qvC2D+t3Jok+dw8BLShfKtHa6Hrv/+0kcT -yrdxKLux5QrvTFj42joENrEvtD8KC387h92durePP5CG8u0dOrSu3ODzE4Xy -HRy8/TYHti/jOwAAiTWTxQ== - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-31.616692421483485`, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {192., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}], InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7Peszdyn7694ACrgcPVwxpxf3pJQPofDj1Ov -nC265KF8AYebd4qbl99RgvJFHA6vaXvbmq4G5Us4eGXp3RTfownlyzicr+r8 -KfdHB8pXcHiu4mW6UdMAyldy8HoXdXTnH0MoX8WhMPfBv1+bjKF8NYcFuZtq -viWaQvkaDprT8+KeuZhD+VoObpf5fmtbWUL5Og7ZeSXG8/KtoXw9h/Kjm/0V -X9pC+QYOv2InJp3Id4DyDR3Wr5datSMTxjdyyE2uOa3LbQ/lGzscmc6+O/C3 -DZRv4sB2RNGu4a8VlG/qoLPbPCZBGWa/mUPhsjCT5EiY+8wdHMXLJ1t0w9xv -4WDsovl+0VWY/ywdygrkOrfwGkH5Vg6H/1mlPjWEhY+1A1Po6wd3bsPCz8Zh -gd+kIyZOsPC1dXD4uoprcp8qlG/nYBdmeHzCCVh82jv0Tz3Q7ZEjC+U7ONgu -rLZec0DiAADpRZGN - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7NnMQ/fq+ysegAo48H9xn/PLWxLK53Bg5+N0 -seiSh/IFHPY+SW5efkcJyhdxsH2z5m1ruhqUL+GQHHj3pvgeTShfxuFzwvRf -cn90oHwFh+Mp+eYbNQ2gfCWHjt7LZ3b+MYTyVRx0Hp1j+73JGMpXc7i9eFnZ -t0RTKF/DweBgvNQzF3MoX8th2gKJuVpWllC+joPb3y09M/KtoXw9B8al6/dz -vbSF8g0ctA++zp6Z7wDlGzo42S6/tj8TxjdyaNPxy7XitofyjR20ugX3hP+2 -gfJNHNKaH3xt/GsF5Zs6MDXv7klQhtlv5nDr8FWx5EiY+8wdzgvPzLfohrnf -wkElPOXBoqsw/1k6dJjlNm/hNYLyrRz2NM1LfmoICx9rB9uKyQ/u3IaFn42D -wqlbR0ycYOFr67DbfBHX5D5VKN/OYaaDyfEJJ2Dxae/wZ8X1bo8cWSjfwaHd -PNt6zQGJAwAX8ZDG - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9nvWZu7T91c8ABVwuHo4Y84vb0kon8Ph -x6lXzhZd8lC+gMPNO8XNy+8oQfkiDofXtL1tTVeD8iUcvLL0borv0YTyZRzO -V3X+lPujA+UrODxX8TLdqGkA5Ss5eL2LOrrzjyGUr+JQmPvg369NxlC+msOC -3E013xJNoXwNB83peXHPXMyhfC0Ht8t8v7WtLKF8HYfsvBLjefnWUL6eQ/nR -zf6KL22hfAOHX7ETk07kO0D5hg7r10ut2pEJ4xs55CbXnNbltofyjR2OTGff -HfjbBso3cWA7omjX8NcKyjd10NltHpOgDLPfzKFwWZhJciTMfeYOjuLlky26 -Ye63cDB20Xy/6CrMf5YOZQVynVt4jaB8K4fD/6xSnxrCwsfagSn09YM7t2Hh -Z+OwwG/SERMnWPjaOjh8XcU1uU8VyrdzsAszPD7hBCw+7R36px7o9siRhfId -HGwXVluvOSBxAAD0jZGP - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9mzmoXv1/RUPQAUc+L+4z/nlLQnlcziw -83G6WHTJQ/kCDnufJDcvv6ME5Ys42L5Z87Y1XQ3Kl3BIDrx7U3yPJpQv4/A5 -YfovuT86UL6Cw/GUfPONmgZQvpJDR+/lMzv/GEL5Kg46j86x/d5kDOWrOdxe -vKzsW6IplK/hYHAwXuqZizmUr+UwbYHEXC0rSyhfx8Ht75aeGfnWUL6eA+PS -9fu5XtpC+QYO2gdfZ8/Md4DyDR2cbJdf258J4xs5tOn45Vpx20P5xg5a3YJ7 -wn/bQPkmDmnND742/rWC8k0dmJp39yQow+w3c7h1+KpYciTMfeYO54Vn5lt0 -w9xv4aASnvJg0VWY/ywdOsxym7fwGkH5Vg57muYlPzWEhY+1g23F5Ad3bsPC -z8ZB4dStIyZOsPC1ddhtvohrcp8qlG/nMNPB5PiEE7D4tHf4s+J6t0eOLJTv -4NBunm295oDEAQAjOZDI - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-32.873302765827205`, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {576., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}]}, {}}, - ContentSelectable->True, - ImageSize->Large, - PlotRangePadding->{6, 5}], TraditionalForm]], "Output", - CellChangeTimes->{{3.7276286072479*^9, 3.7276286652093353`*^9}, - 3.727629456338523*^9, 3.727629962386148*^9, 3.727630135640305*^9, - 3.7276302692534733`*^9, 3.7276304506407747`*^9, 3.727630571560718*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"4", "*", "4", "*", "4", "*", "3", "*", "3", "*", "4", "*", - "4"}]], "Input", - CellChangeTimes->{{3.727633405291267*^9, 3.727633410828967*^9}}], - -Cell[BoxData[ - FormBox["9216", TraditionalForm]], "Output", - CellChangeTimes->{3.7276334112418423`*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"GraphicsRow", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"ListLinePlot", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "2"}], "}"}]}], "]"}], ",", - "Evan2Pz"}], "}"}], "//", "#"}], "//", "Abs"}], "//", "Log"}], - ",", - RowBox[{"PlotStyle", "\[Rule]", - RowBox[{"{", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", "Blue"}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", - RowBox[{"Dashing", "[", "0.01", "]"}], ",", "Red"}], "}"}]}], - "}"}]}], ",", - RowBox[{"PlotMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"\"\<*\>\"", ",", "\"\<+\>\""}], "}"}]}]}], "]"}], "&"}], "/@", - RowBox[{"{", - RowBox[{"Re", ",", "Im"}], "}"}]}], ",", - RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]], "Input", - CellChangeTimes->{{3.727628673943778*^9, 3.727628675078917*^9}, { - 3.727630607608205*^9, 3.727630642729631*^9}}], - -Cell[BoxData[ - FormBox[ - GraphicsBox[{{}, {InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7M8+/aP2eIPiAaiAQ8fdO8fZHopB+RwOy70N -FgoFK0D5Ag7lbZeKpR1UoHwRB8/nkr0R0RpQvoSDBPfx3j+vdaB8GYetm/Ui -ljAYQPkKDp1MKxaylxlB+UoOCzSW+B++ZgLlqzjkJWcvS5Axh/LVHNQ/HuBU -vGcG5Ws4vHbo0VDabgHlaznUy66JWOhkBeXrOJhOPP/6WpgNlK/n4GDAXPhV -0g7KN3DY21vw//pneyjf0IGZK9hy20JHKN/Igf/wpKsfVztA+cYOVw8mq65T -hKk3cWhf0prCdwRmnqnDzlCPWRe/W0P5Zg6KnSsEOlbC+OYOqkym/DYTLKF8 -CwfxZgGfeUth/rN0WMeUrv99B8z/Vg4hi+esTeiG8a0d6g4FfmaSg4WfjUOy -7ImTrsaw8LV1aLDc917/pjqUb+fgFJ3321hJGcq3dzDqCPhiOlMOyndwmMua -Wta3T/QAADbuigA= - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7Bdcfqj2eIPiAaiAw4NXX46zPRSD8jkclHqt -FwoFK0D5Ag5vAh8XSzuoQPkiDv5/jHsjojWgfAmHEr07vX9e60D5Mg7/V9VF -LGEwgPIVHLzb1sxnLzOC8pUcutp+xB2+ZgLlqzjITgrtT5Axh/LVHIo6+rkU -75lB+RoOM5+ui1PabgHlazn4FjWuXehkBeXrOPxY8vTO9TAbKF/PwUdw47tv -knZQvoHDD7677Xc+20P5hg5cYRmllxc6QvlGDl5Cz3Per3aA8o0dpt+doLtB -EabexGFpzQVZniMw80wd/Gew7Lnw3RrKN3NYOFX7b8dKGN/cwftjppvVBEso -38IhfsmFmPlLYf6zdJgflBnyfQfM/1YO8ZclniV0w/jWDlu3x31mkoOFn42D -IHvlSVdjWPjaOkQf4/igf1MdyrdzsHSu+22spAzl2ztIScR+MZ0pB+U7OIh6 -F5f17RM9AACmP5EK - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9mef/lF7vEHxAFTAoePuneNsD8WgfA6H -5d4GC4WCFaB8AYfytkvF0g4qUL6Ig+dzyd6IaA0oX8JBgvt475/XOlC+jMPW -zXoRSxgMoHwFh06mFQvZy4ygfCWHBRpL/A9fM4HyVRzykrOXJciYQ/lqDuof -D3Aq3jOD8jUcXjv0aChtt4DytRzqZddELHSygvJ1HEwnnn99LcwGytdzcDBg -LvwqaQflGzjs7S34f/2zPZRv6MDMFWy5baEjlG/kwH940tWPqx2gfGOHqweT -VdcpwtSbOLQvaU3hOwIzz9RhZ6jHrIvfraF8MwfFzhUCHSthfHMHVSZTfpsJ -llC+hYN4s4DPvKUw/1k6rGNK1/++A+Z/K4eQxXPWJnTD+NYOdYcCPzPJwcLP -xiFZ9sRJV2NY+No6NFjue69/Ux3Kt3Nwis77baykDOXbOxh1BHwxnSkH5Ts4 -zGVNLevbJ3oAAEI2igI= - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9gsuP1R7vEHxAFTA4cGrL8fZHopB+RwO -Sr3WC4WCFaB8AYc3gY+LpR1UoHwRB/8/xr0R0RpQvoRDid6d3j+vdaB8GYf/ -q+oiljAYQPkKDt5ta+azlxlB+UoOXW0/4g5fM4HyVRxkJ4X2J8iYQ/lqDkUd -/VyK98ygfA2HmU/XxSltt4DytRx8ixrXLnSygvJ1HH4seXrnepgNlK/n4CO4 -8d03STso38DhB9/d9juf7aF8QweusIzSywsdoXwjBy+h5znvVztA+cYO0+9O -0N2gCFNv4rC05oIszxGYeaYO/jNY9lz4bg3lmzksnKr9t2MljG/u4P0x081q -giWUb+EQv+RCzPylMP9ZOswPygz5vgPmfyuH+MsSzxK6YXxrh63b4z4zycHC -z8ZBkL3ypKsxLHxtHaKPcXzQv6kO5ds5WDrX/TZWUoby7R2kJGK/mM6Ug/Id -HES9i8v69okeAACxh5EM - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-35.26426570505653, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {192., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}], InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7BsWtXo+9FE7ABVwKDgk1njVXwHK53D4lLe9 -QvWGCpQv4JAjc3TDjmWaUL6IA+eavBgNHW0oX8KBQ+fbxx3b9aB8GYcb71vW -6uwwgPIVHMqkiuP2HDeG8pUc/vxtn1fEYwrlqzgkmrfzBM8xh/LVHFolBXaX -u1tC+RoOFXZfgq1LraB8LYfVumm5H/htoHwdh9zWFww/9eygfD2HRsUdZ5rV -HKB8A4cjxonHb/yC8Q0dOucf/ezx1AnKN3I40X9uzU03Ryjf2ME1qjbonDZM -vYlDa82Np9/d7KF8U4dvS9e+fbsdZr+Zw/ItTBlHg6yhfHOH7Atid45uhLnX -wuGmNlfJJUkY39LhfAOz7dJymP+tHM79KXmSUgELH2uHtMy+9H/LDaF8G4cS -zZIKMUdYeNo6mHGfji4MhIW/ncN1yUn9Mx3UoHx7h/rq7EqbKmUo38FBZG9k -8JtShQMA3e2RHQ== - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7GflZ/o89FE7ABVw0DITbbzqrwDlczh8vju/ -QvWGCpQv4NDa57dxxzJNKF/EoeFERoyGjjaUL+Ewyd/v/Y7telC+jMNfdo41 -OjsMoHwFBy3VIp89x42hfCWHGbbZU4p4TKF8FYfLV7Xtg+eYQ/lqDv5HboSU -u1tC+RoOac/e1VmXWkH5Wg7pOv/yP/LbQPk6DhJWOx/91bOD8vUcyt5KyPWo -OUD5Bg6J/5hMb/yC8Q0d/ELX/vR96gTlGznUrWNV3u7mCOUbO6w7qbXnjDZM -vYnDqse/cv+62UP5pg6+t1b/fb0dZr+ZQ6T+tMVHg6yhfHOHOXynwo9vhLnX -wqG35v+NC5IwvqVDQEGZwdJymP+tHJQP33maUgELH2uHyecy0v4tN4TybRw+ -lhdXiDnCwtPW4XzF9ejCQFj42zlMLl/aP9NBDcq3d9jy0KfSpkoZyndw4PsV -GfymVOEAAIrxkho= - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9g2LWj0f+qgdgAo4FBwSa7zqrwDlczh8 -ytteoXpDBcoXcMiRObphxzJNKF/EgXNNXoyGjjaUL+HAofPt447telC+jMON -9y1rdXYYQPkKDmVSxXF7jhtD+UoOf/62zyviMYXyVRwSzdt5gueYQ/lqDq2S -ArvL3S2hfA2HCrsvwdalVlC+lsNq3bTcD/w2UL6OQ27rC4afenZQvp5Do+KO -M81qDlC+gcMR48TjN37B+IYOnfOPfvZ46gTlGzmc6D+35qabI5Rv7OAaVRt0 -Thum3sShtebG0+9u9lC+qcO3pWvfvt0Os9/MYfkWpoyjQdZQvrlD9gWxO0c3 -wtxr4XBTm6vkkiSMb+lwvoHZdmk5zP9WDuf+lDxJqYCFj7VDWmZf+r/lhlC+ -jUOJZkmFmCMsPG0dzLhPRxcGwsLfzuG65KT+mQ5qUL69Q311dqVNlTKU7+Ag -sjcy+E2pwgEA6TWRHw== - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9rPyM30e+qgdgAo4aJmJNl71V4DyORw+ -351foXpDBcoXcGjt89u4Y5kmlC/i0HAiI0ZDRxvKl3CY5O/3fsd2PShfxuEv -O8canR0GUL6Cg5Zqkc+e48ZQvpLDDNvsKUU8plC+isPlq9r2wXPMoXw1B/8j -N0LK3S2hfA2HtGfv6qxLraB8LYd0nX/5H/ltoHwdBwmrnY/+6tlB+XoOZW8l -5HrUHKB8A4fEf0ymN37B+IYOfqFrf/o+dYLyjRzq1rEqb3dzhPKNHdad1Npz -Rhum3sRh1eNfuX/d7KF8UwffW6v/vt4Os9/MIVJ/2uKjQdZQvrnDHL5T4cc3 -wtxr4dBb8//GBUkY39IhoKDMYGk5zP9WDsqH7zxNqYCFj7XD5HMZaf+WG0L5 -Ng4fy4srxBxh4WnrcL7ienRhICz87Rwmly/tn+mgBuXbO2x56FNpU6UM5Ts4 -8P2KDH5TqnAAAJY5khw= - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-37.791442117343294`, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {576., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}]}, {}}, - ContentSelectable->True, - ImageSize->Large, - PlotRangePadding->{6, 5}], TraditionalForm]], "Output", - CellChangeTimes->{ - 3.727628675829605*^9, 3.727629459709133*^9, 3.727629963077262*^9, - 3.7276301375202627`*^9, 3.727630271293865*^9, 3.72763045201198*^9, { - 3.727630572222108*^9, 3.7276305747753687`*^9}, {3.727630608476368*^9, - 3.727630643825512*^9}}] -}, Open ]] -}, Open ]], - -Cell[CellGroupData[{ - -Cell["1 steps in dir_3 (time)", "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}, - CellChangeTimes->{ - 3.725641242645789*^9, {3.725641322515449*^9, 3.725641331570396*^9}, { - 3.72564735939476*^9, 3.725647360668185*^9}, {3.7256569094672823`*^9, - 3.725656919994326*^9}, {3.727606276864317*^9, 3.727606288577183*^9}, { - 3.727629995289629*^9, 3.7276300239345284`*^9}, {3.7276301863098497`*^9, - 3.727630187124752*^9}, 3.727630371797447*^9, {3.7276304881388187`*^9, - 3.727630490907076*^9}, {3.727630697181855*^9, 3.727630701077433*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData["PDFtags"], "Input", - CellChangeTimes->{{3.727630197638349*^9, 3.727630199135261*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{"\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>"}], "}"}], TraditionalForm]], "Output", - CellChangeTimes->{3.72763019942703*^9, 3.727630816041691*^9, - 3.727631853186174*^9, 3.727631937446465*^9}] -}, Closed]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"PDFtags", "\[LeftDoubleBracket]", "4", - "\[RightDoubleBracket]"}]], "Input", - CellChangeTimes->{3.727630838577374*^9}], - -Cell[BoxData[ - FormBox["\<\"/\"\>", TraditionalForm]], "Output", - CellChangeTimes->{3.727630838780613*^9, 3.7276318541703978`*^9, - 3.72763193829412*^9}] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"trPrpgtrs", "=", - RowBox[{ - RowBox[{ - RowBox[{"Transpose", "[", - RowBox[{ - RowBox[{ - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", - RowBox[{"#", "<>", "\"\\""}]}], "}"}]}], "]"}], - "+", - RowBox[{"I", "*", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", - RowBox[{"#", "<>", "\"\\""}]}], "}"}]}], - "]"}]}]}], ",", - RowBox[{"{", - RowBox[{"4", ",", "3", ",", "2", ",", "1"}], "}"}]}], "]"}], "&"}], - "[", - RowBox[{"PDFtags", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], - "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.7276272023981256`*^9, 3.727627227185638*^9}, { - 3.727627317333276*^9, 3.727627379408533*^9}, {3.7276293246878357`*^9, - 3.727629370118081*^9}, {3.72762966911945*^9, 3.727629672454177*^9}, { - 3.72762992155698*^9, 3.7276299359286823`*^9}, {3.727630049245205*^9, - 3.727630049698079*^9}, {3.727630202750626*^9, 3.727630202902109*^9}, { - 3.7276303818768272`*^9, 3.7276303826853848`*^9}, 3.7276304985201263`*^9, { - 3.727630834249823*^9, 3.727630834393629*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Evan0Pz", "=", - RowBox[{ - RowBox[{"ToExpression", "[", - RowBox[{"StringReplace", "[", - RowBox[{ - "\"\<[-1.00071685e-01 -1.76535325e-04j -1.85961989e-02 \ -+1.37336491e-04j\n -2.98436444e-03 +2.79572271e-05j -5.51658685e-04 \ -+4.51183244e-06j\n -9.77210789e-05 -9.12717923e-07j -1.62395631e-05 \ --2.94703993e-07j\n -2.68201136e-06 -5.91985878e-08j -4.35969674e-07 \ --7.09148452e-09j\n -7.02577769e-08 -1.04764888e-09j -1.15039756e-08 \ --1.21977908e-10j\n -1.78131513e-09 -7.43297482e-12j -2.66420157e-10 \ --5.57199621e-14j\n -4.06666462e-11 +3.50133480e-13j -5.86762773e-12 \ -+3.90053945e-14j\n -8.42758899e-13 +1.22932792e-15j -1.13572700e-13 \ -+6.56387094e-17j\n 9.05534664e-14 +1.60592980e-16j 5.71540445e-13 \ -+2.43992328e-15j\n 3.64155355e-12 +1.34608838e-14j 2.24173859e-11 \ -+6.26533685e-14j\n 1.35439222e-10 +4.26912002e-13j 8.21903628e-10 \ -+1.83506046e-12j\n 5.20301466e-09 +1.44073328e-11j 2.91094632e-08 \ -+8.93439145e-11j\n 1.75884182e-07 +8.36604950e-10j 1.18946611e-06 \ -+6.20622802e-09j\n 7.84748050e-06 +2.17968977e-08j 5.07663144e-05 \ -+1.12305245e-07j\n 3.44434858e-04 +1.46534091e-06j 2.24893613e-03 \ -+5.26264890e-07j\n 1.15380679e-02 +6.69307360e-06j 5.29365420e-02 \ --4.01687472e-05j]\>\"", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\"\<[\>\"", "\[Rule]", "\"\<{\>\""}], ",", - RowBox[{"\"\<]\>\"", "\[Rule]", "\"\<}\>\""}], ",", - RowBox[{"\"\\"", "\[Rule]", "\"\<*^\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<,\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}]}], "}"}]}], "]"}], - "]"}], "//.", - RowBox[{"j", "\[Rule]", "I"}]}]}], ";"}]], "Input", - CellChangeTimes->{{3.7257125507134933`*^9, 3.7257126495783997`*^9}, { - 3.72571269097847*^9, 3.725712713900034*^9}, 3.725717644541053*^9, { - 3.7257176907900667`*^9, 3.72571769944528*^9}, {3.7257179259722347`*^9, - 3.725717927380402*^9}, {3.7257179798940783`*^9, 3.725717988829979*^9}, { - 3.727627657856822*^9, 3.727627668972213*^9}, {3.727627722677865*^9, - 3.7276277228782997`*^9}, 3.727627765147663*^9, {3.727630085291217*^9, - 3.727630088434623*^9}, {3.7276302185723877`*^9, 3.7276302342658787`*^9}, - 3.727630351222513*^9, {3.72763039479381*^9, 3.727630398614231*^9}, { - 3.727630509862031*^9, 3.727630513311664*^9}, {3.727630554575699*^9, - 3.7276305612083597`*^9}, {3.727630857235998*^9, 3.727630859988212*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Chop", "[", - RowBox[{ - RowBox[{ - FractionBox[ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "]"}], "Evan0Pz"], "+", - "1"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}]], "Input", - CellChangeTimes->{{3.7276277621718187`*^9, 3.727627839991593*^9}, { - 3.727627914983019*^9, 3.727627915392362*^9}, 3.7276279507901573`*^9, { - 3.7276296824253397`*^9, 3.7276296827500153`*^9}, {3.727629947734486*^9, - 3.727629948126464*^9}, 3.7276303512439938`*^9}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{ - "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", - RowBox[{"0.`", "\[VeryThinSpace]", "-", - RowBox[{"0.000010966763928873559`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.`", "\[VeryThinSpace]", "-", - RowBox[{"0.000025330250159176634`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.000046412786866900646`", "\[VeryThinSpace]", "-", - RowBox[{"0.000026546354798731857`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{ - RowBox[{"-", "0.0002167994309103527`"}], "+", - RowBox[{"0.00001155696283325347`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{ - RowBox[{"-", "0.00005812804918714498`"}], "+", - RowBox[{"0.00001687252777605574`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{ - RowBox[{"-", "0.00002123898211103814`"}], "+", - RowBox[{"0.00001024688866645921`", " ", "\[ImaginaryI]"}]}], ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", - "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], - TraditionalForm]], "Output", - CellChangeTimes->{{3.727627769142304*^9, 3.727627840404057*^9}, { - 3.7276279040817623`*^9, 3.72762791575653*^9}, {3.7276279516008177`*^9, - 3.727627961504963*^9}, 3.727629356251318*^9, 3.727629415190401*^9, { - 3.727629680146792*^9, 3.727629683547394*^9}, {3.727629944618627*^9, - 3.727629948839365*^9}, 3.727630095746233*^9, 3.72763024234657*^9, - 3.727630402766755*^9, {3.7276305171873283`*^9, 3.727630524833425*^9}, - 3.727630564878993*^9, 3.727630864048572*^9, 3.727631943727416*^9}] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Evan2Pz", "=", - RowBox[{ - RowBox[{"ToExpression", "[", - RowBox[{"StringReplace", "[", - RowBox[{ - "\"\<[-6.86371139e-02 -7.76049743e-05j -9.49141881e-03 \ -+1.19665589e-05j\n -1.09271639e-03 -5.82234309e-06j -1.40369702e-04 \ --1.21679450e-07j\n -1.70580699e-05 -2.74627095e-07j -1.82308079e-06 \ --5.67718560e-08j\n -1.00449278e-07 -1.33261432e-09j -1.51420498e-08 \ -+3.99806217e-10j\n -2.93908474e-09 +6.49845934e-11j -2.47988618e-10 \ --8.30335386e-12j\n -1.07888381e-10 -9.79966008e-12j -1.64193992e-11 \ --1.88761177e-12j\n -2.98992532e-12 -2.92262681e-13j -3.55562274e-13 \ --2.92006599e-14j\n -5.88528181e-14 -3.47447331e-15j -9.32157137e-15 \ --2.13243609e-16j\n 1.05862011e-15 -3.47209952e-16j 8.54485561e-15 \ --1.35471146e-15j\n 7.52752373e-14 -5.32475535e-15j 2.18494225e-13 \ --1.60870707e-14j\n -5.78850395e-13 -6.07034153e-14j 5.25898880e-12 \ --5.66957964e-14j\n 4.24339873e-11 +7.65683247e-13j 6.16708052e-10 \ --2.62902059e-12j\n 8.51341083e-09 -2.43375093e-11j 7.04697377e-08 \ --1.47331690e-09j\n 8.82493483e-07 -2.81202115e-09j 7.91024836e-06 \ --3.47756561e-08j\n 7.84210943e-05 -3.02654890e-07j 6.90163115e-04 \ --3.74147724e-06j\n 5.18531030e-03 +1.13914059e-05j 3.74843308e-02 \ -+6.28866480e-06j]\>\"", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\"\<[\>\"", "\[Rule]", "\"\<{\>\""}], ",", - RowBox[{"\"\<]\>\"", "\[Rule]", "\"\<}\>\""}], ",", - RowBox[{"\"\\"", "\[Rule]", "\"\<*^\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<,\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}]}], "}"}]}], "]"}], - "]"}], "//.", - RowBox[{"j", "\[Rule]", "I"}]}]}], ";"}]], "Input", - CellChangeTimes->{{3.7276279827884827`*^9, 3.727628003399682*^9}, { - 3.727628381233543*^9, 3.7276283876570463`*^9}, {3.727628427089967*^9, - 3.727628432362475*^9}, {3.727630110793223*^9, 3.727630121444194*^9}, { - 3.7276302556888037`*^9, 3.727630258656848*^9}, {3.7276304373146152`*^9, - 3.72763044276289*^9}, 3.727630540024621*^9, {3.727630881900362*^9, - 3.727630885627945*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Chop", "[", - RowBox[{ - RowBox[{ - FractionBox[ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "2"}], "}"}]}], "]"}], "Evan2Pz"], "-", - "1"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}]], "Input", - CellChangeTimes->{{3.7276280128286753`*^9, 3.7276280129870043`*^9}, - 3.727628092981536*^9, {3.727628468635049*^9, 3.727628484739403*^9}, { - 3.7276294402911377`*^9, 3.727629442964613*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{ - "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", - "0.00002442962321458353`", ",", - RowBox[{"0.00003710873455520236`", "\[VeryThinSpace]", "-", - RowBox[{"0.000023430597103378525`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.00007022428918834756`", "\[VeryThinSpace]", "+", - RowBox[{"0.00005598349887395854`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.00025204058580508004`", "\[VeryThinSpace]", "-", - RowBox[{"0.00022002711286694954`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{ - RowBox[{"-", "0.00004845813612619487`"}], "+", - RowBox[{"0.00027094243021638653`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.000034044124681775756`", "\[VeryThinSpace]", "+", - RowBox[{"0.00002250334011223709`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.`", "\[VeryThinSpace]", "-", - RowBox[{"0.000011696755779166956`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{ - RowBox[{"-", "0.0000399890262793301`"}], "+", - RowBox[{"0.000039539697257687245`", " ", "\[ImaginaryI]"}]}], ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", - "0", ",", "0", ",", "0"}], "}"}], TraditionalForm]], "Output", - CellChangeTimes->{ - 3.72762801364791*^9, 3.727628093704427*^9, 3.727628389848628*^9, { - 3.727628441899981*^9, 3.7276284854201603`*^9}, {3.727629422011191*^9, - 3.727629443694212*^9}, 3.727629957013989*^9, 3.727630123573206*^9, - 3.7276302644713907`*^9, 3.7276304461342077`*^9, 3.727630541925376*^9, - 3.727630889852683*^9, 3.727631944823703*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"GraphicsRow", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"ListLinePlot", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", - "Evan0Pz"}], "}"}], "//", "#"}], "//", "Abs"}], "//", "Log"}], - ",", - RowBox[{"PlotStyle", "\[Rule]", - RowBox[{"{", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", "Blue"}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", - RowBox[{"Dashing", "[", "0.01", "]"}], ",", "Red"}], "}"}]}], - "}"}]}], ",", - RowBox[{"PlotMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"\"\<*\>\"", ",", "\"\<+\>\""}], "}"}]}]}], "]"}], "&"}], "/@", - RowBox[{"{", - RowBox[{"Re", ",", "Im"}], "}"}]}], ",", - RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]], "Input", - CellChangeTimes->{{3.727628603540069*^9, 3.727628664031665*^9}, - 3.727630351264995*^9}], - -Cell[BoxData[ - FormBox[ - GraphicsBox[{{}, {InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7NtsH7NbZTEdgAo4dPgJXrz7gB/K53DQi9A5 -/9JRHMoXcFj89PrMJUxyUL6IA3v0tKD6ciUoX8Lhz2+Pp7F8alC+jEOBIK9n -9gpNKF/BwXeZjvcML10oX8mhPOrrmpkVBlC+isPxRZ9WXnY3gvLVHI6uNNkQ -pWoC5Ws4uP0LCTnMbQblazmYvmNM+frGHMrXcfh/KdZxwh1LKF/PQSws5XLo -WWso38BhzRT3p3nnbKF8Q4fvS+12RXLYQflGDjMCz73fY2AD5Rs73PIOPrM2 -zArKN3HQb2Jiy2m1gPJNHRJX39z6dQfMPWYON/MXXIp9DXOvucPL7NbJn4WM -oXwLB8FU6b+aUYZQvqVD6Yd9HTHS+lC+lYM351mWrR7aUL61w8JFOjw7m9Sh -fBsH59TP/meOKUP5tg6cln53fjyRh/LtHMJmTxdblCwB5ds7rOMWXmZ4UxDK -d3BIPPPyRUIT+wEAcSCPQw== - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7Dm/GHFYZTEdgAo4bDU+cOHuA34on8Nhtpjo -+ZeO4lC+gMOjHWdnLmGSg/JFHP77Lg6qL1eC8iUcTk+e+TSWTw3Kl3FwCOz3 -zF6hCeUrOKxVeOc1w0sXyldyeOK+f/XMCgMoX8XhanDpksvuRlC+mkNblcbc -KFUTKF/DwS18ntphbjMoX8vh+ef33768MYfydRzYFm552n/HEsrXc9hyVEUx -7Kw1lG/gkFR8/Vb2OVso39DhsHHN+3QOOyjfyGFSldmBAwY2UL6xg/deT8P1 -YVZQvolD587ZoTmtFlC+qUPON77FX3fA3GPmwGjrvyr2Ncy95g6fhVZUfhYy -hvItHJzf7v+oGWUI5Vs6fIzd3hAjrQ/lWzlkps9n2uqhDeVbO3jXT+He2aQO -5ds4KNlc9T9zTBnKt3XI32p358cTeSjfzkF/z0KxRckSUL69Q0iu0jLDm4JQ -voPDn58fXyQ0sR8AAKuFkmU= - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9m22j9mtspgOQAUcOvwEL959wA/lczjo -Reicf+koDuULOCx+en3mEiY5KF/EgT16WlB9uRKUL+Hw57fH01g+NShfxqFA -kNcze4UmlK/g4LtMx3uGly6Ur+RQHvV1zcwKAyhfxeH4ok8rL7sbQflqDkdX -mmyIUjWB8jUc3P6FhBzmNoPytRxM3zGmfH1jDuXrOPy/FOs44Y4llK/nIBaW -cjn0rDWUb+CwZor707xztlC+ocP3pXa7IjnsoHwjhxmB597vMbCB8o0dbnkH -n1kbZgXlmzjoNzGx5bRaQPmmDomrb279ugPmHjOHm/kLLsW+hrnX3OFlduvk -z0LGUL6Fg2Cq9F/NKEMo39Kh9MO+jhhpfSjfysGb8yzLVg9tKN/aYeEiHZ6d -TepQvo2Dc+pn/zPHlKF8WwdOS787P57IQ/l2DmGzp4stSpaA8u0d1nELLzO8 -KQjlOzgknnn5IqGJ/QAAfGiPRQ== - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJw1zlkowwEcB/Btikm5YhSxDXPbxbDLV8qwJNfUshJJrjxIjhQpytMKD5aQ -I4nkZQtF/iVeGEoSUdKEnGssSrGH3771ffh8n76C+o6KRh8Wi8X3lO0ph+XN -R57/p4yrbOEwNMAmZ05vboPIXEzxwk+e8iPIwbjbtFsWOTHkMPyVLlQMdAvJ -kTgct9ybAkXkaKDcXNy6nEzmY43/VjJZkk4WwqHbXbX0SMjxOK/sWjzTycgi -jPQlTRsTMslJKKyZEe0FKMgpeHC9uz9fsslp8J2z3puvc8kZsO7HCwx2FVmC -+s6Lq9ZjDVmKPXn/exNXS5ZhrE/BMBI1WQ79TrF03aAkZ2J0a6q6bTiHnIU2 -d+DC16b3jwJsTdmK6dn7Nxuu0OVeV6icnIOC111nslFKzoXTtDFYGyUmK9Hc -NMuxFaWSVdAPTARsDSWS1RCqz8uODuLIGnTYtNffjliyFuLtOd58QyQ5D1Xt -wiXpZQgZ+P1xPtYN+TH/ts2SZw== - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-30.032835929701616`, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {192., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}], InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7B+67ri1yUPxAFTAIY3hU5DjSRifw6HuzWcX -mx8qUL6Aw5dbTb+k52lA+SIOJgX7DHwvaEP5Eg5ZWicdJIT1oHwZh8f9e6yL -lhhA+QoOD/ujb6w9bATlKzkcdNFssl1rAuWrOBi/tDlw6LIZlK/mIMlzwZ9j -gSWUr+Gg3WsbVNhiB+VrOSg/KGV2X2cD5es4TLfPmFL4ACav58Blv/vLMR1H -KN/AQdWpe8rs5U5QvqGD2405rff0YXwjhwe1SS1elx2gfGMHh/VJQmIf7aF8 -E4edHy5vYEiHmW/q0J5iIFJVDbPfzGGtnZGmEps1lG/uMNeEXW7aNwso38Lh -ZbosQ5myOZRv6aD9piHx8jOY/60cdgteSbrwFBY+1g4G/+3sLJcYQvk2Djz3 -Nym3McDC09ZBoIFn1su7WlC+nUPNk5s1Fq90oHx7hzS/Uk3DK+pQvoPDXJkH -DOvsVA4AAOI3iyQ= - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7JNfc9ze5KF4ACrgUK94K8jxJIzP4WDB9svF -5ocKlC/g8ESv76f0PA0oX8ThuYOVke8FbShfwuHnmTAHCWE9KF/GYUu3iW3R -EgMoX8FhR8vyy2sPG0H5Sg4b3gpF2q41gfJVHBIV1FUPXTaD8tUcPkxTsGRb -YAnlazh0/RSM3NFiB+VrOaw68fOA0TobKF/H4d6/TCbWBzB5PYc4QSmJTi1H -KN/AwTpBxmzqQico39BBXWxfPr8+jG/kME/+1spTlxygfGOHZvf07sQP9lC+ -iUNHSlDUpjSY+aYOF67oxBRWw+w3c/hWma6jyGYN5Zs71C5eeWTmNwso38Jh -Fce7iWXK5lC+pcPetW9OXn4G87+Vg0AmS+2Fp7DwsXaQSphtabnEEMq3cTC1 -/MLZxgALT1uHpZ+rJ728qwXl2zlo/vePtHilA+XbO7DwKSgZXlGH8h0cYiql -GNfZqRwAAG4ZifM= - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9g9dd9za5KF4ACrgkMbwKcjxJIzP4VD3 -5rOLzQ8VKF/A4cutpl/S8zSgfBEHk4J9Br4XtKF8CYcsrZMOEsJ6UL6Mw+P+ -PdZFSwygfAWHh/3RN9YeNoLylRwOumg22a41gfJVHIxf2hw4dNkMyldzkOS5 -4M+xwBLK13DQ7rUNKmyxg/K1HJQflDK7r7OB8nUcpttnTCl8AJPXc+Cy3/3l -mI4jlG/goOrUPWX2cico39DB7cac1nv6ML6Rw4PapBavyw5QvrGDw/okIbGP -9lC+icPOD5c3MKTDzDd1aE8xEKmqhtlv5rDWzkhTic0ayjd3mGvCLjftmwWU -b+HwMl2WoUzZHMq3dNB+05B4+RnM/1YOuwWvJF14CgsfaweD/3Z2lksMoXwb -B577m5TbGGDhaesg0MAz6+VdLSjfzqHmyc0ai1c6UL69Q5pfqabhFXUo38Fh -rswDhnV2KgcA7X+LJg== - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9smvOW5v8lA8ABVwqFe8FeR4EsbncLBg -++Vi80MFyhdweKLX91N6ngaUL+Lw3MHKyPeCNpQv4fDzTJiDhLAelC/jsKXb -xLZoiQGUr+Cwo2X55bWHjaB8JYcNb4UibdeaQPkqDokK6qqHLptB+WoOH6Yp -WLItsITyNRy6fgpG7mixg/K1HFad+HnAaJ0NlK/jcO9fJhPrA5i8nkOcoJRE -p5YjlG/gYJ0gYzZ1oROUb+igLrYvn18fxjdymCd/a+WpSw5QvrFDs3t6d+IH -eyjfxKEjJShqUxrMfFOHC1d0YgqrYfabOXyrTNdRZLOG8s0dahevPDLzmwWU -b+GwiuPdxDJlcyjf0mHv2jcnLz+D+d/KQSCTpfbCU1j4WDtIJcy2tFxiCOXb -OJhafuFsY4CFp63D0s/Vk17e1YLy7Rw0//tHWrzSgfLtHVj4FJQMr6hD+Q4O -MZVSjOvsVA4AAHlhifU= - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-37.309435432431464`, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {576., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}]}, {}}, - ContentSelectable->True, - ImageSize->Large, - PlotRangePadding->{6, 5}], TraditionalForm]], "Output", - CellChangeTimes->{{3.7276286072479*^9, 3.7276286652093353`*^9}, - 3.727629456338523*^9, 3.727629962386148*^9, 3.727630135640305*^9, - 3.7276302692534733`*^9, 3.7276304506407747`*^9, 3.727630571560718*^9, - 3.727630891638465*^9, 3.727631949057276*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"GraphicsRow", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"ListLinePlot", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "2"}], "}"}]}], "]"}], ",", - "Evan2Pz"}], "}"}], "//", "#"}], "//", "Abs"}], "//", "Log"}], - ",", - RowBox[{"PlotStyle", "\[Rule]", - RowBox[{"{", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", "Blue"}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", - RowBox[{"Dashing", "[", "0.01", "]"}], ",", "Red"}], "}"}]}], - "}"}]}], ",", - RowBox[{"PlotMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"\"\<*\>\"", ",", "\"\<+\>\""}], "}"}]}]}], "]"}], "&"}], "/@", - RowBox[{"{", - RowBox[{"Re", ",", "Im"}], "}"}]}], ",", - RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]], "Input", - CellChangeTimes->{{3.727628673943778*^9, 3.727628675078917*^9}, { - 3.727630607608205*^9, 3.727630642729631*^9}}], - -Cell[BoxData[ - FormBox[ - GraphicsBox[{{}, {InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7JnL1Kfn5bEegAo4LF2tekdloRCUz+HAwmqu -sd9NGsoXcLD+ueqn4D5FKF/EQaGtd5PBV1UoX8KhKEbMQihPC8qXcXjzvXOv -qKwBlK/gkFKSWVHNaATlKzm4XgvaornUGMpXcdiypr5HVs4MyldzOJTDa673 -GcbXcBC4zuatdNUCytdysEy6+Um90wrK13F47s531GGVDZSv5+DaNfvNljI7 -KN/AoWWjepi5ugOUb+hw7lcB/zJbRyjfyKHLc86yGCOYvLFDg9/0T5vNYfpN -HE51Ku98pWYL5Zs6XD3qdqhJF2afmYNu4kWLmT8soXxzh3IdqXSBR+ZQvoXD -h3+fjZ+amEL5lg4/rVysnk6BhYeVw+K1ifZXymHhZe0gzHBfuvuhNpRv49Dw -SOX6kjp1KN/Wof6ceZTaCyUo387huL/0QRdZWSjf3uFt5i8LMx5RKN/BQVe9 -6banK9cBAHvMh9M= - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7K2yJKbn5bEegAo4rA5XuKOyUAjK53D4quyg -sd9NGsoXcJBVmvhTcJ8ilC/isHXNtE0GX1WhfAkHMb0P5kJ5WlC+jMN0s517 -RGUNoHwFh/t7JpdXMxpB+UoON9PLt2guNYbyVRx8lGZ2ycqZQflqDo4n/5vp -fYbxNRyO8uysU7pqAeVrORQ9TU/T6LSC8nUcKu81ZjutsoHy9Rz2WCcVbS+z -g/INHE5cqpxhqe4A5Rs62PSYfllt6wjlGzmkNBRXxBjB5I0dVM4Ve2wzh+k3 -cXBOvj/plZotlG/qsI3p1N16XZh9Zg7m3tG3ZvywhPLNHZy+iP0UeGQO5Vs4 -6E6YlvbUxBTKt3SIWDnN8ekUWHhYOdQJ7HG4Ug4LL2uHvTpTpbsfakP5Ng6/ -pJiuL6lTh/JtHa5tdIxSe6EE5ds5GLIoHnSRlYXy7R3+OrBZmvGIQvkODtN1 -J9/2dOU6AABAtIdF - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9sxl6tPz8lgPQAUclq5WvaOyUAjK53Bg -YTXX2O8mDeULOFj/XPVTcJ8ilC/ioNDWu8ngqyqUL+FQFCNmIZSnBeXLOLz5 -3rlXVNYAyldwSCnJrKhmNILylRxcrwVt0VxqDOWrOGxZU98jK2cG5as5HMrh -Ndf7DONrOAhcZ/NWumoB5Ws5WCbd/KTeaQXl6zg8d+c76rDKBsrXc3Dtmv1m -S5kdlG/g0LJRPcxc3QHKN3Q496uAf5mtI5Rv5NDlOWdZjBFM3tihwW/6p83m -MP0mDqc6lXe+UrOF8k0drh51O9SkC7PPzEE38aLFzB+WUL65Q7mOVLrAI3Mo -38Lhw7/Pxk9NTKF8S4efVi5WT6fAwsPKYfHaRPsr5bDwsnYQZrgv3f1QG8q3 -cWh4pHJ9SZ06lG/rUH/OPErthRKUb+dw3F/6oIusLJRv7/A285eFGY8olO/g -oKvedNvTlesAAIcUh9U= - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9lZZEtPz8lgPQAUcVocr3FFZKATlczh8 -VXbQ2O8mDeULOMgqTfwpuE8Ryhdx2Lpm2iaDr6pQvoSDmN4Hc6E8LShfxmG6 -2c49orIGUL6Cw/09k8urGY2gfCWHm+nlWzSXGkP5Kg4+SjO7ZOXMoHw1B8eT -/830PsP4Gg5HeXbWKV21gPK1HIqepqdpdFpB+ToOlfcas51W2UD5eg57rJOK -tpfZQfkGDicuVc6wVHeA8g0dbHpMv6y2dYTyjRxSGoorYoxg8sYOKueKPbaZ -w/SbODgn35/0Ss0Wyjd12MZ06m69Lsw+Mwdz7+hbM35YQvnmDk5fxH4KPDKH -8i0cdCdMS3tqYgrlWzpErJzm+HQKLDysHOoE9jhcKYeFl7XDXp2p0t0PtaF8 -G4dfUkzXl9SpQ/m2Dtc2OkapvVCC8u0cDFkUD7rIykL59g5/HdgszXhEoXwH -h+m6k297unIdAABL/IdH - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-34.48181011786116, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {192., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}], InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7KWjn/U0vlU6ABVw2PT66oZNq9SgfA6Huhad -TT3SGlC+gINB6jk5hhv6UL6Iw9Kt7mEW5npQvoTDuqeuyZrrDaB8GYdvm1bc -X5pvAuUrOMyWPVt0c7EplK/kcLI+sOJriTmUr+JQ/4bt9LpmSyhfzeGV271e -p0gYX8OhbEED4/N/VlC+lsPVuNmvi+/YQPk6Dgna3h/VteyhfD0Hib+W+6Yv -dYDyDRzeHn3iUcjlBOUbOvT+j7GyP+MI5Rs5yEi3u4XIwfjGDn9/K1x6nwfT -b+JgcETo0bZDMPNNHWR9H0duybOD8s0cOGpyyp0bYHxzh3VWHBtuPbWG8i0c -etbsXyywCuZ+SwdfpYgzyQUWUL6Vg8p6tv2fQ2HhZe3wiudETtUGYyjfxsF6 -7XvZRTqGUL6tw/lL3x+VscLC385hm935pd//wuLL3kHytd7DV4fVoHwHh6N8 -orJSX9QPAADi45Rk - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7M9Jp/c2vlU6ABVwkDn/e8OmVWpQPofDeZal -G3ukNaB8AYfCw6fEGW7oQ/kiDlXfToRamOtB+RIOm0v2J2iuN4DyZRxefZ5/ -ZGm+CZSv4MAc1LLn5mJTKF/JoWrGgdqvJeZQvorDRJ0dxmubLaF8NYdDKpYr -nSJhfA0Hy+C3h5/9s4LytRy+58dMLbpjA+XrOCxz7LFX0rKH8vUc1vmu/9y9 -1AHKN3CwDDBfc5jLCco3dGAO6S6JPeMI5Rs5zMzTWiwlB+MbO1Ss3tP0LA+m -38SBpybG+OAhmPmmDu/YNuefyrOD8s0cZtXu6nRrgPHNHYoPul5//NQayrdw -8PXZeFBsFcz9lg4fUytKkwosoHwrh6u1Hus/h8LCy9pBdtkLnqoNxlC+jQPn -s8+ii3QMoXxbB+3Wr4/KWGHhb+cwSdFl2fe/sPiyd1he/PDBq8NqUL6Dg++X -q3JSX9QPAAAiOZTB - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9tLRz3oa3yodgAo4bHp9dcOmVWpQPodD -XYvOph5pDShfwMEg9Zwcww19KF/EYelW9zALcz0oX8Jh3VPXZM31BlC+jMO3 -TSvuL803gfIVHGbLni26udgUyldyOFkfWPG1xBzKV3Gof8N2el2zJZSv5vDK -7V6vUySMr+FQtqCB8fk/Kyhfy+Fq3OzXxXdsoHwdhwRt74/qWvZQvp6DxF/L -fdOXOkD5Bg5vjz7xKORygvINHXr/x1jZn3GE8o0cZKTb3ULkYHxjh7+/FS69 -z4PpN3EwOCL0aNshmPmmDrK+jyO35NlB+WYOHDU55c4NML65wzorjg23nlpD -+RYOPWv2LxZYBXO/pYOvUsSZ5AILKN/KQWU92/7PobDwsnZ4xXMip2qDMZRv -42C99r3sIh1DKN/W4fyl74/KWGHhb+ewze780u9/YfFl7yD5Wu/hq8NqUL6D -w1E+UVmpL+oHAO4rlGY= - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9uek03sb3yodgAo4yJz/vWHTKjUon8Ph -PMvSjT3SGlC+gEPh4VPiDDf0oXwRh6pvJ0ItzPWgfAmHzSX7EzTXG0D5Mg6v -Ps8/sjTfBMpXcGAOatlzc7EplK/kUDXjQO3XEnMoX8Vhos4O47XNllC+msMh -FcuVTpEwvoaDZfDbw8/+WUH5Wg7f82OmFt2xgfJ1HJY59tgradlD+XoO63zX -f+5e6gDlGzhYBpivOczlBOUbOjCHdJfEnnGE8o0cZuZpLZaSg/GNHSpW72l6 -lgfTb+LAUxNjfPAQzHxTh3dsm/NP5dlB+WYOs2p3dbo1wPjmDsUHXa8/fmoN -5Vs4+PpsPCi2CuZ+S4ePqRWlSQUWUL6Vw9Vaj/WfQ2HhZe0gu+wFT9UGYyjf -xoHz2WfRRTqGUL6tg3br10dlrLDwt3OYpOiy7PtfWHzZOywvfvjg1WE1KN/B -wffLVTmpL+oHAC2BlMM= - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-36.08409645748947, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {576., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}]}, {}}, - ContentSelectable->True, - ImageSize->Large, - PlotRangePadding->{6, 5}], TraditionalForm]], "Output", - CellChangeTimes->{ - 3.727628675829605*^9, 3.727629459709133*^9, 3.727629963077262*^9, - 3.7276301375202627`*^9, 3.727630271293865*^9, 3.72763045201198*^9, { - 3.727630572222108*^9, 3.7276305747753687`*^9}, {3.727630608476368*^9, - 3.727630643825512*^9}, 3.727630894766361*^9, 3.72763194958602*^9}] -}, Open ]] -}, Open ]], - -Cell[CellGroupData[{ - -Cell["2 steps in dir_3 (time)", "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}, - CellChangeTimes->{ - 3.725641242645789*^9, {3.725641322515449*^9, 3.725641331570396*^9}, { - 3.72564735939476*^9, 3.725647360668185*^9}, {3.7256569094672823`*^9, - 3.725656919994326*^9}, {3.727606276864317*^9, 3.727606288577183*^9}, { - 3.727629995289629*^9, 3.7276300239345284`*^9}, {3.7276301863098497`*^9, - 3.727630187124752*^9}, 3.727630371797447*^9, {3.7276304881388187`*^9, - 3.727630490907076*^9}, {3.727630697181855*^9, 3.727630701077433*^9}, { - 3.727630931196619*^9, 3.7276309314366693`*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData["PDFtags"], "Input", - CellChangeTimes->{{3.727630197638349*^9, 3.727630199135261*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{"\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>"}], "}"}], TraditionalForm]], "Output", - CellChangeTimes->{3.72763019942703*^9, 3.727630816041691*^9, - 3.727631602190425*^9, 3.727631949666337*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"PDFtags", "\[LeftDoubleBracket]", - RowBox[{"-", "2"}], "\[RightDoubleBracket]"}]], "Input", - CellChangeTimes->{ - 3.727630838577374*^9, {3.727631621357127*^9, 3.727631621867382*^9}, { - 3.727631969735633*^9, 3.727631969887182*^9}}], - -Cell[BoxData[ - FormBox["\<\"/\"\>", TraditionalForm]], "Output", - CellChangeTimes->{ - 3.727630838780613*^9, 3.727631622393856*^9, {3.72763194976961*^9, - 3.727631970377174*^9}}] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"trPrpgtrs", "=", - RowBox[{ - RowBox[{ - RowBox[{"Transpose", "[", - RowBox[{ - RowBox[{ - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", - RowBox[{"#", "<>", "\"\\""}]}], "}"}]}], "]"}], - "+", - RowBox[{"I", "*", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", - RowBox[{"#", "<>", "\"\\""}]}], "}"}]}], - "]"}]}]}], ",", - RowBox[{"{", - RowBox[{"4", ",", "3", ",", "2", ",", "1"}], "}"}]}], "]"}], "&"}], - "[", - RowBox[{"PDFtags", "\[LeftDoubleBracket]", - RowBox[{"-", "2"}], "\[RightDoubleBracket]"}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.7276272023981256`*^9, 3.727627227185638*^9}, { - 3.727627317333276*^9, 3.727627379408533*^9}, {3.7276293246878357`*^9, - 3.727629370118081*^9}, {3.72762966911945*^9, 3.727629672454177*^9}, { - 3.72762992155698*^9, 3.7276299359286823`*^9}, {3.727630049245205*^9, - 3.727630049698079*^9}, {3.727630202750626*^9, 3.727630202902109*^9}, { - 3.7276303818768272`*^9, 3.7276303826853848`*^9}, 3.7276304985201263`*^9, { - 3.727630834249823*^9, 3.727630834393629*^9}, {3.72763162694023*^9, - 3.72763162735509*^9}, {3.7276319933924303`*^9, 3.7276319934802322`*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Evan0Pz", "=", - RowBox[{ - RowBox[{"ToExpression", "[", - RowBox[{"StringReplace", "[", - RowBox[{ - "\"\<[-4.43975766e-02 +8.08203337e-05j -8.30742228e-03 \ -+6.27688130e-05j\n -1.32004455e-03 +1.21370724e-05j -2.44344269e-04 \ -+2.65495847e-06j\n -4.35563677e-05 -5.13957529e-07j -7.27111531e-06 \ --1.72596066e-07j\n -1.19664444e-06 -3.47418727e-08j -1.93747713e-07 \ --4.38685538e-09j\n -3.10248437e-08 -6.65248206e-10j -5.06974582e-09 \ --8.49501083e-11j\n -7.85213873e-10 -5.83079949e-12j -1.16946762e-10 \ --2.93709054e-13j\n -1.77030807e-11 +1.38269515e-13j -2.54621500e-12 \ -+1.71313096e-14j\n -3.60998229e-13 +1.03700562e-15j -2.31576461e-14 \ -+1.33992451e-15j\n 1.93975767e-13 +4.91222075e-15j 1.05973237e-12 \ -+2.55102689e-14j\n 6.70572096e-12 +1.17749059e-13j 4.12116819e-11 \ -+5.79858844e-13j\n 2.50947090e-10 +2.95047391e-12j 1.53014871e-09 \ -+1.45624228e-11j\n 9.74861927e-09 +9.83861437e-11j 5.46525022e-08 \ -+5.61730040e-10j\n 3.29830384e-07 +3.86046900e-09j 2.20743472e-06 \ -+2.58210987e-08j\n 1.43071213e-05 +7.87777605e-08j 9.02577258e-05 \ -+5.11596054e-07j\n 5.89765801e-04 +4.77559530e-06j 3.53913259e-03 \ -+3.94158576e-05j\n 1.50582164e-02 +9.30414986e-05j 8.57363457e-05 \ --1.11992240e-05j]\>\"", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\"\<[\>\"", "\[Rule]", "\"\<{\>\""}], ",", - RowBox[{"\"\<]\>\"", "\[Rule]", "\"\<}\>\""}], ",", - RowBox[{"\"\\"", "\[Rule]", "\"\<*^\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<,\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}]}], "}"}]}], "]"}], - "]"}], "//.", - RowBox[{"j", "\[Rule]", "I"}]}]}], ";"}]], "Input", - CellChangeTimes->{{3.7257125507134933`*^9, 3.7257126495783997`*^9}, { - 3.72571269097847*^9, 3.725712713900034*^9}, 3.725717644541053*^9, { - 3.7257176907900667`*^9, 3.72571769944528*^9}, {3.7257179259722347`*^9, - 3.725717927380402*^9}, {3.7257179798940783`*^9, 3.725717988829979*^9}, { - 3.727627657856822*^9, 3.727627668972213*^9}, {3.727627722677865*^9, - 3.7276277228782997`*^9}, 3.727627765147663*^9, {3.727630085291217*^9, - 3.727630088434623*^9}, {3.7276302185723877`*^9, 3.7276302342658787`*^9}, - 3.727630351222513*^9, {3.72763039479381*^9, 3.727630398614231*^9}, { - 3.727630509862031*^9, 3.727630513311664*^9}, {3.727630554575699*^9, - 3.7276305612083597`*^9}, {3.727630857235998*^9, 3.727630859988212*^9}, { - 3.727631648158012*^9, 3.727631651326325*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Chop", "[", - RowBox[{ - RowBox[{ - FractionBox[ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "]"}], "Evan0Pz"], "+", - "1"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}]], "Input", - CellChangeTimes->{{3.7276277621718187`*^9, 3.727627839991593*^9}, { - 3.727627914983019*^9, 3.727627915392362*^9}, 3.7276279507901573`*^9, { - 3.7276296824253397`*^9, 3.7276296827500153`*^9}, {3.727629947734486*^9, - 3.727629948126464*^9}, 3.7276303512439938`*^9}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{ - "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", - RowBox[{"0.`", "\[VeryThinSpace]", "-", - RowBox[{"0.00001703283309032865`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.0005684998216990422`", "\[VeryThinSpace]", "+", - RowBox[{"0.00013868136752945986`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"-", "0.0001834557931681413`"}], ",", - RowBox[{ - RowBox[{"-", "0.00005382006086795954`"}], "+", - RowBox[{"0.00001575619892786595`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{ - RowBox[{"-", "0.000019463106982975376`"}], "+", - RowBox[{"0.000010273838866602797`", " ", "\[ImaginaryI]"}]}], ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", - "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], - TraditionalForm]], "Output", - CellChangeTimes->{{3.727627769142304*^9, 3.727627840404057*^9}, { - 3.7276279040817623`*^9, 3.72762791575653*^9}, {3.7276279516008177`*^9, - 3.727627961504963*^9}, 3.727629356251318*^9, 3.727629415190401*^9, { - 3.727629680146792*^9, 3.727629683547394*^9}, {3.727629944618627*^9, - 3.727629948839365*^9}, 3.727630095746233*^9, 3.72763024234657*^9, - 3.727630402766755*^9, {3.7276305171873283`*^9, 3.727630524833425*^9}, - 3.727630564878993*^9, 3.727630864048572*^9, 3.727631654504616*^9, { - 3.727631950074073*^9, 3.727631996105945*^9}}] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Evan2Pz", "=", - RowBox[{ - RowBox[{"ToExpression", "[", - RowBox[{"StringReplace", "[", - RowBox[{ - "\"\<[ -2.73953360e-02 +6.62728563e-05j -3.89602513e-03 \ -+1.86096088e-05j\n -4.32157403e-04 -5.34080206e-06j -5.48050395e-05 \ -+3.59591472e-08j\n -6.68510519e-06 -8.77619531e-08j -7.08723802e-07 \ --2.30970776e-08j\n -2.99504533e-08 +1.15378297e-09j -4.99182810e-09 \ -+2.63708633e-10j\n -1.16803378e-09 +3.52508745e-12j -1.05191460e-10 \ --6.57150635e-12j\n -4.80947343e-11 -5.40447901e-12j -7.21421520e-12 \ --9.87025211e-13j\n -1.32308901e-12 -1.67839392e-13j -1.55555798e-13 \ --1.63975262e-14j\n -2.68226490e-14 -1.57378065e-15j -5.15234180e-15 \ --2.55709096e-16j\n 2.97289899e-15 -7.53097541e-17j 1.41761880e-14 \ -+2.36659740e-16j\n 1.36046911e-13 +1.07032277e-14j 3.84183458e-13 \ -+4.88636546e-14j\n -8.00292958e-13 +4.31876905e-13j 1.87615260e-11 \ -+2.66164453e-12j\n 1.64249289e-10 -1.25632808e-11j 1.76910605e-09 \ --1.52651513e-10j\n 2.18450875e-08 -1.19187092e-09j 1.92190203e-07 \ --1.12653396e-08j\n 2.19340539e-06 -8.22195276e-08j 1.92693577e-05 \ --1.14553586e-07j\n 1.83616563e-04 +1.67263498e-06j 1.48621731e-03 \ -+9.04623100e-06j\n 9.26795196e-03 +2.30919023e-05j 2.09979982e-03 \ --1.66488771e-05j]\n\>\"", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\"\<[\>\"", "\[Rule]", "\"\<{\>\""}], ",", - RowBox[{"\"\<]\>\"", "\[Rule]", "\"\<}\>\""}], ",", - RowBox[{"\"\\"", "\[Rule]", "\"\<*^\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<,\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}]}], "}"}]}], "]"}], - "]"}], "//.", - RowBox[{"j", "\[Rule]", "I"}]}]}], ";"}]], "Input", - CellChangeTimes->{{3.7276279827884827`*^9, 3.727628003399682*^9}, { - 3.727628381233543*^9, 3.7276283876570463`*^9}, {3.727628427089967*^9, - 3.727628432362475*^9}, {3.727630110793223*^9, 3.727630121444194*^9}, { - 3.7276302556888037`*^9, 3.727630258656848*^9}, {3.7276304373146152`*^9, - 3.72763044276289*^9}, 3.727630540024621*^9, {3.727630881900362*^9, - 3.727630885627945*^9}, {3.727631673937984*^9, 3.727631674913636*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Chop", "[", - RowBox[{ - RowBox[{ - FractionBox[ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "2"}], "}"}]}], "]"}], "Evan2Pz"], "-", - "1"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}]], "Input", - CellChangeTimes->{{3.7276280128286753`*^9, 3.7276280129870043`*^9}, - 3.727628092981536*^9, {3.727628468635049*^9, 3.727628484739403*^9}, { - 3.7276294402911377`*^9, 3.727629442964613*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{ - "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", - "0.000028861484615783084`", ",", - RowBox[{"0.000045566615150649525`", "\[VeryThinSpace]", "-", - RowBox[{"0.000022012896518396052`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.`", "\[VeryThinSpace]", "+", - RowBox[{"0.00010369072887358305`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.00038939817889382944`", "\[VeryThinSpace]", "-", - RowBox[{"0.00009178686873009476`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.`", "\[VeryThinSpace]", "+", - RowBox[{"0.00031357868159860233`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.00003535659379227951`", "\[VeryThinSpace]", "+", - RowBox[{"0.0000168925466167702`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.`", "\[VeryThinSpace]", "-", - RowBox[{"0.000011059332250845655`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{ - RowBox[{"-", "0.00006702539656688877`"}], "+", - RowBox[{"0.00001576558723642707`", " ", "\[ImaginaryI]"}]}], ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", - "0", ",", "0", ",", "0"}], "}"}], TraditionalForm]], "Output", - CellChangeTimes->{ - 3.72762801364791*^9, 3.727628093704427*^9, 3.727628389848628*^9, { - 3.727628441899981*^9, 3.7276284854201603`*^9}, {3.727629422011191*^9, - 3.727629443694212*^9}, 3.727629957013989*^9, 3.727630123573206*^9, - 3.7276302644713907`*^9, 3.7276304461342077`*^9, 3.727630541925376*^9, - 3.727630889852683*^9, 3.7276316780805407`*^9, 3.727631950375943*^9, - 3.727631999305686*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"GraphicsRow", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"ListLinePlot", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", - "Evan0Pz"}], "}"}], "//", "#"}], "//", "Abs"}], "//", "Log"}], - ",", - RowBox[{"PlotStyle", "\[Rule]", - RowBox[{"{", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", "Blue"}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", - RowBox[{"Dashing", "[", "0.01", "]"}], ",", "Red"}], "}"}]}], - "}"}]}], ",", - RowBox[{"PlotMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"\"\<*\>\"", ",", "\"\<+\>\""}], "}"}]}]}], "]"}], "&"}], "/@", - RowBox[{"{", - RowBox[{"Re", ",", "Im"}], "}"}]}], ",", - RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]], "Input", - CellChangeTimes->{{3.727628603540069*^9, 3.727628664031665*^9}, - 3.727630351264995*^9}], - -Cell[BoxData[ - FormBox[ - GraphicsBox[{{}, {InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7PduWPZw8SuOA1ABh9ncW2ZM0RSG8jkc/vcG -O5m1SkH5Ag6ZLV7fXBYpQPkiDvNklbstRVWgfAkHfV7facdXqkP5Mg4VnH4J -C1y1oXwFh8kFqw9dfakH5Ss5BJvOWH3T0xDKV3H45RH8f7qkMZSv5rDTy20a -33cTKF/Doeoa8+mue2ZQvpbDk28Tt989aAHl6zjILrIr99hkBeXrOcjUJLIm -LLOB8g0crv85uHBxqj2Ub+gQ6n2ZO9zVFso3cqizWvdozSRrKN/YQbx22e2E -XZZQvonDo652zZ6X5lC+qUPv58cpItIw95g5XHr2Pt7ZB+ZecwfW50KhZkVG -UL6Fw9/tz48/22EA5Vs62M+MWFJwUxfKt3Jom6O7U55HC8q3dsh8VXHO2l8N -yrdx0Amz26ezQAnKt3XYcyo/326fLJRv5+Cwcf+s4MliUL69w6RZsbwdJwSg -fAeHy1+CrtfsUjoAAC9+kWk= - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7C2P73y4+BXHAaiAA0fPlhlTNIWhfA6HazKW -TmatUlC+gMN3do9vLosUoHwRB4Ur5t2WoipQvoQDQ//GacdXqkP5Mg4iD34k -LHDVhvIVHBrXaB26+lIPyldymPuff9VNT0MoX8Xh08fDP6ZLGkP5ag6mPdvr -+b6bQPkaDi2GC2d03TOD8rUc/DJFnO8etIDydRxcna2VPDZZQfl6Dv+NDgok -LLOB8g0c1r2rv1abag/lGzrcfjlJNNnVFso3cuCJ/pG/YZI1lG/swPnUVDVp -lyWUb+Iw501Kcc9Lcyjf1OHeRv5QEWmYe8wcWja/snb2gbnX3MErTMzOrMgI -yrdwmHvg5t5nOwygfEuH911mcwtu6kL5Vg6RvKnb5Xm0oHxrh6UTpc5Z+6tB -+TYOSm+V9+ksUILybR0Msyrz7fbJQvl2DpEOO2cFTxaD8u0dzv114e04IQDl -OzhIpXVer9mldAAAGmKNZA== - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9ns3LHu4+BXHAaiAw2zuLTOmaApD+RwO -/3uDncxapaB8AYfMFq9vLosUoHwRh3myyt2WoipQvoSDPq/vtOMr1aF8GYcK -Tr+EBa7aUL6Cw+SC1YeuvtSD8pUcgk1nrL7paQjlqzj88gj+P13SGMpXc9jp -5TaN77sJlK/hUHWN+XTXPTMoX8vhybeJ2+8etIDydRxkF9mVe2yygvL1HGRq -ElkTltlA+QYO1/8cXLg41R7KN3QI9b7MHe5qC+UbOdRZrXu0ZpI1lG/sIF67 -7HbCLkso38ThUVe7Zs9Lcyjf1KH38+MUEWmYe8wcLj17H+/sA3OvuQPrc6FQ -syIjKN/C4e/258ef7TCA8i0d7GdGLCm4qQvlWzm0zdHdKc+jBeVbO2S+qjhn -7a8G5ds46ITZ7dNZoATl2zrsOZWfb7dPFsq3c3DYuH9W8GQxKN/eYdKsWN6O -EwJQvoPD5S9B12t2KR0AADrGkWs= - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9pbHdz5c/IrjAFTAgaNny4wpmsJQPofD -NRlLJ7NWKShfwOE7u8c3l0UKUL6Ig8IV825LURUoX8KBoX/jtOMr1aF8GQeR -Bz8SFrhqQ/kKDo1rtA5dfakH5Ss5zP3Pv+qmpyGUr+Lw6ePhH9MljaF8NQfT -nu31fN9NoHwNhxbDhTO67plB+VoOfpkizncPWkD5Og6uztZKHpusoHw9h/9G -BwUSltlA+QYO697VX6tNtYfyDR1uv5wkmuxqC+UbOfBE/8jfMMkayjd24Hxq -qpq0yxLKN3GY8yaluOelOZRv6nBvI3+oiDTMPWYOLZtfWTv7wNxr7uAVJmZn -VmQE5Vs4zD1wc++zHQZQvqXD+y6zuQU3daF8K4dI3tTt8jxaUL61w9KJUues -/dWgfBsHpbfK+3QWKEH5tg6GWZX5dvtkoXw7h0iHnbOCJ4tB+fYO5/668Hac -EIDyHRyk0jqv1+xSOgAAJaqNZg== - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-31.397028074131267`, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {192., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}], InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7P1WSGftuKF0ACrg8L7qabNylDKUz+Fgf2SS -ScliNShfwMHxZr7knLWaUL6Ig5nSbPawbzpQvoTDy9tLedhU9aF8GYd826VH -HuoYQvkKDqkKyVMX2hlD+UoOU5PfazcomkL5Kg5s6v8fxxuYQ/lqDr8C2aT1 -7llC+RoOx841ztS7bQPlazksinW7KzvHFsrXcbjuV/eScbM9lK/nYHY99piQ -oyOUb+Cgu/dflps8jG/o4BNeMdW+0gHKN3KYu63O7IEPTL+xg4Nwv1PQUZj5 -Jg7JzDMvyOrC7Dd1OB29SGlijxWUb+YQuuj019ufLaB8c4ciddWA41ww/1g4 -aH1d13fGB+ZfS4cFOxcVRsXDwsPKYcu14/tvVsDCy9qhMUAtyyfaAMq3cYi2 -fLhj4w9YeNs6LHmxTIK1UQPKt3NwjF3EFuehAuXbO3zeN9Vu/gRY/Do4vG/e -yLPwjNoBAM/kjAI= - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7K0E+bN23FA6ABVwOOEo26IcpQzlczg8YVpr -UrJYDcoXcHh3Z6XEnLWaUL6IQ8O/V1xh33SgfAmHvW3i/Gyq+lC+jMOTWUkn -HuoYQvkKDjFHnKYvtDOG8pUcvO8vlGxQNIXyVRyiuD1r4g3MoXw1h6akH+06 -9yyhfA2HxSc38+rftoHytRwqnVsf8cyxhfJ1HK5UXW5ZvskeytdzEL1i/Mbf -wRHKN3C4lvHctUkexjd0sGfN+WhR6QDlGzloSqld3eED02/sELLdVU/3KMx8 -E4f+zuWneHVh9ps65Hf0PO7rsYLyzRw4nlwQuPPZAso3d3BrzC0+wQXzj4WD -0uSUE2d8YP61dFhhvXdlVDwsPKwcGvJOXb1ZAQsva4fKGssCn2gDKN/G4VVM -/KqNP2DhbevAvPSMKGujBpRv5+CzTY4tzkMFyrd3mF2+3W7+BFj8OjhMvvWE -feEZtQMAzpGLCA== - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9n4rpLN23FA6ABVweF/1tFk5ShnK53Cw -PzLJpGSxGpQv4OB4M19yzlpNKF/EwUxpNnvYNx0oX8Lh5e2lPGyq+lC+jEO+ -7dIjD3UMoXwFh1SF5KkL7YyhfCWHqcnvtRsUTaF8FQc29f+P4w3MoXw1h1+B -bNJ69yyhfA2HY+caZ+rdtoHytRwWxbrdlZ1jC+XrOFz3q3vJuNkeytdzMLse -e0zI0RHKN3DQ3fsvy00exjd08AmvmGpf6QDlGznM3VZn9sAHpt/YwUG43yno -KMx8E4dk5pkXZHVh9ps6nI5epDSxxwrKN3MIXXT66+3PFlC+uUORumrAcS6Y -fywctL6u6zvjA/OvpcOCnYsKo+Jh4WHlsOXa8f03K2DhZe3QGKCW5RNtAOXb -OERbPtyx8QcsvG0dlrxYJsHaqAHl2zk4xi5ii/NQgfLtHT7vm2o3fwIsfh0c -3jdv5Fl4Ru0AANssjAQ= - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9laC/Fk7bigdgAo4nHCUbVGOUobyORye -MK01KVmsBuULOLy7s1JizlpNKF/EoeHfK66wbzpQvoTD3jZxfjZVfShfxuHJ -rKQTD3UMoXwFh5gjTtMX2hlD+UoO3vcXSjYomkL5Kg5R3J418QbmUL6aQ1PS -j3ade5ZQvobD4pObefVv20D5Wg6Vzq2PeObYQvk6DleqLrcs32QP5es5iF4x -fuPv4AjlGzhcy3ju2iQP4xs62LPmfLSodIDyjRw0pdSu7vCB6Td2CNnuqqd7 -FGa+iUN/5/JTvLow+00d8jt6Hvf1WEH5Zg4cTy4I3PlsAeWbO7g15haf4IL5 -x8JBaXLKiTM+MP9aOqyw3rsyKh4WHlYODXmnrt6sgIWXtUNljWWBT7QBlG/j -8ComftXGH7DwtnVgXnpGlLVRA8q3c/DZJscW56EC5ds7zC7fbjd/Aix+HRwm -33rCvvCM2gEA2dmLCg== - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-34.50838546354355, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {576., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}]}, {}}, - ContentSelectable->True, - ImageSize->Large, - PlotRangePadding->{6, 5}], TraditionalForm]], "Output", - CellChangeTimes->{{3.7276286072479*^9, 3.7276286652093353`*^9}, - 3.727629456338523*^9, 3.727629962386148*^9, 3.727630135640305*^9, - 3.7276302692534733`*^9, 3.7276304506407747`*^9, 3.727630571560718*^9, - 3.727630891638465*^9, 3.727631683267378*^9, 3.727631950793518*^9, - 3.727632001704303*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"GraphicsRow", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"ListLinePlot", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "2"}], "}"}]}], "]"}], ",", - "Evan2Pz"}], "}"}], "//", "#"}], "//", "Abs"}], "//", "Log"}], - ",", - RowBox[{"PlotStyle", "\[Rule]", - RowBox[{"{", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", "Blue"}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", - RowBox[{"Dashing", "[", "0.01", "]"}], ",", "Red"}], "}"}]}], - "}"}]}], ",", - RowBox[{"PlotMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"\"\<*\>\"", ",", "\"\<+\>\""}], "}"}]}]}], "]"}], "&"}], "/@", - RowBox[{"{", - RowBox[{"Re", ",", "Im"}], "}"}]}], ",", - RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]], "Input", - CellChangeTimes->{{3.727628673943778*^9, 3.727628675078917*^9}, { - 3.727630607608205*^9, 3.727630642729631*^9}}], - -Cell[BoxData[ - FormBox[ - GraphicsBox[{{}, {InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7DMnz6osOM5zACrgEMNsJ/zJQAzK53AQXZ0V -seSPHJQv4FBcsfzurPnKUL6Ig+9uYbezV9ShfAmHqeo9PhcDdaB8GYfPvNcy -7gcZQvkKDqGx2hz9ssZQvpLDSlG2kykTTaB8FYf9dxrsV/40g/LVHIy5siKY -DplD+RoO7S89169ebgnlazm8eqL76m6kNZSv43DK4vnFR7W2UL6eg7Nojsw9 -e3so38Bhk+LTUNliByjf0EEsi/tX8U4Y38gh9+mCeIXHMPXGDjvNn6wyWAAz -z8RBjNn4XME0Gyjf1CGY1Tlh2i2Y/WYOLVfEH//fZAHlmztcm1f7c2o7zD8W -DoUv0sxk1WH+tXR4bn6vcsViWPhYOWzZ37Du+1s9KN/aweWkTnoyvxaUb+Pw -5sjqH8e3qUL5tg4sj4y+95soQvl2DjvaxQzOcEtB+fYOAREb53XtFILyHRz2 -P1+h9XSlxAEAolWQ+A== - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7C+rH60sOM5zACrgUGdjJvzJQAzK53DYfSQh -YskfOShfwOHNhXl3Z81XhvJFHE67MrmdvaIO5Us4sKrm+VwM1IHyZRx6MyrS -7wcZQvkKDgcyS9j6ZY2hfCWHNItNx1MmmkD5Kg53pwc4r/xpBuWrOVRqzYti -OmQO5Ws4HIha8G31cksoX8sh36ms616kNZSv4yAbGH34Sa0tlK/nUHy4V++h -vT2Ub+BwZEG+qGyxA5Rv6CA2OXtFw04Y38hh56XD8QqPYeqNHd7pHX1qtABm -nonDtlLWxQXTbKB8UwfZKxVdk27B7DdzmPpv+5z/myygfHOH31mMZtPaYf6x -cLhxdWK4rDrMv5YOrke76lYshoWPlUN+e9n672/1oHxrhwtmF9OS+bWgfBuH -s5cn/zi+TRXKt3Uo3WX1vd9EEcq3c1iW5W5whlsKyrd3kJu3Y17XTiEo38Fh -S+lkracrJQ4AAB8wlB0= - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9pmTZ1UWHOc5ABVwiGG2E/5kIAblcziI -rs6KWPJHDsoXcCiuWH531nxlKF/EwXe3sNvZK+pQvoTDVPUen4uBOlC+jMNn -3msZ94MMoXwFh9BYbY5+WWMoX8lhpSjbyZSJJlC+isP+Ow32K3+aQflqDsZc -WRFMh8yhfA2H9pee61cvt4TytRxePdF9dTfSGsrXcThl8fzio1pbKF/PwVk0 -R+aevT2Ub+CwSfFpqGyxA5Rv6CCWxf2reCeMb+SQ+3RBvMJjmHpjh53mT1YZ -LICZZ+Igxmx8rmCaDZRv6hDM6pww7RbMfjOHlivij/9vsoDyzR2uzav9ObUd -5h8Lh8IXaWay6jD/Wjo8N79XuWIxLHysHLbsb1j3/a0elG/t4HJSJz2ZXwvK -t3F4c2T1j+PbVKF8WweWR0bf+00UoXw7hx3tYgZnuKWgfHuHgIiN87p2CkH5 -Dg77n6/QerpS4gAArZ2Q+g== - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9pfVj1YWHOc5ABVwqLMxE/5kIAblczjs -PpIQseSPHJQv4PDmwry7s+YrQ/kiDqddmdzOXlGH8iUcWFXzfC4G6kD5Mg69 -GRXp94MMoXwFhwOZJWz9ssZQvpJDmsWm4ykTTaB8FYe70wOcV/40g/LVHCq1 -5kUxHTKH8jUcDkQt+LZ6uSWUr+WQ71TWdS/SGsrXcZANjD78pNYWytdzKD7c -q/fQ3h7KN3A4siBfVLbYAco3dBCbnL2iYSeMb+Sw89LheIXHMPXGDu/0jj41 -WgAzz8RhWynr4oJpNlC+qYPslYquSbdg9ps5TP23fc7/TRZQvrnD7yxGs2nt -MP9YONy4OjFcVh3mX0sH16NddSsWw8LHyiG/vWz997d6UL61wwWzi2nJ/FpQ -vo3D2cuTfxzfpgrl2zqU7rL63m+iCOXbOSzLcjc4wy0F5ds7yM3bMa9rpxCU -7+CwpXSy1tOVEgcAKniUHw== - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-33.44923882725395, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {192., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}], InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7A/FKWQF2ykfgAo4ZHnXucw7oQrlczg8vF24 -d7+7BpQv4GD/ruuWgIohlC/ikHtr965l9gZQvoRDjOst3ZSpMHkZB6aaErPO -KSZQvoLD7kO+5Yl8ZlC+ksMfNwcl5ngrKF/Fwdmsc2//fksoX82B8+27pDkf -YXwNh/LeS1cfLbGG8rUcRN6LzSnIsoXydRwaFta73t9rD+XrOaw9+uDIVy5H -KN/AwT8grs3hM4xv6HB+0iXzqn4nKN/IoS8hbzX3b5i8sUMn19G0BlEHKN/E -wft1U030Mjso39ThmBTz08YKGyjfzKGtfGXSu2Uw/5g7RHbYnV0lCXO/hUP+ -tWTZ0Fkw/1s67Nsp+8KiBxY+Vg7tZirFhr5GUL61w5o4A+aoAFj42jhkcPEy -PPumD+XbOhQo7VPSnqUF5ds53NCanfXBUh3Kt3f4sbswSyEKFp8ODm13vMzm -M6odAAAdMYuo - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7CWNpbKC7ZQPQAUcYt86uc47oQrlczhob7m9 -Z7+7BpQv4DBNr/6ugIohlC/i8Di/aecyewMoX8JhMutx7ZSpMHkZh7YWFY/O -KSZQvoLD7KbVExP5zKB8JQfOL0rFjPFWUL6Kw9G9emr9+y2hfDUHOV+2nDkf -YXwNB77tr6oeLbGG8rUcGqz0r+Rn2UL5Og6vTdc23tlrD+XrOSjwlX1/xeUI -5Rs4eD3hv9ryGcY3dEg8e7zwb78TlG/kUCHutij3L0ze2CFjkeeMDlEHKN/E -wbT2RlvoMjso39Th0BnvadUVNlC+mcP9z6ua3y2D+cfcYfuiA00rJWHut3A4 -yvHSKXQWzP+WDvxbmk5Z9MDCx8qBze9UuqGvEZRv7bB+vtLvyABY+No4ZDAz -fn76TR/Kt3WIaGpR0p6lBeXbOThKZ2V9sFSH8u0dnlgJZilEweLTwUFB0cZ0 -PqPaAQD224nn - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9ofiFLKC7ZQPQAUcsrzrXOadUIXyORwe -3i7cu99dA8oXcLB/13VLQMUQyhdxyL21e9cyewMoX8IhxvWWbspUmLyMA1NN -iVnnFBMoX8Fh9yHf8kQ+MyhfyeGPm4MSc7wVlK/i4GzWubd/vyWUr+bA+fZd -0pyPML6GQ3nvpauPllhD+VoOIu/F5hRk2UL5Og4NC+td7++1h/L1HNYefXDk -K5cjlG/g4B8Q1+bwGcY3dDg/6ZJ5Vb8TlG/k0JeQt5r7N0ze2KGT62hag6gD -lG/i4P26qSZ6mR2Ub+pwTIr5aWOFDZRv5tBWvjLp3TKYf8wdIjvszq6ShLnf -wiH/WrJs6CyY/y0d9u2UfWHRAwsfK4d2M5ViQ18jKN/aYU2cAXNUACx8bRwy -uHgZnn3Th/JtHQqU9ilpz9KC8u0cbmjNzvpgqQ7l2zv82F2YpRAFi08Hh7Y7 -XmbzGdUOAAAoeYuq - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9pLGUlnBdsoHoAIOsW+dXOedUIXyORy0 -t9zes99dA8oXcJimV39XQMUQyhdxeJzftHOZvQGUL+EwmfW4dspUmLyMQ1uL -ikfnFBMoX8FhdtPqiYl8ZlC+kgPnF6VixngrKF/F4ehePbX+/ZZQvpqDnC9b -zpyPML6GA9/2V1WPllhD+VoODVb6V/KzbKF8HYfXpmsb7+y1h/L1HBT4yr6/ -4nKE8g0cvJ7wX235DOMbOiSePV74t98JyjdyqBB3W5T7FyZv7JCxyHNGh6gD -lG/iYFp7oy10mR2Ub+pw6Iz3tOoKGyjfzOH+51XN75bB/GPusH3RgaaVkjD3 -Wzgc5XjpFDoL5n9LB/4tTacsemDhY+XA5ncq3dDXCMq3dlg/X+l3ZAAsfG0c -MpgZPz/9pg/l2zpENLUoac/SgvLtHByls7I+WKpD+fYOT6wEsxSiYPHp4KCg -aGM6n1HtAAACMonp - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-37.12492201095552, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {576., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}]}, {}}, - ContentSelectable->True, - ImageSize->Large, - PlotRangePadding->{6, 5}], TraditionalForm]], "Output", - CellChangeTimes->{ - 3.727628675829605*^9, 3.727629459709133*^9, 3.727629963077262*^9, - 3.7276301375202627`*^9, 3.727630271293865*^9, 3.72763045201198*^9, { - 3.727630572222108*^9, 3.7276305747753687`*^9}, {3.727630608476368*^9, - 3.727630643825512*^9}, 3.727630894766361*^9, 3.7276316863217287`*^9, - 3.727631951370742*^9, 3.7276320021698093`*^9}] -}, Open ]] -}, Open ]], - -Cell[CellGroupData[{ - -Cell["3 steps in dir_3 (time)", "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}, - CellChangeTimes->{ - 3.725641242645789*^9, {3.725641322515449*^9, 3.725641331570396*^9}, { - 3.72564735939476*^9, 3.725647360668185*^9}, {3.7256569094672823`*^9, - 3.725656919994326*^9}, {3.727606276864317*^9, 3.727606288577183*^9}, { - 3.727629995289629*^9, 3.7276300239345284`*^9}, {3.7276301863098497`*^9, - 3.727630187124752*^9}, 3.727630371797447*^9, {3.7276304881388187`*^9, - 3.727630490907076*^9}, {3.727630697181855*^9, 3.727630701077433*^9}, { - 3.727630931196619*^9, 3.7276309314366693`*^9}, {3.7276316937456303`*^9, - 3.727631693913722*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData["PDFtags"], "Input", - CellChangeTimes->{{3.727630197638349*^9, 3.727630199135261*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{"\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>", - ",", "\<\"/\"\>"}], "}"}], TraditionalForm]], "Output", - CellChangeTimes->{3.72763019942703*^9, 3.727630816041691*^9, - 3.727631602190425*^9, 3.727631700731081*^9, 3.727631928585174*^9, - 3.7276320058426123`*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"PDFtags", "\[LeftDoubleBracket]", - RowBox[{"-", "1"}], "\[RightDoubleBracket]"}]], "Input", - CellChangeTimes->{ - 3.727630838577374*^9, {3.727631621357127*^9, 3.727631621867382*^9}, { - 3.727631703546488*^9, 3.727631722176342*^9}}], - -Cell[BoxData[ - FormBox["\<\"/\"\>", TraditionalForm]], "Output", - CellChangeTimes->{3.727630838780613*^9, 3.727631622393856*^9, - 3.72763172251232*^9, 3.7276319297572613`*^9, 3.727632005969966*^9}] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"trPrpgtrs", "=", - RowBox[{ - RowBox[{ - RowBox[{"Transpose", "[", - RowBox[{ - RowBox[{ - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", - RowBox[{"#", "<>", "\"\\""}]}], "}"}]}], "]"}], - "+", - RowBox[{"I", "*", - RowBox[{"Import", "[", - RowBox[{"\"\\"", ",", - RowBox[{"{", - RowBox[{"\"\\"", ",", - RowBox[{"#", "<>", "\"\\""}]}], "}"}]}], - "]"}]}]}], ",", - RowBox[{"{", - RowBox[{"4", ",", "3", ",", "2", ",", "1"}], "}"}]}], "]"}], "&"}], - "[", - RowBox[{"PDFtags", "\[LeftDoubleBracket]", - RowBox[{"-", "1"}], "\[RightDoubleBracket]"}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.7276272023981256`*^9, 3.727627227185638*^9}, { - 3.727627317333276*^9, 3.727627379408533*^9}, {3.7276293246878357`*^9, - 3.727629370118081*^9}, {3.72762966911945*^9, 3.727629672454177*^9}, { - 3.72762992155698*^9, 3.7276299359286823`*^9}, {3.727630049245205*^9, - 3.727630049698079*^9}, {3.727630202750626*^9, 3.727630202902109*^9}, { - 3.7276303818768272`*^9, 3.7276303826853848`*^9}, 3.7276304985201263`*^9, { - 3.727630834249823*^9, 3.727630834393629*^9}, {3.72763162694023*^9, - 3.72763162735509*^9}, {3.7276317980196533`*^9, 3.7276317991634407`*^9}}], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Evan0Pz", "=", - RowBox[{ - RowBox[{"ToExpression", "[", - RowBox[{"StringReplace", "[", - RowBox[{ - "\"\<[-1.81892404e-02 -3.99994921e-05j -3.40704220e-03 \ -+1.30087602e-05j\n -5.40526678e-04 +5.05252443e-06j -1.00485580e-04 \ -+1.42615657e-06j\n -1.80120030e-05 -1.97496148e-07j -3.01637259e-06 \ --7.03400405e-08j\n -4.94864367e-07 -1.43200516e-08j -7.98905662e-08 \ --1.91130156e-09j\n -1.27403854e-08 -2.89287837e-10j -2.08197024e-09 \ --3.46271307e-11j\n -3.22401945e-10 -1.99227734e-12j -4.78185492e-11 \ --6.14357147e-14j\n -7.20634136e-12 +8.01046855e-14j -1.03250849e-12 \ -+1.15647162e-14j\n -1.39360592e-13 +2.88179104e-15j 4.07535198e-14 \ -+5.10135888e-15j\n 3.80354929e-13 +2.17766798e-14j 2.01361619e-12 \ -+1.05177947e-13j\n 1.26821867e-11 +5.04060317e-13j 7.78998286e-11 \ -+2.49433528e-12j\n 4.75503519e-10 +1.35745570e-11j 2.93312638e-09 \ -+6.14341776e-11j\n 1.88051531e-08 +3.78252985e-10j 1.04871668e-07 \ -+1.70201779e-09j\n 6.34393175e-07 +8.09016733e-09j 4.18393321e-06 \ -+4.15538222e-08j\n 2.61892178e-05 -2.21666706e-08j 1.55780648e-04 \ --2.26512270e-06j\n 9.47004163e-04 -6.99961404e-06j 4.60670209e-03 \ -+5.34495261e-05j\n -3.31515604e-05 -9.40301922e-06j 2.78152368e-05 \ -+5.86837257e-05j]\>\"", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\"\<[\>\"", "\[Rule]", "\"\<{\>\""}], ",", - RowBox[{"\"\<]\>\"", "\[Rule]", "\"\<}\>\""}], ",", - RowBox[{"\"\\"", "\[Rule]", "\"\<*^\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<,\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}]}], "}"}]}], "]"}], - "]"}], "//.", - RowBox[{"j", "\[Rule]", "I"}]}]}], ";"}]], "Input", - CellChangeTimes->{{3.7257125507134933`*^9, 3.7257126495783997`*^9}, { - 3.72571269097847*^9, 3.725712713900034*^9}, 3.725717644541053*^9, { - 3.7257176907900667`*^9, 3.72571769944528*^9}, {3.7257179259722347`*^9, - 3.725717927380402*^9}, {3.7257179798940783`*^9, 3.725717988829979*^9}, { - 3.727627657856822*^9, 3.727627668972213*^9}, {3.727627722677865*^9, - 3.7276277228782997`*^9}, 3.727627765147663*^9, {3.727630085291217*^9, - 3.727630088434623*^9}, {3.7276302185723877`*^9, 3.7276302342658787`*^9}, - 3.727630351222513*^9, {3.72763039479381*^9, 3.727630398614231*^9}, { - 3.727630509862031*^9, 3.727630513311664*^9}, {3.727630554575699*^9, - 3.7276305612083597`*^9}, {3.727630857235998*^9, 3.727630859988212*^9}, { - 3.727631648158012*^9, 3.727631651326325*^9}, {3.727632028762391*^9, - 3.7276320321214857`*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Chop", "[", - RowBox[{ - RowBox[{ - FractionBox[ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "]"}], "Evan0Pz"], "+", - "1"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}]], "Input", - CellChangeTimes->{{3.7276277621718187`*^9, 3.727627839991593*^9}, { - 3.727627914983019*^9, 3.727627915392362*^9}, 3.7276279507901573`*^9, { - 3.7276296824253397`*^9, 3.7276296827500153`*^9}, {3.727629947734486*^9, - 3.727629948126464*^9}, 3.7276303512439938`*^9}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{ - "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", - RowBox[{"0.0000215024914271833`", "\[VeryThinSpace]", "+", - RowBox[{"0.000024241782891749192`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{ - RowBox[{"-", "0.0006725862583418785`"}], "-", - RowBox[{"0.00014817445505642401`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"-", "0.00017475466886063273`"}], ",", - RowBox[{ - RowBox[{"-", "0.00005204272741221594`"}], "+", - RowBox[{"0.000013755083293549852`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{ - RowBox[{"-", "0.000018770610355378636`"}], "+", - RowBox[{"0.000010123880238618876`", " ", "\[ImaginaryI]"}]}], ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", - "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], - TraditionalForm]], "Output", - CellChangeTimes->{{3.727627769142304*^9, 3.727627840404057*^9}, { - 3.7276279040817623`*^9, 3.72762791575653*^9}, {3.7276279516008177`*^9, - 3.727627961504963*^9}, 3.727629356251318*^9, 3.727629415190401*^9, { - 3.727629680146792*^9, 3.727629683547394*^9}, {3.727629944618627*^9, - 3.727629948839365*^9}, 3.727630095746233*^9, 3.72763024234657*^9, - 3.727630402766755*^9, {3.7276305171873283`*^9, 3.727630524833425*^9}, - 3.727630564878993*^9, 3.727630864048572*^9, 3.727631654504616*^9, { - 3.727632009534486*^9, 3.727632034286563*^9}}] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"Evan2Pz", "=", - RowBox[{ - RowBox[{"ToExpression", "[", - RowBox[{"StringReplace", "[", - RowBox[{ - "\"\<[-1.05616625e-02 +1.42086828e-05j -1.50358518e-03 \ --1.20979221e-06j\n -1.63269179e-04 -2.86671409e-06j -2.05837485e-05 \ -+1.54112555e-07j\n -2.52271047e-06 -2.54260664e-08j -2.66591718e-07 \ --7.18156904e-09j\n -8.48034463e-09 +1.00336228e-09j -1.67479734e-09 \ -+1.70307280e-10j\n -4.59240647e-10 +2.79541182e-12j -4.27919617e-11 \ --2.34755484e-12j\n -1.97817275e-11 -2.26525134e-12j -2.97869115e-12 \ --4.44845714e-13j\n -5.47176955e-13 -7.85696130e-14j -6.47797050e-14 \ --7.51424769e-15j\n -1.35781086e-14 -2.94479031e-17j -4.51647935e-15 \ --3.39069536e-16j\n 5.54996733e-15 +1.23261610e-15j 2.47004525e-14 \ -+9.15278864e-15j\n 2.43748224e-13 +7.91913579e-14j 6.83326915e-13 \ -+4.30607823e-13j\n 2.21790184e-13 +3.23610085e-12j 6.32916808e-11 \ -+1.02541759e-11j\n 4.94565600e-10 -8.54486531e-11j 4.91107330e-09 \ --8.92557957e-10j\n 5.67836964e-08 -4.95422017e-09j 5.28471231e-07 \ --5.13408157e-08j\n 5.59631778e-06 -2.88491124e-07j 4.72623635e-05 \ --7.13588652e-07j\n 4.08389140e-04 +8.31966291e-06j 2.66423172e-03 \ -+5.75002511e-05j\n 4.11350542e-04 -1.46427876e-05j 1.30923049e-03 \ --3.32091096e-06j]\>\"", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\"\<[\>\"", "\[Rule]", "\"\<{\>\""}], ",", - RowBox[{"\"\<]\>\"", "\[Rule]", "\"\<}\>\""}], ",", - RowBox[{"\"\\"", "\[Rule]", "\"\<*^\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<,\>\""}], ",", - RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}]}], "}"}]}], "]"}], - "]"}], "//.", - RowBox[{"j", "\[Rule]", "I"}]}]}], ";"}]], "Input", - CellChangeTimes->{{3.7276279827884827`*^9, 3.727628003399682*^9}, { - 3.727628381233543*^9, 3.7276283876570463`*^9}, {3.727628427089967*^9, - 3.727628432362475*^9}, {3.727630110793223*^9, 3.727630121444194*^9}, { - 3.7276302556888037`*^9, 3.727630258656848*^9}, {3.7276304373146152`*^9, - 3.72763044276289*^9}, 3.727630540024621*^9, {3.727630881900362*^9, - 3.727630885627945*^9}, {3.727631673937984*^9, 3.727631674913636*^9}, { - 3.727632049523466*^9, 3.727632052651546*^9}}], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Chop", "[", - RowBox[{ - RowBox[{ - FractionBox[ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "2"}], "}"}]}], "]"}], "Evan2Pz"], "-", - "1"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}]], "Input", - CellChangeTimes->{{3.7276280128286753`*^9, 3.7276280129870043`*^9}, - 3.727628092981536*^9, {3.727628468635049*^9, 3.727628484739403*^9}, { - 3.7276294402911377`*^9, 3.727629442964613*^9}}], - -Cell[BoxData[ - FormBox[ - RowBox[{"{", - RowBox[{ - "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0.00001845910364783876`", - ",", "0.000051725844943506516`", ",", - RowBox[{"0.00006258867080211061`", "\[VeryThinSpace]", "-", - RowBox[{"0.00003909067551612555`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{ - RowBox[{"-", "0.00017979944187851427`"}], "+", - RowBox[{"0.00015594460524459564`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.00042912973642272867`", "\[VeryThinSpace]", "-", - RowBox[{"0.00012394372848317792`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.00012265009121614767`", "\[VeryThinSpace]", "+", - RowBox[{"0.0003084905200382848`", " ", "\[ImaginaryI]"}]}], ",", - RowBox[{"0.00004303283761064591`", "\[VeryThinSpace]", "+", - RowBox[{"0.00001322156636524019`", " ", "\[ImaginaryI]"}]}], ",", "0", - ",", - RowBox[{ - RowBox[{"-", "0.00001950787592763792`"}], "-", - RowBox[{"0.000023118713930403434`", " ", "\[ImaginaryI]"}]}], ",", "0", - ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", - "0", ",", "0", ",", "0"}], "}"}], TraditionalForm]], "Output", - CellChangeTimes->{ - 3.72762801364791*^9, 3.727628093704427*^9, 3.727628389848628*^9, { - 3.727628441899981*^9, 3.7276284854201603`*^9}, {3.727629422011191*^9, - 3.727629443694212*^9}, 3.727629957013989*^9, 3.727630123573206*^9, - 3.7276302644713907`*^9, 3.7276304461342077`*^9, 3.727630541925376*^9, - 3.727630889852683*^9, 3.7276316780805407`*^9, {3.727632037964775*^9, - 3.7276320548952837`*^9}}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"GraphicsRow", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"ListLinePlot", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", - "Evan0Pz"}], "}"}], "//", "#"}], "//", "Abs"}], "//", "Log"}], - ",", - RowBox[{"PlotStyle", "\[Rule]", - RowBox[{"{", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", "Blue"}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", - RowBox[{"Dashing", "[", "0.01", "]"}], ",", "Red"}], "}"}]}], - "}"}]}], ",", - RowBox[{"PlotMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"\"\<*\>\"", ",", "\"\<+\>\""}], "}"}]}]}], "]"}], "&"}], "/@", - RowBox[{"{", - RowBox[{"Re", ",", "Im"}], "}"}]}], ",", - RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]], "Input", - CellChangeTimes->{{3.727628603540069*^9, 3.727628664031665*^9}, - 3.727630351264995*^9}], - -Cell[BoxData[ - FormBox[ - GraphicsBox[{{}, {InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7E0Kf0WLswscgAo4iFzjvOC2SwzK53DQ4+Xt -aRGXg/IFHHo3Olwwy1SC8kUcrCOZskNuqkL5Eg5f41WeO+doQvkyDpX6Zaw7 -OHWhfAWHE/Y7NbeGG0D5Sg7uPG4lG3WNoHwVh3nv5Etz/xpD+WoOKSd+vXx/ -yxTK13CYfEH3a/Vhcyhfy8Ewd9/Pz8stoXwdh6d7HHWiZlpD+XoOvcXm5tyz -bKF8AwdFLbFXC67YQfmGDpLXajq+zrCB8o0cTB7OTop4ZwXlGzvwr3nwzE4c -Zr6JQ5CtlFOvG8x+U4eP76+alZXD3Gfm4Dpn35V1S2HuN3c46xxzheWUIZRv -4aAjWmHAJwTzv6WDNeunLd1dOlC+lYN+ht3kvUc0oHxrh8/2je/XScLC18bB -n+2I754ORSjf1oFR1P+8z01pKN/OYc/RzflxraJQvr0DN+ecw78XqED5Dg4b -mluWX/+lcgAAYZSK8Q== - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7AVbGWPE2QUOQAUcZB/xXXDbJQblczgU32Xr -aRGXg/IFHMSLMi6YZSpB+SIOC+KMs0NuqkL5Eg62imefO+doQvkyDv4v9Nl2 -cOpC+QoOvOFFmlvDDaB8JQcVnfzijbpGUL6Kg5NXSUHuX2MoX83h9dv8q+9v -mUL5Gg4mP24erz5sDuVrOXy7frP983JLKF/HQX6jMmvUTGsoX88h6hnPMc5Z -tlC+gUNsTuHh01fsoHxDhy/cRxgYZ9pA+UYO8zuPXo9+ZwXlGzscsevWcBCH -mW/icMejrqfXDWa/qcO2n9u1ysph7jNz4GrW2bxuKcz95g7qcrv3sZwyhPIt -HF4vea/GJwTzv6XD8RbZdd1dOlC+lcOKiOkT9x7RgPKtHdbxKb5fJwkLXxsH -/6zdvns6FKF8W4fjLwPP+9yUhvLtHG6cOZEf1yoK5ds77P6deuj3AhUo38FB -RvvSiuu/VA4AAGdMjjQ= - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9iaFv6LF2QUOQAUcRK5xXnDbJQblczjo -8fL2tIjLQfkCDr0bHS6YZSpB+SIO1pFM2SE3VaF8CYev8SrPnXM0oXwZh0r9 -MtYdnLpQvoLDCfudmlvDDaB8JQd3HreSjbpGUL6Kw7x38qW5f42hfDWHlBO/ -Xr6/ZQrlazhMvqD7tfqwOZSv5WCYu+/n5+WWUL6Ow9M9jjpRM62hfD2H3mJz -c+5ZtlC+gYOiltirBVfsoHxDB8lrNR1fZ9hA+UYOJg9nJ0W8s4LyjR341zx4 -ZicOM9/EIchWyqnXDWa/qcPH91fNysph7jNzcJ2z78q6pTD3mzucdY65wnLK -EMq3cNARrTDgE4L539LBmvXTlu4uHSjfykE/w27y3iMaUL61w2f7xvfrJGHh -a+Pgz3bEd0+HIpRv68Ao6n/e56Y0lG/nsOfo5vy4VlEo396Bm3PO4d8LVKB8 -B4cNzS3Lr/9SOQAAbNyK8w== - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9oKtjDHi7AIHoAIOso/4LrjtEoPyORyK -77L1tIjLQfkCDuJFGRfMMpWgfBGHBXHG2SE3VaF8CQdbxbPPnXM0oXwZB/8X -+mw7OHWhfAUH3vAiza3hBlC+koOKTn7xRl0jKF/FwcmrpCD3rzGUr+bw+m3+ -1fe3TKF8DQeTHzePVx82h/K1HL5dv9n+ebkllK/jIL9RmTVqpjWUr+cQ9Yzn -GOcsWyjfwCE2p/Dw6St2UL6hwxfuIwyMM22gfCOH+Z1Hr0e/s4LyjR2O2HVr -OIjDzDdxuONR19PrBrPf1GHbz+1aZeUw95k5cDXrbF63FOZ+cwd1ud37WE4Z -QvkWDq+XvFfjE4L539LheIvsuu4uHSjfymFFxPSJe49oQPnWDuv4FN+vk4SF -r42Df9Zu3z0dilC+rcPxl4HnfW5KQ/l2DjfOnMiPaxWF8u0ddv9OPfR7gQqU -7+Ago31pxfVfKgcAcpSONg== - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-30.831234183493837`, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {192., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}], InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7CNXtJZfd1A5ABVweJiwxP5jvRqUz+FwQWHr -Io0UDShfwOHURSfnU6+1oHwRB7f4j8JsD/SgfAmHyWslv/hUGED5Mg7xZw75 -HuU3gvIVHAqEr28KEjaB8pUczk4/WrnumymUr+JwRsronKyYBZSv5lC3U+eE -xEcrKF/D4UIFu/7xbDsoX8tB+1hrzQV1GF/H4UHppLPruR2gfD2HZaZTnoTt -hfENHBwulWirlcD4hg79u+dnmZbaQ/lGDmuz0vSUHtlC+cYOT29Lyf4KsIHy -TRwu8q8unbId5h5ThzT1+J4brJZQvpnDZ4PDBeHN5lC+ucMui5bXHJtg/rNw -aI0+co7JEOZ/SweVXWnPPi2EhY+VwxJdicvc/2HhZ+0g0sBv+nq+IZRv48DQ -fCnk1T9NKN/WoVJsYo3zXnUo387BqvF7Ve4aZSjf3iGxxtpGSQ0m7+Cwz7VQ -bkaN8gEAs/eNOw== - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7HWOXSq57qByACrgcKEuzPljvRqUz+HQ6rJo -sUaKBpQv4NDbdNPh1GstKF/EQU34iQLbAz0oX8Lhhrr4b58KAyhfxsH27MzI -o/xGUL6CQ9/jov1BwiZQvpJD5Zl12eu+mUL5Kg7JXjNtZMUsoHw1h/o50bxi -H62gfA2HR4rHJ+7ItoPytRys3p3mOa0O4+s4PHw86eV8bgcoX8/BXnfjlJq9 -ML6Bw8QTbz8klcD4hg5rGcvCrUvtoXwjh/JL/KEij2yhfGMHxjrpZa8CbKB8 -E4dzlmU2vdth7jF1CGS3OXmd1RLKN3M4y6PeH95sDuWbO2guetfGuQnmPwsH -Z8ldX5gMYf63dDiwNlbt80JY+Fg5ePzT+c79HxZ+1g5JJwyOvJpvCOXbOFgc -sA1/9U8Tyrd1qDR7X+u8Vx3Kt3OQXTGpOneNMpRv7/DR642JkhpM3sHh9Kej -8jNqlA8AAPGmjnQ= - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9pErWsuvO6gcgAo4PExYYv+xXg3K53C4 -oLB1kUaKBpQv4HDqopPzqddaUL6Ig1v8R2G2B3pQvoTD5LWSX3wqDKB8GYf4 -M4d8j/IbQfkKDgXC1zcFCZtA+UoOZ6cfrVz3zRTKV3E4I2V0TlbMAspXc6jb -qXNC4qMVlK/hcKGCXf94th2Ur+Wgfay15oI6jK/j8KB00tn13A5Qvp7DMtMp -T8L2wvgGDg6XSrTVSmB8Q4f+3fOzTEvtoXwjh7VZaXpKj2yhfGOHp7elZH8F -2ED5Jg4X+VeXTtkOc4+pQ5p6fM8NVkso38zhs8HhgvBmcyjf3GGXRctrjk0w -/1k4tEYfOcdkCPO/pYPKrrRnnxbCwsfKYYmuxGXu/7Dws3YQaeA3fT3fEMq3 -cWBovhTy6p8mlG/rUCk2scZ5rzqUb+dg1fi9KneNMpRv75BYY22jpAaTd3DY -51ooN6NG+QAAvz+NPQ== - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9jrHLpVcd1A5ABVwuFAX5vyxXg3K53Bo -dVm0WCNFA8oXcOhtuulw6rUWlC/ioCb8RIHtgR6UL+FwQ138t0+FAZQv42B7 -dmbkUX4jKF/Boe9x0f4gYRMoX8mh8sy67HXfTKF8FYdkr5k2smIWUL6aQ/2c -aF6xj1ZQvobDI8XjE3dk20H5Wg5W707znFaH8XUcHj6e9HI+twOUr+dgr7tx -Ss1eGN/AYeKJtx+SSmB8Q4e1jGXh1qX2UL6RQ/kl/lCRR7ZQvrEDY530slcB -NlC+icM5yzKb3u0w95g6BLLbnLzOagnlmzmc5VHvD282h/LNHTQXvWvj3ATz -n4WDs+SuL0yGMP9bOhxYG6v2eSEsfKwcPP7pfOf+Dws/a4ekEwZHXs03hPJt -HCwO2Ia/+qcJ5ds6VJq9r3Xeqw7l2znIrphUnbtGGcq3d/jo9cZESQ0m7+Bw -+tNR+Rk1ygcA/O6Odg== - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-33.4803644051667, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {576., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}]}, {}}, - ContentSelectable->True, - ImageSize->Large, - PlotRangePadding->{6, 5}], TraditionalForm]], "Output", - CellChangeTimes->{{3.7276286072479*^9, 3.7276286652093353`*^9}, - 3.727629456338523*^9, 3.727629962386148*^9, 3.727630135640305*^9, - 3.7276302692534733`*^9, 3.7276304506407747`*^9, 3.727630571560718*^9, - 3.727630891638465*^9, 3.727631683267378*^9, 3.727632056378543*^9}] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"GraphicsRow", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"ListLinePlot", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"MmntmPrjctd", "[", - RowBox[{"trPrpgtrs", ",", - RowBox[{"{", - RowBox[{"0", ",", "0", ",", "2"}], "}"}]}], "]"}], ",", - "Evan2Pz"}], "}"}], "//", "#"}], "//", "Abs"}], "//", "Log"}], - ",", - RowBox[{"PlotStyle", "\[Rule]", - RowBox[{"{", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", "Blue"}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{"Opacity", "[", "0.7", "]"}], ",", - RowBox[{"Dashing", "[", "0.01", "]"}], ",", "Red"}], "}"}]}], - "}"}]}], ",", - RowBox[{"PlotMarkers", "\[Rule]", - RowBox[{"{", - RowBox[{"\"\<*\>\"", ",", "\"\<+\>\""}], "}"}]}]}], "]"}], "&"}], "/@", - RowBox[{"{", - RowBox[{"Re", ",", "Im"}], "}"}]}], ",", - RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]], "Input", - CellChangeTimes->{{3.727628673943778*^9, 3.727628675078917*^9}, { - 3.727630607608205*^9, 3.727630642729631*^9}}], - -Cell[BoxData[ - FormBox[ - GraphicsBox[{{}, {InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7PdPlt2+x1joAFTAwe4XX8+z/5JQPofDhm9L -fTYVKEL5Ag6TUjaK/5+iCuWLOHzTErA5elwTypdw8Cr6MT/HTQ/Kl3Fwq9vr -/2SqEZSv4LDaqWiisqkJlK/kkLnS6HxcgymUr+LwgFEy4tV9cyhfzSE0riWy -cKkFlK/hULOmp1iuywrK13J49WVG0TNrGyhfx+Hx/NLVynF2UL6eg846M33V -d/ZQvoFD7SGf5v/NDlC+oYP9o0aFrkwY38ihUo2l6FcITL2xw7zNel+ec9lC -+SYOZ5LM5rIyw+wzdXiT4tPOoAyTN3NwOy83ZXs1zP3mDoJKn8TScmH+s3BI -UWM+u1vRGMq3dFjxOXeT9HoDKN/KYWtq7W/hFzpQvrVDwMZHkZf0NaB8G4dd -kySys14rQ/m2DiFvpqyeaCYP5ds5/JzGPkl6mziUb+9waPHZOdr6MHkHB+Ur -2YsX9UodAABEH44E - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7FcmKmzfYyx0ACrg8K/9Rfez/5JQPofDJ7bJ -PpsKFKF8AYfph9aK/5+iCuWLOGzue2F99LgmlC/hkPlaYEGOmx6UL+PQlZfi -/WSqEZSv4LDFz6dH2dQEyldyWLh64oW4BlMoX8Vhyu/Fua/um0P5ag4T5G6W -FC61gPI1HGb235aS77KC8rUcJioJbnpubQPl6zgs6DKSUI+zg/L1HJatXOWl -+c4eyjdwaFyy2uZnswOUb+ggHRopNjMTxjdyOFb/8u+vEJh6Y4dr14XqXnHZ -QvkmDkGve1pZmWH2mTqUTqyIElWGyZs5hO7rStteDXO/ucOMhZ22abkw/1k4 -dJW0Pd2taAzlWzqYn+PcJr3eAMq3cjC8/Oe38AsdKN/aoSmqNfKSvgaUb+PA -y/wiK+u1MpRv68DcDgxBM3ko387BV49nkvQ2cSjf3iF5z8052voweQeHRes8 -Fi/qlToAAHG6j5k= - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9vsny27fYyx0ACrgYPeLr+fZf0kon8Nh -w7elPpsKFKF8AYdJKRvF/09RhfJFHL5pCdgcPa4J5Us4eBX9mJ/jpgflyzi4 -1e31fzLVCMpXcFjtVDRR2dQEyldyyFxpdD6uwRTKV3F4wCgZ8eq+OZSv5hAa -1xJZuNQCytdwqFnTUyzXZQXlazm8+jKj6Jm1DZSv4/B4fulq5Tg7KF/PQWed -mb7qO3so38Ch9pBP8/9mByjf0MH+UaNCVyaMb+RQqcZS9CsEpt7YYd5mvS/P -uWyhfBOHM0lmc1mZYfaZOrxJ8WlnUIbJmzm4nZebsr0a5n5zB0GlT2JpuTD/ -WTikqDGf3a1oDOVbOqz4nLtJer0BlG/lsDW19rfwCx0o39ohYOOjyEv6GlC+ -jcOuSRLZWa+VoXxbh5A3U1ZPNJOH8u0cfk5jnyS9TRzKt3c4tPjsHG19mLyD -g/KV7MWLeqUOAABPZ44G - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9isTFbbvMRY6ABVw+Nf+ovvZf0kon8Ph -E9tkn00FilC+gMP0Q2vF/09RhfJFHDb3vbA+elwTypdwyHwtsCDHTQ/Kl3Ho -ykvxfjLVCMpXcNji59OjbGoC5Ss5LFw98UJcgymUr+Iw5ffi3Ff3zaF8NYcJ -cjdLCpdaQPkaDjP7b0vJd1lB+VoOE5UENz23toHydRwWdBlJqMfZQfl6DstW -rvLSfGcP5Rs4NC5ZbfOz2QHKN3SQDo0Um5kJ4xs5HKt/+fdXCEy9scO160J1 -r7hsoXwTh6DXPa2szDD7TB1KJ1ZEiSrD5M0cQvd1pW2vhrnf3GHGwk7btFyY -/ywcukranu5WNIbyLR3Mz3Fuk15vAOVbORhe/vNb+IUOlG/t0BTVGnlJXwPK -t3HgZX6RlfVaGcq3dWBuB4agmTyUb+fgq8czSXqbOJRv75C85+YcbX2YvIPD -onUeixf1Sh0AAH0Cj5s= - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-33.031235134582836`, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {192., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}], InsetBox[ - GraphicsBox[{{}, {{{}, {}, - {RGBColor[0, 0, 1], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7CPiJu05EqR2ACrgsP8Igx6HgzaUz+HQbq3/ -I7BNE8oXcDihMHcDS7w+lC/icHmqv8GZGkMoX8Lh5e6X/UUHjKB8GYcdE1XZ -fHaYQPkKDjeTdmwLqDOD8pUcany2MqbPsoLyVRwqFJo8RY7D+GoOXFeWS5hf -gPE1HNR1AopeFthA+VoORUJuR/fr2EH5Og4X71psOu/kAOXrOXzd0SbWwOUM -5Rs4nN3wda/GeUco39Dhwn3BU6ZaML6RQ0TZJMFCTZh+Y4fTrdHCW7Vg5ps4 -yMR05NhWwuw3ddhmG9D2ogTmPjOHXVf1jJf7WkL55g6d345EPNAzh/ItHCpe -J7E4XoOFh6VDp/eqHXXyxlC+lUNKtGP08xMGUL61A+eXT3yMcnpQvo3Dyp/n -1gT46UD5tg5XBWfPOZeiDuXbOdguKahga1eG8u0dzM5O0otxVoPyHRxatG4+ -ZLHWPAAAaayKBg== - "]]}, - {RGBColor[1, 0, 0], PointSize[0.016666666666666666`], - AbsoluteThickness[1.6], Opacity[0.7], Dashing[0.01], - LineBox[CompressedData[" -1:eJxTTMoPSmViYGBQAGIQDQEf7Ftep+4/EqR2ACrgUHI0Xo7DQRvK53BYf8z9 -e2CbJpQv4HCIa+J6lnh9KF/EQe8ps+mZGkMoX8JBddPW3qIDRlC+jIO5pcQP -7x0mUL6CQwH3q/6AOjMoX8nBz7H+Q8IsKyhfxUHn2447wsdhfDWHnAXz95td -gPE1HOwDEqa8KLCB8rUc0m/PV9ivYwfl6zjMmL9T/IKTA5Sv57C83UNbj8MZ -yjdwaC7uv5123hHKN3TYoZQ8wVALxjdykP/kGjVBE6bf2CGNhX3CLi2Y+SYO -lxp0i20qYfabOlyJLFB5XgJzn5mDaItw/nJfSyjf3OEMkPVAzxzKt3Aw+XaK -1fEaLDwsHaTTby6qkzeG8q0cgkuPBj8/YQDlWztohC9iYZTTg/JtHN5cWLMy -wE8Hyrd1uMffNOdcijqUb+ewaFdrBVu7MpRv78A5yUEvxlkNyndw2JHgfJvF -WvMAAHm7hvM= - "]]}}, { - {RGBColor[0, 0, 1], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], GeometricTransformationBox[ - TagBox[InsetBox["*", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9hFxk/YcCVI7ABVw2H+EQY/DQRvK53Bo -t9b/EdimCeULOJxQmLuBJV4fyhdxuDzV3+BMjSGUL+HwcvfL/qIDRlC+jMOO -iapsPjtMoHwFh5tJO7YF1JlB+UoONT5bGdNnWUH5Kg4VCk2eIsdhfDUHrivL -JcwvwPgaDuo6AUUvC2ygfC2HIiG3o/t17KB8HYeLdy02nXdygPL1HL7uaBNr -4HKG8g0czm74ulfjvCOUb+hw4b7gKVMtGN/IIaJskmChJky/scPp1mjhrVow -800cZGI6cmwrYfabOmyzDWh7UQJzn5nDrqt6xst9LaF8c4fOb0ciHuiZQ/kW -DhWvk1gcr8HCw9Kh03vVjjp5YyjfyiEl2jH6+QkDKN/agfPLJz5GOT0o38Zh -5c9zawL8dKB8W4ergrPnnEtRh/LtHGyXFFSwtStD+fYOZmcn6cU4q0H5Dg4t -WjcfslhrHgAAdPSKCA== - "]]}, - {RGBColor[1, 0, 0], AbsolutePointSize[6], AbsoluteThickness[1.6], - Opacity[0.7], Dashing[0.01], GeometricTransformationBox[ - TagBox[InsetBox["+", {0., 0.}], - "InsetString"], CompressedData[" -1:eJxTTMoPSmVmYGBQAGJGIGZigIEP9i2vU/cfCVI7ABVwKDkaL8fhoA3lczis -P+b+PbBNE8oXcDjENXE9S7w+lC/ioPeU2fRMjSGUL+Ggumlrb9EBIyhfxsHc -UuKH9w4TKF/BoYD7VX9AnRmUr+Tg51j/IWGWFZSv4qDzbccd4eMwvppDzoL5 -+80uwPgaDvYBCVNeFNhA+VoO6bfnK+zXsYPydRxmzN8pfsHJAcrXc1je7qGt -x+EM5Rs4NBf330477wjlGzrsUEqeYKgF4xs5yH9yjZqgCdNv7JDGwj5hlxbM -fBOHSw26xTaVMPtNHa5EFqg8L4G5z8xBtEU4f7mvJZRv7nAGyHqgZw7lWziY -fDvF6ngNFh6WDtLpNxfVyRtD+VYOwaVHg5+fMIDyrR00whexMMrpQfk2Dm8u -rFkZ4KcD5ds63ONvmnMuRR3Kt3NYtKu1gq1dGcq3d+Cc5KAX46wG5Ts47Ehw -vs1irXkAAIUDhvU= - "]]}, {}}}, {}, {}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ - Part[#, 1]], - (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{0., 32.}, {-38.08203393533942, 0}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.02]}}, - Ticks->{Automatic, Automatic}], {576., -116.80842387373012}, - ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}]}, {}}, - ContentSelectable->True, - ImageSize->Large, - PlotRangePadding->{6, 5}], TraditionalForm]], "Output", - CellChangeTimes->{ - 3.727628675829605*^9, 3.727629459709133*^9, 3.727629963077262*^9, - 3.7276301375202627`*^9, 3.727630271293865*^9, 3.72763045201198*^9, { - 3.727630572222108*^9, 3.7276305747753687`*^9}, {3.727630608476368*^9, - 3.727630643825512*^9}, 3.727630894766361*^9, 3.7276316863217287`*^9, - 3.727632059481246*^9}] -}, Open ]] -}, Closed]] -}, Open ]] -}, -WindowSize->{1276, 756}, -WindowMargins->{{-96, Automatic}, {-101, Automatic}}, -Magnification:>1.25 Inherited, -FrontEndVersion->"11.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \ -21, 2016)", -StyleDefinitions->"Default.nb" -] -(* End of Notebook Content *) - -(* Internal cache information *) -(*CellTagsOutline -CellTagsIndex->{} -*) -(*CellTagsIndex -CellTagsIndex->{} -*) -(*NotebookFileOutline -Notebook[{ -Cell[558, 20, 96, 1, 39, "Input"], -Cell[CellGroupData[{ -Cell[679, 25, 170, 3, 39, "Input"], -Cell[852, 30, 868, 14, 35, "Output"] -}, Open ]], -Cell[1735, 47, 200, 4, 39, "Input"], -Cell[CellGroupData[{ -Cell[1960, 55, 254, 6, 39, "Input"], -Cell[2217, 63, 195, 5, 35, "Output"] -}, Open ]], -Cell[2427, 71, 1972, 56, 87, "Input"], -Cell[CellGroupData[{ -Cell[4424, 131, 2837, 85, 305, "Subtitle", - CellGroupingRules->{"TitleGrouping", Inherited}], -Cell[CellGroupData[{ -Cell[7286, 220, 201, 3, 80, "Section", - CellGroupingRules->{"SectionGrouping", Inherited}], -Cell[CellGroupData[{ -Cell[7512, 227, 205, 3, 160, "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}], -Cell[7720, 232, 431, 10, 116, "Input"], -Cell[8154, 244, 436, 10, 116, "Input"], -Cell[8593, 256, 213, 5, 116, "Input"], -Cell[8809, 263, 491, 14, 116, "Input"] -}, Open ]], -Cell[CellGroupData[{ -Cell[9337, 282, 258, 4, 160, "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}], -Cell[9598, 288, 487, 11, 116, "Input"], -Cell[10088, 301, 513, 11, 116, "Input"], -Cell[10604, 314, 269, 6, 116, "Input"], -Cell[10876, 322, 563, 15, 116, "Input"] -}, Open ]], -Cell[CellGroupData[{ -Cell[11476, 342, 203, 3, 160, "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}], -Cell[11682, 347, 351, 9, 116, "Input"], -Cell[12036, 358, 349, 9, 116, "Input"], -Cell[12388, 369, 544, 15, 116, "Input"] -}, Open ]], -Cell[CellGroupData[{ -Cell[12969, 389, 213, 3, 160, "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}], -Cell[13185, 394, 622, 13, 116, "Input"], -Cell[13810, 409, 442, 10, 116, "Input"], -Cell[14255, 421, 398, 8, 116, "Input"], -Cell[14656, 431, 646, 17, 116, "Input"] -}, Open ]], -Cell[CellGroupData[{ -Cell[15339, 453, 219, 3, 160, "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}], -Cell[15561, 458, 551, 12, 116, "Input"], -Cell[16115, 472, 560, 12, 116, "Input"], -Cell[16678, 486, 358, 7, 116, "Input"], -Cell[17039, 495, 603, 16, 116, "Input"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[17691, 517, 143, 2, 62, "Section", - CellGroupingRules->{"SectionGrouping", Inherited}], -Cell[17837, 521, 518, 11, 116, "Input"], -Cell[18358, 534, 424, 10, 116, "Input"], -Cell[18785, 546, 650, 17, 116, "Input"], -Cell[CellGroupData[{ -Cell[19460, 567, 265, 6, 116, "Input"], -Cell[19728, 575, 340, 7, 116, "Output"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[20117, 588, 153, 2, 62, "Section", - CellGroupingRules->{"SectionGrouping", Inherited}], -Cell[CellGroupData[{ -Cell[20295, 594, 204, 3, 160, "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}], -Cell[20502, 599, 523, 11, 116, "Input"], -Cell[21028, 612, 522, 11, 116, "Input"], -Cell[21553, 625, 334, 7, 116, "Input"], -Cell[21890, 634, 622, 16, 197, "Input"] -}, Open ]], -Cell[CellGroupData[{ -Cell[22549, 655, 200, 3, 160, "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}], -Cell[22752, 660, 371, 9, 116, "Input"], -Cell[23126, 671, 367, 9, 116, "Input"], -Cell[23496, 682, 616, 16, 116, "Input"] -}, Open ]], -Cell[CellGroupData[{ -Cell[24149, 703, 215, 3, 160, "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}], -Cell[24367, 708, 708, 14, 116, "Input"], -Cell[25078, 724, 492, 11, 116, "Input"], -Cell[25573, 737, 548, 10, 116, "Input"], -Cell[26124, 749, 706, 17, 116, "Input"] -}, Open ]], -Cell[CellGroupData[{ -Cell[26867, 771, 244, 3, 160, "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}], -Cell[27114, 776, 618, 12, 116, "Input"], -Cell[27735, 790, 615, 12, 116, "Input"], -Cell[28353, 804, 428, 8, 116, "Input"], -Cell[28784, 814, 719, 17, 197, "Input"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[29552, 837, 90, 1, 62, "Section"], -Cell[CellGroupData[{ -Cell[29667, 842, 253, 4, 54, "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}], -Cell[CellGroupData[{ -Cell[29945, 850, 128, 2, 116, "Input"], -Cell[30076, 854, 191, 5, 102, "Output"] -}, Open ]], -Cell[30282, 862, 143, 3, 116, "Input"] -}, Closed]], -Cell[CellGroupData[{ -Cell[30462, 870, 352, 5, 43, "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}], -Cell[CellGroupData[{ -Cell[30839, 879, 251, 5, 39, "Input"], -Cell[31093, 886, 30646, 641, 367, "Output"] -}, Closed]], -Cell[CellGroupData[{ -Cell[61776, 1532, 371, 6, 31, "Input"], -Cell[62150, 1540, 30743, 642, 367, "Output"] -}, Closed]] -}, Open ]], -Cell[CellGroupData[{ -Cell[92942, 2188, 802, 22, 55, "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}], -Cell[93747, 2212, 292, 9, 307, "Input"], -Cell[94042, 2223, 909, 22, 116, "Input"], -Cell[CellGroupData[{ -Cell[94976, 2249, 530, 10, 116, "Input"], -Cell[95509, 2261, 1981, 40, 246, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[97527, 2306, 312, 6, 116, "Input"], -Cell[97842, 2314, 1833, 38, 246, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[99712, 2357, 331, 7, 116, "Input"], -Cell[100046, 2366, 1800, 43, 246, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[101883, 2414, 311, 6, 116, "Input"], -Cell[102197, 2422, 1801, 43, 246, "Output"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[104047, 2471, 782, 21, 43, "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}], -Cell[CellGroupData[{ -Cell[104854, 2496, 340, 7, 116, "Input"], -Cell[105197, 2505, 1803, 39, 246, "Output"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[107049, 2550, 205, 3, 43, "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}], -Cell[CellGroupData[{ -Cell[107279, 2557, 629, 14, 48, "Input"], -Cell[107911, 2573, 1942, 45, 105, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[109890, 2623, 253, 4, 48, "Input"], -Cell[110146, 2629, 1902, 45, 105, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[112085, 2679, 577, 13, 48, "Input"], -Cell[112665, 2694, 1877, 41, 102, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[114579, 2740, 185, 3, 116, "Input"], -Cell[114767, 2745, 1825, 39, 246, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[116629, 2789, 744, 19, 596, "Input"], -Cell[117376, 2810, 1676, 37, 266, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[119089, 2852, 359, 7, 116, "Input"], -Cell[119451, 2861, 1986, 49, 283, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[121474, 2915, 281, 6, 116, "Input"], -Cell[121758, 2923, 1627, 37, 246, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[123422, 2965, 359, 7, 116, "Input"], -Cell[123784, 2974, 2158, 52, 266, "Output"] -}, Open ]], -Cell[125957, 3029, 242, 5, 116, "Input"], -Cell[CellGroupData[{ -Cell[126224, 3038, 627, 14, 116, "Input"], -Cell[126854, 3054, 1851, 40, 246, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[128742, 3099, 251, 4, 116, "Input"], -Cell[128996, 3105, 1800, 39, 246, "Output"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[130845, 3150, 318, 5, 43, "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}], -Cell[CellGroupData[{ -Cell[131188, 3159, 675, 15, 48, "Input"], -Cell[131866, 3176, 1855, 42, 110, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[133758, 3223, 296, 5, 48, "Input"], -Cell[134057, 3230, 1802, 40, 110, "Output"] -}, Open ]], -Cell[135874, 3273, 116, 2, 48, "Input"], -Cell[135993, 3277, 118, 2, 48, "Input"], -Cell[136114, 3281, 943, 19, 82, "Input"], -Cell[137060, 3302, 2110, 53, 356, "Input"], -Cell[139173, 3357, 2401, 41, 1308, "Input"], -Cell[141577, 3400, 1208, 22, 116, "Input"], -Cell[142788, 3424, 1397, 26, 116, "Input"], -Cell[144188, 3452, 1251, 22, 116, "Input"], -Cell[145442, 3476, 1442, 27, 116, "Input"], -Cell[146887, 3505, 1334, 24, 116, "Input"], -Cell[148224, 3531, 1628, 31, 116, "Input"], -Cell[149855, 3564, 1384, 25, 116, "Input"], -Cell[151242, 3591, 1603, 31, 116, "Input"], -Cell[152848, 3624, 88, 1, 110, "Item"], -Cell[CellGroupData[{ -Cell[152961, 3629, 1546, 40, 277, "Input"], -Cell[154510, 3671, 95520, 1853, 2207, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[250067, 5529, 1575, 42, 356, "Input"], -Cell[251645, 5573, 99768, 1925, 2207, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[351450, 7503, 1823, 45, 356, "Input"], -Cell[353276, 7550, 101834, 1959, 2221, "Output"], -Cell[455113, 9511, 8187, 207, 346, "Output"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[463349, 9724, 348, 5, 43, "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}], -Cell[CellGroupData[{ -Cell[463722, 9733, 246, 4, 39, "Input"], -Cell[463971, 9739, 1019, 16, 57, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[465027, 9760, 146, 2, 39, "Input"], -Cell[465176, 9764, 397, 7, 35, "Output"] -}, Open ]], -Cell[465588, 9774, 488, 14, 39, "Input"], -Cell[466079, 9790, 505, 14, 39, "Input"], -Cell[466587, 9806, 471, 13, 39, "Input"], -Cell[CellGroupData[{ -Cell[467083, 9823, 37, 0, 39, "Input"], -Cell[467123, 9825, 32942, 742, 370, "Output"] -}, Open ]], -Cell[500080, 10570, 220, 5, 39, "Input"], -Cell[500303, 10577, 657, 17, 66, "Input"], -Cell[500963, 10596, 720, 17, 66, "Input"], -Cell[501686, 10615, 547, 15, 39, "Input"], -Cell[502236, 10632, 557, 15, 39, "Input"], -Cell[CellGroupData[{ -Cell[502818, 10651, 582, 14, 43, "Input"], -Cell[503403, 10667, 683, 19, 80, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[504123, 10691, 603, 14, 43, "Input"], -Cell[504729, 10707, 777, 22, 80, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[505543, 10734, 754, 16, 43, "Input"], -Cell[506300, 10752, 945, 24, 80, "Output"] -}, Open ]] -}, Closed]] -}, Open ]] -}, Open ]], -Cell[CellGroupData[{ -Cell[507318, 10784, 1326, 33, 79, "Subtitle", - CellGroupingRules->{"TitleGrouping", Inherited}], -Cell[CellGroupData[{ -Cell[508669, 10821, 497, 12, 39, "Input"], -Cell[509169, 10835, 929, 20, 99, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[510135, 10860, 379, 6, 54, "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}], -Cell[CellGroupData[{ -Cell[510539, 10870, 497, 12, 39, "Input"], -Cell[511039, 10884, 608, 13, 78, "Output"] -}, Open ]], -Cell[511662, 10900, 1153, 29, 92, "Input"], -Cell[CellGroupData[{ -Cell[512840, 10933, 233, 5, 39, "Input"], -Cell[513076, 10940, 481, 9, 35, "Output"] -}, Open ]], -Cell[513572, 10952, 2202, 38, 456, "Input"], -Cell[CellGroupData[{ -Cell[515799, 10994, 595, 15, 60, "Input"], -Cell[516397, 11011, 1378, 26, 57, "Output"] -}, Open ]], -Cell[517790, 11040, 1929, 35, 456, "Input"], -Cell[CellGroupData[{ -Cell[519744, 11079, 521, 14, 60, "Input"], -Cell[520268, 11095, 1746, 32, 78, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[522051, 11132, 1265, 36, 118, "Input"], -Cell[523319, 11170, 8861, 175, 254, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[532217, 11350, 1237, 35, 118, "Input"], -Cell[533457, 11387, 8840, 175, 254, "Output"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[542346, 11568, 381, 6, 43, "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}], -Cell[542730, 11576, 1186, 30, 92, "Input"], -Cell[543919, 11608, 2247, 39, 456, "Input"], -Cell[CellGroupData[{ -Cell[546191, 11651, 597, 15, 60, "Input"], -Cell[546791, 11668, 1378, 25, 57, "Output"] -}, Open ]], -Cell[548184, 11696, 1973, 35, 456, "Input"], -Cell[CellGroupData[{ -Cell[550182, 11735, 521, 14, 60, "Input"], -Cell[550706, 11751, 1664, 30, 78, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[552407, 11786, 1263, 36, 118, "Input"], -Cell[553673, 11824, 8883, 175, 254, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[562593, 12004, 1237, 35, 118, "Input"], -Cell[563833, 12041, 8872, 175, 254, "Output"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[572754, 12222, 432, 7, 43, "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}], -Cell[CellGroupData[{ -Cell[573211, 12233, 99, 1, 39, "Input"], -Cell[573313, 12236, 583, 13, 78, "Output"] -}, Open ]], -Cell[573911, 12252, 1232, 30, 92, "Input"], -Cell[575146, 12284, 2301, 40, 456, "Input"], -Cell[CellGroupData[{ -Cell[577472, 12328, 597, 15, 60, "Input"], -Cell[578072, 12345, 1313, 23, 57, "Output"] -}, Open ]], -Cell[579400, 12371, 2024, 36, 456, "Input"], -Cell[CellGroupData[{ -Cell[581449, 12411, 521, 14, 60, "Input"], -Cell[581973, 12427, 1611, 30, 78, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[583621, 12462, 1263, 36, 118, "Input"], -Cell[584887, 12500, 8903, 176, 254, "Output"] -}, Closed]], -Cell[CellGroupData[{ -Cell[593827, 12681, 1237, 35, 110, "Input"], -Cell[595067, 12718, 8900, 175, 254, "Output"] -}, Closed]] -}, Closed]], -Cell[CellGroupData[{ -Cell[604016, 12899, 454, 7, 43, "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}], -Cell[CellGroupData[{ -Cell[604495, 12910, 99, 1, 39, "Input"], -Cell[604597, 12913, 583, 13, 78, "Output"] -}, Open ]], -Cell[605195, 12929, 1301, 31, 92, "Input"], -Cell[606499, 12962, 2351, 40, 456, "Input"], -Cell[CellGroupData[{ -Cell[608875, 13006, 597, 15, 60, "Input"], -Cell[609475, 13023, 1447, 26, 57, "Output"] -}, Open ]], -Cell[610937, 13052, 2079, 37, 456, "Input"], -Cell[CellGroupData[{ -Cell[613041, 13093, 521, 14, 60, "Input"], -Cell[613565, 13109, 1309, 23, 57, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[614911, 13137, 1263, 36, 118, "Input"], -Cell[616177, 13175, 8957, 176, 254, "Output"] -}, Closed]], -Cell[CellGroupData[{ -Cell[625171, 13356, 1237, 35, 110, "Input"], -Cell[626411, 13393, 8905, 176, 254, "Output"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[635365, 13575, 506, 8, 43, "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}], -Cell[CellGroupData[{ -Cell[635896, 13587, 99, 1, 39, "Input"], -Cell[635998, 13590, 881, 19, 99, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[636916, 13614, 144, 3, 39, "Input"], -Cell[637063, 13619, 175, 3, 35, "Output"] -}, Open ]], -Cell[637253, 13625, 1314, 31, 92, "Input"], -Cell[638570, 13658, 2448, 42, 456, "Input"], -Cell[CellGroupData[{ -Cell[641043, 13704, 597, 15, 60, "Input"], -Cell[641643, 13721, 1609, 30, 57, "Output"] -}, Open ]], -Cell[643267, 13754, 2105, 37, 456, "Input"], -Cell[CellGroupData[{ -Cell[645397, 13795, 521, 14, 60, "Input"], -Cell[645921, 13811, 1721, 31, 78, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[647679, 13847, 1263, 36, 118, "Input"], -Cell[648945, 13885, 8969, 176, 254, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[657951, 14066, 168, 3, 39, "Input"], -Cell[658122, 14071, 103, 2, 35, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[658262, 14078, 1286, 36, 118, "Input"], -Cell[659551, 14116, 9011, 178, 254, "Output"] -}, Open ]] -}, Open ]], -Cell[CellGroupData[{ -Cell[668611, 14300, 559, 8, 54, "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}], -Cell[CellGroupData[{ -Cell[669195, 14312, 99, 1, 39, "Input"], -Cell[669297, 14315, 928, 20, 99, "Output"] -}, Closed]], -Cell[CellGroupData[{ -Cell[670262, 14340, 144, 3, 31, "Input"], -Cell[670409, 14345, 223, 4, 35, "Output"] -}, Open ]], -Cell[670647, 14352, 1364, 32, 92, "Input"], -Cell[672014, 14386, 2494, 42, 456, "Input"], -Cell[CellGroupData[{ -Cell[674533, 14432, 597, 15, 60, "Input"], -Cell[675133, 14449, 1653, 30, 57, "Output"] -}, Open ]], -Cell[676801, 14482, 2150, 38, 456, "Input"], -Cell[CellGroupData[{ -Cell[678976, 14524, 521, 14, 60, "Input"], -Cell[679500, 14540, 1679, 30, 78, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[681216, 14575, 1263, 36, 118, "Input"], -Cell[682482, 14613, 9041, 177, 254, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[691560, 14795, 1286, 36, 118, "Input"], -Cell[692849, 14833, 9052, 178, 254, "Output"] -}, Open ]] -}, Open ]], -Cell[CellGroupData[{ -Cell[701950, 15017, 611, 9, 54, "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}], -Cell[CellGroupData[{ -Cell[702586, 15030, 99, 1, 39, "Input"], -Cell[702688, 15033, 928, 20, 99, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[703653, 15058, 258, 5, 39, "Input"], -Cell[703914, 15065, 249, 5, 35, "Output"] -}, Open ]], -Cell[704178, 15073, 1478, 33, 92, "Input"], -Cell[705659, 15108, 2544, 43, 456, "Input"], -Cell[CellGroupData[{ -Cell[708228, 15155, 597, 15, 60, "Input"], -Cell[708828, 15172, 1507, 27, 57, "Output"] -}, Open ]], -Cell[710350, 15202, 2199, 38, 456, "Input"], -Cell[CellGroupData[{ -Cell[712574, 15244, 521, 14, 60, "Input"], -Cell[713098, 15260, 1688, 30, 57, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[714823, 15295, 1263, 36, 118, "Input"], -Cell[716089, 15333, 9087, 178, 254, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[725213, 15516, 1286, 36, 118, "Input"], -Cell[726502, 15554, 9105, 179, 254, "Output"] -}, Open ]] -}, Open ]], -Cell[CellGroupData[{ -Cell[735656, 15739, 663, 10, 54, "Subsection", - CellGroupingRules->{"SectionGrouping", Inherited}], -Cell[CellGroupData[{ -Cell[736344, 15753, 99, 1, 39, "Input"], -Cell[736446, 15756, 977, 21, 99, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[737460, 15782, 258, 5, 39, "Input"], -Cell[737721, 15789, 267, 4, 35, "Output"] -}, Open ]], -Cell[738003, 15796, 1478, 33, 92, "Input"], -Cell[739484, 15831, 2596, 44, 456, "Input"], -Cell[CellGroupData[{ -Cell[742105, 15879, 597, 15, 60, "Input"], -Cell[742705, 15896, 1530, 28, 57, "Output"] -}, Open ]], -Cell[744250, 15927, 2246, 39, 456, "Input"], -Cell[CellGroupData[{ -Cell[746521, 15970, 521, 14, 60, "Input"], -Cell[747045, 15986, 1651, 30, 78, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[748733, 16021, 1263, 36, 118, "Input"], -Cell[749999, 16059, 9044, 177, 254, "Output"] -}, Open ]], -Cell[CellGroupData[{ -Cell[759080, 16241, 1286, 36, 118, "Input"], -Cell[760369, 16279, 9075, 179, 254, "Output"] -}, Open ]] -}, Closed]] -}, Open ]] -} -] -*) - diff --git a/hadron_PDF/misc/xml_path.py b/hadron_PDF/misc/xml_path.py deleted file mode 100755 index 696dd1b..0000000 --- a/hadron_PDF/misc/xml_path.py +++ /dev/null @@ -1,8 +0,0 @@ -from lxml import etree -with open('try_in.xml', 'r') as xml_file: - xml_string=xml_file.read().replace('\n', '') -root = etree.fromstring(xml_string) -tree = etree.ElementTree(root) -for e in root.iter(): - if (e.tag=='SinkType'): - print tree.getpath(e) \ No newline at end of file diff --git a/hadron_PDF/mom_project.cc b/hadron_PDF/mom_project.cc deleted file mode 100644 index 73d3584..0000000 --- a/hadron_PDF/mom_project.cc +++ /dev/null @@ -1,90 +0,0 @@ -// -*- C++ -*- -// $Id$ -/*! \file - * \brief Momentum projection routines definitions - */ - -#include "chromabase.h" -#include -#include -#include -#include -#include "chroma.h" -#include "mom_project.h" -using namespace QDP; - -int mom_project::initialize( const multi1d& momentum, const multi1d& source_pts ) -{ - int i; - - for(i=0;i mom(Nd); - multi1d my_coord(Nd); - int mu; - LatticeReal p_dot_x = zero; - LatticeColorMatrix fwd; - - std::cout << "here I am!" << std::endl; - - std::cout << "Layout::lattSize()[0]= " << Layout::lattSize()[0]<< std::endl; - std::cout << "Layout::lattSize()[1]= " << Layout::lattSize()[1]<< std::endl; - std::cout << "Layout::lattSize()[2]= " << Layout::lattSize()[2]<< std::endl; - std::cout << "Layout::lattSize()[3]= " << Layout::lattSize()[3]<< std::endl; - - std::cout << "Getting coordinates ..." << std::endl; - - for(mu=0; mu mom_project::project_momentum( const LatticePropagator& S ) -{ - multi1d CC; - - CC=sumMulti(phase * S,TimeSliceFunc(Nd-1)); - - return CC; -} - -multi1d mom_project::project_momentum( const LatticeColorMatrix& S ) -{ - multi1d CC; - - CC=sumMulti(phase * S,TimeSliceFunc(Nd-1)); - - return CC; -} - -multi1d mom_project::project_momentum( const LatticeComplex& S ) -{ - multi1d CC; - - CC=sumMulti(phase * S,TimeSliceFunc(Nd-1)); - - return CC; -} diff --git a/hadron_PDF/mom_project.h b/hadron_PDF/mom_project.h deleted file mode 100644 index bd49036..0000000 --- a/hadron_PDF/mom_project.h +++ /dev/null @@ -1,50 +0,0 @@ -// -*- C++ -*- -// $Id$ -/*! \file - * \brief Momentum projection routines definitions - */ - -#include "chromabase.h" -#include -#include -#include -#include -using namespace QDP; - -#ifndef __mom_project_h__ -#define __mom_project_h__ - -class mom_project -{ - public: - - mom_project() { - p.resize(Nd); - src.resize(Nd); - }; - - mom_project( const multi1d& momentum, const multi1d& source_pts ) { - p.resize(Nd); - src.resize(Nd); - initialize( momentum, source_pts ); - }; - - multi1d project_momentum( const LatticeComplex& S); - multi1d project_momentum( const LatticeColorMatrix& S ); - multi1d project_momentum( const LatticePropagator& S ); - /* Propagator project_momentum( const LatticePropagator& S ); */ - - int initialize( const multi1d& momentum, const multi1d& source_pts ); - - private: - - multi1d p; - multi1d src; - LatticeComplex phase; - - int calcPhase(void); - -}; - - -#endif diff --git a/hadron_PDF/multi_shift.h b/hadron_PDF/multi_shift.h deleted file mode 100644 index 2cfb3bb..0000000 --- a/hadron_PDF/multi_shift.h +++ /dev/null @@ -1,95 +0,0 @@ -/*========================================== -Multiple shift with boundary condition imposed. -multi_shit(typ objct, int steps , int dir, int N, int bndry_cndtn) -returns the shifted objct. - -steps : number of steps in unit of lattice spacing. -dir : direction index -N : number of total lattice spacing in direction dir -bndry_cndtn: +1: periodic boundary condition f(x+N) = f(x) - -1: anti-periodic boundary condition f(x+N) = -f(x) -==========================================*/ -#ifndef MULTI_SHIFT -#define MULTI_SHIFT - -#include "chroma.h" - -using namespace std; - - -template -Typ multi_shift(Typ objct, int steps, int dir, int N, int bndry_cndtn) -{ - Typ objct_tmp1 = objct; - Typ objct_tmp2 = objct; - Real one = 1.0; - Real zero = 0.0; - if (bndry_cndtn == 1)//periodic boundary condition - { - if (steps > 0) - { - for (int stp = 1; stp <= steps; stp++) - { - objct_tmp2 = shift(objct_tmp1, +1, dir); - objct_tmp1 = objct_tmp2; - } - } - - else if (steps < 0) - { - for (int stp = -1; stp >= steps; stp--) - { - objct_tmp2 = shift(objct_tmp1, -1, dir); - objct_tmp1 = objct_tmp2; - } - } - - else - { - objct_tmp1 = objct; - } - - return objct_tmp1; - } - else if (bndry_cndtn == -1)//anti-periodic boundary condition - { - LatticeInt coord_in_dir = Layout::latticeCoordinate(dir);//cretaed indcies of each lattice site in diraction dir; - LatticeInt shftd_coord_in_dir = multi_shift(coord_in_dir, steps, dir, N, +1); - //shifting indcies (steps) steps in diraction dir; - - LatticeDouble shft_phs_in_dir = one;//shft_phs_in_dir: the phase factor on each site - - if (steps > 0) - { - shft_phs_in_dir = LatticeRealD(pow(-1, LatticeInt(shftd_coord_in_dir < steps))); //those sites acrossing the bondary in direction dir, receives a -1 factor - //e.g before shifting W = 0 1 2 3...27 28 29 30 31 - // after shifting(steps=3,dir =3) W'= 3 4 5 6...30 31 0 1 2 - //QDP shift: W'=shift(W,+1,dir) gives W'[n] = W[n+1] - //W'[29;;31] = 0 1 2, have accrossed boundary dues receives a -1 factor, (-1)^(W'[n]= N + steps))); - //e.g before shifting W = 0 1 2 3...27 28 29 30 31 - // after shifting(steps= -3,dir=3) W'= 29 30 31 0...30 31 0 27 28 - //QDP shift: W'=shift(W,-1,dir) gives W'[n] = W[n-1] - //W'[0;;3] = 29 30 31 have accrossed boundary dues receives a -1 factor, (-1)^(W'[n]>= N + steps) - // where N=32 in the example, W dennotes coord_in_dir and W' denotes shftd_coord_in_dir in the code - } - else - { - ; - } - - return shft_phs_in_dir * (multi_shift(objct, steps, dir, N, +1)); - } - - else - { - QDPIO::cerr << "Invalid boundary condition for multi_shift " << endl; - QDP_abort(1); - } -} - -#endif \ No newline at end of file diff --git a/hadron_PDF/myMultiD.h b/hadron_PDF/myMultiD.h deleted file mode 100644 index b49905c..0000000 --- a/hadron_PDF/myMultiD.h +++ /dev/null @@ -1,76 +0,0 @@ -#ifndef __multiD_h__ -#define __multiD_h__ - -#include "qdp.h" -using namespace std; -using namespace QDP; - - -template class multi6d -{ - public: - // Basic constructor - multi6d() {F=0;n1=n2=n3=n4=n5=n6=sz=0;copymem=false;} - multi6d(T *f,int ns6, int ns5, int ns4, int ns3, int ns2, int ns1) {F=f; n1=ns1; n2=ns2; n3=ns3; n4=ns4; n5=ns5; n6=ns6; sz=n1*n2*n3*n4*n5*n6; copymem=true;} - explicit multi6d(int ns6, int ns5, int ns4, int ns3, int ns2, int ns1) {copymem=false;F=0;resize(ns6,ns5,ns4,ns3,ns2,ns1);} - ~multi6d() {if (! copymem) {delete[] F;}} - - //! Copy constructor - multi6d(const multi6d& s): copymem(false), n1(s.n1), n2(s.n2), n3(s.n3), n4(s.n4), n5(s.n5),n6(s.n6), sz(s.sz), F(0) - { - resize(n6,n5,n4,n3,n2,n1); - - for(int i=0; i < sz; ++i) - F[i] = s.F[i]; - } - - //! Allocate mem for the array - void resize(int ns6, int ns5, int ns4, int ns3, int ns2, int ns1) - { - if(copymem) { - QDPIO::cerr <<"multi6d block: invalid resize of a copy of memory" << endl; - exit(1); - } - - // Only delete if the array is not NULL. If it is NULL - // deleting may be bad - if ( F != 0x0 ) { - delete[] F; - } - - n1=ns1; n2=ns2; n3=ns3; n4=ns4; n5=ns5; n6=ns6; sz=n1*n2*n3*n4*n5*n6; F = new(nothrow) T[sz]; - if( F == 0x0 ) { - QDP_error_exit("Unable to new memory in multi6d block::resize(%d,%d,%d,%d,%d,%d)\n",ns6,ns5,ns4,ns3,ns2,ns1); - } - } - - //! Size of array - int size1() const {return n1;} - int size2() const {return n2;} - int size3() const {return n3;} - int size4() const {return n4;} - int size5() const {return n5;} - int size6() const {return n6;} - - // Return reference to an element - T& operator()(int n, int m, int l, int k, int j, int i) {return F[i+n1*(j+n2*(k+n3*(l+n4*(m+n5*(n)))))];} - const T& operator()(int n, int m, int l, int k, int j, int i) const {return F[i+n1*(j+n2*(k+n3*(l+n4*(m+n5*(n)))))];} - - // Return multi4d reference - multi5d operator[](int n) {return multi5d(F+n1*n2*n3*n4*n5*n,n5,n4,n3,n2,n1);} - const multi5d operator[](int n) const {return multi5d(F+n1*n2*n3*n4*n5*n,n5,n4,n3,n2,n1);} - -private: - bool copymem; - int n1; - int n2; - int n3; - int n4; - int n5; - int n6; - int sz; - T *F; -}; - - -#endif diff --git a/hadron_PDF/notes/FH_drgrm.png b/hadron_PDF/notes/FH_drgrm.png deleted file mode 100644 index 0cd7e57..0000000 Binary files a/hadron_PDF/notes/FH_drgrm.png and /dev/null differ diff --git a/hadron_PDF/notes/Note_on_Feyman_Hellman_Method.md b/hadron_PDF/notes/Note_on_Feyman_Hellman_Method.md deleted file mode 100644 index 9b1a571..0000000 --- a/hadron_PDF/notes/Note_on_Feyman_Hellman_Method.md +++ /dev/null @@ -1,28 +0,0 @@ -# Quark Propagator - -The quark propagator $S_{x',x}$ is a $4\times4$ matrix with each element is a SU(3) color matrix. $S_{x',x}$ represents a quark propagating from source $x$ to site $x'$, in which $x'$ is the row index and x is the column index (for both Dirac spinor and color indices). - - - -# Feynman-Hellman Method - -Feynman-Hellman Method - -
- - - $$ - Src^{\mathrm{FH}}_{z,x} \left(\Delta\right)= \mathcal{L}\left(z,z+\Delta\right)\gamma^z S_{z+\Delta,x} - $$ -where $\mathcal{L}\left(z,z+\Delta\right)$ is the gauge link from $z$ to $z+\Delta$ - - $$ - S^{\mathrm{FH}}_{y,x}\left(\Delta\right) = \sum_z \left(D\!\!\!\!/^{-1}\right)_{y,z} Src^{\mathrm{FH}}_{z,x}\left(\Delta\right) - $$ - where $D\!\!\!\!/$denotes the Dirac operator hence $D\!\!\!\!/^{-1}$denotes the inversion. - - The correlation function is given by - - $$ -C_{y,x}\left(\Delta\right)=\mathrm{tr}\left[\gamma^5\left(S^\dagger\right)_{y,x}\gamma^5 S^{\mathrm{FH}}_{y,x}\left(\Delta\right)\right] - $$ \ No newline at end of file diff --git a/hadron_PDF/notes/note_on_QDP_Chroma.md b/hadron_PDF/notes/note_on_QDP_Chroma.md deleted file mode 100644 index 0e7fc68..0000000 --- a/hadron_PDF/notes/note_on_QDP_Chroma.md +++ /dev/null @@ -1,71 +0,0 @@ - -# Link Variables - -The relations between link variables stored in Chroma ( $\mathcal{U}$ ) and in text books ( $U$ ) are - - $$ - U_\mu(n) = \mathcal{U}_{\mu}(n) - $$ - - - -# QDP++ Shift - - The QDP++ shift acts as - - $$ - G'=\text{shift}(G,\pm1,\mu) - \Rightarrow G'[\mu][n]= G[\mu][n\pm\hat \mu] - $$ - -# Fermion Propagator $S[n]_{\alpha\beta}^{ab}$ - -The fermion propagator takes the form - -$$S[n]_{\alpha_{n}\beta_{src}}^{a_{n}b_{src}}$$ -where $\alpha,\,\beta$ are Dirac Spinor indices and $a,\,b$ are color indices. $S[n]_{\alpha\beta}^{ab}$ represents the propagator from a lattice site $n$ propagating ***from*** source site (an input parameter in inverter function) - - -The gauge transformation of a fermion propagator is - -$$S[n]_{\alpha_{n}\beta_{src}}^{a_{n}b_{src}}\rightarrow \sum_{a'=0,b'=0}^{3}g(n)^{a,a'} S[n]_{\alpha_{n}\beta_{src}}^{a'_{n} b'_{src}} g^{\dagger}(src)^{b'b}$$ - -where $g$ is the SU(3) transformation matrix. - -S[n] is stored in memory as - -$$ -S(\{n_x,n_y,n_z,n_t\})\rightarrow\left( -\begin{array}{cc} -\left( -\begin{array}{cc} -T_{00} -\end{array} -\right)^{a_{n} b_{src}} & \cdots & \cdots & \left( -\begin{array}{cc} -T_{03} -\end{array} -\right)^{a_{n} b_{src}} \\ -\cdots&\cdots&\cdots&\cdots\\ -\cdots&\cdots&\cdots&\cdots\\ -\left( -\begin{array}{cc} -T_{30} -\end{array} -\right)^{a_{n} b_{src}} &\cdots & \cdots &\left( -\begin{array}{cc} -T_{33} -\end{array} -\right)^{a_{n} b_{src}} -\end{array} -\right)_{\alpha_n\beta_{src}} -$$ - -where $T_{\alpha_n \beta_{src}}$ is a $3\times 3$ color matrix. - -# F-H Source - -$$ -\left(S(n)_{\alpha'_n \beta'_{src}}^{a'_n b'_{src}}\right)^\dagger \mathcal{L}_{\mu}[n,n+\Delta\hat\mu]_{\alpha_n,\alpha'_{n+\Delta\hat\mu}}^{a_n b_{n+\Delta\hat\mu}} -$$ - diff --git a/hadron_PDF/nucleon.cc b/hadron_PDF/nucleon.cc deleted file mode 100644 index 150e840..0000000 --- a/hadron_PDF/nucleon.cc +++ /dev/null @@ -1,807 +0,0 @@ -#include "chroma.h" -#include "permutations.h" -#include -#include -#include "mom_project.h" -#include "readwrite.h" - -#include "nucleon.h" - -#define PASS(ln) cout << "====== PASS " << ln << " ======" << endl - -using namespace std; -using namespace QDP; - -int Nucleon_system::initialize(const multi1d& src,const multi1d& mom, const multi1d& latsize, - std::string directory, std::string base, std::string spin) -{ - - srce_pt.resize(4); - lat_size.resize(4); - p_mom.resize(4); - - /* Set the source position */ - srce_pt[0]=src[0]; - srce_pt[1]=src[1]; - srce_pt[2]=src[2]; - srce_pt[3]=src[3]; - - /* Set lattice size constants */ - lat_size[0]=latsize[0]; - lat_size[1]=latsize[1]; - lat_size[2]=latsize[2]; - lat_size[3]=latsize[3]; - - // momentum at the sink - p_mom[0]=mom[0]; - p_mom[1]=mom[1]; - p_mom[2]=mom[2]; - p_mom[3]=mom[3]; - - dirname = directory; - basename = base; - - PASS(42); - - // LatticeSpinMatrixD ProjS = zero; - Complex a; - std::cout << "##### " << spin << "!!!!!" << std::endl; - if (spin=="Avg"){ - std::cout << "here I am" << std::endl; - a = 0.5; - pokeSpin(ProjS,a,0,0); - pokeSpin(ProjS,a,1,1); - } else if (spin=="Suu") { - a = 1.0; - pokeSpin(ProjS,a,0,0); - } else if (spin=="Sdd") { - a = 1.0; - pokeSpin(ProjS,a,1,1); - } else if (spin=="Sud") { - a = 1.0; - pokeSpin(ProjS,a,0,1); - } else if (spin=="Sdu") { - a = 1.0; - pokeSpin(ProjS,a,1,0); - } else { - std::cout << "Nothing!!!" << std::endl; - } - - ProjG = 0.0; - a = 0.7071067811865475244008444; - pokeSpin(ProjG,a,0,1); - pokeSpin(ProjG,-a,1,0); - - std::cout << p_mom[0] << " " << p_mom[1] << " " << p_mom[2] << " " << p_mom[3] << std::endl; - std::cout << srce_pt[0] << " " << srce_pt[1] << " " << srce_pt[2] << " " << srce_pt[3] << std::endl; - - std::cout << "Entering Pxyz initialization" << std::endl; - Pxyz.initialize(p_mom,srce_pt); - std::cout << "Pxyz initialization complete!" << std::endl; - - return 0; -} - -int Nucleon_system::calcExchange(const LatticePropagator& prop1, const LatticePropagator& prop2) -{ - LatticePropagator Ptemp; - multi1d P; - - exch1.resize(lat_size[3]); - exch2.resize(lat_size[3]); - exch3.resize(lat_size[3]); - - // why can't I multiply a prop by a multi1d ????? - - // note: I absorb the overall minus sign into these expressions for the exchange terms - Ptemp = -(ProjG * quarkContract13(prop1,ProjG*prop1)*ProjS + traceSpin(quarkContract13(prop1,ProjG*prop1*ProjG))*ProjS - +ProjG * transposeSpin(quarkContract34(prop1,ProjS*prop1))*ProjG+ProjS*transposeSpin(quarkContract24(prop1,prop1*ProjG))*ProjG)*prop2; - exch1 = Pxyz.project_momentum( Ptemp ); - - Ptemp = -(transposeSpin(quarkContract34(ProjG*prop1*ProjG,ProjS*prop1)) + quarkContract14(ProjS*prop1*ProjG,ProjG*prop1))*prop2; - exch2 = Pxyz.project_momentum( Ptemp ); - - Ptemp = -(ProjG * quarkContract14(ProjS*prop1,prop1)*ProjG + ProjG*quarkContract13(ProjG*prop1,prop1)*ProjS - +quarkContract24(ProjS*prop1,prop1*ProjG)*ProjG+traceSpin(quarkContract13(prop1*ProjG,ProjG*prop1))*ProjS)*prop2; - exch3 = Pxyz.project_momentum( Ptemp ); - - return 0; -} - -int Nucleon_system::calcDirect(const LatticePropagator& prop1) -{ - LatticeComplex temp; - - direct.resize(lat_size[3]); - - temp = traceColor(traceSpin(quarkContract13(ProjG*prop1*ProjG,prop1))*traceSpin(ProjS*prop1)) - + trace(quarkContract14(ProjS*prop1*ProjG,ProjG*prop1)*prop1); - - direct = Pxyz.project_momentum(temp); - - return 0; -} - -int Nucleon_system::writeMass() -{ - rw.writeCorrelator(direct,dirname+"nucleon"+basename,-1, lat_size[3], srce_pt); - rw.writeAvgCorrelator(direct,dirname+"nucleon"+basename,-1, lat_size[3], srce_pt[3]); - return 0; -} - -int Nucleon_system::free() -{ - srce_pt.resize(0); - lat_size.resize(0); - p_mom.resize(0); - - blockG1pU.resize(0,0,0,0,0,0,0); - blockG1pD.resize(0,0,0,0,0,0,0); - - corrU.resize( 0 ); - corrD.resize( 0 ); - direct.resize( 0 ); - - exch1.resize(0); - exch2.resize(0); - exch3.resize(0); - - return 0; - -} - -int Nucleon_system::calcBlock(const LatticePropagator& prop) -{ - - quarkPerm = 111; - - setSmatrices(prop); - - /* Resize the udd blocks accordingly */ - blockG1pU.resize(4,3,4,3,4,3,lat_size[3]); - blockG1pD.resize(4,3,4,3,4,3,lat_size[3]); - - /* Set size of correlators */ - corrU.resize( lat_size[3] ); - corrD.resize( lat_size[3] ); - - if( doChecks ) { - }; - - QDPIO::cout << "Nucleon_system :: Calculating G1+ nucleon blocks . . . "; - calcNucleon_blocks(blockG1pU,0,1,0); - calcNucleon_blocks(blockG1pD,0,1,1); - QDPIO::cout << "Finished." << endl; - - S1.resize(0,0); - - return 0; -} - -int Nucleon_system::calcBlock(const LatticePropagator& propU, const LatticePropagator& propD,int qperm) -{ - - quarkPerm = qperm; - - setSmatrices(propU,propD); - - /* Resize the udd blocks accordingly */ - blockG1pU.resize(4,3,4,3,4,3,lat_size[3]); - blockG1pD.resize(4,3,4,3,4,3,lat_size[3]); - - /* Set size of correlators */ - corrU.resize( lat_size[3] ); - corrD.resize( lat_size[3] ); - - if( doChecks ) { - }; - - QDPIO::cout << "Nucleon_system :: Calculating G1+ nucleon blocks . . . "; - calcNucleon_blocks(blockG1pU,0,1,0); - calcNucleon_blocks(blockG1pD,0,1,1); - QDPIO::cout << "Finished." << endl; - - S1.resize(0,0); - S2.resize(0,0); - - return 0; -} - -int Nucleon_system::calcBlock(const LatticePropagator& propU, const LatticePropagator& propD, - const LatticePropagator& propS) -{ - - quarkPerm = 123; - - setSmatrices(propU,propD,propS); - - /* Resize the udd blocks accordingly */ - blockG1pU.resize(4,3,4,3,4,3,lat_size[3]); - blockG1pD.resize(4,3,4,3,4,3,lat_size[3]); - - /* Set size of correlators */ - corrU.resize( lat_size[3] ); - corrD.resize( lat_size[3] ); - - if( doChecks ) { - }; - - QDPIO::cout << "Nucleon_system :: Calculating G1+ nucleon blocks . . . "; - calcNucleon_blocks(blockG1pU,0,1,0); - calcNucleon_blocks(blockG1pD,0,1,1); - QDPIO::cout << "Finished." << endl; - - S1.resize(0,0); - S2.resize(0,0); - S3.resize(0,0); - - return 0; -} - -int Nucleon_system::setSmatrices(const LatticePropagator& prop) -{ - - S1.resize(4,4); - - S1[0][0] = peekSpin(prop,0,0); - S1[0][1] = peekSpin(prop,0,1); - S1[0][2] = peekSpin(prop,0,2); - S1[0][3] = peekSpin(prop,0,3); - S1[1][0] = peekSpin(prop,1,0); - S1[1][1] = peekSpin(prop,1,1); - S1[1][2] = peekSpin(prop,1,2); - S1[1][3] = peekSpin(prop,1,3); - S1[2][0] = peekSpin(prop,2,0); - S1[2][1] = peekSpin(prop,2,1); - S1[2][2] = peekSpin(prop,2,2); - S1[2][3] = peekSpin(prop,2,3); - S1[3][0] = peekSpin(prop,3,0); - S1[3][1] = peekSpin(prop,3,1); - S1[3][2] = peekSpin(prop,3,2); - S1[3][3] = peekSpin(prop,3,3); - - return 0; - -} - -int Nucleon_system::setSmatrices(const LatticePropagator& prop, const LatticePropagator& propD) -{ - - S1.resize(4,4); - S2.resize(4,4); - - /* Define all possible color matrices */ - S1[0][0] = peekSpin(prop,0,0); - S1[0][1] = peekSpin(prop,0,1); - S1[0][2] = peekSpin(prop,0,2); - S1[0][3] = peekSpin(prop,0,3); - S1[1][0] = peekSpin(prop,1,0); - S1[1][1] = peekSpin(prop,1,1); - S1[1][2] = peekSpin(prop,1,2); - S1[1][3] = peekSpin(prop,1,3); - S1[2][0] = peekSpin(prop,2,0); - S1[2][1] = peekSpin(prop,2,1); - S1[2][2] = peekSpin(prop,2,2); - S1[2][3] = peekSpin(prop,2,3); - S1[3][0] = peekSpin(prop,3,0); - S1[3][1] = peekSpin(prop,3,1); - S1[3][2] = peekSpin(prop,3,2); - S1[3][3] = peekSpin(prop,3,3); - - S2[0][0] = peekSpin(propD,0,0); - S2[0][1] = peekSpin(propD,0,1); - S2[0][2] = peekSpin(propD,0,2); - S2[0][3] = peekSpin(propD,0,3); - S2[1][0] = peekSpin(propD,1,0); - S2[1][1] = peekSpin(propD,1,1); - S2[1][2] = peekSpin(propD,1,2); - S2[1][3] = peekSpin(propD,1,3); - S2[2][0] = peekSpin(propD,2,0); - S2[2][1] = peekSpin(propD,2,1); - S2[2][2] = peekSpin(propD,2,2); - S2[2][3] = peekSpin(propD,2,3); - S2[3][0] = peekSpin(propD,3,0); - S2[3][1] = peekSpin(propD,3,1); - S2[3][2] = peekSpin(propD,3,2); - S2[3][3] = peekSpin(propD,3,3); - - return 0; - -} - -int Nucleon_system::setSmatrices(const LatticePropagator& prop1, const LatticePropagator& prop2, - const LatticePropagator& prop3) -{ - - S1.resize(4,4); - S2.resize(4,4); - S3.resize(4,4); - - /* Define all possible color matrices */ - S1[0][0] = peekSpin(prop1,0,0); - S1[0][1] = peekSpin(prop1,0,1); - S1[0][2] = peekSpin(prop1,0,2); - S1[0][3] = peekSpin(prop1,0,3); - S1[1][0] = peekSpin(prop1,1,0); - S1[1][1] = peekSpin(prop1,1,1); - S1[1][2] = peekSpin(prop1,1,2); - S1[1][3] = peekSpin(prop1,1,3); - S1[2][0] = peekSpin(prop1,2,0); - S1[2][1] = peekSpin(prop1,2,1); - S1[2][2] = peekSpin(prop1,2,2); - S1[2][3] = peekSpin(prop1,2,3); - S1[3][0] = peekSpin(prop1,3,0); - S1[3][1] = peekSpin(prop1,3,1); - S1[3][2] = peekSpin(prop1,3,2); - S1[3][3] = peekSpin(prop1,3,3); - - S2[0][0] = peekSpin(prop2,0,0); - S2[0][1] = peekSpin(prop2,0,1); - S2[0][2] = peekSpin(prop2,0,2); - S2[0][3] = peekSpin(prop2,0,3); - S2[1][0] = peekSpin(prop2,1,0); - S2[1][1] = peekSpin(prop2,1,1); - S2[1][2] = peekSpin(prop2,1,2); - S2[1][3] = peekSpin(prop2,1,3); - S2[2][0] = peekSpin(prop2,2,0); - S2[2][1] = peekSpin(prop2,2,1); - S2[2][2] = peekSpin(prop2,2,2); - S2[2][3] = peekSpin(prop2,2,3); - S2[3][0] = peekSpin(prop2,3,0); - S2[3][1] = peekSpin(prop2,3,1); - S2[3][2] = peekSpin(prop2,3,2); - S2[3][3] = peekSpin(prop2,3,3); - - S3[0][0] = peekSpin(prop3,0,0); - S3[0][1] = peekSpin(prop3,0,1); - S3[0][2] = peekSpin(prop3,0,2); - S3[0][3] = peekSpin(prop3,0,3); - S3[1][0] = peekSpin(prop3,1,0); - S3[1][1] = peekSpin(prop3,1,1); - S3[1][2] = peekSpin(prop3,1,2); - S3[1][3] = peekSpin(prop3,1,3); - S3[2][0] = peekSpin(prop3,2,0); - S3[2][1] = peekSpin(prop3,2,1); - S3[2][2] = peekSpin(prop3,2,2); - S3[2][3] = peekSpin(prop3,2,3); - S3[3][0] = peekSpin(prop3,3,0); - S3[3][1] = peekSpin(prop3,3,1); - S3[3][2] = peekSpin(prop3,3,2); - S3[3][3] = peekSpin(prop3,3,3); - - return 0; - -} - -int Nucleon_system::calcMassFromBlocks() -{ - /* - Calculates the single Nucleon masses using the nucleon blocks - */ - multi1d invsqrt2( lat_size[3] ); - multi1d eabc( lat_size[3] ); - int a, b, c; - - invsqrt2 = 0.7071067811865475244008444; - - QDPIO::cout << "Nucleon_system :: Calculating Nucleon masses . . . "; - - corrU = 0.0; - corrD = 0.0; - for(a=0;a<=2;a++){ - for(b=0;b<=2;b++) - for(c=0;c<=2;c++){ - if(epsilon(a,b,c) == 0) continue; - eabc = epsilon(a,b,c); - corrU += eabc * invsqrt2 * (blockG1pU[0][a][1][b][0][c] - blockG1pU[1][a][0][b][0][c]); - corrD += eabc * invsqrt2 * (blockG1pD[0][a][1][b][1][c] - blockG1pD[1][a][0][b][1][c]); - if( doChecks ) { - } - }; - }; - - /* blockG1pU */ - rw.writeCorrelator(corrU,dirname+"nucleonG1pU"+basename,-1, lat_size[3], srce_pt); - rw. writeAvgCorrelator(corrU,dirname+"nucleonG1pU"+basename,-1, lat_size[3], srce_pt[3]); - - /* blockG1pD */ - rw.writeCorrelator(corrD,dirname+"nucleonG1pD"+basename,-1, lat_size[3], srce_pt); - rw.writeAvgCorrelator(corrD,dirname+"nucleonG1pD"+basename,-1, lat_size[3], srce_pt[3]); - - if( doChecks ) - { - /* blockG1pU */ - }; - - QDPIO::cout << "Finished." << endl; - - return 0; -} - -multi1d Nucleon_system::scalarMult(double coeff, multi1d md1cm) -{ - multi1d temp(lat_size[3]); - - for(int i=0;i& block, int mu1, int mu2, int mu3) -{ - /* - Calculates all the positive parity G1 nucleon blocks. - Note: these blocks are open, in that only one contraction over epsilon color indices are performed!!! - */ - int alpha, beta, gamma; - int a, b, c; - double invsqrt2 = 0.7071067811865475244008444; - - - for (alpha=0;alpha<4;alpha++) - for (a=0;a<3;a++) - for (beta=0;beta<4;beta++) - for (b=0;b<3;b++) - for(gamma=0;gamma<4;gamma++) - for(c=0;c<3;c++) - { - block[alpha][a][beta][b][gamma][c]= scalarMult( invsqrt2 , UDD_permuted(alpha,a,beta,b,gamma,c, mu1,mu2,mu3) - - UDD_permuted(alpha,a,beta,b,gamma,c, mu2,mu1,mu3) ); - if( doChecks ) - { - - }; - } - - return 0; -} - -multi1d Nucleon_system::UDD_permuted(int alpha, int a, int beta, int b, int gamma, int c, int alphap, int betap, int gammap) -{ - /* - Returns a ColorMatrix UDD block with zero momentum projection and all {alphap,betap,gammap} permutations summed. - Will need to generalize this to arbitrary momentum projection. - */ - LatticeComplex UDD; - multi1d temp(lat_size[3]),answer(lat_size[3]); - int t1,tr1; - int Nt = lat_size[3]; - - UDD = UDD_unpermuted(alpha,a,beta,b,gamma,c, alphap,betap,gammap) + UDD_unpermuted(alpha,a,beta,b,gamma,c, alphap,gammap,betap); - - temp = Pxyz.project_momentum( UDD ); - // now shift the time to have the source time start at zero - if(srce_pt[3] != 0 ){ - for(t1=0;t1= Nt){ - tr1=(t1+srce_pt[3]-Nt); - answer[t1] = -1 * temp[tr1]; - }else{ - tr1=t1+srce_pt[3]; - answer[t1] = temp[tr1]; - } - } else { - answer = temp; - } - - return answer; - -} - -LatticeComplex Nucleon_system::UDD_unpermuted(int alpha, int a, int beta, int b, int gamma, int c, int alphap, int betap, int gammap){ - /* - Returns a LatticeColorMatrix UDD block with unpermuted spin indices. - */ - - LatticeComplex SS3; - int ap; - int bp; - int cp; - int eabcp; - - SS3 = 0; - for(ap=0;ap<=2;ap++){ - for(bp=0;bp<=2;bp++) - for(cp=0;cp<=2;cp++){ - eabcp = epsilon(ap,bp,cp); - if(eabcp == 0) continue; - switch(quarkPerm){ - case 111: - SS3 += eabcp * peekColor(S1[alpha][alphap],a,ap) * peekColor(S1[beta][betap],b,bp) * peekColor(S1[gamma][gammap],c,cp); - break; - case 112: - SS3 += eabcp * peekColor(S1[alpha][alphap],a,ap) * peekColor(S1[beta][betap],b,bp) * peekColor(S2[gamma][gammap],c,cp); - break; - case 121: - SS3 += eabcp * peekColor(S1[alpha][alphap],a,ap) * peekColor(S2[beta][betap],b,bp) * peekColor(S1[gamma][gammap],c,cp); - break; - case 211: - SS3 += eabcp * peekColor(S2[alpha][alphap],a,ap) * peekColor(S1[beta][betap],b,bp) * peekColor(S1[gamma][gammap],c,cp); - break; - case 123: - SS3 += eabcp * peekColor(S1[alpha][alphap],a,ap) * peekColor(S2[beta][betap],b,bp) * peekColor(S3[gamma][gammap],c,cp); - break; - } - } - }; /* U D D */ - - return SS3; - -} - -int Nucleon_system::calc_G1pG1p_A1p() -{ - /* - A1_r1 = 1/sqrt(2) * ( G11 G12 - G12 G11 ) - = sqrt(2) * G11 G12 - */ - multi1d corr( lat_size[3] ), coeff( lat_size[3] ); - - QDPIO::cout << "Nucleon_system :: Calculating (G1+G1+)A1+ system . . . "; - coeff = 2.0 * sqrt(2.0); - corr = UDD_UDD_permuted(0,1,0, 0,1,1, blockG1pU, blockG1pD); /* G11 G12 Gt11 Gt12 */ - corr = coeff * corr; - rw.writeCorrelator(corr,dirname+"(G1+G1+)A1+_r1"+basename,1, lat_size[3], srce_pt); - rw.writeAvgCorrelator(corr,dirname+"(G1+G1+)A1+_r1"+basename,1, lat_size[3], srce_pt[3]); - - if( doChecks ) - { - - }; - QDPIO::cout << "Finished." << endl; - - return 0; -} - -multi1d Nucleon_system::UDD_UDD_permuted(int alpha, int beta, int gamma, int delta, int epsilon, int phi, - const udd& UDD1, const udd& UDD2) -{ - multi1d corr( lat_size[3] ); - - corr = calcDirect(alpha,beta,gamma,delta,epsilon,phi,UDD1,UDD2); - - corr -= calcExchangeU(alpha,beta,gamma,delta,epsilon,phi,UDD1,UDD2); - corr -= calcExchangeDD1(alpha,beta,gamma,delta,epsilon,phi,UDD1,UDD2); - corr += calcExchangeDD2(alpha,beta,gamma,delta,epsilon,phi,UDD1,UDD2); - corr += calcExchangeDD3(alpha,beta,gamma,delta,epsilon,phi,UDD1,UDD2); - corr -= calcExchangeDD4(alpha,beta,gamma,delta,epsilon,phi,UDD1,UDD2); - - return corr; -} - -multi1d Nucleon_system::calcDirect(int alpha, int beta, int gamma, int delta, int epsil, int phi, - const udd& UDD1, const udd& UDD2) -{ - multi1d invsqrt2( lat_size[3] ); - multi1d corr11( lat_size[3] ); - multi1d corr22( lat_size[3] ); - multi1d corr12( lat_size[3] ); - multi1d corr21( lat_size[3] ); - multi1d eabc( lat_size[3] ); - int a, b, c; - - invsqrt2 = 0.7071067811865475244008444; - - corr11 = 0.0; - corr22 = 0.0; - corr12 = 0.0; - corr21 = 0.0; - for(a=0;a<=2;a++){ - for(b=0;b<=2;b++) - for(c=0;c<=2;c++){ - if(epsilon(a,b,c) == 0) continue; - eabc = epsilon(a,b,c); - corr11 += eabc * invsqrt2 * (UDD1[alpha][a][beta][b][gamma][c] - UDD1[beta][a][alpha][b][gamma][c]); - corr22 += eabc * invsqrt2 * (UDD2[delta][a][epsil][b][phi][c] - UDD2[epsil][a][delta][b][phi][c]); - corr12 += eabc * invsqrt2 * (UDD2[alpha][a][beta][b][gamma][c] - UDD2[beta][a][alpha][b][gamma][c]); - corr21 += eabc * invsqrt2 * (UDD1[delta][a][epsil][b][phi][c] - UDD1[epsil][a][delta][b][phi][c]); - }; - }; - - return (corr11 * corr22) - (corr12 * corr21); - -} - -multi1d Nucleon_system::calcExchangeU(int alphax, int beta, int gamma, int deltax, int epsil, int phi, - const udd& UDD1, const udd& UDD2) -{ - /* - Calculates the lone quark exchange: for example, for neutron, it's the up quark. For the proton, it's the - down quark - */ - multi1d corr1( lat_size[3] ); - multi1d corr2( lat_size[3] ); - multi1d inv2( lat_size[3] ); - multi1d eabc( lat_size[3] ); - multi1d eabcp( lat_size[3] ); - int a,ap; - int b,bp; - int c,cp; - - corr1 = 0.0; - corr2 = 0.0; - inv2 = 0.5; - - for(a=0;a<=2;a++) - for(b=0;b<=2;b++) - for(c=0;c<=2;c++){ - if(epsilon(a,b,c) == 0) continue; - eabc = epsilon(a,b,c); - for(ap=0;ap<=2;ap++){ - for(bp=0;bp<=2;bp++) - for(cp=0;cp<=2;cp++){ - if(epsilon(ap,bp,cp) == 0) continue; - eabcp = epsilon(ap,bp,cp); - corr1 += eabc * eabcp * inv2 * ((UDD1[deltax][ap][beta][b][gamma][c]-UDD1[beta][ap][deltax][b][gamma][c]) * (UDD2[alphax][a][epsil][bp][phi][cp] - UDD2[epsil][a][alphax][bp][phi][cp])); - corr2 += eabc * eabcp * inv2 * ((UDD1[alphax][ap][epsil][b][phi][c]-UDD1[epsil][ap][alphax][b][phi][c]) * (UDD2[deltax][a][beta][bp][gamma][cp]-UDD2[beta][a][deltax][bp][gamma][cp])); - - }; - }; - }; - - return corr1 - corr2; - -} - -multi1d Nucleon_system::calcExchangeDD1(int alpha, int betax, int gamma, int delta, int epsilx, int phi, - const udd& UDD1, const udd& UDD2) -{ - /* - Calculates the double quark exchange: for example, for neutron, it's one of the down quarks. For the proton, - it's one of the up quarks - */ - multi1d corr1( lat_size[3] ); - multi1d corr2( lat_size[3] ); - multi1d inv2( lat_size[3] ); - multi1d eabc( lat_size[3] ); - multi1d eabcp( lat_size[3] ); - int a,ap; - int b,bp; - int c,cp; - - corr1 = 0.0; - corr2 = 0.0; - inv2 = 0.5; - - for(a=0;a<=2;a++) - for(b=0;b<=2;b++) - for(c=0;c<=2;c++){ - if(epsilon(a,b,c) == 0) continue; - eabc = epsilon(a,b,c); - for(ap=0;ap<=2;ap++){ - for(bp=0;bp<=2;bp++) - for(cp=0;cp<=2;cp++){ - if(epsilon(ap,bp,cp) == 0) continue; - eabcp = epsilon(ap,bp,cp); - corr1 += eabc * eabcp * inv2 * ((UDD1[alpha][a][epsilx][bp][gamma][c]-UDD1[epsilx][a][alpha][bp][gamma][c]) * (UDD2[delta][ap][betax][b][phi][cp] - UDD2[betax][ap][delta][b][phi][cp])); - corr2 += eabc * eabcp * inv2 * ((UDD1[delta][a][betax][bp][phi][c] - UDD1[betax][a][delta][bp][phi][c]) * (UDD2[alpha][ap][epsilx][b][gamma][cp]-UDD2[epsilx][ap][alpha][b][gamma][cp])); - }; - }; - }; - - return corr1 - corr2; - -} - -multi1d Nucleon_system::calcExchangeDD2(int alpha, int betax, int gamma, int delta, int epsil, int phix, - const udd& UDD1, const udd& UDD2) -{ - /* - Calculates the double quark exchange: for example, for neutron, it's one of the down quarks. For the proton, - it's one of the up quarks - */ - multi1d corr1( lat_size[3] ); - multi1d corr2( lat_size[3] ); - multi1d inv2( lat_size[3] ); - multi1d eabc( lat_size[3] ); - multi1d eabcp( lat_size[3] ); - int a,ap; - int b,bp; - int c,cp; - - corr1 = 0.0; - corr2 = 0.0; - inv2 = 0.5; - - for(a=0;a<=2;a++) - for(b=0;b<=2;b++) - for(c=0;c<=2;c++){ - if(epsilon(a,b,c) == 0) continue; - eabc = epsilon(a,b,c); - for(ap=0;ap<=2;ap++){ - for(bp=0;bp<=2;bp++) - for(cp=0;cp<=2;cp++){ - if(epsilon(ap,bp,cp) == 0) continue; - eabcp = epsilon(ap,bp,cp); - corr1 += eabc * eabcp * inv2 * ((UDD1[alpha][a][phix][bp][gamma][c]-UDD1[phix][a][alpha][bp][gamma][c]) * (UDD2[delta][ap][epsil][bp][betax][c] - UDD2[epsil][ap][delta][bp][betax][c])); - corr2 += eabc * eabcp * inv2 * ((UDD1[delta][a][epsil][b][betax][cp] - UDD1[epsil][a][delta][b][betax][cp]) * (UDD2[alpha][ap][phix][b][gamma][cp]-UDD2[phix][ap][alpha][b][gamma][cp])); - }; - }; - }; - - return corr1-corr2; - -} - - -multi1d Nucleon_system::calcExchangeDD3(int alpha, int beta, int gammax, int delta, int epsilx, int phi, - const udd& UDD1, const udd& UDD2) -{ - /* - Calculates the double quark exchange: for example, for neutron, it's one of the down quarks. For the proton, - it's one of the up quarks - */ - multi1d corr1( lat_size[3] ); - multi1d corr2( lat_size[3] ); - multi1d inv2( lat_size[3] ); - multi1d eabc( lat_size[3] ); - multi1d eabcp( lat_size[3] ); - int a,ap; - int b,bp; - int c,cp; - - corr1 = 0.0; - corr2 = 0.0; - inv2 = 0.5; - - for(a=0;a<=2;a++) - for(b=0;b<=2;b++) - for(c=0;c<=2;c++){ - if(epsilon(a,b,c) == 0) continue; - eabc = epsilon(a,b,c); - for(ap=0;ap<=2;ap++){ - for(bp=0;bp<=2;bp++) - for(cp=0;cp<=2;cp++){ - if(epsilon(ap,bp,cp) == 0) continue; - eabcp = epsilon(ap,bp,cp); - corr1 += eabc * eabcp * inv2 * ((UDD1[alpha][a][beta][b][epsilx][cp]-UDD1[beta][a][alpha][b][epsilx][cp]) * (UDD2[delta][ap][gammax][b][phi][cp] - UDD2[gammax][ap][delta][b][phi][cp])); - corr2 += eabc * eabcp * inv2 * ((UDD1[delta][a][gammax][bp][phi][c] - UDD1[gammax][a][delta][bp][phi][c]) * (UDD2[alpha][ap][beta][bp][epsilx][c]-UDD2[beta][ap][alpha][bp][epsilx][c])); - }; - }; - }; - - return corr1 - corr2; - -} - -multi1d Nucleon_system::calcExchangeDD4(int alpha, int beta, int gammax, int delta, int epsil, int phix, - const udd& UDD1, const udd& UDD2) -{ - /* - Calculates the double quark exchange: for example, for neutron, it's one of the down quarks. For the proton, - it's one of the up quarks - */ - multi1d corr1( lat_size[3] ); - multi1d corr2( lat_size[3] ); - multi1d inv2( lat_size[3] ); - multi1d eabc( lat_size[3] ); - multi1d eabcp( lat_size[3] ); - int a,ap; - int b,bp; - int c,cp; - - corr1 = 0.0; - corr2 = 0.0; - inv2 = 0.5; - - for(a=0;a<=2;a++) - for(b=0;b<=2;b++) - for(c=0;c<=2;c++){ - if(epsilon(a,b,c) == 0) continue; - eabc = epsilon(a,b,c); - for(ap=0;ap<=2;ap++){ - for(bp=0;bp<=2;bp++) - for(cp=0;cp<=2;cp++){ - if(epsilon(ap,bp,cp) == 0) continue; - eabcp = epsilon(ap,bp,cp); - corr1 += eabc * eabcp * inv2 * ((UDD1[alpha][a][beta][b][phix][cp]-UDD1[beta][a][alpha][b][phix][cp]) * (UDD2[delta][ap][epsil][bp][gammax][c] - UDD2[epsil][ap][delta][bp][gammax][c])); - corr2 += eabc * eabcp * inv2 * ((UDD1[delta][a][epsil][b][gammax][cp] - UDD1[epsil][a][delta][b][gammax][cp]) * (UDD2[alpha][ap][beta][bp][phix][c]-UDD2[beta][ap][alpha][bp][phix][c])); - }; - }; - }; - - return corr1 - corr2; - -} - diff --git a/hadron_PDF/nucleon.h b/hadron_PDF/nucleon.h deleted file mode 100644 index 89d8c5a..0000000 --- a/hadron_PDF/nucleon.h +++ /dev/null @@ -1,147 +0,0 @@ -// -*- C++ -*- -// $Id$ -/*! \file - * \brief Nucleon- definitions - */ - -#include "chromabase.h" -#include -#include -#include -#include -#include "mom_project.h" -#include "udd.h" -#include "readwrite.h" -//#include "spin_matrix.h" - -using namespace QDP; - -#ifndef __nucleon_system_h__ -#define __nucleon_system_h__ - -class Nucleon_system -{ -public: - - // Default constructor -- forward declaration - Nucleon_system(){ - }; - - // UDD blocks - udd blockG1pU; //G1p_e1_r1; - udd blockG1pD; //G1p_e1_r2; - - // initialization routine - int initialize(const multi1d& src,const multi1d& mom, const multi1d& latsize,std::string dirname, std::string basename, std::string spin); - - int setSmatrices(const LatticePropagator& prop); - int setSmatrices(const LatticePropagator& prop1, const LatticePropagator& prop2); - int setSmatrices(const LatticePropagator& prop1, const LatticePropagator& prop2, const LatticePropagator& prop3); - - int calcBlock(const LatticePropagator& prop); - int calcBlock(const LatticePropagator& prop1, const LatticePropagator& prop2, int qperm); - int calcBlock(const LatticePropagator& prop1, const LatticePropagator& prop2, const LatticePropagator& prop3); - - // routines for calculating terms needed for dressed quark propagators - int calcDirect(const LatticePropagator& prop1); - int calcExchange(const LatticePropagator& prop1, const LatticePropagator& prop2); - - // nucleon mass routines - int calcMassFromBlocks(); - int writeMass(); - - // calculates NN correlators - int calc_G1pG1p_A1p(); - - // free memory - int free(); - - bool doChecks; - - // nucleon correlator - multi1d corrU; - multi1d corrD; - multi1d direct; // spin averaged correlator - - multi1d exch1,exch2,exch3; // spin averaged exchange terms - -// LatticePropagator QPP; // dressed up quark with proton -// LatticePropagator QNN; // dressed up quark with neutron -// LatticePropagator QPN; // dressed exchange quark with proton/neutron - -private: - - // where to write things out. . . - std::string dirname; - std::string basename; - - multi1d lat_size; - - // Lattice color matrices - multi2d S1; - multi2d S2; - multi2d S3; - - multi1d UDD_permuted(int alpha, int a, int beta, int b, int gamma, int c, int alphap, int betap, int gammap); - LatticeComplex UDD_unpermuted(int alpha, int a, int beta, int b, int gamma, int c, int alphap, int betap, int gammap); - multi1d UDD_UDD_permuted(int alpha, int beta, int gamma, int delta, int epsilon, int phi, - const udd& UDD1, const udd& UDD2); - - // calculates direct diagram - multi1d calcDirect(int alpha, int beta, int gamma, int delta, int epsilon, int phi, - const udd& UDD1, const udd& UDD2); - - // calculates exchange diagram - // multi1d calcExchange(int alpha, int beta, int gamma, int delta, int epsilon, int phi, - // const udd& UDD1, const udd& UDD2); - - // calculates exchange diagram - multi1d calcExchangeDD1(int alpha, int beta, int gamma, int delta, int epsilon, int phi, - const udd& UDD1, const udd& UDD2); - - // calculates exchange diagram - multi1d calcExchangeDD2(int alpha, int beta, int gamma, int delta, int epsilon, int phi, - const udd& UDD1, const udd& UDD2); - - // calculates exchange diagram - multi1d calcExchangeDD3(int alpha, int beta, int gamma, int delta, int epsilon, int phi, - const udd& UDD1, const udd& UDD2); - - // calculates exchange diagram - multi1d calcExchangeDD4(int alpha, int beta, int gamma, int delta, int epsilon, int phi, - const udd& UDD1, const udd& UDD2); - - - // calculates exchange diagram - multi1d calcExchangeU(int XX1, int beta, int gamma, int XX2, int epsilon, int phi, - const udd& UDD1, const udd& UDD2); - - // zero momentum container - mom_project Pxyz; - - // read/write container - readwrite rw; - - // where the source is located - multi1d srce_pt; - multi1d p_mom; - - // calculates the UDD blocks - int calcNucleon_blocks(udd& block, int mu1, int mu2, int mu3); - - // multiplies a scalar with a multi1d color matrix - multi1d scalarMult(double coeff, multi1d md1cm); - - // tells how to order the quark propagators for different sources. . . - int quarkPerm; // 111 all quarks at the same source - // 112 first two quarks at the same source, the last different - // . . . - // 123 all quarks have different sources. - - SpinMatrixD ProjG; - SpinMatrixD ProjS; - -}; - - -#endif diff --git a/hadron_PDF/nucleon.ini.xml b/hadron_PDF/nucleon.ini.xml deleted file mode 100644 index 8a47dcc..0000000 --- a/hadron_PDF/nucleon.ini.xml +++ /dev/null @@ -1,42 +0,0 @@ - - - - - - - Read in the propagator - QIO_READ_NAMED_OBJECT - 1 - - t160z0y0x0_sh_pt - LatticePropagatorF - - - ./props/prop_test.out - - - - - NOW DO SOME NUCLEON MEASUREMENTS - NUCLEON_SYSTEM - 1 - - ./data/ - true - 16 - - - default_gauge_field - t160z0y0x0_sh_pt - - - - - - 4 4 4 32 - - - SZINQIO - ./cfgs/wilson_k0.1665_b5.32144_4by32_cfg_4000.lime - - diff --git a/hadron_PDF/permutations.cc b/hadron_PDF/permutations.cc deleted file mode 100644 index b1a0f02..0000000 --- a/hadron_PDF/permutations.cc +++ /dev/null @@ -1,34 +0,0 @@ -#include "permutations.h" -using namespace std ; - -string sign2string(const Permutation& p){ - string s ; - if(p.sign()>0) - s = "+"; - else - s = "-"; - return s ; -} - - -int epsilon(const multi1d& sigma){ - int num(1),dnum(1) ; - for(int i(0);i i(3); - i[0]=a ; i[1]=b; i[2]=c ; - return epsilon(i); -} - -int delta(int a, int b){ - if(a==b) return 1 ; - return 0 ; -} diff --git a/hadron_PDF/permutations.h b/hadron_PDF/permutations.h deleted file mode 100644 index 03c0255..0000000 --- a/hadron_PDF/permutations.h +++ /dev/null @@ -1,136 +0,0 @@ - -#include "chromabase.h" - - -#ifndef _permutations_h_ -#define _permutations_h_ - -using namespace QDP ; - - -class Permutation { -private: - multi1d sigma ; - - int count ; - int NumPerm ; - - bool check(const multi1d& p){ - - for(int i(0);i& p){ - for(int i(0);i=p.size()) - return false ; - return true ; - } - - void calc_NumPerm(){ - NumPerm = 1 ; - for(int i(0);i& p){ - sigma.resize(p.size()); - set(p); - } - - void set(const multi1d& p){ - if(p.size() != sigma.size()){ - QDPIO::cerr<<"incompatible sizes. Abord!\n"; - QDP_abort(123); - } - if(bound_checks(p)){ - if(check(p)) - sigma = p ; - else{ - QDPIO::cerr<<"not a permutation!\n"; - QDP_abort(112) ; - } - } - else{ - QDPIO::cerr<<"not a permutation. out of bounds!\n"; - QDP_abort(124) ; - } - } - - int sign() const { - int num(1),dnum(1) ; - for(int i(0);i=n) - { - sigma[i]=0 ; - if(i& sigma); -int epsilon(int a, int b, int c); -int delta(int a, int b); - -#endif diff --git a/hadron_PDF/pion_correlator b/hadron_PDF/pion_correlator deleted file mode 100644 index 0678259..0000000 --- a/hadron_PDF/pion_correlator +++ /dev/null @@ -1,139 +0,0 @@ - - - - - - 0 - 0 0 0 - - - 0.000316149306877398 - -2.0787038779496e-05 - - - 0.0354263781299563 - -0.000200178753505787 - - - 0.00613424884347632 - -4.61609650419339e-05 - - - 0.0011507026776336 - -9.57294404070685e-06 - - - 0.000204409340547605 - 2.85429188658285e-07 - - - 3.39576994340861e-05 - 2.64287458166745e-07 - - - 5.65597040326041e-06 - 6.11628366337188e-08 - - - 9.26562583992686e-07 - 7.51191540885574e-09 - - - 1.50479664750351e-07 - 1.03803052057499e-09 - - - 2.47201154340183e-08 - 8.61250530830231e-11 - - - 3.83729858871796e-09 - -4.36479479185047e-14 - - - 5.76835237314968e-10 - -1.2085635504976e-12 - - - 8.89801113318363e-11 - -5.8143979970378e-13 - - - 1.29350666025155e-11 - -7.22174817528003e-14 - - - 1.86665319685708e-12 - -5.34345524419343e-15 - - - 2.82527229563845e-13 - -4.28169774454631e-16 - - - -1.91123020083935e-14 - 5.60367845011581e-16 - - - -3.12466544757803e-13 - 1.47661114493769e-15 - - - -2.02465726189904e-12 - 6.23203149001652e-16 - - - -1.24833807896504e-11 - -2.24568009789173e-14 - - - -7.5013256475622e-11 - -2.03493987821847e-13 - - - -4.52311769247782e-10 - -1.57697916404565e-12 - - - -2.86942865984695e-09 - -6.37360070045698e-12 - - - -1.59854359813869e-08 - -4.3397975076794e-11 - - - -9.60951556246504e-08 - -2.85134294877546e-10 - - - -6.55686071037868e-07 - -1.80958467837218e-09 - - - -4.38869344988429e-06 - -2.2399696732012e-08 - - - -2.87857694878058e-05 - -1.20451745396732e-07 - - - -0.000197219491184725 - -7.44812359330351e-07 - - - -0.00134744076549644 - -1.78436000483862e-06 - - - -0.00754022818001874 - -2.95531542480967e-05 - - - -0.0396294986794771 - -6.67964026056027e-05 - - - - \ No newline at end of file diff --git a/hadron_PDF/readwrite.cc b/hadron_PDF/readwrite.cc deleted file mode 100644 index c10669b..0000000 --- a/hadron_PDF/readwrite.cc +++ /dev/null @@ -1,233 +0,0 @@ -// -*- C++ -*- -// $Id$ -/*! \file - * \brief Momentum projection routines definitions - */ - -#include "chromabase.h" -#include -#include -#include -#include -#include "chroma.h" -#include "readwrite.h" -using namespace QDP; - -int readwrite::writeCorrelator(const multi1d& corr, std::string name, int type, int Nt, multi1d& srce_pt) -{ - std::fstream outre; - std::fstream gplout; - std::string typere,gpltypere; - int tr; - Real re,im; - - if(Layout::primaryNode()) { - typere=name; - gpltypere=name+"_gpl"; - outre.open(typere.c_str(),std::ios::out|std::ios::app); - gplout.open(gpltypere.c_str(),std::ios::out|std::ios::app); - outre << srce_pt[0]; - outre << " " << srce_pt[1]; - outre << " " << srce_pt[2]; - outre << " " << srce_pt[3]; - gplout << "# " << srce_pt[0] << " " << srce_pt[1] << " " << srce_pt[2] << " " << srce_pt[3] << "\n"; - for(int t=0;t= Nt){ - tr=(t+srce_pt[3]-Nt); - re = type * real(corr[tr]); - im = type * imag(corr[tr]); - outre << " " << re; - gplout << t << " " << re << " " << im << "\n"; - }else{ - tr=t+srce_pt[3]; - re = real(corr[tr]); - im = imag(corr[tr]); - outre << " " << re; - gplout << t << " " << re << " " << im << "\n"; - }; - }; - outre << "\n"; - outre << " "; - for(int t=0;t= Nt){ - tr=(t+srce_pt[3]-Nt); - im = type * imag(corr[tr]); - outre << " " << im; - }else{ - tr=t+srce_pt[3]; - im = imag(corr[tr]); - outre << " " << im; - }; - }; - outre << "\n"; - outre.close(); - - gplout << "\n\n\n"; - gplout.close(); - } - - return 0; - -} - -int readwrite::writeCorrelator(const multi1d& corr, std::string name, int type, int Nt, - multi1d& srce_pt1, multi1d& srce_pt2) -{ - std::fstream outre; - std::fstream gplout; - std::string typere,gpltypere; - int tr; - Real re,im; - - if(Layout::primaryNode()) { - typere=name; - gpltypere=name+"_gpl"; - outre.open(typere.c_str(),std::ios::out|std::ios::app); - gplout.open(gpltypere.c_str(),std::ios::out|std::ios::app); - outre << srce_pt1[0]; - outre << " " << srce_pt1[1]; - outre << " " << srce_pt1[2]; - outre << " " << srce_pt2[0]; - outre << " " << srce_pt2[1]; - outre << " " << srce_pt2[2]; - outre << " " << srce_pt2[3]; - gplout << "# " << srce_pt1[0] << " " << srce_pt1[1] << " " << srce_pt1[2] << " " << - srce_pt2[0] << " " << srce_pt2[1] << " " << srce_pt2[2] << " " << srce_pt2[3] << "\n"; - for(int t=0;t= Nt){ - tr=(t+srce_pt1[3]-Nt); - re = type * real(corr[tr]); - im = type * imag(corr[tr]); - outre << " " << re; - gplout << t << " " << re << " " << im << "\n"; - }else{ - tr=t+srce_pt1[3]; - re = real(corr[tr]); - im = imag(corr[tr]); - outre << " " << re; - gplout << t << " " << re << " " << im << "\n"; - }; - }; - outre << "\n"; - outre << " "; - for(int t=0;t= Nt){ - tr=(t+srce_pt1[3]-Nt); - im = type * imag(corr[tr]); - outre << " " << im; - }else{ - tr=t+srce_pt1[3]; - im = imag(corr[tr]); - outre << " " << im; - }; - }; - outre << "\n"; - outre.close(); - - gplout << "\n\n\n"; - gplout.close(); - } - - return 0; - -} - -int readwrite::writeAvgCorrelator(const multi1d& corr, std::string name, int type, int Nt, int t0) -{ - std::fstream inAvg,outAvg; - std::string typeAvg; - int tr; - int t; - multi1d corrAvg(2*Nt); - double avg; - Real re; - int Navg; - - if(Layout::primaryNode()) { - typeAvg=name+"_avg"; - inAvg.open(typeAvg.c_str(),std::ios::in); - - if(! inAvg ) { /* file does not exist */ - inAvg.close(); - outAvg.open(typeAvg.c_str(),std::ios::out); - - outAvg << "1"; - - for(t=0;t= Nt){ - tr=(t+t0-Nt); - re = type * real(corr[tr]); - outAvg << " " << re; - }else{ - tr=t+t0; - re = real(corr[tr]); - outAvg << " " << re; - }; - }; - outAvg << "\n"; - - outAvg << " "; - for(t=0;t= Nt){ - tr=(t+t0-Nt); - re = type * imag(corr[tr]); - outAvg << " " << re; - }else{ - tr=t+t0; - re = imag(corr[tr]); - outAvg << " " << re; - }; - }; - outAvg << "\n"; - outAvg.close(); - } else { /* file exists ! */ - - inAvg >> Navg; - for(t=0;t<2*Nt;t++) { /* Read in averaged correlator */ - inAvg >> avg; - corrAvg[t] = avg; - corrAvg[t] *= Navg; - }; - - inAvg.close(); - - for(t=0;t= Nt){ - tr=(t+t0-Nt); - corrAvg[t] += type * real(corr[tr]); - corrAvg[t] /= (Navg+1); - corrAvg[t+Nt] += type * imag(corr[tr]); - corrAvg[t+Nt] /= (Navg+1); - }else{ - tr=t+t0; - corrAvg[t] += real(corr[tr]); - corrAvg[t] /= (Navg+1); - corrAvg[t+Nt] += imag(corr[tr]); - corrAvg[t+Nt] /= (Navg+1); - }; - }; - Navg += 1; - - outAvg.open(typeAvg.c_str()); - - outAvg << Navg; - - for(t=0;t -#include -#include -#include -using namespace QDP; - -#ifndef __readwrite_h__ -#define __readwrite_h__ - -class readwrite -{ - public: - - int writeCorrelator(const multi1d& corr, std::string name, int type, int Nt, multi1d& srce_pt); - int writeCorrelator(const multi1d& corr, std::string name, int type, int Nt, - multi1d& srce_pt1, multi1d& srce_pt2); - int writeAvgCorrelator(const multi1d& corr, std::string name, int type, int Nt, int t0); - - private: - -}; - - -#endif diff --git a/hadron_PDF/udd.h b/hadron_PDF/udd.h deleted file mode 100644 index d1bef6f..0000000 --- a/hadron_PDF/udd.h +++ /dev/null @@ -1,334 +0,0 @@ -#ifndef __udd_h__ -#define __udd_h__ - -#include "qdp.h" -#include "myMultiD.h" - -using namespace std; -using namespace QDP; - -template class udd -{ - public: - // Basic constructor - udd() {F=0;n1=n2=n3=n4=n5=n6=n7=sz=0;copymem=false;} - udd(T *f, int ns7, int ns6, int ns5, int ns4, int ns3, int ns2, int ns1) {F=f; n1=ns1; n2=ns2; n3=ns3; n4=ns4; n5=ns5; n6=ns6; n7=ns7; sz=n1*n2*n3*n4*n5*n6*n7; copymem=true;} - explicit udd(int ns7, int ns6, int ns5, int ns4, int ns3, int ns2, int ns1) {copymem=false;F=0;resize(ns7,ns6,ns5,ns4,ns3,ns2,ns1);} - ~udd() {if (! copymem) {delete[] F;}} - - //! Copy constructor - udd(const udd& s): copymem(false), n1(s.n1), n2(s.n2), n3(s.n3), n4(s.n4), n5(s.n5), n6(s.n6), n7(s.n7), sz(s.sz), F(0) - { - resize(n7,n6,n5,n4,n3,n2,n1); - - for(int i=0; i < sz; ++i) - F[i] = s.F[i]; - } - - //! Allocate mem for the array - void resize(int ns7, int ns6, int ns5,int ns4, int ns3, int ns2, int ns1) - { - if(copymem) { - cerr <<"udd block: invalid resize of a copy of memory" << endl; - exit(1); - } - - // Only delete if the array is not NULL. If it is NULL - // deleting may be bad - if ( F != 0x0 ) { - delete[] F; - } - - n1=ns1; n2=ns2; n3=ns3; n4=ns4; n5=ns5; n6=ns6; n7=ns7; sz=n1*n2*n3*n4*n5*n6*n7; F = new(nothrow) T[sz]; - if( F == 0x0 ) { - QDP_error_exit("Unable to new memory in udd block::resize(%d %d %d %d,%d,%d,%d)\n",ns7,ns6,ns5,ns4,ns3,ns2,ns1); - } - } - - //! Size of array - int size1() const {return n1;} - int size2() const {return n2;} - int size3() const {return n3;} - int size4() const {return n4;} - int size5() const {return n5;} - int size6() const {return n6;} - int size7() const {return n7;} - - // Return reference to an element - T& operator()(int o, int n, int m, int l, int k, int j, int i) {return F[i+n1*(j+n2*(k+n3*(l+n4*(m+n5*(n+n6*(o))))))];} - const T& operator()(int o, int n, int m, int l, int k, int j, int i) const {return F[i+n1*(j+n2*(k+n3*(l+n4*(m+n5*(n+n6*(o))))))];} - // const T& operator()(int l, int k, int j, int i) const {return F[i+n1*(j+n2*(k+n3*(l+n4*(m+n5*(n+n6*(o))))))];} - - - // Return multi6d reference - multi6d operator[](int o) {return multi6d(F+n1*n2*n3*n4*n5*n6*o,n6,n5,n4,n3,n2,n1);} - const multi6d operator[](int o) const {return multi6d(F+n1*n2*n3*n4*n5*n6*o,n6,n5,n4,n3,n2,n1);} - - // Return multi1d reference - // multi1d operator[][][][][][](int o, int n, int m, int l, int k, int j) {return multi1d(F+n1*(j+n2*(k+n3*(l+n4*(m+n5*(n+n6*(o)))))),n1);} - // const multi1d operator[][][][][][](int o, int n, int m, int l, int k, int j) const {return multi1d(F+n1*(j+n2*(k+n3*(l+n4*(m+n5*(n+n6*(o)))))),n1);} - - //! Equal operator uses underlying = of T - udd& operator=(const udd& s1) - { - resize(s1.size7(), s1.size6(), s1.size5(), s1.size4(), s1.size3(), s1.size2(), s1.size1()); - - for(int i=0; i < sz; ++i) - F[i] = s1.F[i]; - return *this; - } - - template udd& operator=(const T1& s1) - { /* sets equal to a constant */ - if(F==0) - { - cerr<<"udd block: left hand side not initialized" << endl; - exit(1); - }; - - for(int i=0; i < sz; ++i) - F[i] = s1; - return *this; - } - - //! Add-replace operator uses underlying += of T - udd& operator+=(const udd& s1) - { - if ( size1() != s1.size1() || size2() != s1.size2() - || size3() != s1.size3() || size4() != s1.size4() - || size5() != s1.size5() || size6() != s1.size6() - || size7() != s1.size7() ) - { - cerr << "udd block: Sizes incompatible in +=" << endl; - exit(1); - }; - - for(int i=0; i < sz; ++i) - F[i] += s1.F[i]; - return *this; - } - - template udd& operator+=(const T1& s1) - { /* adds a constant */ - if(F==0) - { - cerr<<"udd block: left hand side not initialized" << endl; - exit(1); - }; - - for(int i=0; i < sz; ++i) - F[i] += s1; - return *this; - } - - //! Subtract-replace operator uses underlying -= of T - udd& operator-=(const udd& s1) - { - if ( size1() != s1.size1() || size2() != s1.size2() - || size3() != s1.size3() || size4() != s1.size4() - || size5() != s1.size5() || size6() != s1.size6() - || size7() != s1.size7() ) - { - cerr << "udd block: Sizes incompatible in -=" << endl; - exit(1); - }; - - for(int i=0; i < sz; ++i) - F[i] -= s1.F[i]; - return *this; - } - - template udd& operator-=(const T1& s1) - { /* subtracts a constant */ - if(F==0) - { - cerr<<"udd block: left hand side not initialized" << endl; - exit(1); - }; - - for(int i=0; i < sz; ++i) - F[i] -= s1; - return *this; - } - - //! Multiply-replace operator uses underlying *= of T - udd& operator*=(const udd& s1) - { - if ( size1() != s1.size1() || size2() != s1.size2() - || size3() != s1.size3() || size4() != s1.size4() - || size5() != s1.size5() || size6() != s1.size6() - || size7() != s1.size7() ) - { - cerr << "udd block: Sizes incompatible in *=" << endl; - exit(1); - }; - - for(int i=0; i < sz; ++i) - F[i] *= s1.F[i]; - return *this; - } - - template udd& operator*=(const T1& s1) - { /* multiplies a constant */ - if(F==0) - { - cerr<<"udd block: left hand side not initialized" << endl; - exit(1); - }; - - for(int i=0; i < sz; ++i) - F[i] *= s1; - return *this; - } - //! Divide-replace operator uses underlying /= of T - udd& operator/=(const udd& s1) - { - if ( size1() != s1.size1() || size2() != s1.size2() - || size3() != s1.size3() || size4() != s1.size4() - || size5() != s1.size5() || size6() != s1.size6() - || size7() != s1.size7() ) - { - cerr << "udd block: Sizes incompatible in /=" << endl; - exit(1); - }; - - for(int i=0; i < sz; ++i) - F[i] /= s1.F[i]; - return *this; - } - - template udd& operator/=(const T1& s1) - { /* divides a constant */ - if(F==0) - { - cerr<<"udd block: left hand side not initialized" << endl; - exit(1); - }; - - for(int i=0; i < sz; ++i) - F[i] /= s1; - return *this; - } - - - multi1d uddTrace(int l, int k, int j) const - { - multi1d traced(n1); - - for( int i=0; i < n1; ++i) - traced[i] = trace( F[ i + n1*( j + n2*( k + n3*( l ) ) ) ] ); - - return traced; - } - - -private: - bool copymem; - int n1; - int n2; - int n3; - int n4; - int n5; - int n6; - int n7; - int sz; - T *F; -}; - -// add two udd blocks -template< typename T > inline udd operator+(const udd& a, const udd& b) -{ - udd c(a); - c+=b; - return c; -} - -// subtract two udd blocks -template< typename T > inline udd operator-(const udd& a, const udd& b) -{ - udd c(a); - c-=b; - return c; -} - -// multiply two udd blocks -template< typename T > inline udd operator*(const udd& a, const udd& b) -{ - udd c(a); - c*=b; - return c; -} - -// divide two udd blocks -template< typename T > inline udd operator/(const udd& a, const udd& b) -{ - udd c(a); - c/=b; - return c; -} - -// add scalar with udd block -template< typename T > inline udd operator+(const T& s, const udd& a) -{ - udd c(a); - c+=s; - return c; -} - -template< typename T > inline udd operator+(const udd&a, const T& s) -{ - udd c(a); - c+=s; - return c; -} - -// subtract scalar with udd block -template< typename T > inline udd operator-(const T& s, const udd& a) -{ - udd c(a); - c-=s; - return c; -} - -template< typename T > inline udd operator-(const udd&a, const T& s) -{ - udd c(a); - c-=s; - return c; -} - -// multiply scalar with udd block -template< typename T > inline udd operator*(const T& s, const udd& a) -{ - udd c(a); - c*=s; - return c; -} - -template< typename T > inline udd operator*(const udd& a, const T& s) -{ - udd c(a); - c*=s; - return c; -} - -// divide scalar with udd block -/* -template< typename T > inline udd operator/(const T& s, const udd& a) -{ - udd c(a); - c/=s; - return c; -} -*/ - -template< typename T > inline udd operator/(const udd& a, const T& s) -{ - udd c(a); - c/=s; - return c; -} - - - -#endif