(* Content-type: application/vnd.wolfram.cdf.text *) (*** Wolfram CDF File ***) (* http://www.wolfram.com/cdf *) (* CreatedBy='Mathematica 10.2' *) (*************************************************************************) (* *) (* The Mathematica License under which this file was created prohibits *) (* restricting third parties in receipt of this file from republishing *) (* or redistributing it by any means, including but not limited to *) (* rights management or terms of use, without the express consent of *) (* Wolfram Research, Inc. For additional information concerning CDF *) (* licensing and redistribution see: *) (* *) (* www.wolfram.com/cdf/adopting-cdf/licensing-options.html *) (* *) (*************************************************************************) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 1064, 20] NotebookDataLength[ 343612, 7554] NotebookOptionsPosition[ 315534, 6931] NotebookOutlinePosition[ 341783, 7492] CellTagsIndexPosition[ 341670, 7486] WindowTitle->Parameterizing Temperature-Viscosity Relations WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ ButtonBox[ GraphicsBox[RasterBox[CompressedData[" 1:eJztvXmUXldxL8p6zzeKUCRHkqVWz3O3utWTutWjWq1u9dz9SdbgSZ7AI1OY zTzYYAaDAeMRCBAgkITRBG5CSBjuS2KbKe+9mwQCa717c1+A/HnXBfL+5rxT e6yqXft8p1uyJNubtYrznb1r1/Cr2lXbZ1ty662vPH3n//a85z3vtb+b/9/p W94w95rX3PKmM5flL8fedNcdt/7v+Y+unL7+O897Hgw+Odf5PxOdb+pIlChR oqeZLnadS5QoUaJEiRJdIPqtoYttR6JEzzT67ZNp/yRKVIZ+W0AX27ZEiS4W Fe2LzeyVjcpLlOjZQOd1X/7fC51ZogtP/1ei5wRd7DxL9Mzb5+Xld110/xIl SpQoUaJEiRIlSpQoUaJEiRIlSpTo6ab/tro/0Xmn7uq0kigRojI5k+gZRf/P ORDUkf9eiroTJUqUKFGiRIkSJUqUKFGiRIkSJUqU6FlN/2O1+38mSpTo4tO/ JnrW0H8X6L+tFBPm/Vf0jNHFztdEiRIlSpQo0QWj3xq62HYkSvRMo9/+j7R/ EiUqQ78toIttW6JEF4uK9sVm9spG5SVK9Gyg87ovf3PteFZE/4HoN+x3QNcg isgpwxudvyZGY4T3PwSq5tv5JBnLsQIqjsHG1/G5It1Fcsc2qH+zeqrJ2Cie m9V/LnZWi2H5ffbcpImCcT33/5GxSTR3sahcDfj1NZ5+ldcqiTCPXztRNTfO Ne8KSdXVkP4jt/E/hBr8H4YUn90XERmJEiVKlChRokSJEiVKlChRokSJEiVK VJYGWjtyas/682d//hxo8dTPSPFJ42YOZA0qeR1urK+lLScuJ+dry3naOpx+ pa/VyrPjmpRdOQ3adWYNvA+1d+ZjXYoUbwtQm6O+Vni2Zn3N7Yr6mzuUfODr U9Sun81t6He7+d1u+KwfVp6WqfxpRmR4+w1PH7ID9Grb2s0TyQX+Vi97AAjr UXMam77WDoRnW0hGln0fUHa2Eb3W937nn8fBrgf9A06uwaPZ8Li1FhOwsdXE z9tHbIXfKpZmbWs7sbkPYtSK7dTPAednqyGEPfBZ7I1cpQ+wbja6m31eqafL MY81tcPY2Or97Gs1scR2trYH1NfS7tZp3+16kxOWz/428wMoLk5nS4fJVe1D X0uH2Rd+D/n1Xu9As5eJ95SLd6vPa7wntd/4Ha1x+7vd70mWT7Z+eFkdJuZG FopPn60lpJ60GZtRfsAeb2rNBnLqa+vMelo7s97mThX/3taG7EBrY3agrVlR X1urjo0hnY8QrxZNrXbO/G71PJpaswNqTs/j31oGlm/elRwsW78faNU6D7R4 WQfg2dysqBc9exWffva6NciGFvrUsoBXv/t1rUanscnqRDLd+hY6rm1udTKt 3ANkjZbZm491tDdm3S2NOU+zmWtWudqVU2cep96c+hshbi2mRuB92+rrFKtZ tOa0+VqB8tDXFpxTuObruA5g+TYnbB2E2tDc4Wu2q+Edpk77eh7U+BgRXmR3 c7s83oLesd7YPOGje5esdXo6qG2BrdxX7E8HXed86cgCnAhhnRHdgc4Owb6I XD4eyMQ4CWsJHh0yX3NHOM/1FPkcsxf7HcSB28b5Ge4YMwGPvTUN2Z69OdU0 qie8qzHybCRjey3f3kb9ey8d32NkUltYzjUzm5o5jih3pTwgfnUw7LgcIfYS jty+QA73p0heLB86mB1SvAQ/+F7nenBcxTxuz0KsmO1k7/J8E7AWawirO1K9 itVNfF4ssj/Ic7anOO687op2CTnH9zGvQwR/4UnO8NwHIb58nwd1vYPK5T2I 2M9zRvA7wIzXCakOxeLB1/Hckezm9vJ9JOVAR0QejzteJ/EJOS7uJ64L5zH7 zWsb/+c4SVaQOxLmXEZ7KFOqq1IN4jVR6sPBftf8bQ2titoNtTW0Ze2NrW7c zrU1tlGeBvxu+BrNeKP+7eW2eGrUz2Av5bZBr3F9y/aioG81hH0L9TjSy1Df sn1tj+1veC0aU/ymNzp79trxBt9PnY5GqqcmpD3GD8e7V5pDfu318iwOGpNG Z8dexEf1NQY2c4z27G0MMSXY0HODi8PeRm9TjaCbnzX2hrh4n9gZJOILjQvC BeUJ9YHGfQ+Th313Y05/I7KN4SfkH7d7j7GX2yTnUiOT3xj6iPeBjY9kA4sB PvdZOQRTcT+ZNXupz1ZG6lupb11KfUvUJ55/uT3cRuYrkS/lmmRDQWzxWZTn HJ/neyGwOZbLXH8JamF48Tzi43z/8/N/UB+EfOV+8loRxIxhHuAj5EeQj5K9 wl6J7XspJrHawOXy8UAmyxcxBkKuE9s7wnmuR7BNn9fgXOfPdm2Nrebs1krO dv7Zxs51mNrQurZwvrHVnPsEPFqYnzwW0Vh57C7btS/7T7tqsst2wjOnnTXq HRPMXQa/7ZzldWPo9047798vUzJq0Jhe73UjfWgNsQPJvszasJON4zGypsbb jwnLJrbZOS/zMiVjH7UVr0F8XvY+P4dt3uUxcdg4/GN+7GMYhjhdFviCZKOn x28f4bts1z6KgbVl1z6qi+HuZdi4Unz4uxgH/nS5SG2nuYnGdnr+y5hdPmd5 zH2eXob8sTjTvPUYXIbWXhaRR/xg/uEccvju8jbgXMX6L3PrbU7tI/aGe2if yzFiu5hPfl95Hh6zfU6u920fwxTbsY/5wOS59dR/HCu81ucny02eW9gPkiNC HIL96t8pXpG8R/uE7n0fX+/DXk279uqx34d5/Q7j1t7LED6XCfs02APYTmkv YRnB/qF7IPAX4XcZyvcYLqEdyPagvliM9wV2hnXU/74Mxzaaf3JeXIb94bUW jXsfWf7wmmZ5sS24/7GcCsatT+7J9wLLOV7LpLiz2F+2k6/ZF/oh1Kn/xPYb 10Pq0S4cS+PHTlx/cB7zOonfpXgwvCJ8ND7ynvE2U9nkTMFyntRHnFe72H7E OYbiinM8qHEklyQ8WD/AvZjXNWwnx2gX1ZPOfZw/nfvSuY/GCMtP57507gvy sfS5D8neyWK30+fVc/3cl/oWkxfERIhz6lvE3tS3qPzUt1LfCvIx9S1Wb9ie QPlI64vct+Q66n+n7xWxnOc60D4ga/aFfqTvFcjHfYGPz6TvFX6v2r3Ez2cS hvuIvt/ZXZvTvmxLTr+zSz/VbxjfVWvGNY/l1fy15AlrFZ9dQ+TS9Vuk8V3e BrfOraml+nbVOj4+b2W69bs8D9bl/eNraxl/LmsXXreP6OZ2+jEqA2PscUN+ Y7m70Npd3k6PHfPR8XmbtmA/dzP7mQ+/w2Ta2GzBax3u3i6in/iIcsLibG1z MmoDux0eYg7QWDp72VruJ47FFmLjPuYTyxGkewtbT3nknCH8dm+gnAvzS/AV 59uufUI8aYyCfRehLcGeQLjt8nXA72kpL/eZWMZyILSX7LVg7/CY8b1CMdqC 7WV739cVKXfCvfg7zC63j5D8LaSuhPlI6tguvDavsVBn1Tt67rTjmBDP7hov exetF8425AfNc44XjmmY61sYnxtHOtweEHoByQuMQ2CDHItwT2E7eJ3DvLXC /kZ1Afsa+M3yZZd/37KL+hHWIlZbTc3awsdQbZVyfUuARWTvk3xj8RRJsNFh wH4H8oW6hvEhewv3izBuAc48N3m/jdmC8SB8vP4gW0l/4fUAy6V9Y8tuapPb xzxnI/0z1kPw+i3knIX2m5TnKC85brzPb2E20bpo+wXFIJ37hDy0vqZzH9pT 3q507qNxD9fxvYtjyfNL8DWd+0huBjF5Rpz7pHzhczwGfN891859HCu8dyjm qW/xmPK6gvcvzndqR+pbQn6mvpX61u7Ut0J7ONV6zMm+e671LYpP+l4h5IyE b5GNDgP2O5Av1LX0vSLM2Uj/jPUQvP7p/l7h9nmADc9pIRZG1+9eUadpD3ty gvE9tWi+tnDdVr7WPWvDcTx2RRXePVhHrbYJrdti5QX8tbKeCG2V7IlhE/gj 4LEHySRz2q4tzheB9sTntnI+aT3CY6vRv5X7QnDk6/exp9a1dQ/6LWJb6/Rg PP3veodNEG9si8m9rQU+bt1DbYviIGEXievWaDxZTPYIMoX3rdyu6N6JxFT6 jZ+i3wxzpNPnJF67T5CBxg3fFuwzj80ejq8UL8Szh+exsNeYjK2SbWX2uFRH Su5tjVctW8/1MV93G7I25r+37kbjMbJrq+XyHoZzQQ5UrUV7MOk4bBUxq6X8 EVyr1chANukvJWRVq9HofSupebVyfcdzkfhuNfPBejQm13k2XgYnhlW8HrE8 LbCN1Hmp7uzxWElyovVEygssJ9jPgizJB2HdVq4fj200Z7jtOW2JxCdqk53n mEl8uOY6m02fDHpwBKOI3GicijBJ5764/TiXi9Zt+txn7C7EvoSdJeJb7tzH qZY9mQzcD9m683fuK87hrQX1rGqMz8u5T86brTF5WGbh3on4JfXbAr+rn/t4 rCM5YPi2sHNTeD6oLcSX5IVULwv6RIhz+X399J/7Ijaj2lnUT6vlhmiXoKMw 72O1aA+mS+Dcx3k2g1PqW6lvpb6FbEp9K8jt1LfiNqe+FeIe5G/6XhHzJX2v oHPpe8XG8JT5aU3ait6fv7c+pwbztL81bSPv9ei9XlgnvUuEZYXEdco6YnrD NdvYU14fzm0T/Nwm6vTvfH4bwvL5e3Os9+Tje+oKKNeBfsNzm6Hns3HKX18s ey/icXjY2NdREnXVVxmro3Y4ufVepqTL8RiM9ljbEGZ7sXzq67aoXfUGG88X 8kpr64jd2xxOdead40Sx4LGrpm8bWk9jLMchngdcD/Yf60Lvzo8YlliOFGf6 lO2P47yN2b+tqpxqvvOcxzkYp2p7uvpvnBPYX+r7VkR/cPNkTlNZZ2+b+ueZ 55u+sJXFqGhfb9sTxiKWQ27c5HRxfSuu6ZZnm6tvMRmYpLEGs7/i+otjw8e5 Hu/ntihfvbAG28WxKupvsn6OWTz/qH7uQ8yOcH212Pp3uQfTtdtEXbLdxXsN +0Bt2hZgFvLS2MTHfbzDuNK8pb2ex3sbk01lVMvJIgxitpddH46Xi4VUv9K5 j8+d/3Nfub3BYxjmRJgzxT7lVMNzLqwtxXlWLWekel8tVwTcg3NfLLfjMaI+ 4n0dq/PxPA7rQTE+8XpQVNek3CmzZ2J7m/vPa6hsq4wPr3O8BlSzP44z74Hb qsqp5nu1NTKd+7kv5m9sT8ZqVAOjIhm4LlTPIekMc2mf+4pwkzGUa1vMr83n U+pbsv7Ut1LfKrdnYnub+4918b0s2RLLFR5n+kx9i/tbrf7yGlVU62W7n719 q0xsYng2MBnpe0UYl/S9gveRZ9f3CklfuC9CrP3a36tpzH5vX2O2fZ95mndF Nei9Rnjfx37XNPgxMu7HtuNnDZOzL+QTKbJGnKuhOrdzHmxDzDeLkSCb40f5 GjTVMMpjsJ29w3ObITy+jdHvQQxr0BhaHzwNbd/rn9u5LY6/Plhv7SE2cN2C H/F3rWM70qPs4TiZ39bW7VbWXmabZEMEU8Jb1U5qo6XtiM/jWE/Wb9vrnw6v Il3CXJAb3BfnT/3m5O6l/BbfbUgPz0f3m8UhJhts42u3YZw4LjhX9zaI/nuq NzqYHBsnjofKr3pjo92fdg7VNTseqzGgN5/fbiiwE/3W/tabGPk+DPSn91Wy v/vk1dm/fv3mbH62X9+zqr1Bnw4/jrlIYS5sR0RstPst6ier0UItrVaPST/h dV6qo1I95j0oUtepzgb03hDwby9tQ4PA24D6SEPGfRXtl3qb8Qn3oyK7eE/2 zwaTj4Idgk6xX1eLb004t70mMi7pFeaieVWDYuj2LvfZ8jV4rGP5WiU/o75y zGpkm0PMGkLdLOfE3yVzJxrf6LmlIVjHz13p3FeEn4BNBD+RT7CR1woem+1W DqPteC/E7I7k73aul2DWEF3P91c0bkW11OZHjbCfInkv5oqQd9sZRWWXtjPM e15/yV6P1LCyNUjyh2Mi1yipN5WQK+HM9AS1oigXRNlhzQl6r6RLijHPZ465 hFUw3+BkBzWsprHkuQ/3/YKcqgn5NxIfjEEs98N93CDKKzzrVBm7aOc+53Pq W4X5VlT3MUaxes6xLbJPin9NGJvUt1LfIvsuErPUtyJYBfOpbz1j+hbXGbFR zqP0vSKmU8zPavEVanX6XiH7f8l9rxB8KYwD8uPy2uZsR06X1zVlO+rgqd93 1Db53zBeq+fsU82buR3uCTL8OiWzFs2bdzdfi5516Gl5sV40r20zety40a3k NRl9dK1dY9ftQHZcjvReXotkI1vwmh1I3o46io3Sz2lfU7bdPnPs9XhDTjo+ l8OYidUOs9e3m+cOsw92OB70uxb/bjTyQt2O1LvWr/ntuF+3fZ+e07Ib3BkV CGzZYd/t/jJ6rY7txGczz20AjM375fm8xqxRjV1e68d31HrbNG6+Lnt/DSbG 5mDcYKp8qW1wmNk4bDf+W10ekyaPiYsdHddYNjg/rT4SP2uD4mlyZHHAeDl/ nbxG977DyfYx34F4dqA1ODbbsR/EZ+wbzj2DlY13DdJn473P20jsq22kPju5 eBzpqKV+OJvdWJOz3+Hr8MZxtPZhbBt1bpn5y/eZ/LK5ZXPN8dqcY7lQ6/ku x7wkXtY+NIb2zg67f5D/cJf1sbev5OP1erwGYWz3meH3+dPofbf7ytqK9vF2 FGu895wf5vfltmabp67RTbRG4vqH6zGql74uN5v66ev3Dky2B9geU+vr9+VG t+XZ4ep1k6/fQc9BPavO137eB7jdTo7T1Yz6SVO2g9tv7LP2Xo7stP2Q9DBs n8MYrcV2s35D+hrGDfc6hI+TFetXrI/7MYwVxQBj7+LE+hzODdoHmyLj+FzA +nttE/Lf54GPfejD5cSuJo+lgO8ON8b0oBhSv1i+4L6P+z/KeY8Zk1PLbBdy 2M+hM5TbX3JeuP1XR+3C+ez8wsRjQfxL575zOvexfUd8rEX1zMj7fbx3UR3F /l2Of+O4830r1Dga8ya/lsUKx9zXYprzhKeW+V/LcCJxofOXBzjSPe7j1YQw R3uZxLKJxCrcN7YXeXtwjmNdNNci+43sBxzvJmqjqw8s71h9IPkj9NkddQwn vJ7VBVLrrCy8b4U1tA74uNv9xONL4ojy1u/tpsA+z4POUKSmoJypRbnHaozH h/nC88v1DX+28fuA53sTiiXaf7XMR4x/rdfD6xs+C9BeEcZ8B8Y3wAzZTfKH r2kifuFzGNePe/0lee7DNYXXr1qMm8c+9a3Ut1LfwrlG93rqWzSfU99qJvak voVijPJqQ33L+dAU+Bb2HFqP0vcKFq86ihetzxgrikH6XsHyBdUn0rcuxe8V NrZC7yH1ju8DlGO7GlqznfUt2c4GQ+o3jLXqZwN6t2P1elytJdTifzuZdE3I 20Jl1Atrc9rlxgVdZC2d3xXzh63bVc/kEFvwWAt9OpmAB8Iwp99X1Kyfdfrs p56W+Hsel/DZyJ6cv8nLqaXzOw0FuuoxNYW/iawmpKcRvTcyW60+QZ773UTx ML93YpyCZ4u3KcCsqTomAdm5JmNzk5OrsHI2NlGc6pAPzG8J+zDOTfS9FsUG 663mF8ehtpnZ00QpFgOcB9Z24oOP804is8DG2mbEi7FmWHA8ov4UYMr1mOfO IL9NDtX5nNrpYurzS+3ZfO0u+5uQHvf5qPPX5y3Ctxbj6e20d0aY/ux9xxXZ u7bL3V0axruR5imrFTulXKxrYjnr/d1psIC6qGojjDU0o1qOa69Qo4M6jsbq hdpK+KSeIOmV1gm9ph71BvfewuRxfyJ21kt6Wxkukf4R9L0iv2yfMLz13NZI z3W2C3051qsCeyN6MJ7I/l1cN9Ebk1OkV47zrtg6FE/CwzEO4h7LB4yVkA+B v/YMQW3DtuwiZyczh/nr0Rkklt8cHxJ37h/nseewavFAOe3sTOe+83fui2DC Yxnsz0juFuyXoBaw/bAL52h9NZ1S/JheEf8Wpi8WoxZBFt5Hku9y3sr7JYKJ FA9ST3x8ZDt4/vJ6ImMvr6V5Gq13RX5F48njxWs8j6VgeyS+Ye+L2Fjf6v/Z h2DNsIieHbg/BZiKdY7XpFgP4Tni/Y/t4WC8PlJvo/1XeCfrIrHheRqMC1gS ORSDXei5C/FcWue+1LdS3xJ8isUs9a3ivEx9q9jG1LdS34rGqzUr37ekdQJ2 Zn36XtFakHcFNZjPsR6bvle0CDg8E75XxOSXiInJyd2NbdkVTe05+eduRPo9 H29sp88mvE7zWH7g0U8kx+jRaz1hWW69k9lGxnY7Pe2hfW698aHR2tFudHs+ a5fkt9PVSP2zPnme9uwKZI/TA7IbYH2eDzntzvHebXJpt/perAm+Hdvv4/Zb uXp339IRqbGWbG61osjO22/RXp6uOfCu9eJnThDvBmuTpl2Idpsc221kKB35 89S112enrruB2LXL6kc+Wb3arlYkl+rUeJjxRm2Twkph1ubGbe/a7f4Zptlg 6G32ttBxbUOze/YNdmcr8wez5s4OYze23drY6vzHv/0zH6/3PvB4qt8uji25 vqGsP9frbcMYNQdx8LhQ23Td0vEFmeAHyRkb83och2ZiL41zK/XJ5MhOY9fU ZJ/S09JhsKpDGBtbnH02B5iP7v6nrgVhomUfzsnlrlvfwmxvZthQnTuNruau jmxlYSg7PNVHYuVi1NhicqvN55fJNZt7eq7N8yl82tya3WRNC/3tcPX/XGT1 g10Qf7pnmvSzrin7/PuOK4KxnWq8yeEM74dNHBxOdXSvWazA3v6h/bm+g1lr nt+xPe73W5unRlsrUS1r9LV0N6+ruCayWi7X4vx3I17TRmoy7QF0bLc4b22M 1WEm3/qHesgVAXn7iV2NdM1uM0Z8E3qC7IPQQxrbWG/iMqwvYX9y/bARy+Kx YfFivd720yt4r3M9kMogT6cXxcPlUUQewbg943hh/Hl/9viFvd/54fIN93Dq Oz6PuB5vzymN7VQn4tlNYuDleEyoDTwPqb32jBKeL2hsUb4RvFl8sS/oHLU7 sIvndjr3nbdzH88R4re8Z4k/jdT33ZItZF+gmDWGdTr0QbAjwFKoKcRfqc4h GY3WllgNoH3Bx4PWIZ33Juca2zMeb5e/pAcIe4/lToBbNB95veO6Qt89n1C/ ER54n/J6Eu5RXNvYHsC50SjZIcW5nfokxJ7kSyP1g+xTtNdpzRF6HbGPxUmo e5JdVibFAtc8qfexOonng3pp62iYQ1cEtst1KTYf9gPKc0UTt4XtcxIHuobX WbmOWjme/FkP7Y+LfO5LfSv1rdS3Ut8K45z6Fq2fqW9dSn2L603fK8K9Ktbo 9L2Cxu05+r0C2457Ht0jYW3Az70tHTl1umeN+t2JxjrcWDDX3GGeds7ydwRr qR5Msbn4mhpRhsTHdXO+2Bqrg66vieo0v3M89jS352SeTZbasjNnb8qy7LfZ O99zXx7HFk8NQK3ZsdXjav7BRx+jdz71rWrN//rV/1LzQPBby2k1cloVwdj/ +2//pnjOnL3RjLchvW16rKlVzWu+m9Q72T85z56cHnzsMafT0oOPfkQ932H0 7zF+/O3f/70ia4slokflbqvD5W///gm1xmIEtNf9zp+Nfhz+W0ISff79J7LX 3HYka+3qcJjusZjk+E1P9WV//0fXkDXwfu2Vox6PnNYWh9Xc+uJBg5HHAnQA WTztcy3nhTVrao3W3drdkX3w9YuyPoh1vm6PolY1B7bvaWwjtrzmthk1Z2N7 Xb4W9HPfP37PqvG7zcjV6+84O+l81rYxPxSmOg+wP7DuHz9/PcP3ePaXj5zW 6xpQzubP6cN92TfyOe3HjJNl/XJ5kPO/5tYjRDb89jwtJgYHTQyGA6x9DHR8 YS2PK8i85w+OmRxrc3m11/ze68bas9fedlSt2etyztNetAbTa01csGz7tPnS 2t2Zx38pjP+JUXq/lj8BW6ArGpoV2fnbr5vM/msQhxMKb+2/31+QVxyHj9+z puy4wsQY7Gvb35V9/B1rWtb9J1R9Ar9tzdqbk6t5zZ1C/ewQ6iCaaw5roVzL i3oArrtSDfb6aS/qRONSbaY2Yh3eztCGGmlds9Ydw0bupWHPIu/NHah/cnxl XywG1JZOtB7jtJl+G/OPYx/KqhHHqG3aZ5o3yl6Ue0GeNeNziIQR1iH7VOPO LNXOIdLZIXb2KIpXAc7NPNf5XiqWz3GoQdj4/JDyW8BFOB+lcx/fj7G8kHNH rhF8z3eyeGNsS+QQi3s8b4rwr1an5Brs80zwL8irIrxYTjI8alp8Pu/lmDVL tkr5EstHoWY0S1gU5XIMdx9rHye856W8jO9JkqPNku1hTaDxitXGov2Bfjdz PdUolBWvzXJdknKzRvBNihX1mdomnSGC80Nztb0n5FVwnpDiG9EX5ZViS99j tSY8S3SoHhjW7c5L4NyX+lb5fUkxSX1LwjzEL/WtuM9SrH2cPE/qWwU5UJCb qW+F78+OvtXJfoe5k75XpO8V0l4qri3Pne8VMWxcLWsW7ERjtW3dntq78mcX HbPj7d1mzvy2lM/XuTFhbVs3WmvHuvI1WAaS2+bluvG2buFpdTPe9u5Qj3p2 GT+6qI52WW6IC7fN6G5HOls7s31AbebZ6mvVvfe9T93n/Nd/+qdsb1NrHoM2 9718b2Nbdu970HyjHqtpbHXj9773fVlX/0FF9773PjcG62tyuuoGfU/28GMf za7Of3f1D+vv1Dkp3lw/fKveB9+rc7rG8ANvjfmGrfel/qYNsu060An2Lq4d V/Zh3dqPdnOP9YR6r2lpd3S1pMfUhL994glF8Htfa07wzPNSEWBn8cv54fv7 h964lFWWR7LK0ki2ntPZK8eyD71hyd1hDA/3mm/z2q6D+TuMw13LzHS/wv3g SK/6ng/j7T3dCjtYs744ouRUloa1nYra1PML959QhMfAd7DB3rvYeFrZd56d Uu/DIz3ZJ8z9wcz0oMMLCMbgPmWvwVxTW/ba2/V9Cby37+9W9oN+qwdsAN+/ 8ehpNWfvYuA5Mz2gscpxAfs6e7qcP9aPfS0oDs06TmCbXXdQ4diqnh8ydzKw TuWtzdncBoVtbgNgNzx8QNtv/cp9sHGw/sA9UPv+LkV27K7bjpgYtLkYwNP5 ZHCxtsMY+Ai63/HyY+o3jAFOd15/2I3bHKtR+xDllcmxu27X91g1rbq+7jNP 927GXF62ojWAX7PPY/3UGLv457bU5HZBTtr7o5nDA25v77X3inCnZO6N95g7 SxWHHHdYW6NwGVY4K//t/RPCC2I2PHJA6T97clzpfxHoN7bBnv/EO9bV+NlT 49nskSFXq2pbu/Jnl3qvxTXZUJ2pi3W4FuI+0W5qq6u/tM6TftEWeQa/u4Se Ean9uP7G+ldUDu5D1s98TOhDdaTuG15k70LlpKKxo3NZ98FRJ3ts5lh25vqb su6hUSdjoXKlwwbGgQfLwfbAvwewf2jU6QbZoMNipfiNPd1Dh9S/LzB29Bix FfQpHVg+wgvWWB6wp9bZedLZptd53GCN4jWxAp2g3/ZabZfm3X/Q2jWnMKhr 1/PdBw85OzQmGlPQOTYzR/Adz98Vjz1ztHcr/SAX5r1+g5HDVMvfb3jHlJyT DD/9O4zFlQbXUaS7y9lrcbZ7A9693zye3bkPx7TPSHcdPzO1099WtseCnamC /dNlZHaR9UG+p3NfpDZwXMK4BHUngg+ZJ3UthhWtL64G41os2FFneOqEePs6 znHrJjqi9uA4ifNdga7C2LbzNUy2lOfMhzAXugp8wXZgPKhO8s7t4XlI+pSs u64d5R7PJZG6/N51+4vi5uLrsGA4Cn2b7IV25k+QpyxXpT3M/K7jGOEckNba GuXsEvKoCPuinA10STFFWGG9xB+fl2RPSfWA22j4+V4N7OD7iuQO1hnDQiDG WxfI9ueYYC+xuF2Mc1/qW6lv8TqS+hbHI/Wt1LcQT+pbYv6k7xVYb5eLT5jb 3nYeuzoSO6HekRjwfcvyme/hIKewrZF5Fsdwv/FYSb2S1UHXazF2KFfau8k7 t6OOY+6wpH2kjtgo1Spqd51kL+8vQSwEP/E5gu+hoB7xWhzG7un4XkGx5Tlc VDe8vIaOHk2dQPv1k4yhcfXcH/J2ChQbl9Zx/RJ/9B2PF81x+/Z7vR1l9MRk e6rPZdZ3dGf1tne7mtmZ/d0TT7g/09Q9OKzuEvaZe6V9Te3Z1//iL/38wLCb gz9fBXPqvcXTZ//0T9Wc/i7fkb3rvvertbWtHQHB+Lve93401pldc+ML1Dg8 1Tds9R3bPHN5f2fumKx8rb8tG5+Z1fLuex+yR99JwRqsQ+u5Weu54eZcLtJj MAGqa4Wc7UTn2i5POR/Mw/f6190x621VsrQu+C4P8w+8YVm972vWNj/wxiX1 7b6ztzvAr7N3v17fomWcWNF3AvB0OgwWX7j/SkWW166za44vjSh9wyN9+m7m 9qMOF2vLE390TW4P2NduZLQbn44G8YIxmLPvXbmtPg4dTvb1p8YV3+zMkF97 O12LY+H8UDHo0HEwOFqdTgfCC2y391/WjuPLxvf8CfxWF8x5DLSsJz51jbpH 0WvbXe4DHiCby9QxaCc+aNtPuHGLCffzna+YVzGvM72E5pJ/Qi6BLpV7bSbP 4Oneu6gMvIbMGyxz3SOH+oOYWt8AA8hHnIPuXrHZ1wKHNcnXDpWvVpbNPxJP tC+6+nrcHgPb6vJxu3+sP1Cj6vNeoGuWprJ1LqiLUv0MeshG6jWTJ/YKqTdF dIt2sD4kyY36QHV+/FOfyb75rW+r569//Zvs6rymwtyrX/9mNf7Bhx7Jnvr+ D7LekTElD35bWcD7wYcedu9qLufpHR7LfvwvP80++KBeq2Tm41ffIPDnz3ve /d7si195XM2Bzle/4c1q/LaXvEy9X53XYa4b6Jt/o+0GG3/xy18a22HdH6g5 64tet1/5oOx6yNp1sxqHd2ujbNcjxC7QuXzilFo7MbuQwf8UPvkc8ANZfEGG tRNk6Lhom0Au8Dj9DtNHnI/YZhsjjp/C1q3bj2KxP1s+fkqtw2sUzn9j/dmf 2/geaqPJD4y3tvFmd/bgsQDSmPQoTCAHSuVwLK+lc524R9K5b+N6y8QiggfW Xy0G0XiUsSlmX4Gt3F6MkcLO4l3Cho4imTH8kY1R7CK1uwhrbnNhbzK+SrxF +qU8D3J8A7GL6RXzuijeMfuknr1J+7jOavWhWp0IxjZbdyJ5UlQby7xvNJYb inMVXilGsfNLaawukXNf6lvyeOpbxbamvuV9lXhT3yqnM/Wtc4hzFd5nc996 Bn2vKMalJ9RTbb909Mh2ufGSuBGcS9TRaPxwvee2bbCeBnyR3lwtBzoK8noz JPbXmB6OZwzfSA3rKMqtiE2l9yrv72X6M9vD+e/m7gPnjZrE8d5Nr5flXSiq Zjeb7+rNmhT1ZI2dQCb+cFfY3qXucv7zX35DPe982cuzutYOTy0dZv4v3Tx8 q548Oifwdyp6UT4Gc5NHj2X1bZ3Zu9+n77Hgu3q9+iavn0AwDvP1bV2KwJ7r bnqhGr/u5heqd03aVuABW//xn//Jyag3euvMvZiS1+p12DsprcOOgx59Xwb6 6ome7pz/yezvnnwyazTnTMCs0eQyjGGC7/Cvv3MO2dql5FmfPvzGZXV/ge39 q0fPqHGLWT0mZCM8r1zRfw4GnmoMyf7iB65UZN8tXblyyKw5pGS85MZp9b6/ ryd/70A6OrN7Xzmv7jK8Tn83x+W+3tyXcBmcbjw9ofiOHR1yfvi1Xc4Pi5f1 A8faxtuu61a203h/8f4rFWHsuO+YVKzAr5x31Nzt3Hhqwq23sbjhlLZ/dLRf lFnXJsUA66L4gC/3vnJB5UFDR3eQQ5r0+BvyXAJdwGd57W9Mdg38dmtM/lLq yl7q4t+L4mni/woTf5SDFle7t7sP6Dx/8Q2HyX6XchZ0AC/obGD7itsFT+B9 w52zzn/YZ015nQJqNLVrI7V6M/W5KbquV5BZxpbeyO+NyonZKK/l9v/kX37q fn/p8a9m1+a1DtZ+7wc/FNfj8Wty3gceftTJtXPw97a+9o1vUb8PH1vK/vpb 31a/QfYDDz0qyrLUPzrhxkG2tsfzN0Vs17wvML8fCdbF7eoV9RTZhQlkAm5a rsYN83F8V0+eCXRg/dciTO37Jz/9xyIGWIZf1xvxoTe742WvUHZWy4FqNoby tc5PfvozSj5gC/OAGcxtbK/xvO0V8/Z80XP63Fcaj3PBsvy684NdzMcy2PSW 5A3tjdm+2Vp+7rHejKyN+33udm00Z0P+C7HnyuZodVviff98YPr05dv58qUM P5d7/mL+9J37Ut86P3m0Ob9S3yof/9S3zoddqW+dz1invnWu8Skb92f294qN x0SWVRrPrnOLXbmaU71WbNTXYt6N1c1zpTIYlMvT80Wh/ziHN6LvfNjW1tuf tecEz1ZDbb0D6t3TAHtGqKdgzqxtDcb7ArntJeS2C+tiOuO2yetbeyQ7Bgr9 a90P6/ry54GsZX9v1gLx7erJaX92/QtuVXc5L375K7J/+/m/ZZ/7s89nDe2d iuCb9Flzp7R64mT2q1/9Kp//MzV31twBnTV3TY2WOrrUmJ2D9/e8/371rr9T U4JxmIfv102dmq5/wS1qHJ5N5pt2cyee1/L/4hvfUDoweXld7n7g7598Iqcn lb6mzm4lozl/WjnwtLKbujQBP1Bzd4/K/dacWvKaB9i12B4GGObz8B3+jS+a 02uVbPstXvv40puOKJ7e/gPa73Z9T/Tgm1ayk6ujOY1lp9ZG9e81TePjAwaT 7vx9TPGfWh9z9jcZ+V/6wJWK7LvVadfAsxHdczjs230M6Jy+G9F3C3NOZpOx hfC2e37Qc9OZSTX/Lriv+cL12TcfPUNijdc2wRiK6Zc+cFKRjkGPwxLowMAB Je+vHjuT65hyGJ1cGVX3geC/irfJP5jTvo9qPYj8nQniy3HX6ztN3nQh/Ea1 f6sUT4yVjQHWA7EGXoj9G3O/Idaw/l2vXjQ5pe/pbT61uJrbk+fSMcWr96ih TkM5Lu4dzfs1+wlZHCE/YR7nThAXFU/tv/dJ4woYWex0zuJ8HVNPm9+Qpz5f 6b5qYvYB6f1zzO01hUdeq1r39+m6pWpXrKYOiONhLce1tlptLkMDeQ0eEGRX r+Hl+lS8r7UWyOd+f/+HP3S8H37ksexsXu/h/Re//Hf1DvTlr/559qKXv5Lx 9ytemNdyB9yck9ODdPQMEP42xz+QzSwuKx3w/jff/k5WOX01leNs/ZGSafs8 2PRHn/ms4oO1mncgWAd3KliexeD7ZvzBfPx6y9+j7QWeo4srol0Yy5/89Kfq t8boVdm9971f2WT1Wx3cLowjHicY9fh1liAuNq5SLNottj/4IbJ1IIgLPh/E bIHxdsH2NhRrToDT6978VoUVYDM0PpXJ54/YXhXmesK8T+c+tq83ce6DPUl9 ojgTv5GcVltTJdlBfapue3Fs5Ppt5bUX6sNzAwXvBXGsQu0BjgiDnpAXY9rK 3vm+1D1EyoNiHPHe4D0oyOUeFkfpN+mJfdRO7nvAH+Zie09/PC97Cnpz2ZrB ZYt7sYRs539fnG8De1SU3yPFJVbLimTw/VvkaxHGAk8sP5B9srwBWUZpiu/7 4lyzYxf63Jf6VlGOiDmW+lYVTFPfEnM59a247NS34jnB7Et9y+t9JnyvOCdb iNz4vhFrY6m+LNeOsM8PFMautYfK4LnY3ovrmMcpiF9VLIV+WKovYX4pp8vX Aft9oa0nxj8g9Jc4tZP1Jc9SEi4b+l7RX9gXMB/NdT3e2TeY0xCiwZD6hxiP xFtmPCLfjvfbJxoja2IyOC+TZ947JHn9kg42BnIsibYMZB0HcvkHdB3TvfqA utNq7T6Q3Xf/B9VdzsChsexPPv95dZfVZO4ZgB772MfU/VVTR5e619HzXe4O 6Iabb1H3NnAvZOkGcw8FT/hOfd/9H1Dviq+rJ2vJxzT1qHGYb1HjverPjt3w wtv0+hfemtvYo+6QwFb97FG8L33lq7Incnvs33eIScvbb2T2KD4g+24J5Fs9 8N5q7quAnnjqKUX6rHBA4aax61P4Odqv/76+N734GLFR29mr5J5Z13/H3pn1 MYOVvvsqoje96JjDxK8fdzIV5Tq+9MGTivy41TmG1uxX8uDd++/xCed6kA3m XsHI5bz9g/3ZNx87o/87YF+4XtnyqXsrig/msEy+1uIE9OV8HRCJt8pR7dPS sUNKLujgWMF9S7O564R8O23wOp1j0ELyDd2Z5LweozE15+6KOvertXgO8zaz PPIx0O9gq7XzyU9dq+YeevNq9vIXHFX5oqgH0wH/zH2GXIK1Op8OoLzqRXsB 8Ol19KYXz7M1lNfL7HF7KBYX8M/eK1pMLB5FZPPzzLr+s2xnKhPIlgOh7fCe +6v3z7zyHTBo7/G9vAMor10dQo3tCupiQR3ux3NS/WY12/Lj/tLv13YQGbF+ IOng9qH3fqx/SOgJRbbKev/lpz9z71/5869lN95ym3r/1ne+63g+9cefM+ND 6i5pZOqIkvmSV7xKzVkbrSz4865veMvb1e/ZpVUlF+ZBhuXvcLqHsoce/YiS xf2GcWuPl8/x1L89r113u5MFNmu77s/teltgl9c/mI1MTjt+Pf7qaOxAhsKp X+MFNLu0pnRrP0N8YY2zycQF9NwAtvdjjHishogv9jfYC3MqFp/9nJOp9PbT 9eCL9p/mmMd10Ni4FtgONnmMjhD77doTV11rbDqi5Fis5TMPPucIZxnxbCO9 p3Pfps59gb1cX1HdYjb0D9Hf/TG/WXyRbR0iZp46ysaP1LoizItiG1vHfI76 ycdjOEg5XTRfZu0g25cF/JEcKLQd+9wv8VXJm2r7qQz+/RHbirDur7aW51GZ faOpi+ydongPRvQX1amN1KaN5kuZeODaIO2fuM4uQVdXP1/DZAa5G4kDwZOO X5xzH5cX01sF99S3Ut+quhdjsY2tYz6nvlXF5g3s18JYcLuL6ksEr9S3NhkP XBuk/RPX+dzqWzGMJDtK5F+Qc17v+fheUS5n2J7rl2QWrQ19kvfIRvO9Wp5X 83kje6XAziB3ymBJ49nhcliyt2QO9XuZXUGNK4tb2Zxk+VgV54i84HtFibwk a0L/9g8O53RQPwcQDcboIP09cNCsORiuk2QNSHIEHSAP2+XG0TOnbvO7e0CS eTC0dxDZWehn6Gv3ILPDycnnBoYUaYwHsk74Ltyr/z2sJ556MvvnH/84a+vu zd78trere52Z+UX33f+f/vmfs7/4xl/lv7uz++6/380fP3VG/b7xllv0t/Gu nlxGj5Jz0y36fujEmavz9wPZ+z6g78rUd2qgbkP5bxiHefjd3tOb04Hs5lv0 PRY82/f35WN92t6ePjXvnvs1te3v1ZTr9vJ6nb4nnnxK3WPptWZdruvmW42e /Nlm5Hb06G/nTz71lKJOuE/N8VLYHfD4Weo4oP9uuje/ZN7YZW2zz97sqsqk 4rnq+KSxqVfdb7z5xceUza3GdqDDU8OK95Zrp9XattzOq0/oewF4Ov/363sP e/9jdbWbu5Crjpu7hPwJ72829xzYf4sH2P5PX7iB4ON82m/5Pa+X05s9/Ja1 7B/ztSsLo9oPG2O0pk3p6qU2GB+8H6ecHx3m/gLy0/N5O9pQzK3/Cj8zZn2/ qjLhcLV5p/yCO5P898r8KMFI8/Qa/HTMgAe/w9Ph1KNxdDYYXJ/89LXZX3/k qmxweMDlhMqrA315PtH8cfmkxvtVPr3FYKwxOWXk6yfYPn14xO2JjvzZmdNb XrJgsPU5bJ+Ao48b2jvmN+Shi7/B2Puk754OTx00/o+7vabv0A6o+zmYU/7m 79NTIyaHjzgbO6y9vX2G+t078ILP4HunIn3mA+ruHzL1C9W7AVZ7Bw76MTKv n90DB8P+MUDrLpUf6SdYdlCj+bjQH3iNdn1I6E+xHiXRgNCvzNhnPvcn2be/ 893sM5/9k+w3v/lNdvNtdyj9L3vVa7Jvf/e7ev67/0X3qJx+8KN/yB7/2tez hz/y0eynP/uZ+g08j//515QM6Gmj0zNqDniA/+Zb71BrQTaMa/6vK34YP3n1 WcUH/I9/7WuKf3513ej6mrFpWNkHa4FuyseAH35bPcAzv1pxNsI66Ht2bnT6 KLXLyLXvDz+mn+A7seuxjyI7fC696W13Z+95/wfcb5Bt46V+57ww/+3v/Bdl J9xz2XjF7AXfMUajh2fUerBB+Q6YDXoZciy+jvho3lucQSbYDOPKxjzGsEbF 2vj4a4T3D370I5UnBCO2l4APMAYf3qhkozMPP9+4vRfuk+4gV4v2W5l9kM59 wbkP8XYLdncTfuaboW4xthwH9hv50R3kBLJvANdctp7FLcAR2439EPl4XziI fEA2BjkRq/NVYkN6ksCDxrtj+Q3YENypLd3cLrzXjG8B9o6/IMcH2O/YPnHY 2fggn3DceHyYbJ+DrH9zG4r6rOQTl8n7Pt4DUrzL7sPArgLMpf3N7Ud7qZv4 KqzPeXu4f7EaQmoV8zladw76WLLzTLetO3h/ifmC9Ul1b5jOs/yK9ZSLcu5L fUvwM/Utsj71rdS3ons/9S3Lm/rWBexbz7DvFVH8WU0P/7lSiiHay7G+LPnF sKZ7Qa7L3YPU3uCsYCg2zn0J/AtsxvlXUC9ILzlI1pP6V2QXrpG410l1IZZf Ul7xfSzFZNDW24O0ttgc4bnI9pLf+zyG8h6V8wrpKey3Uv4MZwcOHtI0fMj/ Lk0jkd9UXq96Hw3XM529UT3C2g3bPSK8jzA5I0jeKHqOFOrpHRpR1JPj2WOx hW/D8O8g9A2oe5yPfeIT6jvzyPiken//Bz6YtXf3ZkcXlty9ENxZ2Pult7z9 bvW9/le//lX2sY/na3sP+G/VOYE8mOtU3+0PZO//4IfUOnUn1NvnCL5hK335 vBqDb9g5zwtuu0ONv/Xue7KuAwOa+gyZ3519ht+SkanlPeB1HdB3Uj//+c/1 WF+/0/PWu99h9LxD2Yr1/PwXP8/+6q//OsdqUOHlczn/3W8wVDSgvsO/9aUL +bp+Z6/WMaD0XHNC34Fcc2LKYNKXPfLWNXXX0YHwAHrlC/Xf8TZz5JCWkcu8 5sopNfbKW+aYz/3qzgTIY6DHrZy1xXGlE57wftu1RxyPJbDj0+8+Ye5UtGzg BRv1PZ4nGIM7D4vvVz50SpH1NSCEt71rsbK6zF0OPEHGk5++DsVgkMTc2WDl GRy/nK/7stLf58Y83pMeE2ODujN56bwbB1/ue+1yYDeMeT/7VexUDF4452RZ uYC/wq8X6ch97UT50K3uZAZM7hiyOQX51W/ubPLnW1+24HIKfsPzLYZAF8y9 Ks8Fj1W/4oHxo3neKOz6zVy/1r++pO/2brtuxu8pg6mL/wFzZ5s/fVz7XKxB t8aqj+ANOaFysLdfyQTZEMtH3rbu7eCExpWvL1tUvqv9BWfdwYOuZtkaJtbA YV47eT0Waiuul/j3UKS+D1s9JWr9MNY7KvBwewQ5vJ5LY1IPCfi0rjPXXZ/T 2ezRj34se+EdL3LzS+vH1RyWo95zGS+8485s4uicHjt7fcAHBLImZuYcTvB7 MZe5VMFytQ0wB/yg0/pE7BnWui2f9QPGHI+Jj1734sDmwK5h3dtB58TMMcW3 tHbc901u1zDNL2sPvI/nT2e7wYTieJbE64c/+gf3ju2dMHIoRtpmMRbEnxET yxvk/EW2YVujsT571uNtYkVidJCde8i+qZLHRXlObB6NjJfJ+Wp6n7vnvrhN oxGcI1jxWjnM7YvpsnxV6qYoJ5I7on7zPoRjhbAZiumoosuOR3MV6SjqQRKO RTjYnBxmVIhdDK+CvUD4qsSH01CJ2Eq48f0nUsgb4FE1fyJzVWuW5S/hU5Ed PPccToaEHh3EMSo/FtMRKlvSUUjVzk0RHKUzU+QcUhgri7s4f4mc+1LfimOb +paAS5H+1LdS36qGTyxOMf7Ut1LfeuZ/r4jHsaC+YpxK9Rfta2/ZnKvW4yWd Q6G+Qn5cRy3/kP0t2DUs5JehoE4V9SoRrxL2ViOX6wVnpY3IDvZOiMnT8r1i M/YinoGRMfX33Skyv/vtb/M+eCjkCda593FK+Xi/mh9H68bZ2nE/NoLGsMwR Qae1LecdJHaMx+3FMg5hm/m7t38Q2+Bs8fb2D4OPo1lfjmefOW/2Do6ofyfi 1jtfpO5xXvmau7LuPv1d+8c//nH2jW9+U/0ZD7hHgvn5JfPtukffE33+C1/M efuyP/zEJ9T7Lbffke1X3+oH1O9f//pX2R9+8pPZ/n499oEPfVjx7Ydv+YoG HMH4Bz70gPq9H6h/KJdxpxqHu6TFtfWspx/+HY6h7O53vjP/PZSNT89kT33v e9mZa8+6OwCgDzyg9dDxIcWr9XzY8Y4dPpL9+Cc/oXpyHYDL3e+8V43ffe+7 sgODw1mfOv8MexoaVmei3vzZO6j/nMrb/mDRrPd6rQ1nT04rHniqudzP604e dt/vAaeefLyyMpk99enrsq88cNrZuX/Ar4e52aOjWm6O46tvPeb+Tre3KTkg eyg7NDac/c1Hrlb8GB875mTkY7AO1t9x9qjSpWnIyXU2D4B9E+pu57G3VpR+ sBn8hjGw3eoH2SAX7FDy1LjXhX2DeAJmX3nglPPD4nhiZSo7nsuF34++bT17 9W3HvDyFq8VwQWFo881iC0+dU34Nxgp0v++uFe9nn7YTfoNP779r1dlOYjAz qv3MycYAnjbuEL+/+ejV2ej4iMupsYnR7O0vX9Znacifg/rZN2TySd3X6HwC TD1O+fq+QeLDZ95zQtl3COQb/N72B0tqzR+/58pc7yE1BvrvuP6otiHnA5vA /rnZMWUTkNWF+UAHxAPIYmJzBfS6nMgJ8sZhanwFOa++Tf/5L4hZz6C+mwJ7 Hs+xsTG1pPfPUtab8/QO2X2W16u89/Tl/aA/7+1Qw4K66WrjOKvD46RuDqJ1 g5IMW+NHaG0ldf8Ql5vXddKDxqluXuuDvsJ705iTF10T9AZGI+OZ3C/078c+ 9vHs1he9ONIbpV7KZbGeF/Bye8dluSO6j7/tnndmV5+9icka91iMSJiaddff 6HjVb7FH8p4f4jiIxgcDGUIOxPKC4fWjf/g/TTzH1b+n8arXvi73WbBBzOVI v4/hH6yTziwU32Li8qW8ouODNs4jbH2RPnxWcTGWciud+zZ67qO/USyCvcbz e9yt9TrkveP2acSXQWcrkuHm+Bohp0cimI2E8sIaNJ6JPkdxZ2vBbjF3q+Rz Qa0J9XGMpVrD1vCc41gJ+TZo6m3IV3afWzkWFxx7nHvC2ljfKsBmUMx9/3uw tDwpR7j8EFPcE8KaMh7xVRgjfDy3CmJs/Yz2fFaHYr1KyKVBVEf6+ZpY/RxB 9VeUK/mpqb9qv5FysFqO8J4h2XG+z31CHhAbUt8SsUp9i/qW+paMVepbLBYh T+pbqW9tvG+FcXmmfK+Q+y7Od45xLGZSb2a60frY9wqx9pT4XsF5Rft4bkRq 8dP1vcLvbc+bvldIY0LdieWWGT84Nmlogj7H7e+JcH58UliH3/26IfLuaZi9 DxE9wu9xPzYczEs0KZDgC+HFsiV/wM7QxqHRcUWDqo6N5tjq78Jwp/WhBx9U 9zUT00ez3gF9L/HxT35SjcGfHfnCl76k7nj29/Xr+4Cc4E4IxoB3/PCMuyOC OyF7L/TU97+XTRw5mh0YPKi+y3/ww/p+qXdgKH/XdJu5Q8ME62DN7Xe+WL1/ 8ctfVs/vff/72S9+8Qv1+55735VNzcyqMXj/yb/8JF/3fXV3Bu+f+KNPZQeG Dpr7ghH1G+TCekvwDryw5uqzN1A9v9R6vvSVryicBoBGGNlv6/A8eEh9h79b 3VEMO53gh6XrTx9RPDfkTz02rJ6vMd/6n/rMder7PvyG5/jkqJLTN6Tv0G44 c8TN2Sesgd+Pvb2SXbk6pe4XsBx4v3JtCmExnL9Pu3VfRTLuf92a0tNn7lXg N4zDvQfIgSeQHRufPGR8Hc4mJseULDtn9WtMloz+g2Tc0g1nZpzex83dj7pr ye366ofPOGxg/v2vWyVYWdvh99jEIZdrbzf3OZhgTGOu/87Gu9W7jg1g/Tiy 3/pp49Cn7B9WsSuKgcZD854kOJ9xMgHLm646inLpkCabS8P6rhlyCfhxDrm7 rvz3/Kz+s3WvvX3B3IX5NR95+3GlB/TCE8YW5iYVhifXDhfEf9jTQR0PIJfP JqfBV44VxOYAXq9kjGT3v37NxQzHU8d9WD15rIBP4zKqa1beB1T9GuU1mtXA 8VidDevxsFhfi8b83FBUvlDPx6V1Um8q7lPxfiH1JskubQvcz193481VbKiO QZHtw6Jc3JdjuPHYxLAJbfyTP/u86X1y3yyOc3FP9fjhHqv9HMLrxqk8sMn+ nplfyL77f/xtjv+7BN3cZynPZJt47OU1RdghvnFuA45nLAc2g7N0ZimTd5Pp 3BfJUencF7W5mqwAx6K11WpItZgX6SrCphqWks4quRjklix/KNBTbW/Q92FR R3Heyz0nhlWZfVeyJkRz2D/l/lMdh1iuF9uyMZ4hIrt4X3Beup+lZwS/oI5W 87sKfuOy7UOiPaFfdA3ikeSOS/skFk95n9G9wvNkIvgds9XzUh0X69zHKfWt GM6Tgmw5V1Lfitki7ZWIvNS3Ij7EfAprU/U1ks2xmJXDs4gn9S3uI+JJfSsS DxnLZ/L3irhvsZwpqmuy7Rfje4XP6aJaEltfJo8nNvy9Iu5rmNvPze8VRfnO c5fyH5o4nB2aRMTfFU2FPJjwmOLNaWLKvE+7+RHMw38jXSOCHvhvsTuZE9zO KWr7xJTsC7fb2Yj5w98jTD7YN4Jty+UMT5j4wrdgd681ln3vB/repv+g+fYM d0gv0ndIcJcE9zxf/NKX0bf0g9mHPqzvvlYqx9X37v6hkeza62/MHnjoweyB Bx/Krr3hRnPPc0g9Bw4eysf1GvjzFf1AB0eyqaNz2R0vfom7M4LfIGcgn5ue ncvufMlL8uexbO3Eldk73/3u7MMPPZydvelmdWc8eGhU0dkbb8o+/PDDag54 1o+fVHd16r7O8MDvszfemJ294aZscHg0u+v1b1T88JyeO6bvqnIeWAsyHjR6 huAe1WDl9pzF71A+Zr+xj+j/xtI9r1jR/o7Yu68R5/9dd+g/87J4bMrcW4xo yucWF6ayu+5cVOtvvmo2t/eQIrBff8sfzQ4fnlD3H4cPj2dLOf87cl7gP1WZ 1roMAQ/MveSm+WwqX6NlaQwsFvC8+erZ7J5XrmSvy/UuLU75eaQTbAHbQDfw WbmDuU+Ao5KNZJ4+fkTxaL5jap3iMbadqhzJPnr3cYXDTblsILBxwNh3Op8H HsD05qvnsnfk9r0+16vlaB3gu7VF+39EY6xwH1HYAsb3vHzFxGQ5uzHHZHF+ ysXlJvsOPgyPOnxAv7Uffjs/zVPHYFbFYNHEQPNOaxnDh0juDRic3/GK1dyX 1ezma+ZUzuAa7uo4jI+OqZwDP8E3sB/yQ/un94yj4UMk58A+wAb0AeYqFrnO e3LdywuHzb97MO5iDLaAXa+7c0mt8/lh/z0PHU/n28ioi6WIFVoPBH4oyn1a Xjys4gj2vPTm+ezw9IS2J+eD32Az+PLRu08ou86cOKr22TDQuD6Xj4zndTev YSOmfo5M4to7RWu2VHsRjfDay+st7hm4N0xK8gVZUs/gMie9Tt9PfL0fCeRN 0dpPfOX6rL143RQbP+x0WEypffn7FOZFOE5MMf4pilng65SAEfN5Atmg/J+i a11/xvFEc1JsuFw0T+PJ+zPD3caE9Fw0hnQSO3C/ls4U+DwgnlUY1tK7sgGf E6Y8H4/ZpI+5OzeI56QQ4yB/Gd8oPnME5zOf037vhWe2EexfOvex9Rs/9+EY h3sH5QjZz97vkei+ELDle4DkCMVuhPsf5DXdc3LtFGoh18/3HZLjsMJ2sjiN 4D1ja7WrRcK+FGPF8HGYR3C0+wT7w/ay3ycoD5F+XOOl+jxCsJlieiwPq0kk NyJ5zGIn9oIJbyP1EfNJeclziuPG82CK9vlgjzH8yX6d8nomqJ6RQv7DqMZN RfU5Huyv+Azz1+onOoR6SGvxtMdU3M+4xod1IOjvwnkjrH0sNoF+LlOQw89D l8S5L/WtqN2pb/l85blDbBfijfUL+x7nWupbqW8FcSLYpr4V5i+3j8viuD7b +paUNzFc0vcKeZ8xzNP3ikjuR7B3NuB6jPYtjxmuN5OXxvcKXP+D9aQO0ZwZ P3xE0/QR/ztG04iq8W6GYnKfLn0btUOgsalpRxC7UZNX8N/Bmp1fVHdIX3n8 8Wzo0Ki6j9Hfqg+5P5sEz7te/wb1HV1/zz+U3fmSl6pxuPOBNeq+x9KopXFC Dz78sFpzEPHqb92jahzujpwctG4YaGxcf8tW37MNjck0bCg2HtK4p3GsYzI7 BOT++YSTnofv7CNj+r/F9M5XrjK/DRa5Tx+754Ti4bgMEx/HiW1V7R9n9rP1 MSy0j5OFOBZjtkmccz8BI8Ah8Hnc+kNjELMTyyQYGlxfcI3+b4PBM8Ca5dV5 o3EBE+SHypkq+TRiZFic6F7xND3tcy6WQ2S/jKOYc5J4S+XAJNI1yWRMRkiW D77c+6o1su+gVo2anjN2WNewi1ZzzwvNnFuNvxi97Zz73AZ83hT/JUrTF8KX EvIvZr5cKD3p3JfoAuM6pp54/12YujV2znlwidXX6L49x155oX242Dhe0Jhf wLzn2F7yWG/AztS3El1gXFPfOo/Yp771NFPqW88Y/NP3imc2pe8V54XGIuNT R45qmjnqf+P3GU+TR9iYeZ+cEWRIv2cievgY0xvoi9lchqrZiOXH1mJMpmdy /hn1nMjxnFC4wjfhw9kb3/IWdYf07ve+131THjHf/L/1rW+5v+tv9ti8uo8Z RvcB6v7rq49nh8Yn9HdnQ6MTOY0jUt+jJ7OHH3lUrfH8+ns2PGH8oUceyQ6N 6TmyfnJKEdg7NpnbDd+0EY3aJ8xP+XdPfs0om9e/c9kThgzPeP4EjManDAFu 0wY72A92fPKwsWvKfYeH+4iRiUnjp6ZrTuo/b/KH74D/bpG+s1B+TXhydmCf mK2ijxNTlOz4VIjR2BSjCJYOT/Z7VFgT4Mr1ItvAz3e9el1h4fy2GFgZU17O OJIpyXdyGZZAt16n/75GeLo8nAx5Fe5YD8dmCvnC/Xd2Tbu1o4xX5RL4AnfJ eU5NmLrm9yLKJxtfwOlV+u/jw/c97v4nf95r5teXZ9A+85gGeSDYTn5zPjbm 8m9SwEjIGe23v0O38RwVeMFe8AVyY8ysA5ow+07VMKhfOUVrs1CHba2ctD0g VlvN+2RRvY71n1g95rpmEG+JHoNtwf1rEskhvxXvrGiH2I+wPVwfey/yXXyX erCA0ST/LfTpWK+LxorHcYb1fz4X67Mzgu6I3Kr9uCgmxI5ZcX2Ak4QBzxfp LBCzN4b3TGjHJJMp+cRzKXY2CvgjckVb07mvEJModpEaGcstaS6KV0mfgloc 88nxhXVtkskKsZkl+qK1piBXMF9Qb4SaPlmI/6zstxBfbmvcx2LMg30RwT1W UyZjvku4lslTQa+TIdSaaO8qGpPGq+XrjJCTzA6+1vXbGe9DrJdIdbfafiK5 wHtSlRjGeMW+znN1JtRH8kDSHfGPn1Gi+6hsHsfsjuD3dJ37Ut+qYle1+BVg EsWu2h6J5GLqW/H8SH0rorcKpb4Vty/1rWLfLmbfKszzCL7pe4U8lr5XwPO5 9b2iEDO8Z4T9AX+/3JGjc/qZ0/RR8zTj9redx++K96hfg39Ps3XTR6mMI4HM 2fw5G+o56gnLwTZwHVEbkK/Yfu7TNOLFmByZpVjpudnscE7TOa6HbX6YO60/ /txn1R3SqauuNt+Up4J7p3/56U/V+9jEpPvuD3cBP83Hf/nvv9Tfp3OagHsf 9Z3efoPOaUoTjD/y2GNK3rjhx/cp3/7Od7Lf/ObX2Zve+tbsBbfc6uQATcLT 3CHBfdzUkRn6nKbvmKbM/Z29x5vK5ViyMifM70mQP30ErT+i1gNeh+3T4Hf4 CL0bBBvhO/zH33kyu+36BUW3n13IXnHLUj52pZr75y/emB1fnSW+TZh7jUl0 T8Z9wPZPGtsnnQ/Tzn4rx85PTjMMpvXvKYQZn5+cpnqn2NgUGrdEsLfvxq5J dw/hbbz9hqXsPa+t6LHDRwK+yXwt1sfjOkVs9vGjeqazE2tz2btfU8lOrM/R XMrp6w9dnb35ZWvErslpRsQf7LvJIckmiRDuh1F9O0xqLuIHLPI98+7X6Pu+ 2/I8Arr17Lx6vlzl1Ek19+E3n9D7ifhn7Fe5wPbLdIilaKt5PviWKxXhvLPk 85DlKiKXJ0dYXvOY5ba+O8+JO/LcsHYdRngdnjE17OhsUC99TZyldVeorcE6 oV4fYbXc1e2jrPZWefo6PxvIt3VZ7AORei/2HFLnhX5xVHgyH47wOdajAv85 xXxHvTLo3XYdspnbj31QGLIex7Hg/bUw1pEeXW2t1PNJHKTzxVFZbxA31vPD 9bN03ObVUTnvjwhYEpwlTARcjnCb+H7huYfPWvzJxvgZh2CC1zL807mvxLlP work4iyVK+S0hH1sT/D9HfjDY8RxitWSyDjnj8WVYBTBksYO9Zijs6JOnO/S vsb4hvKL18dqFbVhlvBJNZ/XFlLr2Tyvf9xmHNMjRwXs3fsswSmo0Wyv0P1N e7u0T2K5yHOQ80i5GMWd2Ud8Z3ZFc5rpOcLHBL24F+I6DbgU7UFe33ANDvYC t4fZFdQcKQ6RGk7qobOhyplMyANxn0r7y41fuHNf6lshnqlvMTwkHAW8Ut8S YowxEHKEz6e+Fc/J1LcEOwVMnwt9K8g14enxTN8rSO3g8WZ5nr5XRPbUs+h7 hdwnqf9if0f2Hz02L9LssQX0vqD+zFCcNz5n1xetm43whuOynJjM6naVk1Xo x9wxRTNACt9j+pyT089+9rPs3//9l/q7+hF/xwN3CS+89XZ17/ToYx9R38fV /QL6jv3Zz31OzV917XXum7OlafTbvj/20Y8qfneXckR/34bnmWuuzb7z3e+q +R/+6EeBDJ0rs+6paI72D+XXLB/DPXLW0TT7jemI6b9AM4qOmackc07ZCQT3 ChJ9/eGr1b3N4uJRd5dh/ZueEXRbW41PSi+yF9vP1+qzw2zgb2A7w0uc5/YU EZYRtdHUMOy/45vz80zuEcH/MHamTtp3lns8HyEu773rOI39bCQOVSnML2I7 y1OVS3M0p2bm5rw/YOPRo8q+opx61W0r7j7N+zaLcOU2zRXgKvk6l/3nh69R NB31O9wvfB/OYAyO8vyYozFge9BhZQjqmKv78+Vr/Gzs9/zGau0sqrFOjpMR r/3nVucXxF5BfVpgNlbva5JNs8IaP1a9t22oLwWYeh2Sr7wXSzr8mUDCQ8Bx vig2oc0SPqEtMZwWhJjxc8sC8U/ydSO5VJQzxF4BB+5rzPey+V68PzeSW+nc t5H9hWMn7xkus3wsNpdvVE/xmoUw74KaXWRv6HMZ/ItzXdcZ3g+4TzEdcdnl 8jqGl+5lvMbEcY/N+3yQ+kCxPdX2Tbh2Y31F9GU+bkupfbKhfJJ6VoQ3crYo PH/Mb7Y+hDlYzh9pDwp7LoiZ5JOQL/Oynmr1Xs7LS+PcVw2LuJzUt1Lfqu57 LD9S30p9i1DqW6lvlY43kpO+V5TwN32vSN8ryq0pznP/+9jC4gZoKZszv+eq 8Erzc8Jv/Ky2httSjWczNko8RXxz8wuOZuf9ftHfhs23Zrjr4HcP6Pv/EXLn gO5HzB0J/h5/lNAxQ3OUb5bqleRZGfYbtt0nnHjtiPEUzUfJYDaLMcRy7R2h 8UX+3h/eJ80gbMr6gGtoWb9i89XGJXvKrAnnva0zLhf8vap7L8CgDC6kxnDZ +B5XGA/7R7H+zeYS3odzKK8CP9x98xy9LzL7UBHKNbpf4phKvabsHorLWCgd s2j+sHyI7T9LZfqAqoeLYQ0vUzvL1PiycqV1RfJjcsv2tHPpIRuRx/vkZuyr 1rdi9m2sB5fjKbJ/s/o25/fSpjApOx6L22Z8i8VEOi+Vis/iueCbzn1leaXa VBSzqufLDdi70fw6V72b3aex+n2+47UxHdXzarN5VxTrMmvC+bitUg06l5ou 15mlgKdIfhm/z6Xml8mD8PdSdP3mMNl4/sVlyH1qM3GMreFUFtun89wnykp9 a2N4bTCeqW+Vp9S3NrYmnE99a6N5EP5OfetS61tl5ZbFWaq1G9G3UVw3wxPz IZZjG5VT1r5zqRHV5s5XLm/e7+fe94oy9ko8C0vLiJb0c3GJjRfQIl+/FBnn a7GuJcbP1xdRzNYiH5b8M/B1KVy7KMnT7/P5+vm8RuqnJo0t+q4O34zn0Pfj uXlyFzV7DBP6Nu++z/PngpJvSevAdMzQPJJ5zMibVzyzZo2WQXPC+7KoacG8 LywRP63fx/DYAsYA0wJbK8via/39lvdjluB5jOJ1TONE/JpfCPUsFPhg/Cb2 z1ts+PrQ99CnRSJX61vMeN4E7wt8HucYj9sCsZOMkd8LKBY81lIcFiIyaQ4e YzlZpL84/pJNFLsQ99gavifRvpyjuXOU3X3Omqffg3yvLPi9IuVCzFZsD8KV yiiOi5xXWG4x/n6PUxvlehipm1LNLqzdQl2NzM1H+wWXsRSRvcSeIFMeL9c3 jK/Ir3mJd5HbIMgq1de8nfNV+1BZ7Ev4GMgocw4owrQM3iHNB3ZwPHncN3MG kHg2yi+tl+xE/kTjL+ueL+Tje7bAtsLzWDr3bfTcV9U/yZ9Frqds/hb4tIgo ukeszyafqmLMYhPwm7NvqbhVy6my8zy/SsQqqMfh+vlAVyx+Un4X4yP1p3kx 3kV2V8Or2r6TemRxr8T5EpfJ9nHUxmo5XGRTJCZF8a1GQZ5sBHvGX6rXVsmX UnEryivJ9rJycKxL1k2pZlfFoyj2VWpo6lsU/9S3quCU+paoL/UtKiv1rSrx qZIvqW+59/S9wtuZvldIeG60b5axfzP80vpYfV2+CN8rYnGVYkPlLq2s5rSS LefP5fy5pJ6rZtz+XkG0Stbgdz+2gtbnY8ucl5Jbs8zmlq1NK4Fty2jdMvEB 27NK7FkmclaQbZa4H9QXPLeMMFlcXs6WcjyXclmLS/C+gmJhvhGbb8YLhvD3 ZpjztGTWeP5FICGGi4rM3MKSuJ7eAWgdVtYiyh/lw/KK9gE9YVzpYeNLZs7z mfElsyaYxzLCdYFskOMwXHTf6Of5fYy9FzHf5gEH55/zadnpxbqWlmTbqP/U 3nB+OZTL9GId0rolhJfjX8Jzy8QOSbaNh84HXS+W+PzSMrKPxXTJ20RjFuKB c0fZubiM8nPJvYd2UhyoTSsU46UwD+P5SdcuLfP4GbutnWivqbwJ7uVsLhk+ VC+5LTY+sg8YzwI+NObjLcXC77EljgGJM81d9XtxmfBhHYovqP8rpA7jGmxr NebntZjWTT6G1i2HY0tCrecypb7k6ziVWdSfaM8xcpaF3gb+Wp+Xwx7nZC2v BD1HxYrZGfY/jh/uMXR+met1vqwwOYLvy1yvhDWXv+JkL6/EsA/XU35qP48t 99Xj7H2T+/1KxuO+zPBbZj74XFlFfrGYLPuzgXSO4DkjnQ+ofglXCbcVti/w WSjMGXw+4jGXzmLU5nTuO5dz3xL2kfvAMCc2LjNbiA8Iw2WOK5Zl80T2GdvN YyTliZSHdL/w/cr8XKZ2SjiGOSrIXg5jGeYuqvHWxmWaszSvqR/Ly3H5vP7x Wkv3KZPL9Ib5SNeJfYrUoxVihyQb18+w3vgaR2sSxTusH2Fd53G1OBLMl1cj dvLcxTaxWrYc5mE8P+na5RUeP1xP8H6L9zG/76Qaz+MQ80GuK1Lv5vLkWPg9 JtU6ubevuDW0frD9E+Q2PxtdyHMflyXtfRyH1LdS35LqQupbqW+FuYJxTH0r 9a3z17fCWh/ERogZ/+fWWO0OfWO5mb5XMPkrWfpeweMS7kvec8I6HMZNqmd0 X9DaFa4LawWOm1QzJax4LFbW1rPV1bVsdc3SunquGFqVyPCv2Ge+xvPT9SuG n8iz76uG2G/Oj8esPmzPCrdrDdu3TvlWqV8rzH7sx8oq9WHV2MjtW15dzcdX 1RPT0vIKiZt92nuKJXt/ZO4DaH57/hUj3+rQv9ecHvjNzwRLy3y/YJmrBm9v 68qKodVVM6/fsW84TqtBTBAhe6nNqzSmayyPMJ+zRe9Pf09jv73756LFz/Dh GFCcVn2OYd0kT9a9D7aGIXtIfgV7Y13MMc+7TvIH74NVhCvPRWwzzzFHK2jO xXKN4L8sxGVZGLdrpXXLIHNF5sW5tLxC9SieFfSe/6Z1h+5Ri4f2fT2SLxG8 DP+ytRfZR/pZcN+0TO543D835mT3xzLxG43hfWDtXwlxJnivFI9hP3n9pPUL 479mKLQ1ZgfHkssmdX9ViFckLno/rAcycR3FmAW1BPWXwJ7VMO60xq8Tm33t QnuQ7cPAt9VQvhvnPWp1ndkc4riyKuDAZPLfYfxtr1qX1yG8ef3g4wHPKoqV w2ydxnWV1jE/HvZQji2PKa+jUo7jXrPK5AW5g+p47OyywmQFe2mV4YdzCWOA cAns5ft1jfLR85KvWdzOcH6d2r8mYcH4gvxA8ki+p3Mf7tHYh9i5L9hDKGf4 vMOL93+hnkr4+zGKeeBTRJ6PEYsz38cB5jRO0flCm0MsaJ8Ic8z/lusqsYnV Y1onae4H+5id+5x/Qk+QfCBrV8M5nFPncu6TaiuuV1ger4GSTWLMVikONH7r 8digXAp63No6jR2ruUEds9izXkbqTgwvYs96YF9Qq3jtxz6vUuK1RqoFK6vU P1k3XSuNYfsCm6L54M9aUl0U7WBYRmuQELOiuGz23Jf6lrdHkuPtTH0r9a3U tyS8w/ilvkXyM/WtaFzS9wrZH2onlcl/h/FP3ytwrEjuCDUvWl+EfMZ1lMp+ Zn2vkOwP8o3Fc5XhvLZeydbX13Oq5L/XHeGxdTdu3ytuTD0reA7LqBB5a8Ec 1llB+ipEn7fHk5dZcU+/xvyuyLZwPwMfKxWkh+NTIbzrFT1n66DG1J8x1lg9 8TVx1ZG9X1HvZs0akrXmZK+7cXzeXXO6qD4sZ3UdaB3ZtK7HrJ5KiAuJX2Wd +L/OsSaxqjgcLUZOdiUeizWD4xrxy9YshNMaxZDPUey9TTZWYVx57tCx9QCX dZarNmcqAf9a4GuYp36dxFshNkaxQ36vonxRtla8r3RPVgJddG8ynRWai6s8 N9fX/RzKz/VK6F+og+97XGvCmPiY+rn1QLb5bXId750VtA9t/qyaPMN5Reu6 xZTlPKt/LjcqiK9Csab7M6y1uq5yfFA+VvheDOvrOtnvtgasIVsqCEOsr+Jw X0d8ci57viB+FpcKxoLnntdP1le8n25/IBnrtiZVUC1C9od9wPvE96LdH+H+ pPm3LoyF9Q/3o4qzP6yZdG9L/S3sbbSO8ljhWMj9k+vmtUGqh2Gdt+tI367E cQnPD2H/tPWT5xseWwvmeD5J+UrrQlj/w3z2cfM1JvQrxGp9HcfCxomvLcIn zGMa23XUpyvuN60dNP9wPeH5l859537u43UkFlNpn/M9znsHjaOMTbjnWS+t +Lru6ySSc4mc+6IxIZhXmB0RPp6zz+Jzn9y3pNrO48RrXvG5j/Y0lptB37W5 E/p3Ic99uC/xOEv1KnaWiu7BTZz7KG+F6PZ1leOD8rHkuY/4WMF1ANWMS+zc l/qWbIu031PfCnFJfSuMYepbuC6lvuX3TuhH6lu+zqTvFWHfjfUDqScEuZi+ Vwh7V8pXWhfC+h/ms4+brzGhXyFW6+s4FjZOfG0RPmEe09iuoz5dcb/l856U q2F+r9l9ROStZ5XjlZyOEzpuxyrHw2cF8fLf5v24elZCHs5bAV3hGKwFGcdz fAKdirdANtcfo0rBfMXMF/EY+ccZNn6v+Xyq2N+Y0F6tVGj+eR70tHLJesZf YWtRXlcq6wLfejS2x2P4ER54npDnUSwxXmLcKnQd9R/X7TW/f9bomYjjAZgX xj9mr5RvhK9CY078EfZNBeUIwQ3/rkTnA9y4jWTPcXsrgo1hbI4H60rsFxen dTVnY0Z/C3ZJdQT2eyQ2wXhFmAt8C+WFewr1hDVcl4V8Qnko57YQnzK5J+Vg Qd5VKpUCnhL7rGDPHUcxPl5mX9i8k2JG6nO1fRhiKOXCcVeTI7kaqynOBrr2 eFDvIjKiOVsFC2GPYhuOH0c4sd9RG1iOE3yK4l1B80H9rpInUryw3ZKvvHdK NZPHtqiPcJzL2ivmR2QPBTkckYVjXalyViJYVRAhzKrEvVz9RH5FexOPezr3 RffVJs59gW3R3uf5jhf15+NMLl5frRZVcJ2RfGF6SU24eOc+yleh9sZyT8zB ElStvwV86dzHfQ798TyXyrmPryd9NpaPrCbF8BPXlck9KQcL8u65cu6rhknq W0UxTX2rcI8dT30r9S0tI/UtYV2Z3JNysCDvnit9K32vKPAL5TjBpyjeFTQf 1O8qeSLFK32vuOS/V1St6eK+9mea06dOZadyOo2Iv7ux0+G4ptOe7/RpkUeS ebpQZsgn2nU6PhfoKNAV8+8Utv10hB/7fNqPnzx1Mjt10tApQ+j95MmC+ZOn 3HsMq1NIlyTjJJbFdJHYlYgBxec08RPPFecJx1LOFccLPhh/TnK8qlAs90ie IB+KcqQo7yQfTkn+47E8X6J7rNp+qZbnPEdtvAIbUO5G8rhaLIv3W3FsxXgX 5U0BptZP0V70fpLtvZMn+Z6LkWxLEKMNYBWLNcg+VRW/EtiquJ6m8qUcj+FK 4n8aydxEPpzydhDfCvfJ6SC+El7S+mh8imJm1/C1sXwScQj9CuoNix3NAxnf Ur2taIz3pxiv4NspFr+YnHiPFGqdwcHlF9Ir4k50xWvZqULchTxh/pWlWJ2K 5swpoa4K9jlbTsvronvPrY/kFsRAOJelc9/Tc+47xXOTvUfPIEH8ZftPCTIL +74o59I992EMT1WLcTXbpTxM577n1LkP596pGL9Ip0Vb0rmvLG3m3Jf6Vupb qW+JeZj6VupbqW9F8yh9ryjIJxGH9L0i7JHpe8WF/l4RraOnwz566hTGwdPE 9EyiRImegzR5CdiQKFGiRIkSJUqU6OmndO5LlChRokTPJEp9K1GiRIme/bTR Wr9ld+2FoStqs99VVLd52uNpq0j1myQjF+l6fk2Tem7W1yL63QLagp5RukAx w/HiesNYch9jcSzOgxAnYa7AjqL1sh0FvkR95evjORvGvFqel+ApyPXn7wVq ILR1L+MjPGgPEPl1wr7YRK5ewHxNlChRouc6PW/77qeNLrZviRIlSpTo2UdP Z99KlCjR5uli14ZEiRIlSpRIov8f98ZNLw== "], {{0, 0}, {1714, 38}}, {0, 255}, ColorFunction->RGBColor], ImageSize->{1714, 38}, PlotRange->{{0, 1714}, {0, 38}}], Alignment->Left, BaseStyle->{"Hyperlink", "DemonstrationHeader"}, ButtonData->{ URL["http://demonstrations.wolfram.com"], None}, ButtonNote->"http://demonstrations.wolfram.com"]], "DemonstrationHeader"], Cell["Parameterizing Temperature-Viscosity Relations", "DemoTitle"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a$$ = 700., $CellContext`A$$ = -1., $CellContext`actPt$$ = False, $CellContext`b$$ = 50., $CellContext`B$$ = 185., $CellContext`C1$$ = 2., $CellContext`c2$$ = 0.4, $CellContext`C2$$ = 100., $CellContext`c4$$ = 0.9, $CellContext`currP1$$ = 50., $CellContext`currP2$$ = 50., $CellContext`currP3$$ = 700., $CellContext`currP4$$ = 50., $CellContext`Ea$$ = 50., $CellContext`lastP1$$ = 50., $CellContext`lastP2$$ = 50., $CellContext`lastP3$$ = 700., $CellContext`lastP4$$ = 50., $CellContext`m2$$ = 0.6, $CellContext`m4$$ = 0.9, $CellContext`model$$ = 3, $CellContext`mT$$ = 50., $CellContext`oldModel$$ = 3, $CellContext`oldT1$$ = 50., $CellContext`oldT2$$ = 110., $CellContext`oldT3$$ = 140., $CellContext`old\[Mu]1$$ = 23.6, $CellContext`old\[Mu]2$$ = 7.2, $CellContext`old\[Mu]3$$ = 4.6, $CellContext`p1$$ = 50., $CellContext`p1Name$$ = "", $CellContext`p2$$ = 50., $CellContext`p2Name$$ = "", $CellContext`p3$$ = 700., $CellContext`p3Name$$ = "", $CellContext`p4$$ = 50., $CellContext`p4Name$$ = "", $CellContext`paramText$$ = "", $CellContext`prP1$$ = "", $CellContext`prP2$$ = "", $CellContext`prP3$$ = "", $CellContext`prP4$$ = "", $CellContext`resetDef$$ = False, $CellContext`resetLast$$ = False, $CellContext`solution$$ = {}, $CellContext`solve$$ = False, $CellContext`solved$$ = False, $CellContext`T0$$ = -30., $CellContext`T1$$ = 50., $CellContext`T2$$ = 110., $CellContext`T3$$ = 140., $CellContext`TAxisMax$$ = 200., $CellContext`Tmin2$$ = 0., $CellContext`Tmin4$$ = 15., $CellContext`Tref1$$ = 80., $CellContext`Tref3$$ = 50., $CellContext`Tref6$$ = 5., $CellContext`\[Mu]1$$ = 23.6, $CellContext`\[Mu]2$$ = 7.2, $CellContext`\[Mu]3$$ = 4.6, $CellContext`\[Mu]AxisMax$$ = 60., $CellContext`\[Mu]Tmin2$$ = 10., $CellContext`\[Mu]Tmin4$$ = 45., $CellContext`\[Mu]Tref1$$ = 1.5, $CellContext`\[Mu]Tref3$$ = 50., $CellContext`\[Mu]Tref6$$ = 12., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`model$$], 3, Row[{"\[Mu](", Style["T", Italic], ") model"}]}, { 1 -> "Arrhenius model", 2 -> "exponential power\[Hyphen]law model", 3 -> "modified Arrhenius model", 4 -> "reciprocal power\[Hyphen]law model", 5 -> "VTF model", 6 -> "WLF model"}}, {{ Hold[$CellContext`solve$$], False, ""}, {True -> "solve"}}, {{ Hold[$CellContext`resetLast$$], False, ""}, { True -> "reset to last values"}}, {{ Hold[$CellContext`resetDef$$], False, ""}, { True -> "reset to default values"}}, { Hold[ Row[{ Manipulate`Place[1], Spacer[10], Manipulate`Place[2], Spacer[10], Manipulate`Place[3]}]], Manipulate`Dump`ThisIsNotAControl}, { Hold["\n"], Manipulate`Dump`ThisIsNotAControl}, { Hold[ PaneSelector[{ 1 -> Style["Arrhenius model parameters", Bold], 2 -> Style["exponential power\[Hyphen]law model parameters", Bold], 3 -> Style["modified Arrhenius model parameters", Bold], 4 -> Style["reciprocal power\[Hyphen]law model parameters", Bold], 5 -> Style["VTF model parameters", Bold], 6 -> Style["WLF model parameters", Bold]}, $CellContext`model$$]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`Tref1$$], 80., ""}, 5., 250.}, {{ Hold[$CellContext`Tmin2$$], 0., ""}, 0., 40.}, {{ Hold[$CellContext`Tref3$$], 50., ""}, 10., 120.}, {{ Hold[$CellContext`Tmin4$$], 15., ""}, 0., 100.}, {{ Hold[$CellContext`A$$], -1., ""}, -20., 1.}, {{ Hold[$CellContext`Tref6$$], 5., ""}, -50., 50.}, { Hold[ PaneSelector[{1 -> Row[{ Spacer[5], Subscript[ Style["T", Italic], "ref"], Manipulate`Place[4]}], 2 -> Row[{ Spacer[5], Subscript[ Style["T", Italic], "min"], Manipulate`Place[5]}], 3 -> Row[{ Spacer[5], Subscript[ Style["T", Italic], "ref"], Manipulate`Place[6]}], 4 -> Row[{ Spacer[5], Subscript[ Style["T", Italic], "min"], Manipulate`Place[7]}], 5 -> Row[{ Spacer[7], Style["A", Italic], Manipulate`Place[8]}], 6 -> Row[{ Spacer[5], Subscript[ Style["T", Italic], "ref"], Manipulate`Place[9]}]}, $CellContext`model$$]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`\[Mu]Tref1$$], 1.5, ""}, 0.1, 100.}, {{ Hold[$CellContext`\[Mu]Tmin2$$], 10., ""}, 0.001, 510.}, {{ Hold[$CellContext`\[Mu]Tref3$$], 50., ""}, 0.1, 100.}, {{ Hold[$CellContext`\[Mu]Tmin4$$], 45., ""}, 1., 100.}, {{ Hold[$CellContext`B$$], 185., ""}, 0.1, 2500.}, {{ Hold[$CellContext`\[Mu]Tref6$$], 12., ""}, 0.01, 300.}, { Hold[ PaneSelector[{1 -> Row[{ Subscript["\[Mu]", Subscript[ Style["T", Italic], "ref"]], Manipulate`Place[10]}], 2 -> Row[{ Subscript["\[Mu]", Subscript[ Style["T", Italic], "min"]], Manipulate`Place[11]}], 3 -> Row[{ Subscript["\[Mu]", Subscript[ Style["T", Italic], "ref"]], Manipulate`Place[12]}], 4 -> Row[{ Subscript["\[Mu]", Subscript[ Style["T", Italic], "min"]], Manipulate`Place[13]}], 5 -> Row[{ Spacer[7], Style["B", Italic], Manipulate`Place[14]}], 6 -> Row[{ Subscript["\[Mu]", Subscript[ Style["T", Italic], "ref"]], Manipulate`Place[15]}]}, $CellContext`model$$]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`Ea$$], 50., ""}, 5., 100.}, {{ Hold[$CellContext`c2$$], 0.4, ""}, 0.0001, 2.}, {{ Hold[$CellContext`a$$], 700., ""}, 10., 10000.}, {{ Hold[$CellContext`c4$$], 0.9, ""}, 0.00001, 1.}, {{ Hold[$CellContext`T0$$], -30., ""}, -250., 0.}, {{ Hold[$CellContext`C1$$], 2., ""}, 0.1, 100.}, { Hold[ PaneSelector[{1 -> Row[{ Spacer[12], Subscript[ Style["E", Italic], "a"], Manipulate`Place[16]}], 2 -> Row[{ Spacer[22], Style["c", Italic], Manipulate`Place[17]}], 3 -> Row[{ Spacer[19], Style["a", Italic], Manipulate`Place[18]}], 4 -> Row[{ Spacer[22], Style["c", Italic], Manipulate`Place[19]}], 5 -> Row[{ Subscript[ Style["T", Italic], "0"], Manipulate`Place[20]}], 6 -> Row[{ Spacer[14], Subscript[ Style["C", Italic], "1"], Manipulate`Place[21]}]}, $CellContext`model$$]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`m2$$], 0.6, ""}, 0.2, 2.}, {{ Hold[$CellContext`b$$], 50., ""}, 1., 250.}, {{ Hold[$CellContext`m4$$], 0.9, ""}, 0.2, 5.}, {{ Hold[$CellContext`C2$$], 100., ""}, 1., 1500.}, { Hold[ PaneSelector[{2 -> Row[{ Spacer[19], Style["m", Italic], Manipulate`Place[22]}], 3 -> Row[{ Spacer[18], Style["b", Italic], Manipulate`Place[23]}], 4 -> Row[{ Spacer[19], Style["m", Italic], Manipulate`Place[24]}], 6 -> Row[{ Spacer[13], Subscript[ Style["C", Italic], "2"], Manipulate`Place[25]}]}, $CellContext`model$$]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Style[ Row[{ Style["T", Italic], ", \[Mu](", Style["T", Italic], ") coordinates of the measured points"}], Bold]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`T1$$], 50., Subscript[ Style["T", Italic], "1"]}, 0., 150.}, {{ Hold[$CellContext`\[Mu]1$$], 23.6, Subscript["\[Mu]", "1"]}, 0., 50.}, { Hold[ Row[{ Spacer[4], Manipulate`Place[26], Spacer[3], Manipulate`Place[27]}]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`T2$$], 110., Subscript[ Style["T", Italic], "2"]}, 0., 150.}, {{ Hold[$CellContext`\[Mu]2$$], 7.2, Subscript["\[Mu]", "2"]}, 0., 50.}, { Hold[ Row[{ Spacer[3], Manipulate`Place[28], Spacer[2], Manipulate`Place[29]}]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`T3$$], 140., Subscript[ Style["T", Italic], "3"]}, 0., 150.}, {{ Hold[$CellContext`\[Mu]3$$], 4.6, Subscript["\[Mu]", "3"]}, 0., 50.}, { Hold[ Row[{ Manipulate`Place[30], Spacer[1], Manipulate`Place[31]}]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`actPt$$], False, ""}, {True, False}}, { Hold[ Row[{ Style["moving point", Bold], Spacer[30], "activate moving point" Manipulate`Place[32]}]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`mT$$], 50., Style["T", Italic]}, 0.5, 250., 0.5}, { Hold[ Style["axes maxima", Bold]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`TAxisMax$$], 200., Row[{ Style["T", Italic], " axis max."}]}, 10., 250.}, {{ Hold[$CellContext`\[Mu]AxisMax$$], 60., "\[Mu] axis max."}, 1., 100.}, { Hold[$CellContext`oldModel$$], 3, 3}, {{ Hold[$CellContext`p1$$], 50.}, 0., 0.}, {{ Hold[$CellContext`p2$$], 50.}, 0., 0.}, {{ Hold[$CellContext`p3$$], 700.}, 0., 0.}, {{ Hold[$CellContext`p4$$], 50.}, 0., 0.}, { Hold[$CellContext`prP1$$], "", ""}, { Hold[$CellContext`prP2$$], "", ""}, { Hold[$CellContext`prP3$$], "", ""}, { Hold[$CellContext`prP4$$], "", ""}, { Hold[$CellContext`p1Name$$], "", ""}, { Hold[$CellContext`p2Name$$], "", ""}, { Hold[$CellContext`p3Name$$], "", ""}, { Hold[$CellContext`p4Name$$], "", ""}, { Hold[$CellContext`lastP1$$], 50., 50.}, { Hold[$CellContext`lastP2$$], 50., 50.}, { Hold[$CellContext`lastP3$$], 700., 700.}, { Hold[$CellContext`lastP4$$], 50., 50.}, { Hold[$CellContext`currP1$$], 50., 50.}, { Hold[$CellContext`currP2$$], 50., 50.}, { Hold[$CellContext`currP3$$], 700., 700.}, { Hold[$CellContext`currP4$$], 50., 50.}, { Hold[$CellContext`oldT1$$], 50., 50.}, { Hold[$CellContext`oldT2$$], 110., 110.}, { Hold[$CellContext`oldT3$$], 140., 140.}, { Hold[$CellContext`old\[Mu]1$$], 23.6, 23.6}, { Hold[$CellContext`old\[Mu]2$$], 7.2, 7.2}, { Hold[$CellContext`old\[Mu]3$$], 4.6, 4.6}, { Hold[$CellContext`solved$$], False, False}, { Hold[$CellContext`solution$$], {}}, { Hold[$CellContext`paramText$$], "", ""}}, Typeset`size$$ = { 320., {113.3544921875, 118.6455078125}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`model$14177$$ = False, $CellContext`solve$14178$$ = False, $CellContext`resetLast$14179$$ = False, $CellContext`resetDef$14180$$ = False, $CellContext`Tref1$14181$$ = 0, $CellContext`Tmin2$14182$$ = 0, $CellContext`Tref3$14183$$ = 0, $CellContext`Tmin4$14184$$ = 0, $CellContext`A$14185$$ = 0, $CellContext`Tref6$14186$$ = 0, $CellContext`\[Mu]Tref1$14187$$ = 0, $CellContext`\[Mu]Tmin2$14188$$ = 0, $CellContext`\[Mu]Tref3$14189$$ = 0, $CellContext`\[Mu]Tmin4$14190$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 2, StandardForm, "Variables" :> {$CellContext`a$$ = 700., $CellContext`A$$ = -1., $CellContext`actPt$$ = False, $CellContext`b$$ = 50., $CellContext`B$$ = 185., $CellContext`C1$$ = 2., $CellContext`c2$$ = 0.4, $CellContext`C2$$ = 100., $CellContext`c4$$ = 0.9, $CellContext`currP1$$ = 50., $CellContext`currP2$$ = 50., $CellContext`currP3$$ = 700., $CellContext`currP4$$ = 50., $CellContext`Ea$$ = 50., $CellContext`lastP1$$ = 50., $CellContext`lastP2$$ = 50., $CellContext`lastP3$$ = 700., $CellContext`lastP4$$ = 50., $CellContext`m2$$ = 0.6, $CellContext`m4$$ = 0.9, $CellContext`model$$ = 3, $CellContext`mT$$ = 50., $CellContext`oldModel$$ = 3, $CellContext`oldT1$$ = 50., $CellContext`oldT2$$ = 110., $CellContext`oldT3$$ = 140., $CellContext`old\[Mu]1$$ = 23.6, $CellContext`old\[Mu]2$$ = 7.2, $CellContext`old\[Mu]3$$ = 4.6, $CellContext`p1$$ = 50., $CellContext`p1Name$$ = "", $CellContext`p2$$ = 50., $CellContext`p2Name$$ = "", $CellContext`p3$$ = 700., $CellContext`p3Name$$ = "", $CellContext`p4$$ = 50., $CellContext`p4Name$$ = "", $CellContext`paramText$$ = "", $CellContext`prP1$$ = "", $CellContext`prP2$$ = "", $CellContext`prP3$$ = "", $CellContext`prP4$$ = "", $CellContext`resetDef$$ = False, $CellContext`resetLast$$ = False, $CellContext`solution$$ = {}, $CellContext`solve$$ = False, $CellContext`solved$$ = False, $CellContext`T0$$ = -30., $CellContext`T1$$ = 50., $CellContext`T2$$ = 110., $CellContext`T3$$ = 140., $CellContext`TAxisMax$$ = 200., $CellContext`Tmin2$$ = 0., $CellContext`Tmin4$$ = 15., $CellContext`Tref1$$ = 80., $CellContext`Tref3$$ = 50., $CellContext`Tref6$$ = 5., $CellContext`\[Mu]1$$ = 23.6, $CellContext`\[Mu]2$$ = 7.2, $CellContext`\[Mu]3$$ = 4.6, $CellContext`\[Mu]AxisMax$$ = 60., $CellContext`\[Mu]Tmin2$$ = 10., $CellContext`\[Mu]Tmin4$$ = 45., $CellContext`\[Mu]Tref1$$ = 1.5, $CellContext`\[Mu]Tref3$$ = 50., $CellContext`\[Mu]Tref6$$ = 12.}, "ControllerVariables" :> { Hold[$CellContext`model$$, $CellContext`model$14177$$, False], Hold[$CellContext`solve$$, $CellContext`solve$14178$$, False], Hold[$CellContext`resetLast$$, $CellContext`resetLast$14179$$, False], Hold[$CellContext`resetDef$$, $CellContext`resetDef$14180$$, False], Hold[$CellContext`Tref1$$, $CellContext`Tref1$14181$$, 0], Hold[$CellContext`Tmin2$$, $CellContext`Tmin2$14182$$, 0], Hold[$CellContext`Tref3$$, $CellContext`Tref3$14183$$, 0], Hold[$CellContext`Tmin4$$, $CellContext`Tmin4$14184$$, 0], Hold[$CellContext`A$$, $CellContext`A$14185$$, 0], Hold[$CellContext`Tref6$$, $CellContext`Tref6$14186$$, 0], Hold[$CellContext`\[Mu]Tref1$$, $CellContext`\[Mu]Tref1$14187$$, 0], Hold[$CellContext`\[Mu]Tmin2$$, $CellContext`\[Mu]Tmin2$14188$$, 0], Hold[$CellContext`\[Mu]Tref3$$, $CellContext`\[Mu]Tref3$14189$$, 0], Hold[$CellContext`\[Mu]Tmin4$$, $CellContext`\[Mu]Tmin4$14190$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Module[{$CellContext`defP1$, $CellContext`defP2$, $CellContext`defP3$, \ $CellContext`defP4$, $CellContext`eq$, $CellContext`\[Mu]$, \ $CellContext`\[Mu]Plot$, $CellContext`lineColor$, $CellContext`modelName$, \ $CellContext`muOfT$, $CellContext`ptsPlot$, $CellContext`R$ = 0.00831477, $CellContext`sp$}, If[ And[$CellContext`solved$$, Or[$CellContext`oldModel$$ != $CellContext`model$$, \ $CellContext`p1$$ != $CellContext`currP1$$, $CellContext`p2$$ != \ $CellContext`currP2$$, $CellContext`p3$$ != $CellContext`currP3$$, \ $CellContext`p4$$ != $CellContext`currP4$$, $CellContext`T1$$ != \ $CellContext`oldT1$$, $CellContext`T2$$ != $CellContext`oldT2$$, \ $CellContext`T3$$ != $CellContext`oldT3$$, $CellContext`\[Mu]1$$ != \ $CellContext`old\[Mu]1$$, $CellContext`\[Mu]2$$ != $CellContext`old\[Mu]2$$, \ $CellContext`\[Mu]3$$ != $CellContext`old\[Mu]3$$]], $CellContext`resetDef$$ = True; $CellContext`solved$$ = False; $CellContext`paramText$$ = "", $CellContext`oldT1$$ = $CellContext`T1$$; $CellContext`oldT2$$ = \ $CellContext`T2$$; $CellContext`oldT3$$ = $CellContext`T3$$; $CellContext`old\ \[Mu]1$$ = $CellContext`\[Mu]1$$; $CellContext`old\[Mu]2$$ = $CellContext`\ \[Mu]2$$; $CellContext`old\[Mu]3$$ = $CellContext`\[Mu]3$$]; Switch[$CellContext`model$$, 1, $CellContext`modelName$ = Style["Arrhenius model", Black, 12]; $CellContext`lineColor$ = Red; $CellContext`p1$$ = $CellContext`Tref1$$; $CellContext`defP1$ = 80.; $CellContext`p2$$ = $CellContext`\[Mu]Tref1$$; \ $CellContext`defP2$ = 1.5; $CellContext`p3$$ = $CellContext`Ea$$; $CellContext`defP3$ = 50.; $CellContext`p4$$ = 0.; $CellContext`defP4$ = 0.; $CellContext`\[Mu]$[ Pattern[$CellContext`T, Blank[]], Pattern[$CellContext`p1, Blank[]], Pattern[$CellContext`p2, Blank[]], Pattern[$CellContext`p3, Blank[]], Pattern[$CellContext`p4, Blank[]]] := $CellContext`Arrhenius[$CellContext`T, \ $CellContext`p1, $CellContext`p2, $CellContext`p3], 2, $CellContext`modelName$ = Style["exponential power\[Hyphen]law model", Black, 12]; $CellContext`lineColor$ = Orange; $CellContext`p1$$ = $CellContext`Tmin2$$; \ $CellContext`defP1$ = 0.; $CellContext`p2$$ = $CellContext`\[Mu]Tmin2$$; \ $CellContext`defP2$ = 10.; $CellContext`p3$$ = $CellContext`c2$$; $CellContext`defP3$ = 0.4; $CellContext`p4$$ = $CellContext`m2$$; $CellContext`defP4$ = 0.6; $CellContext`\[Mu]$[ Pattern[$CellContext`T, Blank[]], Pattern[$CellContext`p1, Blank[]], Pattern[$CellContext`p2, Blank[]], Pattern[$CellContext`p3, Blank[]], Pattern[$CellContext`p4, Blank[]]] := $CellContext`exponentialPowerLaw[$CellContext`T, \ $CellContext`p1, $CellContext`p2, $CellContext`p3, $CellContext`p4], 3, $CellContext`modelName$ = Style["modified Arrhenius model", Black, 12]; $CellContext`lineColor$ = ColorData[ "HTML", "Green"]; $CellContext`p1$$ = $CellContext`Tref3$$; \ $CellContext`defP1$ = 50; $CellContext`p2$$ = $CellContext`\[Mu]Tref3$$; \ $CellContext`defP2$ = 50.; $CellContext`p3$$ = $CellContext`a$$; $CellContext`defP3$ = 700.; $CellContext`p4$$ = $CellContext`b$$; $CellContext`defP4$ = 50.; $CellContext`\[Mu]$[ Pattern[$CellContext`T, Blank[]], Pattern[$CellContext`p1, Blank[]], Pattern[$CellContext`p2, Blank[]], Pattern[$CellContext`p3, Blank[]], Pattern[$CellContext`p4, Blank[]]] := $CellContext`modifiedArrhenius[$CellContext`T, \ $CellContext`p1, $CellContext`p2, $CellContext`p3, $CellContext`p4], 4, $CellContext`modelName$ = Style["reciprocal power\[Hyphen]law model", Black, 12]; $CellContext`lineColor$ = Blue; $CellContext`p1$$ = $CellContext`Tmin4$$; \ $CellContext`defP1$ = 15.; $CellContext`p2$$ = $CellContext`\[Mu]Tmin4$$; \ $CellContext`defP2$ = 45.; $CellContext`p3$$ = $CellContext`c4$$; $CellContext`defP3$ = 0.9; $CellContext`p4$$ = $CellContext`m4$$; $CellContext`defP4$ = 0.9; $CellContext`\[Mu]$[ Pattern[$CellContext`T, Blank[]], Pattern[$CellContext`p1, Blank[]], Pattern[$CellContext`p2, Blank[]], Pattern[$CellContext`p3, Blank[]], Pattern[$CellContext`p4, Blank[]]] := $CellContext`reciprocalPowerLaw[$CellContext`T, \ $CellContext`p1, $CellContext`p2, $CellContext`p3, $CellContext`p4], 5, $CellContext`modelName$ = Style["VFT model", Black, 12]; $CellContext`lineColor$ = Purple; $CellContext`p1$$ = $CellContext`A$$; $CellContext`defP1$ = \ -1.; $CellContext`p2$$ = $CellContext`B$$; $CellContext`defP2$ = 185.; $CellContext`p3$$ = $CellContext`T0$$; $CellContext`defP3$ = \ -30.; $CellContext`p4$$ = 0.; $CellContext`defP4$ = 0.; $CellContext`\[Mu]$[ Pattern[$CellContext`T, Blank[]], Pattern[$CellContext`p1, Blank[]], Pattern[$CellContext`p2, Blank[]], Pattern[$CellContext`p3, Blank[]], Pattern[$CellContext`p4, Blank[]]] := $CellContext`VTF[$CellContext`T, $CellContext`p1, \ $CellContext`p2, $CellContext`p3], 6, $CellContext`modelName$ = Style["WLF model", Black, 12]; $CellContext`lineColor$ = ColorData[ "HTML", "Indigo"]; $CellContext`p1$$ = $CellContext`Tref6$$; \ $CellContext`defP1$ = 5.; $CellContext`p2$$ = $CellContext`\[Mu]Tref6$$; \ $CellContext`defP2$ = 12.; $CellContext`p3$$ = $CellContext`C1$$; $CellContext`defP3$ = 2.; $CellContext`p4$$ = $CellContext`C2$$; $CellContext`defP4$ = 100.; $CellContext`\[Mu]$[ Pattern[$CellContext`T, Blank[]], Pattern[$CellContext`p1, Blank[]], Pattern[$CellContext`p2, Blank[]], Pattern[$CellContext`p3, Blank[]], Pattern[$CellContext`p4, Blank[]]] := $CellContext`WLF[$CellContext`T, $CellContext`p1, \ $CellContext`p2, $CellContext`p3, $CellContext`p4]]; $CellContext`muOfT$ = \ $CellContext`\[Mu]$[$CellContext`mT$$, $CellContext`p1$$, $CellContext`p2$$, \ $CellContext`p3$$, $CellContext`p4$$]; If[$CellContext`solve$$, Switch[$CellContext`model$$, 1, $CellContext`lastP1$$ = $CellContext`Tref1$$; \ $CellContext`lastP2$$ = $CellContext`\[Mu]Tref1$$; $CellContext`lastP3$$ = \ $CellContext`Ea$$; $CellContext`lastP4$$ = 0.; $CellContext`currP1$$ = $CellContext`lastP1$$; \ $CellContext`currP2$$ = $CellContext`lastP2$$; $CellContext`currP3$$ = \ $CellContext`lastP3$$; $CellContext`currP4$$ = $CellContext`lastP4$$; \ $CellContext`Ea$$ = $CellContext`R$ ( Log[$CellContext`\[Mu]1$$/$CellContext`\[Mu]2$$]/( 1/($CellContext`T1$$ + 273.16) - 1/($CellContext`T2$$ + 273.16))); $CellContext`p1$$ = $CellContext`T1$$; \ $CellContext`p2$$ = $CellContext`\[Mu]1$$; $CellContext`p3$$ = \ $CellContext`Ea$$; $CellContext`p4$$ = 0.; $CellContext`Tref1$$ = $CellContext`p1$$; \ $CellContext`\[Mu]Tref1$$ = $CellContext`p2$$; $CellContext`currP1$$ = \ $CellContext`p1$$; $CellContext`currP2$$ = $CellContext`p2$$; \ $CellContext`currP3$$ = $CellContext`p3$$; $CellContext`p1Name$$ = Style["\!\(\*SubscriptBox[\(T\), \(ref\)]\)", 12]; $CellContext`p2Name$$ = Style["\!\(\*SubscriptBox[\(\[Mu]\), SubscriptBox[\(T\), \ \(ref\)]]\)", 12]; $CellContext`p3Name$$ = Style["\!\(\*SubscriptBox[\(E\), \(a\)]\)", 12]; $CellContext`p4Name$$ = ""; $CellContext`eq$ = ""; $CellContext`sp$ = 50; $CellContext`prP1$$ = ToString[ NumberForm[$CellContext`p1$$, {8, 3}, DigitBlock -> 3, ExponentFunction -> (Null& )]]; $CellContext`prP2$$ = ToString[ NumberForm[$CellContext`p2$$, {8, 3}, DigitBlock -> 3, ExponentFunction -> (Null& )]]; $CellContext`prP3$$ = ToString[ NumberForm[$CellContext`p3$$, {8, 3}, DigitBlock -> 3, ExponentFunction -> (Null& )]]; $CellContext`prP4$$ = "", 2, $CellContext`lastP1$$ = $CellContext`Tmin2$$; \ $CellContext`lastP2$$ = $CellContext`\[Mu]Tmin2$$; $CellContext`lastP3$$ = \ $CellContext`c2$$; $CellContext`lastP4$$ = $CellContext`m2$$; \ $CellContext`currP1$$ = $CellContext`lastP1$$; $CellContext`currP2$$ = \ $CellContext`lastP2$$; $CellContext`currP3$$ = $CellContext`lastP3$$; \ $CellContext`currP4$$ = $CellContext`lastP4$$; $CellContext`p1$$ = \ $CellContext`currP1$$; $CellContext`solution$$ = \ $CellContext`solveEqns[$CellContext`model$$, $CellContext`\[Mu]$, \ $CellContext`T1$$, $CellContext`T2$$, $CellContext`T3$$, \ $CellContext`\[Mu]1$$, $CellContext`\[Mu]2$$, $CellContext`\[Mu]3$$, \ $CellContext`Tmin2$$, $CellContext`Tmin2$$, $CellContext`\[Mu]Tmin2$$, \ $CellContext`c2$$, $CellContext`m2$$]; $CellContext`\[Mu]Tmin2$$ = Part[$CellContext`solution$$, 1, 2]; $CellContext`p2$$ = $CellContext`\[Mu]Tmin2$$; \ $CellContext`c2$$ = Part[$CellContext`solution$$, 2, 2]; $CellContext`p3$$ = $CellContext`c2$$; $CellContext`m2$$ = Part[$CellContext`solution$$, 3, 2]; $CellContext`p4$$ = $CellContext`m2$$; \ $CellContext`p1Name$$ = Style[ "\!\(\*SubscriptBox[\(T\), \(min\)]\)", 12]; $CellContext`eq$ = " = "; $CellContext`sp$ = 10; $CellContext`p2Name$$ = Style["\!\(\*SubscriptBox[\(\[Mu]\), SubscriptBox[\(T\), \ \(min\)]]\)", 12]; $CellContext`p3Name$$ = Style["\!\(\*SubscriptBox[\(c\), \(2\)]\)", 12]; $CellContext`p4Name$$ = Style["\!\(\*SubscriptBox[\(m\), \(2\)]\)", 12]; $CellContext`prP1$$ = ToString[ NumberForm[$CellContext`p1$$, {8, 3}, DigitBlock -> 3, ExponentFunction -> (Null& )]]; $CellContext`prP2$$ = ToString[ NumberForm[$CellContext`p2$$, {8, 3}, DigitBlock -> 3, ExponentFunction -> (Null& )]]; $CellContext`prP3$$ = ToString[ NumberForm[$CellContext`p3$$, {8, 3}, DigitBlock -> 3, ExponentFunction -> (Null& )]]; $CellContext`prP4$$ = ToString[ NumberForm[$CellContext`p4$$, {8, 3}, DigitBlock -> 3, ExponentFunction -> (Null& )]], 3, $CellContext`lastP1$$ = $CellContext`Tref3$$; \ $CellContext`lastP2$$ = $CellContext`\[Mu]Tref3$$; $CellContext`lastP3$$ = \ $CellContext`a$$; $CellContext`lastP4$$ = $CellContext`b$$; \ $CellContext`currP1$$ = $CellContext`lastP1$$; $CellContext`currP2$$ = \ $CellContext`lastP2$$; $CellContext`currP3$$ = $CellContext`lastP3$$; \ $CellContext`currP4$$ = $CellContext`lastP4$$; $CellContext`p1$$ = \ $CellContext`currP1$$; $CellContext`solution$$ = \ $CellContext`solveEqns[$CellContext`model$$, $CellContext`\[Mu]$, \ $CellContext`T1$$, $CellContext`T2$$, $CellContext`T3$$, \ $CellContext`\[Mu]1$$, $CellContext`\[Mu]2$$, $CellContext`\[Mu]3$$, \ $CellContext`Tref3$$, $CellContext`Tref3$$, $CellContext`\[Mu]Tref3$$, \ $CellContext`a$$, $CellContext`b$$]; $CellContext`\[Mu]Tref3$$ = Part[$CellContext`solution$$, 1, 2]; $CellContext`p2$$ = $CellContext`\[Mu]Tref3$$; \ $CellContext`a$$ = Part[$CellContext`solution$$, 2, 2]; $CellContext`p3$$ = $CellContext`a$$; $CellContext`b$$ = Part[$CellContext`solution$$, 3, 2]; $CellContext`p4$$ = $CellContext`b$$; \ $CellContext`p1Name$$ = Style["\!\(\*SubscriptBox[\(T\), \(ref\)]\)", 12]; $CellContext`eq$ = " = "; $CellContext`sp$ = 10; $CellContext`p2Name$$ = Style["\!\(\*SubscriptBox[\(\[Mu]\), SubscriptBox[\(T\), \ \(ref\)]]\)", 12]; $CellContext`p3Name$$ = Style["a", 12]; $CellContext`p4Name$$ = Style["b", 12]; $CellContext`prP1$$ = ToString[ NumberForm[$CellContext`p1$$, {8, 3}, DigitBlock -> 3, ExponentFunction -> (Null& )]]; $CellContext`prP2$$ = ToString[ NumberForm[$CellContext`p2$$, {8, 3}, DigitBlock -> 3, ExponentFunction -> (Null& )]]; $CellContext`prP3$$ = ToString[ NumberForm[$CellContext`p3$$, {8, 3}, DigitBlock -> 3, ExponentFunction -> (Null& )]]; $CellContext`prP4$$ = ToString[ NumberForm[$CellContext`p4$$, {8, 3}, DigitBlock -> 3, ExponentFunction -> (Null& )]], 4, $CellContext`lastP1$$ = $CellContext`Tmin4$$; \ $CellContext`lastP2$$ = $CellContext`\[Mu]Tmin4$$; $CellContext`lastP3$$ = \ $CellContext`c4$$; $CellContext`lastP4$$ = $CellContext`m4$$; \ $CellContext`currP1$$ = $CellContext`lastP1$$; $CellContext`currP2$$ = \ $CellContext`lastP2$$; $CellContext`currP3$$ = $CellContext`lastP3$$; \ $CellContext`currP4$$ = $CellContext`lastP4$$; $CellContext`p1$$ = \ $CellContext`currP1$$; $CellContext`solution$$ = \ $CellContext`solveEqns[$CellContext`model$$, $CellContext`\[Mu]$, \ $CellContext`T1$$, $CellContext`T2$$, $CellContext`T3$$, \ $CellContext`\[Mu]1$$, $CellContext`\[Mu]2$$, $CellContext`\[Mu]3$$, \ $CellContext`Tmin4$$, $CellContext`Tmin4$$, $CellContext`\[Mu]Tmin4$$, \ $CellContext`c4$$, $CellContext`m4$$]; $CellContext`\[Mu]Tmin4$$ = Part[$CellContext`solution$$, 1, 2]; $CellContext`p2$$ = $CellContext`\[Mu]Tmin4$$; \ $CellContext`c4$$ = Part[$CellContext`solution$$, 2, 2]; $CellContext`p3$$ = $CellContext`c4$$; $CellContext`m4$$ = Part[$CellContext`solution$$, 3, 2]; $CellContext`p4$$ = $CellContext`m4$$; \ $CellContext`p1Name$$ = Style["\!\(\*SubscriptBox[\(T\), \(min\)]\)", 12]; $CellContext`eq$ = " = "; $CellContext`sp$ = 10; $CellContext`p2Name$$ = Style["\!\(\*SubscriptBox[\(\[Mu]\), SubscriptBox[\(T\), \ \(min\)]]\)", 12]; $CellContext`p3Name$$ = Style["\!\(\*SubscriptBox[\(c\), \(4\)]\)", 12]; $CellContext`p4Name$$ = Style["\!\(\*SubscriptBox[\(m\), \(4\)]\)", 12]; $CellContext`prP1$$ = ToString[ NumberForm[$CellContext`p1$$, {8, 3}, DigitBlock -> 3, ExponentFunction -> (Null& )]]; $CellContext`prP2$$ = ToString[ NumberForm[$CellContext`p2$$, {8, 3}, DigitBlock -> 3, ExponentFunction -> (Null& )]]; $CellContext`prP3$$ = ToString[ NumberForm[$CellContext`p3$$, {8, 3}, DigitBlock -> 3, ExponentFunction -> (Null& )]]; $CellContext`prP4$$ = ToString[ NumberForm[$CellContext`p4$$, {8, 3}, DigitBlock -> 3, ExponentFunction -> (Null& )]], 5, $CellContext`lastP1$$ = $CellContext`A$$; \ $CellContext`lastP2$$ = $CellContext`B$$; $CellContext`lastP3$$ = \ $CellContext`T0$$; $CellContext`lastP4$$ = 0.; $CellContext`currP1$$ = $CellContext`lastP1$$; \ $CellContext`currP2$$ = $CellContext`lastP2$$; $CellContext`currP3$$ = \ $CellContext`lastP3$$; $CellContext`currP4$$ = $CellContext`lastP4$$; \ $CellContext`p4$$ = $CellContext`currP4$$; $CellContext`solution$$ = \ $CellContext`solveEqns[$CellContext`model$$, $CellContext`\[Mu]$, \ $CellContext`T1$$, $CellContext`T2$$, $CellContext`T3$$, \ $CellContext`\[Mu]1$$, $CellContext`\[Mu]2$$, $CellContext`\[Mu]3$$, 0., $CellContext`A$$, $CellContext`B$$, $CellContext`T0$$, 0.]; $CellContext`A$$ = Part[$CellContext`solution$$, 1, 2]; $CellContext`p1$$ = $CellContext`A$$; $CellContext`B$$ = Part[$CellContext`solution$$, 2, 2]; $CellContext`p2$$ = $CellContext`B$$; $CellContext`T0$$ = Part[$CellContext`solution$$, 3, 2]; $CellContext`p3$$ = $CellContext`T0$$; \ $CellContext`p1Name$$ = Style["A", 12]; $CellContext`p2Name$$ = Style["B", 12]; $CellContext`p3Name$$ = Style["\!\(\*SubscriptBox[\(T\), \(0\)]\)", 12]; $CellContext`p4Name$$ = ""; $CellContext`eq$ = ""; $CellContext`sp$ = 50; $CellContext`prP1$$ = ToString[ NumberForm[$CellContext`p1$$, {8, 3}, DigitBlock -> 3, ExponentFunction -> (Null& )]]; $CellContext`prP2$$ = ToString[ NumberForm[$CellContext`p2$$, {8, 3}, DigitBlock -> 3, ExponentFunction -> (Null& )]]; $CellContext`prP3$$ = ToString[ NumberForm[$CellContext`p3$$, {8, 3}, DigitBlock -> 3, ExponentFunction -> (Null& )]]; $CellContext`prP4$$ = "", 6, $CellContext`lastP1$$ = $CellContext`Tref6$$; \ $CellContext`lastP2$$ = $CellContext`\[Mu]Tref6$$; $CellContext`lastP3$$ = \ $CellContext`C1$$; $CellContext`lastP4$$ = $CellContext`C2$$; \ $CellContext`currP1$$ = $CellContext`lastP1$$; $CellContext`currP2$$ = \ $CellContext`lastP2$$; $CellContext`currP3$$ = $CellContext`lastP3$$; \ $CellContext`currP4$$ = $CellContext`lastP4$$; $CellContext`p1$$ = \ $CellContext`currP1$$; $CellContext`solution$$ = \ $CellContext`solveEqns[$CellContext`model$$, $CellContext`\[Mu]$, \ $CellContext`T1$$, $CellContext`T2$$, $CellContext`T3$$, \ $CellContext`\[Mu]1$$, $CellContext`\[Mu]2$$, $CellContext`\[Mu]3$$, \ $CellContext`Tref6$$, $CellContext`Tref6$$, $CellContext`\[Mu]Tref6$$, \ $CellContext`C1$$, $CellContext`C2$$]; $CellContext`\[Mu]Tref6$$ = Part[$CellContext`solution$$, 1, 2]; $CellContext`p2$$ = $CellContext`\[Mu]Tref6$$; \ $CellContext`C1$$ = Part[$CellContext`solution$$, 2, 2]; $CellContext`p3$$ = $CellContext`C1$$; $CellContext`C2$$ = Part[$CellContext`solution$$, 3, 2]; $CellContext`p4$$ = $CellContext`C2$$; \ $CellContext`p1Name$$ = Style["\!\(\*SubscriptBox[\(T\), \(ref\)]\)", 12]; $CellContext`eq$ = " = "; $CellContext`sp$ = 10; $CellContext`p2Name$$ = Style["\!\(\*SubscriptBox[\(\[Mu]\), SubscriptBox[\(T\), \ \(ref\)]]\)", 12]; $CellContext`p3Name$$ = Style["\!\(\*SubscriptBox[\(C\), \(1\)]\)", 12]; $CellContext`p4Name$$ = Style["\!\(\*SubscriptBox[\(C\), \(2\)]\)", 12]; $CellContext`prP1$$ = ToString[ NumberForm[$CellContext`p1$$, {8, 3}, DigitBlock -> 3, ExponentFunction -> (Null& )]]; $CellContext`prP2$$ = ToString[ NumberForm[$CellContext`p2$$, {8, 3}, DigitBlock -> 3, ExponentFunction -> (Null& )]]; $CellContext`prP3$$ = ToString[ NumberForm[$CellContext`p3$$, {8, 3}, DigitBlock -> 3, ExponentFunction -> (Null& )]]; $CellContext`prP4$$ = ToString[ NumberForm[$CellContext`p4$$, {8, 3}, DigitBlock -> 3, ExponentFunction -> (Null& )]]]; $CellContext`solve$$ = False; $CellContext`solved$$ = True; $CellContext`oldModel$$ = $CellContext`model$$; \ $CellContext`currP1$$ = $CellContext`p1$$; $CellContext`currP2$$ = \ $CellContext`p2$$; $CellContext`currP3$$ = $CellContext`p3$$; \ $CellContext`currP4$$ = $CellContext`p4$$; $CellContext`paramText$$ = Text[ Row[{ Spacer[$CellContext`sp$], $CellContext`p1Name$$, " = ", $CellContext`prP1$$, Spacer[10], $CellContext`p2Name$$, "= ", $CellContext`prP2$$, Spacer[10], $CellContext`p3Name$$, " = ", $CellContext`prP3$$, Spacer[ 10], $CellContext`p4Name$$, $CellContext`eq$, \ $CellContext`prP4$$}]]]; If[$CellContext`resetLast$$, Switch[$CellContext`model$$, 1, $CellContext`Tref1$$ = $CellContext`lastP1$$; $CellContext`\ \[Mu]Tref1$$ = $CellContext`lastP2$$; $CellContext`Ea$$ = \ $CellContext`lastP3$$, 2, $CellContext`Tmin2$$ = $CellContext`lastP1$$; $CellContext`\ \[Mu]Tmin2$$ = $CellContext`lastP2$$; $CellContext`c2$$ = \ $CellContext`lastP3$$; $CellContext`m2$$ = $CellContext`lastP4$$, 3, $CellContext`Tref3$$ = $CellContext`lastP1$$; $CellContext`\ \[Mu]Tref3$$ = $CellContext`lastP2$$; $CellContext`a$$ = \ $CellContext`lastP3$$; $CellContext`b$$ = $CellContext`lastP4$$, 4, $CellContext`Tmin4$$ = $CellContext`lastP1$$; $CellContext`\ \[Mu]Tmin4$$ = $CellContext`lastP2$$; $CellContext`c4$$ = \ $CellContext`lastP3$$; $CellContext`m4$$ = $CellContext`lastP4$$, 5, $CellContext`A$$ = $CellContext`lastP1$$; $CellContext`B$$ = \ $CellContext`lastP2$$; $CellContext`T0$$ = $CellContext`lastP3$$, 6, $CellContext`Tref6$$ = $CellContext`lastP1$$; $CellContext`\ \[Mu]Tref6$$ = $CellContext`lastP2$$; $CellContext`C1$$ = \ $CellContext`lastP3$$; $CellContext`C2$$ = $CellContext`lastP4$$]; \ $CellContext`resetLast$$ = False; $CellContext`solved$$ = False; $CellContext`paramText$$ = ""]; If[$CellContext`resetDef$$, Switch[$CellContext`model$$, 1, $CellContext`Tref1$$ = $CellContext`defP1$; \ $CellContext`\[Mu]Tref1$$ = $CellContext`defP2$; $CellContext`Ea$$ = \ $CellContext`defP3$, 2, $CellContext`Tmin2$$ = $CellContext`defP1$; \ $CellContext`\[Mu]Tmin2$$ = $CellContext`defP2$; $CellContext`c2$$ = \ $CellContext`defP3$; $CellContext`m2$$ = $CellContext`defP4$, 3, $CellContext`Tref3$$ = $CellContext`defP1$; \ $CellContext`\[Mu]Tref3$$ = $CellContext`defP2$; $CellContext`a$$ = \ $CellContext`defP3$; $CellContext`b$$ = $CellContext`defP4$, 4, $CellContext`Tmin4$$ = $CellContext`defP1$; \ $CellContext`\[Mu]Tmin4$$ = $CellContext`defP2$; $CellContext`c4$$ = \ $CellContext`defP3$; $CellContext`m4$$ = $CellContext`defP4$, 5, $CellContext`A$$ = $CellContext`defP1$; $CellContext`B$$ = \ $CellContext`defP2$; $CellContext`T0$$ = $CellContext`defP3$, 6, $CellContext`Tref6$$ = $CellContext`defP1$; \ $CellContext`\[Mu]Tref6$$ = $CellContext`defP2$; $CellContext`C1$$ = \ $CellContext`defP3$; $CellContext`C2$$ = $CellContext`defP4$]; \ $CellContext`resetDef$$ = False; $CellContext`solved$$ = False; $CellContext`paramText$$ = ""]; $CellContext`\[Mu]Plot$ = Plot[ $CellContext`\[Mu]$[$CellContext`T, $CellContext`p1$$, \ $CellContext`p2$$, $CellContext`p3$$, $CellContext`p4$$], {$CellContext`T, 0., $CellContext`TAxisMax$$}, PlotRange -> {{0., $CellContext`TAxisMax$$}, { 0., $CellContext`\[Mu]AxisMax$$}}, PlotStyle -> {$CellContext`lineColor$, AbsoluteThickness[2]}, Frame -> True, FrameStyle -> Black, AxesStyle -> Black, TicksStyle -> Black, PlotLabel -> Style[ Row[{ Style["T", Italic], " = ", NumberForm[$CellContext`mT$$, {4, 1}, DigitBlock -> 3, ExponentFunction -> (Null& )], " \[Degree]C", Spacer[10], "\[Mu](", Style["T", Italic], ") = ", NumberForm[$CellContext`muOfT$, {8, 3}, DigitBlock -> 3, ExponentFunction -> (Null& )], " mPa\[CenterDot]s"}], Black, 12], FrameLabel -> {{ Style[ Row[{"\[Mu](", Style["T", Italic], ") (mPa\[CenterDot]s)"}], Black, 12], ""}, { Style[ Row[{ Style["T", Italic], " (\[Degree]C)"}], Black, 12], $CellContext`modelName$}}, Epilog -> If[$CellContext`actPt$$, {Black, AbsolutePointSize[6], Point[{$CellContext`mT$$, $CellContext`muOfT$}]}, {}], ImagePadding -> {{40, 10}, {40, 30}}, ImageSize -> {320, 215}]; If[$CellContext`actPt$$, $CellContext`ptsPlot$ = Graphics[{}], $CellContext`ptsPlot$ = ListPlot[{{{$CellContext`T1$$, $CellContext`\[Mu]1$$}}, \ {{$CellContext`T2$$, $CellContext`\[Mu]2$$}}, {{$CellContext`T3$$, \ $CellContext`\[Mu]3$$}}}, PlotRange -> {{0., $CellContext`TAxisMax$$}, { 0., $CellContext`\[Mu]AxisMax$$}}, PlotStyle -> {{Gray, AbsolutePointSize[6]}, {Brown, AbsolutePointSize[6]}, {Pink, AbsolutePointSize[6]}}, Frame -> True, FrameStyle -> Black, AxesStyle -> Black, TicksStyle -> Black, ImagePadding -> {{40, 10}, {40, 30}}, ImageSize -> {320, 215}]]; Column[{$CellContext`paramText$$, Show[$CellContext`\[Mu]Plot$, $CellContext`ptsPlot$]}]], "Specifications" :> {{{$CellContext`model$$, 3, Row[{"\[Mu](", Style["T", Italic], ") model"}]}, { 1 -> "Arrhenius model", 2 -> "exponential power\[Hyphen]law model", 3 -> "modified Arrhenius model", 4 -> "reciprocal power\[Hyphen]law model", 5 -> "VTF model", 6 -> "WLF model"}}, {{$CellContext`solve$$, False, ""}, { True -> "solve"}, ControlType -> Setter, Background -> Dynamic[ If[$CellContext`solved$$, LightGray, LightGreen]], Enabled -> Dynamic[ If[$CellContext`solved$$, False, True]], ControlPlacement -> 1}, {{$CellContext`resetLast$$, False, ""}, { True -> "reset to last values"}, ControlType -> Setter, Background -> Dynamic[ If[$CellContext`solved$$, LightBlue, LightGray]], Enabled -> Dynamic[ If[$CellContext`solved$$, True, False]], ControlPlacement -> 2}, {{$CellContext`resetDef$$, False, ""}, { True -> "reset to default values"}, ControlType -> Setter, Background -> RGBColor[1, 0.85, 0.85], ControlPlacement -> 3}, Row[{ Manipulate`Place[1], Spacer[10], Manipulate`Place[2], Spacer[10], Manipulate`Place[3]}], "\n", PaneSelector[{ 1 -> Style["Arrhenius model parameters", Bold], 2 -> Style["exponential power\[Hyphen]law model parameters", Bold], 3 -> Style["modified Arrhenius model parameters", Bold], 4 -> Style["reciprocal power\[Hyphen]law model parameters", Bold], 5 -> Style["VTF model parameters", Bold], 6 -> Style["WLF model parameters", Bold]}, $CellContext`model$$], {{$CellContext`Tref1$$, 80., ""}, 5., 250., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 4}, {{$CellContext`Tmin2$$, 0., ""}, 0., 40., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 5}, {{$CellContext`Tref3$$, 50., ""}, 10., 120., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 6}, {{$CellContext`Tmin4$$, 15., ""}, 0., 100., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 7}, {{$CellContext`A$$, -1., ""}, -20., 1., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 8}, {{$CellContext`Tref6$$, 5., ""}, -50., 50., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 9}, PaneSelector[{1 -> Row[{ Spacer[5], Subscript[ Style["T", Italic], "ref"], Manipulate`Place[4]}], 2 -> Row[{ Spacer[5], Subscript[ Style["T", Italic], "min"], Manipulate`Place[5]}], 3 -> Row[{ Spacer[5], Subscript[ Style["T", Italic], "ref"], Manipulate`Place[6]}], 4 -> Row[{ Spacer[5], Subscript[ Style["T", Italic], "min"], Manipulate`Place[7]}], 5 -> Row[{ Spacer[7], Style["A", Italic], Manipulate`Place[8]}], 6 -> Row[{ Spacer[5], Subscript[ Style["T", Italic], "ref"], Manipulate`Place[ 9]}]}, $CellContext`model$$], {{$CellContext`\[Mu]Tref1$$, 1.5, ""}, 0.1, 100., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 10}, {{$CellContext`\[Mu]Tmin2$$, 10., ""}, 0.001, 510., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 11}, {{$CellContext`\[Mu]Tref3$$, 50., ""}, 0.1, 100., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 12}, {{$CellContext`\[Mu]Tmin4$$, 45., ""}, 1., 100., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 13}, {{$CellContext`B$$, 185., ""}, 0.1, 2500., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 14}, {{$CellContext`\[Mu]Tref6$$, 12., ""}, 0.01, 300., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 15}, PaneSelector[{1 -> Row[{ Subscript["\[Mu]", Subscript[ Style["T", Italic], "ref"]], Manipulate`Place[10]}], 2 -> Row[{ Subscript["\[Mu]", Subscript[ Style["T", Italic], "min"]], Manipulate`Place[11]}], 3 -> Row[{ Subscript["\[Mu]", Subscript[ Style["T", Italic], "ref"]], Manipulate`Place[12]}], 4 -> Row[{ Subscript["\[Mu]", Subscript[ Style["T", Italic], "min"]], Manipulate`Place[13]}], 5 -> Row[{ Spacer[7], Style["B", Italic], Manipulate`Place[14]}], 6 -> Row[{ Subscript["\[Mu]", Subscript[ Style["T", Italic], "ref"]], Manipulate`Place[ 15]}]}, $CellContext`model$$], {{$CellContext`Ea$$, 50., ""}, 5., 100., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 16}, {{$CellContext`c2$$, 0.4, ""}, 0.0001, 2., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 17}, {{$CellContext`a$$, 700., ""}, 10., 10000., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 18}, {{$CellContext`c4$$, 0.9, ""}, 0.00001, 1., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 19}, {{$CellContext`T0$$, -30., ""}, -250., 0., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 20}, {{$CellContext`C1$$, 2., ""}, 0.1, 100., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 21}, PaneSelector[{1 -> Row[{ Spacer[12], Subscript[ Style["E", Italic], "a"], Manipulate`Place[16]}], 2 -> Row[{ Spacer[22], Style["c", Italic], Manipulate`Place[17]}], 3 -> Row[{ Spacer[19], Style["a", Italic], Manipulate`Place[18]}], 4 -> Row[{ Spacer[22], Style["c", Italic], Manipulate`Place[19]}], 5 -> Row[{ Subscript[ Style["T", Italic], "0"], Manipulate`Place[20]}], 6 -> Row[{ Spacer[14], Subscript[ Style["C", Italic], "1"], Manipulate`Place[ 21]}]}, $CellContext`model$$], {{$CellContext`m2$$, 0.6, ""}, 0.2, 2., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 22}, {{$CellContext`b$$, 50., ""}, 1., 250., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 23}, {{$CellContext`m4$$, 0.9, ""}, 0.2, 5., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 24}, {{$CellContext`C2$$, 100., ""}, 1., 1500., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 25}, PaneSelector[{2 -> Row[{ Spacer[19], Style["m", Italic], Manipulate`Place[22]}], 3 -> Row[{ Spacer[18], Style["b", Italic], Manipulate`Place[23]}], 4 -> Row[{ Spacer[19], Style["m", Italic], Manipulate`Place[24]}], 6 -> Row[{ Spacer[13], Subscript[ Style["C", Italic], "2"], Manipulate`Place[25]}]}, $CellContext`model$$], Delimiter, Style[ Row[{ Style["T", Italic], ", \[Mu](", Style["T", Italic], ") coordinates of the measured points"}], Bold], {{$CellContext`T1$$, 50., Subscript[ Style["T", Italic], "1"]}, 0., 150., Appearance -> "Labeled", ImageSize -> Tiny, Enabled -> Dynamic[ If[$CellContext`actPt$$, False, True]], ControlPlacement -> 26}, {{$CellContext`\[Mu]1$$, 23.6, Subscript["\[Mu]", "1"]}, 0., 50., Appearance -> "Labeled", ImageSize -> Tiny, Enabled -> Dynamic[ If[$CellContext`actPt$$, False, True]], ControlPlacement -> 27}, Row[{ Spacer[4], Manipulate`Place[26], Spacer[3], Manipulate`Place[27]}], {{$CellContext`T2$$, 110., Subscript[ Style["T", Italic], "2"]}, 0., 150., Appearance -> "Labeled", ImageSize -> Tiny, Enabled -> Dynamic[ If[$CellContext`actPt$$, False, True]], ControlPlacement -> 28}, {{$CellContext`\[Mu]2$$, 7.2, Subscript["\[Mu]", "2"]}, 0., 50., Appearance -> "Labeled", ImageSize -> Tiny, Enabled -> Dynamic[ If[$CellContext`actPt$$, False, True]], ControlPlacement -> 29}, Row[{ Spacer[3], Manipulate`Place[28], Spacer[2], Manipulate`Place[29]}], {{$CellContext`T3$$, 140., Subscript[ Style["T", Italic], "3"]}, 0., 150., Appearance -> "Labeled", ImageSize -> Tiny, Enabled -> Dynamic[ If[$CellContext`actPt$$, False, True]], ControlPlacement -> 30}, {{$CellContext`\[Mu]3$$, 4.6, Subscript["\[Mu]", "3"]}, 0., 50., Appearance -> "Labeled", ImageSize -> Tiny, Enabled -> Dynamic[ If[$CellContext`actPt$$, False, True]], ControlPlacement -> 31}, Row[{ Manipulate`Place[30], Spacer[1], Manipulate`Place[31]}], Delimiter, {{$CellContext`actPt$$, False, ""}, {True, False}, ControlType -> Checkbox, ControlPlacement -> 32}, Row[{ Style["moving point", Bold], Spacer[30], "activate moving point" Manipulate`Place[32]}], {{$CellContext`mT$$, 50., Style["T", Italic]}, 0.5, 250., 0.5, Appearance -> "Labeled", ImageSize -> Small, Enabled -> Dynamic[ If[$CellContext`actPt$$, True, False]]}, Delimiter, Style["axes maxima", Bold], {{$CellContext`TAxisMax$$, 200., Row[{ Style["T", Italic], " axis max."}]}, 10., 250., Appearance -> "Labeled", ImageSize -> Small}, {{$CellContext`\[Mu]AxisMax$$, 60., "\[Mu] axis max."}, 1., 100., Appearance -> "Labeled", ImageSize -> Small}, {$CellContext`oldModel$$, 3, 3, ControlType -> None}, {{$CellContext`p1$$, 50.}, 0., 0., ControlType -> None}, {{$CellContext`p2$$, 50.}, 0., 0., ControlType -> None}, {{$CellContext`p3$$, 700.}, 0., 0., ControlType -> None}, {{$CellContext`p4$$, 50.}, 0., 0., ControlType -> None}, {$CellContext`prP1$$, "", "", ControlType -> None}, {$CellContext`prP2$$, "", "", ControlType -> None}, {$CellContext`prP3$$, "", "", ControlType -> None}, {$CellContext`prP4$$, "", "", ControlType -> None}, {$CellContext`p1Name$$, "", "", ControlType -> None}, {$CellContext`p2Name$$, "", "", ControlType -> None}, {$CellContext`p3Name$$, "", "", ControlType -> None}, {$CellContext`p4Name$$, "", "", ControlType -> None}, {$CellContext`lastP1$$, 50., 50., ControlType -> None}, {$CellContext`lastP2$$, 50., 50., ControlType -> None}, {$CellContext`lastP3$$, 700., 700., ControlType -> None}, {$CellContext`lastP4$$, 50., 50., ControlType -> None}, {$CellContext`currP1$$, 50., 50., ControlType -> None}, {$CellContext`currP2$$, 50., 50., ControlType -> None}, {$CellContext`currP3$$, 700., 700., ControlType -> None}, {$CellContext`currP4$$, 50., 50., ControlType -> None}, {$CellContext`oldT1$$, 50., 50., ControlType -> None}, {$CellContext`oldT2$$, 110., 110., ControlType -> None}, {$CellContext`oldT3$$, 140., 140., ControlType -> None}, {$CellContext`old\[Mu]1$$, 23.6, 23.6, ControlType -> None}, {$CellContext`old\[Mu]2$$, 7.2, 7.2, ControlType -> None}, {$CellContext`old\[Mu]3$$, 4.6, 4.6, ControlType -> None}, {$CellContext`solved$$, False, False, ControlType -> None}, {$CellContext`solution$$, {}, ControlType -> None}, {$CellContext`paramText$$, "", "", ControlType -> None}}, "Options" :> { ControlPlacement -> Left, TrackedSymbols :> {$CellContext`model$$, $CellContext`solve$$, \ $CellContext`resetLast$$, $CellContext`resetDef$$, $CellContext`Tref1$$, \ $CellContext`\[Mu]Tref1$$, $CellContext`Ea$$, $CellContext`Tmin2$$, \ $CellContext`\[Mu]Tmin2$$, $CellContext`c2$$, $CellContext`m2$$, \ $CellContext`Tref3$$, $CellContext`\[Mu]Tref3$$, $CellContext`a$$, \ $CellContext`b$$, $CellContext`Tmin4$$, $CellContext`\[Mu]Tmin4$$, \ $CellContext`c4$$, $CellContext`m4$$, $CellContext`A$$, $CellContext`B$$, \ $CellContext`T0$$, $CellContext`Tref6$$, $CellContext`\[Mu]Tref6$$, \ $CellContext`C1$$, $CellContext`C2$$, $CellContext`T1$$, \ $CellContext`\[Mu]1$$, $CellContext`T2$$, $CellContext`\[Mu]2$$, \ $CellContext`T3$$, $CellContext`\[Mu]3$$, $CellContext`actPt$$, \ $CellContext`mT$$, $CellContext`TAxisMax$$, $CellContext`\[Mu]AxisMax$$}}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{666., {212., 219.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>(({$CellContext`Arrhenius[ Pattern[$CellContext`T, Blank[]], Pattern[$CellContext`Tref, Blank[]], Pattern[$CellContext`\[Mu]Tref, Blank[]], Pattern[$CellContext`Ea, Blank[]]] := $CellContext`\[Mu]Tref Exp[($CellContext`Ea/0.00831477) (1/($CellContext`T + 273.16) - 1/($CellContext`Tref + 273.16))], $CellContext`exponentialPowerLaw[ Pattern[$CellContext`T, Blank[]], Pattern[$CellContext`Tmin, Blank[]], Pattern[$CellContext`\[Mu]Tmin, Blank[]], Pattern[$CellContext`c, Blank[]], Pattern[$CellContext`m, Blank[]]] := $CellContext`\[Mu]Tmin Exp[(-$CellContext`c) ($CellContext`T - \ $CellContext`Tmin)^$CellContext`m], $CellContext`modifiedArrhenius[ Pattern[$CellContext`T, Blank[]], Pattern[$CellContext`Tref, Blank[]], Pattern[$CellContext`\[Mu]Tref, Blank[]], Pattern[$CellContext`a, Blank[]], Pattern[$CellContext`b, Blank[]]] := $CellContext`\[Mu]Tref Exp[$CellContext`a (1/($CellContext`T + $CellContext`b) - 1/($CellContext`Tref + $CellContext`b))], \ $CellContext`reciprocalPowerLaw[ Pattern[$CellContext`T, Blank[]], Pattern[$CellContext`Tmin, Blank[]], Pattern[$CellContext`\[Mu]Tmin, Blank[]], Pattern[$CellContext`c, Blank[]], Pattern[$CellContext`m, Blank[]]] := $CellContext`\[Mu]Tmin/( 1 + $CellContext`c ($CellContext`T - \ $CellContext`Tmin)^$CellContext`m), $CellContext`VTF[ Pattern[$CellContext`T, Blank[]], Pattern[$CellContext`A, Blank[]], Pattern[$CellContext`B, Blank[]], Pattern[$CellContext`T0, Blank[]]] := Exp[$CellContext`A + $CellContext`B/($CellContext`T - \ $CellContext`T0)], $CellContext`WLF[ Pattern[$CellContext`T, Blank[]], Pattern[$CellContext`Tref, Blank[]], Pattern[$CellContext`\[Mu]Tref, Blank[]], Pattern[$CellContext`c1, Blank[]], Pattern[$CellContext`c2, Blank[]]] := $CellContext`\[Mu]Tref/ 10^($CellContext`c1 (($CellContext`T - \ $CellContext`Tref)/($CellContext`c2 + $CellContext`T - $CellContext`Tref))), \ $CellContext`solveEqns[ Pattern[$CellContext`model, Blank[]], Pattern[$CellContext`\[Mu], Blank[]], Pattern[$CellContext`T1, Blank[]], Pattern[$CellContext`T2, Blank[]], Pattern[$CellContext`T3, Blank[]], Pattern[$CellContext`\[Mu]1, Blank[]], Pattern[$CellContext`\[Mu]2, Blank[]], Pattern[$CellContext`\[Mu]3, Blank[]], Pattern[$CellContext`TrefOrTmin, Blank[]], Pattern[$CellContext`initP1, Blank[]], Pattern[$CellContext`initP2, Blank[]], Pattern[$CellContext`initP3, Blank[]], Pattern[$CellContext`initP4, Blank[]]] := Module[{$CellContext`p1, $CellContext`p2, $CellContext`p3, \ $CellContext`p4, $CellContext`solution}, If[$CellContext`model == 5, $CellContext`solution = Quiet[ FindRoot[{$CellContext`\[Mu][$CellContext`T1, $CellContext`p1, \ $CellContext`p2, $CellContext`p3, $CellContext`p4] == $CellContext`\[Mu]1, \ $CellContext`\[Mu][$CellContext`T2, $CellContext`p1, $CellContext`p2, \ $CellContext`p3, $CellContext`p4] == $CellContext`\[Mu]2, \ $CellContext`\[Mu][$CellContext`T3, $CellContext`p1, $CellContext`p2, \ $CellContext`p3, $CellContext`p4] == $CellContext`\[Mu]3}, {$CellContext`p1, \ $CellContext`initP1}, {$CellContext`p2, $CellContext`initP2}, \ {$CellContext`p3, $CellContext`initP3}], { MessageName[FindRoot, "lstol"], MessageName[FindRoot, "cvmit"]}], $CellContext`solution = Quiet[ FindRoot[{$CellContext`\[Mu][$CellContext`T1, \ $CellContext`TrefOrTmin, $CellContext`p2, $CellContext`p3, $CellContext`p4] == \ $CellContext`\[Mu]1, $CellContext`\[Mu][$CellContext`T2, \ $CellContext`TrefOrTmin, $CellContext`p2, $CellContext`p3, $CellContext`p4] == \ $CellContext`\[Mu]2, $CellContext`\[Mu][$CellContext`T3, \ $CellContext`TrefOrTmin, $CellContext`p2, $CellContext`p3, $CellContext`p4] == \ $CellContext`\[Mu]3}, {$CellContext`p2, $CellContext`initP2}, \ {$CellContext`p3, $CellContext`initP3}, {$CellContext`p4, \ $CellContext`initP4}], { MessageName[FindRoot, "lstol"], MessageName[FindRoot, "cvmit"]}]]; $CellContext`solution], Attributes[PlotRange] = {ReadProtected}, Attributes[Subscript] = {NHoldRest}, Subscript[40, Overscript["L", "\[Vee]"]] = 208, Subscript[50, Overscript["L", "\[Vee]"]] = 208, Pattern[$CellContext`scaledPattern, Subscript[ Pattern[$CellContext`p, Blank[]], $CellContext`scaled]] := $CellContext`p \ $CellContext`zoomFct, Pattern[$CellContext`tinyPattern, Subscript[ Pattern[$CellContext`x, Blank[]], $CellContext`tiny]] := {$CellContext`x, 2/4}, Pattern[$CellContext`smallPattern, Subscript[ Pattern[$CellContext`x, Blank[]], $CellContext`small]] := {$CellContext`x, 3/4}, Pattern[$CellContext`nrmlPattern, Subscript[ Pattern[$CellContext`x, Blank[]], $CellContext`nrml]] := {$CellContext`x, 4/4}, Pattern[$CellContext`bigPattern, Subscript[ Pattern[$CellContext`x, Blank[]], $CellContext`big]] := {$CellContext`x, 5/4}, Pattern[$CellContext`hugePattern, Subscript[ Pattern[$CellContext`x, Blank[]], $CellContext`huge]] := {$CellContext`x, 6/4}, Pattern[$CellContext`varPattern$, Subscript[ Pattern[$CellContext`x$, Blank[]], $CellContext`varS]] := Subscript[$CellContext`x$, Hold[FE`pSize$$280]], Pattern[$CellContext`spinLuPattern, Subscript[ Pattern[$CellContext`prt, Blank[]], Overscript[ "L", "\[Vee]"]]] := $CellContext`position[$CellContext`e8bit, $CellContext`pBit[$CellContext`prt]], Pattern[$CellContext`spinLdPattern, Subscript[ Pattern[$CellContext`prt, Blank[]], Overscript[ "R", "\[Wedge]"]]] := $CellContext`position[$CellContext`e8bit, \ $CellContext`pBit[$CellContext`prt] + 2^Part[$CellContext`bOrd, 4]], Pattern[$CellContext`spinRuPattern, Subscript[ Pattern[$CellContext`prt, Blank[]], Overscript[ "L", "\[Wedge]"]]] := $CellContext`position[$CellContext`e8bit, \ $CellContext`pBit[$CellContext`prt] + 2^(Part[$CellContext`bOrd, 4] + 1)], Pattern[$CellContext`spinRdPattern, Subscript[ Pattern[$CellContext`prt, Blank[]], Overscript[ "R", "\[Vee]"]]] := $CellContext`position[$CellContext`e8bit, \ $CellContext`pBit[$CellContext`prt] + 2^Part[$CellContext`bOrd, 4] + 2^(Part[$CellContext`bOrd, 4] + 1)], Attributes[Overscript] = {NHoldRest}, Overscript[$CellContext`l1, Blank[]] = {74, 13, 163}, Overscript[$CellContext`l2, Blank[]] = {185, 109, 247}, Overscript[{183, 244, 94, 72, 148, 10, 192, 238, 23, 81, 128, 1, 203, 233, 18, 216, 162, 17, 48, 229, 12, 61, 158, 11}, Blank[]] = {74, 13, 163, 185, 109, 247, 65, 19, 234, 176, 129, 256, 54, 24, 239, 41, 95, 240, 209, 28, 245, 196, 99, 246}, Overscript[$CellContext`q1, Blank[]] = {191, 14, 32}, Overscript[$CellContext`q2, Blank[]] = {80, 110, 149}, Overscript[{66, 243, 225, 177, 147, 108, 67, 242, 224, 178, 146, 107, 68, 241, 223, 179, 145, 106, 75, 237, 154, 186, 127, 37, 76, 236, 153, 187, 126, 36, 77, 235, 152, 188, 125, 35, 210, 232, 144, 197, 161, 138, 211, 231, 143, 198, 160, 137, 212, 230, 142, 199, 159, 136, 55, 228, 124, 42, 157, 118, 56, 227, 123, 43, 156, 117, 57, 226, 122, 44, 155, 116}, Blank[]] = {191, 14, 32, 80, 110, 149, 190, 15, 33, 79, 111, 150, 189, 16, 34, 78, 112, 151, 182, 20, 103, 71, 130, 220, 181, 21, 104, 70, 131, 221, 180, 22, 105, 69, 132, 222, 47, 25, 113, 60, 96, 119, 46, 26, 114, 59, 97, 120, 45, 27, 115, 58, 98, 121, 202, 29, 133, 215, 100, 139, 201, 30, 134, 214, 101, 140, 200, 31, 135, 213, 102, 141}, Overscript[$CellContext`\[Omega]g1, Blank[]] = {167, 166, 164}, Overscript[$CellContext`\[Omega]g2, Blank[]] = {64, 206, 38}, Overscript[{90, 91, 93, 193, 51, 219}, Blank[]] = {167, 166, 164, 64, 206, 38}, Overscript[$CellContext`\[Phi]\[CapitalPhi]1, Blank[]] = {170, 171, 172}, Overscript[$CellContext`\[Phi]\[CapitalPhi]2, Blank[]] = {53, 50, 40}, Overscript[{87, 92, 175, 86, 89, 174, 85, 88, 173, 204, 195, 218, 207, 205, 194, 217, 49, 73}, Blank[]] = {170, 165, 82, 171, 168, 83, 172, 169, 84, 53, 62, 39, 50, 52, 63, 40, 208, 184}, Overscript[ Subscript[$CellContext`Ex, 1], Blank[]] = 2, Overscript[$CellContext`ex1, Blank[]] = {2, 3, 4, 5}, Overscript[ Subscript[$CellContext`Ex, 2], Blank[]] = 6, Overscript[$CellContext`ex2, Blank[]] = {6, 7, 8, 9}, Overscript[{255, 251, 254, 250, 253, 249, 252, 248}, Blank[]] = {2, 6, 3, 7, 4, 8, 5, 9}, Overscript[{183, 244, 94}, Blank[]] = {74, 13, 163}, Overscript[{72, 148, 10}, Blank[]] = {185, 109, 247}, Overscript[{66, 243, 225}, Blank[]] = {191, 14, 32}, Overscript[{177, 147, 108}, Blank[]] = {80, 110, 149}, Overscript[{90, 91, 93}, Blank[]] = {167, 166, 164}, Overscript[{193, 51, 219}, Blank[]] = {64, 206, 38}, Overscript[{87, 86, 85}, Blank[]] = {170, 171, 172}, Overscript[{204, 207, 217}, Blank[]] = {53, 50, 40}, Overscript[{255, 254, 253, 252}, Blank[]] = {2, 3, 4, 5}, Overscript[{251, 250, 249, 248}, Blank[]] = {6, 7, 8, 9}, $CellContext`l1 = {183, 244, 94}, $CellContext`l2 = {72, 148, 10}, $CellContext`q1 = {66, 243, 225}, $CellContext`q2 = {177, 147, 108}, $CellContext`\[Omega]g1 = { 90, 91, 93}, $CellContext`\[Omega]g2 = {193, 51, 219}, $CellContext`\[Phi]\[CapitalPhi]1 = {87, 86, 85}, $CellContext`\[Phi]\[CapitalPhi]2 = {204, 207, 217}, $CellContext`ex1 = {255, 254, 253, 252}, $CellContext`ex2 = { 251, 250, 249, 248}, $CellContext`zoomFct := 1. 10^FE`zoom$$280, FE`zoom$$280 = 0, Attributes[$CellContext`x$] = {Temporary}, FE`pSize$$280 = $CellContext`nrml, $CellContext`position[ Pattern[$CellContext`x, Blank[]], Pattern[$CellContext`y, Blank[]]] := $CellContext`first[ Flatten[ Position[$CellContext`x, $CellContext`y, 1, Heads -> False]]], $CellContext`first[ Pattern[$CellContext`in, Blank[]]] := If[Length[$CellContext`in] == 0, $CellContext`in, First[$CellContext`in]], $CellContext`e8bit = {71, 128, 132, 136, 140, 192, 196, 200, 204, 67, 79, 15, 130, 146, 162, 178, 75, 11, 134, 150, 166, 182, 7, 138, 154, 170, 186, 142, 158, 174, 190, 147, 163, 179, 119, 103, 87, 240, 220, 244, 201, 93, 109, 125, 185, 169, 153, 13, 120, 228, 96, 232, 212, 137, 29, 45, 61, 249, 233, 217, 77, 216, 236, 208, 133, 17, 33, 49, 245, 229, 213, 65, 124, 129, 21, 37, 53, 241, 225, 209, 69, 156, 172, 188, 52, 36, 20, 56, 40, 16, 32, 24, 48, 3, 202, 218, 234, 250, 206, 222, 238, 254, 151, 167, 183, 115, 99, 83, 194, 210, 226, 242, 155, 171, 187, 127, 111, 95, 219, 235, 251, 63, 47, 31, 118, 102, 86, 70, 198, 214, 230, 246, 159, 175, 191, 123, 107, 91, 223, 239, 255, 59, 43, 27, 114, 98, 82, 66, 211, 227, 243, 55, 39, 23, 126, 110, 94, 78, 122, 106, 90, 74, 131, 176, 152, 160, 144, 168, 184, 148, 164, 180, 60, 44, 28, 197, 81, 97, 113, 181, 165, 149, 1, 252, 193, 85, 101, 117, 177, 161, 145, 5, 80, 108, 88, 205, 89, 105, 121, 189, 173, 157, 9, 84, 104, 224, 100, 248, 141, 25, 41, 57, 253, 237, 221, 73, 116, 92, 112, 215, 231, 247, 51, 35, 19, 62, 46, 30, 14, 58, 42, 26, 10, 135, 54, 38, 22, 6, 139, 203, 50, 34, 18, 2, 143, 207, 195, 76, 72, 68, 64, 12, 8, 4, 0, 199}, $CellContext`pBit[ Pattern[$CellContext`p, Blank[]]] := Part[$CellContext`e8b, Min[$CellContext`p, 256], $CellContext`sets + 2], $CellContext`e8b = {{1, 71, HoldForm[HoldForm[ Underoverscript[ Subscript["\[Nu]", "\[Tau]"], Subscript["w", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], { "w", "l"}, {$CellContext`tri, 3/2}, 1, Row[{ NumberForm[0``-1., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {2, 128, HoldForm[HoldForm[ Underoverscript[ Subscript["Ex", "1"], "\" \"", Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "+"]]], {"y", "d"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 5, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {3, 132, HoldForm[HoldForm[ Underoverscript[ Subscript["Ex", "1"], "\" \"", Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "+"]]], {"y", "l"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 5, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {4, 136, HoldForm[HoldForm[ Underoverscript[ Subscript["Ex", "1"], "\" \"", Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "+"]]], {"y", "m"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 5, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {5, 140, HoldForm[HoldForm[ Underoverscript[ Subscript["Ex", "1"], "\" \"", Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "+"]]], {"y", "m"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 5, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {6, 192, HoldForm[HoldForm[ Underoverscript[ Subscript["Ex", "2"], "\" \"", Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], { "w", "d"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 5, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {7, 196, HoldForm[HoldForm[ Underoverscript[ Subscript["Ex", "2"], "\" \"", Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], { "w", "l"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 5, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {8, 200, HoldForm[HoldForm[ Underoverscript[ Subscript["Ex", "2"], "\" \"", Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], { "w", "m"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 5, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {9, 204, HoldForm[HoldForm[ Underoverscript[ Subscript["Ex", "2"], "\" \"", Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], { "w", "m"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 5, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {10, 67, HoldForm[HoldForm[ Underoverscript[ Subscript["\[Nu]", "\[Tau]"], Subscript["w", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], { "w", "d"}, {$CellContext`tri, 3/2}, 1, Row[{ NumberForm[0``-1., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {11, 79, HoldForm[HoldForm[ Underoverscript[ Subscript["\[Nu]", "\[Tau]"], Subscript["w", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], { "w", "m"}, {$CellContext`tri, 3/2}, 1, Row[{ NumberForm[0``-1., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {12, 15, HoldForm[HoldForm[ Underoverscript["\[Tau]", Subscript["y", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "-"]]], { "y", "m"}, {$CellContext`tri, 3/2}, 1, Row[{ NumberForm[1776.99`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{ NumberForm[ 2.9060000000000001`4.*^-13, 10, NumberPadding -> {" ", "0"}], " S"}]}, {13, 130, HoldForm[HoldForm[ Underoverscript["\[Mu]", Subscript["y", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "+"]]], { "y", "d"}, {$CellContext`utr, 1}, 1, Row[{ NumberForm[105.658369`9., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{ NumberForm[2.19704`6.*^-6, 10, NumberPadding -> {" ", "0"}], " S"}]}, {14, 146, HoldForm[HoldForm[ Underoverscript["s", Subscript["o", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], { "o", "d"}, {$CellContext`dia, 1}, 2, Row[{ NumberForm[95.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {15, 162, HoldForm[HoldForm[ Underoverscript["s", Subscript["c", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], { "c", "d"}, {$CellContext`dia, 1}, 2, Row[{ NumberForm[95.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {16, 178, HoldForm[HoldForm[ Underoverscript["s", Subscript["m", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], { "m", "d"}, {$CellContext`dia, 1}, 2, Row[{ NumberForm[95.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {17, 75, HoldForm[HoldForm[ Underoverscript[ Subscript["\[Nu]", "\[Tau]"], Subscript["w", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], { "w", "m"}, {$CellContext`tri, 3/2}, 1, Row[{ NumberForm[0``-1., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {18, 11, HoldForm[HoldForm[ Underoverscript["\[Tau]", Subscript["y", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "-"]]], { "y", "m"}, {$CellContext`tri, 3/2}, 1, Row[{ NumberForm[1776.99`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{ NumberForm[ 2.9060000000000001`4.*^-13, 10, NumberPadding -> {" ", "0"}], " S"}]}, {19, 134, HoldForm[HoldForm[ Underoverscript["\[Mu]", Subscript["y", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "+"]]], { "y", "l"}, {$CellContext`utr, 1}, 1, Row[{ NumberForm[105.658369`9., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{ NumberForm[2.19704`6.*^-6, 10, NumberPadding -> {" ", "0"}], " S"}]}, {20, 150, HoldForm[HoldForm[ Underoverscript["s", Subscript["o", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`1\/3\)"]]], { "o", "l"}, {$CellContext`dia, 1}, 2, Row[{ NumberForm[95.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {21, 166, HoldForm[HoldForm[ Underoverscript["s", Subscript["c", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`1\/3\)"]]], { "c", "l"}, {$CellContext`dia, 1}, 2, Row[{ NumberForm[95.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {22, 182, HoldForm[HoldForm[ Underoverscript["s", Subscript["m", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`1\/3\)"]]], { "m", "l"}, {$CellContext`dia, 1}, 2, Row[{ NumberForm[95.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {23, 7, HoldForm[HoldForm[ Underoverscript["\[Tau]", Subscript["y", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "-"]]], { "y", "l"}, {$CellContext`tri, 3/2}, 1, Row[{ NumberForm[1776.99`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{ NumberForm[ 2.9060000000000001`4.*^-13, 10, NumberPadding -> {" ", "0"}], " S"}]}, {24, 138, HoldForm[HoldForm[ Underoverscript["\[Mu]", Subscript["y", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "+"]]], { "y", "m"}, {$CellContext`utr, 1}, 1, Row[{ NumberForm[105.658369`9., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{ NumberForm[2.19704`6.*^-6, 10, NumberPadding -> {" ", "0"}], " S"}]}, {25, 154, HoldForm[HoldForm[ Underoverscript["s", Subscript["o", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`1\/3\)"]]], { "o", "m"}, {$CellContext`dia, 1}, 2, Row[{ NumberForm[95.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {26, 170, HoldForm[HoldForm[ Underoverscript["s", Subscript["c", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`1\/3\)"]]], { "c", "m"}, {$CellContext`dia, 1}, 2, Row[{ NumberForm[95.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {27, 186, HoldForm[HoldForm[ Underoverscript["s", Subscript["m", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`1\/3\)"]]], { "m", "m"}, {$CellContext`dia, 1}, 2, Row[{ NumberForm[95.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {28, 142, HoldForm[HoldForm[ Underoverscript["\[Mu]", Subscript["y", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "+"]]], { "y", "m"}, {$CellContext`utr, 1}, 1, Row[{ NumberForm[105.658369`9., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{ NumberForm[2.19704`6.*^-6, 10, NumberPadding -> {" ", "0"}], " S"}]}, {29, 158, HoldForm[HoldForm[ Underoverscript["s", Subscript["o", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], { "o", "m"}, {$CellContext`dia, 1}, 2, Row[{ NumberForm[95.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {30, 174, HoldForm[HoldForm[ Underoverscript["s", Subscript["c", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], { "c", "m"}, {$CellContext`dia, 1}, 2, Row[{ NumberForm[95.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {31, 190, HoldForm[HoldForm[ Underoverscript["s", Subscript["m", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], { "m", "m"}, {$CellContext`dia, 1}, 2, Row[{ NumberForm[95.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {32, 147, HoldForm[HoldForm[ Underoverscript["b", Subscript["o", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], { "o", "d"}, {$CellContext`dia, 3/2}, 2, Row[{ NumberForm[4200.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {33, 163, HoldForm[HoldForm[ Underoverscript["b", Subscript["c", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], { "c", "d"}, {$CellContext`dia, 3/2}, 2, Row[{ NumberForm[4200.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {34, 179, HoldForm[HoldForm[ Underoverscript["b", Subscript["m", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], { "m", "d"}, {$CellContext`dia, 3/2}, 2, Row[{ NumberForm[4200.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {35, 119, HoldForm[HoldForm[ Underoverscript["t", Subscript["b", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`2\/3\)"]]], { "b", "l"}, {$CellContext`squ, 3/2}, 2, Row[{ NumberForm[174200.`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {36, 103, HoldForm[HoldForm[ Underoverscript["t", Subscript["g", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`2\/3\)"]]], { "g", "l"}, {$CellContext`squ, 3/2}, 2, Row[{ NumberForm[174200.`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {37, 87, HoldForm[HoldForm[ Underoverscript["t", Subscript["r", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`2\/3\)"]]], { "r", "l"}, {$CellContext`squ, 3/2}, 2, Row[{ NumberForm[174200.`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {38, 240, HoldForm[HoldForm[ Underoverscript["W", Subscript["b", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], { "b", "m"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 3, Row[{ NumberForm[80403.`5., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{ NumberForm[3.076`4.*^-25, 10, NumberPadding -> {" ", "0"}], " S"}]}, {39, 220, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["e", "S"], "\[CapitalPhi]"}], Subscript["r", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], { "r", "m"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {40, 244, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["e", "S"], "\[CapitalPhi]"}], Subscript["b", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], { "b", "d"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {41, 201, HoldForm[HoldForm[ Underoverscript[ Subscript["\[Nu]", "e"], Subscript["w", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], { "w", "m"}, {$CellContext`utr, 1/2}, 1, Row[{ NumberForm[0``6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {42, 93, HoldForm[HoldForm[ Underoverscript["u", Subscript["r", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], { "r", "m"}, {$CellContext`squ, 1/2}, 2, Row[{ NumberForm[2.2`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {43, 109, HoldForm[HoldForm[ Underoverscript["u", Subscript["g", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], { "g", "m"}, {$CellContext`squ, 1/2}, 2, Row[{ NumberForm[2.2`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {44, 125, HoldForm[HoldForm[ Underoverscript["u", Subscript["b", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], { "b", "m"}, {$CellContext`squ, 1/2}, 2, Row[{ NumberForm[2.2`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {45, 185, HoldForm[HoldForm[ Underoverscript["d", Subscript["m", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`1\/3\)"]]], { "m", "m"}, {$CellContext`dia, 1/2}, 2, Row[{ NumberForm[5.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {46, 169, HoldForm[HoldForm[ Underoverscript["d", Subscript["c", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`1\/3\)"]]], { "c", "m"}, {$CellContext`dia, 1/2}, 2, Row[{ NumberForm[5.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {47, 153, HoldForm[HoldForm[ Underoverscript["d", Subscript["o", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`1\/3\)"]]], { "o", "m"}, {$CellContext`dia, 1/2}, 2, Row[{ NumberForm[5.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {48, 13, HoldForm[HoldForm[ Underoverscript["e", Subscript["y", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "-"]]], { "y", "m"}, {$CellContext`tri, 1/2}, 1, Row[{ NumberForm[0.51099892`8., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {49, 120, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["e", "T"], "\[CapitalPhi]"}], Subscript["b", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], { "b", "l"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {50, 228, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["e", "T"], "\[CapitalPhi]"}], Subscript["g", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], { "g", "d"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {51, 96, HoldForm[HoldForm[ Underoverscript[ Subscript["\[Omega]", "R"], Subscript["g", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], { "g", "m"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 3, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {52, 232, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["e", "T"], "\[CapitalPhi]"}], Subscript["g", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], { "g", "l"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {53, 212, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["e", "S"], "\[CapitalPhi]"}], Subscript["r", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], { "r", "d"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {54, 137, HoldForm[HoldForm[ Underoverscript["e", Subscript["y", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "+"]]], { "y", "m"}, {$CellContext`utr, 1/2}, 1, Row[{ NumberForm[0.51099892`8., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {55, 29, HoldForm[HoldForm[ Underoverscript["d", Subscript["o", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "o", "m"}, {$CellContext`squ, 1/2}, 2, Row[{ NumberForm[5.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {56, 45, HoldForm[HoldForm[ Underoverscript["d", Subscript["c", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "c", "m"}, {$CellContext`squ, 1/2}, 2, Row[{ NumberForm[5.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {57, 61, HoldForm[HoldForm[ Underoverscript["d", Subscript["m", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "m", "m"}, {$CellContext`squ, 1/2}, 2, Row[{ NumberForm[5.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {58, 249, HoldForm[HoldForm[ Underoverscript["u", Subscript["b", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "b", "m"}, {$CellContext`dia, 1/2}, 2, Row[{ NumberForm[2.2`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {59, 233, HoldForm[HoldForm[ Underoverscript["u", Subscript["g", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "g", "m"}, {$CellContext`dia, 1/2}, 2, Row[{ NumberForm[2.2`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {60, 217, HoldForm[HoldForm[ Underoverscript["u", Subscript["r", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "r", "m"}, {$CellContext`dia, 1/2}, 2, Row[{ NumberForm[2.2`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {61, 77, HoldForm[HoldForm[ Underoverscript[ Subscript["\[Nu]", "e"], Subscript["w", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], { "w", "m"}, {$CellContext`tri, 1/2}, 1, Row[{ NumberForm[0``6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {62, 216, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["e", "S"], "\[CapitalPhi]"}], Subscript["r", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], { "r", "l"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {63, 236, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["e", "T"], "\[CapitalPhi]"}], Subscript["g", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], { "g", "m"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {64, 208, HoldForm[HoldForm[ Underoverscript[ Subscript["\[Omega]", "L"], Subscript["r", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], { "r", "m"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 3, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {65, 133, HoldForm[HoldForm[ Underoverscript["e", Subscript["y", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "+"]]], { "y", "l"}, {$CellContext`utr, 1/2}, 1, Row[{ NumberForm[0.51099892`8., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {66, 17, HoldForm[HoldForm[ Underoverscript["d", Subscript["o", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "o", "d"}, {$CellContext`squ, 1/2}, 2, Row[{ NumberForm[5.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {67, 33, HoldForm[HoldForm[ Underoverscript["d", Subscript["c", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "c", "d"}, {$CellContext`squ, 1/2}, 2, Row[{ NumberForm[5.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {68, 49, HoldForm[HoldForm[ Underoverscript["d", Subscript["m", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "m", "d"}, {$CellContext`squ, 1/2}, 2, Row[{ NumberForm[5.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {69, 245, HoldForm[HoldForm[ Underoverscript["u", Subscript["b", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "b", "l"}, {$CellContext`dia, 1/2}, 2, Row[{ NumberForm[2.2`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {70, 229, HoldForm[HoldForm[ Underoverscript["u", Subscript["g", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "g", "l"}, {$CellContext`dia, 1/2}, 2, Row[{ NumberForm[2.2`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {71, 213, HoldForm[HoldForm[ Underoverscript["u", Subscript["r", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "r", "l"}, {$CellContext`dia, 1/2}, 2, Row[{ NumberForm[2.2`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {72, 65, HoldForm[HoldForm[ Underoverscript[ Subscript["\[Nu]", "e"], Subscript["w", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], { "w", "d"}, {$CellContext`tri, 1/2}, 1, Row[{ NumberForm[0``6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {73, 124, HoldForm[HoldForm[ Underoverscript["B", Subscript["b", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], { "b", "m"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[91187.6`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{ NumberForm[ 2.637899999999999999999999999999999`5.*^-25, 10, NumberPadding -> {" ", "0"}], " S"}]}, {74, 129, HoldForm[HoldForm[ Underoverscript["e", Subscript["y", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "+"]]], { "y", "d"}, {$CellContext`utr, 1/2}, 1, Row[{ NumberForm[0.51099892`8., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {75, 21, HoldForm[HoldForm[ Underoverscript["d", Subscript["o", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "o", "l"}, {$CellContext`squ, 1/2}, 2, Row[{ NumberForm[5.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {76, 37, HoldForm[HoldForm[ Underoverscript["d", Subscript["c", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "c", "l"}, {$CellContext`squ, 1/2}, 2, Row[{ NumberForm[5.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {77, 53, HoldForm[HoldForm[ Underoverscript["d", Subscript["m", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "m", "l"}, {$CellContext`squ, 1/2}, 2, Row[{ NumberForm[5.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {78, 241, HoldForm[HoldForm[ Underoverscript["u", Subscript["b", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "b", "d"}, {$CellContext`dia, 1/2}, 2, Row[{ NumberForm[2.2`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {79, 225, HoldForm[HoldForm[ Underoverscript["u", Subscript["g", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "g", "d"}, {$CellContext`dia, 1/2}, 2, Row[{ NumberForm[2.2`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {80, 209, HoldForm[HoldForm[ Underoverscript["u", Subscript["r", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "r", "d"}, {$CellContext`dia, 1/2}, 2, Row[{ NumberForm[2.2`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {81, 69, HoldForm[HoldForm[ Underoverscript[ Subscript["\[Nu]", "e"], Subscript["w", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], { "w", "l"}, {$CellContext`tri, 1/2}, 1, Row[{ NumberForm[0``6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {82, 156, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["x", "1"], "\[CapitalPhi]"}], Subscript["o", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "+"]]], {"o", "m"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {83, 172, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["x", "2"], "\[CapitalPhi]"}], Subscript["c", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "+"]]], {"c", "m"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {84, 188, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["x", "3"], "\[CapitalPhi]"}], Subscript["m", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "+"]]], {"m", "m"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {85, 52, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["x", "3"], "\[CapitalPhi]"}], Subscript["m", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "-"]]], {"m", "d"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {86, 36, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["x", "2"], "\[CapitalPhi]"}], Subscript["c", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "-"]]], {"c", "d"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {87, 20, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["x", "1"], "\[CapitalPhi]"}], Subscript["o", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "-"]]], {"o", "d"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {88, 56, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["x", "3"], "\[CapitalPhi]"}], Subscript["m", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "-"]]], {"m", "l"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {89, 40, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["x", "2"], "\[CapitalPhi]"}], Subscript["c", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "-"]]], {"c", "l"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {90, 16, HoldForm[HoldForm[ Underoverscript[ Superscript["g", Row[{"g", Overscript["b", "_"]}]], Subscript["o", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "-"]]], {"o", "m"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 3, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {91, 32, HoldForm[HoldForm[ Underoverscript[ Superscript["g", Row[{"r", Overscript["b", "_"]}]], Subscript["c", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "-"]]], {"c", "m"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 3, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {92, 24, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["x", "1"], "\[CapitalPhi]"}], Subscript["o", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "-"]]], {"o", "l"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {93, 48, HoldForm[HoldForm[ Underoverscript[ Superscript["g", Row[{"r", Overscript["g", "_"]}]], Subscript["m", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "-"]]], {"m", "m"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 3, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {94, 3, HoldForm[HoldForm[ Underoverscript["\[Tau]", Subscript["y", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "-"]]], { "y", "d"}, {$CellContext`tri, 3/2}, 1, Row[{ NumberForm[1776.99`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{ NumberForm[ 2.9060000000000001`4.*^-13, 10, NumberPadding -> {" ", "0"}], " S"}]}, {95, 202, HoldForm[HoldForm[ Underoverscript[ Subscript["\[Nu]", "\[Mu]"], Subscript["w", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], { "w", "m"}, {$CellContext`utr, 1}, 1, Row[{ NumberForm[0``1., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {96, 218, HoldForm[HoldForm[ Underoverscript["c", Subscript["r", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "r", "m"}, {$CellContext`dia, 1}, 2, Row[{ NumberForm[1250.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {97, 234, HoldForm[HoldForm[ Underoverscript["c", Subscript["g", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "g", "m"}, {$CellContext`dia, 1}, 2, Row[{ NumberForm[1250.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {98, 250, HoldForm[HoldForm[ Underoverscript["c", Subscript["b", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "b", "m"}, {$CellContext`dia, 1}, 2, Row[{ NumberForm[1250.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {99, 206, HoldForm[HoldForm[ Underoverscript[ Subscript["\[Nu]", "\[Mu]"], Subscript["w", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], { "w", "m"}, {$CellContext`utr, 1}, 1, Row[{ NumberForm[0``1., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {100, 222, HoldForm[HoldForm[ Underoverscript["c", Subscript["r", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "r", "m"}, {$CellContext`dia, 1}, 2, Row[{ NumberForm[1250.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {101, 238, HoldForm[HoldForm[ Underoverscript["c", Subscript["g", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "g", "m"}, {$CellContext`dia, 1}, 2, Row[{ NumberForm[1250.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {102, 254, HoldForm[HoldForm[ Underoverscript["c", Subscript["b", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "b", "m"}, {$CellContext`dia, 1}, 2, Row[{ NumberForm[1250.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {103, 151, HoldForm[HoldForm[ Underoverscript["b", Subscript["o", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`1\/3\)"]]], { "o", "l"}, {$CellContext`dia, 3/2}, 2, Row[{ NumberForm[4200.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {104, 167, HoldForm[HoldForm[ Underoverscript["b", Subscript["c", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`1\/3\)"]]], { "c", "l"}, {$CellContext`dia, 3/2}, 2, Row[{ NumberForm[4200.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {105, 183, HoldForm[HoldForm[ Underoverscript["b", Subscript["m", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`1\/3\)"]]], { "m", "l"}, {$CellContext`dia, 3/2}, 2, Row[{ NumberForm[4200.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {106, 115, HoldForm[HoldForm[ Underoverscript["t", Subscript["b", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], { "b", "d"}, {$CellContext`squ, 3/2}, 2, Row[{ NumberForm[174200.`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {107, 99, HoldForm[HoldForm[ Underoverscript["t", Subscript["g", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], { "g", "d"}, {$CellContext`squ, 3/2}, 2, Row[{ NumberForm[174200.`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {108, 83, HoldForm[HoldForm[ Underoverscript["t", Subscript["r", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], { "r", "d"}, {$CellContext`squ, 3/2}, 2, Row[{ NumberForm[174200.`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {109, 194, HoldForm[HoldForm[ Underoverscript[ Subscript["\[Nu]", "\[Mu]"], Subscript["w", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], { "w", "d"}, {$CellContext`utr, 1}, 1, Row[{ NumberForm[0``1., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {110, 210, HoldForm[HoldForm[ Underoverscript["c", Subscript["r", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "r", "d"}, {$CellContext`dia, 1}, 2, Row[{ NumberForm[1250.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {111, 226, HoldForm[HoldForm[ Underoverscript["c", Subscript["g", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "g", "d"}, {$CellContext`dia, 1}, 2, Row[{ NumberForm[1250.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {112, 242, HoldForm[HoldForm[ Underoverscript["c", Subscript["b", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "b", "d"}, {$CellContext`dia, 1}, 2, Row[{ NumberForm[1250.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {113, 155, HoldForm[HoldForm[ Underoverscript["b", Subscript["o", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`1\/3\)"]]], { "o", "m"}, {$CellContext`dia, 3/2}, 2, Row[{ NumberForm[4200.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {114, 171, HoldForm[HoldForm[ Underoverscript["b", Subscript["c", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`1\/3\)"]]], { "c", "m"}, {$CellContext`dia, 3/2}, 2, Row[{ NumberForm[4200.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {115, 187, HoldForm[HoldForm[ Underoverscript["b", Subscript["m", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`1\/3\)"]]], { "m", "m"}, {$CellContext`dia, 3/2}, 2, Row[{ NumberForm[4200.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {116, 127, HoldForm[HoldForm[ Underoverscript["t", Subscript["b", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], { "b", "m"}, {$CellContext`squ, 3/2}, 2, Row[{ NumberForm[174200.`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {117, 111, HoldForm[HoldForm[ Underoverscript["t", Subscript["g", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], { "g", "m"}, {$CellContext`squ, 3/2}, 2, Row[{ NumberForm[174200.`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {118, 95, HoldForm[HoldForm[ Underoverscript["t", Subscript["r", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], { "r", "m"}, {$CellContext`squ, 3/2}, 2, Row[{ NumberForm[174200.`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {119, 219, HoldForm[HoldForm[ Underoverscript["t", Subscript["r", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "r", "m"}, {$CellContext`dia, 3/2}, 2, Row[{ NumberForm[174200.`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {120, 235, HoldForm[HoldForm[ Underoverscript["t", Subscript["g", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "g", "m"}, {$CellContext`dia, 3/2}, 2, Row[{ NumberForm[174200.`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {121, 251, HoldForm[HoldForm[ Underoverscript["t", Subscript["b", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "b", "m"}, {$CellContext`dia, 3/2}, 2, Row[{ NumberForm[174200.`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {122, 63, HoldForm[HoldForm[ Underoverscript["b", Subscript["m", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "m", "m"}, {$CellContext`squ, 3/2}, 2, Row[{ NumberForm[4200.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {123, 47, HoldForm[HoldForm[ Underoverscript["b", Subscript["c", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "c", "m"}, {$CellContext`squ, 3/2}, 2, Row[{ NumberForm[4200.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {124, 31, HoldForm[HoldForm[ Underoverscript["b", Subscript["o", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "o", "m"}, {$CellContext`squ, 3/2}, 2, Row[{ NumberForm[4200.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {125, 118, HoldForm[HoldForm[ Underoverscript["c", Subscript["b", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`2\/3\)"]]], { "b", "l"}, {$CellContext`squ, 1}, 2, Row[{ NumberForm[1250.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {126, 102, HoldForm[HoldForm[ Underoverscript["c", Subscript["g", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`2\/3\)"]]], { "g", "l"}, {$CellContext`squ, 1}, 2, Row[{ NumberForm[1250.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {127, 86, HoldForm[HoldForm[ Underoverscript["c", Subscript["r", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`2\/3\)"]]], { "r", "l"}, {$CellContext`squ, 1}, 2, Row[{ NumberForm[1250.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {128, 70, HoldForm[HoldForm[ Underoverscript[ Subscript["\[Nu]", "\[Mu]"], Subscript["w", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], { "w", "l"}, {$CellContext`tri, 1}, 1, Row[{ NumberForm[0``1., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {129, 198, HoldForm[HoldForm[ Underoverscript[ Subscript["\[Nu]", "\[Mu]"], Subscript["w", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], { "w", "l"}, {$CellContext`utr, 1}, 1, Row[{ NumberForm[0``1., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {130, 214, HoldForm[HoldForm[ Underoverscript["c", Subscript["r", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "r", "l"}, {$CellContext`dia, 1}, 2, Row[{ NumberForm[1250.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {131, 230, HoldForm[HoldForm[ Underoverscript["c", Subscript["g", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "g", "l"}, {$CellContext`dia, 1}, 2, Row[{ NumberForm[1250.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {132, 246, HoldForm[HoldForm[ Underoverscript["c", Subscript["b", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "b", "l"}, {$CellContext`dia, 1}, 2, Row[{ NumberForm[1250.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {133, 159, HoldForm[HoldForm[ Underoverscript["b", Subscript["o", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], { "o", "m"}, {$CellContext`dia, 3/2}, 2, Row[{ NumberForm[4200.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {134, 175, HoldForm[HoldForm[ Underoverscript["b", Subscript["c", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], { "c", "m"}, {$CellContext`dia, 3/2}, 2, Row[{ NumberForm[4200.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {135, 191, HoldForm[HoldForm[ Underoverscript["b", Subscript["m", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], { "m", "m"}, {$CellContext`dia, 3/2}, 2, Row[{ NumberForm[4200.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {136, 123, HoldForm[HoldForm[ Underoverscript["t", Subscript["b", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`2\/3\)"]]], { "b", "m"}, {$CellContext`squ, 3/2}, 2, Row[{ NumberForm[174200.`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {137, 107, HoldForm[HoldForm[ Underoverscript["t", Subscript["g", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`2\/3\)"]]], { "g", "m"}, {$CellContext`squ, 3/2}, 2, Row[{ NumberForm[174200.`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {138, 91, HoldForm[HoldForm[ Underoverscript["t", Subscript["r", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`2\/3\)"]]], { "r", "m"}, {$CellContext`squ, 3/2}, 2, Row[{ NumberForm[174200.`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {139, 223, HoldForm[HoldForm[ Underoverscript["t", Subscript["r", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "r", "m"}, {$CellContext`dia, 3/2}, 2, Row[{ NumberForm[174200.`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {140, 239, HoldForm[HoldForm[ Underoverscript["t", Subscript["g", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "g", "m"}, {$CellContext`dia, 3/2}, 2, Row[{ NumberForm[174200.`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {141, 255, HoldForm[HoldForm[ Underoverscript["t", Subscript["b", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "b", "m"}, {$CellContext`dia, 3/2}, 2, Row[{ NumberForm[174200.`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {142, 59, HoldForm[HoldForm[ Underoverscript["b", Subscript["m", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "m", "m"}, {$CellContext`squ, 3/2}, 2, Row[{ NumberForm[4200.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {143, 43, HoldForm[HoldForm[ Underoverscript["b", Subscript["c", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "c", "m"}, {$CellContext`squ, 3/2}, 2, Row[{ NumberForm[4200.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {144, 27, HoldForm[HoldForm[ Underoverscript["b", Subscript["o", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "o", "m"}, {$CellContext`squ, 3/2}, 2, Row[{ NumberForm[4200.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {145, 114, HoldForm[HoldForm[ Underoverscript["c", Subscript["b", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], { "b", "d"}, {$CellContext`squ, 1}, 2, Row[{ NumberForm[1250.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {146, 98, HoldForm[HoldForm[ Underoverscript["c", Subscript["g", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], { "g", "d"}, {$CellContext`squ, 1}, 2, Row[{ NumberForm[1250.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {147, 82, HoldForm[HoldForm[ Underoverscript["c", Subscript["r", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], { "r", "d"}, {$CellContext`squ, 1}, 2, Row[{ NumberForm[1250.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {148, 66, HoldForm[HoldForm[ Underoverscript[ Subscript["\[Nu]", "\[Mu]"], Subscript["w", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], { "w", "d"}, {$CellContext`tri, 1}, 1, Row[{ NumberForm[0``1., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {149, 211, HoldForm[HoldForm[ Underoverscript["t", Subscript["r", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "r", "d"}, {$CellContext`dia, 3/2}, 2, Row[{ NumberForm[174200.`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {150, 227, HoldForm[HoldForm[ Underoverscript["t", Subscript["g", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "g", "d"}, {$CellContext`dia, 3/2}, 2, Row[{ NumberForm[174200.`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {151, 243, HoldForm[HoldForm[ Underoverscript["t", Subscript["b", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "b", "d"}, {$CellContext`dia, 3/2}, 2, Row[{ NumberForm[174200.`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {152, 55, HoldForm[HoldForm[ Underoverscript["b", Subscript["m", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "m", "l"}, {$CellContext`squ, 3/2}, 2, Row[{ NumberForm[4200.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {153, 39, HoldForm[HoldForm[ Underoverscript["b", Subscript["c", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "c", "l"}, {$CellContext`squ, 3/2}, 2, Row[{ NumberForm[4200.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {154, 23, HoldForm[HoldForm[ Underoverscript["b", Subscript["o", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "o", "l"}, {$CellContext`squ, 3/2}, 2, Row[{ NumberForm[4200.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {155, 126, HoldForm[HoldForm[ Underoverscript["c", Subscript["b", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], { "b", "m"}, {$CellContext`squ, 1}, 2, Row[{ NumberForm[1250.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {156, 110, HoldForm[HoldForm[ Underoverscript["c", Subscript["g", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], { "g", "m"}, {$CellContext`squ, 1}, 2, Row[{ NumberForm[1250.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {157, 94, HoldForm[HoldForm[ Underoverscript["c", Subscript["r", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], { "r", "m"}, {$CellContext`squ, 1}, 2, Row[{ NumberForm[1250.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {158, 78, HoldForm[HoldForm[ Underoverscript[ Subscript["\[Nu]", "\[Mu]"], Subscript["w", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], { "w", "m"}, {$CellContext`tri, 1}, 1, Row[{ NumberForm[0``1., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {159, 122, HoldForm[HoldForm[ Underoverscript["c", Subscript["b", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`2\/3\)"]]], { "b", "m"}, {$CellContext`squ, 1}, 2, Row[{ NumberForm[1250.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {160, 106, HoldForm[HoldForm[ Underoverscript["c", Subscript["g", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`2\/3\)"]]], { "g", "m"}, {$CellContext`squ, 1}, 2, Row[{ NumberForm[1250.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {161, 90, HoldForm[HoldForm[ Underoverscript["c", Subscript["r", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`2\/3\)"]]], { "r", "m"}, {$CellContext`squ, 1}, 2, Row[{ NumberForm[1250.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {162, 74, HoldForm[HoldForm[ Underoverscript[ Subscript["\[Nu]", "\[Mu]"], Subscript["w", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], { "w", "m"}, {$CellContext`tri, 1}, 1, Row[{ NumberForm[0``1., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {163, 131, HoldForm[HoldForm[ Underoverscript["\[Tau]", Subscript["y", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "+"]]], { "y", "d"}, {$CellContext`utr, 3/2}, 1, Row[{ NumberForm[1776.99`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{ NumberForm[ 2.9060000000000001`4.*^-13, 10, NumberPadding -> {" ", "0"}], " S"}]}, {164, 176, HoldForm[HoldForm[ Underoverscript[ Superscript["g", Row[{"r", Overscript["g", "_"]}]], Subscript["m", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "+"]]], {"m", "m"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 3, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {165, 152, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["x", "1"], "\[CapitalPhi]"}], Subscript["o", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "+"]]], {"o", "l"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {166, 160, HoldForm[HoldForm[ Underoverscript[ Superscript["g", Row[{"r", Overscript["b", "_"]}]], Subscript["c", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "+"]]], {"c", "m"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 3, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {167, 144, HoldForm[HoldForm[ Underoverscript[ Superscript["g", Row[{"g", Overscript["b", "_"]}]], Subscript["o", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "+"]]], {"o", "m"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 3, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {168, 168, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["x", "2"], "\[CapitalPhi]"}], Subscript["c", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "+"]]], {"c", "l"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {169, 184, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["x", "3"], "\[CapitalPhi]"}], Subscript["m", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "+"]]], {"m", "l"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {170, 148, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["x", "1"], "\[CapitalPhi]"}], Subscript["o", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "+"]]], {"o", "d"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {171, 164, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["x", "2"], "\[CapitalPhi]"}], Subscript["c", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "+"]]], {"c", "d"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {172, 180, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["x", "3"], "\[CapitalPhi]"}], Subscript["m", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "+"]]], {"m", "d"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {173, 60, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["x", "3"], "\[CapitalPhi]"}], Subscript["m", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "-"]]], {"m", "m"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {174, 44, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["x", "2"], "\[CapitalPhi]"}], Subscript["c", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "-"]]], {"c", "m"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {175, 28, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["x", "1"], "\[CapitalPhi]"}], Subscript["o", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "-"]]], {"o", "m"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {176, 197, HoldForm[HoldForm[ Underoverscript[ Subscript["\[Nu]", "e"], Subscript["w", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], { "w", "l"}, {$CellContext`utr, 1/2}, 1, Row[{ NumberForm[0``6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {177, 81, HoldForm[HoldForm[ Underoverscript["u", Subscript["r", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], { "r", "d"}, {$CellContext`squ, 1/2}, 2, Row[{ NumberForm[2.2`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {178, 97, HoldForm[HoldForm[ Underoverscript["u", Subscript["g", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], { "g", "d"}, {$CellContext`squ, 1/2}, 2, Row[{ NumberForm[2.2`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {179, 113, HoldForm[HoldForm[ Underoverscript["u", Subscript["b", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`2\/3\)"]]], { "b", "d"}, {$CellContext`squ, 1/2}, 2, Row[{ NumberForm[2.2`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {180, 181, HoldForm[HoldForm[ Underoverscript["d", Subscript["m", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`1\/3\)"]]], { "m", "l"}, {$CellContext`dia, 1/2}, 2, Row[{ NumberForm[5.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {181, 165, HoldForm[HoldForm[ Underoverscript["d", Subscript["c", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`1\/3\)"]]], { "c", "l"}, {$CellContext`dia, 1/2}, 2, Row[{ NumberForm[5.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {182, 149, HoldForm[HoldForm[ Underoverscript["d", Subscript["o", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`1\/3\)"]]], { "o", "l"}, {$CellContext`dia, 1/2}, 2, Row[{ NumberForm[5.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {183, 1, HoldForm[HoldForm[ Underoverscript["e", Subscript["y", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "-"]]], { "y", "d"}, {$CellContext`tri, 1/2}, 1, Row[{ NumberForm[0.51099892`8., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {184, 252, HoldForm[HoldForm[ Underoverscript["B", Subscript["b", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], { "b", "m"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[91187.6`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{ NumberForm[ 2.637899999999999999999999999999999`5.*^-25, 10, NumberPadding -> {" ", "0"}], " S"}]}, {185, 193, HoldForm[HoldForm[ Underoverscript[ Subscript["\[Nu]", "e"], Subscript["w", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], { "w", "d"}, {$CellContext`utr, 1/2}, 1, Row[{ NumberForm[0``6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {186, 85, HoldForm[HoldForm[ Underoverscript["u", Subscript["r", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`2\/3\)"]]], { "r", "l"}, {$CellContext`squ, 1/2}, 2, Row[{ NumberForm[2.2`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {187, 101, HoldForm[HoldForm[ Underoverscript["u", Subscript["g", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`2\/3\)"]]], { "g", "l"}, {$CellContext`squ, 1/2}, 2, Row[{ NumberForm[2.2`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {188, 117, HoldForm[HoldForm[ Underoverscript["u", Subscript["b", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`2\/3\)"]]], { "b", "l"}, {$CellContext`squ, 1/2}, 2, Row[{ NumberForm[2.2`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {189, 177, HoldForm[HoldForm[ Underoverscript["d", Subscript["m", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], { "m", "d"}, {$CellContext`dia, 1/2}, 2, Row[{ NumberForm[5.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {190, 161, HoldForm[HoldForm[ Underoverscript["d", Subscript["c", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], { "c", "d"}, {$CellContext`dia, 1/2}, 2, Row[{ NumberForm[5.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {191, 145, HoldForm[HoldForm[ Underoverscript["d", Subscript["o", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], { "o", "d"}, {$CellContext`dia, 1/2}, 2, Row[{ NumberForm[5.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {192, 5, HoldForm[HoldForm[ Underoverscript["e", Subscript["y", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "-"]]], { "y", "l"}, {$CellContext`tri, 1/2}, 1, Row[{ NumberForm[0.51099892`8., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {193, 80, HoldForm[HoldForm[ Underoverscript[ Subscript["\[Omega]", "L"], Subscript["r", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], { "r", "m"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 3, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {194, 108, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["e", "T"], "\[CapitalPhi]"}], Subscript["g", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], { "g", "m"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {195, 88, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["e", "S"], "\[CapitalPhi]"}], Subscript["r", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], { "r", "l"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {196, 205, HoldForm[HoldForm[ Underoverscript[ Subscript["\[Nu]", "e"], Subscript["w", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], { "w", "m"}, {$CellContext`utr, 1/2}, 1, Row[{ NumberForm[0``6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {197, 89, HoldForm[HoldForm[ Underoverscript["u", Subscript["r", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`2\/3\)"]]], { "r", "m"}, {$CellContext`squ, 1/2}, 2, Row[{ NumberForm[2.2`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {198, 105, HoldForm[HoldForm[ Underoverscript["u", Subscript["g", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`2\/3\)"]]], { "g", "m"}, {$CellContext`squ, 1/2}, 2, Row[{ NumberForm[2.2`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {199, 121, HoldForm[HoldForm[ Underoverscript["u", Subscript["b", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`2\/3\)"]]], { "b", "m"}, {$CellContext`squ, 1/2}, 2, Row[{ NumberForm[2.2`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {200, 189, HoldForm[HoldForm[ Underoverscript["d", Subscript["m", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], { "m", "m"}, {$CellContext`dia, 1/2}, 2, Row[{ NumberForm[5.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {201, 173, HoldForm[HoldForm[ Underoverscript["d", Subscript["c", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], { "c", "m"}, {$CellContext`dia, 1/2}, 2, Row[{ NumberForm[5.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {202, 157, HoldForm[HoldForm[ Underoverscript["d", Subscript["o", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`1\/3\)"]]], { "o", "m"}, {$CellContext`dia, 1/2}, 2, Row[{ NumberForm[5.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {203, 9, HoldForm[HoldForm[ Underoverscript["e", Subscript["y", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "-"]]], { "y", "m"}, {$CellContext`tri, 1/2}, 1, Row[{ NumberForm[0.51099892`8., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {204, 84, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["e", "S"], "\[CapitalPhi]"}], Subscript["r", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], { "r", "d"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {205, 104, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["e", "T"], "\[CapitalPhi]"}], Subscript["g", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], { "g", "l"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {206, 224, HoldForm[HoldForm[ Underoverscript[ Subscript["\[Omega]", "R"], Subscript["g", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], { "g", "m"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 3, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {207, 100, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["e", "T"], "\[CapitalPhi]"}], Subscript["g", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], { "g", "d"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {208, 248, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["e", "T"], "\[CapitalPhi]"}], Subscript["b", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], { "b", "l"}, Subscript[$CellContext`inv, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {209, 141, HoldForm[HoldForm[ Underoverscript["e", Subscript["y", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "+"]]], { "y", "m"}, {$CellContext`utr, 1/2}, 1, Row[{ NumberForm[0.51099892`8., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {210, 25, HoldForm[HoldForm[ Underoverscript["d", Subscript["o", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "o", "m"}, {$CellContext`squ, 1/2}, 2, Row[{ NumberForm[5.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {211, 41, HoldForm[HoldForm[ Underoverscript["d", Subscript["c", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "c", "m"}, {$CellContext`squ, 1/2}, 2, Row[{ NumberForm[5.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {212, 57, HoldForm[HoldForm[ Underoverscript["d", Subscript["m", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "m", "m"}, {$CellContext`squ, 1/2}, 2, Row[{ NumberForm[5.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {213, 253, HoldForm[HoldForm[ Underoverscript["u", Subscript["b", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "b", "m"}, {$CellContext`dia, 1/2}, 2, Row[{ NumberForm[2.2`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {214, 237, HoldForm[HoldForm[ Underoverscript["u", Subscript["g", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "g", "m"}, {$CellContext`dia, 1/2}, 2, Row[{ NumberForm[2.2`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {215, 221, HoldForm[HoldForm[ Underoverscript["u", Subscript["r", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "r", "m"}, {$CellContext`dia, 1/2}, 2, Row[{ NumberForm[2.2`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {216, 73, HoldForm[HoldForm[ Underoverscript[ Subscript["\[Nu]", "e"], Subscript["w", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], { "w", "m"}, {$CellContext`tri, 1/2}, 1, Row[{ NumberForm[0``6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {217, 116, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["e", "S"], "\[CapitalPhi]"}], Subscript["b", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], { "b", "d"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {218, 92, HoldForm[HoldForm[ Underoverscript[ Row[{ Subscript["e", "S"], "\[CapitalPhi]"}], Subscript["r", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], { "r", "m"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 4, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {219, 112, HoldForm[HoldForm[ Underoverscript["W", Subscript["b", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], { "b", "m"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 3, Row[{ NumberForm[80403.`5., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{ NumberForm[3.076`4.*^-25, 10, NumberPadding -> {" ", "0"}], " S"}]}, {220, 215, HoldForm[HoldForm[ Underoverscript["t", Subscript["r", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "r", "l"}, {$CellContext`dia, 3/2}, 2, Row[{ NumberForm[174200.`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {221, 231, HoldForm[HoldForm[ Underoverscript["t", Subscript["g", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "g", "l"}, {$CellContext`dia, 3/2}, 2, Row[{ NumberForm[174200.`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {222, 247, HoldForm[HoldForm[ Underoverscript["t", Subscript["b", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(2\/3\)\)\)\)"]]], { "b", "l"}, {$CellContext`dia, 3/2}, 2, Row[{ NumberForm[174200.`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {223, 51, HoldForm[HoldForm[ Underoverscript["b", Subscript["m", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "m", "d"}, {$CellContext`squ, 3/2}, 2, Row[{ NumberForm[4200.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {224, 35, HoldForm[HoldForm[ Underoverscript["b", Subscript["c", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "c", "d"}, {$CellContext`squ, 3/2}, 2, Row[{ NumberForm[4200.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {225, 19, HoldForm[HoldForm[ Underoverscript["b", Subscript["o", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "o", "d"}, {$CellContext`squ, 3/2}, 2, Row[{ NumberForm[4200.`4., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {226, 62, HoldForm[HoldForm[ Underoverscript["s", Subscript["m", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "m", "m"}, {$CellContext`squ, 1}, 2, Row[{ NumberForm[95.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {227, 46, HoldForm[HoldForm[ Underoverscript["s", Subscript["c", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "c", "m"}, {$CellContext`squ, 1}, 2, Row[{ NumberForm[95.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {228, 30, HoldForm[HoldForm[ Underoverscript["s", Subscript["o", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "o", "m"}, {$CellContext`squ, 1}, 2, Row[{ NumberForm[95.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {229, 14, HoldForm[HoldForm[ Underoverscript["\[Mu]", Subscript["y", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "-"]]], { "y", "m"}, {$CellContext`tri, 1}, 1, Row[{ NumberForm[105.658369`9., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{ NumberForm[2.19704`6.*^-6, 10, NumberPadding -> {" ", "0"}], " S"}]}, {230, 58, HoldForm[HoldForm[ Underoverscript["s", Subscript["m", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "m", "m"}, {$CellContext`squ, 1}, 2, Row[{ NumberForm[95.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {231, 42, HoldForm[HoldForm[ Underoverscript["s", Subscript["c", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "c", "m"}, {$CellContext`squ, 1}, 2, Row[{ NumberForm[95.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {232, 26, HoldForm[HoldForm[ Underoverscript["s", Subscript["o", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "o", "m"}, {$CellContext`squ, 1}, 2, Row[{ NumberForm[95.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {233, 10, HoldForm[HoldForm[ Underoverscript["\[Mu]", Subscript["y", "m"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "-"]]], { "y", "m"}, {$CellContext`tri, 1}, 1, Row[{ NumberForm[105.658369`9., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{ NumberForm[2.19704`6.*^-6, 10, NumberPadding -> {" ", "0"}], " S"}]}, {234, 135, HoldForm[HoldForm[ Underoverscript["\[Tau]", Subscript["y", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "+"]]], { "y", "l"}, {$CellContext`utr, 3/2}, 1, Row[{ NumberForm[1776.99`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{ NumberForm[ 2.9060000000000001`4.*^-13, 10, NumberPadding -> {" ", "0"}], " S"}]}, {235, 54, HoldForm[HoldForm[ Underoverscript["s", Subscript["m", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "m", "l"}, {$CellContext`squ, 1}, 2, Row[{ NumberForm[95.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {236, 38, HoldForm[HoldForm[ Underoverscript["s", Subscript["c", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "c", "l"}, {$CellContext`squ, 1}, 2, Row[{ NumberForm[95.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {237, 22, HoldForm[HoldForm[ Underoverscript["s", Subscript["o", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "o", "l"}, {$CellContext`squ, 1}, 2, Row[{ NumberForm[95.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {238, 6, HoldForm[HoldForm[ Underoverscript["\[Mu]", Subscript["y", "l"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "-"]]], { "y", "l"}, {$CellContext`tri, 1}, 1, Row[{ NumberForm[105.658369`9., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{ NumberForm[2.19704`6.*^-6, 10, NumberPadding -> {" ", "0"}], " S"}]}, {239, 139, HoldForm[HoldForm[ Underoverscript["\[Tau]", Subscript["y", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "+"]]], { "y", "m"}, {$CellContext`utr, 3/2}, 1, Row[{ NumberForm[1776.99`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{ NumberForm[ 2.9060000000000001`4.*^-13, 10, NumberPadding -> {" ", "0"}], " S"}]}, {240, 203, HoldForm[HoldForm[ Underoverscript[ Subscript["\[Nu]", "\[Tau]"], Subscript["w", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], { "w", "m"}, {$CellContext`utr, 3/2}, 1, Row[{ NumberForm[0``-1., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {241, 50, HoldForm[HoldForm[ Underoverscript["s", Subscript["m", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "m", "d"}, {$CellContext`squ, 1}, 2, Row[{ NumberForm[95.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {242, 34, HoldForm[HoldForm[ Underoverscript["s", Subscript["c", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "c", "d"}, {$CellContext`squ, 1}, 2, Row[{ NumberForm[95.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {243, 18, HoldForm[HoldForm[ Underoverscript["s", Subscript["o", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`\(-\(\(1\/3\)\)\)\)"]]], { "o", "d"}, {$CellContext`squ, 1}, 2, Row[{ NumberForm[95.`2., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {244, 2, HoldForm[HoldForm[ Underoverscript["\[Mu]", Subscript["y", "d"], ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "-"]]], { "y", "d"}, {$CellContext`tri, 1}, 1, Row[{ NumberForm[105.658369`9., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{ NumberForm[2.19704`6.*^-6, 10, NumberPadding -> {" ", "0"}], " S"}]}, {245, 143, HoldForm[HoldForm[ Underoverscript["\[Tau]", Subscript["y", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "+"]]], { "y", "m"}, {$CellContext`utr, 3/2}, 1, Row[{ NumberForm[1776.99`6., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{ NumberForm[ 2.9060000000000001`4.*^-13, 10, NumberPadding -> {" ", "0"}], " S"}]}, {246, 207, HoldForm[HoldForm[ Underoverscript[ Subscript["\[Nu]", "\[Tau]"], Subscript["w", "m"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], { "w", "m"}, {$CellContext`utr, 3/2}, 1, Row[{ NumberForm[0``-1., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {247, 195, HoldForm[HoldForm[ Underoverscript[ Subscript["\[Nu]", "\[Tau]"], Subscript["w", "d"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], { "w", "d"}, {$CellContext`utr, 3/2}, 1, Row[{ NumberForm[0``-1., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {248, 76, HoldForm[HoldForm[ Underoverscript[ Subscript["Ex", "2"], "\" \"", ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], { "w", "m"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 5, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {249, 72, HoldForm[HoldForm[ Underoverscript[ Subscript["Ex", "2"], "\" \"", ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], { "w", "m"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 5, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {250, 68, HoldForm[HoldForm[ Underoverscript[ Subscript["Ex", "2"], "\" \"", ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], { "w", "l"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 5, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {251, 64, HoldForm[HoldForm[ Underoverscript[ Subscript["Ex", "2"], "\" \"", ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "\!\(TraditionalForm\`0\)"]]], { "w", "d"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 5, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {252, 12, HoldForm[HoldForm[ Underoverscript[ Subscript["Ex", "1"], "\" \"", ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Vee]"], "-"]]], {"y", "m"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 5, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {253, 8, HoldForm[HoldForm[ Underoverscript[ Subscript["Ex", "1"], "\" \"", ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Wedge]"], "-"]]], {"y", "m"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 5, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {254, 4, HoldForm[HoldForm[ Underoverscript[ Subscript["Ex", "1"], "\" \"", ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "-"]]], {"y", "l"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 5, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {255, 0, HoldForm[HoldForm[ Underoverscript[ Subscript["Ex", "1"], "\" \"", ""]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["L", "\[Vee]"], "-"]]], {"y", "d"}, Subscript[$CellContext`cir, Hold[FE`pSize$$280]], 5, Row[{ NumberForm[0``16., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}, {256, 199, HoldForm[HoldForm[ Underoverscript[ Subscript["\[Nu]", "\[Tau]"], Subscript["w", "l"], Blank[]]] HoldForm[ Subsuperscript[ Invisible[$CellContext`\[VerticalLine]], Overscript["R", "\[Wedge]"], "\!\(TraditionalForm\`0\)"]]], { "w", "l"}, {$CellContext`utr, 3/2}, 1, Row[{ NumberForm[0``-1., 10, NumberPadding -> {" ", "0"}], " MeV"}], Row[{"?", " S"}]}}, Attributes[Underoverscript] = {NHoldRest}, Underoverscript[ Superscript[$CellContext`g, Row[{$CellContext`r, Overscript[50., Blank[]]}]], $CellContext`rb, Blank[]] = 166, Underoverscript[ Subscript[$CellContext`\[Omega], $CellContext`R], $CellContext`rb, Blank[]] = 206, Underoverscript[ Row[{ Subscript[$CellContext`x, 2], $CellContext`\[CapitalPhi]}], $CellContext`rb, Blank[]] = 171, Underoverscript[185., $CellContext`rb, Blank[]] = 50, Underoverscript[ Row[{ Subscript[$CellContext`e, $CellContext`T], $CellContext`\[Phi]}], \ $CellContext`rb, Blank[]] = 50, Underoverscript[ Superscript[$CellContext`g, Row[{$CellContext`r, Overscript[227.0180385337662, Blank[]]}]], $CellContext`rb, Blank[]] = 166, Underoverscript[ Superscript[$CellContext`g, Row[{$CellContext`r, Overscript[227.0180385337669, Blank[]]}]], $CellContext`rb, Blank[]] = 166, Underoverscript[1077.2773795749863`, $CellContext`rb, Blank[]] = 50, Pattern[$CellContext`colorGreenPattern, Underoverscript[ Pattern[$CellContext`prt, Blank[]], $CellContext`rb, Blank[]]] := $CellContext`position[$CellContext`e8bit, \ $CellContext`pBit[ Underoverscript[$CellContext`prt, $CellContext`bg, Blank[]]] + 2^Part[$CellContext`bOrd, 3]], Underoverscript[ Superscript[$CellContext`g, Row[{$CellContext`r, Overscript[$CellContext`g, Blank[]]}]], $CellContext`rg, Blank[]] = 164, Underoverscript[$CellContext`W, $CellContext`rg, Blank[]] = 38, Underoverscript[ Row[{ Subscript[$CellContext`x, 3], $CellContext`\[CapitalPhi]}], $CellContext`rg, Blank[]] = 172, Underoverscript[185., $CellContext`rg, Blank[]] = 40, Underoverscript[ Row[{ Subscript[$CellContext`e, $CellContext`S], $CellContext`\[Phi]}], \ $CellContext`rg, Blank[]] = 40, Underoverscript[1077.2773795749863`, $CellContext`rg, Blank[]] = 40, Pattern[$CellContext`colorBluePattern, Underoverscript[ Pattern[$CellContext`prt, Blank[]], $CellContext`rg, Blank[]]] := $CellContext`position[$CellContext`e8bit, \ $CellContext`pBit[ Underoverscript[$CellContext`prt, $CellContext`bg, Blank[]]] + 2^(Part[$CellContext`bOrd, 3] + 1)], Pattern[$CellContext`particlePattern, Underoverscript[ Pattern[$CellContext`prt, Blank[]], Subscript[ Pattern[$CellContext`clr, Blank[]], Pattern[$CellContext`sp, Blank[]]], Pattern[$CellContext`anti, Blank[]]]] := $CellContext`spConv[ If[$CellContext`anti == "", False, True], $CellContext`prt, $CellContext`clr, $CellContext`sp], Underoverscript[$CellContext`e, $CellContext`bg, Blank[]] = 74, Underoverscript[$CellContext`e, $CellContext`y, Blank[]] = 74, Underoverscript[$CellContext`\[Mu], $CellContext`y, Blank[]] = 13, Underoverscript[$CellContext`\[Tau], $CellContext`y, Blank[]] = 163, Underoverscript[ Subscript[$CellContext`\[Nu], $CellContext`e], $CellContext`y, Blank[]] = 185, Underoverscript[ Subscript[$CellContext`\[Nu], $CellContext`e], $CellContext`bg, Blank[]] = 185, Underoverscript[$CellContext`\[Nu], $CellContext`y, Blank[]] = 185, Underoverscript[ Subscript[$CellContext`\[Nu], $CellContext`\[Mu]], $CellContext`y, Blank[]] = 109, Underoverscript[ Subscript[$CellContext`\[Nu], $CellContext`\[Tau]], $CellContext`y, Blank[]] = 247, Underoverscript[$CellContext`d, $CellContext`bg, Blank[]] = 191, Underoverscript[$CellContext`s, $CellContext`bg, Blank[]] = 14, Underoverscript[50., $CellContext`bg, Blank[]] = 32, Underoverscript[$CellContext`u, $CellContext`bg, Blank[]] = 80, Underoverscript[$CellContext`c, $CellContext`bg, Blank[]] = 110, Underoverscript[$CellContext`t, $CellContext`bg, Blank[]] = 149, Underoverscript[ Superscript[$CellContext`g, Row[{$CellContext`g, Overscript[50., Blank[]]}]], $CellContext`bg, Blank[]] = 167, Underoverscript[ Superscript[$CellContext`g, Row[{$CellContext`g, Overscript[50., Blank[]]}]], $CellContext`y, Blank[]] = 167, Underoverscript[$CellContext`g, $CellContext`y, Blank[]] = 167, Underoverscript[$CellContext`g, $CellContext`bg, Blank[]] = 167, Underoverscript[ Superscript[$CellContext`g, Row[{$CellContext`r, Overscript[50., Blank[]]}]], $CellContext`y, Blank[]] = 166, Underoverscript[ Superscript[$CellContext`g, Row[{$CellContext`r, Overscript[$CellContext`g, Blank[]]}]], $CellContext`y, Blank[]] = 164, Underoverscript[ Subscript[$CellContext`\[Omega], $CellContext`L], $CellContext`bg, Blank[]] = 64, Underoverscript[ Subscript[$CellContext`\[Omega], $CellContext`L], $CellContext`y, Blank[]] = 64, Underoverscript[$CellContext`\[Omega], $CellContext`y, Blank[]] = 64, Underoverscript[$CellContext`\[Omega], $CellContext`bg, Blank[]] = 64, Underoverscript[ Subscript[$CellContext`\[Omega], $CellContext`R], $CellContext`y, Blank[]] = 206, Underoverscript[$CellContext`W, $CellContext`y, Blank[]] = 38, Underoverscript[ Row[{ Subscript[$CellContext`x, 1], $CellContext`\[CapitalPhi]}], $CellContext`bg, Blank[]] = 170, Underoverscript[$CellContext`\[CapitalPhi], $CellContext`y, Blank[]] = 170, Underoverscript[$CellContext`\[CapitalPhi], $CellContext`bg, Blank[]] = 170, Underoverscript[ Row[{ Subscript[$CellContext`x, 2], $CellContext`\[CapitalPhi]}], $CellContext`bg, Blank[]] = 171, Underoverscript[ Row[{ Subscript[$CellContext`x, 3], $CellContext`\[CapitalPhi]}], $CellContext`bg, Blank[]] = 172, Underoverscript[ Row[{ Subscript[$CellContext`e, $CellContext`S], $CellContext`\[Phi]}], \ $CellContext`bg, Blank[]] = 53, Underoverscript[$CellContext`\[Phi], $CellContext`y, Blank[]] = 53, Underoverscript[$CellContext`\[Phi], $CellContext`bg, Blank[]] = 53, Underoverscript[185., $CellContext`bg, Blank[]] = 53, Underoverscript[ Row[{ Subscript[$CellContext`e, $CellContext`T], $CellContext`\[Phi]}], \ $CellContext`y, Blank[]] = 50, Underoverscript[ Row[{ Subscript[$CellContext`e, $CellContext`T], $CellContext`\[Phi]}], \ $CellContext`bg, Blank[]] = 50, Underoverscript[ Row[{ Subscript[$CellContext`e, $CellContext`S], $CellContext`\[Phi]}], \ $CellContext`y, Blank[]] = 40, Underoverscript[227.0180385337662, $CellContext`bg, Blank[]] = 32, Underoverscript[ Superscript[$CellContext`g, Row[{$CellContext`g, Overscript[227.0180385337662, Blank[]]}]], $CellContext`bg, Blank[]] = 167, Underoverscript[ Superscript[$CellContext`g, Row[{$CellContext`g, Overscript[227.0180385337662, Blank[]]}]], $CellContext`y, Blank[]] = 167, Underoverscript[ Superscript[$CellContext`g, Row[{$CellContext`r, Overscript[227.0180385337662, Blank[]]}]], $CellContext`y, Blank[]] = 166, Underoverscript[227.0180385337669, $CellContext`bg, Blank[]] = 32, Underoverscript[ Superscript[$CellContext`g, Row[{$CellContext`g, Overscript[227.0180385337669, Blank[]]}]], $CellContext`bg, Blank[]] = 167, Underoverscript[ Superscript[$CellContext`g, Row[{$CellContext`g, Overscript[227.0180385337669, Blank[]]}]], $CellContext`y, Blank[]] = 167, Underoverscript[ Superscript[$CellContext`g, Row[{$CellContext`r, Overscript[227.0180385337669, Blank[]]}]], $CellContext`y, Blank[]] = 166, Underoverscript[1077.2773795749863`, $CellContext`bg, Blank[]] = 53, Attributes[Superscript] = { NHoldRest, ReadProtected}, $CellContext`bOrd = {7, 6, 4, 2, 0}, $CellContext`spConv[ Pattern[$CellContext`anti, Blank[]], Pattern[$CellContext`prt, Blank[]], Pattern[$CellContext`clr, Blank[]], Pattern[$CellContext`sp, Blank[]]] := $CellContext`position[$CellContext`e8Orig, If[$CellContext`anti, Subtract, Plus][0, Part[$CellContext`e8Orig, $CellContext`position[$CellContext`e8bit, $CellContext`pBit[ Underscript[ Part[ Flatten[$CellContext`flavorList], $CellContext`position[ Flatten[$CellContext`flavorListStr], ReplaceAll[$CellContext`prt, $CellContext`qConvDoNoAnti]]], If[$CellContext`clr == "\" \"", $CellContext`clr, Part[$CellContext`colorListExp, $CellContext`position[$CellContext`colorList, \ $CellContext`clr]]]]] + Switch[$CellContext`sp, Part[$CellContext`spList, 1], 0, Part[$CellContext`spList, 2], 2^Part[$CellContext`bOrd, 4], Part[$CellContext`spList, 3], 2^(Part[$CellContext`bOrd, 4] + 1), Part[$CellContext`spList, 4], 2^Part[$CellContext`bOrd, 4] + 2^(Part[$CellContext`bOrd, 4] + 1)]]]]], $CellContext`e8Orig = {{(-1)/2, (-1)/2, (-1)/ 2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {0, 0, 0, 0, 0, 0, 0, -1}, {0, 0, 0, 0, 0, 0, -1, 0}, {0, 0, 0, 0, 0, -1, 0, 0}, {0, 0, 0, 0, -1, 0, 0, 0}, {0, 0, 0, -1, 0, 0, 0, 0}, {0, 0, -1, 0, 0, 0, 0, 0}, {0, -1, 0, 0, 0, 0, 0, 0}, {-1, 0, 0, 0, 0, 0, 0, 0}, { 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, { 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, 1/ 2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, 1/ 2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, 1/ 2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, 1/ 2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, 1/ 2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, 1/ 2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, 1/ 2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, 1/ 2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, 1/ 2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, 1/ 2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, 1/ 2, (-1)/2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, 1/ 2, (-1)/2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/ 2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/ 2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/ 2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2}, {-1, -1, 0, 0, 0, 0, 0, 0}, {-1, 0, -1, 0, 0, 0, 0, 0}, {-1, 0, 0, -1, 0, 0, 0, 0}, {-1, 0, 0, 0, -1, 0, 0, 0}, {-1, 0, 0, 0, 0, -1, 0, 0}, {-1, 0, 0, 0, 0, 0, -1, 0}, {-1, 0, 0, 0, 0, 0, 0, -1}, {-1, 0, 0, 0, 0, 0, 0, 1}, {-1, 0, 0, 0, 0, 0, 1, 0}, {-1, 0, 0, 0, 0, 1, 0, 0}, {-1, 0, 0, 0, 1, 0, 0, 0}, {-1, 0, 0, 1, 0, 0, 0, 0}, {-1, 0, 1, 0, 0, 0, 0, 0}, {-1, 1, 0, 0, 0, 0, 0, 0}, { 0, -1, -1, 0, 0, 0, 0, 0}, {0, -1, 0, -1, 0, 0, 0, 0}, {0, -1, 0, 0, -1, 0, 0, 0}, {0, -1, 0, 0, 0, -1, 0, 0}, {0, -1, 0, 0, 0, 0, -1, 0}, {0, -1, 0, 0, 0, 0, 0, -1}, {0, -1, 0, 0, 0, 0, 0, 1}, {0, -1, 0, 0, 0, 0, 1, 0}, {0, -1, 0, 0, 0, 1, 0, 0}, {0, -1, 0, 0, 1, 0, 0, 0}, {0, -1, 0, 1, 0, 0, 0, 0}, {0, -1, 1, 0, 0, 0, 0, 0}, {0, 0, -1, -1, 0, 0, 0, 0}, {0, 0, -1, 0, -1, 0, 0, 0}, {0, 0, -1, 0, 0, -1, 0, 0}, {0, 0, -1, 0, 0, 0, -1, 0}, {0, 0, -1, 0, 0, 0, 0, -1}, {0, 0, -1, 0, 0, 0, 0, 1}, {0, 0, -1, 0, 0, 0, 1, 0}, {0, 0, -1, 0, 0, 1, 0, 0}, {0, 0, -1, 0, 1, 0, 0, 0}, {0, 0, -1, 1, 0, 0, 0, 0}, {0, 0, 0, -1, -1, 0, 0, 0}, {0, 0, 0, -1, 0, -1, 0, 0}, { 0, 0, 0, -1, 0, 0, -1, 0}, {0, 0, 0, -1, 0, 0, 0, -1}, {0, 0, 0, -1, 0, 0, 0, 1}, {0, 0, 0, -1, 0, 0, 1, 0}, {0, 0, 0, -1, 0, 1, 0, 0}, {0, 0, 0, -1, 1, 0, 0, 0}, {0, 0, 0, 0, -1, -1, 0, 0}, {0, 0, 0, 0, -1, 0, -1, 0}, {0, 0, 0, 0, -1, 0, 0, -1}, {0, 0, 0, 0, -1, 0, 0, 1}, {0, 0, 0, 0, -1, 0, 1, 0}, {0, 0, 0, 0, -1, 1, 0, 0}, {0, 0, 0, 0, 0, -1, -1, 0}, {0, 0, 0, 0, 0, -1, 0, -1}, {0, 0, 0, 0, 0, -1, 0, 1}, {0, 0, 0, 0, 0, -1, 1, 0}, {0, 0, 0, 0, 0, 0, -1, -1}, {0, 0, 0, 0, 0, 0, -1, 1}, { 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2}, { 1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, { 1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, { 1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, { 1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, { 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, { 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, { 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, { 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, { 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2}, { 1/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2}, { 1/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2}, { 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2}, { 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2}, { 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2}, { 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2}, { 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2}, { 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2}, { 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2}, { 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2}, { 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2}, { 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2}, { 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2}, { 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2}, { 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2}, { 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2}, { 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2}, { 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2}, { 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2}, { 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2}, { 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2}, { 1/2, (-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2}, {(-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, (-1)/2}, {(-1)/2, 1/2, 1/2, 1/ 2, (-1)/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, 1/2, 1/2, 1/2, (-1)/ 2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/ 2, (-1)/2, 1/2}, {(-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/ 2}, {(-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, 1/2, 1/ 2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2}, {(-1)/2, 1/2, 1/2, (-1)/ 2, (-1)/2, 1/2, (-1)/2, 1/2}, {(-1)/2, 1/2, 1/2, (-1)/2, (-1)/ 2, (-1)/2, 1/2, 1/2}, {(-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/ 2, (-1)/2}, {(-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/ 2}, {(-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2}, {(-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2}, {(-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2}, {(-1)/2, 1/2, (-1)/2, 1/2, (-1)/ 2, (-1)/2, 1/2, 1/2}, {(-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/ 2, (-1)/2}, {(-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/ 2}, {(-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2}, {(-1)/2, 1/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2}, {(-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2}, {(-1)/2, (-1)/2, 1/2, 1/2, 1/ 2, (-1)/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/ 2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/ 2}, {(-1)/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2}, {(-1)/ 2, (-1)/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2}, {(-1)/2, (-1)/2, 1/ 2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2}, {(-1)/2, (-1)/2, 1/2, (-1)/2, 1/ 2, 1/2, (-1)/2, 1/2}, {(-1)/2, (-1)/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/ 2, 1/2}, {(-1)/2, (-1)/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/ 2}, {(-1)/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2}, {(-1)/ 2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2}, {(-1)/2, (-1)/ 2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2}, {(-1)/2, (-1)/2, (-1)/2, 1/ 2, (-1)/2, 1/2, 1/2, 1/2}, {(-1)/2, (-1)/2, (-1)/2, (-1)/2, 1/2, 1/ 2, 1/2, 1/2}, {0, 0, 0, 0, 0, 0, 1, -1}, {0, 0, 0, 0, 0, 0, 1, 1}, {0, 0, 0, 0, 0, 1, -1, 0}, {0, 0, 0, 0, 0, 1, 0, -1}, {0, 0, 0, 0, 0, 1, 0, 1}, {0, 0, 0, 0, 0, 1, 1, 0}, {0, 0, 0, 0, 1, -1, 0, 0}, {0, 0, 0, 0, 1, 0, -1, 0}, {0, 0, 0, 0, 1, 0, 0, -1}, {0, 0, 0, 0, 1, 0, 0, 1}, {0, 0, 0, 0, 1, 0, 1, 0}, {0, 0, 0, 0, 1, 1, 0, 0}, {0, 0, 0, 1, -1, 0, 0, 0}, {0, 0, 0, 1, 0, -1, 0, 0}, {0, 0, 0, 1, 0, 0, -1, 0}, {0, 0, 0, 1, 0, 0, 0, -1}, {0, 0, 0, 1, 0, 0, 0, 1}, {0, 0, 0, 1, 0, 0, 1, 0}, {0, 0, 0, 1, 0, 1, 0, 0}, {0, 0, 0, 1, 1, 0, 0, 0}, {0, 0, 1, -1, 0, 0, 0, 0}, {0, 0, 1, 0, -1, 0, 0, 0}, {0, 0, 1, 0, 0, -1, 0, 0}, {0, 0, 1, 0, 0, 0, -1, 0}, {0, 0, 1, 0, 0, 0, 0, -1}, {0, 0, 1, 0, 0, 0, 0, 1}, {0, 0, 1, 0, 0, 0, 1, 0}, {0, 0, 1, 0, 0, 1, 0, 0}, {0, 0, 1, 0, 1, 0, 0, 0}, {0, 0, 1, 1, 0, 0, 0, 0}, {0, 1, -1, 0, 0, 0, 0, 0}, {0, 1, 0, -1, 0, 0, 0, 0}, {0, 1, 0, 0, -1, 0, 0, 0}, {0, 1, 0, 0, 0, -1, 0, 0}, {0, 1, 0, 0, 0, 0, -1, 0}, {0, 1, 0, 0, 0, 0, 0, -1}, {0, 1, 0, 0, 0, 0, 0, 1}, {0, 1, 0, 0, 0, 0, 1, 0}, {0, 1, 0, 0, 0, 1, 0, 0}, {0, 1, 0, 0, 1, 0, 0, 0}, {0, 1, 0, 1, 0, 0, 0, 0}, {0, 1, 1, 0, 0, 0, 0, 0}, { 1, -1, 0, 0, 0, 0, 0, 0}, {1, 0, -1, 0, 0, 0, 0, 0}, {1, 0, 0, -1, 0, 0, 0, 0}, {1, 0, 0, 0, -1, 0, 0, 0}, {1, 0, 0, 0, 0, -1, 0, 0}, { 1, 0, 0, 0, 0, 0, -1, 0}, {1, 0, 0, 0, 0, 0, 0, -1}, {1, 0, 0, 0, 0, 0, 0, 1}, {1, 0, 0, 0, 0, 0, 1, 0}, {1, 0, 0, 0, 0, 1, 0, 0}, {1, 0, 0, 0, 1, 0, 0, 0}, {1, 0, 0, 1, 0, 0, 0, 0}, {1, 0, 1, 0, 0, 0, 0, 0}, {1, 1, 0, 0, 0, 0, 0, 0}, { 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2}, { 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2}, { 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2}, { 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2}, { 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2}, { 1/2, 1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2}, { 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2}, { 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2}, { 1/2, 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2}, { 1/2, 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2}, { 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2}, { 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2}, { 1/2, 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2}, { 1/2, 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2}, { 1/2, 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2}, { 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/2}, { 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2}, { 1/2, (-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2}, { 1/2, (-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2}, { 1/2, (-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2}, { 1/2, (-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2}, {(-1)/2, 1/2, 1/2, 1/ 2, 1/2, 1/2, 1/2, (-1)/2}, {(-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2, (-1)/ 2, 1/2}, {(-1)/2, 1/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2}, {(-1)/2, 1/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2}, {(-1)/2, 1/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2}, {(-1)/2, 1/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/ 2}, {(-1)/2, (-1)/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2}, {1, 0, 0, 0, 0, 0, 0, 0}, {0, 1, 0, 0, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 0, 1}, { 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2, 1/2}}, Attributes[Underscript] = {NHoldRest}, Pattern[$CellContext`flavorPattern, Underscript[ Pattern[$CellContext`prt, Blank[]], $CellContext`fl]] := Flatten[{ Overscript[$CellContext`prt, Blank[]], $CellContext`prt}], Pattern[$CellContext`antiWhitePattern, Underscript[ Pattern[$CellContext`prt, Blank[]], $CellContext`w]] := $CellContext`pAnti[ Underoverscript[$CellContext`prt, $CellContext`y, Blank[]]], Pattern[$CellContext`antiRedPattern, Underscript[ Pattern[$CellContext`prt, Blank[]], $CellContext`r]] := $CellContext`pAnti[ Underoverscript[$CellContext`prt, $CellContext`bg, Blank[]]], Pattern[$CellContext`antiGreenPattern, Underscript[ Pattern[$CellContext`prt, Blank[]], $CellContext`g]] := $CellContext`pAnti[ Underoverscript[$CellContext`prt, $CellContext`rb, Blank[]]], Pattern[$CellContext`antiBluePattern, Underscript[ Pattern[$CellContext`prt, Blank[]], 50.]] := $CellContext`pAnti[ Underoverscript[$CellContext`prt, $CellContext`rg, Blank[]]], Pattern[$CellContext`antiExPattern, Underscript[ Pattern[$CellContext`prt, Blank[]], "\" \""]] := $CellContext`pAnti[ Overscript[$CellContext`prt, Blank[]]], Pattern[$CellContext`antiBluePattern, Underscript[ Pattern[$CellContext`prt, Blank[]], 227.0180385337662]] := $CellContext`pAnti[ Underoverscript[$CellContext`prt, $CellContext`rg, Blank[]]], Pattern[$CellContext`antiBluePattern, Underscript[ Pattern[$CellContext`prt, Blank[]], 227.0180385337669]] := $CellContext`pAnti[ Underoverscript[$CellContext`prt, $CellContext`rg, Blank[]]], $CellContext`pAnti[ Pattern[$CellContext`p, Blank[]]] := $CellContext`position[$CellContext`e8Orig, - Part[$CellContext`e8Orig, Min[$CellContext`p, 256]]], $CellContext`flavorList = {{{$CellContext`e, \ $CellContext`\[Mu], $CellContext`\[Tau]}, { Subscript[$CellContext`\[Nu], $CellContext`e], Subscript[$CellContext`\[Nu], $CellContext`\[Mu]], Subscript[$CellContext`\[Nu], $CellContext`\[Tau]]}}, \ {{$CellContext`d, $CellContext`s, 50.}, {$CellContext`u, $CellContext`c, $CellContext`t}}, {{ Superscript[$CellContext`g, Row[{$CellContext`g, Overscript[50., Blank[]]}]], Superscript[$CellContext`g, Row[{$CellContext`r, Overscript[50., Blank[]]}]], Superscript[$CellContext`g, Row[{$CellContext`r, Overscript[$CellContext`g, Blank[]]}]]}, { Subscript[$CellContext`\[Omega], $CellContext`L], Subscript[$CellContext`\[Omega], $CellContext`R], \ $CellContext`W}}, {{ Row[{ Subscript[$CellContext`x, 1], $CellContext`\[CapitalPhi]}], Row[{ Subscript[$CellContext`x, 2], $CellContext`\[CapitalPhi]}], Row[{ Subscript[$CellContext`x, 3], $CellContext`\[CapitalPhi]}]}, { Row[{ Subscript[$CellContext`e, $CellContext`S], \ $CellContext`\[Phi]}], Row[{ Subscript[$CellContext`e, $CellContext`T], \ $CellContext`\[Phi]}], 185.}}, {{ Subscript[$CellContext`Ex, 1]}, { Subscript[$CellContext`Ex, 2]}}}, $CellContext`flavorListStr = {{{ "e", "\[Mu]", "\[Tau]"}, { Subscript["\[Nu]", "e"], Subscript["\[Nu]", "\[Mu]"], Subscript["\[Nu]", "\[Tau]"]}}, {{"d", "s", "b"}, { "u", "c", "t"}}, {{ Superscript["g", Row[{"g", Overscript["b", "_"]}]], Superscript["g", Row[{"r", Overscript["b", "_"]}]], Superscript["g", Row[{"r", Overscript["g", "_"]}]]}, { Subscript["\[Omega]", "L"], Subscript["\[Omega]", "R"], "W"}}, {{ Row[{ Subscript["x", "1"], "\[CapitalPhi]"}], Row[{ Subscript["x", "2"], "\[CapitalPhi]"}], Row[{ Subscript["x", "3"], "\[CapitalPhi]"}]}, { Row[{ Subscript["e", "S"], "\[CapitalPhi]"}], Row[{ Subscript["e", "T"], "\[CapitalPhi]"}], "B"}}, {{ Subscript["Ex", "1"]}, { Subscript["Ex", "2"]}}}, $CellContext`qConvDoNoAnti = { "BottomQuark" -> "b", "BottomQuarkBar" -> "b", "CharmQuark" -> "c", "CharmQuarkBar" -> "c", "DownQuark" -> "d", "DownQuarkBar" -> "d", "StrangeQuark" -> "s", "StrangeQuarkBar" -> "s", "TopQuark" -> "t", "TopQuarkBar" -> "t", "UpQuark" -> "u", "UpQuarkBar" -> "u"}, $CellContext`colorListExp = {$CellContext`y, $CellContext`o, \ $CellContext`c, $CellContext`m, $CellContext`w, $CellContext`r, \ $CellContext`g, 50., $CellContext`e, $CellContext`k}, $CellContext`colorList = { "y", "o", "c", "m", "w", "r", "g", "b", "e", "k"}, $CellContext`spList = { Overscript["L", "\[Vee]"], Overscript["R", "\[Wedge]"], Overscript["L", "\[Wedge]"], Overscript["R", "\[Vee]"]}, Attributes[Subsuperscript] = { NHoldRest, ReadProtected}, $CellContext`tri[ Pattern[$CellContext`coords, Blank[]], Pattern[$CellContext`scale, Blank[]], Pattern[$CellContext`plDims, Blank[]]] := $CellContext`polyTri[$CellContext`coords, \ $CellContext`scale, Subtract, "Tetrahedron", $CellContext`plDims], $CellContext`polyTri[ Pattern[$CellContext`coords, Blank[]], Pattern[$CellContext`scale, Blank[]], Pattern[$CellContext`pm, Blank[]], Pattern[$CellContext`shape, Blank[]], Pattern[$CellContext`plDims, Blank[]]] := If[$CellContext`plDims == 3, Translate[ Scale[{ PolyhedronData[$CellContext`shape, "Faces"]}, {1, 1, 1} $CellContext`scale, {0, 0, 0}], $CellContext`coords], Polygon[{{Part[$CellContext`coords, 1] - $CellContext`scale, $CellContext`pm[ Part[$CellContext`coords, 2], $CellContext`scale/Sqrt[3]]}, { Part[$CellContext`coords, 1] + $CellContext`scale, $CellContext`pm[ Part[$CellContext`coords, 2], $CellContext`scale/Sqrt[3]]}, { Part[$CellContext`coords, 1], $CellContext`pm[ Part[$CellContext`coords, 2], (-2) ($CellContext`scale/Sqrt[ 3])]}}]], $CellContext`pm[ Pattern[$CellContext`n, Blank[]]] := Flatten[ Outer[List, Apply[Sequence, Table[{-1, 1}, {$CellContext`n}]]], $CellContext`n - 1], $CellContext`inv[ Pattern[$CellContext`coords, Blank[]], Pattern[$CellContext`scale, Blank[]], Pattern[$CellContext`plDims, Blank[]]] := If[$CellContext`plDims == 3, Translate[ Scale[{ PolyhedronData["Dodecahedron", "Faces"]}, {1, 1, 1} ($CellContext`scale/2), {0, 0, 0}], $CellContext`coords], $CellContext`poly2D[ 5, $CellContext`coords, $CellContext`scale]], $CellContext`poly2D[ Pattern[$CellContext`sides, Blank[]], Pattern[$CellContext`coords, Blank[]], Pattern[$CellContext`scale, Blank[]]] := Polygon[ Table[{Part[$CellContext`coords, 1] + $CellContext`scale Cos[(2 Pi) ($CellContext`i/$CellContext`sides)], Part[$CellContext`coords, 2] + $CellContext`scale Sin[(2 Pi) ($CellContext`i/$CellContext`sides)]}, \ {$CellContext`i, (-1)/2, $CellContext`sides - 1/2}]], $CellContext`utr[ Pattern[$CellContext`coords, Blank[]], Pattern[$CellContext`scale, Blank[]], Pattern[$CellContext`plDims, Blank[]]] := $CellContext`polyTri[$CellContext`coords, \ $CellContext`scale, Plus, "Icosahedron", $CellContext`plDims], $CellContext`dia[ Pattern[$CellContext`coords, Blank[]], Pattern[$CellContext`scale, Blank[]], Pattern[$CellContext`plDims, Blank[]]] := If[$CellContext`plDims == 3, Translate[ Scale[{ PolyhedronData["Octahedron", "Faces"]}, {1, 1, 1} $CellContext`scale, {0, 0, 0}], $CellContext`coords], Polygon[{{Part[$CellContext`coords, 1] - $CellContext`scale, Part[$CellContext`coords, 2]}, { Part[$CellContext`coords, 1], Part[$CellContext`coords, 2] + $CellContext`scale Sqrt[2]}, { Part[$CellContext`coords, 1] + $CellContext`scale, Part[$CellContext`coords, 2]}, { Part[$CellContext`coords, 1], Part[$CellContext`coords, 2] - $CellContext`scale Sqrt[3]}}]], $CellContext`squ[ Pattern[$CellContext`coords, Blank[]], Pattern[$CellContext`scale, Blank[]], Pattern[$CellContext`plDims, Blank[]]] := If[$CellContext`plDims == 3, Translate[ Scale[{ PolyhedronData["Cube", "Faces"]}, {1, 1, 1} $CellContext`scale, { 0, 0, 0}], $CellContext`coords], $CellContext`poly2D[ 4, $CellContext`coords, $CellContext`scale]], $CellContext`cir[ Pattern[$CellContext`coords, Blank[]], Pattern[$CellContext`scale, Blank[]], Pattern[$CellContext`plDims, Blank[]]] := If[$CellContext`plDims == 3, Sphere[$CellContext`coords, $CellContext`scale], Disk[ Part[$CellContext`coords, Span[1, 2]], $CellContext`scale]], $CellContext`sets = 0}; Typeset`initDone$$ = True); ReleaseHold[ HoldComplete[{$CellContext`Arrhenius[ Pattern[$CellContext`T, Blank[]], Pattern[$CellContext`Tref, Blank[]], Pattern[$CellContext`\[Mu]Tref, Blank[]], Pattern[$CellContext`Ea, Blank[]]] := $CellContext`\[Mu]Tref Exp[($CellContext`Ea/0.00831477) (1/($CellContext`T + 273.16) - 1/($CellContext`Tref + 273.16))], $CellContext`exponentialPowerLaw[ Pattern[$CellContext`T, Blank[]], Pattern[$CellContext`Tmin, Blank[]], Pattern[$CellContext`\[Mu]Tmin, Blank[]], Pattern[$CellContext`c, Blank[]], Pattern[$CellContext`m, Blank[]]] := $CellContext`\[Mu]Tmin Exp[(-$CellContext`c) ($CellContext`T - \ $CellContext`Tmin)^$CellContext`m], $CellContext`modifiedArrhenius[ Pattern[$CellContext`T, Blank[]], Pattern[$CellContext`Tref, Blank[]], Pattern[$CellContext`\[Mu]Tref, Blank[]], Pattern[$CellContext`a, Blank[]], Pattern[$CellContext`b, Blank[]]] := $CellContext`\[Mu]Tref Exp[$CellContext`a (1/($CellContext`T + $CellContext`b) - 1/($CellContext`Tref + $CellContext`b))], \ $CellContext`reciprocalPowerLaw[ Pattern[$CellContext`T, Blank[]], Pattern[$CellContext`Tmin, Blank[]], Pattern[$CellContext`\[Mu]Tmin, Blank[]], Pattern[$CellContext`c, Blank[]], Pattern[$CellContext`m, Blank[]]] := $CellContext`\[Mu]Tmin/( 1 + $CellContext`c ($CellContext`T - \ $CellContext`Tmin)^$CellContext`m), $CellContext`VTF[ Pattern[$CellContext`T, Blank[]], Pattern[Transmogrify`A, Blank[]], Pattern[$CellContext`B, Blank[]], Pattern[$CellContext`T0, Blank[]]] := Exp[Transmogrify`A + $CellContext`B/($CellContext`T - \ $CellContext`T0)], $CellContext`WLF[ Pattern[$CellContext`T, Blank[]], Pattern[$CellContext`Tref, Blank[]], Pattern[$CellContext`\[Mu]Tref, Blank[]], Pattern[$CellContext`c1, Blank[]], Pattern[$CellContext`c2, Blank[]]] := $CellContext`\[Mu]Tref 10^((-$CellContext`c1) (($CellContext`T - \ $CellContext`Tref)/($CellContext`c2 + $CellContext`T - $CellContext`Tref))), \ $CellContext`solveEqns[ Pattern[$CellContext`model, Blank[]], Pattern[$CellContext`\[Mu], Blank[]], Pattern[$CellContext`T1, Blank[]], Pattern[$CellContext`T2, Blank[]], Pattern[$CellContext`T3, Blank[]], Pattern[$CellContext`\[Mu]1, Blank[]], Pattern[$CellContext`\[Mu]2, Blank[]], Pattern[$CellContext`\[Mu]3, Blank[]], Pattern[$CellContext`TrefOrTmin, Blank[]], Pattern[$CellContext`initP1, Blank[]], Pattern[$CellContext`initP2, Blank[]], Pattern[$CellContext`initP3, Blank[]], Pattern[$CellContext`initP4, Blank[]]] := Module[{$CellContext`p1, $CellContext`p2, $CellContext`p3, \ $CellContext`p4, $CellContext`solution}, If[$CellContext`model == 5, $CellContext`solution = Quiet[ FindRoot[{$CellContext`\[Mu][$CellContext`T1, $CellContext`p1, \ $CellContext`p2, $CellContext`p3, $CellContext`p4] == $CellContext`\[Mu]1, \ $CellContext`\[Mu][$CellContext`T2, $CellContext`p1, $CellContext`p2, \ $CellContext`p3, $CellContext`p4] == $CellContext`\[Mu]2, \ $CellContext`\[Mu][$CellContext`T3, $CellContext`p1, $CellContext`p2, \ $CellContext`p3, $CellContext`p4] == $CellContext`\[Mu]3}, {$CellContext`p1, \ $CellContext`initP1}, {$CellContext`p2, $CellContext`initP2}, \ {$CellContext`p3, $CellContext`initP3}], { MessageName[FindRoot, "lstol"], MessageName[FindRoot, "cvmit"]}], $CellContext`solution = Quiet[ FindRoot[{$CellContext`\[Mu][$CellContext`T1, \ $CellContext`TrefOrTmin, $CellContext`p2, $CellContext`p3, $CellContext`p4] == \ $CellContext`\[Mu]1, $CellContext`\[Mu][$CellContext`T2, \ $CellContext`TrefOrTmin, $CellContext`p2, $CellContext`p3, $CellContext`p4] == \ $CellContext`\[Mu]2, $CellContext`\[Mu][$CellContext`T3, \ $CellContext`TrefOrTmin, $CellContext`p2, $CellContext`p3, $CellContext`p4] == \ $CellContext`\[Mu]3}, {$CellContext`p2, $CellContext`initP2}, \ {$CellContext`p3, $CellContext`initP3}, {$CellContext`p4, \ $CellContext`initP4}], { MessageName[FindRoot, "lstol"], MessageName[FindRoot, "cvmit"]}]]; $CellContext`solution]}]]; Typeset`initDone$$ = True), SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->2014383982], Cell["\<\ The adjustable parameters of six temperature-viscosity models are estimated \ from two or three experimental temperature-viscosity data points.\ \>", "ManipulateCaption"], Cell["\<\ The models are the traditional Arrhenius model (one parameter); a modified \ Arrhenius model (two parameters); the Williams\[Dash]Landel\[Dash]Ferry (WLF) \ and Vogel\[Dash]Tammann\[Dash]Hesse (VTF) equations (two and three \ parameters, respectively); and two ad hoc hybrid models, a reciprocal power \ law (2) and an exponential power law (two parameters each).\ \>", "ManipulateCaption", CellID->1376379206], Cell[TextData[{ "The first estimate is obtained by using the chosen model's parameter \ sliders to match a reconstructed temperature-viscosity curve with the two or \ three experimental points. You can examine the parameter slider positions \ once a visual match is reached. Except for the Arrhenius model, where the \ activation energy ", Cell[BoxData[ FormBox[ SubscriptBox["E", StyleBox["a", FontSlant->"Plain"]], TraditionalForm]], "InlineMath"], " can be calculated analytically from two points, the estimated values so \ obtained are used as initial guesses for the numerical solution of three \ simultaneous nonlinear equations to extract the best model parameter \ estimates, using statistical criteria. Although it has been shown that the \ modified Arrhenius, WLF and VTF equations are three different mathematical \ expressions of the very same model, they are all shown." }], "ManipulateCaption", CellID->1162230854], Cell["THINGS TO TRY", "ManipulateCaption", CellFrame->{{0, 0}, {1, 0}}, CellFrameColor->RGBColor[0.87, 0.87, 0.87], FontFamily->"Helvetica", FontSize->12, FontWeight->"Bold", FontColor->RGBColor[0.597406, 0, 0.0527047], CellTags->"ControlSuggestions"], Cell[TextData[{ Cell[BoxData[ TooltipBox[ PaneSelectorBox[{False->Cell[TextData[StyleBox["Resize Images", FontFamily->"Verdana"]]], True->Cell[TextData[StyleBox["Resize Images", FontFamily->"Verdana", FontColor->GrayLevel[0.5]]]]}, Dynamic[ CurrentValue["MouseOver"]]], "\"Click inside an image to reveal its orange resize frame.\\nDrag any of \ the orange resize handles to resize the image.\"", TooltipStyle->{ FontFamily -> "Verdana", FontSize -> 10, FontColor -> GrayLevel[0.35], Background -> GrayLevel[0.98]}]]], StyleBox["\[NonBreakingSpace]\[FilledVerySmallSquare]\[NonBreakingSpace]", FontColor->RGBColor[0.928786, 0.43122, 0.104662]], Cell[BoxData[ TooltipBox[ PaneSelectorBox[{False->Cell[TextData[StyleBox["Slider Zoom", FontFamily->"Verdana"]]], True->Cell[TextData[StyleBox["Slider Zoom", FontFamily->"Verdana", FontColor->GrayLevel[0.5]]]]}, Dynamic[ CurrentValue["MouseOver"]]], RowBox[{"\"Hold down the \"", FrameBox[ "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" key while moving a slider to make fine adjustments in the slider \ value.\\nHold \"", FrameBox[ "Ctrl", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" and/or \"", FrameBox[ "Shift", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" at the same time as \"", FrameBox[ "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" to make ever finer adjustments.\""}], TooltipStyle->{ FontFamily -> "Verdana", FontSize -> 10, FontColor -> GrayLevel[0.35], Background -> GrayLevel[0.98]}]]], StyleBox["\[NonBreakingSpace]\[FilledVerySmallSquare]\[NonBreakingSpace]", FontColor->RGBColor[0.928786, 0.43122, 0.104662]], Cell[BoxData[ TooltipBox[ PaneSelectorBox[{False->Cell[TextData[StyleBox["Gamepad Controls", FontFamily->"Verdana"]]], True->Cell[TextData[StyleBox["Gamepad Controls", FontFamily->"Verdana", FontColor->GrayLevel[0.5]]]]}, Dynamic[ CurrentValue["MouseOver"]]], "\"Control this Demonstration with a gamepad or other\\nhuman interface \ device connected to your computer.\"", TooltipStyle->{ FontFamily -> "Verdana", FontSize -> 10, FontColor -> GrayLevel[0.35], Background -> GrayLevel[0.98]}]]], StyleBox["\[NonBreakingSpace]\[FilledVerySmallSquare]\[NonBreakingSpace]", FontColor->RGBColor[0.928786, 0.43122, 0.104662]], Cell[BoxData[ TooltipBox[ PaneSelectorBox[{False->Cell[TextData[StyleBox["Automatic Animation", FontFamily->"Verdana"]]], True->Cell[TextData[StyleBox[ "Automatic Animation", FontFamily->"Verdana", FontColor->GrayLevel[0.5]]]]}, Dynamic[ CurrentValue["MouseOver"]]], RowBox[{"\"Animate a slider in this Demonstration by clicking the\"", AdjustmentBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwcIKwAgOI/R/IhBKc\n\ /4EAyGAG0f+nTZsGwgysIJIRKsWKLAXGIHFmEpUgLADxWUAkI24jZs+eTaEt\n\ IG+wQKRmzJgBlYf5lhEA30OqWA=="], "Graphics", ImageSize -> {9, 9}, ImageMargins -> 0, CellBaseline -> Baseline], BoxBaselineShift -> 0.1839080459770115, BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}], "\"button\\nnext to the slider, and then clicking the play button that \ appears.\\nAnimate all controls by selecting \"", StyleBox["Autorun", FontWeight -> "Bold"], "\" from the\"", AdjustmentBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJyNULENwyAQfEySIlMwTVJlCGRFsosokeNtqBmDBagoaZjAI1C8/8GUUUC6\n\ 57h7cQ8PvU7Pl17nUav7oj/TPH7V7b2QJAUAXBkKmCPRowxICy64bRvGGNF7\n\ X8CctGoDSN4xhIDGGDhzFXwUh3/ClBKrDQPmnGXtI6u0OOd+tZBVUqy1xSaH\n\ UqiK6pPe4XdEdAz6563tx/gejuORGMxJaz8mdpJn7hc="], "Graphics", ImageSize -> {10, 10}, ImageMargins -> 0, CellBaseline -> Baseline], BoxBaselineShift -> 0.1839080459770115, BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}], "\"menu.\""}], TooltipStyle->{ FontFamily -> "Verdana", FontSize -> 10, FontColor -> GrayLevel[0.35], Background -> GrayLevel[0.98]}]]] }], "ManipulateCaption", CellMargins->{{Inherited, Inherited}, {0, 0}}, Deployed->True, FontFamily->"Verdana", CellTags->"ControlSuggestions"], Cell["DETAILS", "DetailsSection"], Cell[TextData[StyleBox["Snapshot 1: the fit of the modified Arrhenius model \ to published soybean oil data shown in the thumbnail used to estimate the \ viscosity of the oil at different temperatures", FontColor->GrayLevel[0]]], "DetailNotes", FontColor->RGBColor[0, 0, 1], CellID->573449817], Cell[TextData[{ StyleBox["Snapshot 2: the fit of the original Arrhenius model to published \ 40% sucrose solution temperature-viscosity data (notice that the two \ experimental points coincide); for the original Arrhenius model, only two \ points are needed despite the fact that the model has only one adjustable \ parameter, ", FontColor->GrayLevel[0]], Cell[BoxData[ FormBox[ SubscriptBox["E", StyleBox["a", FontSlant->"Plain"]], TraditionalForm]], "InlineMath", FontColor->GrayLevel[0]] }], "DetailNotes", FontColor->RGBColor[0, 0, 1], CellID->334319668], Cell[TextData[{ "Snapshot 3: the fit of the original Arrhenius model to published 40% \ sucrose solution ", StyleBox["temperature-viscosity data", FontColor->GrayLevel[0]], " with three points entered instead of two" }], "DetailNotes", CellID->2037795161], Cell[TextData[{ StyleBox["Snapshot 4: the fit of the hybrid exponential power-law model fit \ to published 70\[Degree]Bx (degrees Brix)", FontColor->GrayLevel[0]], " ", StyleBox["pear juice concentrate temperature-viscosity data", FontColor->GrayLevel[0]] }], "DetailNotes", FontColor->RGBColor[0, 0, 1], CellID->1402083566], Cell[TextData[StyleBox["Snapshot 5: the fit of the hybrid reciprocal \ power-law model to published honey temperature-viscosity data", FontColor->GrayLevel[0]]], "DetailNotes", FontColor->RGBColor[0, 0, 1], CellID->480435231], Cell[TextData[StyleBox["Snapshot 6: the fit of the VTF model to the same \ published data on honey as in snapshot 5; notice that the model is \ essentially the same as the modified Arrhenius and WLF models", FontColor->GrayLevel[0]]], "DetailNotes", FontColor->RGBColor[0, 0, 1], CellID->1874515808], Cell[TextData[{ StyleBox["Snapshot 7: the fit of the WLF model to published 70", FontColor->GrayLevel[0]], StyleBox["\[Degree]", FontSlant->"Plain", FontColor->GrayLevel[0]], StyleBox["Bx pear juice concentrate temperature-viscosity data; notice that \ the model is essentially the same as the modified Arrhenius and VTF models", FontColor->GrayLevel[0]] }], "DetailNotes", FontColor->RGBColor[0, 0, 1], CellID->1632797082], Cell[TextData[{ "Snapshot 8: the WLF model used to estimate viscosity at temperatures chosen \ by the ", Cell[BoxData[ FormBox["T", TraditionalForm]], "InlineMath"], " slider on the basis of the three entered data points shown in snapshot 7" }], "DetailNotes", CellID->2011538808], Cell[TextData[{ "Traditionally, the temperature-viscosity relationship of liquids has been \ determined by regression, which requires viscosity measurements at a number \ of constant temperatures. However, at least in principle, once the \ mathematical model that describes the relationship is known or can be \ assumed, its parameters can be determined from only two or three measurements \ by direct calculation. This Demonstration presents a method to perform such \ calculations rapidly by utilizing the built-in Mathematica function ", StyleBox["Manipulate", "MR"], "." }], "DetailNotes", CellID->136414697], Cell[TextData[{ "The temperature-viscosity relationship of liquids has been described by a \ variety of mathematical models [1]. The most prominent among them is the \ single-parameter Arrhenius equation ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Mu]", "(", "T", ")"}], "=", SubscriptBox["\[Mu]", "Tref"]}], TraditionalForm]], "InlineMath"], " ", Cell[BoxData[ FormBox[ RowBox[{"exp", "(", RowBox[{ RowBox[{ SubscriptBox["E", StyleBox["a", FontSlant->"Plain"]], " ", "/", "R"}], " ", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"T", "+", "273.16"}], ")"}]}], "-", RowBox[{"1", "/", RowBox[{"(", RowBox[{ SubscriptBox["T", "ref"], "+", "273.16"}], ")"}]}]}], ")"}]}], ")"}], TraditionalForm]], "InlineMath"], ", where ", Cell[BoxData[ FormBox[ RowBox[{"\[Mu]", "(", "T", ")"}], TraditionalForm]], "InlineMath"], " and ", Cell[BoxData[ FormBox[ SubscriptBox["\[Mu]", SubscriptBox["T", "ref"]], TraditionalForm]], "InlineMath"], " are the viscosities at a temperature ", Cell[BoxData[ FormBox["T", TraditionalForm]], "InlineMath"], " and an arbitrary reference temperature ", Cell[BoxData[ FormBox[ SubscriptBox["T", "ref"], TraditionalForm]], "InlineMath"], ", respectively, both in ", Cell[BoxData[ FormBox["\[Degree]K", TraditionalForm]], "InlineMath"], "; ", Cell[BoxData[ FormBox[ SubscriptBox["E", StyleBox["a", FontSlant->"Plain"]], TraditionalForm]], "InlineMath"], ", the single ", StyleBox["adjustable parameter, is the", FontColor->GrayLevel[0]], " \"activation energy\" in ", Cell[BoxData[ FormBox[ RowBox[{"kJ", " ", SuperscriptBox["mol", RowBox[{"-", "1"}]]}], TraditionalForm]], "InlineMath"], " in our case; and ", Cell[BoxData[ FormBox["R", TraditionalForm]], "InlineMath"], " is the universal gas constant, ", Cell[BoxData[ FormBox[ RowBox[{"R", "=", RowBox[{"8.31477", "\[Times]", SuperscriptBox["10", RowBox[{"-", "3"}]], " ", "kJ", " ", SuperscriptBox["mol", RowBox[{"-", "1"}]], SuperscriptBox["\[Degree]K", RowBox[{"-", "1"}]]}]}], TraditionalForm]], "InlineMath"], "." }], "DetailNotes", CellID->1356761130], Cell[TextData[{ "Two alternative models, adapted from polymer science, are the WLF and ", StyleBox["VTF equations.", FontColor->GrayLevel[0]], " The WLF equation can be written in the form ", Cell[BoxData[ FormBox[Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Mu]", "(", "T", ")"}], "=", RowBox[{ SubscriptBox["\[Mu]", "Tref"], " ", SuperscriptBox["10", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["C", "1"], "(", RowBox[{"T", "-", SubscriptBox["T", "ref"]}], ")"}]}], "/", RowBox[{"(", RowBox[{ SubscriptBox["C", "2"], "+", "T", "-", SubscriptBox["T", "ref"]}], ")"}]}]]}]}], TraditionalForm]], "InlineMath"]], "InlineMath"], TraditionalForm]], "InlineMath"], ",", StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["where the temperature ", FontColor->GrayLevel[0]], Cell[BoxData[ FormBox["T", TraditionalForm]], "InlineMath"], StyleBox[" and the reference temperature ", FontColor->GrayLevel[0]], Cell[BoxData[ FormBox[ SubscriptBox["T", "ref"], TraditionalForm]], "InlineMath"], StyleBox["\[LongDash]the latter being frequently assigned the glass \ transition temperature ", FontColor->GrayLevel[0]], Cell[BoxData[ FormBox[ SubscriptBox["T", StyleBox["g", FontSlant->"Plain"]], TraditionalForm]], "InlineMath"], "\[LongDash]", StyleBox["are both in \[Degree]", FontColor->GrayLevel[0]], Cell[BoxData[ FormBox[ StyleBox["C", FontSlant->"Plain"], TraditionalForm]], "InlineMath"], StyleBox[", and ", FontColor->GrayLevel[0]], Cell[BoxData[ FormBox[ SubscriptBox["C", "1"], TraditionalForm]], "InlineMath"], StyleBox[" and ", FontColor->GrayLevel[0]], Cell[BoxData[ FormBox[ SubscriptBox["C", "2"], TraditionalForm]], "InlineMath"], StyleBox[" are the two adjustable parameters. The VTF equation can be \ written in the form ", FontColor->GrayLevel[0]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Mu]", "(", "T", ")"}], "=", SuperscriptBox["e", RowBox[{"(", RowBox[{"A", "+", RowBox[{"B", "/", RowBox[{"(", RowBox[{"T", "-", SubscriptBox["T", "0"]}], ")"}]}]}], ")"}]]}], TraditionalForm]], "InlineMath"], ",", StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["where again the temperature is in ", FontColor->GrayLevel[0]], Cell[BoxData[ FormBox["\[Degree]C", TraditionalForm]], "InlineMath"], StyleBox[", and ", FontColor->GrayLevel[0]], Cell[BoxData[ FormBox["A", TraditionalForm]], "InlineMath"], StyleBox[", ", FontColor->GrayLevel[0]], Cell[BoxData[ FormBox["B", TraditionalForm]], "InlineMath"], StyleBox[" and ", FontColor->GrayLevel[0]], Cell[BoxData[ FormBox[ SubscriptBox["T", "0"], TraditionalForm]], "InlineMath"], StyleBox[" are the three adjustable parameters. These two equations are \ known to be mathematically identical [2], but following the literature they \ are treated as separate models in this Demonstration.", FontColor->GrayLevel[0]] }], "DetailNotes", CellID->1102948064], Cell[TextData[{ StyleBox["In the modified Arrhenius equation [3], which retains the original \ mathematical structure of the Arrhenius model, the absolute temperature ", FontSlant->"Plain"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"T", " ", "\[Degree]K"}], "=", RowBox[{ RowBox[{"T", " ", "\[Degree]C"}], "+", RowBox[{"273.16", " ", "\[Degree]C"}]}]}], TraditionalForm]], "InlineMath"], StyleBox[" is replaced by a term ", FontSlant->"Plain"], Cell[BoxData[ FormBox[ RowBox[{"T", "+", "b"}], TraditionalForm]], "InlineMath"], ", ", StyleBox["both in ", FontSlant->"Plain"], Cell[BoxData[ FormBox["\[Degree]C", TraditionalForm]], "InlineMath"], StyleBox[",", FontSlant->"Plain"], " ", StyleBox["where ", FontSlant->"Plain"], Cell[BoxData[ FormBox[ RowBox[{"b", "<", RowBox[{"273.16", " ", "\[Degree]C"}]}], TraditionalForm]], "InlineMath"], StyleBox[", and by the term ", FontSlant->"Plain"], Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["E", StyleBox["a", FontSlant->"Plain"]], "/", "R"}], TraditionalForm]], "InlineMath"], StyleBox[" having ", FontSlant->"Plain"], Cell[BoxData[ FormBox["\[Degree]C", TraditionalForm]], "InlineMath"], StyleBox[" units. It can therefore be written in the form ", FontSlant->"Plain"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Mu]", "(", "T", ")"}], "=", RowBox[{ SubscriptBox["\[Mu]", SubscriptBox["T", "ref"]], " ", RowBox[{"exp", "(", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{"(", RowBox[{"T", "+", "b"}], ")"}]}], "-", RowBox[{"1", "/", RowBox[{"(", RowBox[{ SubscriptBox["T", "ref"], "+", "b"}], ")"}]}]}], ")"}]}]}]}]}], TraditionalForm]], "InlineMath"], StyleBox[", where the two adjustable parameters are ", FontSlant->"Plain", FontColor->GrayLevel[0]], Cell[BoxData[ FormBox["a", TraditionalForm]], "InlineMath"], StyleBox[" and ", FontSlant->"Plain", FontColor->GrayLevel[0]], Cell[BoxData[ FormBox["b", TraditionalForm]], "InlineMath"], StyleBox[". This modified Arrhenius equation has been recently shown to be \ mathematically identical to the WLF and VTF equations [4], and hence all \ three are essentially three versions of the same temperature-viscosity model. \ Again, though, they are treated separately in this Demonstration for \ convenience.", FontSlant->"Plain", FontColor->GrayLevel[0]] }], "DetailNotes", CellID->169270744], Cell[TextData[{ "The two ad hoc alternative equations are the hybrid exponential power-law \ model, which can be written in the form ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Mu]", "(", "T", ")"}], "=", RowBox[{ SubscriptBox["\[Mu]", "Tmin"], " ", SuperscriptBox["e", RowBox[{ RowBox[{"-", "c"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"T", "-", SubscriptBox["T", "min"]}], ")"}], "m"]}]]}]}], TraditionalForm]], "InlineMath"], ", and the hybrid reciprocal power-law model, which can be written in the \ form ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Mu]", "(", "T", ")"}], "=", RowBox[{ SubscriptBox["\[Mu]", "Tmin"], "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"c", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"T", "-", SubscriptBox["T", "min"]}], ")"}], "m"]}]}], ")"}]}]}], TraditionalForm]], "InlineMath"], ",", StyleBox[" where ", FontSlant->"Plain", FontColor->GrayLevel[0]], Cell[BoxData[ FormBox[ SubscriptBox["T", "min"], TraditionalForm]], "InlineMath"], StyleBox[" replaces ", FontSlant->"Plain", FontColor->GrayLevel[0]], Cell[BoxData[ FormBox[ SubscriptBox["T", "ref"], TraditionalForm]], "InlineMath"], StyleBox[" and the adjustable parameters are ", FontSlant->"Plain", FontColor->GrayLevel[0]], Cell[BoxData[ FormBox["c", TraditionalForm]], "InlineMath"], " and ", Cell[BoxData[ FormBox["m", TraditionalForm]], "InlineMath"], " ", StyleBox["[4].", FontSlant->"Plain", FontColor->GrayLevel[0]] }], "DetailNotes", CellID->1665045780], Cell[TextData[{ "Although not an issue in this Demonstration, there are theoretical \ restrictions on the choice of ", Cell[BoxData[ FormBox[ SubscriptBox["T", "ref"], TraditionalForm]], "InlineMath"], " and ", Cell[BoxData[ FormBox[ SubscriptBox["T", "min"], TraditionalForm]], "InlineMath"], " [4]. For example, ", Cell[BoxData[ FormBox[ SubscriptBox["T", "ref"], TraditionalForm]], "InlineMath"], " in the WLF equation must be high enough to avoid sign reversal, and ", Cell[BoxData[ FormBox[ SubscriptBox["T", "min"], TraditionalForm]], "InlineMath"], " in the two hybrid power-law models must be high enough to avoid complex \ viscosities. However, in the Arrhenius, modified Arrhenius and WLF models, \ the chosen reference temperature ", Cell[BoxData[ FormBox[ SubscriptBox["T", "ref"], TraditionalForm]], "InlineMath"], " and corresponding viscosity ", Cell[BoxData[ FormBox[ SubscriptBox["\[Mu]", "Tref"], TraditionalForm]], "InlineMath"], " can be one of the two or three entered experimental points. ", StyleBox["In the exponential power-law and reciprocal power-law models, the \ chosen ", FontColor->GrayLevel[0]], Cell[BoxData[ FormBox[ SubscriptBox["T", "min"], TraditionalForm]], "InlineMath", FontColor->GrayLevel[0]], StyleBox[" can be the lowest entered temperature and ", FontColor->GrayLevel[0]], Cell[BoxData[ FormBox[ SubscriptBox["\[Mu]", SubscriptBox["T", "min"]], TraditionalForm]], "InlineMath", FontColor->GrayLevel[0]], StyleBox[" the corresponding viscosity ", FontColor->GrayLevel[0]], Cell[BoxData[ FormBox[ RowBox[{"\[Mu]", "(", SubscriptBox["T", "min"], ")"}], TraditionalForm]], "InlineMath", FontColor->GrayLevel[0]], StyleBox[".", FontColor->GrayLevel[0]] }], "DetailNotes", CellID->565020403], Cell[TextData[{ "To use this ", StyleBox["Demonstration", FontSlant->"Plain", FontColor->GrayLevel[0]], ", enter three temperature-viscosity data points with their six sliders. The \ temperatures are in ", Cell[BoxData[ FormBox["\[Degree]C", TraditionalForm]], "InlineMath"], " and the viscosity in millipascal seconds (mPa\[CenterDot]s) or, \ equivalently, in centipoise (cP) (since 1 cP = 1 mPa\[CenterDot]s). Choose \ the model from the popup menu.", StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["For the original Arrhenius model, two of the entered points are \ the same\[LongDash]for example, ", FontColor->GrayLevel[0]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["T", "1"], ",", SubscriptBox["\[Mu]", "1"]}], ")"}], "=", RowBox[{"(", RowBox[{ SubscriptBox["T", "2"], ",", SubscriptBox["\[Mu]", "2"]}], ")"}]}], TraditionalForm]], "InlineMath"], StyleBox[". The points are displayed in different colors adjacent to a \ reconstructed temperature-viscosity curve generated by the default values. \ When moving the sliders of the adjustable parameters, try to match the newly \ generated curve with the data points.", FontColor->GrayLevel[0]] }], "DetailNotes", CellID->125226187], Cell[TextData[{ "When a visually satisfactory match has been obtained, the slider positions \ can be considered as estimates for the parameters or used as the initial \ guesses for a more accurate determination of their values. For the more \ refined assessment, click the green \"solve\" button to extract the values of \ the parameters by solving the following simultaneous equations numerically \ with the built-in Mathematica function ", StyleBox["FindRoot", "MR"], ": for the original Arrhenius model, ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Mu]", "(", SubscriptBox["T", "1"], ")"}], "=", SubscriptBox["\[Mu]", "1"]}], TraditionalForm]], "InlineMath"], " and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Mu]", "(", SubscriptBox["T", "2"], ")"}], "=", SubscriptBox["\[Mu]", "2"]}], TraditionalForm]], "InlineMath"], "; and for the other models ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Mu]", "(", SubscriptBox["T", "1"], ")"}], "=", SubscriptBox["\[Mu]", "1"]}], TraditionalForm]], "InlineMath"], ", ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Mu]", "(", SubscriptBox["T", "2"], ")"}], "=", SubscriptBox["\[Mu]", "2"]}], TraditionalForm]], "InlineMath"], " and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[Mu]", "(", SubscriptBox["T", "3"], ")"}], "=", SubscriptBox["\[Mu]", "3"]}], TraditionalForm]], "InlineMath"], ", where ", Cell[BoxData[ FormBox[ RowBox[{"\[Mu]", "(", "T", ")"}], TraditionalForm]], "InlineMath"], " is the chosen model equation and the ", Cell[BoxData[ FormBox["\[Mu]", TraditionalForm]], "InlineMath"], " values are the entered viscosities at the corresponding entered time ", Cell[BoxData[ FormBox["T", TraditionalForm]], "InlineMath"], ". Once the new parameter values are obtained, the corresponding new \ time-temperature curve will be automatically recalculated and displayed." }], "DetailNotes", CellID->142550849], Cell[TextData[{ "To estimate the viscosity ", Cell[BoxData[ FormBox["\[Mu]", TraditionalForm]], "InlineMath"], " at an arbitrary temperature ", Cell[BoxData[ FormBox["T", TraditionalForm]], "InlineMath"], " other than the two or three entered, check the \"activate moving point\" \ checkbox and move the \"", StyleBox["moving point\" ", FontColor->GrayLevel[0]], "slider. A moving black dot will indicate the point's position along the \ temperature-viscosity curve, and the numerical values of the corresponding \ temperature and viscosity will be displayed above the plot." }], "DetailNotes", CellID->1407852738], Cell[TextData[{ StyleBox["Although", FontColor->GrayLevel[0]], " the described models have been developed for dynamic viscosity, they are \ probably equally well applicable to kinematic viscosity, albeit with \ different parameter values. This is because the density changes in liquids \ for the pertinent temperature range are usually very small in comparison to \ those for their viscosity." }], "DetailNotes", CellID->806144920], Cell[TextData[StyleBox["Note that not all possible combinations of the \ entered temperature-viscosity points that are allowed by the program have \ realistic solutions (or any solutions at all).", FontColor->GrayLevel[0]]], "DetailNotes", CellID->346303463], Cell["References", "DetailNotes", CellID->403341517], Cell[TextData[{ "[1] Wikipedia. \"Temperature Dependence of Liquid Viscosity.\" (Jun 21, \ 2017) ", ButtonBox["en.wikipedia.org/wiki/Temperature_dependence_of _liquid \ _viscosity", BaseStyle->"Hyperlink", ButtonData->{ URL["https://en.wikipedia.org/wiki/Temperature_dependence_of_liquid_\ viscosity"], None}, ButtonNote-> "https://en.wikipedia.org/wiki/Temperature_dependence_of_liquid_viscosity"], "." }], "DetailNotes", CellID->1502486287], Cell[TextData[{ "[2] C. A. Angel, \"Why ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox[ StyleBox["C", FontSlant->"Plain"], "1"], "=", RowBox[{"16", "-", "17"}]}], TraditionalForm]]], " in the WLF Equation is Physical\[LongDash]and the Fragility of Polymers,\"", StyleBox[" Polymer,", FontSlant->"Italic"], " ", StyleBox["38", FontWeight->"Bold"], "(26), 1997 pp. 6261\[Dash]6266. ", ButtonBox["doi:10.1016/S0032-3861(97)00201-2", BaseStyle->"Hyperlink", ButtonData->{ URL["https://doi.org/10.1016/S0032-3861(97)00201-2"], None}, ButtonNote->"https://doi.org/10.1016/S0032-3861(97)00201-2"], "." }], "DetailNotes", CellID->26820536], Cell[TextData[{ "[3] M. Peleg, M. D. Normand and M. G. Corradini, \"The Arrhenius Equation \ Revisited,\" ", StyleBox["Critical Reviews in Food Science and Nutrition", FontSlant->"Italic"], ", ", StyleBox["52", FontWeight->"Bold"], "(9), 2012 pp. 830\[Dash]851. ", ButtonBox["doi:10.1080/10408398.2012.667460", BaseStyle->"Hyperlink", ButtonData->{ URL["https://dx.doi.org/10.1080/10408398.2012.667460"], None}, ButtonNote->"https://dx.doi.org/10.1080/10408398.2012.667460"], "." }], "DetailNotes", CellID->1948666329], Cell[TextData[{ "[4] M. Peleg, \"Temperature-Viscosity Models Reassessed,\" ", StyleBox["Critical Reviews in Food Science and Nutrition", FontSlant->"Italic"], ", 2017 (forthcoming). ", ButtonBox["doi:10.1080/10408398.2017.1325836", BaseStyle->"Hyperlink", ButtonData->{ URL["https://dx.doi.org/10.1080/10408398.2017.1325836"], None}, ButtonNote->"https://dx.doi.org/10.1080/10408398.2017.1325836"], "." }], "DetailNotes", CellID->2109374753], Cell["RELATED LINKS", "RelatedLinksSection"], Cell[TextData[{ ButtonBox["Arrhenius Equations for Reaction Rate and Viscosity", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/\ ArrheniusEquationsForReactionRateAndViscosity/"], None}, ButtonNote-> "http://demonstrations.wolfram.com/\ ArrheniusEquationsForReactionRateAndViscosity/"], " (", ButtonBox["Wolfram Demonstrations Project", BaseStyle->"SiteLink", ButtonData->{ URL["http://demonstrations.wolfram.com/"], None}, ButtonNote->"http://demonstrations.wolfram.com/"], ")" }], "RelatedLinks", CellID->1601428995], Cell[TextData[{ ButtonBox["Arrhenius versus Eyring-Polanyi Model", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/ArrheniusVersusEyringPolanyiModel/\ "], None}, ButtonNote-> "http://demonstrations.wolfram.com/ArrheniusVersusEyringPolanyiModel/"], " (", ButtonBox["Wolfram Demonstrations Project", BaseStyle->"SiteLink", ButtonData->{ URL["http://demonstrations.wolfram.com/"], None}, ButtonNote->"http://demonstrations.wolfram.com/"], ")" }], "RelatedLinks", CellID->804571114], Cell[TextData[{ ButtonBox["Arrhenius versus Exponential Model for Chemical Reactions", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/\ ArrheniusVersusExponentialModelForChemicalReactions/"], None}, ButtonNote-> "http://demonstrations.wolfram.com/\ ArrheniusVersusExponentialModelForChemicalReactions/"], " (", ButtonBox["Wolfram Demonstrations Project", BaseStyle->"SiteLink", ButtonData->{ URL["http://demonstrations.wolfram.com/"], None}, ButtonNote->"http://demonstrations.wolfram.com/"], ")" }], "RelatedLinks", CellID->1869671486], Cell[TextData[{ ButtonBox["Williams, Landel and Ferry Equation Compared with Actual and \ \"Universal\" Constants", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/\ WilliamsLandelAndFerryEquationComparedWithActualAndUniversal/"], None}, ButtonNote-> "http://demonstrations.wolfram.com/\ WilliamsLandelAndFerryEquationComparedWithActualAndUniversal/"], " (", ButtonBox["Wolfram Demonstrations Project", BaseStyle->"SiteLink", ButtonData->{ URL["http://demonstrations.wolfram.com/"], None}, ButtonNote->"http://demonstrations.wolfram.com/"], ")" }], "RelatedLinks", CellID->1587942298], Cell[BoxData[ ButtonBox[ PaneSelectorBox[{False->Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJztmklPHVcQhVGSRX5B9vkpyU9wJG+RLSWwCziRwvPO3hl2hhXDhmHFtMCW FxADEYNBsg1CzCGQOIMUHg9bwhuQRb70EZXK7eH149lBkftItOrWrVt1qu7p FkJ8evPra1990NDQ8M3HPK7d+O6zW7dulL74iMXnpW+/vPkhxif8/MDP3/b5 +fmbN29OT09PTk5evnx5fHxcqVSOI1QiYLyKwK55BDyvHIJlGtLCso8H3NIQ BFSlZAHe8L2n5U8spKe2gkFl8NRgM1pIvBR/1hDPnI08M0zc5SyCQTaI5zxC uVze39//sUCBGoFsEI9UtLe3d9V0CvxfgXikIlsWKJAHUos97VtUoMClUahI mJubm5yc5HnVRP7B+vr6ZISrJlIdUtFPtaOtre26A8uJiQnbZQL37t1rbGxk 686dO9yObeEkWLZ2fc7u7m7ZU1NT7HojIy1O0cAYHh7GIBI/lJqamljev3/f J/cgiWIEbEubVg5KOsKuMls7bFlmyimspaXFhoPBEidpOSuecbBllIikKU8Y MvJDwDLg16Xw9KyqVuRgf3+/Iv0l5odUtO+Acz8HINne3v79BbDhiWG7DJDe Hzx4gA3/jY0N/CwbI2ATrAvSlk719PTITlSRpaVZpWUmTEBzJlLD1wB1kKvE 0NjjKuI4Z9l9+vQpS57cCyUyyuHHyb3AH7Z6KcTZT0BbnMUjVs+ePcOWIDHY IoC5xWdrZ7EZDktOMTotVZElATBRdfmVWfHy56xIO5yCIQHWQgYCkcRVlBP+ xgXoQQYDMn6ealAzaY/Acn5+fmBgQNek+QQ51b430tKShyQmRfJrgGYIBAeE AWclaQ9VyejC+30V74cSyf1w9K55SgzBejdQyOcJZislWLMaDlQDP7JJHEJi RcvDLiPyw8wJqeggAsuD3CiVSlT0noWFBZg8f/5clBKDYfjw4UOWIyMjdIpT uorntCRxI0i7ubmpLzbJSxeIM4wTBrCFtveoCs6MLnTLcuJRucDvbZ9BSTyC GOaDHuI88QflfKHAb8s8FQWugzFiUL2zszMxJg1eRTUh8VLUkebP5ZpfH0zJ DL/Eo4+nH1oeFcXTyiY5qfQq2QD9NHxwHBzn08ERSkjVGeVyqkj3HgzNS13i D2LiOgl2ddcC9ExF3k/jNoSqFQ8ilXILvNq6juDNqgqp6OfaAaXe3t7ACcPH jx9jSM9yQgz/4uIinrt37+IhRr92KoBgYpQT/9bWFvbg4KACCPaR8bQrKyv4 VRdogMpg2ZQkThiQwT5l6MfypJXzbQJyqpz8Fk+n5ieYVPCEErVECVBOA/Hw CRPZSp/WLJnNL3rkx2lDqFpRbAFhDIEjadXTIBX9UjukIu9hSjTCE3t0dBS7 ublZF9TR0YGTJX4F4ySD7I4Iykk8YfomyDk9PY2tyMS0yqCE8qvK9vY2S82T J6cCwtYIePLkSXwrrRw2rGTr0s1PpCVUUd+LyokSWxjxuhTFnzF5NatBWbN+ CBwXjZwV8SAhxkUqZJlROg1S0YvaAau+vj7v6erqgqctV1dXh4aGiIGkPDMz Mzs7O7JxEmCRipGTME6NjY3ZKYaTkVZ49OhRXwTizUk58uDkVJywQHJ/BJvI 7HK+ESNvfuOArbNwi1Nly5J44AwovYhNm4rKYDP0mTVA30V2xfpRj4oQ/8wF 9CIE43orCFR0aaSpCD9voq6DZ2trK8v6y9UD3kc+GnqPJMu4rrIRqOhdQyr6 tXbcvn37ugPDR0KXyFMVUlH9eSDMbOP+paUlyFsjhO3u7tZfrk5AVX9M018L x8fHaz1OI++IWxxS0W/vPZaXl2dnZ9fW1q6ayL8wGyFn8H+mGRCULlRUoH5I Rb8XKFAHTEV/FChwKZiKyuWyRJURWSitQACpwv5j9uzs7PXr15VK5fDw8M8k 4D86OkrbLfAeAjEgGGSDeJDQX/iUS2c= "], {{0, 0}, {194, 22}}, {0, 255}, ColorFunction->RGBColor], ImageSize->{194, 22}, PlotRange->{{0, 194}, {0, 22}}]]], True->Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJztmjtPJFcQhZHtwL/AuX+K/RPWklO0K9mCyAJbshZCCIEMyHhEQMYjApGA gYBnwivgLdmM17bMDEgTAMKf54hy7b3dPTO0MbLdR9pW3bp1q07VPd0gtJ++ +ebV1x+0tLR8+zGPV6+//6yz8/XbLz5i8fnb77568yHGJ/xb5t+f9sPDw/39 /e3tbbVavbm5ub6+rlQq1zVUasC4eYR5hJt/Fp5bGoKAPIUSa/nhpBXSVjCo DJ52JC1z4qX4s4Y4c91O684wcZezCAbZIJ6HGsrl8uXl5Y8FCjQJZIN4pKKX 5lLg341CRQXyo1BRgfwoVCSsr68vLS3xfGkif+Ho6GiphpcmUh9S0U/No6ur 60sHlvPz87Z7fHzc19fX2trKVk9Pz8bGhm3hJFi2dn3OkZER2cvLy+x6IyMt TtHAmJ6exiASP5Ta2tpYDg4O+uQeJFGMgG1p08pBSUfYVWZrhy3LTDmFdXR0 2HAwWOIkLWfFMwZbRolImvKEISM/BCwDfl0KT8+qbkUOTkxMKNJfYuOQii4d cF42AEj29/f/8AhseGLYLgOk94WFBWz4n5yc4GfZWgM2wbogbenU6Oio7EQV WVqaVVpmwgQ0ZyI1fA1QB7lKDI09VhHHOcvu7u4uS57cCyUyyuHHyb3AH7Z6 KcTZT0BbnMUzNDTE1t7eHrYEicEWAcwtnq2dxWY4LDnF6LRURZYEwETV5Vdm xcvfYEXa4RQMCbAWMhCIJFZRg/A3LkAPMhiQ8fNUg5pJfw0sNzc3uX1dk+YT 5FT73khLSx6SmBTJrwGaIRAcEAZSYOBUlYwuvN9X8X4okdwPR++ap8QQrHcD hXyeYLZSgjWr4UA18CObxCEkVrQ87DIiP8wGIRWVamBZahjd3d1U9J6trS2Y 7O/vi1JisDTDcmZmpre3F6d0Fee0JLERpD09PdUXm+Tdj4gZxoQBbKHtPaqC M6ML3bKceFQu8HvbZ1ASjyBGn+uYJ/6gnC8U+G3ZSEWB62CMGFTn45kYkwav oqaQeCnqSPPncs2vD6Zkhl/i0cfTD60RFcVpZZOcVHqVbIB+Gj44BscnJyc5 QgmpOqNcgyrSvQdD81KX+IOYWCfBru5agJ6pyPtp3IZQt2KpplJugVdb1xG8 WXXxHCoqva9niOntxoPgS7UL0q+dCiBYA1fLujjuNP4EJabVBOz6bIBksGxK kqgiMtinTD93bCuxXClTRRZPp+bXb4DwhBK1TJmU00A8slWkN9H0STm9g/KL Hvlx2hDqVhRbQBhD4Eha9TRIRT83D0iOjY15z8HBAY3wxJ6dndW9dHZ26u3G yRK/gnGSQbZ+qCkn8Xp37NTKygq2IhPTKoMSyq8qZ2dnLDVPnpwKCFsjgPnH W2nlsGElm5zWCH4iLaGK+l5UTpTY0lsfF8WfMXk1q0FZs34IHBeNBiviQUKM i1TDw8MZpdMgFb1rHlKR90Cgvb3dlshpamqKmO3tbXlWV1fPz89l4yTAIhUj J2GcoiM7xXAy0gqLi4tjNRBvTsqRByenYsICyf0RbCKzy/lGjLz5jQO2zsIt psqWJfHAGVB6F02bispgM/SZNUDfRXbF/MijooGBgdVHYNN7MK6/BYGKnow0 FeHnTdR18OQtZpm/XB7wPvLR0HskWca6ykagoueGVPRL89CH2sDwkdAT8tTF 2toa+fPngfD4+Hjs39nZ0Q8sgbCLi4v85XICqvpjmv5aODc31+xxGnkmbjGe rKL/GNAScj08PHxpIu9hrYaXZlEfhYoK5IdU9GuBAjlgKvqtQIEnwVRULpcl qozIQmkFAkgV9j9m7+7uqtVqpVK5urr6PQn4CU7bLfA/BGJAMMgG8SChPwBG 7X9c "], {{0, 0}, {194, 22}}, {0, 255}, ColorFunction->RGBColor], ImageSize->{194, 22}, PlotRange->{{0, 194}, {0, 22}}]]]}, Dynamic[ CurrentValue["MouseOver"]]], BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/versions/source.jsp?id=\ ParameterizingTemperatureViscosityRelations&version=0018"], None}, ButtonNote-> "http://demonstrations.wolfram.com/\ ParameterizingTemperatureViscosityRelations/\ ParameterizingTemperatureViscosityRelations-source.nb"]], \ "DemoSourceNotebookSection", CellFrame->{{0, 0}, {1, 1}}, ShowCellBracket->False, CellMargins->{{48, 48}, {28, 28}}, CellGroupingRules->{"SectionGrouping", 25}, CellFrameMargins->{{48, 48}, {6, 8}}, CellFrameColor->RGBColor[0.87, 0.87, 0.87]], Cell["PERMANENT CITATION", "CitationSection"], Cell[TextData[{ "\[NonBreakingSpace]", ButtonBox["Mark D. Normand", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/author.html?author=Mark+D.+\ Normand"], None}, ButtonNote-> "http://demonstrations.wolfram.com/author.html?author=Mark+D.+Normand"], " and ", ButtonBox["Micha Peleg", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/author.html?author=Micha+Peleg"], None}, ButtonNote-> "http://demonstrations.wolfram.com/author.html?author=Micha+Peleg"] }], "Author", FontColor->GrayLevel[0.6]], Cell[TextData[{ "\"", ButtonBox["Parameterizing Temperature-Viscosity Relations", BaseStyle->"SiteLink", ButtonData->{ URL["http://demonstrations.wolfram.com/\ ParameterizingTemperatureViscosityRelations/"], None}, ButtonNote-> "http://demonstrations.wolfram.com/\ ParameterizingTemperatureViscosityRelations/"], "\"", "\[ParagraphSeparator]\[NonBreakingSpace]", ButtonBox["http://demonstrations.wolfram.com/\ ParameterizingTemperatureViscosityRelations/", BaseStyle->"SiteLink", ButtonData->{ URL["http://demonstrations.wolfram.com/\ ParameterizingTemperatureViscosityRelations/"], None}, ButtonNote-> "http://demonstrations.wolfram.com/\ ParameterizingTemperatureViscosityRelations/"], "\[ParagraphSeparator]\[NonBreakingSpace]", ButtonBox["Wolfram Demonstrations Project", BaseStyle->"SiteLink", ButtonData->{ URL["http://demonstrations.wolfram.com/"], None}, ButtonNote->"http://demonstrations.wolfram.com/"], "\[ParagraphSeparator]\[NonBreakingSpace]", "Published: ", "July 6, 2017" }], "Citations"], Cell[TextData[{ "\[Copyright] ", StyleBox[ButtonBox["Wolfram Demonstrations Project & Contributors", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/"], None}, ButtonNote->"http://demonstrations.wolfram.com/"], FontColor->GrayLevel[0.6]], "\[ThickSpace]\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]\ \[ThickSpace]", StyleBox[ButtonBox["Terms of Use", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/termsofuse.html"], None}, ButtonNote->"http://demonstrations.wolfram.com/termsofuse.html"], FontColor->GrayLevel[0.6]] }], "Text", CellFrame->{{0, 0}, {0, 0.5}}, CellMargins->{{48, 48}, {20, 50}}, CellFrameColor->GrayLevel[0.45098], FontFamily->"Verdana", FontSize->9, FontColor->GrayLevel[0.6], CellTags->"Copyright"] }, Editable->False, Saveable->False, ScreenStyleEnvironment->"Working", CellInsertionPointCell->None, CellGrouping->Manual, WindowSize->{750, 650}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, WindowElements->{ "StatusArea", "MemoryMonitor", "MagnificationPopUp", "VerticalScrollBar", "MenuBar"}, WindowTitle->"Parameterizing Temperature-Viscosity Relations", DockedCells->{}, CellContext->Notebook, FrontEndVersion->"10.2 for Microsoft Windows (64-bit) (July 7, 2015)", StyleDefinitions->Notebook[{ Cell[ CellGroupData[{ Cell[ "Demonstration Styles", "Title", CellChangeTimes -> { 3.3509184553711*^9, {3.36928902713192*^9, 3.36928902738193*^9}, { 3.3754479092466917`*^9, 3.3754479095123196`*^9}, { 3.375558447161495*^9, 3.375558447395873*^9}, {3.37572892702972*^9, 3.375728927639103*^9}}], Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ CellGroupData[{ Cell[ "Style Environment Names", "Section", CellChangeTimes -> {{3.369277974278112*^9, 3.369277974396138*^9}}], Cell[ StyleData[All, "Working"], ShowCellBracket -> False]}, Closed]], Cell[ CellGroupData[{ Cell[ "Notebook Options", "Section", CellChangeTimes -> {{3.374865264950812*^9, 3.374865265419568*^9}}], Cell[ " The options defined for the style below will be used at the \ Notebook level. ", "Text"], Cell[ StyleData["Notebook"], Editable -> True, PageHeaders -> {{None, None, None}, {None, None, None}}, PageFooters -> {{None, None, None}, {None, None, None}}, PageHeaderLines -> {False, False}, PageFooterLines -> {False, False}, PrintingOptions -> { "FacingPages" -> False, "FirstPageFooter" -> False, "RestPagesFooter" -> False}, CreateCellID -> True, CellFrameLabelMargins -> 6, DefaultNewInlineCellStyle -> "InlineMath", DefaultInlineFormatType -> "DefaultTextInlineFormatType", ShowStringCharacters -> True, CacheGraphics -> False, StyleMenuListing -> None, DemonstrationSite`Private`TrackCellChangeTimes -> False]}, Closed]], Cell[ CellGroupData[{ Cell[ "Input/Output", "Section", CellChangeTimes -> {{3.3756313297791014`*^9, 3.3756313299509783`*^9}}], Cell[ "The cells in this section define styles used for input and output \ to the kernel. Be careful when modifying, renaming, or removing these \ styles, because the front end associates special meanings with these style \ names. ", "Text"], Cell[ StyleData["Input"], CellMargins -> {{48, 4}, {6, 4}}], Cell[ StyleData["Output"], CellMargins -> {{48, 4}, {6, 4}}], Cell[ StyleData["DemonstrationHeader"], Deletable -> False, CellFrame -> {{0, 0}, {0, 0}}, ShowCellBracket -> False, CellMargins -> {{0, 0}, {30, 0}}, CellGroupingRules -> {"SectionGrouping", 20}, CellHorizontalScrolling -> True, CellFrameMargins -> {{0, 0}, {0, 0}}, CellFrameColor -> RGBColor[0, 0, 0], StyleMenuListing -> None, Background -> RGBColor[0, 0, 0]], Cell[ StyleData["ShowSource"], CellFrame -> {{0, 0}, {0, 1}}, ShowCellBracket -> False, CellMargins -> {{48, 48}, {8, 28}}, CellFrameMargins -> {{48, 48}, {6, 8}}, CellFrameColor -> RGBColor[0.87, 0.87, 0.87], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 10, FontWeight -> "Bold", FontSlant -> "Plain", FontColor -> RGBColor[1, 0.42, 0]]}, Closed]], Cell[ CellGroupData[{ Cell[ "Basic Styles", "Section", CellChangeTimes -> {{3.34971724802035*^9, 3.34971724966638*^9}, { 3.35091840608065*^9, 3.35091840781999*^9}, {3.35091845122987*^9, 3.35091845356607*^9}, {3.35686681885432*^9, 3.35686681945788*^9}, { 3.375657418186455*^9, 3.375657418452083*^9}}], Cell[ StyleData["Hyperlink"], StyleMenuListing -> None, FontColor -> GrayLevel[0]], Cell[ StyleData["SiteLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontColor -> GrayLevel[0.45098], ButtonBoxOptions -> { Active -> True, Appearance -> {Automatic, None}, ButtonFunction :> (FrontEndExecute[{ NotebookLocate[#2]}]& ), ButtonNote -> ButtonData}], Cell[ StyleData["Link"], FontColor -> GrayLevel[0.45098]], Cell[ CellGroupData[{ Cell[ StyleData["DemoNotes"], CellFrame -> True, CellMargins -> {{0, 0}, {0, 0}}, CellFrameMargins -> {{48, 48}, {4, 4}}, CellFrameColor -> GrayLevel[0.99], StyleMenuListing -> None, FontFamily -> "Verdana", FontSize -> 10, FontColor -> GrayLevel[0.45098], DemonstrationSite`Private`ReturnCreatesNewCell -> True], Cell[ StyleData["DemoNotes", "Printout"], CellMargins -> {{24, 0}, {0, 10}}, FontSize -> 9]}, Open]], Cell[ StyleData["SnapshotsSection"], CellFrame -> {{0, 0}, {0, 2}}, ShowCellBracket -> False, ShowGroupOpener -> True, CellMargins -> {{48, 48}, {10, 30}}, CellGroupingRules -> {"SectionGrouping", 30}, CellFrameMargins -> {{8, 8}, {8, 2}}, CellFrameColor -> RGBColor[0.870588, 0.521569, 0.121569], DefaultNewCellStyle -> "SnapshotCaption", StyleMenuListing -> None, FontFamily -> "Verdana", FontSize -> 12, FontColor -> GrayLevel[0.45098], PrivateCellOptions -> {"DefaultCellGroupOpen" -> False}], Cell[ StyleData[ "SnapshotCaption", StyleDefinitions -> StyleData["DemoNotes"]], ShowCellBracket -> False], Cell[ CellGroupData[{ Cell[ StyleData["SnapshotOutput"], ShowCellBracket -> False, CellMargins -> {{48, 10}, {5, 7}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, DefaultFormatType -> DefaultInputFormatType, ShowAutoStyles -> True, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Mathematica", FormatType -> InputForm, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", MenuSortingValue -> 1500, MenuCommandKey -> "9", DemonstrationSite`Private`StripStyleOnPaste -> True], Cell[ StyleData["SnapshotOuput", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["DemoTitle"], Deletable -> False, ShowCellBracket -> False, CellMargins -> {{48, 48}, {22, 10}}, CellGroupingRules -> {"SectionGrouping", 20}, StyleMenuListing -> None, FontFamily -> "Verdana", FontSize -> 20, FontWeight -> "Bold", FontColor -> RGBColor[0.597406, 0, 0.0527047], Background -> GrayLevel[1]], Cell[ StyleData["DemoName", "Printout"], CellMargins -> {{24, 8}, {8, 27}}, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, FontSize -> 16]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["DetailsSection"], CellFrame -> {{0, 0}, {1, 0}}, ShowCellBracket -> False, CellMargins -> {{48, 48}, {8, 28}}, CellGroupingRules -> {"SectionGrouping", 25}, CellFrameMargins -> {{48, 48}, {6, 8}}, CellFrameColor -> RGBColor[0.87, 0.87, 0.87], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 12, FontWeight -> "Bold", FontColor -> RGBColor[0.597406, 0, 0.0527047]], Cell[ StyleData["DetailsSection", "Printout"], CellMargins -> {{12, 0}, {0, 16}}, PageBreakBelow -> False, FontSize -> 12]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["DemoSection"], CellFrame -> {{0, 0}, {1, 0}}, ShowCellBracket -> False, CellMargins -> {{48, 48}, {8, 28}}, CellGroupingRules -> {"SectionGrouping", 30}, CellFrameMargins -> {{48, 48}, {6, 8}}, CellFrameColor -> RGBColor[0.87, 0.87, 0.87], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 12, FontWeight -> "Bold", FontColor -> RGBColor[0.597406, 0, 0.0527047]], Cell[ StyleData["DemoSection", "Printout"], CellMargins -> {{12, 0}, {0, 16}}, PageBreakBelow -> False, FontSize -> 12]}, Open]], Cell[ StyleData["ManipulateSection"], CellFrame -> {{0, 0}, {0, 2}}, ShowCellBracket -> False, CellMargins -> {{48, 48}, {10, 30}}, CellGroupingRules -> {"SectionGrouping", 30}, CellFrameMargins -> {{8, 8}, {8, 2}}, CellFrameColor -> RGBColor[0.870588, 0.521569, 0.121569], StyleMenuListing -> None, FontFamily -> "Verdana", FontSize -> 12], Cell[ StyleData["ManipulateCaptionSection"], CellFrame -> {{0, 0}, {0, 2}}, ShowCellBracket -> False, CellMargins -> {{48, 48}, {10, 30}}, CellGroupingRules -> {"SectionGrouping", 30}, CellFrameMargins -> {{8, 8}, {8, 2}}, CellFrameColor -> RGBColor[0.870588, 0.521569, 0.121569], DefaultNewCellStyle -> "ManipulateCaption", StyleMenuListing -> None, FontFamily -> "Verdana", FontSize -> 12, FontColor -> GrayLevel[0.45098]], Cell[ StyleData["ManipulateCaption"], ShowCellBracket -> False, CellMargins -> {{48, 48}, {10, 16}}, StyleMenuListing -> None, FontFamily -> "Verdana", FontSize -> 12, FontColor -> GrayLevel[0], DemonstrationSite`Private`ReturnCreatesNewCell -> True], Cell[ StyleData[ "SeeAlsoSection", StyleDefinitions -> StyleData["DemoSection"]], ShowCellBracket -> False, DefaultNewCellStyle -> "SeeAlso"], Cell[ StyleData["SeeAlso", StyleDefinitions -> StyleData["DemoNotes"]], CellDingbat -> Cell["\[FilledSmallSquare]", FontColor -> RGBColor[0.928786, 0.43122, 0.104662]], ShowCellBracket -> False, FontColor -> GrayLevel[0.45098]], Cell[ StyleData[ "RelatedLinksSection", StyleDefinitions -> StyleData["DemoSection"]], ShowCellBracket -> False, DefaultNewCellStyle -> "RelatedLinks"], Cell[ StyleData[ "RelatedLinks", StyleDefinitions -> StyleData["DemoNotes"], FontColor -> RGBColor[0.928786, 0.43122, 0.104662]], ShowCellBracket -> False, FontColor -> GrayLevel[0.45098]], Cell[ StyleData[ "CategoriesSection", StyleDefinitions -> StyleData["DemoSection"]], ShowCellBracket -> False, DefaultNewCellStyle -> "Categories"], Cell[ StyleData["Categories", StyleDefinitions -> StyleData["DemoNotes"]], ShowCellBracket -> False], Cell[ StyleData[ "AuthorSection", StyleDefinitions -> StyleData["DemoSection"]], ShowCellBracket -> False, CellMargins -> {{48, 48}, {4, 18}}, CellElementSpacings -> {"CellMinHeight" -> 3}, CellFrameMargins -> {{48, 48}, {6, 3}}, DefaultNewCellStyle -> "Author", FontSize -> 1, FontColor -> GrayLevel[1]], Cell[ StyleData[ "Author", StyleDefinitions -> StyleData["DemoNotes"], FontColor -> GrayLevel[0.64]], ShowCellBracket -> False], Cell[ StyleData[ "DetailNotes", StyleDefinitions -> StyleData["DemoNotes"]], ShowCellBracket -> False, FontColor -> GrayLevel[0]], Cell[ StyleData[ "CitationSection", StyleDefinitions -> StyleData["DemoSection"]], ShowCellBracket -> False, CellMargins -> {{48, 48}, {8, 14}}, DefaultNewCellStyle -> "Categories"], Cell[ StyleData["Citations", StyleDefinitions -> StyleData["DemoNotes"]], ShowCellBracket -> False, ParagraphSpacing -> {0, 6}], Cell[ StyleData[ "RevisionSection", StyleDefinitions -> StyleData["DemoSection"]], DefaultNewCellStyle -> "RevisionNotes"], Cell[ StyleData[ "RevisionNotes", StyleDefinitions -> StyleData["DemoNotes"]], ShowCellBracket -> False]}, Closed]], Cell[ CellGroupData[{ Cell[ "Specific Styles", "Section", CellChangeTimes -> {{3.34971724802035*^9, 3.34971724966638*^9}, { 3.35091840608065*^9, 3.35091840781999*^9}, {3.35091845122987*^9, 3.35091845356607*^9}, {3.36230868322317*^9, 3.36230868335672*^9}, { 3.36928857618576*^9, 3.36928857640452*^9}, {3.3737586217185173`*^9, 3.373758622077897*^9}}], Cell[ StyleData["InitializationSection"], CellFrame -> {{0, 0}, {0, 2}}, ShowCellBracket -> False, CellMargins -> {{48, 48}, {10, 30}}, CellGroupingRules -> {"SectionGrouping", 30}, CellFrameMargins -> {{8, 8}, {8, 2}}, CellFrameColor -> RGBColor[0.870588, 0.521569, 0.121569], StyleMenuListing -> None, FontFamily -> "Verdana", FontSize -> 12, FontColor -> GrayLevel[0.45098]], Cell[ CellGroupData[{ Cell[ StyleData["AnchorBar"], ShowCellBracket -> False, CellMargins -> {{48, 44}, {3, 6}}, StyleMenuListing -> None, FontFamily -> "Verdana", FontSize -> 9, FontColor -> GrayLevel[0.5]], Cell[ StyleData["AnchorBar", "Presentation"], FontSize -> 18], Cell[ StyleData["AnchorBar", "SlideShow"], StyleMenuListing -> None], Cell[ StyleData["AnchorBar", "Printout"], FontSize -> 9]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["AnchorLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontColor -> RGBColor[0.5, 0.5, 0.5], ButtonBoxOptions -> { Active -> True, ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookLocate[#2]}]& ), ButtonNote -> ButtonData}], Cell[ StyleData["AnchorLink", "Printout"], FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["GamePadStatus"], ShowCellBracket -> False, CellMargins -> {{48, 48}, {5, 5}}, StyleMenuListing -> None, FontFamily -> "Verdana", FontSize -> 10], Cell[ StyleData["GamePadStatus", "Printout"], CellMargins -> {{24, 0}, {0, 10}}, FontSize -> 9]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["DemoInstruction"], CellMargins -> {{48, 48}, {5, 5}}, CellFrameLabelMargins -> 2, MenuSortingValue -> 800, MenuCommandKey -> "8", StyleMenuListing -> None, FontFamily -> "Verdana", FontSize -> 11, Background -> RGBColor[1, 0.85, 0.5], DemonstrationSite`Private`ReturnCreatesNewCell -> True], Cell[ StyleData["DemoInstruction", "Printout"], CellMargins -> {{24, 0}, {0, 10}}, Hyphenation -> True, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, LineSpacing -> {1., 2, 2.}, FontSize -> 9]}, Open]], Cell[ StyleData[ "ImplementationSection", StyleDefinitions -> StyleData["DemoSection"]], Deletable -> True, DefaultNewCellStyle -> "ImplementationNotes"], Cell[ StyleData[ "ImplementationNotes", StyleDefinitions -> StyleData["DemoNotes"]]], Cell[ StyleData[ "StatusSection", StyleDefinitions -> StyleData["DemoSection"]], DefaultNewCellStyle -> "StatusNotes"], Cell[ StyleData[ "StatusNotes", StyleDefinitions -> StyleData["DemoNotes"]]], Cell[ CellGroupData[{ Cell[ StyleData["SectionGloss"], StyleMenuListing -> None, FontSize -> 0.85 Inherited, FontWeight -> "Plain", FontColor -> GrayLevel[0.6]], Cell[ StyleData["SectionGloss", "Printout"]]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["InlineFormula"], "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, AutoMultiplicationSymbol -> False, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 1.05 Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["InlineFormula", "Printout"], CellMargins -> {{2, 0}, {0, 8}}]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["InlineOutput"], CellHorizontalScrolling -> True, "TwoByteSyntaxCharacterAutoReplacement" -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> None, AutoMultiplicationSymbol -> False, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 1.05 Inherited], Cell[ StyleData["InlineOutput", "Printout"], CellMargins -> {{2, 0}, {0, 8}}]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["InlineMath"], DefaultFormatType -> "DefaultTextFormatType", DefaultInlineFormatType -> "TraditionalForm", LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, AutoMultiplicationSymbol -> False, SingleLetterItalics -> True, SpanMaxSize -> DirectedInfinity[1], StyleMenuListing -> None, FontFamily -> "Times", FontSize -> 1.05 Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["InlineMath", "Printout"], CellMargins -> {{2, 0}, {0, 8}}]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["TableBase"], CellMargins -> {{48, 48}, {4, 4}}, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 11, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}}], Cell[ StyleData["TableBase", "Printout"], CellMargins -> {{2, 0}, {0, 8}}, FontSize -> 9]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData[ "1ColumnTableMod", StyleDefinitions -> StyleData["TableBase"]], GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> { Scaled[0.04], { Scaled[0.966]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.28], Offset[0.126], { Offset[0.77]}, Offset[0.28]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData[ "1ColumnTableMod", "Printout", StyleDefinitions -> StyleData["TableBase", "Printout"]], GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> { Scaled[0.078], { Scaled[0.922]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.28], { Offset[0.56]}, Offset[0.28]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.56]}, Offset[0.2]}, "RowsIndexed" -> {}}}]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData[ "2ColumnTableMod", StyleDefinitions -> StyleData["TableBase"]], GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> { Scaled[0.05], Scaled[0.41], { Scaled[0.565]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.28], Offset[0.14], { Offset[0.77]}, Offset[0.28]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData[ "2ColumnTableMod", "Printout", StyleDefinitions -> StyleData["TableBase", "Printout"]], GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> { Scaled[0.079], Scaled[0.363], { Scaled[0.558]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.28], { Offset[0.56]}, Offset[0.28]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.56]}, Offset[0.2]}, "RowsIndexed" -> {}}}]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData[ "3ColumnTableMod", StyleDefinitions -> StyleData["TableBase"]], GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> { Scaled[0.04], Scaled[0.266], Scaled[0.26], { Scaled[0.44]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.28], Offset[0.14], { Offset[0.77]}, Offset[0.28]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}}], Cell[ StyleData[ "3ColumnTableMod", "Printout", StyleDefinitions -> StyleData["TableBase", "Printout"]], GridBoxOptions -> {GridBoxItemSize -> {"Columns" -> { Scaled[0.08], Scaled[0.25], Scaled[0.25], { Scaled[0.42]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings -> {"Columns" -> { Offset[0.28], { Offset[0.56]}, Offset[0.28]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.56]}, Offset[0.2]}, "RowsIndexed" -> {}}}]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["TableText"], Deletable -> False, StyleMenuListing -> None, FontFamily -> "Verdana", FontSize -> 0.952 Inherited], Cell[ StyleData["TableText", "Printout"], CellMargins -> {{24, 0}, {0, 8}}, Hyphenation -> True, HyphenationOptions -> {"HyphenationCharacter" -> "-"}, LineSpacing -> {1., 2, 2.}]}, Open]], Cell[ StyleData["Continuation"], FontColor -> GrayLevel[1]]}, Closed]]}, Open]]}, Visible -> False, FrontEndVersion -> "10.2 for Microsoft Windows (64-bit) (July 7, 2015)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "ControlSuggestions"->{ Cell[279176, 5892, 258, 7, 70, "ManipulateCaption", CellTags->"ControlSuggestions"], Cell[279437, 5901, 4440, 96, 70, "ManipulateCaption", CellTags->"ControlSuggestions"]}, "Copyright"->{ Cell[314712, 6906, 818, 23, 70, "Text", CellTags->"Copyright"]} } *) (*CellTagsIndex CellTagsIndex->{ {"ControlSuggestions", 341378, 7475}, {"Copyright", 341577, 7480} } *) (*NotebookFileOutline Notebook[{ Cell[1524, 34, 34369, 568, 70, "DemonstrationHeader"], Cell[35896, 604, 67, 0, 70, "DemoTitle"], Cell[35966, 606, 241650, 5250, 70, "Output", CellID->2014383982], Cell[277619, 5858, 180, 3, 70, "ManipulateCaption"], Cell[277802, 5863, 421, 7, 70, "ManipulateCaption", CellID->1376379206], Cell[278226, 5872, 947, 18, 70, "ManipulateCaption", CellID->1162230854], Cell[279176, 5892, 258, 7, 70, "ManipulateCaption", CellTags->"ControlSuggestions"], Cell[279437, 5901, 4440, 96, 70, "ManipulateCaption", CellTags->"ControlSuggestions"], Cell[283880, 5999, 33, 0, 70, "DetailsSection"], Cell[283916, 6001, 296, 5, 70, "DetailNotes", CellID->573449817], Cell[284215, 6008, 581, 15, 70, "DetailNotes", CellID->334319668], Cell[284799, 6025, 261, 7, 70, "DetailNotes", CellID->2037795161], Cell[285063, 6034, 333, 9, 70, "DetailNotes", CellID->1402083566], Cell[285399, 6045, 228, 4, 70, "DetailNotes", CellID->480435231], Cell[285630, 6051, 302, 5, 70, "DetailNotes", CellID->1874515808], Cell[285935, 6058, 436, 11, 70, "DetailNotes", CellID->1632797082], Cell[286374, 6071, 286, 7, 70, "DetailNotes", CellID->2011538808], Cell[286663, 6080, 616, 11, 70, "DetailNotes", CellID->136414697], Cell[287282, 6093, 2314, 78, 70, "DetailNotes", CellID->1356761130], Cell[289599, 6173, 3154, 101, 70, "DetailNotes", CellID->1102948064], Cell[292756, 6276, 2567, 82, 70, "DetailNotes", CellID->169270744], Cell[295326, 6360, 1667, 59, 70, "DetailNotes", CellID->1665045780], Cell[296996, 6421, 1820, 53, 70, "DetailNotes", CellID->565020403], Cell[298819, 6476, 1290, 34, 70, "DetailNotes", CellID->125226187], Cell[300112, 6512, 1991, 56, 70, "DetailNotes", CellID->142550849], Cell[302106, 6570, 628, 15, 70, "DetailNotes", CellID->1407852738], Cell[302737, 6587, 436, 9, 70, "DetailNotes", CellID->806144920], Cell[303176, 6598, 260, 4, 70, "DetailNotes", CellID->346303463], Cell[303439, 6604, 53, 1, 70, "DetailNotes", CellID->403341517], Cell[303495, 6607, 459, 13, 70, "DetailNotes", CellID->1502486287], Cell[303957, 6622, 681, 23, 70, "DetailNotes", CellID->26820536], Cell[304641, 6647, 540, 16, 70, "DetailNotes", CellID->1948666329], Cell[305184, 6665, 460, 12, 70, "DetailNotes", CellID->2109374753], Cell[305647, 6679, 44, 0, 70, "RelatedLinksSection"], Cell[305694, 6681, 576, 17, 70, "RelatedLinks", CellID->1601428995], Cell[306273, 6700, 535, 16, 70, "RelatedLinks", CellID->804571114], Cell[306811, 6718, 594, 17, 70, "RelatedLinks", CellID->1869671486], Cell[307408, 6737, 641, 18, 70, "RelatedLinks", CellID->1587942298], Cell[308052, 6757, 4966, 93, 70, "DemoSourceNotebookSection", CellGroupingRules->{"SectionGrouping", 25}], Cell[313021, 6852, 45, 0, 70, "CitationSection"], Cell[313069, 6854, 587, 18, 70, "Author"], Cell[313659, 6874, 1050, 30, 70, "Citations"], Cell[314712, 6906, 818, 23, 70, "Text", CellTags->"Copyright"] } ] *) (* End of internal cache information *) (* NotebookSignature oRUDAy@Ir6fjvv7XbpRgFsiH *)