(* Content-type: application/vnd.wolfram.cdf.text *) (*** Wolfram CDF File ***) (* http://www.wolfram.com/cdf *) (* CreatedBy='Mathematica 8.0' *) (*************************************************************************) (* *) (* 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. *) (* *) (*************************************************************************) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 835, 17] NotebookDataLength[ 357626, 7720] NotebookOptionsPosition[ 330184, 7120] NotebookOutlinePosition[ 356476, 7681] CellTagsIndexPosition[ 356363, 7675] WindowTitle->Comparison of Food Moisture Sorption Isotherm Equations WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ ButtonBox[ GraphicsBox[RasterBox[CompressedData[" 1:eJztvXmUXldxL8pazzeKUCRHkqVWz3O3utWTutWjWq1u9dz9SdbgSZ7AI1OY 59EGMxgMGI9AgACBJIwmcBNCwnBvgm2mvPduCATWevfmvgD5864L5P3Neaf2 WFW79vlOt2RJtrfXqnW+s3ftGn5Vu2r7bEtuvfXlp2/9P57znOd05fS133vO cy7Ln0/Mdf6vROebOhIlSpToKaaLXecSJUqUKFGiRBeIfmfoYtuRKNHTjX73 RNo/iRKVod8V0MW2LVGii0VF+2Ize2Wj8hIleibQed2X//dCZ5bowtP/lehZ QRc7zxI9/fZ5efldF92/RIkSJUqUKFGiRIkSJUqUKFGiRIkSJXqq6b+v7k90 3qm7Oq0kSoSoTM4kelrR/3MOBHXkf5Si7kSJEiVKlChRokSJEiVKlChRokSJ EiV6RtP/XO3+X4kSJbr49K+JnjH0PwT67yvFhHn/FT1jdLHzNVGiRIkSJUp0 weh3hi62HYkSPd3od/8z7Z9EicrQ7wroYtuWKNHFoqJ9sZm9slF5iRI9E+i8 7svfXjueFdF/IPot+x3QNYgicsrwRuevidEY4f0Pgar5dj5JxnKsgIpjsPF1 fK5Id5HcsQ3q36yeajI2iudm9Z+LndViWH6fPTtpomBcz/1/ZGwSzV0sKlcD fnONp1/ntUoizOPXTlTNjXPNu0JSdTWk/8ht/A+hBv+HIcVn90VERqJEiRIl SpQoUaJEiRIlSpQoUaJEiRKVpYHWjpzas/782Z8/B1o89TNSfNK4mQNZg0pe hxvra2nLicvJ+dpynrYOp1/pa7Xy7LgmZVdOg3adWQPvQ+2d+ViXIsXbAtTm qK8Vnq1ZX3O7ov7mDiUf+PoUtetncxv63W5+txs+64eVp2Uqf5oRGd5+w9OH 7AC92rZ280Rygb/Vyx4AwnrUnMamr7UD4dkWkpFl3weUnW1Er/W93/nncbDr Qf+Ak2vwaDY8bq3FBGxsNfHz9hFb4beKpVnb2k5s7oMYtWI79XPA+dlqCGEP fBZ7I1fpA6ybje5mn1fq6XLMY03tMDa2ej/7Wk0ssZ2t7QH1tbS7ddp3u97k hOWzv838AIqL09nSYXJV+9DX0mH2hd9Dfr3XO9DsZeI95eLd6vMa70ntN35H a9z+bvd7kuWTrR9eVoeJuZGF4tNnawmpJ23GZpQfsMebWrOBnPraOrOe1s6s t7lTxb+3tSE70NqYHWhrVtTX1qpjY0jnI8SrRVOrnTO/Wz2PptbsgJrT8/i3 loHlm3clB8vW7wdatc4DLV7WAXg2NyvqRc9exaefvW4NsqGFPrUs4NXvfl2r 0WlssjqRTLe+hY5rm1udTCv3AFmjZfbmYx3tjVl3S2PO02zmmlWuduXUmcep N6f+Rohbi6kReN+2+jrFahatOW2+VqA89LUF5xSu+TquA1i+zQlbB6E2NHf4 mu1qeIep076eBzU+RoQX2d3cLo+3oHesNzZP+OjeJWudng5qW2Ar9xX700HX OV86sgAnQlhnRHegs0OwLyKXjwcyMU7CWoJHh8zX3BHOcz1FPsfsxX4HceC2 cX6GO8ZMwGNvTUO2Z29ONY3qCe9qjDwbydhey7e3Uf/eS8f3GJnUFpZzzcym Zo4jyl0pD4hfHQw7LkeIvYQjty+Qw/0pkhfLhw5mhxQvwQ++17keHFcxj9uz ECtmO9m7PN8ErMUawuqOVK9idROfF4vsD/Kc7SmOO6+7ol1CzvF9zOsQwV94 kjM890GIL9/nQV3voHJ5DyL285wR/A4w43VCqkOxePB1PHcku7m9fB9JOdAR kcfjjtdJfEKOi/uJ68J5zH7z2sb/PU6SFeSOhDmX0R7KlOqqVIN4TZT6cLDf NX9bQ6uidkNtDW1Ze2OrG7dzbY1tlKcBvxu+RjPeqH97uS2eGvUz2Eu5bdBr XN+yvSjoWw1h30I9jvQy1LdsX9tj+xtei8YUv+mNzp69drzB91Ono5HqqQlp j/HD8e6V5pBfe708i4PGpNHZsRfxUX2Ngc0coz17G0NMCTb03ODisLfR21Qj 6OZnjb0hLt4ndgaJ+ELjgnBBeUJ9oHHfw+Rh392Y09+IbGP4CfnH7d5j7OU2 ybnUyOQ3hj7ifWDjI9nAYoDPfVYOwVTcT2bNXuqzlZH6Vupbl1LfEvWJ519u D7eR+UrkS7km2VAQW3wW5TnH5/leCGyO5TLXX4JaGF48j/g43//8/B/UByFf uZ+8VgQxY5gH+Aj5EeSjZK+wV2L7XopJrDZwuXw8kMnyRYyBkOvE9o5wnusR bNPnNTjX+bNdW2OrObu1krOdf7axcx2mNrSuLZxvbDXnPgGPFuYnj0U0Vh67 y3bty/7Trprssp3wzGlnjXrHBHOXwW87Z3ndGPq9087798uUjBo0ptd73Ugf WkPsQLIvszbsZON4jKyp8fZjwrKJbXbOy7xMydhHbcVrEJ+Xvc/PYZt3eUwc Ng7/mB/7GIYhTpcFviDZ6Onx20f4Ltu1j2Jgbdm1j+piuHsZNq4UH/4uxoE/ XS5S22luorGdnv8yZpfPWR5zn6eXIX8szjRvPQaXobWXReQRP5h/OIccvru8 DThXsf7L3HqbU/uIveEe2udyjNgu5pPfV56Hx2yfk+t928cwxXbsYz4weW49 9R/HCq/1+clyk+cW9oPkiBCHYL/6d4pXJO/RPqF738fX+7BX0669euwPYV6/ w7i19zKEz2XCPg32ALZT2ktYRrB/6B4I/EX4XYbyPYZLaAeyPagvFuN9gZ1h HfW/L8OxjeafnBeXYX94rUXj3keWP7ymWV5sC+5/LKeCceuTe/K9wHKO1zIp 7iz2l+3ka/aFfgh16j+x/cb1kHq0C8fS+LET1x+cx7xO4ncpHgyvCB+Nj7xn vM1UNjlTsJwn9RHn1S62H3GOobjiHA9qHMklCQ/WD3Av5nUN28kx2kX1pHMf 50/nvnTuozHC8tO5L537gnwsfe5Dsney2O30efVsP/elvsXkBTER4pz6FrE3 9S0qP/Wt1LeCfEx9i9UbtidQPtL6IvctuY763+l7RSznuQ60D8iafaEf6XsF 8nFf4OPT6XuF36t2L/HzmYThPqLv93bX5rQv25LT7+3ST/UbxnfVmnHNY3k1 fy15wlrFZ9cQuXT9Fml8l7fBrXNraqm+XbWOj89bmW79Ls+DdXn/+Npaxp/L 2oXX7SO6uZ1+jMrAGHvckN9Y7i60dpe302PHfHR83qYt2M/dzH7mw+8xmTY2 W/Bah7u3i+gnPqKcsDhb25yM2sBuh4eYAzSWzl62lvuJY7GF2LiP+cRyBOne wtZTHjlnCL/dGyjnwvwSfMX5tmufEE8ao2DfRWhLsCcQbrt8HfB7WsrLfSaW sRwI7SV7Ldg7PGZ8r1CMtmB72d73dUXKnXAv/h6zy+0jJH8LqSthPpI6tguv zWss1Fn1jp477TgmxLO7xsveReuFsw35QfOc44VjGub6FsbnxpEOtweEXkDy AuMQ2CDHItxT2A5e5zBvrbC/UV3AvgZ+s3zZ5d+37KJ+hLWI1VZTs7bwMVRb pVzfEmAR2fsk31g8RRJsdBiw34F8oa5hfMjewv0ijFuAM89N3m9jtmA8CB+v P8hW0l94PcByad/Yspva5PYxz9lI/4z1ELx+Czlnof0m5TnKS44b7/NbmE20 Ltp+QTFI5z4hD62v6dyH9pS3K537aNzDdXzv4ljy/BJ8Tec+kptBTJ4W5z4p X/gcjwHfd8+2cx/HCu8dinnqWzymvK7g/YvzndqR+paQn6lvpb61O/Wt0B5O tR5zsu+ebX2L4pO+Vwg5I+FbZKPDgP0O5At1LX2vCHM20j9jPQSvf6q/V7h9 HmDDc1qIhdH1+1fUadrDnpxgfE8tmq8tXLeVr3XP2nAcj11RhXcP1lGrbULr tlh5AX+trCdCWyV7YtgE/gh47EEyyZy2a4vzRaA98bmtnE9aj/DYavRv5b4Q HPn6feypdW3dg36L2NY6PRhP/7veYRPEG9ticm9rgY9b91DbojhI2EXiujUa TxaTPYJM4X0rtyu6dyIxlX7jp+g3wxzp9DmJ1+4TZKBxw7cF+8xjs4fjK8UL 8ezheSzsNSZjq2RbmT0u1ZGSe1vjVcvWc33M192GrI3576270XiM7NpqubyH 4VyQA1Vr0R5MOg5bRcxqKX8E12o1MpBN+ksJWdVqNHrfSmperVzf8VwkvlvN fLAejcl1no2XwYlhFa9HLE8LbCN1Xqo7ezxWkpxoPZHyAssJ9rMgS/JBWLeV 68djG80ZbntOWyLxidpk5zlmEh+uuc5m0yeDHhzBKCI3GqciTNK5L24/zuWi dZs+9xm7C7EvYWeJ+JY793GqZU8mA/dDtu78nfuKc3hrQT2rGuPzcu6T82Zr TB6WWbh3In5J/bbA7+rnPh7rSA4Yvi3s3BSeD2oL8SV5IdXLgj4R4lx+Xz/1 576Izah2FvXTarkh2iXoKMz7WC3ag+kSOPdxns3glPpW6lupbyGbUt8Kcjv1 rbjNqW+FuAf5m75XxHxJ3yvoXPpesTE8ZX5ak7ai9+furc+pwTztb03byHs9 eq8X1knvEmFZIXGdso6Y3nDNNvaU14dz2wQ/t4k6/Tuf34awfO7eHOs9+fie ugLKdaDf8Nxm6LlsnPLXF8vei3gcHjb2dZREXfVVxuqoHU5uvZcp6XI8BqM9 1jaE2V4sn/q6LWpXvcHG84W80to6Yvc2h1Odeec4USx47Krp24bW0xjLcYjn AdeD/ce60LvzI4YlliPFmT5l++M4b2P2b6sqp5rvPOdxDsap2p6u/hvnBPaX +r4V0R/dPJnTVNbZ26b+fea5pi9sZTEq2tfb9oSxiOWQGzc5XVzfimu65dnm 6ltMBiZprMHsr7j+4tjwca7H+7ktylcvrMF2cayK+pusn2MWzz+qn/sQsyNc Xy22/l3uwXTtNlGXbHfxXsM+UJu2BZiFvDQ28XEf7zCuNG9pr+fx3sZkUxnV crIIg5jtZdeH4+ViIdWvdO7jc+f/3Fdub/AYhjkR5kyxTznV8JwLa0txnlXL GaneV8sVAffg3BfL7XiMqI94X8fqfDyPw3pQjE+8HhTVNSl3yuyZ2N7m/vMa Ktsq48PrHK8B1eyP48x74Laqcqr5Xm2NTOd+7ov5G9uTsRrVwKhIBq4L1XNI OsNc2ue+ItxkDOXaFvNr8/mU+pasP/Wt1LfK7ZnY3ub+Y118L0u2xHKFx5k+ U9/i/larv7xGFdV62e5nbt8qE5sYng1MRvpeEcYlfa/gfeSZ9b1C0hfuixBr v/YPahqzP9jXmG3fZ57mXVENeq8R3vex3zUNfoyM+7Ht+FnD5OwL+USKrBHn aqjO7ZwH2xDzzWIkyOb4Ub4GTTWM8hhsZ+/w3GYIj29j9AcQwxo0htYHT0Pb 9/rndm6L468P1lt7iA1ct+BH/F3r2I70KHs4Tua3tXW7lbWX2SbZEMGU8Fa1 k9poaTvi8zjWk/Xb9vqnw6tIlzAX5Ab3xflTvzm5eym/xXcb0sPz0f1mcYjJ Btv42m0YJ44LztW9DaL/nuqNDibHxonjofKr3tho96edQ3XNjsdqDOjN57cb CuxEv7W/9SZGvg8D/fm9lewfPnF19q9fuzmbn+3X96xqb9Cnw49jLlKYC9sR ERvtfov6yWq0UEur1WPST3idl+qoVI95D4rUdaqzAb03BPzbS9vQIPA2oD7S kHFfRful3mZ8wv2oyC7ek/2zweSjYIegU+zX1eJbE85tr4mMS3qFuWhe1aAY ur3LfbZ8DR7rWL5Wyc+orxyzGtnmELOGUDfLOfF3ydyJxjd6bmkI1vFzVzr3 FeEnYBPBT+QTbOS1gsdmu5XDaDveCzG7I/m7neslmDVE1/P9FY1bUS21+VEj 7KdI3ou5IuTddkZR2aXtDPOe11+y1yM1rGwNkvzhmMg1SupNJeRKODM9Qa0o ygVRdlhzgt4r6ZJizPOZYy5hFcw3ONlBDatpLHnuw32/IKdqQv6NxAdjEMv9 cB83iPIKzzpVxi7auc/5nPpWYb4V1X2MUayec2yL7JPiXxPGJvWt1LfIvovE LPWtCFbBfOpbT5u+xXVGbJTzKH2viOkU87NafIVanb5XyP5fct8rBF8K44D8 uLy2OduR0+V1TdmOOnjq9x21Tf43jNfqOftU82Zuh3uCDL9OyaxF8+bdzdei Zx16Wl6sF81r24weN250K3lNRh9da9fYdTuQHZcjvZfXItnIFrxmB5K3o45i o/Rz2teUbbfPHHs93pCTjs/lMGZitcPs9e3mucPsgx2OB/2uxb8bjbxQtyP1 rvVrfjvu123fp+e07AZ3RgUCW3bYd7u/jF6rYzvx2cxzGwBj8355Pq8xa1Rj l9f68R213jaNm6/L3l+DibE5GDeYKl9qGxxmNg7bjf9Wl8ekyWPiYkfHNZYN zk+rj8TP2qB4mhxZHDBezl8nr9G973Cyfcx3IJ4daA2OzXbsB/EZ+4Zzz2Bl 412D9Nl47/M2EvtqG6nPTi4eRzpqqR/OZjfW5Ox3+Dq8cRytfRjbRp1bZv7y fSa/bG7ZXHO8NudYLtR6vssxL4mXtQ+Nob2zw+4f5D/cZX30bSv5eL0er0EY 231m+H3+NHrf7b6ytqJ9vB3FGu8954f5fbmt2eapa3QTrZG4/uF6jOqlr8vN pn76+r0Dk+0BtsfU+vp9udFteXa4et3k63fQc1DPqvO1n/cBbreT43Q1o37S lO3g9hv7rL2XIzttPyQ9DNvnMEZrsd2s35C+hnHDvQ7h42TF+hXr434MY0Ux wNi7OLE+h3OD9sGmyDg+F7D+XtuE/Pd54GMf+nA5savJYyngu8ONMT0ohtQv li+47+P+j3LeY8bk1DLbhRz2c+gM5faXnBdu/9VRu3A+O78w8VgQ/9K575zO fWzfER9rUT0z8v4Q711UR7F/l+PfOO583wo1jsa8ya9lscIx97WY5jzhqWX+ 1zKcSFzo/OUBjnSP+3g1IczRXiaxbCKxCveN7UXeHpzjWBfNtch+I/sBx7uJ 2ujqA8s7Vh9I/gh9dkcdwwmvZ3WB1DorC+9bYQ2tAz7udj/x+JI4orz1e7sp sM/zoDMUqSkoZ2pR7rEa4/FhvvD8cn3Dn238PuD53oRiifZfLfMR41/r9fD6 hs8CtFeEMd+B8Q0wQ3aT/OFrmohf+BzG9eNef0me+3BN4fWrFuPmsU99K/Wt 1LdwrtG9nvoWzefUt5qJPalvoRijvNpQ33I+NAW+hT2H1qP0vYLFq47iResz xopikL5XsHxB9Yn0rUvxe4WNrdB7SL3j+wDl2K6G1mxnfUu2s8GQ+g1jrfrZ gN7tWL0eV2sJtfjfTiZdE/K2UBn1wtqcdrlxQRdZS+d3xfxh63bVMznEFjzW Qp9OJuCBMMzpDxU162edPvuppyX+nsclfDayJ+dv8nJq6fxOQ4GuekxN4W8i qwnpaUTvjcxWq0+Q5343UTzM750Yp+DZ4m0KMGuqjklAdq7J2Nzk5CqsnI1N FKc65APzW8I+jHMTfa9FscF6q/nFcahtZvY0UYrFAOeBtZ344OO8k8gssLG2 GfFirBkWHI+oPwWYcj3muTPIb5NDdT6ndrqY+vxSezZfu8v+JqTHfT7q/PV5 i/CtxXh6O+2dEaa/eO9xRfau7XJ3l4bxbqR5ymrFTikX65pYznp/dxosoC6q 2ghjDc2oluPaK9TooI6jsXqhthI+qSdIeqV1Qq+pR73BvbcwedyfiJ31kt5W hkukfwR9r8gv2ycMbz23NdJzne1CX471qsDeiB6MJ7J/F9dN9MbkFOmV47wr tg7Fk/BwjIO4x/IBYyXkQ+CvPUNQ27Atu8jZycxh/np0BonlN8eHxJ37x3ns OaxaPFBOOzvTue/8nfsimPBYBvszkrsF+yWoBWw/7MI5Wl9NpxQ/plfEv4Xp i8WoRZCF95Hku5y38n6JYCLFg9QTHx/ZDp6/vJ7I2MtraZ5G612RX9F48njx Gs9jKdgeiW/Y+yI21rf6f/chWDMsomcH7k8BpmKd4zUp1kN4jnj/Y3s4GK+P 1Nto/xXeybpIbHieBuMClkQOxWAXeu5CPJfWuS/1rdS3BJ9iMUt9qzgvU98q tjH1rdS3ovFqzcr3LWmdgJ1Zn75XtBbkXUEN5nOsx6bvFS0CDk+H7xUx+SVi YnJyd2NbdkVTe07+uRuRfs/HG9vpswmv0zyWH3j0E8kxevRaT1iWW+9ktpGx 3U5Pe2ifW298aLR2tBvdns/aJfntdDVS/6xPnqc9uwLZ4/SA7AZYn+dDTrtz vHebXNqtvhdrgm/H9vu4/Vau3t23dERqrCWbW60osvP2W7SXp2sOvGu9+JkT xLvB2qRpF6LdJsd2GxlKR/48de312anrbiB27bL6kU9Wr7arFcmlOjUeZrxR 26SwUpi1uXHbu3a7f4dpNhh6m70tdFzb0OyefYPd2cr8way5s8PYjW23NrY6 //Fv/8zH670PPJ7qt4tjS65vKOvP9XrbMEbNQRw8LtQ2Xbd0fEEm+EFyxsa8 HsehmdhL49xKfTI5stPYNTXZp/S0dBis6hDGxhZnn80B5qO7/6lrQZho2Ydz crnr1rcw25sZNlTnTqOruasjW1kYyg5P9ZFYuRg1tpjcavP5ZXLN5p6ea/N8 Cp82t2Y3WdNCfztc/b8XWf1gF8Sf7pkm/axryj733uOKYGynGm9yOMP7YRMH h1Md3WsWK7C3f2h/ru9g1prnd2yP+/3W5qnR1kpUyxp9Ld3N6yquiayWy7U4 /92I17SRmkx7AB3bLc5bG2N1mMm3/qEeckVA3n5iVyNds9uMEd+EniD7IPSQ xjbWm7gM60vYn1w/bMSyeGxYvFivt/30Ct7rXA+kMsjT6UXxcHkUkUcwbs84 Xhh/3p89fmHvd364fMM9nPqOzyOux9tzSmM71Yl4dpMYeDkeE2oDz0Nqrz2j hOcLGluUbwRvFl/sCzpH7Q7s4rmdzn3n7dzHc4T4Le9Z4k8j9X23ZAvZFyhm jWGdDn0Q7AiwFGoK8Veqc0hGo7UlVgNoX/DxoHVI573Jucb2jMfb5S/pAcLe Y7kT4BbNR17vuK7Qd88n1G+EB96nvJ6EexTXNrYHcG40SnZIcW6nPgmxJ/nS SP0g+xTtdVpzhF5H7GNxEuqeZJeVSbHANU/qfaxO4vmgXto6GubQFYHtcl2K zYf9gPJc0cRtYfucxIGu4XVWrqNWjid/1kP74yKf+1LfSn0r9a3Ut8I4p75F 62fqW5dS3+J60/eKcK+KNTp9r6Bxe5Z+r8C2455H90hYG/Bzb0tHTp3uWaN+ d6KxDjcWzDV3mKeds/wdwVqqB1NsLr6mRpQh8XHdnC+2xuqg62uiOs3vHI89 ze05mWeTpbbszNmbsiz7XfaOd9+bx7HFUwNQa3Zs9biaf+CRR+mdT32rWvO/ f/2/1TwQ/NZyWo2cVkUw9v/+278pnjNnbzTjbUhvmx5ralXzmu8m9U72T86z J6cHHn3U6bT0wCMfVs+3G/17jB9//93vKrK2WCJ6VO62Olz+/ruPqzUWI6C9 7nf+bPTj8P8Skuhz7zuRveq2I1lrV4fDdI/FJMdveqov++6fXEPWwPu1V456 PHJaWxxWc+uLBw1GHgvQAWTxtM+1nBfWrKk1Wndrd0f2gdctyvog1vm6PYpa 1RzYvqexjdjyqttm1JyN7XX5WtDPff/Y3avG7zYjV6+/4+yk81nbxvxQmOo8 wP7Aun/63PUM3+PZXz98Wq9rQDmbP6cP92Vfz+e0HzNOlvXL5UHO/6pbjxDZ 8NvztJgYHDQxGA6w9jHQ8YW1PK4g8+4/OmZyrM3l1V7ze68ba89efdtRtWav yzlPe9EaTK82ccGy7dPmS2t3Zx7/pTD+J0bp/Vr+BGyBrmhoVmTnb79uMvtv QRxOKLy1/35/QV5xHD5295qy4woTY7CvbX9X9rG3r2lZ951Q9Qn8tjVrb06u 5jV3CvWzQ6iDaK45rIVyLS/qAbjuSjXY66e9qBONS7WZ2oh1eDtDG2qkdc1a dwwbuZeGPYu8N3eg/snxlX2xGFBbOtF6jNNm+m3MP459KKtGHKO2aZ9p3ih7 Ue4FedaMzyESRliH7FONO7NUO4dIZ4fY2aMoXgU4N/Nc53upWD7HoQZh4/ND ym8BF+F8lM59fD/G8kLOHblG8D3fyeKNsS2RQyzu8bwpwr9anZJrsM8zwb8g r4rwYjnJ8Khp8fm8l2PWLNkq5UssH4Wa0SxhUZTLMdx9rH2c8J6X8jK+J0mO Nku2hzWBxitWG4v2B/rdzPVUo1BWvDbLdUnKzRrBNylW1Gdqm3SGCM4PzdX2 npBXwXlCim9EX5RXii19j9Wa8CzRoXpgWLc7L4FzX+pb5fclxST1LQnzEL/U t+I+S7H2cfI8qW8V5EBBbqa+Fb4/M/pWJ/sd5k76XpG+V0h7qbi2PHu+V8Sw cbWsWbATjdW2dXtq78qfXXTMjrd3mznz21I+X+fGhLVt3WitHevK12AZSG6b l+vG27qFp9XNeNu7Qz3q2WX86KI62mW5IS7cNqO7Hels7cz2AbWZZ6uvVffc +151n/PffvzjbG9Tax6DNve9fG9jW3bPu9F8ox6raWx14/e8571ZV/9BRfe8 5143ButrcrrqBn1P9tCjH8muzn939Q/r79Q5Kd5cP3yr3gffq3O6xvADb435 hq33pf6mDbLtOtAJ9i6uHVf2Yd3aj3Zzj/W4eq9paXd0taTH1IS/f/xxRfB7 X2tO8MzzUhFgZ/HL+eH7+wffsJRVlkeyytJItp7T2SvHsg++fsndYQwP95pv 89qug/k7jMNdy8x0v8L94Eiv+p4P4+093Qo7WLO+OKLkVJaGtZ2K2tTz8/ed UITHwHewwd672Hha2XeenVLvwyM92cfN/cHM9KDDCwjG4D5lr8FcU1v26tv1 fQm8t+/vVvaDfqsHbADfv/7IaTVn72LgOTM9oLHKcQH7Onu6nD/Wj30tKA7N Ok5gm113UOHYqp4fNHcysE7lrc3Z3AaFbW4DYDc8fEDbb/3KfbBxsP7APVD7 /i5Fduw1tx0xMWhzMYCn88ngYm2HMfARdL/9pcfUbxgDnO68/rAbtzlWo/Yh yiuTY6+5Xd9j1bTq+rrPPN27GXN52YrWAH7NPo/1U2Ps4p/bUpPbBTlp749m Dg+4vb3X3ivCnZK5N95j7ixVHHLcYW2NwmVY4az8t/dPCC+I2fDIAaX/7Mlx pf8FoN/YBnv+429fV+NnT41ns0eGXK2qbe3Kn13qvRbXZEN1pi7W4VqI+0S7 qa2u/tI6T/pFW+QZ/O4Sekak9uP6G+tfUTm4D1k/8zGhD9WRum94kb0LlZOK xo7OZd0HR53ssZlj2Znrb8q6h0adjIXKlQ4bGAceLAfbA/8dwP6hUacbZIMO i5XiN/Z0Dx1S/73A2NFjxFbQp3Rg+QgvWGN5wJ5aZ+dJZ5te53GDNYrXxAp0 gn7ba7Vdmnf/QWvXnMKgrl3Pdx885OzQmGhMQefYzBzBdzx/Vzz2zNHerfSD XJj3+g1GDlMtf7/hHVNyTjL89O8wFlcaXEeR7i5nr8XZ7g14937zeHbnPhzT PiPddfzM1E5/W9keC3amCvZPl5HZRdYH+Z7OfZHawHEJ4xLUnQg+ZJ7UtRhW tL64GoxrsWBHneGpE+Lt6zjHrZvoiNqD4yTOdwW6CmPbztcw2VKeMx/CXOgq 8AXbgfGgOsk7t4fnIelTsu66dpR7PJdE6vJ71+0vipuLr8OC4Sj0bbIX2pk/ QZ6yXJX2MPO7jmOEc0Baa2uUs0vIoyLsi3I20CXFFGGF9RJ/fF6SPSXVA26j 4ed7NbCD7yuSO1hnDAuBGG9dINufY4K9xOJ2Mc59qW+lvsXrSOpbHI/Ut1Lf Qjypb4n5k75XYL1dLj5hbnvbeezqSOyEekdiwPcty2e+h4OcwrZG5lkcw/3G YyX1SlYHXa/F2KFcae8m79yOOo65w5L2kTpio1SrqN11kr28vwSxEPzE5wi+ h4J6xGtxGLun4nsFxZbncFHd8PIaOno0dQLt108yhsbVc3/I2ylQbFxax/VL /NF3PF40x+3b7/V2lNETk+2pPpdZ39Gd1dve7WpmZ/YPjz/u/kxT9+CwukvY Z+6V9jW1Z1/7q7/28wPDbg7+fBXMqfcWT5/58z9Xc/q7fEf2znvfp9bWtnYE BOPvfO/70Fhnds2Nz1Pj8FTfsNV3bPPM5f2DuWOy8rX+tmx8ZlbLu/e9yB59 JwVrsA6t52at54abc7lIj8EEqK4VcrYTnWu7POV8MA/f6197x6y3VcnSuuC7 PMzf//pl9b6vWdt8/xuW1Lf7zt7uAL/O3v16fYuWcWJF3wnA0+kwWHz+visV WV67zq45vjSi9A2P9Om7mduPOlysLY//yTW5PWBfu5HRbnw6GsQLxmDOvnfl tvo4dDjZ158aV3yzM0N+7e10LY6F80PFoEPHweBodTodCC+w3d5/WTuOLxvf 8yfwW10w5zHQsh7/5DXqHkWvbXe5D3iAbC5Tx6Cd+KBtP+HGLSbcz3e8bF7F vM70EppL/gm5BLpU7rWZPIOne++iMvAaMm+wzHWPHOoPYmp9AwwgH3EOunvF Zl8LHNYkXztUvlpZNv9IPNG+6OrrcXsMbKvLx+3+sf5AjarPe4GuWZrK1rmg Lkr1M+ghG6nXTJ7YK6TeFNEt2sH6kCQ36gPV+bFPfjr7xje/pZ6/+c1vs6vz mgpzr3zdm9T4Bx58OHvy+z/IekfGlDz4bWUB7wcefMi9q7mcp3d4LPvJv/ws +8ADeq2SmY9ffYPAnz/vftd7si98+TE1Bzpf+fo3qfHbXvQS9X51Xoe5bqBv /J22G2z85a9+ZWyHdX+k5qwvet1+5YOy60Fr181qHN6tjbJdDxO7QOfyiVNq 7cTsQgb/KHzyOeAHsviCDGsnyNBx0TaBXOBx+h2mDzsfsc02Rhw/ha1btx/F Yn+2fPyUWofXKJz/zvqzP7fx3dRGkx8Yb23jze7swWMBpDHpUZhADpTK4Vhe S+c6cY+kc9/G9ZaJRQQPrL9aDKLxKGNTzL4CW7m9GCOFncW7hA0dRTJj+CMb o9hFancR1tzmwt5kfJV4i/RLeR7k+AZiF9Mr5nVRvGP2ST17k/ZxndXqQ7U6 EYxttu5E8qSoNpZ532gsNxTnKrxSjGLnl9JYXSLnvtS35PHUt4ptTX3L+yrx pr5VTmfqW+cQ5yq8z+S+9TT6XlGMS0+op9p+6eiR7XLjJXEjOJeoo9H44XrP bdtgPQ34Ir25Wg50FOT1ZkjsrzE9HM8YvpEa1lGUWxGbSu9V3t/L9Ge2h/Pf zd0Hzhs1ieO9m14vy7tQVM1uNt/VmzUp6skaO4FM/OGusL1L3eX857/+unre +ZKXZnWtHZ5aOsz8X7t5+FY9eXRO4O9U9IJ8DOYmjx7L6ts6s3e9V99jwXf1 evVNXj+BYBzm69u6FIE91930fDV+3c3PV++atK3AA7b+0z//2MmoN3rrzL2Y ktfqddg7Ka3DjoMefV8G+uqJnu6c/4nsH554Ims050zArNHkMoxhgu/wr7tz DtnapeRZnz70hmV1f4Ht/ZtHzqhxi1k9JmQjPK9c0X8OBp5qDMn+wvuvVGTf LV25csisOaRkvOjGafW+v68nf+9AOjqze14+r+4yvE5/N8flvs7cl3AZnG48 PaH4jh0dcn74tV3OD4uX9QPH2sbbrutWttN4f+G+KxVh7LjvmFSswK+cd9Tc 7dx4asKtt7G44ZS2f3S0X5RZ1ybFAOui+IAv97x8QeVBQ0d3kEOa9Pjr81wC XcBnee1vTHYN/HZrTP5S6spe7OLfi+Jp4v8yE3+UgxZXu7e7D+g8f+ENh8l+ l3IWdAAv6Gxg+4rbBU/gff2ds85/2GdNeZ0CajS1ayO1ejP1uSm6rleQWcaW 3sjvjcqJ2Siv5fb/9F9+5n5/8bGvZNfmtQ7Wfu8HPxTX4/Frct77H3rEybVz 8Pe2vvoNb1a/Dx9byv72m99Sv0H2/Q8+Isqy1D864cZBtrbH8zdFbNe8zzO/ Hw7Wxe3qFfUU2YUJZAJuWq7GDfNxfFdPngl0YP3XIkzt+yc+9aciBliGX9cb 8aE3u+MlL1N2VsuBajaG8rXOT3zq00o+YAvzgBnMbWyv8bztFfP2fNGz+txX Go9zwbL8uvODXczHMtj0luQN7Y3Zvtlafu6x3oysjft97nZtNGdD/gux58rm aHVb4n3/fGD61OXb+fKlDD+Xe/5i/tSd+1LfOj95tDm/Ut8qH//Ut86HXalv nc9Yp751rvEpG/en9/eKjcdEllUaz65zi125mlO9VmzU12LejdXNc6UyGJTL 0/NFof84hzei73zY1tbbn7XnBM9WQ229A+rd0wB7RqinYM6sbQ3G+wK57SXk tgvrYjrjtsnrW3skOwYK/WvdD+v68ueBrGV/b9YC8e3qyWl/dv3zblV3OS98 6cuyf/vFv2Wf/YvPZQ3tnYrgm/RZc6e0euJk9utf/zqf/ws1d9bcAZ01d02N ljq61Jidg/d3v+8+9a6/U1OCcZiH79dNnZquf94tahyeTeabdnMnntfy/+rr X1c6MHl5Xe5+4LtPPJ7TE0pfU2e3ktGcP60ceFrZTV2agB+oubtH5X5rTi15 zQPsWmwPAwzzefgO/4YXzOm1Srb9Fq99fPFNRxRPb/8B7Xe7vid64I0r2cnV 0ZzGslNro/r3mqbx8QGDSXf+Pqb4T62POfubjPwvvv9KRfbd6rRr4NmI7jkc 9u0+BnRO343ou4U5J7PJ2EJ42z0/6LnpzKSafyfc13z++uwbj5whscZrm2AM xfSL7z+pSMegx2EJdGDggJL3N4+eyXVMOYxOroyq+0DwX8Xb5B/Mad9HtR5E /s4E8eW46/WdJm+6EH6j2r9ViifGysYA64FYAy/E/g253xBrWP/OVy6anNL3 9DafWlzN7clz6Zji1XvUUKehHBf3jub9mv2ELI6QnzCPcyeIi4qn9t/7pHEF jCx2Omdxvo6pp81vyFOfr3RfNTH7gPT+Oeb2msIjr1Wt+/t03VK1K1ZTB8Tx sJbjWlutNpehgbwGDwiyq9fwcn0q3tdaC+Rzv7//wx863g89/Gh2Nq/38P7L X/27egf60lf+MnvBS1/O+PsVL8xruQNuzsnpQTp6Bgh/m+MfyGYWl5UOeP+7 b307q5y+mspxtv5IybR9Hmz6k09/RvHBWs07EKyDOxUsz2LwfTP+QD5+veXv 0fYCz9HFFdEujOVPf/Yz9Vtj9Irsnnvfp2yy+q0ObhfGEY8TjHr8OksQFxtX KRbtFtsf/BDZOhDEBZ8PYrbAeLtgexuKNSfA6bVveovCCrAZGp/K5PNHbK8K cz1h3qdzH9vXmzj3wZ6kPlGcid9ITqutqZLsoD5Vt704NnL9tvLaC/XhuYGC 94I4VqH2AEeEQU/IizFtZe98X+oeIuVBMY54b/AeFORyD4uj9Jv0xD5qJ/c9 4A9zsb2nP56XPQW9uWzN4LLFvVhCtvO/L863gT0qyu+R4hKrZUUy+P4t8rUI Y4Enlh/IPlnegCyjNMX3fXGu2bELfe5LfasoR8QcS32rCqapb4m5nPpWXHbq W/GcYPalvuX1Ph2+V5yTLURufN+ItbFUX5ZrR9jnBwpj19pDZfBcbO/Fdczj FMSvKpZCPyzVlzC/lNPl64D9vtDWE+MfEPpLnNrJ+pJnKQmXDX2v6C/sC5iP 5roe7+wbzGkI0WBI/UOMR+ItMx6Rb8f77RONkTUxGZyXyTPvHZK8fkkHGwM5 lkRbBrKOA7n8A7qO6V59QN1ptXYfyO697wPqLmfg0Fj2Z5/7nLrLajL3DECP fvSj6v6qqaNL3evo+S53B3TDzbeoexu4F7J0g7mHgid8p773vverd8XX1ZO1 5GOaetQ4zLeo8V71Z8dueP5tev3zb81t7FF3SGCrfvYo3he//BXZ47k99u87 xKTl7TcyexQfkH23BPKtHnhvNfdVQI8/+aQifVY4oHDT2PUp/Bzt139f3xtf eIzYqO3sVXLPrOu/Y+/M+pjBSt99FdEbX3DMYeLXjzuZinIdX/zASUV+3Ooc Q2v2K3nw7v33+IRzPcgGc69g5HLe/sH+7BuPntH/H7DPX69s+eQ9FcUHc1gm X2txAvpSvg6IxFvlqPZp6dghJRd0cKzgvqXZ3HVCvp02eJ3OMWgh+YbuTHJe j9GYmnN3RZ371Vo8h3mbWR75GOh3sNXa+cQnr1VzD75pNXvp846qfFHUg+mA f+Y+Qy7BWp1PB1Be9aK9APj0OnrjC+fZGsrrZfa4PRSLC/hn7xUtJhaPIrL5 eWZd/1m2M5UJZMuB0HZ4z/3V+2de+Q4YtPf4Xt4BlNeuDqHGdgV1saAO9+M5 qX6zmm35cX/p92s7iIxYP5B0cPvQez/WPyT0hCJbZb3/8rOfu/cv/+VXsxtv uU29f/Pb33E8n/zTz5rxIXWXNDJ1RMl80cteoeasjVYW/HnX17/5ber37NKq kgvzIMPydzjdQ9mDj3xYyeJ+w7i1x8vneOrfnteuu93JApu1Xffldr01sMvr H8xGJqcdvx5/ZTR2IEPh1K/xAppdWlO6tZ8hvrDG2WTiAnpuANv7MUY8VkPE F/sb7IU5FYvPfNbJVHr76XrwRftPc8zjOmhsXAtsB5s8RkeI/XbtiauuNTYd UXIs1vKZB59zhLOMeLaR3tO5b1PnvsBerq+objEb+ofo7/6Y3yy+yLYOETNP HWXjR2pdEeZFsY2tYz5H/eTjMRyknC6aL7N2kO3LAv5IDhTajn3ul/iq5E21 /VQG//6IbUVY91dby/OozL7R1EX2TlG8ByP6i+rURmrTRvOlTDxwbZD2T1xn l6Crq5+vYTKD3I3EgeBJxy/OuY/Li+mtgnvqW6lvVd2LsdjG1jGfU9+qYvMG 9mthLLjdRfUlglfqW5uMB64N0v6J63x29a0YRpIdJfIvyDmv93x8ryiXM2zP 9Usyi9aGPsl7ZKP5Xi3Pq/m8kb1SYGeQO2WwpPHscDks2Vsyh/q9zK6gxpXF rWxOsnysinNEXvC9okRekjWhf/sHh3M6qJ8DiAZjdJD+Hjho1hwM10myBiQ5 gg6Qh+1y4+iZU7f53T0gyTwY2juI7Cz0M/S1e5DZ4eTkcwNDijTGA1knfBfu 1f8d1uNPPpH9809+krV192Zveuvb1L3OzPyi++7/43/+5+yvvv43+e/u7N77 7nPzx0+dUb9vvOUW/W28qyeX0aPk3HSLvh86cebq/P1A9t7367sy9Z0aqNtQ /hvGYR5+t/f05nQgu/kWfY8Fz/b9fflYn7a3p0/Nu+d+TW37ezXlur28Xqfv 8SeeVPdYeq1Zl+u6+VajJ3+2GbkdPfrb+RNPPqmoE+5Tc7wUdgc8fpY6Dui/ m+5NL5o3dlnb7LM3u6oyqXiuOj5pbOpV9xtveuExZXOrsR3o8NSw4r3l2mm1 ti238+oT+l4Ans7//frew97/WF3t5i7kquPmLiF/wvubzD0H9t/iAbb/+PM3 EHycT/stv+f1cnqzh968lv1TvnZlYVT7YWOM1rQpXb3UBuOD9+OU86PD3F9A fno+b0cbirn1X+FnxqzvV1UmHK4275RfcGeS/16ZHyUYaZ5eg5+OGfDgd3g6 nHo0js4Gg+sTn7o2+9sPX5UNDg+4nFB5daAvzyeaPy6f1Hi/yqc3G4w1JqeM fP0E26cPj7g90ZE/O3N684sWDLY+h+0TcPRxQ3vH/IY8dPE3GHuf9N3T4amD xv9xt9f0HdoBdT8Hc8rf/H16asTk8BFnY4e1t7fPUL97B17wGXzvVKTPfEDd /UOmfqF6N8Bq78BBP0bm9bN74GDYPwZo3aXyI/0Eyw5qNB8X+gOv0a4PCf0p 1qMkGhD6lRn79Gf/LPvWt7+Tffozf5b99re/zW6+7Q6l/yWveFX2re98R89/ 57/oHpXTD370j9ljX/1a9tCHP5L97Oc/V7+B57G//KqSAT1tdHpGzQEP8N98 6x1qLciGcc3/NcUP4yevPqv4gP+xr35V8c+vrhtdXzU2DSv7YC3QTfkY8MNv qwd45lcrzkZYB33Pzo1OH6V2Gbn2/aFH9RN8J3Y9+hFkh8+lN771ruzd73u/ +w2ybbzU75wX5r/17f+i7IR7LhuvmL3gO8Zo9PCMWg82KN8Bs0EvQ47F1xAf zXuLM8gEm2Fc2ZjHGNaoWBsff4Pw/sGPfqTyhGDE9hLwAcbgwxuUbHTm4ecb t/fCfdId5GrRfiuzD9K5Lzj3Id5uwe5uws98M9QtxpbjwH4jP7qDnED2DeCa y9azuAU4YruxHyIf7wsHkQ/IxiAnYnW+SmxITxJ40Hh3LL8BG4I7taWb24X3 mvEtwN7xF+T4APsd2ycOOxsf5BOOG48Pk+1zkPVvbkNRn5V84jJ538d7QIp3 2X0Y2FWAubS/uf1oL3UTX4X1OW8P9y9WQ0itYj5H685BH0t2num2dQfvLzFf sD6p7g3TeZZfsZ5yUc59qW8Jfqa+RdanvpX6VnTvp75leVPfuoB962n2vSKK P6vp4b9XSjFEeznWlyW/GNZ0L8h1uXuQ2hucFQzFxrkvgX+BzTj/CuoF6SUH yXpS/4rswjUS9zqpLsTyS8orvo+lmAzaenuQ1habIzwX2V7ye5/HUN6jcl4h PYX9Vsqf4ezAwUOahg/536VpJPKbyutV76PheqazN6pHWLthu0eE9xEmZwTJ G0XPkUI9vUMjinpyPHsstvBtGP4bhL4BdY/z0Y9/XH1nHhmfVO/ve/8Hsvbu 3uzowpK7F4I7C3u/9Oa33aW+1//6N7/OPvqxfG3vAf+tOieQB3Od6rv9gex9 H/igWqfuhHr7HME3bKUvn1dj8A0753nebXeo8bfcdXfWdWBAU58h87uzz/Bb MjK1vPu9rgP6TuoXv/iFHuvrd3rectfbjZ63K1uxnl/88hfZ3/zt3+ZYDSq8 fC7nv/sNhooG1Hf4t7x4IV/X7+zVOgaUnmtO6DuQa05MGUz6soffsqbuOjoQ HkAvf77+O95mjhzSMnKZ11w5pcZefssc87lf3ZkAeQz0uJWztjiudMIT3m+7 9ojjsQR2fOpdJ8ydipYNvGCjvsfzBGNw52Hx/fIHTymyvgaE8LZ3LVZWl7nL gSfIeOJT16EYDJKYOxusPIPjl/J1X1L6+9yYx3vSY2JsUHcmL5534+DLva9e DuyGMe9nv4qdisHz55wsKxfwV/j1Ih25r50oH7rVncyAyR1DNqcgv/rNnU3+ fMtLFlxOwW94vtkQ6IK5V+S54LHqVzwwfjTPG4Vdv5nr1/rXl/Td3m3Xzfg9 ZTB18T9g7mzzp49rn4s16NZY9RG8ISdUDvb2K5kgG2L58FvXvR2c0Ljy9SWL yne1v+CsO3jQ1Sxbw8QaOMxrJ6/HQm3F9RL/HorU92Grp0StH8Z6RwUebo8g h9dzaUzqIQGf1nXmuutzOps98pGPZs+/4wVufmn9uJrDctR7LuP5d9yZTRyd 02Nnrw/4gEDWxMycwwl+L+YylypYrrYB5oAfdFqfiD3DWrfls37AmOMx8dHr XhjYHNg1rHs76JyYOab4ltaO+77J7Rqm+WXtgffx/OlsN5hQHM+SeP3wR//o 3rG9E0YOxUjbLMaC+DNiYnmDnL/INmxrNNZnz3q8TaxIjA6ycw/ZN1XyuCjP ic2jkfEyOV9N77P33Be3aTSCcwQrXiuHuX0xXZavSt0U5URyR9Rv3odwrBA2 QzEdVXTZ8WiuIh1FPUjCsQgHm5PDjAqxi+FVsBcIX5X4cBoqEVsJN77/RAp5 Azyq5k9krmrNsvwlfCqyg+eew8mQ0KODOEblx2I6QmVLOgqp2rkpgqN0Zoqc QwpjZXEX5y+Rc1/qW3FsU98ScCnSn/pW6lvV8InFKcaf+lbqW0//7xXxOBbU V4xTqf6ife0tm3PVerykcyjUV8iP66jlH7K/BbuGhfwyFNSpol4l4lXC3mrk cr3grLQR2cHeCTF5Sr5XbMZexDMwMqb+vjtF5ne//W3eBw+FPME69z5OKR/v V/PjaN04Wzvux0bQGJY5Iui0tuW8g8SO8bi9WMYhbDN/9/YPYhucLd7e/mHw cTTry/HsM+fN3sER9d9E3HrnC9Q9zstf9Zqsu09/1/7JT36Sff0b31B/xgPu kWB+fsl8u+7R90Sf+/wXct6+7I8//nH1fsvtd2T71bf6AfX7N7/5dfbHn/hE tr9fj73/gx9SfPvhW76iAUcw/v4P3q9+7wfqH8pl3KnG4S5pcW096+mH/4Zj KLvrHe/Ifw9l49Mz2ZPf+1525tqz7g4A6P33az10fEjxaj0fcrxjh49kP/np T6meXAfgctc77lHjd93zzuzA4HDWp84/w56GhtWZqDd/9g7qP6fy1j9aNOu9 XmvD2ZPTigeeai7387qTh933e8CpJx+vrExmT37quuzL9592du4f8Othbvbo qJab4/jKW4+5v9PtrUoOyB7KDo0NZ3/34asVP8bHjjkZ+Risg/V3nD2qdGka cnKdzQNg34S623n0LRWlH2wGv2EMbLf6QTbIBTuUPDXudWHfIJ6A2ZfvP+X8 sDieWJnKjudy4fcjb13PXnnbMS9P4WoxXFAY2nyz2MJT55Rfg7EC3e99zYr3 s0/bCb/Bp/e9ZtXZTmIwM6r9zMnGAJ427hC/v/vI1dno+IjLqbGJ0extL13W Z2nIn4P62Tdk8knd1+h8Akw9Tvn6vkHiw6fffULZdwjkG/ze+kdLas2fvvvK XO8hNQb677j+qLYh5wObwP652TFlE5DVhflAB8QDyGJicwX0upzICfLGYWp8 BTmvvE3/+S+IWc+gvpsCex7LsbExtaT3z1LWm/P0Dtl9ltervPf05f2gP+/t UMOCuulq4zirw+Okbg6idYOSDFvjR2htJXX/EJeb13XSg8apbl7rg77Ce9OY kxddE/QGRiPjmdwv9O9HP/qx7NYXvDDSG6VeymWxnhfwcnvHZbkjuo+/9e53 ZFefvYnJGvdYjEiYmnXX3+h41W+xR/KeH+I4iMYHAxlCDsTyguH1o3/8P008 x9V/p/GKV78291mwQczlSL+P4R+sk84sFN9i4vKlvKLjgzbOI2x9kT58VnEx lnIrnfs2eu6jv1Esgr3G83vcrfU65L3j9mnEl0FnK5Lh5vgaIadHIpiNhPLC GjSeiT5HcWdrwW4xd6vkc0GtCfVxjKVaw9bwnONYCfk2aOptyFd2n1s5Fhcc e5x7wtpY3yrAZlDMff97sLQ8KUe4/BBT3BPCmjIe8VUYI3w8twpibP2M9nxW h2K9SsilQVRH+vmaWP0cQfVXlCv5qam/ar+RcrBajvCeIdlxvs99Qh4QG1Lf ErFKfYv6lvqWjFXqWywWIU/qW6lvbbxvhXF5unyvkPsuzneOcSxmUm9mutH6 2PcKsfaU+F7BeUX7eG5EavFT9b3C723Pm75XSGNC3Ynllhk/ODZpaII+x+3v iXB+fFJYh9/9uiHy7mmYvQ8RPcLvcT82HMxLNCmQ4AvhxbIlf8DO0Mah0XFF g6qOjebY6u/CcKf1wQceUPc1E9NHs94BfS/xsU98Qo3Bnx35/Be/qO549vf1 6/uAnOBOCMaAd/zwjLsjgjshey/05Pe/l00cOZodGDyovst/4EP6fql3YCh/ 13SbuUPDBOtgze13vlC9f+FLX1LP733/+9kvf/lL9fvue96ZTc3MqjF4/+m/ /DRf9311dwbvH/+TT2YHhg6a+4IR9RvkwnpL8A68sObqszdQPb/Ser745S8r nAaARhjZb+vwPHhIfYe/S91RDDud4Iel608fUTw35E89NqyerzLf+p/89HXq +z78huf45KiS0zek79BuOHPEzdknrIHfj76tkl25OqXuF7AceL9ybQphMZy/ T7t1X0Ey7nvtmtLTZ+5V4DeMw70HyIEnkB0bnzxkfB3OJibHlCw7Z/VrTJaM /oNk3NINZ2ac3sfM3Y+6a8nt+sqHzjhsYP59r10lWFnb4ffYxCGXa28z9zmY YExjrv/OxrvUu44NYP0Yst/6aePQp+wfVrErioHGQ/OeJDifcTIBy5uuOopy 6ZAmm0vD+q4Zcgn4cQ65u6789/ys/rN1r759wdyF+TUffttxpQf0whPGFuYm FYYn1w4XxH/Y00EdDyCXzyanwVeOFcTmAF6vZIxk971uzcUMx1PHfVg9eayA T+MyqmtW3gdU/RrlNZrVwPFYnQ3r8bBYX4vG/NxQVL5Qz8eldVJvKu5T8X4h 9SbJLm0L3M9fd+PNVWyojkGR7cOiXNyXY7jx2MSwCW38s7/4nOl9ct8sjnNx T/X44R6r/RzC68apPLDJ/p6ZX8i+81//Psf/nYJu7rOUZ7JNPPbymiLsEN84 twHHM5YDm8FZOrOUybvJdO6L5Kh07ovaXE1WgGPR2mo1pFrMi3QVYVMNS0ln lVwMckuWPxToqbY36PuwqKM47+WeE8OqzL4rWROiOeyfcv+pjkMs14tt2RjP EJFdvC84L93P0jOCX1BHq/ldBb9x2fYh0Z7QL7oG8Uhyx6V9EounvM/oXuF5 MhH8jtnqeamOi3Xu45T6VgznSUG2nCupb8VskfZKRF7qWxEfYj6Ftan6Gsnm WMzK4VnEk/oW9xHxpL4ViYeM5dP5e0Xct1jOFNU12faL8b3C53RRLYmtL5PH Exv+XhH3NcztZ+f3iqJ857lL+Q9NHM4OTSLi74qmQh5MeEzx5jQxZd6n3fwI 5uG/ka4RQQ/8v9idzAlu5xS1fWJK9oXb7WzE/OHvESYf7BvBtuVyhidMfOFb sLvXGsu+9wN9b9N/0Hx7hjukF+g7JLhLgnueL3zxS+hb+sHsgx/Sd18rlePq e3f/0Eh27fU3Zvc/+EB2/wMPZtfecKO55zmkngMHD+Xjeg38+Yp+oIMj2dTR ueyOF77I3RnBb5AzkM9Nz85ld77oRfnzWLZ24srsHe96V/ahBx/Kzt50s7oz Hjw0qujsjTdlH3roITUHPOvHT6q7OnVfZ3jg99kbb8zO3nBTNjg8mr3mdW9Q /PCcnjum76pyHlgLMh4weobgHtVg5facxe9QPma/sY/o/8fS3S9b0f6O2Luv Eef/a+7Qf+Zl8diUubcY0ZTPLS5MZa+5c1Gtv/mq2dzeQ4rAfv0tfzQ7fHhC 3X8cPjyeLeX8b895gf9UZVrrMgQ8MPeim+azqXyNlqUxsFjA8+arZ7O7X76S vTbXu7Q45eeRTrAFbAPdwGflDuY+AY5KNpJ5+vgRxaP5jql1isfYdqpyJPvI XccVDjflsoHAxgFj3+l8HngA05uvnsventv3ulyvlqN1gO/WFu3/EY2xwn1E YQsY3/3SFROT5ezGHJPF+SkXl5vsO/gwPOrwAf3Wfvjt/DRPHYNZFYNFEwPN O61lDB8iuTdgcH77y1ZzX1azm6+ZUzmDa7ir4zA+OqZyDvwE38B+yA/tn94z joYPkZwD+wAb0AeYq1jkOu/OdS8vHDb/7cG4izHYAna99s4ltc7nh/3vPHQ8 nW8joy6WIlZoPRD4oSj3aXnxsIoj2PPim+ezw9MT2p6cD36DzeDLR+46oew6 c+Ko2mfDQOP6XD4yntfdvIaNmPo5Molr7xSt2VLtRTTCay+vt7hn4N4wKckX ZEk9g8uc9Dp9P/H1fiSQN0VrP/GV67P24nVTbPyw02Expfbl71OYF+E4McX4 pyhmga9TAkbM5wlkg/J/iq51/RnHE81JseFy0TyNJ+/PDHcbE9Jz0RjSSezA /Vo6U+DzgHhWYVhL78oGfE6Y8nw8ZpM+5u7cIJ6TQoyD/GV8o/jMEZzPfE77 vRee2Uawf+ncx9Zv/NyHYxzuHZQjZD97v0ei+0LAlu8BkiMUuxHuf5DXdM/J tVOohVw/33dIjsMK28niNIL3jK3VrhYJ+1KMFcPHYR7B0e4T7A/by36foDxE +nGNl+rzCMFmiumxPKwmkdyI5DGLndgLJryN1EfMJ+UlzymOG8+DKdrngz3G 8Cf7dcrrmaB6Rgr5D6MaNxXV53iwv+IzzF+rn+gQ6iGtxdMeU3E/4xof1oGg vwvnjbD2sdgE+rlMQQ4/D10S577Ut6J2p77l85XnDrFdiDfWL+x7nGupb6W+ FcSJYJv6Vpi/3D4ui+P6TOtbUt7EcEnfK+R9xjBP3ysiuR/B3tmA6zHatzxm uN5MXhrfK3D9D9aTOkRzZvzwEU3TR/zvGE0jqsa7GYrJfar0bdQOgcamph1B 7EZNXsH/B2t2flHdIX35sceyoUOj6j5Gf6s+5P5sEjxf87rXq+/o+nv+oezO F71YjcOdD6xR9z2WRi2NE3rgoYfUmoOIV3/rHlXjcHfk5KB1w0Bj4/pbtvqe bWhMpmFDsfGQxj2NYx2T2SEg9+8nnPQ8fGcfGdP/L6Z3vHyV+W2wyH366N0n FA/HZZj4OE5sq2r/OLOfrY9hoX2cLMSxGLNN4pz7CRgBDoHP49YfGoOYnVgm wdDg+rxr9P8bDJ4B1iyvzhuNC5ggP1TOVMmnESPD4kT3iqfpaZ9zsRwi+2Uc xZyTxFsqByaRrkkmYzJCsnzw5Z5XrJF9B7Vq1PScscO6hl20mnteaObcavzF 6G3n3Oc24POm+C9Rmr4QvpSQfzHz5ULpSee+RBcY1zH1xPvvwtStsXPOg0us vkb37Tn2ygvtw8XG8YLG/ALmPcf2ksd6A3amvpXoAuOa+tZ5xD71raeYUt96 2uCfvlc8vSl9rzgvNBYZnzpyVNPMUf8bv894mjzCxsz75IwgQ/o9E9HDx5je QF/M5jJUzUYsP7YWYzI9k/PPqOdEjueEwhW+CR/O3vDmN6s7pHe95z3um/KI +eb/zW9+0/1df7PH5tV9zDC6D1D3X195LDs0PqG/OxsanchpHJH6Hj2ZPfTw I2qN59ffs+EJ4w8+/HB2aEzPkfWTU4rA3rHJ3G74po1o1D5hfsq/e/JrRtm8 /p3LnjBkeMbzJ2A0PmUIcJs22MF+sOOTh41dU+47PNxHjExMGj81XXNS/3mT P347/H+L9J2F8mvCk7MD+8RsFX2cmKJkx6dCjMamGEWwdHiy36PCmgBXrhfZ Bn6+85XrCgvnt8XAypjycsaRTEm+k8uwBLr1Ov33NcLT5eFkyKtwx3o4NlPI F+6/s2varR1lvCqXwBe4S85zasLUNb8XUT7Z+AJOr9B/Hx++73H3P/nzHjO/ vjyD9pnHNMgDwXbym/OxMZd/kwJGQs5ov/0duo3nqMAL9oIvkBtjZh3QhNl3 qoZB/copWpuFOmxr5aTtAbHaat4ni+p1rP/E6jHXNYN4S/QYbAvuX5NIDvmt eGdFO8R+hO3h+th7ke/iu9SDBYwm+W+hT8d6XTRWPI4zrP/zuVifnRF0R+RW 7cdFMSF2zIrrA5wkDHi+SGeBmL0xvGdCOyaZTMknnkuxs1HAH5Er2prOfYWY RLGL1MhYbklzUbxK+hTU4phPji+sa5NMVojNLNEXrTUFuYL5gnoj1PTJQvxn Zb+F+HJb4z4WYx7siwjusZoyGfNdwrVMngp6nQyh1kR7V9GYNF4tX2eEnGR2 8LWu3854H2K9RKq71fYTyQXek6rEMMYr9nWeqzOhPpIHku6If/yMEt1HZfM4 ZncEv6fq3Jf6VhW7qsWvAJModtX2SCQXU9+K50fqWxG9VSj1rbh9qW8V+3Yx +1ZhnkfwTd8r5LH0vQKez67vFYWY4T0j7A/4++WOHJ3Tz5ymj5qnGbe/7Tx+ V7xH/Rr8e5qtmz5KZRwJZM7mz9lQz1FPWA62geuI2oB8xfZzn6YRL8bkyCzF Ss/NZodzms5xPWzzw9xp/elnP6PukE5ddbX5pjwV3Dv9y89+pt7HJibdd3+4 C/hZPv6rf/+V/j6d0wTc+6jv9PYbdE5TmmD84UcfVfLGDT++T/nWt7+d/fa3 v8ne+Ja3ZM+75VYnB2gSnuYOCe7jpo7M0Oc0fcc0Ze7v7D3eVC7HkpU5YX5P gvzpI2j9EbUe8Dpsnwa/w0fo3SDYCN/hP/aOk9lt1y8ouv3sQvayW5bysSvV 3D9/4cbs+Oos8W3C3GtMonsy7gO2f9LYPul8mHb2Wzl2fnKaYTCtf08hzPj8 5DTVO8XGptC4JYK9fTd2Tbp7CG/j7TcsZe9+dUWPHT4S8E3ma7E+HtcpYrOP H9UznZ1Ym8ve9apKdmJ9juZSTl978OrsTS9ZI3ZNTjMi/mDfTQ5JNkmEcD+M 6tthUnMRP2CR75l3vUrf992W5xHQrWfn1fOlKqdOqrkPvemE3k/EP2O/ygW2 X6ZDLEVbzfOBN1+pCOedJZ+HLFcRuTw5wvKaxyy39V15TtyR54a16zDC6/CM qWFHZ4N66WviLK27Qm0N1gn1+gir5a5uH2W1t8rT1/nZQL6ty2IfiNR7seeQ Oi/0i6PCk/lwhM+xHhX4zynmO+qVQe+265DN3H7sg8KQ9TiOBe+vhbGO9Ohq a6WeT+IgnS+OynqDuLGeH66fpeM2r47KeX9EwJLgLGEi4HKE28T3C889fNbi TzbGzzgEE7yW4Z/OfSXOfRJWJBdnqVwhpyXsY3uC7+/AHx4jjlOslkTGOX8s rgSjCJY0dqjHHJ0VdeJ8l/Y1xjeUX7w+VquoDbOET6r5vLaQWs/mef3jNuOY HjkqYO/eZwlOQY1me4Xub9rbpX0Sy0Weg5xHysUo7sw+4juzK5rTTM8RPibo xb0Q12nApWgP8vqGa3CwF7g9zK6g5khxiNRwUg+dDVXOZEIeiPtU2l9u/MKd +1LfCvFMfYvhIeEo4JX6lhBjjIGQI3w+9a14Tqa+JdgpYPps6FtBrglPj2f6 XkFqB483y/P0vSKyp55B3yvkPkn9F/s7sv/osXmRZo8toPcF9WeG4rzxObu+ aN1shDccl+XEZFa3q5ysQj/mjimaAVL4HtPnnJx+/vOfZ//+77/S39WP+Dse uEt4/q23q3unRx79sPo+ru4X0Hfsz3z2s2r+qmuvc9+cLU2j3/b90Y98RPG7 u5Qj+vs2PM9cc2327e98R83/8Ec/CmToXJl1T0VztH8ov2b5GO6Rs46m2W9M R0z/BZpRdMw8JZlzyk4guFeQ6GsPXa3ubRYXj7q7DOvf9Iyg29pqfFJ6kb3Y fr5Wnx1mA38D2xle4jy3p4iwjKiNpoZh/x3fnJ9nco8I/oexM3XSvrPc4/kI cXnPa47T2M9G4lCVwvwitrM8Vbk0R3NqZm7O+wM2Hj2q7CvKqVfctuLu07xv swhXbtNcAa6Sr3PZf37oGkXTUb/D/cL34QzG4CjPjzkaA7YHHVaGoI65uj9f vsbPxn7Pb6zWzqIa6+Q4GfHaf251fkHsFdSnBWZj9b4m2TQrrPFj1XvbhvpS gKnXIfnKe7Gkw58JJDwEHOeLYhPaLOET2hLDaUGIGT+3LBD/JF83kktFOUPs FXDgvsZ8L5vvxftzI7mVzn0b2V84dvKe4TLLx2Jz+Ub1FK9ZCPMuqNlF9oY+ l8G/ONd1neH9gPsU0xGXXS6vY3jpXsZrTBz32LzPB6kPFNtTbd+EazfWV0Rf 5uO2lNonG8onqWdFeCNni8Lzx/xm60OYg+X8kfagsOeCmEk+CfkyL+upVu/l vLw0zn3VsIjLSX0r9a3qvsfyI/Wt1LcIpb6V+lbpeCM56XtFCX/T94r0vaLc muI897+PLSxugJayOfN7rgqvND8n/MbPamu4LdV4NmOjxFPENze/4Gh23u8X /W3YfGuGuw5+94C+/x8hdw7ofsTckeDv8UcJHTM0R/lmqV5JnpVhv2HbfcKJ 144YT9F8lAxmsxhDLNfeERpf5O/94X3SDMKmrA+4hpb1KzZfbVyyp8yacN7b OuNywd+ruvcCDMrgQmoMl43vcYXxsH8U699sLuF9OIfyKvDD3TfP0fsisw8V oVyj+yWOqdRryu6huIyF0jGL5g/Lh9j+s1SmD6h6uBjW8DK1s0yNLytXWlck Pya3bE87lx6yEXm8T27Gvmp9K2bfxnpwOZ4i+zerb3N+L20Kk7LjsbhtxrdY TKTzUqn4LJ4LvuncV5ZXqk1FMat6vtyAvRvNr3PVu9l9Gqvf5zteG9NRPa82 m3dFsS6zJpyP2yrVoHOp6XKdWQp4iuSX8ftcan6ZPAh/L0XXbw6TjedfXIbc pzYTx9gaTmWxfSrPfaKs1Lc2htcG45n6VnlKfWtja8L51Lc2mgfh79S3LrW+ VVZuWZylWrsRfRvFdTM8MR9iObZROWXtO5caUW3ufOXy5v1+9n2vKGOvxLOw tIxoST8Xl9h4AS3y9UuRcb4W61pi/Hx9EcVsLfJhyT8DX5fCtYuSPP0+n6+f z2ukfmrS2KLv6vDNeA59P56bJ3dRs8cwoW/z7vs8fy4o+Za0DkzHDM0jmceM vHnFM2vWaBk0J7wvi5oWzPvCEvHT+n0Mjy1gDDAtsLWyLL7W3295P2YJnsco Xsc0TsSv+YVQz0KBD8ZvYv+8xYavD30PfVokcrW+xYznTfC+wOdxjvG4LRA7 yRj5vYBiwWMtxWEhIpPm4DGWk0X6i+Mv2USxC3GPreF7Eu3LOZo7R9nd56x5 +j3I98qC3ytSLsRsxfYgXKmM4rjIeYXlFuPv9zi1Ua6Hkbop1ezC2i3U1cjc fLRfcBlLEdlL7Aky5fFyfcP4ivyal3gXuQ2CrFJ9zds5X7UPlcW+hI+BjDLn gCJMy+Ad0nxgB8eTx30zZwCJZ6P80nrJTuRPNP6y7vlCPr5nC2wrPI+lc99G z31V/ZP8WeR6yuZvgU+LiKJ7xPps8qkqxiw2Ab85+5aKW7WcKjvP86tErIJ6 HK6fD3TF4ifldzE+Un+aF+NdZHc1vKrtO6lHFvdKnC9xmWwfR22slsNFNkVi UhTfahTkyUawZ/ylem2VfCkVt6K8kmwvKwfHumTdlGp2VTyKYl+lhqa+RfFP fasKTqlvifpS36KyUt+qEp8q+ZL6lntP3yu8nel7hYTnRvtmGfs3wy+tj9XX 5YvwvSIWVyk2VO7SympOK9ly/lzOn0vquWrG7e8VRKtkDX73YytofT62zHkp uTXLbG7Z2rQS2LaM1i0TH7A9q8SeZSJnBdlmiftBfcFzywiTxeXlbCnHcymX tbgE7ysoFuYbsflmvGAIf2+GOU9LZo3nXwQSYrioyMwtLInr6R2A1mFlLaL8 UT4sr2gf0BPGlR42vmTmPJ8ZXzJrgnksI1wXyAY5DsNF941+nt/H2HsR820e cHD+OZ+WnV6sa2lJto36T+0N55dDuUwv1iGtW0J4Of4lPLdM7JBk23jofND1 YonPLy0j+1hMl7xNNGYhHjh3lJ2Lyyg/l9x7aCfFgdq0QjFeCvMwnp907dIy j5+x29qJ9prKm+BezuaS4UP1ktti4yP7gPEs4ENjPt5SLPweW+IYkDjT3FW/ F5cJH9ah+IL6v0LqMK7BtlZjfl6Lad3kY2jdcji2JNR6LlPqS76OU5lF/Yn2 HCNnWeht4K/1eTnscU7W8krQc1SsmJ1h/+P44R5D55e5XufLCpMj+L7M9UpY c/krTvbySgz7cD3lp/bz2HJfPc7eN7nfr2Q87ssMv2Xmg8+VVeQXi8myPxtI 5wieM9L5gOqXcJVwW2H7Ap+FwpzB5yMec+ksRm1O575zOfctYR+5DwxzYuMy s4X4gDBc5rhiWTZPZJ+x3TxGUp5IeUj3C9+vzM9laqeEY5ijguzlMJZh7qIa b21cpjlL85r6sbwcl8/rH6+1dJ8yuUxvmI90ndinSD1aIXZIsnH9DOuNr3G0 JlG8w/oR1nUeV4sjwXx5NWInz11sE6tly2EexvOTrl1e4fHD9QTvt3gf8/tO qvE8DjEf5Loi9W4uT46F32NSrZN7+4pbQ+sH2z9BbvOz0YU893FZ0t7HcUh9 K/UtqS6kvpX6VpgrGMfUt1LfOn99K6z1QWyEmPF/b43V7tA3lpvpewWTv5Kl 7xU8LuG+5D0nrMNh3KR6RvcFrV3hurBW4LhJNVPCisdiZW09W11dy1bXLK2r 54qhVYkM/4p95ms8P12/YviJPPu+aoj95vx4zOrD9qxwu9awfeuUb5X6tcLs x36srFIfVo2N3L7l1dV8fFU9MS0tr5C42ae9p1iy90fmPoDmt+dfMfKtDv17 zemB3/xMsLTM9wuWuWrw9raurBhaXTXz+h37huO0GsQEEbKX2rxKY7rG8gjz OVv0/vT3NPbbu38uWvwMH44BxWnV5xjWTfJk3ftgaxiyh+RXsDfWxRzzvOsk f/A+WEW48lzENvMcc7SC5lws1wj+y0JcloVxu1ZatwwyV2RenEvLK1SP4llB 7/lvWnfoHrV4aN/XI/kSwcvwL1t7kX2knwX3Tcvkjsf9e2NOdn8sE7/RGN4H 1v6VEGeC90rxGPaT109avzD+a4ZCW2N2cCy5bFL3V4V4ReKi98N6IBPXUYxZ UEtQfwnsWQ3jTmv8OrHZ1y60B9k+DHxbDeW7cd6jVteZzSGOK6sCDkwm/x3G 3/aqdXkdwpvXDz4e8KyiWDnM1mlcV2kd8+NhD+XY8pjyOirlOO41q0xekDuo jsfOLitMVrCXVhl+OJcwBgiXwF6+X9coHz0v+ZrF7Qzn16n9axIWjC/IDySP 5Hs69+EejX2InfuCPYRyhs87vHj/F+qphL8fo5gHPkXk+RixOPN9HGBO4xSd L7Q5xIL2iTDH/G+5rhKbWD2mdZLmfrCP2bnP+Sf0BMkHsnY1nMM5dS7nPqm2 4nqF5fEaKNkkxmyV4kDjtx6PDcqloMetrdPYsZob1DGLPetlpO7E8CL2rAf2 BbWK137s8yolXmukWrCySv2TddO10hi2L7Apmg/+rCXVRdEOhmW0BgkxK4rL Zs99qW95eyQ53s7Ut1LfSn1LwjuMX+pbJD9T34rGJX2vkP2hdlKZ/HcY//S9 AseK5I5Q86L1RchnXEep7KfX9wrJ/iDfWDxXGc5r65VsfX09p0r+e90RHlt3 4/a94sbUs4LnsIwKkbcWzGGdFaSvQvR5ezx5mRX39GvM74psC/cz8LFSQXo4 PhXCu17Rc7YOakz9GWON1RNfE1cd2fsV9W7WrCFZa072uhvH5901p4vqw3JW 14HWkU3reszqqYS4kPhV1on/6xxrEquKw9Fi5GRX4rFYMziuEb9szUI4rVEM +RzF3ttkYxXGlecOHVsPcFlnuWpzphLwrwW+hnnq10m8FWJjFDvk9yrKF2Vr xftK92Ql0EX3JtNZobm4ynNzfd3Pofxcr4T+hTr4vse1JoyJj6mfWw9km98m 1/HeWUH70ObPqskznFe0rltMWc6z+udyo4L4KhRruj/DWqvrKscH5WOF78Ww vq6T/W5rwBqypYIwxPoqDvd1xCfnsucL4mdxqWAseO55/WR9xfvp9geSsW5r UgXVImR/2Ae8T3wv2v0R7k+af+vCWFj/cD+qOPvDmkn3ttTfwt5G6yiPFY6F 3D+5bl4bpHoY1nm7jvTtShyX8PwQ9k9bP3m+4bG1YI7nk5SvtC6E9T/MZx83 X2NCv0Ks1tdxLGyc+NoifMI8prFdR3264n7T2kHzD9cTnn/p3Hfu5z5eR2Ix lfY53+O8d9A4ytiEe5710oqv675OIjmXyLkvGhOCeYXZEeHjOfsMPvfJfUuq 7TxOvOYVn/toT2O5GfRdmzuhfxfy3If7Eo+zVK9iZ6noHtzEuY/yVohuX1c5 PigfS577iI8VXAdQzbjEzn2pb8m2SPs99a0Ql9S3whimvoXrUupbfu+EfqS+ 5etM+l4R9t1YP5B6QpCL6XuFsHelfKV1Iaz/YT77uPkaE/oVYrW+jmNh48TX FuET5jGN7Trq0xX3Wz7vSbka5vea3UdE3npWOV7J6Tih43ascjx8VhAv/23e j6tnJeThvBXQFY7BWpBxPMcn0Kl4C2Rz/TGqFMxXzHwRj5F/nGHj95rPp4r9 jQnt1UqF5p/nQU8rl6xn/BW2FuV1pbIu8K1HY3s8hh/hgecJeR7FEuMlxq1C 11H/cd1e8/tnjZ6JOB6AeWH8Y/ZK+Ub4KjTmxB9h31RQjhDc8O9KdD7AjdtI 9hy3tyLYGMbmeLCuxH5xcVpXczZm9Ldgl1RHYL9HYhOMV4S5wLdQXrinUE9Y w3VZyCeUh3JuC/Epk3tSDhbkXaVSKeApsc8K9txxFOPjZfaFzTspZqQ+V9uH IYZSLhx3NTmSq7Ga4myga48H9S4iI5qzVbAQ9ii24fhxhBP7HbWB5TjBpyje FTQf1O8qeSLFC9st+cp7p1QzeWyL+gjHuay9Yn5E9lCQwxFZONaVKmclglUF EcKsStzL1U/kV7Q38binc190X23i3BfYFu19nu94UX8+zuTi9dVqUQXXGckX ppfUhIt37qN8FWpvLPfEHCxB1fpbwJfOfdzn0B/Pc6mc+/h60mdj+chqUgw/ cV2Z3JNysCDvni3nvmqYpL5VFNPUtwr32PHUt1Lf0jJS3xLWlck9KQcL8u7Z 0rfS94oCv1COE3yK4l1B80H9rpInUrzS94pL/ntF1Zou7mt/pjl96lR2KqfT iPi7Gzsdjms67flOnxZ5JJmnC2WGfKJdp+NzgY4CXTH/TmHbT0f4sc+n/fjJ UyezUycNnTKE3k+eLJg/ecq9x7A6hXRJMk5iWUwXiV2JGFB8ThM/8VxxnnAs 5VxxvOCD8eckx6sKxXKP5AnyoShHivJO8uGU5D8ey/Mluseq7Zdqec5z1MYr sAHlbiSPq8WyeL8Vx1aMd1HeFGBq/RTtRe8n2d47eZLvuRjJtgQx2gBWsViD 7FNV8SuBrYrraSpfyvEYriT+p5HMTeTDKW8H8a1wn5wO4ivhJa2PxqcoZnYN XxvLJxGH0K+g3rDY0TyQ8S3V24rGeH+K8Qq+nWLxi8mJ90ih1hkcXH4hvSLu RFe8lp0qxF3IE+ZfWYrVqWjOnBLqqmCfs+W0vC6699z6SG5BDIRzWTr3PTXn vlM8N9l79AwSxF+2/5Qgs7Dvi3Iu3XMfxvBUtRhXs13Kw3Tue1ad+3DunYrx i3RatCWd+8rSZs59qW+lvpX6lpiHqW+lvpX6VjSP0veKgnwScUjfK8Iemb5X XOjvFdE6ejrso6dOYRw8TUzPJEqU6FlIk5eADYkSJUqUKFGiRImeekrnvkSJ EiVK9HSi1LcSJUqU6JlPG631W3bXXhi6ojb7fUV1m6c9nraKVL9JMnKRrufW NKnnZn0tot8voC3oGaULFDMcL643jCX3MRbH4jwIcRLmCuwoWi/bUeBL1Fe+ Pp6zYcyr5XkJnoJcf+5eoAZCW/cyPsKD9gCRXyfsi03k6gXM10SJEiV6ttNz tu9+yuhi+5YoUaJEiZ559FT2rUSJEm2eLnZtSJQoUaJEiST6/wFtJUc4 "], {{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["Comparison of Food Moisture Sorption Isotherm Equations", "DemoTitle"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`awMax$$ = $CellContext`awMaxDef$$, \ $CellContext`awMaxDef$$ = 0.95, $CellContext`awMaxOld$$ = 0.95, $CellContext`awMin$$ = $CellContext`awMinDef$$, \ $CellContext`awMinDef$$ = 0.05, $CellContext`awMinOld$$ = 0.05, $CellContext`c$$ = $CellContext`cDef$$, $CellContext`c1D$$ = \ $CellContext`c1DDef$$, $CellContext`c1DDef$$ = 10., $CellContext`c1DFit$$ = 0., $CellContext`c1DOld$$ = 10., $CellContext`c1S$$ = $CellContext`c1SDef$$, $CellContext`c1SDef$$ = 0., $CellContext`c1SFit$$ = 0., $CellContext`c1SOld$$ = 0., $CellContext`c2D$$ = $CellContext`c2DDef$$, $CellContext`c2DDef$$ = 20., $CellContext`c2DFit$$ = 0., $CellContext`c2DOld$$ = 20., $CellContext`c2S$$ = $CellContext`c2SDef$$, $CellContext`c2SDef$$ = \ -18., $CellContext`c2SFit$$ = 0., $CellContext`c2SOld$$ = -18., $CellContext`cDef$$ = 15., $CellContext`cHa$$ = $CellContext`cHaDef$$, $CellContext`cHaDef$$ = 12., $CellContext`cHaFit$$ = 0., $CellContext`cHaOld$$ = 12., $CellContext`cHe$$ = $CellContext`cHeDef$$, $CellContext`cHeDef$$ = 0.06, $CellContext`cHeFit$$ = 0., $CellContext`cHeOld$$ = 0.06, $CellContext`cOld$$ = 15., $CellContext`cOs$$ = $CellContext`cOsDef$$, $CellContext`cOsDef$$ = 10., $CellContext`cOsFit$$ = 10.571546775998563`, $CellContext`cOsOld$$ = 10., $CellContext`defReset$$ = False, $CellContext`defResetEnabled$$ = True, $CellContext`errMsgs$$ = {}, $CellContext`fit$$ = FittedModel[{ "Nonlinear", {$CellContext`p1$12240 -> 10.571546775998563`, $CellContext`p2$12240 -> 0.4706234073879689}, {{$CellContext`aw$12240}, If[$CellContext`aw$12240 == 0., 0., $CellContext`p1$12240 ($CellContext`aw$12240/( 1. - $CellContext`aw$12240))^$CellContext`p2$12240]}}, { 1}, CompressedData[" 1:eJxTTMoPSmViYGAQBWIQPWsmCKy099h0uyv2AotD0A651teBO+wFdhS+O7KY z+FNIEjgoP2mebeYHx0Tcljn/rBKZN1x+9LoQ8uvThN1KLDlur644Kw9367o 1TOlJRzAxs28aG/y1rV7f4uUQ7UISMcV++UZPQFWH2QcYvoPfdWIuW7/+0lL TXCJvANYu+0t+/b2H5r2QooOYNvl7tpf7/QOkelScvgPBvftW1Y/+rxQR8Wh EKzhof3XI3/ufmJTc3hUBbLgkb2/edLtu5oaUPc/sa+wWuj0bLWWw2Ggbf2H ntp/mWw6r2SNroMxGDy3Z5wfxjh9jYHDErAHXtjb9B2buvu3kYMo2IOv7Hl2 8U32+W3qAHZO62t743WhR9dzWTl8Axn39Y39o2+FjdV37B3SwOCd/b7DHhPD Sl0cAL38pjw= "], Function[Null, Internal`LocalizedBlock[{$CellContext`aw$12240, $CellContext`p1$12240, \ $CellContext`p2$12240}, #], {HoldAll}], AccuracyGoal -> 3, PrecisionGoal -> 3, Gradient -> "FiniteDifference"], $CellContext`fitData$$ = False, $CellContext`fitDataEnabled$$ = False, $CellContext`fitName$$ = "Oswin", $CellContext`fitOK$$ = True, $CellContext`fitTry$$ = True, $CellContext`fTable$$ = Grid[{{ Row[{ Style[ Subscript["moisture", "GAB"], Italic, 12], Style["(", 12], $CellContext`aws, Style[") = ", 12], Style[ Subscript["m", "0"], Italic, 12], Style[" ", 12], Style["c", Italic, 12], Style[" ", 12], Style["k", Italic, 12], Style[" ", 12], $CellContext`aws, Style[" / ((1 - ", 12], Style["k", Italic, 12], Style[" ", 12], $CellContext`aws, Style[") \[Times] (1 - ", 12] Style["k", Italic, 12], Style[" ", 12], $CellContext`aws, Style[" + ", 12], Style["c", Italic, 12], Style[" ", 12], Style["k", Italic, 12], Style[" ", 12], $CellContext`aws, Style["))", 12]}], SpanFromLeft}, { Row[{ Style[ Subscript["moisture", "Oswin"], Italic, 12], Style["(", 12], $CellContext`aws, Style[") = ", 12], Style[ Subscript["c", "O"], Italic, 12], Style[" (", 12], $CellContext`aws, Style[" / (1 - ", 12], $CellContext`aws, Style[")", 12], Superscript[")", Style[ Subscript["n", "O"], Italic]]}], SpanFromLeft}, { Style["Oswin model", 12], Row[{ Style[ Superscript["r", "2"], Italic, RGBColor[0, 0, 1], 12], Style[" = ", 12], Style["0.9988", RGBColor[0, 0, 1], 12]}]}, {"", Row[{ Style[ Subscript["c", "O"], Italic, 12], Style[" = ", 12], Style["10.6", 12]}]}, {"", Row[{ Style[ Subscript["n", "O"], Italic, 12], Style[" = ", 12], Style["0.5", 12]}]}, {"", ""}, {"", ""}}, Alignment -> Left], $CellContext`initToFitted$$ = False, $CellContext`initToFittedEnabled$$ = True, $CellContext`k$$ = $CellContext`kDef$$, $CellContext`kDef$$ = 0.9, $CellContext`kOld$$ = 0.9, $CellContext`lineColor$$ = RGBColor[ 0.8627450980392157, 0.0784313725490196, 0.23529411764705882`], $CellContext`m0$$ = $CellContext`m0Def$$, \ $CellContext`m0Def$$ = 6., $CellContext`m0Old$$ = 6., $CellContext`model$$ = $CellContext`modelDef$$, \ $CellContext`modelDef$$ = 1, $CellContext`modelOld$$ = 1, $CellContext`n1D$$ = $CellContext`n1DDef$$, $CellContext`n1DDef$$ = 0.5, $CellContext`n1DFit$$ = 0., $CellContext`n1DOld$$ = 0.5, $CellContext`n2D$$ = $CellContext`n2DDef$$, $CellContext`n2DDef$$ = 2.5, $CellContext`n2DFit$$ = 0., $CellContext`n2DOld$$ = 2.5, $CellContext`nD$$ = 5, $CellContext`nF$$ = 1, $CellContext`nHa$$ = $CellContext`nHaDef$$, $CellContext`nHaDef$$ = 1.6, $CellContext`nHaFit$$ = 0., $CellContext`nHaOld$$ = 1.6, $CellContext`nHe$$ = $CellContext`nHeDef$$, $CellContext`nHeDef$$ = 1., $CellContext`nHeFit$$ = 0., $CellContext`nHeOld$$ = 1., $CellContext`nOs$$ = $CellContext`nOsDef$$, $CellContext`nOsDef$$ = 1., $CellContext`nOsFit$$ = 0.4706234073879689, $CellContext`nOsOld$$ = 1., $CellContext`nPts$$ = $CellContext`nPtsDef$$, $CellContext`nPtsDef$$ = 21, $CellContext`nPtsOld$$ = 21, $CellContext`p1P$$ = 10.571546775998563`, $CellContext`p2P$$ = 0.4706234073879689, $CellContext`p3P$$ = 0., $CellContext`p4P$$ = 0., $CellContext`rSq$$ = 0.9987530384115855, $CellContext`xMax$$ = $CellContext`xMaxDef$$, \ $CellContext`xMaxDef$$ = 1., $CellContext`xMaxOld$$ = 1., $CellContext`yMax$$ = $CellContext`yMaxDef$$, $CellContext`yMaxDef$$ = 50., $CellContext`yMaxOld$$ = 50., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`nPtsDef$$], 21, 21}, { Hold[$CellContext`awMinDef$$], 0.05, 0.05}, { Hold[$CellContext`awMaxDef$$], 0.95, 0.95}, { Hold[$CellContext`m0Def$$], 6., 6.}, { Hold[$CellContext`cDef$$], 15., 15.}, { Hold[$CellContext`kDef$$], 0.9, 0.9}, { Hold[$CellContext`modelDef$$], 1, 1}, {{ Hold[$CellContext`fitDataEnabled$$], False}, True, True}, { Hold[$CellContext`defResetEnabled$$], True, True}, {{ Hold[$CellContext`initToFittedEnabled$$], True}, False, False}, { Hold[$CellContext`cOsDef$$], 10., 10.}, { Hold[$CellContext`nOsDef$$], 1., 1.}, { Hold[$CellContext`c1SDef$$], 0., 0.}, { Hold[$CellContext`c2SDef$$], -18., -18.}, { Hold[$CellContext`cHaDef$$], 12., 12.}, { Hold[$CellContext`nHaDef$$], 1.6, 1.6}, { Hold[$CellContext`cHeDef$$], 0.06, 0.06}, { Hold[$CellContext`nHeDef$$], 1., 1.}, { Hold[$CellContext`c1DDef$$], 10., 10.}, { Hold[$CellContext`n1DDef$$], 0.5, 0.5}, { Hold[$CellContext`c2DDef$$], 20., 20.}, { Hold[$CellContext`n2DDef$$], 2.5, 2.5}, { Hold[$CellContext`xMaxDef$$], 1., 1.}, { Hold[$CellContext`yMaxDef$$], 50., 50.}, { Hold[ Row[{ Style["GAB model data generation", Bold, 10], Spacer[32]}]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`nPts$$], $CellContext`nPtsDef$$, Style["points"]}, 5, 31, 1}, {{ Hold[$CellContext`awMin$$], $CellContext`awMinDef$$, Style[ Subscript["a", "w min"], Italic]}, 0., 0.45}, {{ Hold[$CellContext`awMax$$], $CellContext`awMaxDef$$, Style[ Subscript["a", "w max"], Italic]}, 0.55, 0.95}, { Hold[ Style[""]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`m0$$], $CellContext`m0Def$$, Style[ Subscript["m", "0"], Italic]}, 1., 20.}, {{ Hold[$CellContext`c$$], $CellContext`cDef$$, Style["c", Italic]}, 0.2, 50.}, {{ Hold[$CellContext`k$$], $CellContext`kDef$$, Style["k", Italic]}, 0.2, 0.99}, { Hold[ Row[{ Spacer[20], Style["model to fit to GAB\[Hyphen]generated data", Bold, 10]}]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`model$$], $CellContext`modelDef$$, ""}, { 1 -> Style["Oswin", RGBColor[ 0.8627450980392157, 0.0784313725490196, 0.23529411764705882`]], 2 -> Style["Smith", RGBColor[0, 0.5019607843137255, 0]], 3 -> Style["Halsey", RGBColor[0, 0, 1.]], 4 -> Style["Henderson", RGBColor[0.5019607843137255, 0, 0.5019607843137255]], 5 -> Style["double power", RGBColor[0.29411764705882354`, 0, 0.5098039215686274]]}}, { Hold[ Row[{ Manipulate`Place[1]}]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Style["\n", 10]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`fitData$$], False, ""}, { True -> "fit selected model to data and plot results"}}, { Hold[ Row[{ Spacer[5], Manipulate`Place[2]}]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Style["\nbefore next fit, set initial parameters to", Bold, 10]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`defReset$$], False, ""}, { True -> "default values"}}, {{ Hold[$CellContext`initToFitted$$], False, ""}, { True -> "last fitted values"}}, { Hold[ Row[{ Spacer[10], Manipulate`Place[3], Spacer[20], Manipulate`Place[4]}]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Style["\ninitial parameter values", Bold, 10]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`cOs$$], $CellContext`cOsDef$$, Style[ Subscript["c", "O"], Italic]}, 0.05, 15.}, {{ Hold[$CellContext`nOs$$], $CellContext`nOsDef$$, Style[ Subscript["n", "O"], Italic]}, 0.2, 2.}, {{ Hold[$CellContext`c1S$$], $CellContext`c1SDef$$, Style[ Subscript["c", Subscript["1", "S"]], Italic]}, -2., 3.}, {{ Hold[$CellContext`c2S$$], $CellContext`c2SDef$$, Style[ Subscript["c", Subscript["2", "S"]], Italic]}, -40., 5.}, {{ Hold[$CellContext`cHa$$], $CellContext`cHaDef$$, Style[ Subscript["c", "Ha"], Italic]}, 0.001, 100.}, {{ Hold[$CellContext`nHa$$], $CellContext`nHaDef$$, Style[ Subscript["n", "Ha"], Italic]}, 0.01, 5.}, {{ Hold[$CellContext`cHe$$], $CellContext`cHeDef$$, Style[ Subscript["c", "He"], Italic]}, 0.01, 3.}, {{ Hold[$CellContext`nHe$$], $CellContext`nHeDef$$, Style[ Subscript["n", "He"], Italic]}, 0.1, 2.}, {{ Hold[$CellContext`c1D$$], $CellContext`c1DDef$$, Style[ Subscript["c", "1"], Italic]}, 0., 100.}, {{ Hold[$CellContext`n1D$$], $CellContext`n1DDef$$, Style[ Subscript["n", "1"], Italic]}, 0., 15.}, {{ Hold[$CellContext`c2D$$], $CellContext`c2DDef$$, Style[ Subscript["c", "2"], Italic]}, 0., 25.}, {{ Hold[$CellContext`n2D$$], $CellContext`n2DDef$$, Style[ Subscript["n", "2"], Italic]}, -0.5, 20.}, { Hold[ PaneSelector[{1 -> Column[{ Manipulate`Place[5], Manipulate`Place[6]}], 2 -> Column[{ Manipulate`Place[7], Manipulate`Place[8]}], 3 -> Column[{ Manipulate`Place[9], Manipulate`Place[10]}], 4 -> Column[{ Manipulate`Place[11], Manipulate`Place[12]}], 5 -> Column[{ Manipulate`Place[13], Manipulate`Place[14], Manipulate`Place[15], Manipulate`Place[16]}]}, Dynamic[$CellContext`model$$]]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Style["axes maxima", Bold, 10]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`xMax$$], $CellContext`xMaxDef$$, Style[ Subscript["a", "w"], Italic]}, 0.1, 1.}, {{ Hold[$CellContext`yMax$$], $CellContext`yMaxDef$$, Style["moisture"]}, 5., 100.}, { Hold[$CellContext`nPtsOld$$], 21, 21}, { Hold[$CellContext`awMinOld$$], 0.05, 0.05}, { Hold[$CellContext`awMaxOld$$], 0.95, 0.95}, { Hold[$CellContext`m0Old$$], 6., 6.}, { Hold[$CellContext`cOld$$], 15., 15.}, { Hold[$CellContext`kOld$$], 0.9, 0.9}, { Hold[$CellContext`modelOld$$], 1, 1}, { Hold[$CellContext`cOsOld$$], 10., 10.}, { Hold[$CellContext`nOsOld$$], 1., 1.}, { Hold[$CellContext`c1SOld$$], 0., 0.}, { Hold[$CellContext`c2SOld$$], -18., -18.}, { Hold[$CellContext`cHaOld$$], 12., 12.}, { Hold[$CellContext`nHaOld$$], 1.6, 1.6}, { Hold[$CellContext`cHeOld$$], 0.06, 0.06}, { Hold[$CellContext`nHeOld$$], 1., 1.}, { Hold[$CellContext`c1DOld$$], 10., 10.}, { Hold[$CellContext`n1DOld$$], 0.5, 0.5}, { Hold[$CellContext`c2DOld$$], 20., 10.}, { Hold[$CellContext`n2DOld$$], 2.5, 2.5}, { Hold[$CellContext`xMaxOld$$], 1., 1.}, { Hold[$CellContext`yMaxOld$$], 50., 50.}, {{ Hold[$CellContext`p1P$$], 10.571546775998563`}, 10., 10.}, {{ Hold[$CellContext`p2P$$], 0.4706234073879689}, 1., 1.}, {{ Hold[$CellContext`p3P$$], 0.}, 10., 10.}, {{ Hold[$CellContext`p4P$$], 0.}, 1., 1.}, {{ Hold[$CellContext`cOsFit$$], 10.571546775998563`}, 0., 0.}, {{ Hold[$CellContext`nOsFit$$], 0.4706234073879689}, 0., 0.}, { Hold[$CellContext`c1SFit$$], 0., 0.}, { Hold[$CellContext`c2SFit$$], 0., 0.}, { Hold[$CellContext`cHaFit$$], 0., 0.}, { Hold[$CellContext`nHaFit$$], 0., 0.}, { Hold[$CellContext`cHeFit$$], 0., 0.}, { Hold[$CellContext`nHeFit$$], 0., 0.}, { Hold[$CellContext`c1DFit$$], 0., 0.}, { Hold[$CellContext`n1DFit$$], 0., 0.}, { Hold[$CellContext`c2DFit$$], 0., 0.}, { Hold[$CellContext`n2DFit$$], 0., 0.}, {{ Hold[$CellContext`lineColor$$], RGBColor[ 0.8627450980392157, 0.0784313725490196, 0.23529411764705882`]}, GrayLevel[0.5], GrayLevel[0.5]}, {{ Hold[$CellContext`fit$$], FittedModel[{ "Nonlinear", {$CellContext`p1$12240 -> 10.571546775998563`, $CellContext`p2$12240 -> 0.4706234073879689}, {{$CellContext`aw$12240}, If[$CellContext`aw$12240 == 0., 0., $CellContext`p1$12240 ($CellContext`aw$12240/( 1. - $CellContext`aw$12240))^$CellContext`p2$12240]}}, { 1}, CompressedData[" 1:eJxTTMoPSmViYGAQBWIQPWsmCKy099h0uyv2AotD0A651teBO+wFdhS+O7KY z+FNIEjgoP2mebeYHx0Tcljn/rBKZN1x+9LoQ8uvThN1KLDlur644Kw9367o 1TOlJRzAxs28aG/y1rV7f4uUQ7UISMcV++UZPQFWH2QcYvoPfdWIuW7/+0lL TXCJvANYu+0t+/b2H5r2QooOYNvl7tpf7/QOkelScvgPBvftW1Y/+rxQR8Wh EKzhof3XI3/ufmJTc3hUBbLgkb2/edLtu5oaUPc/sa+wWuj0bLWWw2Ggbf2H ntp/mWw6r2SNroMxGDy3Z5wfxjh9jYHDErAHXtjb9B2buvu3kYMo2IOv7Hl2 8U32+W3qAHZO62t743WhR9dzWTl8Axn39Y39o2+FjdV37B3SwOCd/b7DHhPD Sl0cAL38pjw= "], Function[Null, Internal`LocalizedBlock[{$CellContext`aw$12240, \ $CellContext`p1$12240, $CellContext`p2$12240}, #], {HoldAll}], AccuracyGoal -> 3, PrecisionGoal -> 3, Gradient -> "FiniteDifference"]}, {}, {}}, { Hold[$CellContext`nD$$], 5, 5}, {{ Hold[$CellContext`nF$$], 1}, 2, 2}, {{ Hold[$CellContext`rSq$$], 0.9987530384115855}, 0., 0.}, {{ Hold[$CellContext`fitName$$], "Oswin"}, "", ""}, {{ Hold[$CellContext`fitTry$$], True}, False, False}, {{ Hold[$CellContext`fitOK$$], True}, False, False}, {{ Hold[$CellContext`fTable$$], Grid[{{ Row[{ Style[ Subscript["moisture", "GAB"], Italic, 12], Style["(", 12], $CellContext`aws, Style[") = ", 12], Style[ Subscript["m", "0"], Italic, 12], Style[" ", 12], Style["c", Italic, 12], Style[" ", 12], Style["k", Italic, 12], Style[" ", 12], $CellContext`aws, Style[" / ((1 - ", 12], Style["k", Italic, 12], Style[" ", 12], $CellContext`aws, Style[") \[Times] (1 - ", 12] Style["k", Italic, 12], Style[" ", 12], $CellContext`aws, Style[" + ", 12], Style["c", Italic, 12], Style[" ", 12], Style["k", Italic, 12], Style[" ", 12], $CellContext`aws, Style["))", 12]}], SpanFromLeft}, { Row[{ Style[ Subscript["moisture", "Oswin"], Italic, 12], Style["(", 12], $CellContext`aws, Style[") = ", 12], Style[ Subscript["c", "O"], Italic, 12], Style[" (", 12], $CellContext`aws, Style[" / (1 - ", 12], $CellContext`aws, Style[")", 12], Superscript[")", Style[ Subscript["n", "O"], Italic]]}], SpanFromLeft}, { Style["Oswin model", 12], Row[{ Style[ Superscript["r", "2"], Italic, RGBColor[0, 0, 1], 12], Style[" = ", 12], Style["0.9988", RGBColor[0, 0, 1], 12]}]}, {"", Row[{ Style[ Subscript["c", "O"], Italic, 12], Style[" = ", 12], Style["10.6", 12]}]}, {"", Row[{ Style[ Subscript["n", "O"], Italic, 12], Style[" = ", 12], Style["0.5", 12]}]}, {"", ""}, {"", ""}}, Alignment -> Left]}, {}, {}}, { Hold[$CellContext`errMsgs$$], {}, {}}}, Typeset`size$$ = { 367., {176., 184.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`nPtsDef$13765$$ = 0, $CellContext`awMinDef$13766$$ = 0, $CellContext`awMaxDef$13767$$ = 0, $CellContext`m0Def$13768$$ = 0, $CellContext`cDef$13769$$ = 0, $CellContext`kDef$13770$$ = 0, $CellContext`modelDef$13771$$ = 0, $CellContext`fitDataEnabled$13772$$ = 0, $CellContext`defResetEnabled$13773$$ = 0, $CellContext`initToFittedEnabled$13774$$ = 0, $CellContext`model$13775$$ = False, $CellContext`fitData$13776$$ = False, $CellContext`defReset$13777$$ = False, $CellContext`initToFitted$13778$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 2, StandardForm, "Variables" :> {$CellContext`awMax$$ = $CellContext`awMaxDef$$, \ $CellContext`awMaxDef$$ = 0.95, $CellContext`awMaxOld$$ = 0.95, $CellContext`awMin$$ = $CellContext`awMinDef$$, \ $CellContext`awMinDef$$ = 0.05, $CellContext`awMinOld$$ = 0.05, $CellContext`c$$ = $CellContext`cDef$$, $CellContext`c1D$$ = \ $CellContext`c1DDef$$, $CellContext`c1DDef$$ = 10., $CellContext`c1DFit$$ = 0., $CellContext`c1DOld$$ = 10., $CellContext`c1S$$ = $CellContext`c1SDef$$, \ $CellContext`c1SDef$$ = 0., $CellContext`c1SFit$$ = 0., $CellContext`c1SOld$$ = 0., $CellContext`c2D$$ = $CellContext`c2DDef$$, $CellContext`c2DDef$$ = 20., $CellContext`c2DFit$$ = 0., $CellContext`c2DOld$$ = 20., $CellContext`c2S$$ = $CellContext`c2SDef$$, \ $CellContext`c2SDef$$ = -18., $CellContext`c2SFit$$ = 0., $CellContext`c2SOld$$ = -18., $CellContext`cDef$$ = 15., $CellContext`cHa$$ = $CellContext`cHaDef$$, \ $CellContext`cHaDef$$ = 12., $CellContext`cHaFit$$ = 0., $CellContext`cHaOld$$ = 12., $CellContext`cHe$$ = $CellContext`cHeDef$$, \ $CellContext`cHeDef$$ = 0.06, $CellContext`cHeFit$$ = 0., $CellContext`cHeOld$$ = 0.06, $CellContext`cOld$$ = 15., $CellContext`cOs$$ = $CellContext`cOsDef$$, \ $CellContext`cOsDef$$ = 10., $CellContext`cOsFit$$ = 10.571546775998563`, $CellContext`cOsOld$$ = 10., $CellContext`defReset$$ = False, $CellContext`defResetEnabled$$ = True, $CellContext`errMsgs$$ = {}, $CellContext`fit$$ = FittedModel[{ "Nonlinear", {$CellContext`p1$12240 -> 10.571546775998563`, $CellContext`p2$12240 -> 0.4706234073879689}, {{$CellContext`aw$12240}, If[$CellContext`aw$12240 == 0., 0., $CellContext`p1$12240 ($CellContext`aw$12240/( 1. - $CellContext`aw$12240))^$CellContext`p2$12240]}}, { 1}, CompressedData[" 1:eJxTTMoPSmViYGAQBWIQPWsmCKy099h0uyv2AotD0A651teBO+wFdhS+O7KY z+FNIEjgoP2mebeYHx0Tcljn/rBKZN1x+9LoQ8uvThN1KLDlur644Kw9367o 1TOlJRzAxs28aG/y1rV7f4uUQ7UISMcV++UZPQFWH2QcYvoPfdWIuW7/+0lL TXCJvANYu+0t+/b2H5r2QooOYNvl7tpf7/QOkelScvgPBvftW1Y/+rxQR8Wh EKzhof3XI3/ufmJTc3hUBbLgkb2/edLtu5oaUPc/sa+wWuj0bLWWw2Ggbf2H ntp/mWw6r2SNroMxGDy3Z5wfxjh9jYHDErAHXtjb9B2buvu3kYMo2IOv7Hl2 8U32+W3qAHZO62t743WhR9dzWTl8Axn39Y39o2+FjdV37B3SwOCd/b7DHhPD Sl0cAL38pjw= "], Function[Null, Internal`LocalizedBlock[{$CellContext`aw$12240, \ $CellContext`p1$12240, $CellContext`p2$12240}, #], {HoldAll}], AccuracyGoal -> 3, PrecisionGoal -> 3, Gradient -> "FiniteDifference"], $CellContext`fitData$$ = False, $CellContext`fitDataEnabled$$ = False, $CellContext`fitName$$ = "Oswin", $CellContext`fitOK$$ = True, $CellContext`fitTry$$ = True, $CellContext`fTable$$ = Grid[{{ Row[{ Style[ Subscript["moisture", "GAB"], Italic, 12], Style["(", 12], $CellContext`aws, Style[") = ", 12], Style[ Subscript["m", "0"], Italic, 12], Style[" ", 12], Style["c", Italic, 12], Style[" ", 12], Style["k", Italic, 12], Style[" ", 12], $CellContext`aws, Style[" / ((1 - ", 12], Style["k", Italic, 12], Style[" ", 12], $CellContext`aws, Style[") \[Times] (1 - ", 12] Style["k", Italic, 12], Style[" ", 12], $CellContext`aws, Style[" + ", 12], Style["c", Italic, 12], Style[" ", 12], Style["k", Italic, 12], Style[" ", 12], $CellContext`aws, Style["))", 12]}], SpanFromLeft}, { Row[{ Style[ Subscript["moisture", "Oswin"], Italic, 12], Style["(", 12], $CellContext`aws, Style[") = ", 12], Style[ Subscript["c", "O"], Italic, 12], Style[" (", 12], $CellContext`aws, Style[" / (1 - ", 12], $CellContext`aws, Style[")", 12], Superscript[")", Style[ Subscript["n", "O"], Italic]]}], SpanFromLeft}, { Style["Oswin model", 12], Row[{ Style[ Superscript["r", "2"], Italic, RGBColor[0, 0, 1], 12], Style[" = ", 12], Style["0.9988", RGBColor[0, 0, 1], 12]}]}, {"", Row[{ Style[ Subscript["c", "O"], Italic, 12], Style[" = ", 12], Style["10.6", 12]}]}, {"", Row[{ Style[ Subscript["n", "O"], Italic, 12], Style[" = ", 12], Style["0.5", 12]}]}, {"", ""}, {"", ""}}, Alignment -> Left], $CellContext`initToFitted$$ = False, $CellContext`initToFittedEnabled$$ = True, $CellContext`k$$ = $CellContext`kDef$$, $CellContext`kDef$$ = 0.9, $CellContext`kOld$$ = 0.9, $CellContext`lineColor$$ = RGBColor[ 0.8627450980392157, 0.0784313725490196, 0.23529411764705882`], $CellContext`m0$$ = $CellContext`m0Def$$, \ $CellContext`m0Def$$ = 6., $CellContext`m0Old$$ = 6., $CellContext`model$$ = $CellContext`modelDef$$, \ $CellContext`modelDef$$ = 1, $CellContext`modelOld$$ = 1, $CellContext`n1D$$ = $CellContext`n1DDef$$, $CellContext`n1DDef$$ = 0.5, $CellContext`n1DFit$$ = 0., $CellContext`n1DOld$$ = 0.5, $CellContext`n2D$$ = $CellContext`n2DDef$$, \ $CellContext`n2DDef$$ = 2.5, $CellContext`n2DFit$$ = 0., $CellContext`n2DOld$$ = 2.5, $CellContext`nD$$ = 5, $CellContext`nF$$ = 1, $CellContext`nHa$$ = $CellContext`nHaDef$$, $CellContext`nHaDef$$ = 1.6, $CellContext`nHaFit$$ = 0., $CellContext`nHaOld$$ = 1.6, $CellContext`nHe$$ = $CellContext`nHeDef$$, \ $CellContext`nHeDef$$ = 1., $CellContext`nHeFit$$ = 0., $CellContext`nHeOld$$ = 1., $CellContext`nOs$$ = $CellContext`nOsDef$$, $CellContext`nOsDef$$ = 1., $CellContext`nOsFit$$ = 0.4706234073879689, $CellContext`nOsOld$$ = 1., $CellContext`nPts$$ = $CellContext`nPtsDef$$, \ $CellContext`nPtsDef$$ = 21, $CellContext`nPtsOld$$ = 21, $CellContext`p1P$$ = 10.571546775998563`, $CellContext`p2P$$ = 0.4706234073879689, $CellContext`p3P$$ = 0., $CellContext`p4P$$ = 0., $CellContext`rSq$$ = 0.9987530384115855, $CellContext`xMax$$ = $CellContext`xMaxDef$$, \ $CellContext`xMaxDef$$ = 1., $CellContext`xMaxOld$$ = 1., $CellContext`yMax$$ = $CellContext`yMaxDef$$, \ $CellContext`yMaxDef$$ = 50., $CellContext`yMaxOld$$ = 50.}, "ControllerVariables" :> { Hold[$CellContext`nPtsDef$$, $CellContext`nPtsDef$13765$$, 0], Hold[$CellContext`awMinDef$$, $CellContext`awMinDef$13766$$, 0], Hold[$CellContext`awMaxDef$$, $CellContext`awMaxDef$13767$$, 0], Hold[$CellContext`m0Def$$, $CellContext`m0Def$13768$$, 0], Hold[$CellContext`cDef$$, $CellContext`cDef$13769$$, 0], Hold[$CellContext`kDef$$, $CellContext`kDef$13770$$, 0], Hold[$CellContext`modelDef$$, $CellContext`modelDef$13771$$, 0], Hold[$CellContext`fitDataEnabled$$, \ $CellContext`fitDataEnabled$13772$$, 0], Hold[$CellContext`defResetEnabled$$, \ $CellContext`defResetEnabled$13773$$, 0], Hold[$CellContext`initToFittedEnabled$$, \ $CellContext`initToFittedEnabled$13774$$, 0], Hold[$CellContext`model$$, $CellContext`model$13775$$, False], Hold[$CellContext`fitData$$, $CellContext`fitData$13776$$, False], Hold[$CellContext`defReset$$, $CellContext`defReset$13777$$, False], Hold[$CellContext`initToFitted$$, $CellContext`initToFitted$13778$$, False]}, "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`accuDigits$, $CellContext`aw$, $CellContext`aws$ = Style[ Subscript["a", "w"], Italic, 12], $CellContext`dataGAB$, $CellContext`dataGABPlot$, \ $CellContext`daw$, $CellContext`fitFn$, $CellContext`fitFnPlot$, \ $CellContext`mTitle$ = "", $CellContext`p1$, $CellContext`p1I$, $CellContext`p2$, \ $CellContext`p2I$, $CellContext`p3$, $CellContext`p3I$, $CellContext`p4$, \ $CellContext`p4I$, $CellContext`precDigits$, $CellContext`tTitle$ = Style["moisture sorption isotherm generated data and fitted model", 12], $CellContext`xTitle$, $CellContext`yTitle$ = Style["moisture (%db)", 12]}, ($CellContext`xTitle$ = $CellContext`aws$; Null); $CellContext`accuDigits$ = 3; $CellContext`precDigits$ = 3; $CellContext`nD$$ = 5; $CellContext`nF$$ = Max[$CellContext`precDigits$ - 2, 0]; $CellContext`daw$ = ($CellContext`awMax$$ - \ $CellContext`awMin$$)/($CellContext`nPts$$ - 1); $CellContext`dataGAB$ = Table[$CellContext`aw$ = $CellContext`awMin$$ + ($CellContext`i - 1) $CellContext`daw$; {$CellContext`aw$, $CellContext`moistureGAB[$CellContext`aw$, $CellContext`m0$$, \ $CellContext`c$$, $CellContext`k$$]}, {$CellContext`i, 1, $CellContext`nPts$$}]; Switch[$CellContext`model$$, 1, $CellContext`fitFn$[ Pattern[$CellContext`aw, Blank[]], Pattern[$CellContext`c, Blank[]], Pattern[$CellContext`n, Blank[]], Pattern[$CellContext`x1, Blank[]], Pattern[$CellContext`x2, Blank[]]] := $CellContext`moistureOswin[$CellContext`aw, \ $CellContext`c, $CellContext`n, $CellContext`x1, $CellContext`x2]; \ $CellContext`fitName$$ = "Oswin", 2, $CellContext`fitFn$[ Pattern[$CellContext`aw, Blank[]], Pattern[$CellContext`c1, Blank[]], Pattern[$CellContext`c2, Blank[]], Pattern[$CellContext`x1, Blank[]], Pattern[$CellContext`x2, Blank[]]] := $CellContext`moistureSmith[$CellContext`aw, \ $CellContext`c1, $CellContext`c2, $CellContext`x1, $CellContext`x2]; \ $CellContext`fitName$$ = "Smith", 3, $CellContext`fitFn$[ Pattern[$CellContext`aw, Blank[]], Pattern[$CellContext`c, Blank[]], Pattern[$CellContext`n, Blank[]], Pattern[$CellContext`x1, Blank[]], Pattern[$CellContext`x2, Blank[]]] := $CellContext`moistureHalsey[$CellContext`aw, \ $CellContext`c, $CellContext`n, $CellContext`x1, $CellContext`x2]; \ $CellContext`fitName$$ = "Halsey", 4, $CellContext`fitFn$[ Pattern[$CellContext`aw, Blank[]], Pattern[$CellContext`c, Blank[]], Pattern[$CellContext`n, Blank[]], Pattern[$CellContext`x1, Blank[]], Pattern[$CellContext`x2, Blank[]]] := $CellContext`moistureHenderson[$CellContext`aw, \ $CellContext`c, $CellContext`n, $CellContext`x1, $CellContext`x2]; \ $CellContext`fitName$$ = "Henderson", 5, $CellContext`fitFn$[ Pattern[$CellContext`aw, Blank[]], Pattern[$CellContext`c1, Blank[]], Pattern[$CellContext`c2, Blank[]], Pattern[$CellContext`c3, Blank[]], Pattern[$CellContext`c4, Blank[]]] := $CellContext`moistureDblPower[$CellContext`aw, \ $CellContext`c1, $CellContext`c2, $CellContext`c3, $CellContext`c4]; \ $CellContext`fitName$$ = "double power"]; If[ And[$CellContext`initToFittedEnabled$$, \ $CellContext`initToFitted$$], Switch[$CellContext`model$$, 1, $CellContext`cOs$$ = $CellContext`cOsFit$$; $CellContext`nOs$$ = \ $CellContext`nOsFit$$; $CellContext`p1P$$ = $CellContext`cOs$$; \ $CellContext`p2P$$ = $CellContext`nOs$$; $CellContext`p3P$$ = 0.; $CellContext`p4P$$ = 0., 2, $CellContext`c1S$$ = $CellContext`c1SFit$$; $CellContext`c2S$$ = \ $CellContext`c2SFit$$; $CellContext`p1P$$ = $CellContext`c1S$$; \ $CellContext`p2P$$ = $CellContext`c2S$$; $CellContext`p3P$$ = 0.; $CellContext`p4P$$ = 0., 3, $CellContext`cHa$$ = $CellContext`cHaFit$$; $CellContext`nHa$$ = \ $CellContext`nHaFit$$; $CellContext`p1P$$ = $CellContext`cHa$$; \ $CellContext`p2P$$ = $CellContext`nHa$$; $CellContext`p3P$$ = 0.; $CellContext`p4P$$ = 0., 4, $CellContext`cHe$$ = $CellContext`cHeFit$$; $CellContext`nHe$$ = \ $CellContext`nHeFit$$; $CellContext`p1P$$ = $CellContext`cHe$$; \ $CellContext`p2P$$ = $CellContext`nHe$$; $CellContext`p3P$$ = 0.; $CellContext`p4P$$ = 0., 5, $CellContext`c1D$$ = $CellContext`c1DFit$$; $CellContext`n1D$$ = \ $CellContext`n1DFit$$; $CellContext`c2D$$ = $CellContext`c2DFit$$; \ $CellContext`n2D$$ = $CellContext`n2DFit$$; $CellContext`p1P$$ = \ $CellContext`c1D$$; $CellContext`p2P$$ = $CellContext`n1D$$; \ $CellContext`p3P$$ = $CellContext`c2D$$; $CellContext`p4P$$ = \ $CellContext`n2D$$]; $CellContext`initToFittedEnabled$$ = True; $CellContext`initToFitted$$ = False; $CellContext`defResetEnabled$$ = True; $CellContext`defReset$$ = False; $CellContext`fitDataEnabled$$ = True; $CellContext`fitTry$$ = False; $CellContext`fitOK$$ = False; $CellContext`errMsgs$$ = {}; $CellContext`lineColor$$ = Gray; Unset[$CellContext`rSq$$]]; If[ And[$CellContext`defResetEnabled$$, $CellContext`defReset$$], Switch[$CellContext`model$$, 1, $CellContext`cOs$$ = $CellContext`cOsDef$$; $CellContext`nOs$$ = \ $CellContext`nOsDef$$; $CellContext`p1P$$ = $CellContext`cOs$$; \ $CellContext`p2P$$ = $CellContext`nOs$$; $CellContext`p3P$$ = 0.; $CellContext`p4P$$ = 0., 2, $CellContext`c1S$$ = $CellContext`c1SDef$$; $CellContext`c2S$$ = \ $CellContext`c2SDef$$; $CellContext`p1P$$ = $CellContext`c1S$$; \ $CellContext`p2P$$ = $CellContext`c2S$$; $CellContext`p3P$$ = 0.; $CellContext`p4P$$ = 0., 3, $CellContext`cHa$$ = $CellContext`cHaDef$$; $CellContext`nHa$$ = \ $CellContext`nHaDef$$; $CellContext`p1P$$ = $CellContext`cHa$$; \ $CellContext`p2P$$ = $CellContext`nHa$$; $CellContext`p3P$$ = 0.; $CellContext`p4P$$ = 0., 4, $CellContext`cHe$$ = $CellContext`cHeDef$$; $CellContext`nHe$$ = \ $CellContext`nHeDef$$; $CellContext`p1P$$ = $CellContext`cHe$$; \ $CellContext`p2P$$ = $CellContext`nHe$$; $CellContext`p3P$$ = 0.; $CellContext`p4P$$ = 0., 5, $CellContext`c1D$$ = $CellContext`c1DDef$$; $CellContext`n1D$$ = \ $CellContext`n1DDef$$; $CellContext`c2D$$ = $CellContext`c2DDef$$; \ $CellContext`n2D$$ = $CellContext`n2DDef$$; $CellContext`p1P$$ = \ $CellContext`c1D$$; $CellContext`p2P$$ = $CellContext`n1D$$; \ $CellContext`p3P$$ = $CellContext`c2D$$; $CellContext`p4P$$ = \ $CellContext`n2D$$]; $CellContext`defResetEnabled$$ = True; $CellContext`defReset$$ = False; $CellContext`initToFitted$$ = False; $CellContext`fitDataEnabled$$ = True; $CellContext`fitTry$$ = False; $CellContext`fitOK$$ = False; $CellContext`errMsgs$$ = {}; $CellContext`lineColor$$ = Gray; Unset[$CellContext`rSq$$]]; If[ Or[$CellContext`nPts$$ != $CellContext`nPtsOld$$, \ $CellContext`awMin$$ != $CellContext`awMinOld$$, $CellContext`awMax$$ != \ $CellContext`awMaxOld$$, $CellContext`m0$$ != $CellContext`m0Old$$, \ $CellContext`c$$ != $CellContext`cOld$$, $CellContext`k$$ != \ $CellContext`kOld$$, $CellContext`model$$ != $CellContext`modelOld$$, \ $CellContext`cOs$$ != $CellContext`cOsOld$$, $CellContext`nOs$$ != \ $CellContext`nOsOld$$, $CellContext`c1S$$ != $CellContext`c1SOld$$, \ $CellContext`c2S$$ != $CellContext`c2SOld$$, $CellContext`cHa$$ != \ $CellContext`cHaOld$$, $CellContext`nHa$$ != $CellContext`nHaOld$$, \ $CellContext`cHe$$ != $CellContext`cHeOld$$, $CellContext`nHe$$ != \ $CellContext`nHeOld$$, $CellContext`c1D$$ != $CellContext`c1DOld$$, \ $CellContext`n1D$$ != $CellContext`n1DOld$$, $CellContext`c2D$$ != \ $CellContext`c2DOld$$, $CellContext`n2D$$ != $CellContext`n2DOld$$, \ $CellContext`xMax$$ != $CellContext`xMaxOld$$, $CellContext`yMax$$ != \ $CellContext`yMaxOld$$], Switch[$CellContext`model$$, 1, $CellContext`cOsOld$$ = $CellContext`cOs$$; \ $CellContext`nOsOld$$ = $CellContext`nOs$$; $CellContext`p1P$$ = \ $CellContext`cOs$$; $CellContext`p2P$$ = $CellContext`nOs$$; \ $CellContext`p3P$$ = 0.; $CellContext`p4P$$ = 0., 2, $CellContext`c1SOld$$ = $CellContext`c1S$$; \ $CellContext`c2SOld$$ = $CellContext`c2S$$; $CellContext`p1P$$ = \ $CellContext`c1S$$; $CellContext`p2P$$ = $CellContext`c2S$$; \ $CellContext`p3P$$ = 0.; $CellContext`p4P$$ = 0., 3, $CellContext`cHaOld$$ = $CellContext`cHa$$; \ $CellContext`nHaOld$$ = $CellContext`nHa$$; $CellContext`p1P$$ = \ $CellContext`cHa$$; $CellContext`p2P$$ = $CellContext`nHa$$; \ $CellContext`p3P$$ = 0.; $CellContext`p4P$$ = 0., 4, $CellContext`cHeOld$$ = $CellContext`cHe$$; \ $CellContext`nHeOld$$ = $CellContext`nHe$$; $CellContext`p1P$$ = \ $CellContext`cHe$$; $CellContext`p2P$$ = $CellContext`nHe$$; \ $CellContext`p3P$$ = 0.; $CellContext`p4P$$ = 0., 5, $CellContext`c1DOld$$ = $CellContext`c1D$$; \ $CellContext`n1DOld$$ = $CellContext`n1D$$; $CellContext`c2DOld$$ = \ $CellContext`c2D$$; $CellContext`n2DOld$$ = $CellContext`n2D$$; \ $CellContext`p1P$$ = $CellContext`c1D$$; $CellContext`p2P$$ = \ $CellContext`n1D$$; $CellContext`p3P$$ = $CellContext`c2D$$; \ $CellContext`p4P$$ = $CellContext`n2D$$]; If[$CellContext`model$$ != $CellContext`modelOld$$, \ $CellContext`initToFittedEnabled$$ = False]; $CellContext`nPtsOld$$ = $CellContext`nPts$$; \ $CellContext`awMinOld$$ = $CellContext`awMin$$; $CellContext`awMaxOld$$ = \ $CellContext`awMax$$; $CellContext`m0Old$$ = $CellContext`m0$$; \ $CellContext`cOld$$ = $CellContext`c$$; $CellContext`kOld$$ = \ $CellContext`k$$; $CellContext`modelOld$$ = $CellContext`model$$; \ $CellContext`xMaxOld$$ = $CellContext`xMax$$; $CellContext`yMaxOld$$ = \ $CellContext`yMax$$; $CellContext`initToFitted$$ = False; $CellContext`defResetEnabled$$ = True; $CellContext`defReset$$ = False; $CellContext`fitDataEnabled$$ = True; $CellContext`fitTry$$ = False; $CellContext`fitOK$$ = False; $CellContext`errMsgs$$ = {}; Unset[$CellContext`rSq$$]; $CellContext`lineColor$$ = Gray]; If[ And[$CellContext`fitDataEnabled$$, $CellContext`fitData$$], Off[ MessageName[Power, "infy"], MessageName[Infinity, "indet"], MessageName[FittedModel, "bdfit"], MessageName[NonlinearModelFit, "cvmit"], MessageName[NonlinearModelFit, "nrnum"], MessageName[NonlinearModelFit, "fmgz"]]; $CellContext`fitTry$$ = True; Quiet[ Switch[$CellContext`model$$, 1, $CellContext`p1I$ = $CellContext`cOs$$; $CellContext`p2I$ = \ $CellContext`nOs$$; Unset[$CellContext`p1$]; Unset[$CellContext`p2$]; $CellContext`p3$ = 0.; $CellContext`p4$ = 0.; Unset[$CellContext`fit$$]; Unset[$CellContext`aw$]; Unset[$CellContext`rSq$$]; $CellContext`errMsgs$$ = {}; \ $CellContext`fit$$ = NonlinearModelFit[$CellContext`dataGAB$, $CellContext`fitFn$[$CellContext`aw$, $CellContext`p1$, \ $CellContext`p2$, $CellContext`p3$, $CellContext`p4$], {{$CellContext`p1$, \ $CellContext`p1I$}, {$CellContext`p2$, $CellContext`p2I$}}, $CellContext`aw$, AccuracyGoal -> $CellContext`accuDigits$, PrecisionGoal -> $CellContext`precDigits$, Method -> "Gradient", Gradient -> "FiniteDifference"]; If[Length[$MessageList] == 0, $CellContext`fitOK$$ = True, $CellContext`errMsgs$$ = $MessageList; $MessageList = {}; \ $CellContext`fitOK$$ = False], 2, $CellContext`p1I$ = $CellContext`c1S$$; $CellContext`p2I$ = \ $CellContext`c2S$$; Unset[$CellContext`p1$]; Unset[$CellContext`p2$]; $CellContext`p3$ = 0.; $CellContext`p4$ = 0.; Unset[$CellContext`fit$$]; Unset[$CellContext`aw$]; Unset[$CellContext`rSq$$]; $CellContext`errMsgs$$ = {}; \ $CellContext`fit$$ = NonlinearModelFit[$CellContext`dataGAB$, $CellContext`fitFn$[$CellContext`aw$, $CellContext`p1$, \ $CellContext`p2$, $CellContext`p3$, $CellContext`p4$], {{$CellContext`p1$, \ $CellContext`p1I$}, {$CellContext`p2$, $CellContext`p2I$}}, $CellContext`aw$, AccuracyGoal -> $CellContext`accuDigits$, PrecisionGoal -> $CellContext`precDigits$, Method -> "Gradient", Gradient -> "FiniteDifference"]; If[Length[$MessageList] == 0, $CellContext`fitOK$$ = True, $CellContext`errMsgs$$ = $MessageList; $MessageList = {}; \ $CellContext`fitOK$$ = False], 3, $CellContext`p1I$ = $CellContext`cHa$$; $CellContext`p2I$ = \ $CellContext`nHa$$; Unset[$CellContext`p1$]; Unset[$CellContext`p2$]; $CellContext`p3$ = 0.; $CellContext`p4$ = 0.; Unset[$CellContext`fit$$]; Unset[$CellContext`aw$]; Unset[$CellContext`rSq$$]; $CellContext`errMsgs$$ = {}; \ $CellContext`fit$$ = NonlinearModelFit[$CellContext`dataGAB$, $CellContext`fitFn$[$CellContext`aw$, $CellContext`p1$, \ $CellContext`p2$, $CellContext`p3$, $CellContext`p4$], {{$CellContext`p1$, \ $CellContext`p1I$}, {$CellContext`p2$, $CellContext`p2I$}}, $CellContext`aw$, AccuracyGoal -> $CellContext`accuDigits$, PrecisionGoal -> $CellContext`precDigits$, Method -> "Gradient", Gradient -> "FiniteDifference"]; If[Length[$MessageList] == 0, $CellContext`fitOK$$ = True, $CellContext`errMsgs$$ = $MessageList; $MessageList = {}; \ $CellContext`fitOK$$ = False], 4, $CellContext`p1I$ = $CellContext`cHe$$; $CellContext`p2I$ = \ $CellContext`nHe$$; Unset[$CellContext`p1$]; Unset[$CellContext`p2$]; $CellContext`p3$ = 0.; $CellContext`p4$ = 0.; Unset[$CellContext`fit$$]; Unset[$CellContext`aw$]; Unset[$CellContext`rSq$$]; $CellContext`errMsgs$$ = {}; \ $CellContext`fit$$ = NonlinearModelFit[$CellContext`dataGAB$, $CellContext`fitFn$[$CellContext`aw$, $CellContext`p1$, \ $CellContext`p2$, $CellContext`p3$, $CellContext`p4$], {{$CellContext`p1$, \ $CellContext`p1I$}, {$CellContext`p2$, $CellContext`p2I$}}, $CellContext`aw$, AccuracyGoal -> $CellContext`accuDigits$, PrecisionGoal -> $CellContext`precDigits$, Method -> "Gradient", Gradient -> "FiniteDifference"]; If[Length[$MessageList] == 0, $CellContext`fitOK$$ = True, $CellContext`errMsgs$$ = $MessageList; $MessageList = {}; \ $CellContext`fitOK$$ = False], 5, $CellContext`p1I$ = $CellContext`c1D$$; $CellContext`p2I$ = \ $CellContext`n1D$$; $CellContext`p3I$ = $CellContext`c2D$$; $CellContext`p4I$ = \ $CellContext`n2D$$; Unset[$CellContext`p1$]; Unset[$CellContext`p2$]; Unset[$CellContext`p3$]; Unset[$CellContext`p4$]; Unset[$CellContext`fit$$]; Unset[$CellContext`aw$]; Unset[$CellContext`rSq$$]; $CellContext`errMsgs$$ = {}; \ $CellContext`fit$$ = NonlinearModelFit[$CellContext`dataGAB$, $CellContext`fitFn$[$CellContext`aw$, $CellContext`p1$, \ $CellContext`p2$, $CellContext`p3$, $CellContext`p4$], {{$CellContext`p1$, \ $CellContext`p1I$}, {$CellContext`p2$, $CellContext`p2I$}, {$CellContext`p3$, \ $CellContext`p3I$}, {$CellContext`p4$, $CellContext`p4I$}}, $CellContext`aw$, AccuracyGoal -> $CellContext`accuDigits$, PrecisionGoal -> $CellContext`precDigits$, Method -> "Gradient", Gradient -> "FiniteDifference"]; If[Length[$MessageList] == 0, $CellContext`fitOK$$ = True, $CellContext`errMsgs$$ = $MessageList; $MessageList = {}; \ $CellContext`fitOK$$ = False]]]; If[ And[$CellContext`fitOK$$, NumberQ[ $CellContext`fit$$["RSquared"]], Length[$CellContext`errMsgs$$] == 0], $CellContext`rSq$$ = $CellContext`fit$$["RSquared"]; If[ And[$CellContext`rSq$$ > 0., Im[$CellContext`rSq$$] == 0.], Switch[$CellContext`model$$, 1, $CellContext`cOsFit$$ = Chop[ Part[ $CellContext`fit$$["BestFitParameters"], 1, 2]]; $CellContext`p1P$$ = $CellContext`cOsFit$$; \ $CellContext`nOsFit$$ = Chop[ Part[ $CellContext`fit$$["BestFitParameters"], 2, 2]]; $CellContext`p2P$$ = $CellContext`nOsFit$$; \ $CellContext`p3P$$ = 0.; $CellContext`p4P$$ = 0.; $CellContext`lineColor$$ = ColorData["HTML", "Crimson"], 2, $CellContext`c1SFit$$ = Chop[ Part[ $CellContext`fit$$["BestFitParameters"], 1, 2]]; $CellContext`p1P$$ = $CellContext`c1SFit$$; \ $CellContext`c2SFit$$ = Chop[ Part[ $CellContext`fit$$["BestFitParameters"], 2, 2]]; $CellContext`p2P$$ = $CellContext`c2SFit$$; \ $CellContext`p3P$$ = 0.; $CellContext`p4P$$ = 0.; $CellContext`lineColor$$ = ColorData["HTML", "Green"], 3, $CellContext`cHaFit$$ = Chop[ Part[ $CellContext`fit$$["BestFitParameters"], 1, 2]]; $CellContext`p1P$$ = $CellContext`cHaFit$$; \ $CellContext`nHaFit$$ = Chop[ Part[ $CellContext`fit$$["BestFitParameters"], 2, 2]]; $CellContext`p2P$$ = $CellContext`nHaFit$$; \ $CellContext`p3P$$ = 0.; $CellContext`p4P$$ = 0.; $CellContext`lineColor$$ = ColorData["HTML", "Blue"], 4, $CellContext`cHeFit$$ = Chop[ Part[ $CellContext`fit$$["BestFitParameters"], 1, 2]]; $CellContext`p1P$$ = $CellContext`cHeFit$$; \ $CellContext`nHeFit$$ = Chop[ Part[ $CellContext`fit$$["BestFitParameters"], 2, 2]]; $CellContext`p2P$$ = $CellContext`nHeFit$$; \ $CellContext`p3P$$ = 0.; $CellContext`p4P$$ = 0.; $CellContext`lineColor$$ = ColorData["HTML", "Purple"], 5, $CellContext`c1DFit$$ = Chop[ Part[ $CellContext`fit$$["BestFitParameters"], 1, 2]]; $CellContext`p1P$$ = $CellContext`c1DFit$$; \ $CellContext`n1DFit$$ = Chop[ Part[ $CellContext`fit$$["BestFitParameters"], 2, 2]]; $CellContext`p2P$$ = $CellContext`n1DFit$$; \ $CellContext`c2DFit$$ = Chop[ Part[ $CellContext`fit$$["BestFitParameters"], 3, 2]]; $CellContext`p3P$$ = $CellContext`c2DFit$$; \ $CellContext`n2DFit$$ = Chop[ Part[ $CellContext`fit$$["BestFitParameters"], 4, 2]]; $CellContext`p4P$$ = $CellContext`n2DFit$$; \ $CellContext`lineColor$$ = ColorData["HTML", "Indigo"]]; $CellContext`defResetEnabled$$ = True; $CellContext`initToFittedEnabled$$ = True, $CellContext`lineColor$$ = Gray; $CellContext`initToFittedEnabled$$ = False; $CellContext`initToFitted$$ = False; Switch[$CellContext`model$$, 1, $CellContext`cOsFit$$ = 0.; $CellContext`nOsFit$$ = 0.; $CellContext`p1P$$ = $CellContext`cOs$$; \ $CellContext`p2P$$ = $CellContext`nOs$$; $CellContext`p3P$$ = 0.; $CellContext`p4P$$ = 0., 2, $CellContext`c1SFit$$ = 0.; $CellContext`c2SFit$$ = 0.; $CellContext`p1P$$ = $CellContext`c1S$$; \ $CellContext`p2P$$ = $CellContext`c2S$$; $CellContext`p3P$$ = 0.; $CellContext`p4P$$ = 0., 3, $CellContext`cHaFit$$ = 0.; $CellContext`nHaFit$$ = 0.; $CellContext`p1P$$ = $CellContext`cHa$$; \ $CellContext`p2P$$ = $CellContext`nHa$$; $CellContext`p3P$$ = 0.; $CellContext`p4P$$ = 0., 4, $CellContext`cHeFit$$ = 0.; $CellContext`nHeFit$$ = 0.; $CellContext`p1P$$ = $CellContext`cHe$$; \ $CellContext`p2P$$ = $CellContext`nHe$$; $CellContext`p3P$$ = 0.; $CellContext`p4P$$ = 0., 5, $CellContext`c1DFit$$ = 0.; $CellContext`n1DFit$$ = 0.; $CellContext`c2DFit$$ = 0.; $CellContext`n2DFit$$ = 0.; $CellContext`p1P$$ = $CellContext`c1D$$; \ $CellContext`p2P$$ = $CellContext`n1D$$; $CellContext`p3P$$ = \ $CellContext`c2D$$; $CellContext`p4P$$ = $CellContext`n2D$$]], \ $CellContext`initToFittedEnabled$$ = False; $CellContext`initToFitted$$ = False; $CellContext`lineColor$$ = Gray; Switch[$CellContext`model$$, 1, $CellContext`cOsFit$$ = 0.; $CellContext`nOsFit$$ = 0., 2, $CellContext`c1SFit$$ = 0.; $CellContext`c2SFit$$ = 0., 3, $CellContext`cHaFit$$ = 0.; $CellContext`nHaFit$$ = 0., 4, $CellContext`cHeFit$$ = 0.; $CellContext`nHeFit$$ = 0., 5, $CellContext`c1DFit$$ = 0.; $CellContext`n1DFit$$ = 0.; $CellContext`c2DFit$$ = 0.; $CellContext`n2DFit$$ = 0.]; Null]; If[ And[$CellContext`fitOK$$, Or[Length[$CellContext`errMsgs$$] > 0, Not[ NumberQ[ $CellContext`fit$$["RSquared"]]], $CellContext`fit$$[ "RSquared"] == 0., Length[ $CellContext`fit$$["RSquared"]] == 1]], $CellContext`fitTry$$ = True; $CellContext`fitOK$$ = False; Beep[], $CellContext`fitTry$$ = True; $CellContext`fitOK$$ = True]; Switch[$CellContext`model$$, 1, $CellContext`cOsOld$$ = $CellContext`cOs$$; \ $CellContext`nOsOld$$ = $CellContext`nOs$$, 2, $CellContext`c1SOld$$ = $CellContext`c1S$$; \ $CellContext`c2SOld$$ = $CellContext`c2S$$, 3, $CellContext`cHaOld$$ = $CellContext`cHa$$; \ $CellContext`nHaOld$$ = $CellContext`nHa$$, 4, $CellContext`cHeOld$$ = $CellContext`cHe$$; \ $CellContext`nHeOld$$ = $CellContext`nHe$$, 5, $CellContext`c1DOld$$ = $CellContext`c1D$$; \ $CellContext`n1DOld$$ = $CellContext`n1D$$; $CellContext`c2DOld$$ = \ $CellContext`c2D$$; $CellContext`n2DOld$$ = $CellContext`n2D$$]; \ $CellContext`fitDataEnabled$$ = False; $CellContext`fitData$$ = False; $CellContext`defResetEnabled$$ = True; $CellContext`nPtsOld$$ = $CellContext`nPts$$; \ $CellContext`awMinOld$$ = $CellContext`awMin$$; $CellContext`awMaxOld$$ = \ $CellContext`awMax$$; $CellContext`m0Old$$ = $CellContext`m0$$; \ $CellContext`cOld$$ = $CellContext`c$$; $CellContext`kOld$$ = \ $CellContext`k$$; $CellContext`modelOld$$ = $CellContext`model$$; \ $CellContext`xMaxOld$$ = $CellContext`xMax$$; $CellContext`yMaxOld$$ = \ $CellContext`yMax$$]; $CellContext`fTable$$ = \ $CellContext`fitTable[$CellContext`model$$, $CellContext`fitTry$$, \ $CellContext`fitOK$$, $CellContext`fitName$$, $CellContext`rSq$$, \ $CellContext`p1P$$, $CellContext`p2P$$, $CellContext`p3P$$, \ $CellContext`p4P$$, $CellContext`nD$$, $CellContext`nF$$]; Text[ Column[{$CellContext`fTable$$, $CellContext`dataGABPlot$ = ListPlot[$CellContext`dataGAB$, PlotRange -> {{0., $CellContext`xMax$$}, { 0., $CellContext`yMax$$}}, PlotStyle -> { AbsolutePointSize[6], Black}, Frame -> True]; $CellContext`fitFnPlot$ = Plot[ $CellContext`fitFn$[$CellContext`aw$, $CellContext`p1P$$, \ $CellContext`p2P$$, $CellContext`p3P$$, $CellContext`p4P$$], \ {$CellContext`aw$, 0., $CellContext`xMax$$}, PlotRange -> {{0., $CellContext`xMax$$}, { 0., $CellContext`yMax$$}}, PlotStyle -> {Thick, $CellContext`lineColor$$}, Frame -> True]; Show[$CellContext`dataGABPlot$, $CellContext`fitFnPlot$, PlotLabel -> $CellContext`mTitle$, FrameLabel -> {{$CellContext`yTitle$, None}, {$CellContext`xTitle$, $CellContext`tTitle$}}, ImageSize -> {360, 222}]}]]], "Specifications" :> {{$CellContext`nPtsDef$$, 21, 21, ControlType -> None}, {$CellContext`awMinDef$$, 0.05, 0.05, ControlType -> None}, {$CellContext`awMaxDef$$, 0.95, 0.95, ControlType -> None}, {$CellContext`m0Def$$, 6., 6., ControlType -> None}, {$CellContext`cDef$$, 15., 15., ControlType -> None}, {$CellContext`kDef$$, 0.9, 0.9, ControlType -> None}, {$CellContext`modelDef$$, 1, 1, ControlType -> None}, {{$CellContext`fitDataEnabled$$, False}, True, True, ControlType -> None}, {$CellContext`defResetEnabled$$, True, True, ControlType -> None}, {{$CellContext`initToFittedEnabled$$, True}, False, False, ControlType -> None}, {$CellContext`cOsDef$$, 10., 10., ControlType -> None}, {$CellContext`nOsDef$$, 1., 1., ControlType -> None}, {$CellContext`c1SDef$$, 0., 0., ControlType -> None}, {$CellContext`c2SDef$$, -18., -18., ControlType -> None}, {$CellContext`cHaDef$$, 12., 12., ControlType -> None}, {$CellContext`nHaDef$$, 1.6, 1.6, ControlType -> None}, {$CellContext`cHeDef$$, 0.06, 0.06, ControlType -> None}, {$CellContext`nHeDef$$, 1., 1., ControlType -> None}, {$CellContext`c1DDef$$, 10., 10., ControlType -> None}, {$CellContext`n1DDef$$, 0.5, 0.5, ControlType -> None}, {$CellContext`c2DDef$$, 20., 20., ControlType -> None}, {$CellContext`n2DDef$$, 2.5, 2.5, ControlType -> None}, {$CellContext`xMaxDef$$, 1., 1., ControlType -> None}, {$CellContext`yMaxDef$$, 50., 50., ControlType -> None}, Row[{ Style["GAB model data generation", Bold, 10], Spacer[32]}], {{$CellContext`nPts$$, $CellContext`nPtsDef$$, Style["points"]}, 5, 31, 1, Appearance -> "Labeled", ImageSize -> Small}, {{$CellContext`awMin$$, $CellContext`awMinDef$$, Style[ Subscript["a", "w min"], Italic]}, 0., 0.45, Appearance -> "Labeled", ImageSize -> Small}, {{$CellContext`awMax$$, $CellContext`awMaxDef$$, Style[ Subscript["a", "w max"], Italic]}, 0.55, 0.95, Appearance -> "Labeled", ImageSize -> Small}, Style[""], {{$CellContext`m0$$, $CellContext`m0Def$$, Style[ Subscript["m", "0"], Italic]}, 1., 20., Appearance -> "Labeled", ImageSize -> Small}, {{$CellContext`c$$, $CellContext`cDef$$, Style["c", Italic]}, 0.2, 50., Appearance -> "Labeled", ImageSize -> Small}, {{$CellContext`k$$, $CellContext`kDef$$, Style["k", Italic]}, 0.2, 0.99, Appearance -> "Labeled", ImageSize -> Small}, Delimiter, Row[{ Spacer[20], Style[ "model to fit to GAB\[Hyphen]generated data", Bold, 10]}], {{$CellContext`model$$, $CellContext`modelDef$$, ""}, { 1 -> Style["Oswin", RGBColor[ 0.8627450980392157, 0.0784313725490196, 0.23529411764705882`]], 2 -> Style["Smith", RGBColor[0, 0.5019607843137255, 0]], 3 -> Style["Halsey", RGBColor[0, 0, 1.]], 4 -> Style["Henderson", RGBColor[0.5019607843137255, 0, 0.5019607843137255]], 5 -> Style["double power", RGBColor[0.29411764705882354`, 0, 0.5098039215686274]]}, ImageSize -> Small, ControlPlacement -> 1}, Row[{ Manipulate`Place[1]}], Style[ "\n", 10], {{$CellContext`fitData$$, False, ""}, { True -> "fit selected model to data and plot results"}, ControlType -> Setter, Enabled -> Dynamic[$CellContext`fitDataEnabled$$], Background -> Dynamic[ If[$CellContext`fitDataEnabled$$, ColorData["HTML", "LightGreen"], None]], ControlPlacement -> 2}, Row[{ Spacer[5], Manipulate`Place[2]}], Style[ "\nbefore next fit, set initial parameters to", Bold, 10], {{$CellContext`defReset$$, False, ""}, { True -> "default values"}, ControlType -> Setter, Enabled -> Dynamic[$CellContext`defResetEnabled$$], Background -> Dynamic[ If[$CellContext`defResetEnabled$$, LightRed, None]], ControlPlacement -> 3}, {{$CellContext`initToFitted$$, False, ""}, { True -> "last fitted values"}, ControlType -> Setter, Enabled -> Dynamic[$CellContext`initToFittedEnabled$$], Background -> Dynamic[ If[$CellContext`initToFittedEnabled$$, LightBlue, None]], ControlPlacement -> 4}, Row[{ Spacer[10], Manipulate`Place[3], Spacer[20], Manipulate`Place[4]}], Style[ "\ninitial parameter values", Bold, 10], {{$CellContext`cOs$$, $CellContext`cOsDef$$, Style[ Subscript["c", "O"], Italic]}, 0.05, 15., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 5}, {{$CellContext`nOs$$, $CellContext`nOsDef$$, Style[ Subscript["n", "O"], Italic]}, 0.2, 2., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 6}, {{$CellContext`c1S$$, $CellContext`c1SDef$$, Style[ Subscript["c", Subscript["1", "S"]], Italic]}, -2., 3., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 7}, {{$CellContext`c2S$$, $CellContext`c2SDef$$, Style[ Subscript["c", Subscript["2", "S"]], Italic]}, -40., 5., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 8}, {{$CellContext`cHa$$, $CellContext`cHaDef$$, Style[ Subscript["c", "Ha"], Italic]}, 0.001, 100., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 9}, {{$CellContext`nHa$$, $CellContext`nHaDef$$, Style[ Subscript["n", "Ha"], Italic]}, 0.01, 5., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 10}, {{$CellContext`cHe$$, $CellContext`cHeDef$$, Style[ Subscript["c", "He"], Italic]}, 0.01, 3., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 11}, {{$CellContext`nHe$$, $CellContext`nHeDef$$, Style[ Subscript["n", "He"], Italic]}, 0.1, 2., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 12}, {{$CellContext`c1D$$, $CellContext`c1DDef$$, Style[ Subscript["c", "1"], Italic]}, 0., 100., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 13}, {{$CellContext`n1D$$, $CellContext`n1DDef$$, Style[ Subscript["n", "1"], Italic]}, 0., 15., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 14}, {{$CellContext`c2D$$, $CellContext`c2DDef$$, Style[ Subscript["c", "2"], Italic]}, 0., 25., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 15}, {{$CellContext`n2D$$, $CellContext`n2DDef$$, Style[ Subscript["n", "2"], Italic]}, -0.5, 20., Appearance -> "Labeled", ImageSize -> Small, ControlPlacement -> 16}, PaneSelector[{1 -> Column[{ Manipulate`Place[5], Manipulate`Place[6]}], 2 -> Column[{ Manipulate`Place[7], Manipulate`Place[8]}], 3 -> Column[{ Manipulate`Place[9], Manipulate`Place[10]}], 4 -> Column[{ Manipulate`Place[11], Manipulate`Place[12]}], 5 -> Column[{ Manipulate`Place[13], Manipulate`Place[14], Manipulate`Place[15], Manipulate`Place[16]}]}, Dynamic[$CellContext`model$$]], Delimiter, Style[ "axes maxima", Bold, 10], {{$CellContext`xMax$$, $CellContext`xMaxDef$$, Style[ Subscript["a", "w"], Italic]}, 0.1, 1., Appearance -> "Labeled", ImageSize -> Small}, {{$CellContext`yMax$$, $CellContext`yMaxDef$$, Style["moisture"]}, 5., 100., Appearance -> "Labeled", ImageSize -> Small}, {$CellContext`nPtsOld$$, 21, 21, ControlType -> None}, {$CellContext`awMinOld$$, 0.05, 0.05, ControlType -> None}, {$CellContext`awMaxOld$$, 0.95, 0.95, ControlType -> None}, {$CellContext`m0Old$$, 6., 6., ControlType -> None}, {$CellContext`cOld$$, 15., 15., ControlType -> None}, {$CellContext`kOld$$, 0.9, 0.9, ControlType -> None}, {$CellContext`modelOld$$, 1, 1, ControlType -> None}, {$CellContext`cOsOld$$, 10., 10., ControlType -> None}, {$CellContext`nOsOld$$, 1., 1., ControlType -> None}, {$CellContext`c1SOld$$, 0., 0., ControlType -> None}, {$CellContext`c2SOld$$, -18., -18., ControlType -> None}, {$CellContext`cHaOld$$, 12., 12., ControlType -> None}, {$CellContext`nHaOld$$, 1.6, 1.6, ControlType -> None}, {$CellContext`cHeOld$$, 0.06, 0.06, ControlType -> None}, {$CellContext`nHeOld$$, 1., 1., ControlType -> None}, {$CellContext`c1DOld$$, 10., 10., ControlType -> None}, {$CellContext`n1DOld$$, 0.5, 0.5, ControlType -> None}, {$CellContext`c2DOld$$, 20., 10., ControlType -> None}, {$CellContext`n2DOld$$, 2.5, 2.5, ControlType -> None}, {$CellContext`xMaxOld$$, 1., 1., ControlType -> None}, {$CellContext`yMaxOld$$, 50., 50., ControlType -> None}, {{$CellContext`p1P$$, 10.571546775998563`}, 10., 10., ControlType -> None}, {{$CellContext`p2P$$, 0.4706234073879689}, 1., 1., ControlType -> None}, {{$CellContext`p3P$$, 0.}, 10., 10., ControlType -> None}, {{$CellContext`p4P$$, 0.}, 1., 1., ControlType -> None}, {{$CellContext`cOsFit$$, 10.571546775998563`}, 0., 0., ControlType -> None}, {{$CellContext`nOsFit$$, 0.4706234073879689}, 0., 0., ControlType -> None}, {$CellContext`c1SFit$$, 0., 0., ControlType -> None}, {$CellContext`c2SFit$$, 0., 0., ControlType -> None}, {$CellContext`cHaFit$$, 0., 0., ControlType -> None}, {$CellContext`nHaFit$$, 0., 0., ControlType -> None}, {$CellContext`cHeFit$$, 0., 0., ControlType -> None}, {$CellContext`nHeFit$$, 0., 0., ControlType -> None}, {$CellContext`c1DFit$$, 0., 0., ControlType -> None}, {$CellContext`n1DFit$$, 0., 0., ControlType -> None}, {$CellContext`c2DFit$$, 0., 0., ControlType -> None}, {$CellContext`n2DFit$$, 0., 0., ControlType -> None}, {{$CellContext`lineColor$$, RGBColor[ 0.8627450980392157, 0.0784313725490196, 0.23529411764705882`]}, GrayLevel[0.5], GrayLevel[0.5], ControlType -> None}, {{$CellContext`fit$$, FittedModel[{ "Nonlinear", {$CellContext`p1$12240 -> 10.571546775998563`, $CellContext`p2$12240 -> 0.4706234073879689}, {{$CellContext`aw$12240}, If[$CellContext`aw$12240 == 0., 0., $CellContext`p1$12240 ($CellContext`aw$12240/( 1. - $CellContext`aw$12240))^$CellContext`p2$12240]}}, { 1}, CompressedData[" 1:eJxTTMoPSmViYGAQBWIQPWsmCKy099h0uyv2AotD0A651teBO+wFdhS+O7KY z+FNIEjgoP2mebeYHx0Tcljn/rBKZN1x+9LoQ8uvThN1KLDlur644Kw9367o 1TOlJRzAxs28aG/y1rV7f4uUQ7UISMcV++UZPQFWH2QcYvoPfdWIuW7/+0lL TXCJvANYu+0t+/b2H5r2QooOYNvl7tpf7/QOkelScvgPBvftW1Y/+rxQR8Wh EKzhof3XI3/ufmJTc3hUBbLgkb2/edLtu5oaUPc/sa+wWuj0bLWWw2Ggbf2H ntp/mWw6r2SNroMxGDy3Z5wfxjh9jYHDErAHXtjb9B2buvu3kYMo2IOv7Hl2 8U32+W3qAHZO62t743WhR9dzWTl8Axn39Y39o2+FjdV37B3SwOCd/b7DHhPD Sl0cAL38pjw= "], Function[Null, Internal`LocalizedBlock[{$CellContext`aw$12240, \ $CellContext`p1$12240, $CellContext`p2$12240}, #], {HoldAll}], AccuracyGoal -> 3, PrecisionGoal -> 3, Gradient -> "FiniteDifference"]}, {}, {}, ControlType -> None}, {$CellContext`nD$$, 5, 5, ControlType -> None}, {{$CellContext`nF$$, 1}, 2, 2, ControlType -> None}, {{$CellContext`rSq$$, 0.9987530384115855}, 0., 0., ControlType -> None}, {{$CellContext`fitName$$, "Oswin"}, "", "", ControlType -> None}, {{$CellContext`fitTry$$, True}, False, False, ControlType -> None}, {{$CellContext`fitOK$$, True}, False, False, ControlType -> None}, {{$CellContext`fTable$$, Grid[{{ Row[{ Style[ Subscript["moisture", "GAB"], Italic, 12], Style["(", 12], $CellContext`aws, Style[") = ", 12], Style[ Subscript["m", "0"], Italic, 12], Style[" ", 12], Style["c", Italic, 12], Style[" ", 12], Style["k", Italic, 12], Style[" ", 12], $CellContext`aws, Style[" / ((1 - ", 12], Style["k", Italic, 12], Style[" ", 12], $CellContext`aws, Style[") \[Times] (1 - ", 12] Style["k", Italic, 12], Style[" ", 12], $CellContext`aws, Style[" + ", 12], Style["c", Italic, 12], Style[" ", 12], Style["k", Italic, 12], Style[" ", 12], $CellContext`aws, Style["))", 12]}], SpanFromLeft}, { Row[{ Style[ Subscript["moisture", "Oswin"], Italic, 12], Style["(", 12], $CellContext`aws, Style[") = ", 12], Style[ Subscript["c", "O"], Italic, 12], Style[" (", 12], $CellContext`aws, Style[" / (1 - ", 12], $CellContext`aws, Style[")", 12], Superscript[")", Style[ Subscript["n", "O"], Italic]]}], SpanFromLeft}, { Style["Oswin model", 12], Row[{ Style[ Superscript["r", "2"], Italic, RGBColor[0, 0, 1], 12], Style[" = ", 12], Style["0.9988", RGBColor[0, 0, 1], 12]}]}, {"", Row[{ Style[ Subscript["c", "O"], Italic, 12], Style[" = ", 12], Style["10.6", 12]}]}, {"", Row[{ Style[ Subscript["n", "O"], Italic, 12], Style[" = ", 12], Style["0.5", 12]}]}, {"", ""}, {"", ""}}, Alignment -> Left]}, {}, {}, ControlType -> None}, {$CellContext`errMsgs$$, {}, {}, ControlType -> None}}, "Options" :> { ControlPlacement -> Left, AutorunSequencing -> {1}, TrackedSymbols :> {$CellContext`nPts$$, $CellContext`awMin$$, \ $CellContext`awMax$$, $CellContext`m0$$, $CellContext`c$$, $CellContext`k$$, \ $CellContext`model$$, $CellContext`fitData$$, $CellContext`defReset$$, \ $CellContext`initToFitted$$, $CellContext`cOs$$, $CellContext`nOs$$, \ $CellContext`c1S$$, $CellContext`c2S$$, $CellContext`cHa$$, \ $CellContext`nHa$$, $CellContext`cHe$$, $CellContext`nHe$$, \ $CellContext`c1D$$, $CellContext`n1D$$, $CellContext`c2D$$, \ $CellContext`n2D$$, $CellContext`xMax$$, $CellContext`yMax$$}}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{661., {266., 271.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>(({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, 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.6379`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.6379`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[$CellContext`b, 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[$CellContext`B, $CellContext`rb, Blank[]] = 50, Underoverscript[ Row[{ Subscript[$CellContext`e, $CellContext`T], $CellContext`\[Phi]}], \ $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[$CellContext`B, $CellContext`rg, Blank[]] = 40, Underoverscript[ Row[{ Subscript[$CellContext`e, $CellContext`S], $CellContext`\[Phi]}], \ $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[$CellContext`b, $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[$CellContext`b, Blank[]]}]], $CellContext`bg, Blank[]] = 167, Underoverscript[ Superscript[$CellContext`g, Row[{$CellContext`g, Overscript[$CellContext`b, 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[$CellContext`b, 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[$CellContext`B, $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, 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[]], $CellContext`b]] := $CellContext`pAnti[ Underoverscript[$CellContext`prt, $CellContext`rg, Blank[]]], Pattern[$CellContext`antiExPattern, Underscript[ Pattern[$CellContext`prt, Blank[]], "\" \""]] := $CellContext`pAnti[ Overscript[$CellContext`prt, 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, $CellContext`b}, {$CellContext`u, \ $CellContext`c, $CellContext`t}}, {{ Superscript[$CellContext`g, Row[{$CellContext`g, Overscript[$CellContext`b, Blank[]]}]], Superscript[$CellContext`g, Row[{$CellContext`r, Overscript[$CellContext`b, 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]}], $CellContext`B}}, {{ 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, $CellContext`b, $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, $CellContext`moistureGAB[ Pattern[$CellContext`aw, Blank[]], Pattern[$CellContext`m0, Blank[]], Pattern[$CellContext`c, Blank[]], Pattern[$CellContext`k, Blank[]]] := $CellContext`m0 $CellContext`c $CellContext`k \ ($CellContext`aw/((1. - $CellContext`k $CellContext`aw) ( 1. - $CellContext`k $CellContext`aw + $CellContext`c \ $CellContext`k $CellContext`aw))), $CellContext`moistureOswin[ Pattern[$CellContext`aw, Blank[]], Pattern[$CellContext`c, Blank[]], Pattern[$CellContext`n, Blank[]], Pattern[$CellContext`x1, Blank[]], Pattern[$CellContext`x2, Blank[]]] := If[$CellContext`aw == 0., 0., $CellContext`c ($CellContext`aw/( 1. - $CellContext`aw))^$CellContext`n], $CellContext`moistureSmith[ Pattern[$CellContext`aw, Blank[]], Pattern[$CellContext`c1, Blank[]], Pattern[$CellContext`c2, Blank[]], Pattern[$CellContext`x1, Blank[]], Pattern[$CellContext`x2, Blank[]]] := If[$CellContext`aw == 0., 0., $CellContext`c1 + $CellContext`c2 Log[1. - $CellContext`aw]], $CellContext`moistureHalsey[ Pattern[$CellContext`aw, Blank[]], Pattern[$CellContext`c, Blank[]], Pattern[$CellContext`n, Blank[]], Pattern[$CellContext`x1, Blank[]], Pattern[$CellContext`x2, Blank[]]] := If[$CellContext`aw == 0., 0., (-($CellContext`c/Log[$CellContext`aw]))^( 1./$CellContext`n)], $CellContext`moistureHenderson[ Pattern[$CellContext`aw, Blank[]], Pattern[$CellContext`c, Blank[]], Pattern[$CellContext`n, Blank[]], Pattern[$CellContext`x1, Blank[]], Pattern[$CellContext`x2, Blank[]]] := If[$CellContext`aw == 0., 0., (-(Log[1. - $CellContext`aw]/$CellContext`c))^( 1./$CellContext`n)], $CellContext`moistureDblPower[ Pattern[$CellContext`aw, Blank[]], Pattern[$CellContext`c1, Blank[]], Pattern[$CellContext`n1, Blank[]], Pattern[$CellContext`c2, Blank[]], Pattern[$CellContext`n2, Blank[]]] := If[$CellContext`aw == 0., 0., $CellContext`c1 $CellContext`aw^$CellContext`n1 + \ $CellContext`c2 $CellContext`aw^$CellContext`n2], $CellContext`fitTable[ Pattern[$CellContext`model, Blank[]], Pattern[$CellContext`fitTry, Blank[]], Pattern[$CellContext`fitOK, Blank[]], Pattern[$CellContext`fitName, Blank[]], Pattern[$CellContext`rSq, Blank[]], Pattern[$CellContext`v1, Blank[]], Pattern[$CellContext`v2, Blank[]], Pattern[$CellContext`v3, Blank[]], Pattern[$CellContext`v4, Blank[]], Pattern[$CellContext`nD, Blank[]], Pattern[$CellContext`nF, Blank[]]] := Module[{$CellContext`eq = " = ", $CellContext`eqn, $CellContext`eqnGAB, $CellContext`fitMod, \ $CellContext`fitMsg = "", $CellContext`mName, $CellContext`ps1 = "", $CellContext`ps2 = "", $CellContext`ps3 = "", $CellContext`ps4 = ""}, $CellContext`eqnGAB = Row[{ Style[ Subscript["moisture", "GAB"], Italic, 12], Style["(", 12], $CellContext`aws, Style[") = ", 12], Style[ Subscript["m", "0"], Italic, 12], Style[" ", 12], Style["c", Italic, 12], Style[" ", 12], Style["k", Italic, 12], Style[" ", 12], $CellContext`aws, Style[" / ((1 - ", 12], Style["k", Italic, 12], Style[" ", 12], $CellContext`aws, Style[") \[Times] (1 - ", 12] Style["k", Italic, 12], Style[" ", 12], $CellContext`aws, Style[" + ", 12], Style["c", Italic, 12], Style[" ", 12], Style["k", Italic, 12], Style[" ", 12], $CellContext`aws, Style["))", 12]}]; $CellContext`mName = Style[ Subscript["moisture", $CellContext`fitName], Italic, 12]; $CellContext`fitMod = Style[ StringJoin[$CellContext`fitName, " model"], 12]; If[ Not[$CellContext`fitTry], $CellContext`fitMsg = "", If[$CellContext`fitOK, $CellContext`fitMsg = Row[{ Style[ Superscript["r", "2"], Italic, Blue, 12], Style[$CellContext`eq, 12], Style[ ToString[ NumberForm[$CellContext`rSq, {5, 4}]], Blue, 12]}], $CellContext`fitMsg = Style["Fit Failed!", Bold, Red, 12]]]; Switch[$CellContext`model, 1, $CellContext`eqn = Row[{$CellContext`mName, Style["(", 12], $CellContext`aws, Style[") = ", 12], Style[ Subscript["c", "O"], Italic, 12], Style[" (", 12], $CellContext`aws, Style[" / (1 - ", 12], $CellContext`aws, Style[")", 12], Superscript[")", Style[ Subscript["n", "O"], Italic]]}]; If[$CellContext`fitOK, $CellContext`ps1 = Row[{ Style[ Subscript["c", "O"], Italic, 12], Style[$CellContext`eq, 12], Style[ ToString[ NumberForm[$CellContext`v1, {$CellContext`nD, \ $CellContext`nF}]], 12]}]; $CellContext`ps2 = Row[{ Style[ Subscript["n", "O"], Italic, 12], Style[$CellContext`eq, 12], Style[ ToString[ NumberForm[$CellContext`v2, {$CellContext`nD, \ $CellContext`nF}]], 12]}], $CellContext`ps1 = ""; $CellContext`ps2 = ""]; $CellContext`ps3 = ""; $CellContext`ps4 = "", 2, $CellContext`eqn = Row[{$CellContext`mName, Style["(", 12], $CellContext`aws, Style[") = ", 12], Style[ Subscript["c", Subscript["1", "S"]], Italic, 12], Style[" + ", 12], Style[ Subscript["c", Subscript["2", "S"]], Italic, 12], Style[" log(1 - ", 12], $CellContext`aws, Style[")", 12]}]; If[$CellContext`fitOK, $CellContext`ps1 = Row[{ Style[ Subscript["c", Subscript["1", "S"]], Italic, 12], Style[$CellContext`eq, 12], Style[ ToString[ NumberForm[$CellContext`v1, {$CellContext`nD, \ $CellContext`nF}]], 12]}]; $CellContext`ps2 = Row[{ Style[ Subscript["c", Subscript["2", "S"]], Italic, 12], Style[$CellContext`eq, 12], Style[ ToString[ NumberForm[$CellContext`v2, {$CellContext`nD, \ $CellContext`nF}]], 12]}], $CellContext`ps1 = ""; $CellContext`ps2 = ""]; $CellContext`ps3 = ""; $CellContext`ps4 = "", 3, $CellContext`eqn = Row[{$CellContext`mName, Style["(", 12], $CellContext`aws, Style[") = ", 12], Style["(-", 12], Style[ Subscript["c", "Ha"], Italic, 12], Style["/log(", 12], $CellContext`aws, Style[")", 12], Superscript[")", Row[{ Style["(1/", 12], Style[ Subscript["n", "Ha"], Italic, 12], Style[")", 12]}]]}]; If[$CellContext`fitOK, $CellContext`ps1 = Row[{ Style[ Subscript["c", "Ha"], Italic, 12], Style[$CellContext`eq, 12], Style[ ToString[ NumberForm[$CellContext`v1, {$CellContext`nD, \ $CellContext`nF}]], 12]}]; $CellContext`ps2 = Row[{ Style[ Subscript["n", "Ha"], Italic, 12], Style[$CellContext`eq, 12], Style[ ToString[ NumberForm[$CellContext`v2, {$CellContext`nD, \ $CellContext`nF}]], 12]}], $CellContext`ps1 = ""; $CellContext`ps2 = ""]; $CellContext`ps3 = ""; $CellContext`ps4 = "", 4, $CellContext`eqn = Row[{$CellContext`mName, Style["(", 12], $CellContext`aws, Style[") = ", 12], Style["(-log(1 - ", 12], $CellContext`aws, Style[")/", 12], Style[ Subscript["c", "He"], Italic, 12], Superscript[")", Row[{ Style["(1/", 12], Style[ Subscript["n", "He"], Italic, 12], Style[")", 12]}]]}]; If[$CellContext`fitOK, $CellContext`ps1 = Row[{ Style[ Subscript["c", "He"], Italic, 12], Style[$CellContext`eq, 12], Style[ ToString[ NumberForm[$CellContext`v1, {$CellContext`nD, \ $CellContext`nF}]], 12]}]; $CellContext`ps2 = Row[{ Style[ Subscript["n", "He"], Italic, 12], Style[$CellContext`eq, 12], Style[ ToString[ NumberForm[$CellContext`v2, {$CellContext`nD, \ $CellContext`nF}]], 12]}], $CellContext`ps1 = ""; $CellContext`ps2 = ""]; $CellContext`ps3 = ""; $CellContext`ps4 = "", 5, $CellContext`eqn = Row[{$CellContext`mName, Style["(", 12], $CellContext`aws, Style[") = ", 12], Style[ Subscript["c", "1"], Italic, 12], Style[" ", 12], Superscript[$CellContext`aws, Style[ Subscript["n", "1"], Italic, 12]], Style[" + ", 12], Style[ Subscript["c", "2"], Italic, 12], Style[" ", 12], Superscript[$CellContext`aws, Style[ Subscript["n", "2"], Italic, 12]]}]; If[$CellContext`fitOK, $CellContext`ps1 = Row[{ Style[ Subscript["c", "1"], Italic, 12], Style[$CellContext`eq, 12], Style[ ToString[ NumberForm[$CellContext`v1, {$CellContext`nD, \ $CellContext`nF}]], 12]}]; $CellContext`ps2 = Row[{ Style[ Subscript["n", "1"], Italic, 12], Style[$CellContext`eq, 12], Style[ ToString[ NumberForm[$CellContext`v2, {$CellContext`nD, \ $CellContext`nF}]], 12]}]; $CellContext`ps3 = Row[{ Style[ Subscript["c", "2"], Italic, 12], Style[$CellContext`eq, 12], Style[ ToString[ NumberForm[$CellContext`v3, {$CellContext`nD, \ $CellContext`nF}]], 12]}]; $CellContext`ps4 = Row[{ Style[ Subscript["n", "2"], Italic, 12], Style[$CellContext`eq, 12], Style[ ToString[ NumberForm[$CellContext`v4, {$CellContext`nD, \ $CellContext`nF}]], 12]}], $CellContext`ps1 = ""; $CellContext`ps2 = ""; $CellContext`ps3 = ""; $CellContext`ps4 = ""]]; Grid[{{$CellContext`eqnGAB, SpanFromLeft}, {$CellContext`eqn, SpanFromLeft}, {$CellContext`fitMod, $CellContext`fitMsg}, { "", $CellContext`ps1}, {"", $CellContext`ps2}, { "", $CellContext`ps3}, {"", $CellContext`ps4}}, Alignment -> Left]], Attributes[PlotRange] = {ReadProtected}, Attributes[$CellContext`p1$12240] = {Temporary}, Attributes[$CellContext`p2$12240] = {Temporary}, Attributes[$CellContext`aw$12240] = {Temporary}}; Typeset`initDone$$ = True); ReleaseHold[ HoldComplete[{($CellContext`moistureGAB[ Pattern[$CellContext`aw, Blank[]], Pattern[$CellContext`m0, Blank[]], Pattern[$CellContext`c, Blank[]], Pattern[$CellContext`k, Blank[]]] := $CellContext`m0 $CellContext`c $CellContext`k \ ($CellContext`aw/((1. - $CellContext`k $CellContext`aw) ( 1. - $CellContext`k $CellContext`aw + $CellContext`c \ $CellContext`k $CellContext`aw))); Null) ($CellContext`moistureOswin[ Pattern[$CellContext`aw, Blank[]], Pattern[$CellContext`c, Blank[]], Pattern[$CellContext`n, Blank[]], Pattern[$CellContext`x1, Blank[]], Pattern[$CellContext`x2, Blank[]]] := If[$CellContext`aw == 0., 0., $CellContext`c ($CellContext`aw/( 1. - $CellContext`aw))^$CellContext`n]; Null) ($CellContext`moistureSmith[ Pattern[$CellContext`aw, Blank[]], Pattern[$CellContext`c1, Blank[]], Pattern[$CellContext`c2, Blank[]], Pattern[$CellContext`x1, Blank[]], Pattern[$CellContext`x2, Blank[]]] := If[$CellContext`aw == 0., 0., $CellContext`c1 + $CellContext`c2 Log[1. - $CellContext`aw]]; Null) ($CellContext`moistureHalsey[ Pattern[$CellContext`aw, Blank[]], Pattern[$CellContext`c, Blank[]], Pattern[$CellContext`n, Blank[]], Pattern[$CellContext`x1, Blank[]], Pattern[$CellContext`x2, Blank[]]] := If[$CellContext`aw == 0., 0., ((-$CellContext`c)/Log[$CellContext`aw])^( 1./$CellContext`n)]; Null) ($CellContext`moistureHenderson[ Pattern[$CellContext`aw, Blank[]], Pattern[$CellContext`c, Blank[]], Pattern[$CellContext`n, Blank[]], Pattern[$CellContext`x1, Blank[]], Pattern[$CellContext`x2, Blank[]]] := If[$CellContext`aw == 0., 0., ((-Log[1. - $CellContext`aw])/$CellContext`c)^( 1./$CellContext`n)]; Null) ($CellContext`moistureDblPower[ Pattern[$CellContext`aw, Blank[]], Pattern[$CellContext`c1, Blank[]], Pattern[$CellContext`n1, Blank[]], Pattern[$CellContext`c2, Blank[]], Pattern[$CellContext`n2, Blank[]]] := If[$CellContext`aw == 0., 0., $CellContext`c1 $CellContext`aw^$CellContext`n1 + \ $CellContext`c2 $CellContext`aw^$CellContext`n2]; Null) ($CellContext`fitTable[ Pattern[$CellContext`model, Blank[]], Pattern[$CellContext`fitTry, Blank[]], Pattern[$CellContext`fitOK, Blank[]], Pattern[$CellContext`fitName, Blank[]], Pattern[$CellContext`rSq, Blank[]], Pattern[$CellContext`v1, Blank[]], Pattern[$CellContext`v2, Blank[]], Pattern[$CellContext`v3, Blank[]], Pattern[$CellContext`v4, Blank[]], Pattern[$CellContext`nD, Blank[]], Pattern[$CellContext`nF, Blank[]]] := Module[{$CellContext`eq = " = ", $CellContext`eqn, $CellContext`eqnGAB, \ $CellContext`fitMod, $CellContext`fitMsg = "", $CellContext`mName, $CellContext`ps1 = "", $CellContext`ps2 = "", $CellContext`ps3 = "", $CellContext`ps4 = ""}, $CellContext`eqnGAB = Row[{ Style[ Subscript["moisture", "GAB"], Italic, 12], Style["(", 12], $CellContext`aws, Style[") = ", 12], Style[ Subscript["m", "0"], Italic, 12], Style[" ", 12], Style["c", Italic, 12], Style[" ", 12], Style["k", Italic, 12], Style[" ", 12], $CellContext`aws, Style[" / ((1 - ", 12], Style["k", Italic, 12], Style[" ", 12], $CellContext`aws, Style[") \[Times] (1 - ", 12] Style["k", Italic, 12], Style[" ", 12], $CellContext`aws, Style[" + ", 12], Style["c", Italic, 12], Style[" ", 12], Style["k", Italic, 12], Style[" ", 12], $CellContext`aws, Style["))", 12]}]; $CellContext`mName = Style[ Subscript["moisture", $CellContext`fitName], Italic, 12]; $CellContext`fitMod = Style[ StringJoin[$CellContext`fitName, " model"], 12]; If[ Not[$CellContext`fitTry], $CellContext`fitMsg = "", If[$CellContext`fitOK, $CellContext`fitMsg = Row[{ Style[ Superscript["r", "2"], Italic, Blue, 12], Style[$CellContext`eq, 12], Style[ ToString[ NumberForm[$CellContext`rSq, {5, 4}]], Blue, 12]}], $CellContext`fitMsg = Style["Fit Failed!", Bold, Red, 12]]]; Switch[$CellContext`model, 1, $CellContext`eqn = Row[{$CellContext`mName, Style["(", 12], $CellContext`aws, Style[") = ", 12], Style[ Subscript["c", "O"], Italic, 12], Style[" (", 12], $CellContext`aws, Style[" / (1 - ", 12], $CellContext`aws, Style[")", 12], Superscript[")", Style[ Subscript["n", "O"], Italic]]}]; If[$CellContext`fitOK, $CellContext`ps1 = Row[{ Style[ Subscript["c", "O"], Italic, 12], Style[$CellContext`eq, 12], Style[ ToString[ NumberForm[$CellContext`v1, {$CellContext`nD, \ $CellContext`nF}]], 12]}]; $CellContext`ps2 = Row[{ Style[ Subscript["n", "O"], Italic, 12], Style[$CellContext`eq, 12], Style[ ToString[ NumberForm[$CellContext`v2, {$CellContext`nD, \ $CellContext`nF}]], 12]}], $CellContext`ps1 = ""; $CellContext`ps2 = ""]; $CellContext`ps3 = ""; $CellContext`ps4 = "", 2, $CellContext`eqn = Row[{$CellContext`mName, Style["(", 12], $CellContext`aws, Style[") = ", 12], Style[ Subscript["c", Subscript["1", "S"]], Italic, 12], Style[" + ", 12], Style[ Subscript["c", Subscript["2", "S"]], Italic, 12], Style[" log(1 - ", 12], $CellContext`aws, Style[")", 12]}]; If[$CellContext`fitOK, $CellContext`ps1 = Row[{ Style[ Subscript["c", Subscript["1", "S"]], Italic, 12], Style[$CellContext`eq, 12], Style[ ToString[ NumberForm[$CellContext`v1, {$CellContext`nD, \ $CellContext`nF}]], 12]}]; $CellContext`ps2 = Row[{ Style[ Subscript["c", Subscript["2", "S"]], Italic, 12], Style[$CellContext`eq, 12], Style[ ToString[ NumberForm[$CellContext`v2, {$CellContext`nD, \ $CellContext`nF}]], 12]}], $CellContext`ps1 = ""; $CellContext`ps2 = ""]; $CellContext`ps3 = ""; $CellContext`ps4 = "", 3, $CellContext`eqn = Row[{$CellContext`mName, Style["(", 12], $CellContext`aws, Style[") = ", 12], Style["(-", 12], Style[ Subscript["c", "Ha"], Italic, 12], Style["/log(", 12], $CellContext`aws, Style[")", 12], Superscript[")", Row[{ Style["(1/", 12], Style[ Subscript["n", "Ha"], Italic, 12], Style[")", 12]}]]}]; If[$CellContext`fitOK, $CellContext`ps1 = Row[{ Style[ Subscript["c", "Ha"], Italic, 12], Style[$CellContext`eq, 12], Style[ ToString[ NumberForm[$CellContext`v1, {$CellContext`nD, \ $CellContext`nF}]], 12]}]; $CellContext`ps2 = Row[{ Style[ Subscript["n", "Ha"], Italic, 12], Style[$CellContext`eq, 12], Style[ ToString[ NumberForm[$CellContext`v2, {$CellContext`nD, \ $CellContext`nF}]], 12]}], $CellContext`ps1 = ""; $CellContext`ps2 = ""]; $CellContext`ps3 = ""; $CellContext`ps4 = "", 4, $CellContext`eqn = Row[{$CellContext`mName, Style["(", 12], $CellContext`aws, Style[") = ", 12], Style["(-log(1 - ", 12], $CellContext`aws, Style[")/", 12], Style[ Subscript["c", "He"], Italic, 12], Superscript[")", Row[{ Style["(1/", 12], Style[ Subscript["n", "He"], Italic, 12], Style[")", 12]}]]}]; If[$CellContext`fitOK, $CellContext`ps1 = Row[{ Style[ Subscript["c", "He"], Italic, 12], Style[$CellContext`eq, 12], Style[ ToString[ NumberForm[$CellContext`v1, {$CellContext`nD, \ $CellContext`nF}]], 12]}]; $CellContext`ps2 = Row[{ Style[ Subscript["n", "He"], Italic, 12], Style[$CellContext`eq, 12], Style[ ToString[ NumberForm[$CellContext`v2, {$CellContext`nD, \ $CellContext`nF}]], 12]}], $CellContext`ps1 = ""; $CellContext`ps2 = ""]; $CellContext`ps3 = ""; $CellContext`ps4 = "", 5, $CellContext`eqn = Row[{$CellContext`mName, Style["(", 12], $CellContext`aws, Style[") = ", 12], Style[ Subscript["c", "1"], Italic, 12], Style[" ", 12], Superscript[$CellContext`aws, Style[ Subscript["n", "1"], Italic, 12]], Style[" + ", 12], Style[ Subscript["c", "2"], Italic, 12], Style[" ", 12], Superscript[$CellContext`aws, Style[ Subscript["n", "2"], Italic, 12]]}]; If[$CellContext`fitOK, $CellContext`ps1 = Row[{ Style[ Subscript["c", "1"], Italic, 12], Style[$CellContext`eq, 12], Style[ ToString[ NumberForm[$CellContext`v1, {$CellContext`nD, \ $CellContext`nF}]], 12]}]; $CellContext`ps2 = Row[{ Style[ Subscript["n", "1"], Italic, 12], Style[$CellContext`eq, 12], Style[ ToString[ NumberForm[$CellContext`v2, {$CellContext`nD, \ $CellContext`nF}]], 12]}]; $CellContext`ps3 = Row[{ Style[ Subscript["c", "2"], Italic, 12], Style[$CellContext`eq, 12], Style[ ToString[ NumberForm[$CellContext`v3, {$CellContext`nD, \ $CellContext`nF}]], 12]}]; $CellContext`ps4 = Row[{ Style[ Subscript["n", "2"], Italic, 12], Style[$CellContext`eq, 12], Style[ ToString[ NumberForm[$CellContext`v4, {$CellContext`nD, \ $CellContext`nF}]], 12]}], $CellContext`ps1 = ""; $CellContext`ps2 = ""; $CellContext`ps3 = ""; $CellContext`ps4 = ""]]; Grid[{{$CellContext`eqnGAB, SpanFromLeft}, {$CellContext`eqn, SpanFromLeft}, {$CellContext`fitMod, $CellContext`fitMsg}, { "", $CellContext`ps1}, {"", $CellContext`ps2}, { "", $CellContext`ps3}, {"", $CellContext`ps4}}, Alignment -> Left]]; Null)}]]; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->1924092421], Cell["\<\ Sigmoid moisture sorption isotherms of foods have been described by a variety \ of mathematical models having two to four adjustable parameters, the most \ common of which is the three-parameter GAB model. This Demonstration allows \ generating moisture sorption isotherm data with this model, based on \ published parameters values for example, and fitting them with the \ two-parameter Oswin, Smith, Halsey, or Henderson model, and by the \ four-parameter double-power model with or without adjusting the water \ activity range. To facilitate the fit, you can match the generated data by \ adjusting the chosen model's parameters with sliders prior to executing the \ nonlinear regression.\ \>", "ManipulateCaption"], 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["\<\ Snapshot 1: sorption isotherm data generated with the three-parameter GAB \ model and the superimposed two-parameter Oswin isotherm with the default \ range and initial parameter values\ \>", "DetailNotes", CellID->445011601], Cell["\<\ Snapshot 2: sorption isotherm data generated with the three-parameter GAB \ model and the superimposed two-parameter Oswin isotherm equation with the \ data range and initial values adjusted\ \>", "DetailNotes", CellID->1771919153], Cell["\<\ Snapshot 3: sorption isotherm data generated with the three-parameter GAB \ model and the superimposed four-parameter double-power isotherm equation with \ the default range and initial parameter values\ \>", "DetailNotes", CellID->330997175], Cell["\<\ Snapshot 4: sorption isotherm data generated with the three-parameter GAB \ model and the superimposed four-parameter double-power isotherm equation with \ the same data range but initial values adjusted\ \>", "DetailNotes", CellID->1086874495], Cell["\<\ Snapshot 5: sorption isotherm data generated with the three-parameter GAB \ model and the superimposed fitted four-parameter double-power isotherm \ equation\ \>", "DetailNotes", CellID->603736083], Cell[TextData[{ "The three-parameter Guggenheim, Anderson, and de Boer (GAB) sorption model \ is a variant of the more famous two-parameter Brunauer, Emmett, and Teller \ (BET) model. It has been frequently used to describe sigmoid moisture \ sorption isotherms and is commonly written in the form ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"m", "(", SubscriptBox["a", "w"], ")"}], "=", RowBox[{ SubscriptBox["m", "0"], "\[Times]", "c", "\[Times]", "k", "\[Times]", RowBox[{ SubscriptBox["a", "w"], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"k", "\[Times]", SubscriptBox["a", "w"]}]}], ")"}], "\[Times]", RowBox[{"(", RowBox[{"1", "-", RowBox[{"k", "\[Times]", SubscriptBox["a", "w"]}], "+", RowBox[{"c", "\[Times]", "k", "\[Times]", SubscriptBox["a", "w"]}]}], ")"}]}]}]}]}]}], TraditionalForm]], "InlineMath"], ", where ", Cell[BoxData[ FormBox[ RowBox[{"m", "(", SubscriptBox["a", "w"], ")"}], TraditionalForm]], "InlineMath"], " is the equilibrium moisture content in percent on a dry basis (g \ water/100g dry matter) that corresponds to a water activity level, ", Cell[BoxData[ FormBox[ SubscriptBox["a", "w"], TraditionalForm]], "InlineMath"], ", and ", Cell[BoxData[ FormBox[ SubscriptBox["m", "0"], TraditionalForm]], "InlineMath"], ", ", Cell[BoxData[ FormBox["c", TraditionalForm]], "InlineMath"], ", and ", Cell[BoxData[ FormBox["k", TraditionalForm]], "InlineMath"], " are adjustable parameters obtained by curve fitting [1\[Dash]4]. (The \ validity of considering ", Cell[BoxData[ FormBox[ SubscriptBox["m", "0"], TraditionalForm]], "InlineMath"], " as being the \"water monolayer\" can be challenged on different grounds, \ but this should not concern us here.)\[NonBreakingSpace]Alternative models \ have been the empirical Oswin, ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"m", "(", SubscriptBox["a", "w"], ")"}], "=", RowBox[{"c", "\[Times]", SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox["a", "w"], "/", RowBox[{"(", RowBox[{"1", "-", SubscriptBox["a", "w"]}], ")"}]}], ")"}], "n"]}]}], TraditionalForm]], "InlineMath"], ", for ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["a", "w"], ">", "0"}], TraditionalForm]], "InlineMath"], " and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"m", "(", "0", ")"}], "=", "0"}], TraditionalForm]], "InlineMath"], "; Smith, ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"m", "(", SubscriptBox["a", "w"], ")"}], "=", RowBox[{ SubscriptBox["c", "1"], "+", RowBox[{ SubscriptBox["c", "2"], "\[Times]", RowBox[{"log", "(", RowBox[{"1", "-", SubscriptBox["a", "w"]}], ")"}]}]}]}], TraditionalForm]], "InlineMath"], ", for ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["a", "w"], "<", "1"}], TraditionalForm]], "InlineMath"], "; Halsey, ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"m", "(", SubscriptBox["a", "w"], ")"}], "=", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "c"}], "/", RowBox[{"log", "(", SubscriptBox["a", "w"], ")"}]}], ")"}], RowBox[{"(", RowBox[{"1", "/", "n"}], ")"}]]}], TraditionalForm]], "InlineMath"], ", for ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["a", "w"], ">", "0"}], TraditionalForm]], "InlineMath"], " and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"m", "(", "0", ")"}], "=", "0"}], TraditionalForm]], "InlineMath"], "; Henderson, ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"m", "(", SubscriptBox["a", "w"], ")"}], "=", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"log", "(", RowBox[{"1", "-", SubscriptBox["a", "w"]}], ")"}]}], "/", "c"}], ")"}], RowBox[{"(", RowBox[{"1", "/", "n"}], ")"}]]}], TraditionalForm]], "InlineMath"], "; and the semi-empirical double-power equation ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"m", "(", SubscriptBox["a", "w"], ")"}], "=", RowBox[{ RowBox[{ SubscriptBox["c", "1"], "\[Times]", SuperscriptBox[ SubscriptBox["a", "w"], SubscriptBox["n", "1"]]}], "+", RowBox[{ SubscriptBox["c", "2"], "\[Times]", SuperscriptBox[ SubscriptBox["a", "w"], SubscriptBox["n", "2"]]}]}]}], TraditionalForm]], "InlineMath"], " (also known as the Peleg isotherm), where the ", Cell[BoxData[ FormBox["c", TraditionalForm]], "InlineMath"], "'s and ", Cell[BoxData[ FormBox["n", TraditionalForm]], "InlineMath"], "'s are constants." }], "DetailNotes", CellID->132114906], Cell[TextData[{ "Since some of the models cannot be used interchangeably over the entire ", Cell[BoxData[ FormBox[ SubscriptBox["a", "w"], TraditionalForm]], "InlineMath"], " range of 0 to 1, this Demonstration allows fitting the sorption data \ generated using the GAB parameters with the other five models with or without \ adjustment of the water activity range, specified by its lower and upper \ bounds. To facilitate the fit and assure convergence during the regression, \ you can adjust the gray curve given by the guessed initial parameter values \ to match the generated data visually. Click the green button \"fit selected \ model to data and plot results\" to fit the currently selected model to the \ generated data using the current slider settings as the initial guesses of \ the model's parameters. Once the entered initial guesses of the parameters \ enable a successful fit, the Demonstration will calculate and display the \ best-fit parameters and will show the fit's correlation coefficient, ", Cell[BoxData[ FormBox[ SuperscriptBox["r", "2"], TraditionalForm]], "InlineMath"], ", in blue. It will also superimpose a plot of the fitted curve on the \ generated data, which is plotted as black dots. The color of the fitted curve \ matches the color of the text of the currently selected model. If the fit \ appears to need improvement, you can readjust the initial parameter guesses \ and repeat the regression until a higher ", Cell[BoxData[ FormBox[ SuperscriptBox["r", "2"], TraditionalForm]], "InlineMath"], " is obtained. \"Fit failed!\" appears in red if the fit attempt was not \ successful." }], "DetailNotes", CellID->501667962], Cell[TextData[{ "The default appearance of the Thumbnail panel shows 21 data points \ generated with the GAB model ", StyleBox["after", FontSlant->"Italic"], " they have been successfully fitted by the Oswin model. Move any control to \ erase the displayed fitted parameter and ", Cell[BoxData[ FormBox[ SuperscriptBox["r", "2"], TraditionalForm]], "InlineMath"], " values, replace the red fitted curve with the gray curve representing the \ current slider-entered parameter values, and activate the green button in \ preparation for a new fit attempt." }], "DetailNotes", CellID->632682968], Cell["References", "DetailNotes", CellID->2104617791], Cell[TextData[{ "[1] H. A. Iglesias and J. Chirife, ", StyleBox["Handbook of Food Isotherms: Water Sorption Parameters for Food and \ Food Components", FontSlant->"Italic"], ", New York: Academic Press, 1982." }], "DetailNotes", CellID->1108063600], Cell[TextData[{ "[2] W. Wolf, W. E. L. Spiess, and G. Jung, ", StyleBox["Sorption Isotherms and Water Activity of Food Materials", FontSlant->"Italic"], ", New York: Elsevier, 1985." }], "DetailNotes", CellID->246738416], Cell[TextData[{ "[3] M. Peleg, \"Assessment of a Semi-Empirical Four Parameter General Model \ for Sigmoid Moisture Sorption Isotherms,\" ", StyleBox["Journal of Food Process Engineering", FontSlant->"Italic"], ", ", StyleBox["16", FontWeight->"Bold"], "(1), 1993 pp. 21\[Dash]37. doi:", ButtonBox["10.1111/j.1745-4530.1993.tb00160.x.", BaseStyle->"Hyperlink", ButtonData->{ URL["http://dx.doi.org/10.1111/j.1745-4530.1993.tb00160.x"], None}, ButtonNote->"http://dx.doi.org/10.1111/j.1745-4530.1993.tb00160.x"] }], "DetailNotes", CellID->141635355], Cell[TextData[{ "[4] R. D. Andrade P., R. Lemus M., and C. E. Perez C., \"Models of Sorption \ Isotherms for Food: Uses and Limitations,\" ", StyleBox["Vitae", FontSlant->"Italic"], ", ", StyleBox["18", FontWeight->"Bold"], "(3), 2011 pp. 325\[Dash]334. ", ButtonBox["aprendeenlinea.udea.edu.co/revistas/index.php/vitae/article/\ viewFile/10682/9746", BaseStyle->"Hyperlink", ButtonData->{ URL["http://aprendeenlinea.udea.edu.co/revistas/index.php/vitae/article/\ viewFile/10682/9746"], None}, ButtonNote-> "http://aprendeenlinea.udea.edu.co/revistas/index.php/vitae/article/\ viewFile/10682/9746"], "." }], "DetailNotes", CellID->1053530609], Cell["RELATED LINKS", "RelatedLinksSection"], Cell[TextData[{ ButtonBox["Equilibrium Water Activity of Binary Dry Mixtures", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/\ EquilibriumWaterActivityOfBinaryDryMixtures/"], None}, ButtonNote-> "http://demonstrations.wolfram.com/\ EquilibriumWaterActivityOfBinaryDryMixtures/"], " (", ButtonBox["Wolfram Demonstrations Project", BaseStyle->"SiteLink", ButtonData->{ URL["http://demonstrations.wolfram.com/"], None}, ButtonNote->"http://demonstrations.wolfram.com/"], ")" }], "RelatedLinks", CellID->686275948], Cell[TextData[{ ButtonBox["Dynamic Water Absorption by Foods", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/DynamicWaterAbsorptionByFoods/"], None}, ButtonNote-> "http://demonstrations.wolfram.com/DynamicWaterAbsorptionByFoods/"], " (", ButtonBox["Wolfram Demonstrations Project", BaseStyle->"SiteLink", ButtonData->{ URL["http://demonstrations.wolfram.com/"], None}, ButtonNote->"http://demonstrations.wolfram.com/"], ")" }], "RelatedLinks", CellID->105189999], Cell[TextData[{ ButtonBox["Dehydration by a Desiccant", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/DehydrationByADesiccant/"], None}, ButtonNote->"http://demonstrations.wolfram.com/DehydrationByADesiccant/"], " (", ButtonBox["Wolfram Demonstrations Project", BaseStyle->"SiteLink", ButtonData->{ URL["http://demonstrations.wolfram.com/"], None}, ButtonNote->"http://demonstrations.wolfram.com/"], ")" }], "RelatedLinks", CellID->549271712], Cell[TextData[{ ButtonBox["Choosing Initial Parameter Values for Nonlinear Regression", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/\ ChoosingInitialParameterValuesForNonlinearRegression/"], None}, ButtonNote-> "http://demonstrations.wolfram.com/\ ChoosingInitialParameterValuesForNonlinearRegression/"], " (", ButtonBox["Wolfram Demonstrations Project", BaseStyle->"SiteLink", ButtonData->{ URL["http://demonstrations.wolfram.com/"], None}, ButtonNote->"http://demonstrations.wolfram.com/"], ")" }], "RelatedLinks", CellID->1724948778], Cell[BoxData[ ButtonBox[ PaneSelectorBox[{False->Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJztmjlPZFcQhZH8H5z7LzmYFGkSyAwZkEEGZEDEkrBEbAEgAjCLxS6xCbEP Bnu8SAYaRoIEhPDnPqJcvm/p17THyJp3pGnVPbdu1bl1T7dGo/nm/Xffvv+q qqrqa/78wJ+/4ufn56enp4eHh7u7u9vb25ubm0KhcFNEoQiCT0Wwa4wA88kh WCYhKS39eKAtCUFCSUmW4AN/96T6sY30qa1gUCk6NdiUK8Q+ij9riFZOR5YZ xu5yFsNgG8zzXMTV1dX5+fmHHDnKBLbBPHLR2dnZW8vJ8X8F5pGLbJkjRxbI LfZpv0U5crwauYuEpaWlmZkZPt9ayN/Y39+fKeKthZSGXPRj+WhoaHjnwHJi YsJ2mUBra2t1dTVbzc3NvI5tQZKsWLu+Znd3t+LZ2Vl2fZBSFlIyCIaHhwnI hEdSTU0Ny46ODl/cgyLKEYitbFI7JOkIu6ps12HLKtNOaXV1dTYcApaQlOWs dEbBlkkik0t5wYgRjwCrAK9H4dOrKtmRg/39/cr0j5gdctG5A+R5BiCyra3t +xcQo5PAdhkgd5+cnCRG/8HBATzL6iKISdYDaUunenp6FMe6yMpyWZVlJkxA cyZTw9cAdZCnJNDYoy7iOGfZ3dzcZMkn70KLlHbwkLwL+lGrL4U0+wloi7Mw UrW1tUUsQxKwRQJzi87WzhIzHJacYnRaqiNLElCi7uJVWfniM3bkOpxCIQl2 hRQEJom6KCP8iwvIQwwBYvw8dUHNpK0IlsvLywMDA3omzSeoqev7IKksdShi VqS+BmiBQHIgGHBWlvZQl5RbeN538TySKO6Ho++al8QQ7O4GGvk6wWzlBLus hoPUgMc2sUOI7Wh12GVEfpgZIRddFMHyIjMaGxvp6JmVlRWUbG9vS1JsMgqn pqZYjoyMcFNI+Spa04pEg6Ds4eGhfrEp3viCqMKoYIBaZHtGXSBTbqFXFgmj dgHvY19BRTyCHOaDH6I64YN2vlHA2zJLR4HnYIwEdO/s7IzNSYJ3UVmIfRTd SPPncY3XD6ZsBi/z6MfTDy2Li6JlFVOcUvoq2QD9NHxyFBznp4MjtJCrU9pl dJHePRiat7rMH+REfRLs6q0F5JmLPM/FbQglO14UXcor8NXWcwTfrJKQi34q H0jq7e0NSBTOzc0RyM8iEQa/uroK09LSAkOO/tqpBJLJUU34o6Mj4sHBQSWQ 7DOjZXd2duDVF2iAqmDVVCQqGFDBfsrwj9VJauevCaipduItn5saTzKl0Ikk ekkSoJ0G4uELxqqVP+2yVDZe8qgPaUMo2VFqAWkMgSNJ3ZMgF/1cPuQizzAl LsIn8ejoKHFtba0eqL29HZIlvJIhqaC4vQjVJJ80/SaInJ+fJ1ZmbFlVUEHx 6nJ8fMxS8+STU4FguwhYW1uLbiW1I0aVYj268WRaQTX1d1E7SWKLINqXpvAp k9dlNSi7rB8CxyUjY0cYLMS4KIUtU1onQS76WD5Q1dfX55muri502nJ3d3do aIgcRIpZWFg4OTlRDEmCZSpHJGmcGhsbs1MMJ6WsMD093VcE+UbSjjqQnIoK FijujxCTmd7OX8TEG28aiHUWbVGpbFkRD8hA0sfItOmoCjZDX1kD9LdI71g5 KnER5l94gb4Iwbj+FQQuejWSXATPN1HPwWd9fT3LyttVAr6P/GjoeyRbRn2V jsBFnxty0S/lo6mp6Z0Dw8dCr6hTEnJR5XUQzGyj/Pr6OuLtIqSdnp5W3q5C IFX/mKZ/LRwfHy/3OBf5TNqikIt+/eKxsbGxuLi4t7f31kL+gcUiMib/Z54B QevcRTkqh1z0W44cFcBc9HuOHK+Cuejq6kqmSsnMnZYjgFxh/2P28fHx/v6+ UChcXl7+EQf46+vrpN0cXyAwA4bBNpgHC/0JwypFcA== "], {{0, 0}, {194, 22}}, {0, 255}, ColorFunction->RGBColor], ImageSize->{194, 22}, PlotRange->{{0, 194}, {0, 22}}]]], True->Cell[BoxData[ GraphicsBox[RasterBox[CompressedData[" 1:eJztmjtPLEcQhZH8H5z7LzlwinQjiCwIIYQQyICMRwRkPCIQCRgIeCa8At6S vetrW2aXlTYAhD/PEeW63TOzu4wxsj1HYlVdXV11qvrMLEJ88+n7bz991dXV 9TU/m/z8ab+8vDw/Pz8+PjabzUaj8fDwUK/XHxLUE2A0XmEeofHPwnPLQhBQ pFBqLT+crELaCgaVw9OOZGVOvRR/1hBnbtlpyxmm7nIWwSAbxPOSoFarVSqV H0uU6BDIBvFIRR/NpcS/G6WKShRHqaISxVGqSNjd3d3Y2ODzo4n8hYuLi40E H02kNaSinzrHwMDAdw4sV1dXbffy8nJkZKS7u5utoaGhvb0928JJsGzt+pxT U1OyNzc32fVGTlqcooGxuLiIQSR+KPX09LAcHx/3yT1IohgB29JmlYOSjrCr zNYOW5aZcgrr6+uz4WCwxElazopnDLaMEpE05QlDRn4IWAb8uhQ+PauWFTk4 NzenSH+J7UMqqjjgrLQBSI6Ojv7wCmx4YtguA6T3tbU1bPhfXV3hZ9mdAJtg XZC2dGp6elp2qoosLc0qLTNhApozkRq+BqiDXCWGxh6riOOcZff4+Jgln9wL JXLK4cfJvcAftnooxNlPQFucxTMxMcHWyckJtgSJwRYBzC2erZ3FZjgsOcXo tFRFlgTARNXlV2bFy99mRdrhFAwJsBZyEIgkVlGb8DcuQA8yGJDx81SDmslo Apb7+/vcvq5J8wlyqn1vZKUlD0lMiuTXAM0QCA4IAykwcKpKThfe76t4P5RI 7oejZ81TYgjWu4FCPk8wWynBmtVwoBr4kU3qEFIrWh52GZEfZpuQiqoJWFbb xuDgIBW95+DgACanp6eilBoszbBcWloaHh7GKV3FOS1JbARpr6+v9cYm+eAr YoYxYQBbaHuPquDM6UK3LCcelQv83vYZlMQjiNHrOuaJPyjnCwV+W7ZTUeA6 GCMG1Xl5psZkwauoI6ReijrS/Llc8+uFKZnhl3j08vRDa0dFcVrZJCeVHiUb oJ+GD47B8fn5eY5QQqrOKdeminTvwdC81CX+ICbWSbCruxagZyryfhq3IbSs WE1Uyi3waOs6gierJd5DRdUv9QwxPd14EHw1uSD92qkAgjVwtayL407jV1Bq Wk3Ars8GSAbLpiSpKiKDvcr0vWNbqeWquSqyeDo1v34DhCeUqGXKpJwG4pGv Ij2Jpk/K6RmUX/TIj9OG0LKi2ALCGAJHsqpnQSr6uXNAcmZmxnvOzs5ohE/s 5eVl3Ut/f7+ebpws8SsYJxlk60tNOYnXs2Ontra2sBWZmlYZlFB+Vbm5uWGp efLJqYCwNQKYf7yVVQ4bVrLJaY3gJ9ISqqjvReVEiS099XFR/DmTV7MalDXr h8Bx0WizIh4kxLhINTk5mVM6C1LR584hFXkPBHp7e22JnBYWFog5PDyUZ3t7 +/b2VjZOAixSMXISxik6slMMJyetsL6+PpOAeHNSjjw4ORUTFkjuj2ATmV/O N2LkzW8csHUWbjFVtiyJB86A0udo2lRUBpuhz6wB+i7yKxZHERWNjY1tvwKb 3oNx/S0IVPRmZKkIP0+iroNPnmKWxcsVAc8jLw09R5JlrKt8BCp6b0hFv3QO vagNDB8JvSFPS+zs7JC/eB4Iz87Oxv6joyN9YQmE3d3dFS9XEFDVH9P018KV lZVOj9PIO3GL8WYV/ceAlpDr+fn5RxP5AjsJPppFa5QqKlEcUtGvJUoUgKno txIl3gRTUa1Wk6hyIkullQggVdh/zD49PTWbzXq9fn9//3sa8BOctVvifwjE gGCQDeJBQn8AEYN5ZQ== "], {{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=\ ComparisonOfFoodMoistureSorptionIsothermEquations&version=0011"], None}, ButtonNote-> "http://demonstrations.wolfram.com/\ ComparisonOfFoodMoistureSorptionIsothermEquations/\ ComparisonOfFoodMoistureSorptionIsothermEquations-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["Comparison of Food Moisture Sorption Isotherm Equations", BaseStyle->"SiteLink", ButtonData->{ URL["http://demonstrations.wolfram.com/\ ComparisonOfFoodMoistureSorptionIsothermEquations/"], None}, ButtonNote-> "http://demonstrations.wolfram.com/\ ComparisonOfFoodMoistureSorptionIsothermEquations/"], "\"", "\[ParagraphSeparator]\[NonBreakingSpace]", ButtonBox["http://demonstrations.wolfram.com/\ ComparisonOfFoodMoistureSorptionIsothermEquations/", BaseStyle->"SiteLink", ButtonData->{ URL["http://demonstrations.wolfram.com/\ ComparisonOfFoodMoistureSorptionIsothermEquations/"], None}, ButtonNote-> "http://demonstrations.wolfram.com/\ ComparisonOfFoodMoistureSorptionIsothermEquations/"], "\[ParagraphSeparator]\[NonBreakingSpace]", ButtonBox["Wolfram Demonstrations Project", BaseStyle->"SiteLink", ButtonData->{ URL["http://demonstrations.wolfram.com/"], None}, ButtonNote->"http://demonstrations.wolfram.com/"], "\[ParagraphSeparator]\[NonBreakingSpace]", "Published: ", "August 27, 2012" }], "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->{632, 453}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, WindowElements->{ "StatusArea", "MemoryMonitor", "MagnificationPopUp", "VerticalScrollBar", "MenuBar"}, WindowTitle->"Comparison of Food Moisture Sorption Isotherm Equations", DockedCells->{}, CellContext->Notebook, FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (February 23, 2011)", 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}, CellFrameLabelMargins -> 6, DefaultNewInlineCellStyle -> "InlineMath", DefaultInlineFormatType -> "DefaultTextInlineFormatType", ShowStringCharacters -> True, CacheGraphics -> False, StyleMenuListing -> None, DemonstrationSite`Private`CreateCellID -> True, 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}}, PrivateCellOptions -> {"DefaultCellGroupOpen" -> False}, 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]], 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 -> "8.0 for Microsoft Windows (32-bit) (February 23, 2011)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "ControlSuggestions"->{ Cell[305578, 6459, 258, 7, 70, "ManipulateCaption", CellTags->"ControlSuggestions"], Cell[305839, 6468, 4440, 96, 70, "ManipulateCaption", CellTags->"ControlSuggestions"]}, "Copyright"->{ Cell[329362, 7095, 818, 23, 70, "Text", CellTags->"Copyright"]} } *) (*CellTagsIndex CellTagsIndex->{ {"ControlSuggestions", 356071, 7664}, {"Copyright", 356270, 7669} } *) (*NotebookFileOutline Notebook[{ Cell[1304, 31, 34328, 567, 70, "DemonstrationHeader"], Cell[35635, 600, 76, 0, 70, "DemoTitle"], Cell[35714, 602, 269130, 5842, 70, "Output", CellID->1924092421], Cell[304847, 6446, 728, 11, 70, "ManipulateCaption"], Cell[305578, 6459, 258, 7, 70, "ManipulateCaption", CellTags->"ControlSuggestions"], Cell[305839, 6468, 4440, 96, 70, "ManipulateCaption", CellTags->"ControlSuggestions"], Cell[310282, 6566, 33, 0, 70, "DetailsSection"], Cell[310318, 6568, 236, 5, 70, "DetailNotes", CellID->445011601], Cell[310557, 6575, 242, 5, 70, "DetailNotes", CellID->1771919153], Cell[310802, 6582, 253, 5, 70, "DetailNotes", CellID->330997175], Cell[311058, 6589, 255, 5, 70, "DetailNotes", CellID->1086874495], Cell[311316, 6596, 208, 5, 70, "DetailNotes", CellID->603736083], Cell[311527, 6603, 4882, 162, 70, "DetailNotes", CellID->132114906], Cell[316412, 6767, 1680, 30, 70, "DetailNotes", CellID->501667962], Cell[318095, 6799, 604, 14, 70, "DetailNotes", CellID->632682968], Cell[318702, 6815, 54, 1, 70, "DetailNotes", CellID->2104617791], Cell[318759, 6818, 254, 7, 70, "DetailNotes", CellID->1108063600], Cell[319016, 6827, 226, 6, 70, "DetailNotes", CellID->246738416], Cell[319245, 6835, 569, 15, 70, "DetailNotes", CellID->141635355], Cell[319817, 6852, 667, 20, 70, "DetailNotes", CellID->1053530609], Cell[320487, 6874, 44, 0, 70, "RelatedLinksSection"], Cell[320534, 6876, 569, 17, 70, "RelatedLinks", CellID->686275948], Cell[321106, 6895, 526, 16, 70, "RelatedLinks", CellID->105189999], Cell[321635, 6913, 498, 14, 70, "RelatedLinks", CellID->549271712], Cell[322136, 6929, 597, 17, 70, "RelatedLinks", CellID->1724948778], Cell[322736, 6948, 4890, 91, 70, "DemoSourceNotebookSection", CellGroupingRules->{"SectionGrouping", 25}], Cell[327629, 7041, 45, 0, 70, "CitationSection"], Cell[327677, 7043, 587, 18, 70, "Author"], Cell[328267, 7063, 1092, 30, 70, "Citations"], Cell[329362, 7095, 818, 23, 70, "Text", CellTags->"Copyright"] } ] *) (* End of internal cache information *) (* NotebookSignature 8Rq3CsIlElw9ovQrljzaQlxH *)