(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 2942029, 96121] NotebookOptionsPosition[ 2783332, 92797] NotebookOutlinePosition[ 2837978, 93914] CellTagsIndexPosition[ 2837935, 93911] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[GridBox[{ { ButtonBox[Cell[GraphicsData["CompressedBitmap", "\<\ eJyFmwd8VNW6xdc+09JImcwkoffea5TeQ+i9SgtFELGBAioPpMMFARGkF7EA AtIVRRFRUbFdEVRUqgW9TwWBkJ639t7nnCkJ9/H7fTmTM2cmk8x/1vrWtzc9 Rk+dMG7y6KkTx4yukPbY6EcmTBwzpULnhx/jKYcAsJ+VVAHydiFvml+88ivi IXja4XAgIiICJUqUQHx8PLxer/o+NjYWPp9PHaOjoxEXF6eO8vt4bxwS/V6D F8djARK8JeD38aEJJZCc5EVSkg/+2BgkxXiQwmNKfCxKJcShtM+LMvy+HK8v l5KI8mWSUTEpAZX4fRWvB1W9Majmj0d1XyRq+qJRKzkadZKAuqVKoF6KBw1S HGiYEodGJUugSVkvmpaNQ7My0biHdW/ZWLQo50PLcn60Lh+FthVKoG3FOLSv GImOlZLQuXI80ip70KVqIrpWjUX3qqXQo5ofPasno08NP/rUL4t+Nf0YULsU BtYuh8F1vBhStzSG1Y3D8CaVMaJ+MkY1SEFGw4rIaFQS4xqXxPjGPtzfuAwm Nk3CpKbxeLBZLB5KjcLDqcl49N5oTGmehKnNo/BEiwRMa5GE6a38eKqVD0+1 TsTMNomY1daHZ9r5MIc1r50f8zv4sLCjD4s6+rGY9a/OSVja2Y9n05KwoksS Vnbx47mufjzf1Y3V3Qys6S6wtofAeh439AQ29hTY3EtgS29gW2+BF/sA2/sI vNxX4JV+Aq+ydvZnDRB4baDAHlmDgNcHCewbLLB/iMAB1qGhrGECR1hv3Cfw JuvocIG3WG+PEDjGemekwHFZowTeY51gvT9a4CTrgwyBDzOEgY/GCDhxil8/ HssaJ/DJODL3KW+QPvlvCxkU6pb8Km8akklZBuBkVapUCa+88gq2bt2Kbdu2 YcWKFejYsSOiXFC8TpvxBF56ZTtefnk7Dh7cj5GjhiEhUsAbCSRGAT5WlSqV MHHi/di8eSOfYwu2b9+G559/DgMH9kfZkokoFydQgS+oUeO6eHrmNKx8bimW r1iCZ5cvxtJ/LcDixc/w+iVo1qwO+vVLx9q1z2Lp0nl4dtkijBjaC01KudG0 NJDKuqduWTz9xANYzcdveOF5LJk3VcHYvm1jPs8sPs9SLFkyB1s3PY81zy3E muXzsfrZRdjywmo8/tAE9K5BIGsKwpiASWOHYsO6pdi4dim2rn8WC2dNxaxp D2LdqoXYvmUV1jy/EBlt6mFsIyemTOiLVzetwrNzniCMKZjcTODR0V2wdcMi bFvP69fNxtTBrQijC9NbJmBGyyTCmKhg/B8JYxsfZrfVMM5t78cCwrjAhHFJ Jw3jsjQfYfRjuYQx3Y9V6RJGD2F04IVuhJEgriOQG3oAm0wYt8oihC8SyJcI 4kv9QBihYNwxIADjbhPIvRaMrAME8eBQDWQIjPcVhfFdE0gF4+gAjCc1jPiQ FEoeLRo/YRkaRS2HKUEICuJnsIRCsF+/figsLERmZqY6ZmVlYc2aNYjyeNC4 cWOc++4sCgrzcefObd6fj1d3bEeF8qU1gqzx48fi9OlPDD7BLcSoS3JysvDP P9f5VJk4fGQf2rZrQQIduH9CBn797TKvyUFO7m1kZd80kJeTiydw6+YNjMkY gdXPr0BebjYKCwrVPW8eeo0AOtDMBLB3lxb47dI5FObfQX52Jv789Ue0bdEI u3e+xKfNtV/l1Ys/4sCeXerc7Zu3eH0hzn//LWbPno7Bg7tj6tQH8MP5s8jJ v4W8/Nu4k3kD2zavw/vH30JBfhYfl4Vr/7mCJx4aQwBL8fxuvqYs5N25gelT hlMN+ebs38Jf4Za6tjDvL6xYNIUAxmBayzjMaBWrAHxaAtjaVMMgAOe39ykI QwDsHARgFwtAJ1Z3FVRDKADXE74NhG9jL5hqSAAtNewbUMMd/cES2KUABAEE 1VAUq4aHLQCHhQHIOjYyCMBwNcyw1bAIgJ+NJ4TjpRzebzPoUTpohMmgizV3 7lxKqaTPhSNHjiAhIQHDhg3Dzdv/IK8glyjL99SF90++i2ZNG5I9gZEjhqp3 W98XjYKCPOTl5ajvZOXn56p3/9THJ1G9RmX07dcTf/znV+QXZKvH5BoKMgcK 8vIxbmwG1q1dw+/kOS9e3roeTUpGoGkpgdQyAl073oMrF87y3lz15Gf//QUW L1qAP679rl52fn6+QvjpaVOQXr8Ofv71Kn9QocFPTiF/s5y8O8gtuIPMrNvy DKHn6Uj16w3r0gEvbt+MrJw76uytrGxMm/owxvVsi//8eUW91ELUwp69Wwld aRzcsw25PCOvvX79GqZOGkboYjG9hZ+qF4snW8Vr6EwLtlRvngndQhO6xRK6 ThI6bcHLQyzYgTWE7gWpeAo6oaCzVG9LL8uCRagF96ctSslLUdztLsaBD8oa ioDoFcccRe/dEWHMjQ5xYENB59LIjQ0gJ2kTQbpnKNlzFfHdvXv3yvdavTny vfvuu+/Qrl07zJw501BqV80Wspu3/kaL5s3gjfbg639/bp+XRylwFy78iMuX Lyr5k+csBhcsmIdx48bg6tXLik3Jozzevn1biyOVY8DA3li/YbXiVD82Dztf 2UbFi6LlRlL1POjUrhl+vfoj0cuTL9jAtWvXMB7ZuTnqheZRCA/t38H2z4X0 KonYuetFjX9eoSaTuN/OvK5v85wEsqCgAKc+OoFh9ZKxcN5TSo/lj751Oxsr li7GtGmTtKgV6Oe4dOkbPDi8J068cwg5hfo5fv75PB23Ex5vzvaP3M1oGU32 fHi6VYA9u/0rwl4SBS+Z7V+Sbv/SJHs+sufT7HULYs9q/8jdJpO9rRQ7xZ4S PNjtn3TcXQNgCh7ddmCQ4A2GFrwhQe2fhG+YhA8h8AW3fyeKwldE8E4F6DPh S1SCVyKs5zPgdDrx+eefK+YKzXdCHv/66y+sXr0aO3fuhAJQq1oCb+bg3nua YNTIYbhx/X9tuqTyrVy5HA0a1EN6ehpef32Poks+mXwrP/30U8ybN49v3SVT QjzqNiMUevTsgn79u6N2XTafOzYRkUx1TQ4/MxcvnMeB/bvx8ovrMHRgN3RN a42z33ypX6wpOzkFxE6iR0Ru3PgF6Z2bEj8wfQBTHxtHr82U2prPT9jVSz/g 2NFD+PXKZfkjyF8U787HvJmPM3z4MHn8QBRm3+A9/GBcz8S+13bgxPGDkj4t zy3ZBfyFjWsW4ItTxxXwEswzX51g9qhqCl884UtgqxenhG8ma3Y4fB2Kwrcs LSlI+BKxqmuigm+1Cd9aE8ANFL9A9hDYpuALZI+XtfCFZI/dgyz4EGj3TPgO h2cPqXwjbPgMJXvOQLenzdZQbuvR+En0xoaiR69FSPaIVNkXZtNncWgo/WMe qFABv/zyi4lGBAUtB9nZ2Uqcrly5gt9//11hZHqbvqwk2rRpgzlz5uDmzZvI zcskOVk4/8NZMMqiZAmBUiUMdE5rRyH5W71X+YV5qn9ct2Etrv3xmzqXm5+D r7/5N2owt9b0O1HLbzAHx2Dfvr3qp2jPjOKPL9ACRJBWr1iGNs1T8f3Zb2xR kh1dQV6hfmk9kZtdgL27XkNarQroUgXo2r4ufvv5Igpy9aWnPnofQwZ1w8cn j5M4DfNff/+GIX3aUwe9GE7Q//nzdyXFBYXZbCDP4Z/rt/kyCum3BRp63v7h +wv47ep58xOcheNHdxLFeKIYSR2Mt5PH06191EGf9mCFop8xOMls/PxmDPbR g1PowSWJYjJjcLLWwfQYoihU4/eC2fip5GHHYGbLXrrx22bq4EtBMXiHhaJp wnuLa/wUivxrSxbjiw8eI8KCx937PkPC6MBpUkjRkv8cAf6UD8vY4VEa2Lp1 a/0GmlJ19epVnD171vRjzaJk8O+//7Y1MiMjA8uXL8eff/6pejf2e1+f+QIp ibEoGQNy50S37mm49vvPNnffnf8WW7ZtxpWfL2tJhRtnzn6Nhg2ro6Yvgty5 UIfxeM/enZqhSlrgKLA//3IJv1+7in8teobi1gZfffmpbdE52bfxzdkvFTsF 6pxGdPP65eSOnWLVSLz26kaJpkJVXreFafbChXOKQ3n9kYO7MLSeHL+4MLx+ JVy7elE9t5a3TP1yWuInPuTnX35S38kPZ0HBLfMPl4NXt60idl5iF4VprBmt 4vBk61KB1q+NlTf8evrSXk9fFisF1NgtTdPYLVfYUQEldulC2e8aUwHX24FX 5w2FnNX6qcAbOn3ZZStgIG+8Tuu1er+QvBE6fTEUdJ5i8i5s7AwFnhMfZQQk kL1fCHkxVDlD3ZLMydvSfWXXJyOFJE5+dmXcPXz4MNavX6//3lHq9IULF9Qg 5syZM+qshHHx4sWYMmUK223ZRlEMs7Pv0OHnzn0GdevWRsuWzbFjxyshzd+p Ux8qe7548ScziOTj22/PomnT2hQ9hxa9kj4Jn7pPv4QYfHz6Azw6dRIeeGAU WrVqjA4d7sW5c5+RjCxk593GH/97ET16tcOylXOQmX1ddwmt8NVnJ5FO9+1a VeCRB4Yi906m+kXlwy5e+RY3M/82NTMfs2ZMxpA6HoqeE/fVj8dXpz9Uv7l0 9lySJRvL/LwsbN20FCfe3WMKYiEymZIl0LnsfefPmsLGLxmPt/CSPqbdljGk z6f9127+EgOzv/bWuMWn026nkvTfINFLT2TzF61FrxsUgYFxS8B/g+kzlOQl msEDgeYvSPT2Dpb+C1v0LAJ184cisz9Dwee+m+pZ9IUZsEmf9t1Ee+anVJAa aPV/Ho9H5gu757tx4wZmzZqFMWPGqO9zc7WavP32UZI6BCdPnjDDbSRJPYgW Le7F+fPf2VhasvDVV18p/TTMAG2Fk1WrVuL++8cpBvXzlMcXX3yGZo1rUQAF avvdqJ3sxf59u/WbrNrHfHxx5kssWDQX8xfMxsSJozFy5CB89/0ZpXay7bt+ 43fMnjsdx99/Q7WnBUqS8nH64+OmAgp0b9UAP5w7o16nSimFMsRLxJrhGgPT 4PTmGFKXn8i6AsPrRWD3ji3qeWSyzZJNAo+/XPoREwZ1xOY1cwlejnp0VqHu m7OZnB8bN4wSmEwJjCOECWb69YakX1sCzSZQj1x8Ov3KBJKWoiUwzU8IvXTe KAWhSiASQkpfsPPKBGyNXMKc11AzlwStgAMC477Xg0d+IQqIQPo1GTymekBp l5LA6KIMho38TgXF3xAKYwMUBnd/vOHkUaYMSaH82EsKpbumpqbK2xoiBzZt 2qDE7dixt0x4UhRIFSqUoxY+agN4584dG2jrqFujXHz2+cdo0TIVvft0V5MX rSQ5hOkbNGlYgxDK7s+J2knRMnM41AV+xcGtTD3G+/bc15g96ynFvU68hXYD qEJ1YYHtwAvmPMEIIiiE5K9aMl7aslELFhtJh3pkXRzatQ2D66RQACV7oPtG YxEfJ3+y7PCyzZjzyYl3cX+TUnhy8n3Iu3WDKbtQ3VfI5vWPXy7isT4dyV4K BTCe7MWb4z6v6vpmsma18evJS3vJXpLq+Baa1rukU6IOIJ1T1LhvBTu+lenx tF+PKYDB4z4pSpK80rrrM7nTkxcEuj7V8SEUvmLTbzGjl2IWPwyFXlRxo5dA 2zfWhs9kT4/53HC73brrM71XTl0uX76s2YpUIWPQoEFqMe7UqVP21FkuYpQq lYI33zyimsF8Sm2nTh2QGB2JhQvnM7Bc1acjbE9VuvPpRxg/bjQqxBsYN3YU 7mT+o3tENy5TQlo1b4wavkhFWp2kOLxxZL8Oux7SIZuqQpugSz9+j7mznsaV Cz+ZapqEQjM/ZGdlKpoKcnJx9NB+5oyypuUC3ap5MOXB8cjJ1BZZmF+gXx2f c8bDY0icG0PrauLuqxeFR8YPlU9/Cx3V50Fedmjndkxo7MLETg1w7adv1bk8 NYK5hfNff4gpHZsQuCQCl6jny/aoj8DJmGEvcPgxl8BpsZMxIwFLOnpN4JIJ nI/AJRK4WIqdOxAzlOOiiOPq1TaEjPpk4t1RTMzQiheaeA8W1+9Z45YRRWZ9 hpK6iJCY8cGYoGlLCG9a66ra/V74Kptc9ZWTPtnnHThwAJs3b2b73xARTrDD ekCd3717N6pWq4jYuCg8+dQTOHxkPw4c3Iu3j72BHj3T7VU2eXv7S1vw8Scf 4PRnp/AFM8F7J45hwcI5aNqkAcrHudUqW6+eXbHj1e3k5+23jmASNm54ATXK l2TXZ9BxZdfnxdzZM+jyB/EOf8ZbRw/h6JsH2Wq9gTeYC7auW44x9/XFpnUr 8M5bB3Hs7SN47yiPb+7B++8dUrO+OTNnoFNqfaRVFjrrUvG6VRPokVod2zat xHvHDuLksQPMpnvw+o61GJRahQxCM1hPqp4DIzul4o19m/Hhyd1qcePE0b2Y MXk4IRR4oEkkNq6YjY/ePYgPTuzF6ZP7sHX1M5jSvDwhjFWOO71FDFXPZ7Z9 XtNx5eglMWjskmgu+RLCThJCH9s+v4JweZcEho4SVD2n3fa9wFpntn0b1SKH NW+Wjosgx0VA9azQEQRhSNY1V9kOD7u76r1TnOqFLfkqCjNCFjlCUkeEolDS J2d8hnlUyYM9oMsg2m7m4VUKvggXEMmKiohAtJuRxS1QgsdYDxAXQbBZCZEI Web1RwNJ0QLJMXLWYjDzAqVZZWKBsnFQy7zl492oSAgrJ7hQJcFAlUQD1RIj qH8GS1ADPYQQqJvsQr3kKNRPcaFhSgwalTTQpJShljvkStu9ZVhlBVqwWpZj ZC8PtKkAtKsg0L4S0LGSC50qO5FG+HTLB3Rn9ajGD0B1oHcNp17mrSUwgDWw ttAA1hEE0EEAnRhRPwojGzgxugEwphEwrpEb4xuDtksAmwKTmgpMbubAQ6nM NPc48ei9MXjsXkEFjGURwJbRVEEvVTCWACZQBb0E0MuWz0sAGc+YOea39xLA RAIYr1RwqQRQrbIlUgUlgDE2gGuC537Wgkev4lNv6J4DhACoer7BocMWC8DD 7PmOhKx4wOz5zGnLKDN3jA6btow24csIkUGr50uEOWIB5hI5va4ry0XiJHUe VgQr0mlyx9LcweROINbiLiKUuySWnO+lxAiUlEX2SpdwoGysLCeFz0nhc6Fi ggOVEpyo7HWiqtdB7hyoQf5q+hxml+dC3SQD9VIc5M5J7lxoXNKlVnebmiu8 95C75mVB7kDuQO4E2irugA4VHeTOg86VI9Rel/QqblP4yF11gZ41gD41BPry 2K8W0J81sI7kTpjmK2i+gtwBo8jc6IbkrqEgd4LcCcXdRNakZlDbCzR3gtwJ PNYcFD5Q+ATbPZA7sN0TeKq1oPAJcmdgdjsDc9sJlkHnNbCQtaijky2fk8Ln JHsucucmd05y5yB3DrvdC3ffTT3NxY7e5vaCcO76F+WuiPANkYLGZk+P+HzF BI2gEV8xy2wnw1UvaJ3ttNzpEtTzReh+L2x5NwhBAx6y92BA+SSBLpNAT5jy RQh7d4HfVD5JYLKizySQ9JVhlYvTBJY3CaxMAquYBFYngdVJXw2VM1yawGQH lc8kkPQ1kgSWJIGlLQIFlS+YQCpfea18FoGdFIERDBseEujQ1ksCe7EkgX0k gTVNAmtDETiE9OnAARIoSKCg8gkSCIxVBAITmoAEsjWh8j2oCAQevgd4lBRO IYWaQNB6BaaTvidbk0LWzDYggYLKJxg4QOsVVD5BCgUJFFjMWtpZlkECHSRQ kEDB/k8EAoeyXpjzPmm/SvkMJX0u7bx9REje0Eu9nqDVNmDv4GIAZJAtdn9L CIOwGTQUha6A8wa5riEJVAgWYVAv9cZo+Ez9c5r7C9yG1kDJYJgGGgpBjwbQ IwEUAeuNFEoCDRov/+wKwBRzmUMCWDZOliWBTlovJdCrJbCKKYESwJpBANYx AWxQjASmlhbFSKBlvUB7WwIjCWAkrTeCAHqYdj0E0IOe1d20Xjet10UAHbRe h7LeQUEA3mcDCGQoCbQANCVQWa+UQAQk0AKQ4EkAp1H+prcUCr6nwwGkBCoA O4DWKwEEez9BCQSWpgkCCBNAmAACa7rClkBrr4EEcFPIBhedeLUE3mWH1d2s t/iBcxiBhF3i5wxv/QyVPlz2sEUeJXafqb0GQSJo7m8xhVAyaIugIc8rGZTt 35JQE3YFSaDHav4CEqiavyihGAw34TKxmsByFoHKhLUMVlXNXzESmBRKYCOT wGayygRJYDlJoDAJFGhXkQRWMjSBlUhglUiacCQJjKIERpHAaBIYSQIjacIR JNCDAbXdNGFHqATWg2nClMCGpgRS/nTzB2XCwRL4iJRA0jfFNOHHpQlLAluB zZ8ggZYJA8+0kwSyDaIMKgk0CVxsEwgSKGwJXGVLIOyVtgCBgfQhF32DNfDl YtJHyIbTQcFbrFA0fdgaCL3FKnypbXTIqu+HGQiPwEEIfhasgUIO/+yl3iD+ ZB/odmoNjCiuD/Tw4ZLBucW2gf5oTWBydJAJW20gdVBpYFyAwCqSQK8msIal gVL/gkzYJrCUqYGlHXqXqW3CItSEJYEVDRpxQAM1gZGawGrR6FUjmgRGUQOj 0J81oFYkNdCNwbVdbAMdjB+G0sCRIW0gzDaQBKr8K1T8eDDVJDBVm7CKH82F IlDq34yWugXUGmgSSA2U9M0NMWGTQJbWQBKYFkwg7GWPdUG7TEO3HWgK1RCm nyiafwf+l7VeUwMP/5cNV3fb5BdAUONnIxiigp/fb1ibXpxB42algA6FX5QC UIaQEPhMAIPCr6HwywiTP+aQGA2flMBSQR2gho+lDNig9DnMDlDCZ6jsK5fc aqv5n1NnEAlfckD+Glvwhclfq2ADVvCxC6zk1hmE5puuDDiSBhxJ+YtS8tfH hK9fLQLIGlg7kvIXgSEsveBr2Aas4CN4YxvBNGDdAUoDlvI32ZI/ls4gNODm Ej5mEJk/wuWvrSV/0oCFacCCBgwF37LOlvxBGfCqrkEdYPdiJ4C6A4wvZq+f XHILiiBUPr3kFr7ZTylgyD6D4f/PXr8Q/0XwwNmQ3CnwFHkmeJb9BmeQ4O2l Todpv3iI8ifuJn9hIQShCKoAokOIjaDpwOViJX4O04EtBB3agYlfdTV+0TG4 jt9C0CCC8r98OG0HDta/5mr8YiFoxWChEJTjl86MwGlVPOwBZQhxU//c1D+r B/Sgb80I6h8duFYEBikEI4lgJBF0U//k+MVhIihUDLYQnKB6QBHWA0oHBntA hIQQpX+tRKAHJIazLQTbaQde2EEGEJgIAsukA1P3lps9YED/hL3Lfn3RXfaG EsAInYL7BVrAnQNCxn+GYjC5CIF33eIcNoJ+bxSK3erywZjgDHJqrMXg6fGW /2rxi7Pbv+AYYo1hlP3aYxhh8ifsMYz23/mKQc2fCJXAMP8tZXWAKgg7TP81 dAdo8Zco+RNKBmtJGZQSmCwUf/VTQvlrZvMHmz9rDGNnkEqgBDoZgt2KwXSb Pxf5c5n8OXUGqeVG/9oedoCSPw/9lxJYz0P+Iui/bvLnJH8Oc/wHe/wn+bM6 wIAECsWf9F/Nnx7D2B0gS/FH7iR/VgaxQrDij/K3rLP23+VSAtOl/yJ0xbe4 bX+9EFh16wvbf3cU579Mwa8HbzsYau61MrvA4gh8x/Zf3G3DM3QKcQbvepFl /icPiP8DbCpo4Q==\ \>"], "Graphics", Evaluatable->False, GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{177, 22}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}], Active->True, BaseStyle->"Hyperlink", ButtonData:>{ URL["http://www.wolfram.com/"], None}, ButtonNote->"Wolfram Research, Inc."], ButtonBox[ RowBox[{" ", Cell[GraphicsData["CompressedBitmap", "\<\ eJy9fGeUXNWZ7e7qrJwzkhCYcZ7xG4e3JrwZ+6154/Gzn8eGmbVszwxGUnd1 UOgcJBkJMNhEgwEDDthgohAYi6QcWupUOXRUDkjdCi11TtXd9fb3nXurSgmM 8JoflW+de865Z+9vf+Hcb91RkpO18o6S3GV3LP7nojsKcnKXFS/+P6uL+FVy EpD0EIDpiyHvo3xrPWXCk52UzCdHCjxOfUp2wOtMRhqfU+DNiT88+kjlzzlp SDZfZSfBzYd5N5H/ls+A28mj8tLgz8uALz8D7twUuOR7Prx8eLL4cAIuPjL0 2ynwr5qIwGq+FkyDd+VUvp+GwKoJqM92aOvyP3eWtJ2kbXlz7DZSESyamoxA wQx2K1A4g4+Z+kiR51Q+zXIgUDRLfi2azYPNI0WfxyHEZ1dOsnZDTlQvDzZe 75TOJulJ+JtDz75eP9Zlyc8paCziiUrnwc/XhtK5aGBTDWUL4Cueg1A5vy+b g3DxDfo5WDGPx85BA78Pl85HsGw+f58HH983lczlqYHa/BQ0OKXtNO1CbZYD vuxUzh/HmZ+k7RwonAV/yY1oLp6OQMUibbOpeDEOcoByTh+HUp8Hbc+bncmh pcLnlLYz4Moyc1ifmwy/DDdHrhGPy3PAnz8R3tIFCK6cyTlNQkCOy0mC/w6e m+ev4/m9+fwPj3evSkOwZCbHtgjNZbPhKbsR4RKOuWQegsVzESqeDW/5ErSU z2H/FqCx/Ab+zv6VztT58a+ez/ni+Cumsp0ZfJ0Ld+VNOjcBHivzcqh4nL76 V05D7XKek+OqY388ORkIse9B9s/FNSbrolbGsjJZ++nncYGsVB1nDftan52B +sIpnPOpPP8ctLLP/orZnEP2gf2rLzHXTK5TsHg++zxX39fkT9N1Widt8tGY lQxzNf6a50/WZSJjCpcuhHfNPC4jzl3lHPjKZvJ63oDAGr4Wz4S/eAHbX8S1 MRdNHFuoXD7PQCPnL8j/ytKrz3XoevYtl/6atR10mvmWaylrISRrfbmMm+N0 ZvKaclHnSo/4f3m/PEnxVMtjAwWZnP8ZaCmTdXYD55pLvHIxAsWzeL14TUrM 9XBVLCH+5Ipl8jrInMzV9Rxivz25KfbS1z7Jq8FAqoGKBQ+BifTPoTNicwJ0 XKGiOSkW1gR/BKL9SI4BdIYC13oIiqc7FPtcFXz2r55qHqvICAWTOELTK6/M RrZhA+mT1wKvK1tWciZXDdloxQT4+OpfOR6+FZkZekCyEpbHehhqSTXfkfW8 uanmQXLLtI4nL+pv8urQZyXMWBvmGdem0sxrUakyqZev0ny6NjNBR+Th3PmU OzmSFfx/bpoZ6ZX8aehzHCFMuKyajCAnzbtqCqdwMpfPONRn2ZdKoe/QWYtf WTd7ECj872LPt2PsWcefQryuwaI5isoGrkgvGURQ0kIEuYsWKpsE+HtjsTDc LCJmFpoq5/G4WYpeQZwwTZgIC2QbZhIEeXLHw03WEnRI16QbPn4WxpI2G0sX cZpmERlzyQTz4S6eR2TOVSb2ZqUQ7SnKtp7lhiG9y82Mu5cLE6SjehnbEoTy sy/XoLKWV1CsgVdYmccGcw0q/GQsGa9YQJ9cdUEpr3iodBZ8JQvIFPN53huV DQJF04jF6Wjib/6yJfpba+liuDg39WRCeZULE1qzWC2BjDtUzP8WkrUKpur/ fIJ2sk24YD4RvkSZX/oqjOLifAib1C5LUtYXtghabCNML+MILDdsX8Pvwxyn WAz5PVR8k1opN/vTSLYOls9GY8EsHCmaBw/PK0zXWDoZ4TWz4CmaiqoVqdqW P3scVy7bXcolkpeE/dIPruSaFUADF1sLGdfHaxssn6Vz10gmDq1mmxx7YO1C c33FctBKBMpIHbxOMncNfC/rJcw2/eynz2mWnKwyWYYy54GcdIQEcXJ+HlPH MVdzHdSuNMd42Bd3XjJqnPI5hVhwGMtH3hDLEC5YZOaS5xfL1EjmDAqNFdFi k1Eby2cb8kxV8lQhIARaOF1R4NDFnhkjT7dlfP87yDPjCvL0r57EAcao2/DA uDh3Oq1rzfXtWzkBXs6BcKhvxXjiKf3a3JlmvpNpJkkZ7hRCc9h/Uap0Oq6f PlOvSp8OPc/VZOgkS4YmqQz1sVciQYULffnjjRzl94ZKkwyw1ZBYVDpBOVHG 7ieFqt0RKs1L51wlxdk326hQl0yl/C3ZkHXBFL0ajuvk0z1X5dM6Z5xP7e9l CgWwHus3OcbPC+ehvAiUU+pQ8tSvpUmvXEJ5NhV7f/RleIusVUoC9JfcZIiT q1XkW+MTtyH8u2KrtyQcXskaDjr4Q1m1ySonZeD1+UZaujkCbylXOh8CTCGF ulKRfpQ5z2ej8ZnvE9A3aJ9dbGN77mySikP/X+s0/RbZVifgVYI00sV/h4OE P4/tzyAxz8WO0htQvTxZCb4+hzaOY/ZSFtewTSFUed9M8mvk2PyFs/WczRyj l8TS/NIqtLy8Wt+HC2fpb9J27WP/htDvV6P2wW8rCcmchSljgyTSfU/9Oxpf LkWg8lM8dhoJlST9i39HaNNa7KJ825edpmSv5MG+VJM4t2dNw/4Cyqpy/l/m KisNNVkEUn4ygktJpksd2HHHJHO9ZNGIpCsTkqetLp2BJhoyMWoukpv0tbFi jkowkWmBIuMibM+ZYK4VjxX5vnepWQfuHDNvsh4aV99gZC3nwhhHSlnOY0Nx XIr6iij9SNDhSrocNDh+zq/vkX9F46/+g1KW0p+84aa8DFgGzyfjKluoY/by WvlpPPY7ObZlqdjG9kXG765YwLE5lOlqcow0D91BFlhqjE51znw1ukKc0l6w fJEaMHE3XAXz1PgH1dBPM4Q6JaZG5TDxCOsSiNMmVDOdjhhp2oRa5/yz82na lXxKd5Wk4LA5w9KjHotSjNxKUpXnFx2qj/FKEm5naoxPnVfyqVCk0aFpCZya YhOk0yEHOpI/jDZTLqfN5BhjJsfOad5N1q66s23WFPHJK5yXqapSWNNP9pRm 1FwImcdZM+bA12ebofpXTqK8EgU6SUyHMclZcdOsst1y3uWfQTr55M3rlaCZ pLE5eoE9zisp0z6xzhneiVGmK8dQJv0C6piFuoxbVi9QOLaumK0wvHAgiOhA F7pad6Lq7q9R/0w38Hx1HYb7OzAQGUZ0rBv90UEcr9uId1bON2u0cCGGon2I RNu5fuepJq0jHUQH2hEZHsShbU+qrm3hSE/u24TRkWEMDfdieCSCs/7N2L1i ktJRdKAXo4MjnKD5So+nX/g+RkaiiA4NoopesMBxX/HncTK8DX3DPYhGhhAd HUDf0Qb4Hv+e/i79OdG0B8ORPvSFX0f1UqO/Q28+iF62NTo2SC90GppeK0O0 6xDbH0aE7QydbYT3+ZUIlXHM5dPQcagKY8P8/sAutFJ3CZWEi6aTPmbgYuhN jIxG4Xk8W6nFy7k8WfV79mVQPU6/M02pwM9FVkPbeuz5XEQ7QhiNjqCf/RqL 9KPlzXXYRYhVidf+yHfQGx3DyFA7dd8C1aaRrnaci0ZxeNuvVcPvXf9/MXQ0 wGO6MXDkHfgKb4ZLNeE8zhf9iie/h+jxo5xvztdAP4Z6WnG6bhMGOccXApt0 jTS8vIzjHUG0/yLc5RKluRm9h95FD8/T11Sl0RuhULk+A2MDaN/zEPXvQhx4 oQwRuQ4jA/C/UI7dhQuU1gPP3IGhoSEMj/ajN9LLMXrVxAlf7S7+BHoCGzkn /ega47zL9Tq5H3vuv5UmLUUjHJ2eV3hNxtAZ/qNyXzV1biRykX3sxLF376OZ XoQTr+RipP80BtmO9w/3s48LLA9+nPpRiZwpY3RZQHVZ3iPXv4FCSgyXV6FM g5BkImvun9F/1wjfinExHk/kzEtIQjlzvOFNlW2ZPC4lw+aqBM702npUffc0 la/6mpNqKUNHTLO61dO/GomOkxfH1Ug046raU1r3GZVrNehW111+V62ZZ/Sm lx1X3cnP7iyHJRxjYtsmTpkH6bSQpk/nayIvipGAfovTPJZv43Pa/o2DZnP6 tSKfDnlOFm8lVa9fsrl+FnGa7zJ4zGw6QON0geoJ6ACpI2iIM0O/fJO+2Dz1 w5qLRV5QWtBcu8o+h7YTHsXXqSP74S67iX7odLif+AHaiKdTXOPR842IXjhC fhxBZLANTVW/hVt8Z2Kof2SQ+Dlj/DpOj0i7C4PDxP0w3n/vEa7oz6DJ/Tqx 24Gu0SGMnT2D0aO1GD3sw6ayxXA/9h2MRbswNBCFr/KT6sO1vfgDdI+NYYDY FJ9ve95c9Ha0kWe6cXGYmAzsx2BXG85HRzEYvahj2vef03E4UMu+RNDv/aP6 vgFKuCOv3UmejZI3+zVK1u1/GYORKEKuFzF0uhnRwQhtwDnlDVfRXEQ6j+jx 0c5WylBK4Iob0VBwM+qeuk15fWCsHxdrf8+JX6wyNDpyHl3DA+gh/1MPaKzC T0l7fNManBvpJu6jiLQdQv+JegwPk3/ISb01L6q0Euk4Ehmg7WF/Srh+lqej MxrhuPrQXvUrExup+DTaDu7DEG1U+5Ft5I5P0b7RzlXMpKSdgbHuQ5xr9re3 F2cObsTYiWb0sL0L5MPOll0q48Ib8zhPg7RjUY0wC7e0NdciQi4c8m2iO7FI I4z9tAsj0X4c3PqQuhId23+KaLSD16cPgS1PIFS+EPVPrCA3DuCMnPNiO1p9 WzAy1oVqiZ9w3ANdp9AWlWvHddG0Cx1dveiLRDBEO7v3J3+vLkKffwvGBqPo bN6CPavmYfN9/4Qo51DGcWLfSyrVj7xYgN6B88rZja9WoKlwpqHHFF3G4v2o yhWUG7dNmNFjOSTGZU9WoLqcJiriUFikxJUnAUPgXJMXiTk+Fc508GmG48Pi maHCyajPsjIcdvzCwrjPaXM33Vjypvrk4o+LEMtOurZPbhhKKMVjNKTtLHuc 8cPTLdL7uFRoTsY/pJq/ujUT5LZErEYx8zKvSocmZmvRIf+VyIdutitCMsC5 8q2aqBFu+dWXFedDj8WHMmfCh2Fx1wqnXT8fhmg4PVS7dpSm3kot1Juwq82H 4uZJow1F8zWGqBql9LM4edxFrI7g4tFdqF3zNbRyoR35Q75id2ToLDy/vBW7 Kv4eYd8fyRX9GG4/rTGy4Jr51AVDqt+ED/1W7DBK7hkjjk7s+BmCD36f65yY J9+e3XsPtmz4ssakan72bY0jetb9Bfr7z1NHjlE7ziWnil7MUX0zOjqKvbwW Lc9Rdw2Ost1u7P7xN1F/B1BVuAjdneSzyCjer3pSteGJ0FZi9SK6GzajrsCh nNj0xloMEucDo11o5tQF6fI1PvR18v58HHzhXgz2sG/RHrz/4lKN4Z7c/BN0 B17DoTfXa1aquXgq6koW4rz7efSRZ0RPRXtOwfOTf8UJatE+jr2b8zTQ066x QJ/EJ5eloL/rAm1FJ0a9L2oMNyy89MbdtBXUouQcd9lfq3vax/8O8yGuvE/n rptz3Ivjf3xYtXQLgT9waC9G+0fRfzygcyQxvKp7vozju39OnuO5R/oQevI2 jdVWZ03CUGAXon0nccb9MnzZk3FkUxZ5O4oxcnlLwWxz3qN17McQ+g7u18+S 1RsaG2Z/RnB83280Zl299os4tutptPteg/fRb6uPEW2nbzFGu1C9UTNM4j6H 13KeZIyvraIdoT4c6uS6mq/u/fbivyBvHtP5b9v/Cmqy0nDO8x65uQsdTW9j b34Kdt37NV0fI9Tdx99+AIF1t6D12Wxq/E4MjY6h6eVisb02H0pUQcx5Q/GM D+NDbwIYjJufEgtpCmBCH6AT/3Q+9K2eHOND42jGMx3Khwla1ks+9K+YqPrQ YrUMO4GSwIe27ruMD2P6kMSW+RF5MPkSHnToc3IsiyOC8xIitJVpjAiVDA0R +vneZJbiwY3LidAl/yfpS2rcu3K8inR3QhDSJkI7PV6fLbPNySz4GMIwxGUh M2yHT4QVbCL0OWNEKEEaCYhLskESApJGrav8PI4dqyERDuJ8ax12bvgGvGs/ hYPv3oULo+I0dWHvPf9TEwm1rxdgbISA7ItyAbD54gkKRHGuAmunwpOXrvmr aGSEoOtFw45HcPC9xyl0uMiHI6h58Dvq9NSsWYKm8k/gCInZ9ZPvKhEJIbTS gatenorwy3fT8SPxDXeiKjcJF72/pZNG0XDMTTdnMppuT0YNHdTGd+5TZ2ts 4BTqVmfiXPO7dE670Rl4D+58Tk52Co5svpdgErLp00TEYY7d9cztOELhNdLd o/2Pdp2Af+1NOFoyTeNbtRtuUaINVM5DU9kUVD1EoA4MctwRDPa2o3dsFK5X HsaZA2ESPp3Psz508dX3h7tQs5JO/p3/pIJQhM7Bn/0A1QVGq0sKP0Jx28bv Q885UXvvv3DsJCgKaUlxS7o8Gu2lAYig9b1fw3PnZyja5uI8nXlxcocaqmgw p6LxRzfjnXu+i+MH6jQocOqwS5M1oVwBIcXpkzQcdESP+t7m+uV8bVyLocEx zsEwjc8tJLi/wuDJADqi8t8QAhUL1agN0MgNkghPVD2DA5wLfyEdiYe/AdcD 39CygNAvb8fF0U5eyyjq135SU9zi0TXwGkkCqsG9g45yH4ZP7NF0d0ueMfgH Nj1BgzlGcj6l8dazdJhlbtqbd2J3Tiaq7vqcEcg0mC1bf0kH4RY0v1xJwd2n Drj7pTVoLF9kJ2+ECHUpF0yNwctmvli43ehCffY5E9lQsJESO05QQ/T8GdjQ u2qShtAkox3L0iSwoR2CE8Lw0umU4L84nm453mmxYeYVbCgE5ctJu4QNL8ml OA1zpVtKMpa+yb4eeky2nk0LSbE2Y/SoLrMGGzOMr59Aj+L3a9DRil2YkTti KW9V5DIzPC7A2ZJYXr1NpVlWbEECG141WHKole4mO06/fnYMFs/Sc8YiJdZ6 sKqUbHb0FUzRoiCJxIfLZik77i/7LBpb99A9Ifpb3dhW8VnsI2Oe3XY/kTKk LLW98u9QRSlxeGMOJUCXmvygZHcqJlPeSciuH9WUNGHOaZjyMUrJKYzZtPcX OLb353TjhjWktnX9t+Fe+3dE2hJU//iLKk/8992qbmM3WbipYo5mYgKvlNAV 69FQZt1ScbN+h4ts7+jhGuOuc6jNZILqN35MGUs2iVzQ0OnJ4E5lm4v+bfo5 TCSeeOt+so2wY0TDVXsfX4qz/b0qmaK0CH1ngpRvlZRJf6Gpaj8lsoxLiohE Ook7/f7O+8g2lLmunThR8xyGyY4nj1EuDZ/H2PkW7Ke7P9BP2TNwER72L7xm sUplOU5Stpq6L0jWkFp0+AzHSlbalAs/24729tFVpXUpm4k3/gt838H/tqF1 y4PYteFLqLr7b9B+2svrcA7DB/ayP4twqGIWXBu+iuiRHbweZ3D+yH5lo9r8 NC3E2bzhn3TuTrTuwD5KtWMvr+O89JHJB1FV8kVU3/m/MNBcRVk4iM7DHuqt aThUOkn7Ozx4Hke3PazFUw28PoGSRfBVfEKt2olXi9SaDHe108ItMKUNXL+1 2akI5U9ARwvnf6gNx47Uan+E7Q/wOjS99jStC+XvSAfqKCu7m/6IAVrYrrAb VUtpESs+raFZuSYndz6NurVfQsMra8mgEZXlLRsrZN3adUHiMgs7SlbYZkc7 Y2xnYlISdKKJwAszCi5SYnwliCZyPjIzXpnKlvIWiZFJOtuVZeE701JPuJQY SS1+cZ1z0/XzBO3K+IR6nwQmzLlUG9rOciyRHWdBXA8Nxgp8dBIt9zg/XUk7 rgwz4tQnuRNRpUaX21pMHmn6nBljQOl+QPk/LabfzRTYVitFhy/NBoum0+jP +DjicKb2M6ZYnUaSW0bJpj+pwpJ1EypepAlNWU11d34FB47W0zj342LwPWz/ 8Vexe92XcX7rGhr6LkQooPaXf0rFQeCFHxnRRtiIJ9hSejOGJSpGCnQ9u1or iCR5OdJzQb8/SBi5fvYtLvt+9PZE0PH2/dj/o7/Eu/d9AS6KDi8h7/odPauR kxRII9h1D+HOqT/w2x8QRufUS3cvG4cDz+ZgQLIG0fPYuvpmE3Fbmoz+zhPo 6uvHBcKthd+dCRtxMnJ8P/asTsE+Lo8zex9FpKcL0f7T2Hz353B6z1voEY+s tw1Hfu+Eb83NqL3rW2gtmkgBslgFZNOqmfSo52hUcPsjt2Ko+yguUjSdfbkA 7sf+mR57P8WsiJluHHnrMa3HjLa3EOI9aHv2+6gnBUq0LUIhdeKd53VeVLP/ IgtdEpGMnsWBitk6p5HokAo5D0G3JzeDc0Hx1duF8Hs/x967/xbuOz+PzqPV 6O89RQHfiR0P3krzNR7hdZ/DqRfL1avuHzyHXZVfht+ZoUniMzW/U2o+3foH 1HH9dW9yom+Q/elrQ/1D/4m9P/5/GCPtDfW0IXrKi9qyT2hiu0ecAdLm4e2P IFi5hEJyIUIFM2mWFuu6qV//NUQ6BylU+3G85im4pWpneTK2F34arh840Pxq PvtzBn39nWSEBYqDPaTf/tN+msB+0uNW1JAyL7RuQk//OXQf8NH8fgb77/46 hnovUJxewFnPRprGb8L32r3ooJMxGOlE6Hf5UiN5Cf0VzaAvEq/ksUuP5bMr K05/scIQZ9Il9Kf/yVfk/Bnoz7faqu7j4nWZbIYkYe36apNZMSU5gkGPsmTS +MRoodNhO6+5Usrtsap25GE7tJ6ELHF6LMl8nd5xYtwxFZeXXKYZ2uNwHEqE GQkK0IoWiii1lZ14+nH6MyXhKcqkUiIcO8x5Gf2xiSBFotCfX+b6eulPqsFi 9JcQKLyc/vIcmvwMUn1J2bOUfJ969j/QH72A0SH6xl0d9D9rEXjjfjRs/7km BcVv2172KTQXz0f9y2vUh5WATuB2EIYL6bP2oldg0+7Fgbd+igP7fo8x+UzL 7X5uNXzFi3Gh4S1NTkQjpIftz+Ng+A845Xkdm+75giZQBgk5oaSOtmaceO3H aHnpXvRKUJ3nEvW3v/STmrTpY5sd55rQ+OZ96Ai/iU76qtGxs3A/cBvCHGp7 y24NuIlSO7DtQbS8+xi6LpxSdXX+8B6E6b8Hnr9Tx3Th9EHUvPU4jm97DHW/ W0F438J5mYT68umkvnmaIPAW3Yim7b9h39mXix3wUK25K6ag84BfEwcDpPV3 N3yXywVoYb87e4YRPeRGtQQE39qgkI/yuNPvPIzGLY+io6tb1Wl3cDNqC9Kx u/TT6GIbEpyTAO7J1x/XoJgECXsvdKKnxQ//00tx/qBbx3SSCv18+2FS+OMI vlgGzxNZ6B9o03nqaX8fB1/9KU7vfQojg0P63aHmrVRbaTj6egXOSYCT37UF dqFx/2ZSqXwew/mOdnQf3MFz7UTP0JD65i4qL0laCyVK8aNPiiJpHsRsHn/z Xr2OvaMjOFX1SzS+QQo+4UUDl9u+kk8g2nMaZ9nXwdMt8P2mBGcbdmgifpB0 HH7ym6ihqThxZAtOizmhL35gz69wzLtDVaX4y90DnThbtwntJxp0DNHuRux8 4DtorZh7SWFj4XStWbVztLZvXJ/AOMmXUaBRgJY2zIpTYEPJn0MBSnZbKDCw crxwQyIFxgqbbZ7LFcJR+kmkQDs/4bDSI3xrVS7mpCYoQAcyY1R3vdyXUOuY mtADPY7y1KHMNy4hU5LAfVotFCc1r819GfqVHS/0OK3tNfGEuqnvTIsrQQ4l RIfUqL+Z109/UuEoAfJE+quzEvf0UGL0J4U9WhS7RGuaxbm58EoehugUjQ6Z fGZ35DSO7XkVrW89QiheoGrqwJ51f42q5ZTpr5eQ+s6SYnoQyh6PbQ/9A6nh DJduFwaP7cJoXzupbxDDfRfR37gJ++773zhYQdp89F9wMbRZQ3TRLrHyg+g9 FcLeB75LqHcopXZFRo3z5f4jjr64ge0OUZEeRZjUUiWz/NT3MHI+pDmZ86RB OU908CQOPV+E6mW0TlQibZ7n2N5ZUkc3RruPkBpHTf5iYAh1r62n8rwRh5+4 HWcO1GotyxihHu08iB7fc/BVLqICnEW434LwyjnwyI6ZtQtI63sI6UM41/C2 Oufh4gl4f8v9VHqn0Bbchm0ln9dyw12Vn9ecbLS/Ha1UlTtzJuKk+7eIci6E tqVmKBo5hOHG7aTZT2utU9UD/2hyF5y/LXf9I/rcOw0FRIZxUeZqcABHNq7C uebdbHcI/T0NGO54nxQ1is6DNdh659/A92IWHej3NYAwONDHc/Sh65iH16kd 7U2b0bwyHQ0vVtIERNA/0o3hUwH2M8IHx9/TCE/NFs7Zac1JRwfPYuhYFeoe vRUtJdO0TkqcYFmILaVT4Fs/C3t5zjPbX8DQhV6uG5ojPkTp7szNVCfY80gW enpPs/1O7dNIl1DYCA68sFzrjBqd03Au/B6/v8gxnUK0rVWPk/qm9kNV6DhO qu9u13UWHbqI01WPwE2l21A+z9BfhlpwKcuvy06OBd0SNsWk2hHB5XYW8krW E7AQNB+Z9cZdRfgZ1guumhgrYY6VcqfFauvs6mdLdE24gvXSYsLPe4nw88SC gF6nGW7GxyW/xOhjql2/I46opobTrUqZTH31fzj5xUJ/MfZbbhhQY3u2M6wD VSa0r4WwX7jQlGb7ij4G+9Wxj7VZ8dSzvZ1FLr4/Lv6kWFmWjq94iSJZKmZC D38Xh9uOYmxoFCOH9sFL5AbvuRUNxTcj9Fw26p7/EY+bpo6G+oNlcxGuvFF9 rNr8xfA+9A00Fc7Gjvx5qHuhAKe2PYrAayVa9RAuv9nskihbpBVlO4nC3q3F OFz1JOof+y/UlH8JR7b/Vn2/Qfqs7tcr1XeWfu59+DZs+/m/aThRdkPU56TT j0rDiWdW4Pjz6xF+aR22lH0S+6UyRpbXCihS6/mdZDZ3rV+MgxuzcHzHT+F/ /Hazr3HNp7Wgt/bpH+Lwuw/i+Ob7cPyXK1C3bqFmxWW/pKdwCfs9DcE1c+Ev m4LDb6xBmGIo8GgemkvIkGxnT8VNOL7nKfrvtyFAH1YSElIJKZWY7vIb0Sh7 65ymX1vv+jpqNhWj8/kS1FUugOeHqWjKMjtcqu75VzKWhDg7seunX8fWDV/Q 6p1o3wWE3b+G6w85qLrrJvifK1D/L/j0MoQfux2tu1/AkTfX81rM1uzjntVf weGNxTjyxgbUFy1BrVT+lS/Anru+qLtQwvTpG169E+HX1sD94LfQUvUbnHj3 J6hdsxh77/oqmp75Pt7f+SxCb/0Cgad+CE+ZJIkmqP8rhehyDbXgvFQy7Leo CJTEWtvGXDS/vB5Vd37G2qVBx5Rifd+qZDQ9extOvrQShzcV4p3KL5iiel4j 9w/Y3/X/oPtOQ6smwLuOfXv3CTRvvVcrsLbd+TUcfeUuCstfo/HVu+Feu0Sr UmPij6conmGSIllXZT/1g23f15+VSIHG5/JZuUlBDJHz5wj9Ufj5V1HGrJ4Y j41lxMSPx6541D3CVjlzVowClRmdcfJLQ9olFOi5MiscYz4Vj1qcbdzZdEOS 1sOoRavuxumwYobp8Vpu4Tp1cjNV5AnXOZTl0qxdKZnG0ZW4oOGVKdbYYrke e88fsSkqTigseHUlFy+blosos00FJlkLf/FsPubS2ZinxS6hohmaDjHnmqXZ kzCnuLl4IRqJMc+a2diy7hvobA5pZdZQyzt4e8NXNEzfUrJAd6nVrPsCqotu Qe2yZLOdKTu+vclKTMfKCFbP1CUmBbwOWWMOfTtVl5tbdn5V3mBMbvlNXOt/ j/oX78LYcBfOUbk0UxX4c8ZrU3vIU1JRXJefrHwp1zwmjG27ay1S2UstSWo5 k79k9hTLsstmQKEqr+QkORTZIuvNT7NTbaa1OZbhN/v8JOXqK5ilKeJR6jnZ WrGPWnBsTDRlJ5rfvYeI+2fdtSx1dh4rkqWnsXZGixWyV2l9jmWgLpXpIm3E 5WKH7c5K5Z20JGe0d0J4nSYO781yxIaeUFVvIrMODdtLAQybUFinSbsOC+Cy 69CVm6HpG1GJsfiRXdvBx0SrcVknoSJZR7J/mJzNC+mXSqBi3bn44QXBE64s gNNXE82Sbfx2PMdyInVyJtvawWmi5r7Yzoh0S8akx3edJWI4Jznuv119y9n4 xJ+csb1pFsKvsYsi00K2SVymWQomIxbFjyM71SB7ReYlIaypl8E6FjNkGx8V 1kFVpzxAhLMssCIpRpulsJaNz1OsOhI9B/sVkL02XOee0hnYsuar6GnxYmA0 gt6WPdi5/msIUxI083LqNvzSBVqw7cuzKn6SYW8j9mYnxSheK0IKZpld/9bC SkR1Azsr+xxaafGllr5+7V+h+YV8RC+6qEZOwlM5H76lZsWdfuo/yACL1Jq7 b6dVX5lxBartsOsHoFoitjaqdSN7XurlqJY8llbZWRwhrYinIkEa2QkiKyI6 OIy+sQhaNxbRY75JK8gaaTdbV8+NbfdUVAvCZauLherYjsBLUV3nTLsqqq0t WmJir4Fql/MDUZ0pbaTEUT1ORyNFXaLkNER9GbKtckYb2LJSFNhcOSLaAmIg xFAUCthnfjiwMz8Q2O68NLs0NevyPNb1gNvzMcFtEnupim6Dbdvnsbf8p17q nlguiolNpxtTbW8mXZHopiTFwG2TmNfKwflki1PRjI8EbgGyKiQL3PI+JCgS QcYra4Pbr5G1NL13hQBYNmNWb/hbdId3aZTjwtE6bN7wLbhK5B4Uk3U3fbhg JpoLJ8rudJOnyIzFc+J1ZCarJ3sqLXBfxWZXfgIeCVzKfS2KjXGX89Su+Sze zFmoRURir/pqfo3+AXroZw5gB2e4mSuyZtmVNttjpRIF3VKdfxm6tVpAdlgX zTe3GpGp4HV1ZVn7FaSNmfpRakAlIS4pAT/5qWd0BOdpp+Wvbq6raOcZjUEd fm0FZ3W+3klF78TC4dr7aKSOXvchrhxnQTphM3cCngSQYkUlTSTdiuPbtCX4 duUk3jXjEnxf3mS9lhGN1+QguzEuNukJ059p9vc6U+J7Ny4DuLy3ES7LRZZN UG5XI0vKRniB3BDhT9jLc23TLckoqXlyZccrlPQ2EzHTnZ4Qik0zQtjepJOb alVOpiQgOy6/rw5sFfOplyDZiljYSPZotbocnGbKnfLSDJpzrWR7fuYHgdku OYqB2Rnf0inxhWDBFKkfug5LPVvFU7B4njpCwrlStCUS0waz9w7ojWxkKcou bLkNQd2PPoujW5/QWqDO7vdR++ZjCD/9Xb0Vgt5cqGSh3nKhbqlJOpqlGldT xgQkKzjN6pmpC1Q+28jWz2LQuEKkNFrALDfCaZUyafbdTeEtHp4km9u2PIDh iz0YPRZALY1oSG6tsPTaYHbJ6rsSzMJTel8k4S1ynKkvwaVgnhMLo9VS8guY g6tn0FSPKHiDRQtRzd+6mvZqYLf74FYEX1qLwDM/1JtSiNsuAJTTmDKWmaaq Ii4kLpksC8seqVQhZqcm4Fh4QLZV22ngGOTiEfmr4ViaSsQx14k93fJItNiB VeOVzK4GaKu8wsazrBhZOaIXzWbYufoq6+1PstjXxrN31WT2ZKKJMth4diZK 8bRYcNF3KZ4dCYDWrEtCNtnsOXZY1TdxHGsUMdXCsaScEy2yqfWz4pCW3LZx LNvsfFbgUPEsJjrVxA6tbdZSDCOqO45jO44oiyw5hmPJuAULr1oPeBVHeqY6 zvZsh4XiC6eZSmVFsJxhmgbTZAuHR3bdFyzUW4fUUFF7f7kM0dNuREZke+hR dO96CNXyPa+gBOSkpsydB7uIJ3F1GtXrUGfDrB2ummR9Oy22qFoL5JYqs/VW LQbTc/S2KrJN11M8GdXEcZgN7ec5guWfQVUuj1FTKcUVSR8EYfv+XokQtrAV 5tdhrZFIj2/Ut4Exx+zZccptH5J0BC10QSTPEe09pnkhuWNX8Oe3I3L2hJbs RqPD8Lxwl0FFoSGOGIQ5GE3zL/9ACIvnIhw29TJTLDzky594LQjbnbfHXqf7 G/5kCIsMq7ddZ2ciE9hVUo6JCWQh0xWiVx3WHKsxzbK46NJdH4QtcxyDsKmM c5vgWAKEU2IJSJ8R246r4dd7OX6tpMAV+DUWN1kDYHZATP6YHPOVcxMMsA3e vEyr5MNr4KsOs+76Taj5yEIsDhYr7LB2CAcLphG+Mwx8iz4Evub2AelXYFdS KUr5zjh2dZu6OIWlkqK7WW7zo5ZkW9lfwvv0UrQFN2IssAldrxegtmK+ueFb 4VytlfXkxyKjsTyQvQDY58DqSbp6Uq27XIRUyC5Qd1XgL96v7iiTOzkVTKLc SFfv2EMzK6Wuckcj2S1UJfdWzLomXN25GVfCNVXhKro2bO2Rd+kdea5VXRjH rYSVRDM3rBqHg6+W0CMuUfvodpL0fpiC1ie+h1Ou36C35VU0P/U99csPyC1V EnDrL5xqSM0WUlfHrajaq+OWPLVysrGpH9n0TrYwKorHk5ucWK4TK2Wts7d8 OlNsjNrOtiySKzD6p2yBvwpGC2yMTtGSdYVM1rUxahzROEbtnJ1VpqqF+3aN vZhOWyuPuzpGUy/B6CVedLIiU54zLHwqNi8px7Ktq0DUb99HyZlkIzRWfsEB BXio7t3kFH0khAaLTcZNJlluMCHnttnaRqhUO0tQQ+53JzEtWVxN6+ZrOkXK C7et+R/YX3mLhpR9UoFfQqu4mm0tTdGM4WUIlaYUoZzosPSTqyXV9uRkf7rc 0614hrmXBYHuE3+xZJHWNsjtiEL2vQsoUUNyn4sV4iikCn7sBWrD62oI9RXP sg2qr3S2olTvn5k3wdify5f7TE03yzjEyXVLBTHfb3dOxe68yRwEfcIVKZr2 EkZ6l83UrJmj0SKpevdomsncWE/VweqJVrGOJ8tEmxI2WyQgU6rWiUwbmEJ6 8nebS2xgukyP/0Rgjo97tBNiPolEHFzxpjTcmIhSaZMKOBGlekG5UGTBhGwh bF4/Dkr1ZgwrJ+ltbGPpF4u4JsV3saSbm4xZBi62xdDCafKHYBRJ/x/rfW1T \ \>"], "Graphics", Evaluatable->False, ImageSize->{396, 19}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}]}], Active->True, BaseStyle->"Hyperlink", ButtonData:>{ URL["http://functions.wolfram.com"], None}, ButtonNote->"http://functions.wolfram.com"]} }]], "TitleCell1"], Cell[BoxData[GridBox[{ { ButtonBox[ StyleBox[Cell[GraphicsData["CompressedBitmap", "\<\ eJyNmGVsFl0Thod9nj4tRdsCLV7cNbj7RwjuDsXtAwIv7hZCcEKC/cAJCQR3 SIDg7hA0aPAQ3MO71+ye7bb0x9uk3bNHRu4zc89smyT806/3/xP+6d8zIf5/ wxKG9uvfc3h8gyHD7KlAKhGZYf/GxgvjP/bQ/cOsu/jfHnH6NyCpUqUS8xPm zlmW5c1F+ubYGxYW5u6LTHI2GAx66zyNDHsc5WxIst1eDro6jWSzzLuVgiX5 nEcWV1ooFPJLC6XgT0SyObWLv2bBZ6RkTEFAcjNYCyWbS2mffy4lef65bM4j k4tGMuwU14C+RUp4eLjia37MukHNnQu6zieBIiJCMmXK9Pe2MAkEAp40xg5K fxua2p0zGhMdCiXZZ6yyLbVcw82yX1VMTIxkyJDBv5aS1qD71xx1j8f5ULPU q3DJmzevLF++XAoUKKAi0qRJI4sWLZLRo0e7EEZIxowZpVevXrJp0ybZsWOH 7NmzR86ePStt2rTBaGdbtMI1aNAgOXnypNy7d0/WrFkjxYsX/8uJtGnTypAh Q2Tbtm0qbteuXbJ//37p0KED68ah6tWry7Jly6REiRKuQxlVxfjx46VPnz4S GRnpicTCOXPmqBf4lSNHDlm8eLEMHz5cA8DdF3CRb9GihWzZskWuX78u165d k82bN0urVq0MbNmyZZPJkydLgwYNHKiwPiBRUVEyatQoadu2rWT1QWlfsgmB KlWqyJ8/f6RWrVp6ndj68+dPadq0qYtmuMTHx8vOnTvl9u3bMmPGDBk5cqQs XLhQqlatKgZKfOjZs6d8/PhRVq1aJQkJCXLp0iW5cOGClCxZ0oMUndmzZ5fL ly/LoUOHZMqUKapz5syZUq1aNUdcXhX95MkThcgcU1dtE3ESNSNGjJDUqZ14 hSZiY2Plw4cPUqNGDYVw3Lhx8vXrV+nUqZN31h+5qGQ/N9m7d2/p37+/7N69 Wx4+fGhC1nLRKlWqlNy/f1/Gjh3rUSAe58mTR86fP683lwTgCN2GVbZT8v37 dylTpowGyLdv32T27NlBF9uCBQvK4cOHNW7Sp0/vhR3SnVGMzhHBBw4c0HnI AbFonjVrlsYYFvEE26dPn2q4Ao6X6i79Wm7EYBo67969C2COKxkkZ86cmjRX rlyRfPnyeUTCM1euXPL27VsNb8Ll8+fPMmnSJJ9olIWp58OGDVNPJ0yYIJkz Z/aYhojs2LGjREdHu3MOMyHz6tWrXvhbDn6SP39+OXbsmMaB7/6c6mBDo8EO HuEqhmj+9OmT1K9fX9EBNY6ZPAFtrpv7CpnS4hA6S3joeBGUokWLaoCuWLFC 0qVLZ6lZIcmaNau8ePFCg8VHEWGuAhS/fPlScbJD3JIbN25IrGYYUCQPQfL2 +fPn0rx5c1W2b98+L1RVn2tikSJF9KZWr16tfKfR4d6sIzGNlyIQGBQxdOhQ lUNUIAfLT5w4IXPnzjWxGuMjA7YSMGTeu3fv5ObNm2o2HMdxpV/LDW50gOPa tWs1uwkVbHRrj2NSlMq0sdNg3bhxo7x69UqzESLk0nAF4nv06JGMGTNGRRQq VEjvgmTQWqWySqloZPz48UMWLFigdP/48WM9W6dOnSQZjh+wAYlAVOFH9+7d Va+BxK1dag/c37JlS33nrFkzDmt1di+b+WLFiikTQ1zYzDuQlC9fXk6dOpU8 WiVLUri1v7Ah5bdcuXLy5csXdePixYuaeD169BBT3UF269at8v79e107c+aM EhT1xIbPlBm2cbHE3uvXr3XZ5K1RB9JHjx7VdayHgvG8Xr16RhtGUze5fC6N H44AfFxcnLMtvZIMBt+5c0cJHqLv2rWr3if4GHz79u2r+IOL5ZrilLZIKVy4 sKbomzdvlACPHz+uqnAS5pg2bVryDsCGDj/QULlyZeWfunXratauXLlS6wU3 YZoAuIOaeevWLXVg6dKlsmHDBmnSpAky3OvUvDhy5IgG5/z585XrDR44Yvst p0+flnPnzmn+Ud2I+4oVK5ptWESR3Lt3L9yuDEcKtm/fHkwC7iWBAGHMBVAK cufOLevXr1fDK1Wq5GU70DVr1kzhRYSSVCBgkGMZ30CKejV16lQtyyBGWYae pk+fniTHI72yxROaJOioSbhIZPDer18/Ax5pCCMh0ISyYRyvhwvplN2HyK9f v7Qukz22RMvlJH8CETTQYufOnb0W10jWhHNF0pDhOYFDKQIlW07Ax1VUFCId 6kFUhQoV9J2od6oHZoYr2CQMPRsVx+RjojqnEydqUDdgwABdc8g+qHqIyXnz 5qUQizjHblL49+/fGosEE30JEVyzZs0ksXjw4EFZt26dBhTsRi10WcbwKsYA J4RVtmxZdbZ27dpabexLsnwYAOezZ8+0JUErDSUSuYHE5iHCuzQYgqxHNM2Z 20iY2GRblixZNAugU8YEFTdmE4R3SwZCKhZxTOLZqWzqO+0scZhY353CVLp0 aW0fwYaIA18spZmnKJF4WJQE4kjvskh3ulJCHrLBcTpHl1MMfOTg9u3blSzh FJpW0rZbt24kl+NrlEJHpYXCTP7RKdD8mA8vnlRnKApthAEsAROoOF8C8PUB d5s+1/vCcBKA+6bPJMJgBdTRQnNjptVP/BqOUPaAs2gdIBq+SuBqztqfUyYR SN4HDx5oITRdIVjRyLF1yZIlyeu8aRt40uG2a9dOBg8eTN7rJStv614nPSEl nCUvyC26OpwMus6btJ44caI2k9yuHemWT52O7Iu22VKjmK6E3pRGj6BQUe7/ HHQz8hs1auQ1tea/EAiDFLFh4MCB0rBhQ6+6maD0MilclyjJmAQlk8KMmTOX g/mULNRRjjT1XSRpW0hgzEF0nB/JNIoiX4WEDPeLi4gi7rGc7oM1npYmU7Rm KXnPuumAUMkZPpNhK/azD5nMESPI4bY4Y69buiGgqQNxY6mli+E6ZsRRjkFg iOKSLBWeQaMalfwiiXfWeWeMsXAuY2ThFmYztpzdKhtzkc1+9Bh9zGMXMjEf uZRotLOfJ0SFPOzlvNnPutGJbfgR66eEGL0QSghNUpcuXXTM1zG0CSnxiU/R pK8jk3intyN2GjduLK1bt9Z1voktpxjpPuaQY/Yii57RUknRqot95IyRiyzk mLGRS8+MPchjjrM87T0WC5buDuke+iZkco6n7rFfLKTqyA434wxCzCHeUYRy DjLPuxps6TCok3jEr836lu4M6aIBjX6PZEr8rJJU/wK8eHyU\ \>"], "Graphics", Evaluatable->False, GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{133, 23}, ImageMargins->{{4, 0}, {0, -1}}, ImageRegion->{{0, 1}, {0, 1}}], CellMargins->{{53, 0}, {0, 0}}], Active->True, BaseStyle->"Hyperlink", ButtonData:>{ URL["http://www.wolfram.com/"], None}, ButtonNote->"Wolfram Research, Inc."], Cell[GraphicsData[ "CompressedBitmap", "\<\ eJy1m8tuHMcVhltNzvAiSpRIShTlyKatBFkkkBIjF0QreaOsAkMPoIVgGKAX RgJHD6C9HkB7bZPoFZP+69RX/XdNdQ+dxA2QM11ddeqvc69TPX95/ebq2+9f v/num9eXf/7h9d+uvvvm75cv/vrD0LRzo+v6R13XnVx2+v7v4Wv+N379rOvG Zmv4dfq/6s7Pz7sXL150L1++TH+PHz/uvsrPjo6OuidPnpQ/3X+bnu2UMWP/ adud1LabxkB7mOufuavIqenZs2fdHwPRr9L/vYTo/fv3qYsuKFxdXXXPDZna Pn78mD5HZLvdmzdvEln1HxA9bzcf2/r1SJjfvXuXPv+hR30iHIvSGF2/d6T7 aazGaHZHKlQDned5reoG0Ctb/4cPH9KQrxptd3Obxrx9+zbd/Su3iRbM+V0g up0fCT1odhptK5tKsGKhYxvXvkHX9Prr08TBSNHTs+FvJ2gM307ToPWEuC59 H9p2jKYwRefNufv4N3S5nUUnHmvWPPIgDxIICO3OMSAhOywkW0yBAQ4Meg5s t9DLvIULh02iw5N148GRcYlLz7KG9GXwzvTbIDsfAsmWRHcabSzSoYDbGdli 0Lqwr7cRqHRrkeiPDC5bQ+fyZyWneWU+Vs/1vc9zu1hglkkSJ6XPW5mcLwhm OVNqKTskXyL9nMnAxIFsm2vJHEcRb0e+O6HWLagGNHpjbv0MoWFavvIJrTKT 86Xm1YY1JWVBvbZx90ZnDFoXLypXKN159erVOP96olL6lG8e2vrMJPVWsxY1 TBoSvp8IKqhotJwZq1BX3YOFobogRYDRJVB5RrXFrPuJhLoqWOgCpNg7tIX+ PCzBAcOEui7N6veaUcNFSp9CAwLCIdP52GElseiLgsoXqGEMhxGQJdDome51 wWan4YzpU++YkSUNsEKYN1OTSIn3rGBGglk3PqmZl1qRFdzRM9HVc+ggW5cl MoejKBVLR22gJywD5ljPvcJBTaupHIJF+uIPRcaFq+k1TnREXlBQSWAT2dSH 8boY4yyjb0t1NXa4jxXdmUBvqGRqY0kkPvYdp1MZTp+WetzUzG0LEhnxN0gf Fnnoj6TC1Sub8Crb2Jzm5nWvM9Va6jMWHQs5mrAIlqg764a7GXwI75epC7ka XKQr+u4IED6mBU8qyy1KpX74SHiNMm2zh8A4pqKkt06XZ6IrrpTYfneWA0DV EJ8emEyltoDws9IOTNFDGPVSl+DW9BeDwJOmrv9UUDBVp1073utIYrgPTf9D UVOueqfD8OsELSTlDhh6uncldaWds7aluZZC04A1x3mSKfWa5oZHZXUgJXyQ xfqzASmu1LYjEzngWXxRek5KSch2l67+eQGhTgcTYyHISLVQK5ELKA8n8mH9 4qsuHAWbX+7doAlowCUCgCHv12O6z4qWZYYUDpArEtNcXPXq3RpEQ8+wIJJx 76ulq38I7bRASw7VsvElQbZYqKtPlC8mS9ZzZ4tbLn4YGs5G3SNZ2tGEMRCv JuZG4tknCseFn7U42UW473aF1nOSCExPbfoEr+5RAXiLvHSP/FoaHKp5c5JR 6q/FV/r0GVUOmOhLv2BEcxqKGOaWZaoW5A83IpY7ng2TPlhUZJgQIf/2hhJs M3MhL5nSQbp1z425ur2Ert8pdlHLy80V+4HPgp9phQiOa2ueqBJpAmbtfUcT WTVNhD0UMDUbUAaaodV3J5YtYpCe4wRqQLYTFhL1MedCP+4+VsVNOM6ontwq a/VYXmHdYHEi3p38V26lgeV/h7K3YX3ujftEYX+WXhZ5YmOwbH8SIFgeXivF I2n6fnEOM3re57KMm4/5q1CCh2mC2nK2WVzLolrRihxyoFNFfd9F7WbX4KqG tJgZFAOlvWzugIFL2CkpClJsmvutkqV4xuLMhrvCLyRqj6kflGxGbfU0hnRi l0BAL5kHRbF5g0n3iufgqn0nHPB8FIaxE3AYmiI2PAcT7+Xm4pCp0ngbu7Yl YRnL8EQIpyp5xAx7G5tqmDrWA3YnhwFJvQOOD1vl2bwUwGwDKESPG8Dtuha1 9gMiF6Q/LSHOn3tlwUWKKdQ7Wu7rHWOdLRkfvQrqK86WGyHwbGITS8q3tAoL Qq06LwVM1/NVVoolBbXF0t2l7FKfsVj3LLp8DwJ1Etepbzkrm3EXgydvWLsn sbVSmoXm6qbYGacTXqWhH2Kc0f3gQgQuugpiTcaZiWbNLd0FFRY8QESKIgAP YvI7Zb2s39WXJNdrgxVQ1NJJw47hnseLzuH/BOJwA0RtTtmdUitv8R1WUaMS CT8dgLcUSaibEyiuEX8mz6QSO1lFmZPLrWPJsBatZmcSZ0LqJQiba+xIuL3I oMs9BRrY5/qdnUJ0ren8XAD5UnBjtV4XIU2rU46iSfsT90wKyna9JJ33moGZ oT6jR86at/5d/HfdAAK6Ab2RE5+UPRtQPeIS2dn71cmIJ7ZuPK1i86iPJxMd ZW/n41pSbbAxkuJVGYJ6a+nOBoIbdu6Cg3QJI+vyCNnn2tkquKa7k4IO6RCj qWrW+gFnvUJRUunziYApBniaxD4RZtUFkfp+0wkcb9R2Kma6GqfvbvyUrups cE4pr7MeivGkDb17PRarz6mHO2hqbH1GFZnGxST8s3+cs+c6z2G7UTO0Al8Y rO9qo/LtAVZze/4KFhhnEfDWxHTdLLw84ulSOLF5WyAppFzk0sX0PBH3evUc E5y+S77BzJDbnya6TzTSME4M6qrXEtxaVj/Sc/xkWDjFdtaAbSfr7xItkkfO h1wV6j2SeWu2S3Pq7btHMmPPUwP22cRltcyM5G3JjCwY5UDO8b2njWzQ3DOw R4eZVi/px+Os+5MZvQTsaY76SAk4VGl5KhdQStBik1Dvf0SizwUrT9wIMV79 jGrGWdE/PaurcOxJgYlPqLfkpsck4X7MThXNOYbasi9A1VylRZJzD/f1Uam7 XaYFMhC9eqp2feYDaPUNB7Q/K8zMyWDkfjm94cgQVFnTYtt8VkAgYsTqNQMq ybrUzxfF9+yTqfYhLt9bUYhyL2eHoFg2GQGSFPgge1qQeg7tDtSrdiweC0eZ UWK0y82wzyemCzzFUYgMSpSlHihPmubT0sktq+kjsJVDc3RCQzySEJo3Lflg Vnfd/6zM6mvRL1l4fV9vTrIQYhk3N5bB3hQN9Bp5qMqtidvz9yFrvfdoFEX1 O5NA6jIWfY46Z4xjLE48St29puennaToHhxnuFCsuq440M/T+JDezdJPc3LA 7NUIDDCK0GEic3idfvJ1C3Ehq/3EKYMlEvS9a2A5vC4WP4dgR1M7YSTXIucW H2L7csMr1Oz2t0y2KbravC7qu0rPj1rVtNrwts1VxajQhBLg/UyRPaef1UaI WRcTVz/NljkXQy5LMkaGQn3Ukyo/t4OMV1GgwQE5W01nthdEiWZD/4BxuwRR 8YIXp+0FgUleaVOGBt4srNcsVJPYv4GWe+p/7n5dpGyF/IUaL4iqHUaz1Sgx a69og0+L5vQ5guHpMwOJhl7UMlGGJB+URxULC3VEhpuoc2pEjCdER7O4+5w4 I+Gx+LVb+JgdN9UiZgpD18P9IkkcAL68hCRdkfjhyzAIdBIpeOD0MO6lE7Iu P0PxAiESdt+kT39lqmIoEBEu3cfsY69pNrSFUl5M/MHScvxZfUzJ8vxNOrPi UmavFXdm6byYUYt/ycIdBtto3wVEUD8p8FrL8RdHoIlS6LK5/V1PFARbaZmz oHs9DAgomJ+szFlIcPG4SBBVRzFdYl66x+WMbFhPJGdlmDCPdVMwQxtbtBf5 NyXMjJBgenYLvbnNFuDGDJse5e5Wj3INJKXu/WOgtAwwymfqeTgJKjU9Xdki drN3otiQ2U3G2Drg4cR7TtnZCeAmxs3KxcQAagNaCh5LobMOWFWQ94I1Qd5T i1/kNq8lXOY2N4qHuc33W8cNep/mNi/jM9YT9Ae5zcsx/NLItzy/afTjB0xe E2lhfpTbnF2M9ZfQzjPHvA2RD/QfNYZAxpOc1pnOfWMR/YId5X0arx3aQRUx xH/Nhgc5NUbBaIThTPm6Qp5SM2sjvnzRUIKzDM/nsMKUH8OQIhxYG3JGfl7T Wjcg8Kse0lu1/9zGkrZdNBj/tLHMzxv4+GGM6xKJiEwHSTw0euC7NxUavo63 cwTlI+9grcr21F+gOKm4M1rQbnEGGf3XVddUuDEZAZRFUuPWs7PGNJyVkFXp YrphzGE1ROR/m9pWG0O8JulQkuz9DI9dBBh9D/PAlm2l6KcVDj1iuG/BajkK 1yrjpZ5ByVXjHjTwTuQ5/o4oxBcnqGxkYqM6EDs1fFyYHWaqTxefMKTjBZsI c/o8s4GULpvaWWOa2huQu2joYTWdnn+ZSVf9dxooDnNXSim56P5FA8W5yQ3K w/OnFQD9ITeO21xu3m9tPCAKD5+IzIFmkW3//XF34z9h9RkJ\ \>"], "Graphics", Evaluatable->False, GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{541, 18}, ImageMargins->{{2, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}]} }]], "TitleCell2"], Cell["MeijerG", "Subtitle"], Cell[BoxData[ StyleBox[GridBox[{ { ButtonBox[Cell[GraphicsData["CompressedBitmap", "\<\ eJyVl01OWzEQxx/vI6EpUCJCF1UXCKkLllUWXAC16qJLDhChRrCoWlEkrsAV uAJX4Aq5AlfgCqn/Y/+c8etTaSMlHo/HM//5sp2vi5vLb98XN1cXi6PP14uf l1cXv44+/bgOrGarqqpl+L4/qkSvA5l+ltV6vdaiDXs2NNXz83O1Wq1sNnE8 UZ739PSUeYf6rSX2ZmBHPcAbD/CaCCSKj+LS/X21Wi6r1XxuY5h3trxb3d7e Vv4j7nK5zPTd3Z3R+HIfVNXGeVvNgzrWHh8fjZa85I6Pj6uzs7O8Zzqd2rpG ZIbsBD1tChDQMC1PUCOe5gFCRLNraMRSRD0SfaQKGlT61KawK2SS2uRlaygd 2hjXzhDwkbOaF6EPk8CykIdvY79TixOZ8n4LhxDIslT5uD88PBitMVaCpF/b nBiKFnLviTyV5GbPpNgjLN6Oy2GbvGQZ01JN+sVji1QCk4Dpc35+/kc5aNQc Gv3JVm3EdmYTjV5U6tgskmgKU3WZhFz3OQnj2AMuCaBQ6dSpFRVMvANGv8CV LNH9NYUab4EsfbXtiq1PmQo2dtQoJDEnYafoLWgaQTy3JQZlbqU2FGvKwbce NIcITSI0bWoCjzKYiUFqc4tKbRD39T9WrJuUBG0nwJG3VwRNpmgk0QRNjohH WVneZWzfTLtDI6vwWygbVAM3wImx/ZDTIO2cZ6iionw68cTTUks+xINWQIFI uWBLa/A4H4EbG2xkNn2Pagyl2Px/geORLPsDjAKllWOBHpi81sQXCoItviJG w4inOci1R3oUBcmIjz32C4PWJG+3UGzfk8FDmmJAMeUOrXUMiQdY5HFafMJO 98FHJ8HAJkEQzf7+Ca+LtYh95JV39ii3GBlP7nF8+TNoO23xtQ2KELJpuvcR V90AHt6+e1uQpcMIvEnJsKvJvwjCfJRUy29KlROOUudh4lsCc8RJPtU9niAi 51trFmEdDLya9mKEghMnThlJmRWvrr8N71w0uMa++DR2+fbxZVybqS7fer68 uaLg0SpUaqIbl0r/QtO2oDI3cJw6q9tZDJd7CCKApgDwsfRJOHFZu+P9I12T wifJQCObnkG1Tdrc4UmMoubQ+Ge3OgMhHhdqfE6IineJLEllWJ/7gm1NhkAY NE12Ck9QSBFBk5kwxriNimQlZzfX2jjvRiuGh1zhJdp3hTsp0HOfmXHWxuHp z7kY8qbgR94kP/H6VntZpAC0lfrYxFrcJmezX3IUgMs2MF4qOdYJZ1Ztf2ia KKKFjcjmudUV/SF+LNfNTUXfbzwZqrKwk6cJCouolP+Uirx0WZW+mDMPZkkl fVwUeldA4DJtkzkfxNOyoolAQlOrYmaR0o5XfYFiToiw45N9+vKZWG39BoJy Go8=\ \>"], "Graphics", Evaluatable->False, ImageSize->{102, 28}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}], Appearance->"Frameless", ButtonFrame->"Frameless", ButtonFunction:>SetOptions[ InputNotebook[], ShowCellLabel -> If[Part[ Options[ InputNotebook[], ShowCellLabel], 1, 2] == True, False, True]], Evaluator->Automatic, Method->"Preemptive"], ButtonBox[Cell[GraphicsData["CompressedBitmap", "\<\ eJylVUtSIzEMNXZ3h/ApsiDDhkX2LHMGYMUhUhRdYUHNFMNlcqe+U2NZkvvZ sSGErnJsS9aTniQ7T5uP7cvb5uP1ebN6fN/8274+/189/H33IndijLn343Zl aD36pfzcm3EcSVmY2jD5393ODH1vhvU6zLRnnTM7v6ZvGAa/I1kX1vityW4Y rJioSMD3YPjcRYQhXYgH7EhHa4C/4kONIIagSeOHk99RkGjYKoEmeibkvu9t 2LAYAumOjJ2+ntLpz9Dsz2Sxx2RD7CHxSeyL6JmQaai33Lvue8EQG0uKRiJW LJqVaI1FMKPPRVI0LoHFjMJm7PlenOhH16XucAUnVmqkmPIFLr73Kkm3YeFi 31Amfpn0rBuOSPqimnQsZt72hCf6xTEtfxa9EhINbMjv296SPbucJVBIolbR 60Nfllle4JhHvqgcmuZdGP64X9pivyx5d6eNMTkwgfzyizfzq6kR1lpFTJqG SWuSidxmJtgEFp5bLR+cC6FKNjPUaEp7jUIhQh5J4KLHmEfGbJIwKq4UzpW5 4zGuRZPLLbweuQlesgliHiNWsrTGNE9n2z1MTgwzR3lzIHOsAaMA8z9JCUth ZcjFTBX03zHX7s2Z5y4sxHw48y6hAmFaJH9aJS/ebBC0KIprdjRP5PDXmUBh OVSnenwIwFabLxM7uPyKgunLbgwDJBXvatXsAFrzgddDj+s83bzTzJIjTwOV vwItkEu8n9cfIiWzjLZXdeTpYmfIbdTfxBXiaKG6guys9Gaak08nXW/2\ \>"], "Graphics", Evaluatable->False, GeneratedCell->False, CellAutoOverwrite->False, ImageSize->{69, 28}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}], Active->True, BaseStyle->"Hyperlink", ButtonData:>{ URL["http://functions.wolfram.com/PDF/MeijerG.pdf"], None}]} }], ButtonBoxOptions->{ButtonFrame->"None"}]], "HyperlinkHeaderGraphic"], Cell[CellGroupData[{ Cell["Notations", "Section"], Cell[CellGroupData[{ Cell["Traditional name", "Subsection"], Cell["Meijer G\[Hyphen]function", "TextHeader"] }, Closed]], Cell[CellGroupData[{ Cell["Traditional notation", "Subsection"], Cell[BoxData[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{"p", ",", "q"}], RowBox[{"m", ",", "n"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox["z", MeijerG, Editable->True], "\[VerticalSeparator]", GridBox[{ { RowBox[{ TagBox[ SubscriptBox["a", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "n"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "p"], MeijerG, Editable->True]}]}, { RowBox[{ TagBox[ SubscriptBox["b", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "m"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], MeijerG, Editable->True]}]} }]}], ")"}]}], MeijerG, Editable->False], TraditionalForm]], "TraditionalFormEquationHeader"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " StandardForm notation" }], "Subsection"], Cell[BoxData[ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["a", "TI"], StyleBox["1", "TR"]], ",", StyleBox["\[Ellipsis]", "TI"], ",", SubscriptBox[ StyleBox["a", "TI"], StyleBox["n", "TI"]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["a", "TI"], RowBox[{"n", StyleBox["+", "TR"], StyleBox["1", "TR"]}]], ",", "\[Ellipsis]", ",", SubscriptBox[ StyleBox["a", "TI"], StyleBox["p", "TI"]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["b", "TI"], StyleBox["1", "TR"]], ",", StyleBox["\[Ellipsis]", "TI"], ",", SubscriptBox[ StyleBox["b", "TI"], StyleBox["m", "TI"]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["b", "TI"], StyleBox[ RowBox[{"m", "+", "1"}], "TR"]], ",", StyleBox["\[Ellipsis]", "TI"], ",", SubscriptBox[ StyleBox["b", "TI"], StyleBox["q", "TI"]]}], "}"}]}], "}"}], ",", StyleBox["z", "TI"]}], "]"}]], "StandardFormEquationHeader"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Primary definition", "Section"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"2", " ", "\[Pi]", " ", "\[ImaginaryI]"}]], RowBox[{"ContourIntegrate", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "m"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["b", "k"], "+", "s"}], "]"}]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "k"], "-", "s"}], "]"}], " "}]}], RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "+", "s"}], "]"}]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "k"], "-", "s"}], "]"}]}]}]], SuperscriptBox["z", RowBox[{"-", "s"}]]}], ",", RowBox[{"{", RowBox[{"s", ",", "\[ScriptCapitalL]"}], "}"}]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"m", "\[Element]", "Integers"}], "\[And]", RowBox[{"m", "\[GreaterEqual]", "0"}], "\[And]", " ", RowBox[{"n", "\[Element]", "Integers"}], "\[And]", RowBox[{"n", "\[GreaterEqual]", "0"}], "\[And]", RowBox[{"p", "\[Element]", "Integers"}], "\[And]", RowBox[{"p", "\[GreaterEqual]", "0"}], "\[And]", RowBox[{"q", "\[Element]", "Integers"}], "\[And]", RowBox[{"q", "\[GreaterEqual]", "0"}], "\[And]", RowBox[{"m", "\[LessEqual]", "q"}], "\[And]", RowBox[{"n", "\[LessEqual]", "p"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.02.0001.01"], Cell[TextData[{ "The infinite contour of integration ", Cell[BoxData[ FormBox["\[ScriptCapitalL]", TraditionalForm]]], " separates the poles of ", Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{"1", "-", SubscriptBox["a", "k"], "-", "s"}], ")"}], TraditionalForm]]], "at ", Cell[BoxData[ FormBox[ RowBox[{"s", "=", RowBox[{"1", "-", SubscriptBox["a", "k"], "+", "j"}]}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{"j", "\[Element]", "\[DoubleStruckCapitalN]"}], TraditionalForm]]], " from the poles of ", Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["b", "i"], "+", " ", "s"}], ")"}], TraditionalForm]]], " at ", Cell[BoxData[ FormBox[ RowBox[{"s", "=", RowBox[{ RowBox[{"-", SubscriptBox["b", "i"]}], "-", "l"}]}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{"l", "\[Element]", "\[DoubleStruckCapitalN]"}], TraditionalForm]]], ". Such a contour always exists in the cases ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "i"], "-", "1"}], "\[NotElement]", "\[DoubleStruckCapitalN]"}], TraditionalForm]]], "." }], "Text"], Cell[TextData[{ "There are three possibilities for the contour ", Cell[BoxData[ FormBox["\[ScriptCapitalL]", TraditionalForm]]], " :" }], "Text"], Cell[TextData[{ "(i) ", Cell[BoxData[ FormBox["\[ScriptCapitalL]", TraditionalForm]]], " runs from \[Gamma]-\[ImaginaryI] \[Infinity] to \[Gamma]+\[ImaginaryI] \ \[Infinity] (where ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Im", "(", "\[Gamma]", ")"}], "=", "0"}], TraditionalForm]]], ") so that all poles of ", Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["b", "i"], "+", " ", "s"}], ")"}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"i", "=", "1"}], ",", "...", ",", "m"}], TraditionalForm]]], ", are to the left, and all the poles of ", Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{"1", "-", SubscriptBox["a", "i"], "-", " ", "s"}], ")"}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"i", "=", "1"}], ",", "...", ",", "n"}], TraditionalForm]]], ", to the right, of \[ScriptCapitalL]. \nThis contour can be a straight \ line ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{ RowBox[{"\[Gamma]", "-", RowBox[{"\[ImaginaryI]", " ", "\[Infinity]"}]}], ",", " ", RowBox[{"\[Gamma]", "+", RowBox[{"\[ImaginaryI]", " ", "\[Infinity]"}]}]}], ")"}], TraditionalForm]]], " if ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Re", "(", RowBox[{ SubscriptBox["b", "i"], "-", SubscriptBox["a", "k"]}], ")"}], ">", RowBox[{"-", "1"}]}], TraditionalForm]]], " (then ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", RowBox[{"Re", "(", SubscriptBox["b", "i"], ")"}]}], "<", "\[Gamma]", "<", RowBox[{"1", "-", RowBox[{"Re", "(", SubscriptBox["a", "k"], ")"}]}]}], TraditionalForm]]], "). (In this case the integral converges if ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"p", "+", "q"}], "<", RowBox[{"2", RowBox[{"(", RowBox[{"m", "+", "n"}], ")"}]}]}], TraditionalForm]]], " , ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[LeftBracketingBar]", RowBox[{"Arg", "(", "z", ")"}], "\[RightBracketingBar]"}], "<", RowBox[{ RowBox[{"(", RowBox[{"m", " ", "+", "n", "-", FractionBox[ RowBox[{"p", "+", "q"}], "2"]}], ")"}], " ", "\[Pi]"}]}], TraditionalForm]]], ". If ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"m", " ", "+", "n", "-", FractionBox[ RowBox[{"p", "+", "q"}], "2"]}], "=", "0"}], TraditionalForm]]], ", then ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " must be real and positive and additional condition ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "\[Gamma]"}], "+", RowBox[{"Re", "(", "\[Mu]", ")"}]}], "<", "0"}], ",", RowBox[{"\[Mu]", "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"l", "=", "1"}], "q"], SubscriptBox["b", "l"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "p"], SubscriptBox["a", "k"]}], "+", FractionBox[ RowBox[{"p", "-", "q"}], "2"], "+", "1"}]}]}], TraditionalForm]]], ", should be added.)" }], "Text"], Cell[TextData[{ "(ii) ", Cell[BoxData[ FormBox["\[ScriptCapitalL]", TraditionalForm]]], " is a left loop, starting and ending at -\[Infinity] and encircling all \ poles of ", Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["b", "i"], "+", " ", "s"}], ")"}], TraditionalForm]]], ",", Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{ RowBox[{"i", "=", "1"}], ",", "...", ",", "m"}]}], TraditionalForm]]], ", once in the positive direction, but none of the poles of ", Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{"1", "-", SubscriptBox["a", "i"], "-", " ", "s"}], ")"}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"i", "=", "1"}], ",", "...", ",", "n"}], TraditionalForm]]], ". \n(In this case the integral converges if ", Cell[BoxData[ FormBox[ RowBox[{"q", "\[GreaterEqual]", "1"}], TraditionalForm]]], " and either ", Cell[BoxData[ FormBox[ RowBox[{"q", ">", "p"}], TraditionalForm]]], " or ", Cell[BoxData[ FormBox[ RowBox[{"q", "=", "p"}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "<", "1"}], TraditionalForm]]], " or ", Cell[BoxData[ FormBox[ RowBox[{"q", "=", "p"}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "\[Equal]", "1"}], TraditionalForm]]], "and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"m", " ", "+", "n", "-", FractionBox[ RowBox[{"p", "+", "q"}], "2"]}], "\[GreaterEqual]", "0"}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Re", "(", "\[Mu]", ")"}], "<", "0"}], TraditionalForm]]], ".)" }], "Text"], Cell[TextData[{ "(iii) ", Cell[BoxData[ FormBox["\[ScriptCapitalL]", TraditionalForm]]], " is a right loop, starting and ending at +\[Infinity] and encircling all \ poles of ", Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{"1", "-", SubscriptBox["a", "i"], "-", "s"}], ")"}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"i", "=", "1"}], ",", "...", ",", "n"}], TraditionalForm]]], ", once in the negative direction, but none of the poles of ", Cell[BoxData[ FormBox[ RowBox[{"\[CapitalGamma]", "(", RowBox[{ SubscriptBox["b", "i"], "+", "s"}], ")"}], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"i", "=", "1"}], ",", "...", ",", "m"}], TraditionalForm]]], ". \n(In this case the integral converges if ", Cell[BoxData[ FormBox[ RowBox[{"p", "\[GreaterEqual]", "1"}], TraditionalForm]]], " and either ", Cell[BoxData[ FormBox[ RowBox[{"p", ">", "q"}], TraditionalForm]]], " or ", Cell[BoxData[ FormBox[ RowBox[{"p", "=", "q"}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], ">", "1"}], TraditionalForm]]], " or ", Cell[BoxData[ FormBox[ RowBox[{"q", "=", "p"}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "\[Equal]", "1"}], TraditionalForm]]], "and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"m", " ", "+", "n", "-", FractionBox[ RowBox[{"p", "+", "q"}], "2"]}], "\[GreaterEqual]", "0"}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Re", "(", "\[Mu]", ")"}], "<", "0"}], TraditionalForm]]], ".)" }], "Text"], Cell["Special notations for this file:", "Text"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"LerchPhiClassical", "[", RowBox[{"z", ",", "s", ",", "a"}], "]"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox[ SuperscriptBox["z", "k"], SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "k"}], ")"}], "s"]]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "\[Equal]", "1"}], "\[And]", RowBox[{ RowBox[{"Re", "[", "s", "]"}], ">", "1"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.02.0002.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"ZetaClassical", "[", RowBox[{"s", ",", "a"}], "]"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "k"}], ")"}], "s"]]}]}], "/;", " ", RowBox[{ RowBox[{"Re", "[", "s", "]"}], ">", "1"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.02.0003.01"], Cell[BoxData[ RowBox[{ SuperscriptBox["c", "*"], "\[Equal]", RowBox[{"m", "+", "n", "-", FractionBox[ RowBox[{"p", "+", "q"}], "2"]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.02.0004.01"], Cell[BoxData[ RowBox[{"\[Mu]", "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], "+", FractionBox[ RowBox[{"p", "-", "q"}], "2"], "+", "1"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.02.0005.01"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[DoubleStruckCapitalC]\[DoubleStruckCapitalC]", "\[Equal]", RowBox[{"(", RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "1"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "2"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "3"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "4"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "5"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "6"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "7"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "8"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "9"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "10"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "11"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "12"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "13"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "14"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "15"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "16"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "17"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "18"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "19"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "20"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "21"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "22"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "23"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "24"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "25"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "26"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "27"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "28"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "29"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "30"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "31"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "32"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "33"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "34"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "35"]}], ")"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.02.0006.01"], Cell[TextData[{ "where ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "j"], ",", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "39"}], ","}], TraditionalForm]]], " are described in subsubsecti", "on Generalization of classical Meijer's integral from two G functions." }], "CommentText"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Specific values", "Section"], Cell[CellGroupData[{ Cell["Specialized values", "Subsection"], Cell[CellGroupData[{ Cell[TextData[{ "Cases with arbitrary ", StyleBox["{m,n,p,q} ", "Program"] }], "Subsubsection"], Cell[CellGroupData[{ Cell[TextData[{ "Case with fixed ", Cell[BoxData[ RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}]]], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"q", "-", "1"}]], ",", SubscriptBox["a", "1"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"q", "-", "1"}]]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0001.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"m", "-", "1"}]], ",", SubscriptBox["a", "p"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"p", "-", "1"}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"m", "-", "1"}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0002.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,n,n,n}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "-", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"n", "-", "1"}]], SuperscriptBox["z", RowBox[{"a", "-", "1"}]]}], RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "!"}]], SuperscriptBox[ RowBox[{"Log", "[", FractionBox["1", "z"], "]"}], RowBox[{"n", "-", "1"}]], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}]}]}], "/;", RowBox[{ SubscriptBox["a", "1"], "\[Equal]", SubscriptBox["a", "2"], "\[Equal]", "\[Ellipsis]", "\[Equal]", SubscriptBox["a", "n"], "\[Equal]", "a"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0003.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,0,0,q}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"b", "+", FractionBox["1", "q"]}], ",", RowBox[{"b", "+", FractionBox["2", "q"]}], ",", "\[Ellipsis]", ",", RowBox[{"b", "+", FractionBox[ RowBox[{"q", "-", "1"}], "q"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", "b"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"2", " ", "\[Pi]"}], ")"}], FractionBox[ RowBox[{"q", "-", "1"}], "2"]], SqrtBox["q"]}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], RowBox[{"q", "-", "1"}]], RowBox[{"Exp", "[", RowBox[{"q", " ", RowBox[{"Exp", "[", FractionBox[ RowBox[{"2", "\[Pi]", " ", "\[ImaginaryI]", " ", "k"}], "q"], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "q"}]]}], "]"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0004.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,1,1,q}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["m", "q"]}], ",", RowBox[{"a", "+", FractionBox[ RowBox[{"1", "-", "m"}], "q"]}], ",", "\[Ellipsis]", ",", RowBox[{"a", "+", FractionBox[ RowBox[{"q", "-", "1", "-", "m"}], "q"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"2", " ", "\[Pi]"}], ")"}], FractionBox[ RowBox[{"1", "-", "q"}], "2"]], " ", SuperscriptBox["z", "a"], SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"-", FractionBox["m", "q"]}]]}], SqrtBox["q"]], RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], RowBox[{"q", "-", "1"}]], RowBox[{ RowBox[{"Exp", "[", RowBox[{"q", " ", RowBox[{"Exp", "[", FractionBox[ RowBox[{"2", "\[Pi]", " ", "\[ImaginaryI]", " ", "k"}], "q"], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "q"}]]}], "]"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{"2", "\[Pi]", " ", "\[ImaginaryI]", " ", "k", " ", "m"}], "q"]}], "]"}]}]}], "-", RowBox[{ SuperscriptBox["q", RowBox[{"m", "+", "1"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], RowBox[{"Floor", "[", FractionBox["m", "q"], "]"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{ FractionBox["m", "q"], "-", "k"}]], FractionBox[ SuperscriptBox["q", RowBox[{ RowBox[{"-", "q"}], " ", "k"}]], RowBox[{ RowBox[{"(", RowBox[{"m", "-", RowBox[{"q", " ", "k"}]}], ")"}], "!"}]]}]}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"m", "\[Element]", "Integers"}], "\[And]", RowBox[{"m", "\[GreaterEqual]", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0005.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,p,p,q}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "p"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "k"], "+", SubscriptBox["b", "1"]}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "2"}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "k"], "+", SubscriptBox["b", "1"]}], "]"}]}]], SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "p"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "2"], "+", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["b", "q"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], "/;", RowBox[{"p", "\[LessEqual]", "q"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0006.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "p"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "k"], "+", SubscriptBox["b", "1"]}], "]"}]}], ")"}], SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "p"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "2"], "+", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["b", "q"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], "/;", RowBox[{"p", "\[LessEqual]", "q"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0007.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "-", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], "-", "1"}], ",", SubscriptBox["b", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "j"]}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "j"]}], "]"}]}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ FractionBox["1", RowBox[{"1", "-", SubscriptBox["a", "k"]}]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "k"]}], ",", RowBox[{"1", "-", SubscriptBox["a", RowBox[{"n", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "p"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", "-", SubscriptBox["a", "k"]}], ",", RowBox[{"1", "-", SubscriptBox["b", RowBox[{"n", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["b", "q"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", FractionBox["1", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["a", "j"]}]]}], "]"}]}]}]}]}]}], "/;", RowBox[{"n", "\[LessEqual]", "q"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0008.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["m", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], "-", SubscriptBox["m", "n"]}], ",", SubscriptBox["b", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "j"]}], "]"}]}], RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["m", "j"], "-", "1"}], ")"}], "!"}]}], ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "j"]}], "]"}]}]}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{ SubscriptBox["j", "1"], "=", "0"}], RowBox[{ SubscriptBox["m", "1"], "-", "1"}]], RowBox[{"\[Ellipsis]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{ SubscriptBox["j", "n"], "=", "0"}], RowBox[{ SubscriptBox["m", "n"], "-", "1"}]], RowBox[{ FractionBox["1", RowBox[{"1", "-", SubscriptBox["a", "k"], "+", SubscriptBox["j", "k"]}]], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"l", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "-", SubscriptBox["m", "l"]}], ",", SubscriptBox["j", "l"]}], "]"}], RowBox[{ SubscriptBox["j", "l"], "!"}]], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"i", "=", "1"}], "n"], RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[Equal]", "k"}], ",", "1", ",", FractionBox["1", RowBox[{ SubscriptBox["a", "k"], "+", SubscriptBox["j", "i"], "-", SubscriptBox["a", "i"], "-", SubscriptBox["j", "k"]}]]}], "]"}], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "k"], "+", SubscriptBox["j", "k"]}], ",", RowBox[{"1", "-", SubscriptBox["a", RowBox[{"n", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "p"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", "-", SubscriptBox["a", "k"], "+", SubscriptBox["j", "k"]}], ",", RowBox[{"1", "-", SubscriptBox["b", RowBox[{"n", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["b", "q"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}]}]}]}]}]}]}]}]}]}], "/;", RowBox[{ RowBox[{ SubscriptBox["m", "n"], "\[Element]", "Integers"}], "\[And]", RowBox[{ SubscriptBox["m", "n"], ">", "0"}], "\[And]", RowBox[{"n", "\[LessEqual]", "q"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0009.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", SubscriptBox["a", "3"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"b", "-", "1"}], ",", SubscriptBox["b", "3"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "3"}], "p"], RowBox[{"Gamma", "[", SubscriptBox["a", "j"], "]"}]}], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "a"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "b"}], ")"}], RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "3"}], "q"], RowBox[{"Gamma", "[", SubscriptBox["b", "j"], "]"}]}]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "a"}], ")"}], " ", RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", "b"}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "p"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", "-", "b"}], ",", RowBox[{"1", "-", SubscriptBox["b", "3"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["b", "q"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "b"}], ")"}], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", "a"}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "p"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", "-", "a"}], ",", RowBox[{"1", "-", SubscriptBox["b", "3"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["b", "q"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"a", "\[NotEqual]", "b"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0010.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "n"}], ",", SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "2"}], "p"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "j"], "-", "n"}], "]"}]}]}], RowBox[{ SuperscriptBox["z", "n"], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "2"}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "j"], "-", "n"}], "]"}]}]}]], RowBox[{"(", RowBox[{ RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "2"], "-", "n"}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "p"], "-", "n"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "2"], "-", "n"}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["b", "q"], "-", "n"}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], RowBox[{"n", "-", "1"}]], RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "2"}], "p"], RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "j"], "-", "n"}], ",", "k"}], "]"}]}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "2"}], "q"], RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "j"], "-", "n"}], ",", "k"}], "]"}]}]], FractionBox[ SuperscriptBox["z", "k"], RowBox[{"k", "!"}]]}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0011.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "2"}], "p"], RowBox[{"Gamma", "[", RowBox[{"-", SubscriptBox["a", "j"]}], "]"}]}], RowBox[{"z", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "2"}], "q"], RowBox[{"Gamma", "[", RowBox[{"-", SubscriptBox["b", "j"]}], "]"}]}]}]], RowBox[{"(", RowBox[{"1", "-", RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", SubscriptBox["a", "2"]}], ",", "\[Ellipsis]", ",", RowBox[{"-", SubscriptBox["a", "p"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", SubscriptBox["b", "2"]}], ",", "\[Ellipsis]", ",", RowBox[{"-", SubscriptBox["b", "q"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0012.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "2"}], "p"], RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", SubscriptBox["a", "j"]}], "-", "1"}], "]"}]}], RowBox[{ SuperscriptBox["z", "2"], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "2"}], "q"], RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", SubscriptBox["b", "j"]}], "-", "1"}], "]"}]}]}]], RowBox[{"(", RowBox[{ RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["a", "2"]}], "-", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ RowBox[{"-", SubscriptBox["a", "p"]}], "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["b", "2"]}], "-", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ RowBox[{"-", SubscriptBox["b", "q"]}], "-", "1"}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}], "+", RowBox[{"z", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "q"}]], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "2"}], "p"], RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "+", "1"}], ")"}]}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "2"}], "q"], RowBox[{"(", RowBox[{ SubscriptBox["b", "j"], "+", "1"}], ")"}]}]]}], "-", "1"}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0013.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", "m"}], ",", SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a"}], "]"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "m"], RowBox[{ FractionBox[ RowBox[{"Binomial", "[", RowBox[{"m", ",", "k"}], "]"}], RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "-", "m", "+", "k"}], "]"}]], FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "2"}], "p"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "j"], "+", "k"}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "2"}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "j"], "+", "k"}], "]"}]}]], SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], "k"], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "2"], "+", "k"}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "p"], "+", "k"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "2"], "+", "k"}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["b", "q"], "+", "k"}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0014.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", "1"}], ",", SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "2"}], "p"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "j"]}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "2"}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "j"]}], "]"}]}]]}], RowBox[{"(", RowBox[{ RowBox[{"a", " ", RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "2"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "p"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "2"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["b", "q"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{"z", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "2"}], "p"], RowBox[{"(", RowBox[{"1", "-", SubscriptBox["a", "j"]}], ")"}]}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "2"}], "q"], RowBox[{"(", RowBox[{"1", "-", SubscriptBox["b", "j"]}], ")"}]}]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "-", SubscriptBox["a", "2"]}], ",", "\[Ellipsis]", ",", RowBox[{"2", "-", SubscriptBox["a", "p"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", "-", SubscriptBox["b", "2"]}], ",", "\[Ellipsis]", ",", RowBox[{"2", "-", SubscriptBox["b", "q"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0015.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", FractionBox[ RowBox[{ SubscriptBox["a", "1"], "-", "m"}], "n"], ",", FractionBox[ RowBox[{ SubscriptBox["a", "1"], "-", "m", "+", "1"}], "n"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "1"], "-", "m", "+", "n", "-", "1"}], "n"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "p"], "-", "m"}], "n"], ",", FractionBox[ RowBox[{ SubscriptBox["a", "p"], "-", "m", "+", "1"}], "n"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "p"], "-", "m", "+", "n", "-", "1"}], "n"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"-", "m"}], "n"], ",", FractionBox[ RowBox[{ RowBox[{"-", "m"}], "+", "1"}], "n"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ RowBox[{"-", "m"}], "+", "n", "-", "1"}], "n"], ",", FractionBox[ RowBox[{ SubscriptBox["b", "1"], "-", "m"}], "n"], ",", FractionBox[ RowBox[{ SubscriptBox["b", "1"], "-", "m", "+", "1"}], "n"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "1"], "-", "m", "+", "n", "-", "1"}], "n"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "q"], "-", "m"}], "n"], ",", FractionBox[ RowBox[{ SubscriptBox["b", "q"], "-", "m", "+", "1"}], "n"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "q"], "-", "m", "+", "n", "-", "1"}], "n"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"2", " ", "\[Pi]"}], ")"}], RowBox[{ RowBox[{"(", RowBox[{"q", "-", "p", "+", "1"}], ")"}], FractionBox[ RowBox[{"1", "-", "n"}], "2"]}]], SuperscriptBox["n", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "p", "+", "q"}], ")"}]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}]}]], FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "p"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "j"]}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "j"]}], "]"}]}]], SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{ RowBox[{"-", "m"}], "/", "n"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], RowBox[{"n", "-", "1"}]], RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{"2", "\[Pi]", " ", "\[ImaginaryI]", " ", "k", " ", "m"}], "n"]}], "]"}], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "p"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["b", "q"]}]}], "}"}], ",", RowBox[{ SuperscriptBox["n", RowBox[{"q", "-", "p", "+", "1"}]], RowBox[{"Exp", "[", FractionBox[ RowBox[{"2", "\[Pi]", " ", "\[ImaginaryI]", " ", "k"}], "n"], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "n"}]]}]}], "]"}]}]}]}]}], "/;", RowBox[{ RowBox[{"m", "\[Element]", "Integers"}], "\[And]", RowBox[{"m", ">", "0"}], "\[And]", RowBox[{"n", "\[Element]", "Integers"}], "\[And]", RowBox[{"n", ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0016.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,n,n,n}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "n"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "k"], "+", SubscriptBox["b", "1"]}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "2"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "k"], "+", SubscriptBox["b", "1"]}], "]"}]}]], SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "n"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "2"], "+", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["b", "n"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0017.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a"}], "]"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "2"}], RowBox[{"n", "+", "1"}]], RowBox[{ FractionBox["1", RowBox[{"1", "-", SubscriptBox["a", "k"]}]], RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", "a"}], ",", RowBox[{"1", "-", SubscriptBox["a", "k"]}], ",", RowBox[{"2", "-", SubscriptBox["a", "k"]}], ",", RowBox[{"-", "z"}]}], "]"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "2"}], RowBox[{"n", "+", "1"}]], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", FractionBox["1", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["a", "j"]}]]}], "]"}]}]}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0018.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"2", "+", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"2", "+", SubscriptBox["b", RowBox[{"r", "+", "1"}]]}], ",", RowBox[{"1", "+", SubscriptBox["b", RowBox[{"r", "+", "2"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "n"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"n", "-", "1"}]]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"r", "-", "1"}]], "z"], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "z"]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], RowBox[{"n", "-", "2"}]], RowBox[{ FractionBox[ RowBox[{"Pochhammer", "[", RowBox[{"r", ",", "k"}], "]"}], RowBox[{"k", "!"}]], RowBox[{"PolyLog", "[", RowBox[{ RowBox[{"n", " ", "-", "k", "-", "1"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], RowBox[{"r", "-", "1"}]], RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"r", "-", "k"}]], RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", "k"}], "]"}]}], RowBox[{"k", "!"}]], RowBox[{"PolyLog", "[", RowBox[{ RowBox[{"r", " ", "-", "k"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], "-", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"r", "+", "n", "-", "2"}], ",", "r"}], "]"}]}], ")"}]}]}], "/;", RowBox[{ SubscriptBox["b", "1"], "\[Equal]", SubscriptBox["b", "2"], "\[Equal]", "\[Ellipsis]", "\[Equal]", SubscriptBox["b", RowBox[{"n", "-", "1"}]], "\[Equal]", RowBox[{"-", "2"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0019.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "-", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", RowBox[{"n", "-", "r", "-", "1"}]], "-", "1"}], ",", RowBox[{ SubscriptBox["a", RowBox[{"n", "-", "r"}]], "-", "2"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", RowBox[{"n", "-", "1"}]], "-", "2"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], "z"], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "z"]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], RowBox[{"r", "-", "1"}]], RowBox[{ FractionBox[ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", "k"}], "]"}], RowBox[{"k", "!"}]], RowBox[{"PolyLog", "[", RowBox[{ RowBox[{"r", " ", "-", "k"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], RowBox[{"n", "-", "2"}]], RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"n", "-", "k", "-", "1"}]], RowBox[{"Pochhammer", "[", RowBox[{"r", ",", "k"}], "]"}]}], RowBox[{"k", "!"}]], RowBox[{"PolyLog", "[", RowBox[{ RowBox[{"n", " ", "-", "k", "-", "1"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], "-", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"r", "+", "n", "-", "2"}], ",", RowBox[{"n", "-", "1"}]}], "]"}]}], ")"}]}]}], "/;", RowBox[{ SubscriptBox["a", "1"], "\[Equal]", SubscriptBox["a", "2"], "\[Equal]", "\[Ellipsis]", "\[Equal]", SubscriptBox["a", "n"], "\[Equal]", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0020.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"n", "-", "1"}]]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "-", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", RowBox[{"n", "-", "1"}]], "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", "a"], RowBox[{"LerchPhiClassical", "[", RowBox[{ RowBox[{"-", "z"}], ",", RowBox[{"n", "-", "1"}], ",", RowBox[{"1", "-", "c", "+", "a"}]}], "]"}]}]}], "/;", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "\[Equal]", SubscriptBox["a", "2"], "\[Equal]", "\[Ellipsis]", "\[Equal]", SubscriptBox["a", RowBox[{"n", "-", "1"}]], "\[Equal]", "c"}], "\[And]", RowBox[{ RowBox[{"n", "-", "1"}], "\[Element]", "Integers"}], "\[And]", RowBox[{ RowBox[{"n", "-", "1"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0021.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"LerchPhiClassical", "[", RowBox[{ RowBox[{"-", "z"}], ",", RowBox[{"n", "-", "1"}], ",", "a"}], "]"}]}], "/;", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "\[Equal]", SubscriptBox["a", "3"], "\[Equal]", "\[Ellipsis]", "\[Equal]", SubscriptBox["a", "n"], "\[Equal]", "a"}], "\[And]", RowBox[{ RowBox[{"n", "-", "1"}], "\[Element]", "Integers"}], "\[And]", RowBox[{ RowBox[{"n", "-", "1"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0022.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"n", "-", "1"}]]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "-", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", RowBox[{"n", "-", "1"}]], "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", SuperscriptBox["z", RowBox[{"a", "-", "1"}]]}], RowBox[{"PolyLog", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], "/;", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "\[Equal]", SubscriptBox["a", "2"], "\[Equal]", "\[Ellipsis]", "\[Equal]", SubscriptBox["a", RowBox[{"n", "-", "1"}]], "\[Equal]", "a"}], "\[And]", RowBox[{ RowBox[{"n", "-", "1"}], "\[Element]", "Integers"}], "\[And]", RowBox[{ RowBox[{"n", "-", "1"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0023.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "+", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", RowBox[{"n", "-", "1"}]], "+", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"a", "+", "1"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], RowBox[{"n", "-", "1"}]], RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"k", "+", "1"}], ")"}], SuperscriptBox["z", "k"]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{"k", "+", "2"}]]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], "k"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "j"], RowBox[{"Binomial", "[", RowBox[{"k", ",", "j"}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"j", "+", "1"}], ")"}], RowBox[{"n", "-", "1"}]]}]}]}]}]}]}], "/;", RowBox[{ SubscriptBox["a", "1"], "\[Equal]", SubscriptBox["a", "2"], "\[Equal]", "\[Ellipsis]", "\[Equal]", SubscriptBox["a", "n"], "\[Equal]", "a"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0024.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"1", "-", SubscriptBox["a", "2"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "n"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", SubscriptBox["a", "2"]}], ",", "\[Ellipsis]", ",", RowBox[{"-", SubscriptBox["a", "n"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "m"], SuperscriptBox["z", "m"]], RowBox[{"(", RowBox[{ RowBox[{"PolyLog", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", RowBox[{"-", "z"}]}], "]"}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], RowBox[{"m", "-", "1"}]], FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], "k"], SuperscriptBox["k", RowBox[{"n", "-", "1"}]]]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "\[Equal]", SubscriptBox["a", "3"], "\[Equal]", "\[Ellipsis]", "\[Equal]", SubscriptBox["a", "n"], "\[Equal]", "m"}], "\[And]", RowBox[{"m", "\[Element]", "Integers"}], "\[And]", RowBox[{"m", ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0025.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"n", "-", "1"}]]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "-", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", RowBox[{"n", "-", "1"}]], "-", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"-", "1"}]}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"n", "-", "1"}]], RowBox[{ RowBox[{"(", RowBox[{"n", "-", "2"}], ")"}], "!"}]], RowBox[{"PolyGamma", "[", RowBox[{ RowBox[{"n", "-", "2"}], ",", RowBox[{"1", "-", "a"}]}], "]"}]}]}], "/;", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "\[Equal]", SubscriptBox["a", "2"], "\[Equal]", "\[Ellipsis]", "\[Equal]", SubscriptBox["a", RowBox[{"n", "-", "1"}]], "\[Equal]", "a"}], "\[And]", RowBox[{ RowBox[{"n", "-", "2"}], "\[Element]", "Integers"}], "\[And]", RowBox[{ RowBox[{"n", "-", "2"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0026.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"n", "-", "1"}]]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "-", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", RowBox[{"n", "-", "1"}]], "-", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"-", "1"}]}], "]"}], "\[Equal]", RowBox[{"ZetaClassical", "[", RowBox[{ RowBox[{"n", "-", "1"}], ",", RowBox[{"1", "-", "a"}]}], "]"}]}], "/;", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "\[Equal]", SubscriptBox["a", "2"], "\[Equal]", "\[Ellipsis]", "\[Equal]", SubscriptBox["a", RowBox[{"n", "-", "1"}]], "\[Equal]", "a"}], "\[And]", RowBox[{ RowBox[{"n", "-", "1"}], "\[Element]", "Integers"}], "\[And]", RowBox[{ RowBox[{"n", "-", "1"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0027.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"n", "-", "1"}]]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "-", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", RowBox[{"n", "-", "1"}]], "-", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"-", "1"}]}], "]"}], "\[Equal]", RowBox[{"-", RowBox[{"Zeta", "[", RowBox[{"n", "-", "1"}], "]"}]}]}], "/;", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "\[Equal]", SubscriptBox["a", "2"], "\[Equal]", "\[Ellipsis]", "\[Equal]", SubscriptBox["a", RowBox[{"n", "-", "1"}]], "\[Equal]", "1"}], "\[And]", RowBox[{ RowBox[{"n", "-", "2"}], "\[Element]", "Integers"}], "\[And]", RowBox[{ RowBox[{"n", "-", "2"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0028.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"n", "-", "1"}]]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "-", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", RowBox[{"n", "-", "1"}]], "-", "1"}]}], "}"}]}], "}"}], ",", "1"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["2", RowBox[{"2", "-", "n"}]]}], ")"}], RowBox[{"Zeta", "[", RowBox[{"n", "-", "1"}], "]"}]}]}], "/;", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "\[Equal]", SubscriptBox["a", "2"], "\[Equal]", "\[Ellipsis]", "\[Equal]", SubscriptBox["a", RowBox[{"n", "-", "1"}]], "\[Equal]", "1"}], "\[And]", RowBox[{ RowBox[{"n", "-", "2"}], "\[Element]", "Integers"}], "\[And]", RowBox[{ RowBox[{"n", "-", "2"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0029.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,n,n,n+1}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"n", "+", "1"}]]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "k"], "+", SubscriptBox["b", "1"]}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "2"}], RowBox[{"n", "+", "1"}]], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "k"], "+", SubscriptBox["b", "1"]}], "]"}]}]], SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "n"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "2"], "+", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["b", RowBox[{"n", "+", "1"}]], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0030.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "-", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ FractionBox["1", RowBox[{"1", "-", SubscriptBox["a", "k"]}]], RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "k"]}], ",", RowBox[{"2", "-", SubscriptBox["a", "k"]}], ",", RowBox[{"-", "z"}]}], "]"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", FractionBox["1", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["a", "j"]}]]}], "]"}]}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0031.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "+", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], "+", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[ExponentialE]", "z"], RowBox[{ SubscriptBox["R", "n"], "[", "z", "]"}]}]}], "/;", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "\[Equal]", SubscriptBox["a", "2"], "\[Equal]", "\[Ellipsis]", "\[Equal]", SubscriptBox["a", "n"], "\[Equal]", "a"}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["R", "0"], "[", "z", "]"}], "\[Equal]", "1"}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["R", RowBox[{"n", "+", "1"}]], "[", "z", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"z", "+", "a", "-", "1"}], ")"}], RowBox[{ SubscriptBox["R", "n"], "[", "z", "]"}]}], "+", RowBox[{"z", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ SubscriptBox["R", "n"], "[", "z", "]"}], ",", "z"}], "]"}]}]}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0032.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "+", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], "+", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "-", "1"}], ")"}], " ", "t"}], "+", RowBox[{"z", " ", SuperscriptBox["\[ExponentialE]", "t"]}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "n"}], "}"}]}], "]"}], "/;", RowBox[{"t", "\[Equal]", "0"}]}], ")"}]}], "/;", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "\[Equal]", SubscriptBox["a", "2"], "\[Equal]", "\[Ellipsis]", "\[Equal]", SubscriptBox["a", "n"], "\[Equal]", "a"}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["R", "0"], "[", "z", "]"}], "\[Equal]", "1"}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["R", RowBox[{"n", "+", "1"}]], "[", "z", "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"z", "+", "a", "-", "1"}], ")"}], RowBox[{ SubscriptBox["R", "n"], "[", "z", "]"}]}], "+", RowBox[{"z", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ SubscriptBox["R", "n"], "[", "z", "]"}], ",", "z"}], "]"}]}]}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0033.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "+", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], "+", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", "z"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "n"], RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"], RowBox[{ RowBox[{"(", RowBox[{"k", "+", "1"}], ")"}], "!"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], "k"], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "j"], RowBox[{"Binomial", "[", RowBox[{ RowBox[{"k", "+", "1"}], ",", RowBox[{"j", "+", "1"}]}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"j", "+", "1"}], ")"}], RowBox[{"n", "+", "1"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], "k"]}]}]}]}]}]}], "/;", RowBox[{ SubscriptBox["a", "1"], "\[Equal]", SubscriptBox["a", "2"], "\[Equal]", "\[Ellipsis]", "\[Equal]", SubscriptBox["a", "n"], "\[Equal]", RowBox[{"-", "1"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0034.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "+", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], "+", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"-", RowBox[{ SubscriptBox["\[PartialD]", "z"], " ", RowBox[{"Nest", "[", RowBox[{ RowBox[{ RowBox[{"z", " ", RowBox[{ SubscriptBox["\[PartialD]", "z"], "#1"}]}], "&"}], ",", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "z"}]], ",", "n"}], "]"}]}]}]}], "/;", RowBox[{ SubscriptBox["a", "1"], "\[Equal]", SubscriptBox["a", "2"], "\[Equal]", "\[Ellipsis]", "\[Equal]", SubscriptBox["a", "n"], "\[Equal]", RowBox[{"-", "1"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0035.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={m,0,m,m}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "m"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "-", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "m"], "-", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "-", "1"}]], SuperscriptBox["z", RowBox[{"a", "-", "1"}]]}], RowBox[{ RowBox[{"(", RowBox[{"m", "-", "1"}], ")"}], "!"}]], SuperscriptBox[ RowBox[{"Log", "[", "z", "]"}], RowBox[{"m", "-", "1"}]], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}], "/;", RowBox[{ SubscriptBox["a", "1"], "\[Equal]", SubscriptBox["a", "2"], "\[Equal]", "\[Ellipsis]", "\[Equal]", SubscriptBox["a", "m"], "\[Equal]", "a"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0036.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={m,0,0,m}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "m"]}], ",", RowBox[{"b", "+", FractionBox["2", "m"]}], ",", "\[Ellipsis]", ",", RowBox[{"b", "+", FractionBox[ RowBox[{"m", "-", "1"}], "m"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"2", " ", "\[Pi]"}], ")"}], RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"m", "-", "1"}], ")"}]}]], SuperscriptBox["z", "b"]}], SqrtBox["m"]], SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "m"}], " ", SuperscriptBox["z", FractionBox["1", "m"]]}]]}]}], "/;", RowBox[{ RowBox[{"m", "\[Element]", "Integers"}], "\[And]", RowBox[{"m", ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1081.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={m,1,m,m}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"m", "-", "1"}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ SubscriptBox["a", "1"], "-", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", RowBox[{"m", "-", "1"}]], "-", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"LerchPhiClassical", "[", RowBox[{ RowBox[{"-", FractionBox["1", "z"]}], ",", RowBox[{"m", "-", "1"}], ",", RowBox[{"c", "-", "a"}]}], "]"}]}]}], "/;", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "\[Equal]", SubscriptBox["a", "2"], "\[Equal]", "\[Ellipsis]", "\[Equal]", SubscriptBox["a", RowBox[{"m", "-", "1"}]], "\[Equal]", "c"}], "\[And]", RowBox[{ RowBox[{"m", "-", "1"}], "\[Element]", "Integers"}], "\[And]", RowBox[{ RowBox[{"m", "-", "1"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0037.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"m", "-", "1"}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ SubscriptBox["a", "1"], "-", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", RowBox[{"m", "-", "1"}]], "-", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", SuperscriptBox["z", "a"]}], RowBox[{"PolyLog", "[", RowBox[{ RowBox[{"m", "-", "1"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}], "/;", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "\[Equal]", SubscriptBox["a", "2"], "\[Equal]", "\[Ellipsis]", "\[Equal]", SubscriptBox["a", RowBox[{"m", "-", "1"}]], "\[Equal]", RowBox[{"a", "+", "1"}]}], "\[And]", RowBox[{ RowBox[{"m", "-", "1"}], "\[Element]", "Integers"}], "\[And]", RowBox[{ RowBox[{"m", "-", "1"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0038.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"m", "-", "1"}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{ SubscriptBox["a", "1"], "-", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", RowBox[{"m", "-", "1"}]], "-", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"-", "1"}]}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "-", "1"}]], RowBox[{ RowBox[{"(", RowBox[{"m", "-", "2"}], ")"}], "!"}]], RowBox[{"PolyGamma", "[", RowBox[{ RowBox[{"m", "-", "2"}], ",", "z"}], "]"}]}]}], "/;", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "\[Equal]", SubscriptBox["a", "2"], "\[Equal]", "\[Ellipsis]", "\[Equal]", SubscriptBox["a", RowBox[{"m", "-", "1"}]], "\[Equal]", "a"}], "\[And]", RowBox[{ RowBox[{"m", "-", "2"}], "\[Element]", "Integers"}], "\[And]", RowBox[{ RowBox[{"m", "-", "2"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0039.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"m", "-", "1"}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{ SubscriptBox["a", "1"], "-", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", RowBox[{"m", "-", "1"}]], "-", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"-", "1"}]}], "]"}], "\[Equal]", RowBox[{"ZetaClassical", "[", RowBox[{ RowBox[{"m", "-", "1"}], ",", RowBox[{"a", "-", "1"}]}], "]"}]}], "/;", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "\[Equal]", SubscriptBox["a", "2"], "\[Equal]", "\[Ellipsis]", "\[Equal]", SubscriptBox["a", RowBox[{"m", "-", "1"}]], "\[Equal]", "a"}], "\[And]", RowBox[{ RowBox[{"m", "-", "1"}], "\[Element]", "Integers"}], "\[And]", RowBox[{ RowBox[{"m", "-", "1"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0040.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"m", "-", "1"}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ SubscriptBox["a", "1"], "-", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", RowBox[{"m", "-", "1"}]], "-", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"-", "1"}]}], "]"}], "\[Equal]", RowBox[{"-", RowBox[{"Zeta", "[", RowBox[{"m", "-", "1"}], "]"}]}]}], "/;", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "\[Equal]", SubscriptBox["a", "2"], "\[Equal]", "\[Ellipsis]", "\[Equal]", SubscriptBox["a", RowBox[{"m", "-", "1"}]], "\[Equal]", "1"}], "\[And]", RowBox[{ RowBox[{"m", "-", "2"}], "\[Element]", "Integers"}], "\[And]", RowBox[{ RowBox[{"m", "-", "2"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0041.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"m", "-", "1"}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ SubscriptBox["a", "1"], "-", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", RowBox[{"m", "-", "1"}]], "-", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "1"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["2", RowBox[{"2", "-", "m"}]]}], ")"}], RowBox[{"Zeta", "[", RowBox[{"m", "-", "1"}], "]"}]}]}], "/;", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "\[Equal]", SubscriptBox["a", "2"], "\[Equal]", "\[Ellipsis]", "\[Equal]", SubscriptBox["a", RowBox[{"m", "-", "1"}]], "\[Equal]", "1"}], "\[And]", RowBox[{ RowBox[{"m", "-", "2"}], "\[Element]", "Integers"}], "\[And]", RowBox[{ RowBox[{"m", "-", "2"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0042.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={q,1,p,q}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "1"]}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "2"}], "p"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["a", "k"], "-", SubscriptBox["a", "1"]}], "]"}]}]], SuperscriptBox["z", RowBox[{ SubscriptBox["a", "1"], "-", "1"}]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "q"], "-", SubscriptBox["a", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", "p"], "-", SubscriptBox["a", "1"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}], "/;", RowBox[{"p", "\[GreaterEqual]", "q"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0043.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "q"], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "1"]}], "]"}], SuperscriptBox["z", RowBox[{ SubscriptBox["a", "1"], "-", "1"}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "q"], "-", SubscriptBox["a", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", "p"], "-", SubscriptBox["a", "1"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}]}], "/;", RowBox[{"p", "\[GreaterEqual]", "q"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0044.01"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cases with ", StyleBox["m\[Equal]0 ", "Program"] }], "Subsubsection"], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,0,0,0}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "x"}], "]"}], "\[Equal]", RowBox[{"DiracDelta", "[", RowBox[{"x", "-", "1"}], "]"}]}], "/;", RowBox[{"x", ">", RowBox[{"-", "1"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0045.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,1,1,0}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "1"}], "/", "z"}]]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0046.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,1,1,1}", "Program"] }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{"a", "-", "1"}]], " "}], RowBox[{"Gamma", "[", RowBox[{"a", "-", "b"}], "]"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", FractionBox["1", "z"]}], ")"}], RowBox[{"a", "-", "b", "-", "1"}]], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0047.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "x"}], "]"}], "\[Equal]", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["x", "b"], " "}], RowBox[{"Gamma", "[", RowBox[{"a", "-", "b"}], "]"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}], RowBox[{"a", "-", "b", "-", "1"}]], RowBox[{"UnitStep", "[", RowBox[{"x", "-", "1"}], "]"}]}]}], "/;", RowBox[{"x", ">", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0048.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ SuperscriptBox["z", RowBox[{"a", "-", "1"}]], " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0049.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", "1"}], "}"}]}], "}"}], ",", "x"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["x", RowBox[{"a", "-", "1"}]], RowBox[{"UnitStep", "[", RowBox[{"x", "-", "1"}], "]"}]}]}], "/;", RowBox[{ RowBox[{"x", "\[Element]", "Reals"}], "\[And]", RowBox[{"x", ">", RowBox[{"-", "1"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0050.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,1,2,0}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", SubscriptBox["a", "2"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], "]"}]], RowBox[{"Hypergeometric0F1", "[", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0051.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", SubscriptBox["a", "2"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ")"}]}], "-", "1"}]], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "2"]}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0052.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"], "+", "n"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox["\[ImaginaryI]", SqrtBox["\[Pi]"]]}], SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", "n", " ", "\[Pi]"}]], " ", SuperscriptBox["z", RowBox[{"a", "-", "1"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"n", "/", "2"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{"Cos", "[", RowBox[{ FractionBox[ RowBox[{"n", " ", "\[Pi]"}], "2"], "-", RowBox[{"2", " ", RowBox[{"\[ImaginaryI]", " ", "/", SqrtBox[ RowBox[{"-", "z"}]]}]}]}], "]"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], RowBox[{"Floor", "[", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", RowBox[{"Abs", "[", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "n"}], "]"}]}]}], ")"}]}], "]"}]], FractionBox[ RowBox[{ SuperscriptBox["16", RowBox[{"-", "k"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], "k"], " ", RowBox[{"Gamma", "[", RowBox[{ FractionBox["1", "2"], "+", RowBox[{"2", " ", "k"}], "+", RowBox[{"Abs", "[", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "n"}], "]"}]}], "]"}]}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", " ", "k"}], ")"}], "!"}], " ", RowBox[{"Gamma", "[", RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "k"}], "+", RowBox[{"Abs", "[", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "n"}], "]"}]}], "]"}]}]]}]}], "+", RowBox[{ SqrtBox[ RowBox[{"-", "z"}]], RowBox[{"(", RowBox[{ RowBox[{"Sin", "[", RowBox[{ FractionBox[ RowBox[{"n", " ", "\[Pi]"}], "2"], "-", RowBox[{"2", " ", RowBox[{"\[ImaginaryI]", " ", "/", SqrtBox[ RowBox[{"-", "z"}]]}]}]}], "]"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], RowBox[{"Floor", "[", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", RowBox[{"Abs", "[", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "n"}], "]"}]}]}], ")"}]}], "]"}]], FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "2"}], "-", RowBox[{"4", " ", "k"}]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], "k"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "2"], "+", RowBox[{"2", " ", "k"}], "+", RowBox[{"Abs", "[", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "n"}], "]"}]}], ")"}], "!"}]}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "-", RowBox[{"2", " ", "k"}], "+", RowBox[{"Abs", "[", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "n"}], "]"}]}], ")"}], "!"}], " ", RowBox[{"Gamma", "[", RowBox[{"2", "+", RowBox[{"2", " ", "k"}]}], "]"}]}]]}]}], ")"}]}]}], ")"}]}]}], "/;", RowBox[{"n", "\[Element]", "Integers"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0053.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], SqrtBox["\[Pi]"]], RowBox[{"Cos", "[", FractionBox["2", SqrtBox["z"]], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0054.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], SqrtBox["\[Pi]"]], RowBox[{"Sin", "[", FractionBox["2", SqrtBox["z"]], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0055.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,1,2,1}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", SubscriptBox["a", "2"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", SubscriptBox["b", "1"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}]], RowBox[{"Hypergeometric1F1Regularized", "[", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", FractionBox["1", "z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0056.01"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"Gamma", "[", RowBox[{"c", "-", "b"}], "]"}]], SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"LaguerreL", "[", RowBox[{ RowBox[{"a", "-", "b", "-", "1"}], ",", RowBox[{"c", "-", "a"}], ",", FractionBox["1", "z"]}], "]"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0057.01"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"Gamma", "[", RowBox[{"a", "-", "b"}], "]"}]], SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"LaguerreL", "[", RowBox[{ RowBox[{"a", "-", "b", "-", "1"}], ",", FractionBox["1", "z"]}], "]"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0058.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], "\[Pi]"], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], SuperscriptBox["\[ExponentialE]", FractionBox["1", "z"]]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0059.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,1,2,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", SubscriptBox["a", "2"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0060.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,1,3,0}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0061.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["2", "3"]}], "+", "a"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "3"]}], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]]}], RowBox[{"2", " ", SqrtBox["3"], " ", "\[Pi]"}]], SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["3", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]]}]]}]], RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox["9", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]]}]]], "+", RowBox[{"2", " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"3", " ", SqrtBox["3"]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]]}]], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0062.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "3"]}], "+", "a"}], ",", RowBox[{ FractionBox["1", "3"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]]}], RowBox[{"2", " ", SqrtBox["3"], " ", "\[Pi]"}]], SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["3", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]]}]]}]], RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox["9", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]]}]]], "-", RowBox[{"2", " ", RowBox[{"Cos", "[", RowBox[{ FractionBox["\[Pi]", "3"], "+", FractionBox[ RowBox[{"3", " ", SqrtBox["3"]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]]}]]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0063.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "3"], "+", "a"}], ",", RowBox[{ FractionBox["2", "3"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"2", "/", "3"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " "}], RowBox[{"2", " ", SqrtBox["3"], " ", "\[Pi]"}]], SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["3", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]]}]]}]], RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox["9", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]]}]]], "-", RowBox[{"2", " ", RowBox[{"Cos", "[", RowBox[{ FractionBox["\[Pi]", "3"], "-", FractionBox[ RowBox[{"3", " ", SqrtBox["3"]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]]}]]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0064.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,1,3,1}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", SubscriptBox["b", "1"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0065.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"\[Pi]", " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}]}]], RowBox[{"Hypergeometric0F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "c"}], ",", FractionBox["1", "z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0066.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{"a", "-", "1"}]], "\[Pi]"], RowBox[{"Hypergeometric0F1Regularized", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "c"}], ",", FractionBox["1", "z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0067.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "\[Pi]"], SuperscriptBox["z", RowBox[{ FractionBox[ RowBox[{"a", "+", "c"}], "2"], "-", "1"}]], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0068.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["2", "3"]}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " "}], RowBox[{"2", " ", SuperscriptBox["3", RowBox[{"1", "/", "6"}]], " ", "\[Pi]"}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SqrtBox["3"]}], " ", RowBox[{"AiryAiPrime", "[", FractionBox[ SuperscriptBox["3", RowBox[{"2", "/", "3"}]], SuperscriptBox["z", RowBox[{"1", "/", "3"}]]], "]"}]}], "+", RowBox[{"AiryBiPrime", "[", FractionBox[ SuperscriptBox["3", RowBox[{"2", "/", "3"}]], SuperscriptBox["z", RowBox[{"1", "/", "3"}]]], "]"}]}], ")"}]}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0069.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Cosh", "[", FractionBox["2", SqrtBox["z"]], "]"}]}], SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]]]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0070.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "-", FractionBox["1", "3"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " "}], RowBox[{"2", " ", SuperscriptBox["3", RowBox[{"1", "/", "3"}]], " ", "\[Pi]"}]], RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"AiryAi", "[", FractionBox[ SuperscriptBox["3", RowBox[{"2", "/", "3"}]], SuperscriptBox["z", RowBox[{"1", "/", "3"}]]], "]"}]}], "+", RowBox[{ SqrtBox["3"], " ", RowBox[{"AiryBi", "[", FractionBox[ SuperscriptBox["3", RowBox[{"2", "/", "3"}]], SuperscriptBox["z", RowBox[{"1", "/", "3"}]]], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0071.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "+", FractionBox["1", "4"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["3", "4"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[ImaginaryI]"}], "\[Pi]"], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}]], RowBox[{"FresnelC", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "\[ImaginaryI]"}], ")"}], " ", SqrtBox[ FractionBox["2", "\[Pi]"]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "/", "4"}]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0072.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "+", FractionBox["1", "4"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["3", "4"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}]], RowBox[{"2", " ", "\[Pi]"}]], RowBox[{"(", RowBox[{ RowBox[{"Erf", "[", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "/", "4"}]]}], "]"}], "+", RowBox[{"Erfi", "[", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "/", "4"}]]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0073.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "+", FractionBox["1", "3"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["2", "3"]}], "+", "a"}]], " "}], RowBox[{"2", " ", SuperscriptBox["3", RowBox[{"1", "/", "3"}]], " ", "\[Pi]"}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", RowBox[{"AiryAi", "[", FractionBox[ SuperscriptBox["3", RowBox[{"2", "/", "3"}]], SuperscriptBox["z", RowBox[{"1", "/", "3"}]]], "]"}]}], "+", RowBox[{ SqrtBox["3"], " ", RowBox[{"AiryBi", "[", FractionBox[ SuperscriptBox["3", RowBox[{"2", "/", "3"}]], SuperscriptBox["z", RowBox[{"1", "/", "3"}]]], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0074.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"Sinh", "[", FractionBox["2", SqrtBox["z"]], "]"}]}], SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]]]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0075.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "+", FractionBox["2", "3"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "3"]}], "+", "a"}]], RowBox[{"2", " ", SuperscriptBox["3", RowBox[{"1", "/", "6"}]], " ", "\[Pi]"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox["3"], " ", RowBox[{"AiryAiPrime", "[", FractionBox[ SuperscriptBox["3", RowBox[{"2", "/", "3"}]], SuperscriptBox["z", RowBox[{"1", "/", "3"}]]], "]"}]}], "+", RowBox[{"AiryBiPrime", "[", FractionBox[ SuperscriptBox["3", RowBox[{"2", "/", "3"}]], SuperscriptBox["z", RowBox[{"1", "/", "3"}]]], "]"}]}], ")"}]}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0076.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", FractionBox["1", "2"]}], ",", RowBox[{"a", "+", FractionBox["3", "4"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "4"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"1", "+", "\[ImaginaryI]"}], "\[Pi]"]}], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], RowBox[{"FresnelS", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "\[ImaginaryI]"}], ")"}], " ", SqrtBox[ FractionBox["2", "\[Pi]"]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "/", "4"}]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0077.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", FractionBox["1", "2"]}], ",", RowBox[{"a", "+", FractionBox["3", "4"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "4"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], RowBox[{"2", " ", "\[Pi]"}]], RowBox[{"(", RowBox[{ RowBox[{"Erfi", "[", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "/", "4"}]]}], "]"}], "-", RowBox[{"Erf", "[", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "/", "4"}]]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0078.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,1,3,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0079.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,1,3,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "3"]}], "]"}], " "}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0080.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,1,4,0}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"], ",", SubscriptBox["a", "4"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "4"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0081.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ FractionBox["1", "2"], "+", "c"}], ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "c"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]], SqrtBox["\[Pi]"]], RowBox[{"BesselI", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", FractionBox[ RowBox[{"2", " ", SqrtBox["2"]}], SuperscriptBox["z", RowBox[{"1", "/", "4"}]]]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", FractionBox[ RowBox[{"2", " ", SqrtBox["2"]}], SuperscriptBox["z", RowBox[{"1", "/", "4"}]]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0082.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,2,2,0}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["z", RowBox[{ SubscriptBox["a", "1"], "-", "1"}]], RowBox[{"Hypergeometric0F1Regularized", "[", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", FractionBox["1", "z"]}], "]"}]}], "-", RowBox[{ SuperscriptBox["z", RowBox[{ SubscriptBox["a", "2"], "-", "1"}]], RowBox[{"Hypergeometric0F1Regularized", "[", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", FractionBox["1", "z"]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0083.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SuperscriptBox["z", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "+", "c"}], ")"}]}], "-", "1"}]], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{"a", "-", "c"}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0084.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{"a", "-", FractionBox["1", "2"]}]], SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["2", SqrtBox["z"]]}]]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0085.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,2,2,1}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", SubscriptBox["b", "1"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], " ", RowBox[{"Hypergeometric1F1Regularized", "[", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "-", RowBox[{ FractionBox["1", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], " ", RowBox[{"Hypergeometric1F1Regularized", "[", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0086.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"a", "-", "1"}]], SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["1", "z"]}]], " ", RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{"c", "-", "b"}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", FractionBox["1", "z"]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0087.01"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"a", "-", "c"}], ",", FractionBox["1", "z"]}], "]"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0088.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"a", "-", "c"}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"GammaRegularized", "[", RowBox[{ RowBox[{"a", "-", "c"}], ",", FractionBox["1", "z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0089.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"2", "a"}], "-", RowBox[{"2", "b"}]}]], SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["1", "z"]}]], " ", SuperscriptBox["z", RowBox[{"a", "-", FractionBox["1", "2"]}]], " ", RowBox[{"HermiteH", "[", RowBox[{ RowBox[{ RowBox[{"2", "b"}], "-", RowBox[{"2", "a"}]}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0090.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"1", "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox["1", "z"], ")"}], RowBox[{ RowBox[{"-", "a"}], "+", "b"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "b"}]], " ", RowBox[{"ExpIntegralE", "[", RowBox[{ RowBox[{"a", "-", "b"}], ",", FractionBox["1", "z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0091.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", SqrtBox["\[Pi]"]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["1", RowBox[{"2", " ", "z"}]]}]], RowBox[{"BesselK", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", RowBox[{"2", " ", "z"}]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0092.01"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"ExpIntegralEi", "[", RowBox[{"-", FractionBox["1", "z"]}], "]"}]}], "-", RowBox[{"Log", "[", RowBox[{"-", FractionBox["1", "z"]}], "]"}], "+", RowBox[{"2", " ", RowBox[{"Log", "[", FractionBox["1", "z"], "]"}]}], "+", RowBox[{"Log", "[", RowBox[{"-", "z"}], "]"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0093.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"Erfc", "[", FractionBox["1", SqrtBox["z"]], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0094.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,2,2,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}]}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}], "-", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], "]"}]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}]}], ")"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0095.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ SuperscriptBox["z", SubscriptBox["b", "1"]], SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "1"}], ")"}], RowBox[{ SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"], "-", "1"}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"1", "-", "z"}]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0096.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ SuperscriptBox["z", RowBox[{ SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"], "-", SubscriptBox["a", "2"]}]], SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "1"}], ")"}], RowBox[{ SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"], "-", "1"}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], ",", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"1", "-", FractionBox["1", "z"]}]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0097.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "d"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"Gamma", "[", RowBox[{"a", "-", "d"}], "]"}]], RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b", "+", "c", "-", "d"}]], " ", SuperscriptBox["z", "d"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"JacobiP", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b", "+", "c", "-", "d"}], ",", RowBox[{ RowBox[{"-", "b"}], "+", "d"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "z"}]}]}], "]"}], " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0098.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "d"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{"c", "-", "d"}], "]"}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b", "+", "c", "-", "d"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "a"}], "+", "b", "+", "d"}]], " ", RowBox[{"JacobiP", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b", "+", "c", "-", "d"}], ",", RowBox[{"a", "-", "c"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox["2", "z"]}]}], "]"}]}]}], " ", "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0099.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "c"}], "-", "b", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "c"}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}], FractionBox[ RowBox[{"a", "-", "c"}], "2"]], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", "c"}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", "2", ",", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox["2", "z"]}]}], "]"}]}]}], " ", "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0100.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "c"}], "-", "b", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], "]"}], " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "+", "a", "-", "c"}], "]"}], " ", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"-", "1"}], "-", "a", "-", "b", "+", RowBox[{"2", " ", "c"}]}]}], "]"}]}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", RowBox[{"2", " ", "c"}]}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}], RowBox[{"a", "-", "c"}]], RowBox[{"GegenbauerC", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", "a", "-", "b", "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ FractionBox["1", "2"], "+", "a", "-", "c"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox["2", "z"]}]}], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0101.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", "c", "-", "a"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["\[Pi]"], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{"a", "-", "b"}], "]"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ")"}]}], "+", "b"}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}], RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}]], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "c"}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", "3", ",", FractionBox[ RowBox[{"1", "+", "z"}], RowBox[{"2", " ", SqrtBox["z"]}]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0102.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"a", "-", "b", "+", "c", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", "c"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ FractionBox["1", "2"], "-", "b", "+", "c"}], "]"}]}], RowBox[{"\[Pi]", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}]], SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "+", "c"}], ")"}]}]], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", RowBox[{"a", "-", "c"}], ",", "2", ",", RowBox[{"-", SqrtBox[ FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}], "z"]]}]}], "]"}], "+", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", RowBox[{"a", "-", "c"}], ",", "2", ",", SqrtBox[ FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}], "z"]]}], "]"}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0103.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"c", "-", "a", "+", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", "\[Pi]"}]], " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"a", "-", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "c"}], "]"}]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}]}], "+", "b"}]], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ",", RowBox[{"a", "-", "c"}], ",", "3", ",", FractionBox[ RowBox[{"1", "+", "z"}], RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0104.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"2", "+", RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}], "]"}], " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], "]"}], " ", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ")"}]}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}]}], "]"}]}]], " ", SuperscriptBox["z", "b"], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}], RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}]], " ", RowBox[{"GegenbauerC", "[", RowBox[{ RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ",", SqrtBox["z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0105.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}]], " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ")"}]}], "-", "b"}]], " ", SuperscriptBox["z", "b"], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "c"}], ",", RowBox[{ FractionBox["3", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", "3", ",", SqrtBox["z"]}], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0106.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", "\[Pi]"}]], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "b"}], "+", RowBox[{"2", " ", "c"}]}], "]"}]}]], " ", SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}], RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "+", "c"}], ")"}]}], "-", "b", "-", "1"}]], RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{"a", "-", RowBox[{"2", " ", "b"}], "+", "c", "-", "2"}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", "3", ",", SqrtBox[ FractionBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]]}], "]"}]}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0107.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "+", "c", "-", "1"}], ")"}]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ")"}]}], "]"}], " ", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "b"}]}], "]"}]}]], " ", SuperscriptBox["z", FractionBox[ RowBox[{"a", "+", "c", "-", "1"}], "2"]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "1"}], ")"}], RowBox[{ FractionBox[ RowBox[{"a", "+", "c", "-", "1"}], "2"], "-", "b"}]], " ", RowBox[{"GegenbauerC", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", RowBox[{ FractionBox[ RowBox[{"a", "+", "c"}], "2"], "-", "b"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "z"}]}]}], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0108.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "+", "c"}], ")"}]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}], RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ")"}]}]], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], " ", SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "+", RowBox[{"2", " ", "b"}], "+", "c"}], ")"}]}]], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "c"}], ")"}]}], ",", RowBox[{"b", "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", "a", "-", "c"}], ")"}]}]}], ",", "3", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "z"}]}]}], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0109.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "+", "c"}], ")"}]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", "\[Pi]"}]], " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"a", "-", "b"}], "]"}]}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}], RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ")"}]}]], " ", SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "a", "+", RowBox[{"2", " ", "b"}], "+", "c"}], ")"}]}]], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"a", "+", "c"}], "2"], "-", "b", "-", "1"}], ",", FractionBox[ RowBox[{"a", "-", "c"}], "2"], ",", "3", ",", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "z"}]}], RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], " ", SqrtBox["z"]}]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"Re", "[", "z", "]"}], ">", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0110.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", RowBox[{"2", " ", "a"}], "-", "b", "-", "c"}]], " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "b"}], "+", RowBox[{"2", " ", "c"}]}], ")"}]}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}], RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "+", RowBox[{"2", " ", "c"}]}], ")"}]}], "+", "a"}]], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b", "-", "c"}], ",", RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ",", "2", ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0111.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", "b"], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "z"}]}]}], "]"}], " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0112.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}]], SuperscriptBox["z", "b"], " ", RowBox[{"ChebyshevT", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "z"}]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0113.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["z", "b"], " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}]], RowBox[{"ChebyshevT", "[", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ")"}]}], ",", RowBox[{"1", "-", RowBox[{"8", " ", "z"}], "+", RowBox[{"8", " ", SuperscriptBox["z", "2"]}]}]}], "]"}]}]}], " ", "/;", RowBox[{ RowBox[{"Re", "[", "z", "]"}], ">", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0114.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}]}], RowBox[{"2", SqrtBox["\[Pi]"], SqrtBox[ RowBox[{"z", "-", "1"}]]}]], SuperscriptBox["z", "b"], RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SqrtBox["z"], "+", SqrtBox[ RowBox[{"z", "-", "1"}]]}], ")"}], RowBox[{ RowBox[{"2", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}], "-", "1"}]], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SqrtBox["z"], "-", SqrtBox[ RowBox[{"z", "-", "1"}]]}], ")"}], RowBox[{ RowBox[{"2", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}], "-", "1"}]]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0115.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["2", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}]], RowBox[{ SqrtBox["\[Pi]"], SqrtBox[ RowBox[{"z", "-", "1"}]]}]], SuperscriptBox["z", "b"], RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{ SqrtBox["z"], "+", "1"}]], "-", SqrtBox[ RowBox[{ SqrtBox["z"], "-", "1"}]]}], ")"}], RowBox[{ RowBox[{"4", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}], "-", "2"}]], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{ SqrtBox["z"], "+", "1"}]], "+", SqrtBox[ RowBox[{ SqrtBox["z"], "-", "1"}]]}], ")"}], RowBox[{ RowBox[{"4", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}], "-", "2"}]]}], ")"}], " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0116.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], RowBox[{ SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}]], SuperscriptBox["z", "b"], " ", RowBox[{"Cosh", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "a"}], "+", RowBox[{"2", "b"}]}], ")"}], " ", RowBox[{"ArcCosh", "[", SqrtBox["z"], "]"}]}], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0117.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "2"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ")"}], " ", SqrtBox["\[Pi]"]}]], SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], "+", "b"}]], SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], " ", RowBox[{"ChebyshevU", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "+", "a", "-", "b"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "z"}]}]}], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0118.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "2"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"4", " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ")"}], " ", SqrtBox["\[Pi]"]}]], SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], "+", "b"}]], RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "z"}]}], ")"}], SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], " ", RowBox[{"ChebyshevU", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "a", "-", "b"}], ")"}]}], ",", RowBox[{"1", "-", RowBox[{"8", " ", "z"}], "+", RowBox[{"8", " ", SuperscriptBox["z", "2"]}]}]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"Re", "[", "z", "]"}], ">", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0119.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", "b"}], "-", "a", "+", "2"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}]}], RowBox[{"2", SqrtBox["\[Pi]"], RowBox[{"(", RowBox[{"a", "-", "b", "-", "1"}], ")"}]}]], SuperscriptBox["z", "b"], RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SqrtBox["z"], "+", SqrtBox[ RowBox[{"z", "-", "1"}]]}], ")"}], RowBox[{"2", RowBox[{"(", RowBox[{"a", "-", "b", "-", "1"}], ")"}]}]], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ SqrtBox["z"], "-", SqrtBox[ RowBox[{"z", "-", "1"}]]}], ")"}], RowBox[{"2", RowBox[{"(", RowBox[{"a", "-", "b", "-", "1"}], ")"}]}]]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0120.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", "b"}], "-", "a", "+", "2"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "1"}]], " "}], RowBox[{ SqrtBox["\[Pi]"], RowBox[{"(", RowBox[{"a", "-", "b", "-", "1"}], ")"}]}]], SuperscriptBox["z", "b"], RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{ SqrtBox["z"], "+", "1"}]], "+", SqrtBox[ RowBox[{ SqrtBox["z"], "-", "1"}]]}], ")"}], RowBox[{"4", RowBox[{"(", RowBox[{"a", "-", "b", "-", "1"}], ")"}]}]], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{ SqrtBox["z"], "+", "1"}]], "-", SqrtBox[ RowBox[{ SqrtBox["z"], "-", "1"}]]}], ")"}], RowBox[{"4", RowBox[{"(", RowBox[{"a", "-", "b", "-", "1"}], ")"}]}]]}], ")"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0121.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "2"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}], RowBox[{" ", RowBox[{ SqrtBox["\[Pi]"], RowBox[{"(", RowBox[{"a", "-", "b", "-", "1"}], ")"}]}]}]], SuperscriptBox["z", "b"], " ", RowBox[{"Sinh", "[", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ")"}], " ", RowBox[{"ArcCosh", "[", SqrtBox["z"], "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0122.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "+", "b"}], ")"}]}]], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", FractionBox[ RowBox[{"1", "+", "z"}], RowBox[{"2", " ", SqrtBox["z"]}]]}], "]"}], " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0123.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"b", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"a", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}]], SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "a", "+", "b"}], ")"}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["z", "2"]}], ")"}], " ", RowBox[{"ChebyshevU", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "a", "-", "b"}], ")"}]}], ",", FractionBox[ RowBox[{"1", "+", SuperscriptBox["z", "2"]}], RowBox[{"2", " ", "z"}]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0124.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox["2", "z"]}]}], "]"}], " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0125.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{"4", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "a"}]], " ", RowBox[{"ChebyshevU", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "a", "-", "b"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox["2", "z"]}]}], "]"}], " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ")"}], " ", SqrtBox["\[Pi]"]}]]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0126.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", "a"}], "-", "b", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "a"}], "-", RowBox[{"2", "b"}], "-", "1"}], ")"}], SqrtBox["\[Pi]"]}]], SuperscriptBox["z", RowBox[{"a", "-", FractionBox["1", "2"]}]], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "a"}], "-", RowBox[{"2", "b"}], "-", "1"}], ")"}], " ", RowBox[{"ArcCos", "[", FractionBox["1", SqrtBox["z"]], "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0127.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", "a"}], "-", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}], RowBox[{ SqrtBox["\[Pi]"], SqrtBox[ RowBox[{"z", "-", "1"}]]}]], SuperscriptBox["z", "a"], RowBox[{"Cos", "[", RowBox[{"2", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"ArcCos", "[", FractionBox["1", SqrtBox["z"]], "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0128.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{ SuperscriptBox["z", "a"], " ", RowBox[{"ChebyshevT", "[", RowBox[{ RowBox[{"a", "-", "b"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox["2", "z"]}]}], "]"}], " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}]]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0129.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", SuperscriptBox["z", RowBox[{"a", "-", "1"}]]}], RowBox[{"Log", "[", FractionBox["1", "z"], "]"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0130.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["z", RowBox[{"a", "-", "1"}]]}], SqrtBox["\[Pi]"]], RowBox[{"Log", "[", RowBox[{ RowBox[{"Sqrt", "[", "z", "]"}], "+", RowBox[{"Sqrt", "[", RowBox[{"z", "-", "1"}], "]"}]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0131.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", SuperscriptBox["z", RowBox[{"a", "-", "1"}]]}], SqrtBox["\[Pi]"]]}], RowBox[{"Log", "[", RowBox[{ RowBox[{"Sqrt", "[", "z", "]"}], "-", RowBox[{"Sqrt", "[", RowBox[{"z", "-", "1"}], "]"}]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0132.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["3", "4"]}], ",", RowBox[{"a", "-", FractionBox["1", "4"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], "\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}]], " ", RowBox[{"EllipticK", "[", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", SqrtBox["z"]}], ")"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0133.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["3", "4"]}], ",", RowBox[{"a", "-", FractionBox["1", "4"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SqrtBox["2"], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{"\[Pi]", " ", SqrtBox[ RowBox[{"1", "+", SqrtBox["z"]}]]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}]], " ", RowBox[{"EllipticK", "[", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["z"]}], RowBox[{"1", "+", SqrtBox["z"]}]], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0134.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["3", "4"]}], ",", RowBox[{"a", "-", FractionBox["1", "4"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], "\[Pi]"], SqrtBox[ RowBox[{ RowBox[{"-", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], "+", SqrtBox["z"]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}]], " ", RowBox[{"EllipticK", "[", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], "+", SqrtBox["z"]}], ")"}], " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0135.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["3", "4"]}], ",", RowBox[{"a", "-", FractionBox["1", "4"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], "\[Pi]"], SqrtBox[ RowBox[{ RowBox[{"-", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], "+", SqrtBox["z"]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}]], " ", RowBox[{"EllipticK", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], RowBox[{ RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], "+", SqrtBox["z"]}], ")"}], " "}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0136.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["3", "4"]}], ",", RowBox[{"a", "-", FractionBox["1", "4"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{"\[Pi]", " ", SqrtBox[ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], "+", SqrtBox["z"]}]]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}]], " ", RowBox[{"EllipticK", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], "+", SqrtBox["z"]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0137.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["3", "4"]}], ",", RowBox[{"a", "-", FractionBox["1", "4"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{"\[Pi]", " ", SqrtBox[ RowBox[{ RowBox[{"-", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], "+", SqrtBox["z"]}]]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}]], " ", RowBox[{"EllipticK", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], "-", SqrtBox["z"]}]], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0138.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], "\[Pi]"], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"EllipticK", "[", RowBox[{"1", "-", "z"}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0139.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], "\[Pi]"], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"EllipticK", "[", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}], "z"], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0140.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"4", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox["z"]}], ")"}]}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"EllipticK", "[", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SqrtBox["z"]}], ")"}], "2"], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SqrtBox["z"]}], ")"}], "2"]], "]"}], " "}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0141.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], "\[Pi]"], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}]], " ", RowBox[{"EllipticK", "[", RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["z"]}], ")"}], "2"], RowBox[{"4", " ", SqrtBox["z"]}]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0142.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], "+", SqrtBox["z"]}], ")"}]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"EllipticK", "[", FractionBox[ RowBox[{"4", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], " ", SqrtBox["z"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], "+", SqrtBox["z"]}], ")"}], "2"]], "]"}]}]}], "/;", RowBox[{ RowBox[{"Re", "[", "z", "]"}], ">", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0143.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], "+", SqrtBox["z"]}], ")"}]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"EllipticK", "[", RowBox[{"-", FractionBox[ RowBox[{"4", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], " ", SqrtBox["z"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], "-", SqrtBox["z"]}], ")"}], "2"]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"Re", "[", "z", "]"}], ">", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0144.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", RowBox[{"Floor", "[", FractionBox["n", "2"], "]"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "n", "+", RowBox[{"Floor", "[", FractionBox["n", "2"], "]"}]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"Floor", "[", FractionBox["n", "2"], "]"}]], RowBox[{ RowBox[{"Floor", "[", FractionBox["n", "2"], "]"}], "!"}]}], RowBox[{"Gamma", "[", RowBox[{ FractionBox["1", "2"], "+", "n", "-", RowBox[{"Floor", "[", FractionBox["n", "2"], "]"}]}], "]"}]], " ", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}], "z"], ")"}], RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "-", RowBox[{"2", " ", RowBox[{"Floor", "[", FractionBox["n", "2"], "]"}]}]}], ")"}]}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"LegendreP", "[", RowBox[{"n", ",", SqrtBox[ FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}], "z"]]}], "]"}], " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"n", "\[Element]", "Integers"}], "\[And]", RowBox[{"n", "\[GreaterEqual]", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0145.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["3", "4"]}], ",", RowBox[{"a", "+", FractionBox["1", "4"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", "\[Pi]"], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}], SuperscriptBox["z", RowBox[{"a", "-", FractionBox["3", "4"]}]], SqrtBox[ RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}]], " ", RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "-", "z"}]]}], RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}]], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0146.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["3", "4"]}], ",", RowBox[{"a", "+", FractionBox["1", "4"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", "\[Pi]"], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}], SuperscriptBox["z", RowBox[{"a", "-", FractionBox["3", "4"]}]], SqrtBox[ RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "-", "z"}]]}]], " ", RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "-", "z"}]]}], RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}]], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0147.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}], ",", RowBox[{"a", "+", RowBox[{"1", "/", "4"}]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", "\[Pi]"], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}], FractionBox[ SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]], SqrtBox[ RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "-", "z"}]]}]]], " ", RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "-", "z"}]]}], RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}]], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0148.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}], ",", RowBox[{"a", "+", RowBox[{"1", "/", "4"}]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", "\[Pi]"], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}], FractionBox[ SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]], SqrtBox[ RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}]]], " ", RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "-", "z"}]]}], RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0149.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}], ",", RowBox[{"a", "+", RowBox[{"1", "/", "4"}]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", "\[Pi]"], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}]], " ", SqrtBox[ RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}]], RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "-", "z"}]]}], RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}]], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0150.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}], ",", RowBox[{"a", "+", RowBox[{"1", "/", "4"}]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", "\[Pi]"], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}]], " ", SqrtBox[ RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "-", "z"}]]}]], RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "-", "z"}]]}], RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0151.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", SqrtBox["\[Pi]"]], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}], SuperscriptBox["z", RowBox[{"a", "-", FractionBox["1", "2"]}]], RowBox[{"ArcCos", "[", FractionBox["1", SqrtBox["z"]], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0152.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "4"]}], ",", RowBox[{"a", "-", FractionBox["1", "4"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], "\[Pi]"], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"EllipticK", "[", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["z"]}], RowBox[{"2", " ", SqrtBox["z"]}]], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0153.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "4"]}], ",", RowBox[{"a", "-", FractionBox["1", "4"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SqrtBox["2"], " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{"\[Pi]", " ", SqrtBox[ RowBox[{"1", "+", SqrtBox["z"]}]]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"EllipticK", "[", FractionBox[ RowBox[{"1", "-", SqrtBox["z"]}], RowBox[{"1", "+", SqrtBox["z"]}]], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0154.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", "\[Pi]"], FractionBox[ RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}], SqrtBox[ RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}]]], " ", SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]], RowBox[{"EllipticK", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "-", "z"}]]}], RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}]], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0155.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}]}], RowBox[{"\[Pi]", " ", SqrtBox[ RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "-", "z"}]]}]]}]], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]], " ", RowBox[{"EllipticK", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "-", "z"}]]}], RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}]], "]"}]}]}], " ", "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0156.01"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", "\[Pi]"], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}], SqrtBox[ RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}]], " ", SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}]], RowBox[{"EllipticK", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "-", "z"}]]}], RowBox[{ SqrtBox[ RowBox[{"1", "-", "z"}]], "-", "1"}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0157.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], "\[Pi]"], " ", SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]], " ", RowBox[{"EllipticE", "[", RowBox[{"1", "-", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0158.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], "\[Pi]"], SuperscriptBox["z", "a"], " ", RowBox[{"EllipticE", "[", RowBox[{"1", "-", FractionBox["1", "z"]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0159.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "4"]}], ",", RowBox[{"a", "+", FractionBox["1", "4"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{"\[Pi]", " ", SqrtBox[ RowBox[{ RowBox[{"-", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], "+", SqrtBox["z"]}]]}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], "+", SqrtBox["z"]}]], "]"}]}]}], " ", "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0160.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "4"]}], ",", RowBox[{"a", "+", FractionBox["1", "4"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{"\[Pi]", " ", SqrtBox[ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], "+", SqrtBox["z"]}]]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], "-", SqrtBox["z"]}]], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0161.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "4"]}], ",", RowBox[{"a", "+", FractionBox["1", "4"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], "\[Pi]"], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], SqrtBox[ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], "+", SqrtBox["z"]}]], " ", RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], "+", SqrtBox["z"]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0162.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "4"]}], ",", RowBox[{"a", "+", FractionBox["1", "4"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], "\[Pi]"], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], SqrtBox[ RowBox[{ RowBox[{"-", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], "+", SqrtBox["z"]}]], " ", RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], "-", SqrtBox["z"]}]], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0163.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", "2"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", FractionBox["1", "2"]}], ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], "+", SqrtBox["z"]}], ")"}]}]], SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], "+", "a"}]], " ", RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"4", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], " ", SqrtBox["z"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], "+", SqrtBox["z"]}], ")"}], "2"]], "]"}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}], "\[Or]", RowBox[{ RowBox[{"Re", "[", "z", "]"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0164.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", "2"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", FractionBox["1", "2"]}], ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], "+", SqrtBox["z"]}], ")"}]}]], " ", SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], "+", "a"}]], " ", RowBox[{"EllipticE", "[", RowBox[{"-", FractionBox[ RowBox[{"4", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], " ", SqrtBox["z"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], "+", SqrtBox["z"]}], ")"}], "2"]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}], "\[Or]", RowBox[{ RowBox[{"Re", "[", "z", "]"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0165.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", "2"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", FractionBox["1", "2"]}], ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], "\[Pi]"], " ", SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], "+", "a"}]], RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], "+", SqrtBox["z"]}], ")"}], " ", RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"4", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], " ", SqrtBox["z"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], "+", SqrtBox["z"]}], ")"}], "2"]], "]"}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}], "\[Or]", RowBox[{ RowBox[{"Re", "[", "z", "]"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0166.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", "2"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", FractionBox["1", "2"]}], ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], "\[Pi]"], RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], "+", SqrtBox["z"]}], ")"}], " ", SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], "+", "a"}]], " ", RowBox[{"EllipticE", "[", RowBox[{"-", FractionBox[ RowBox[{"4", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], " ", SqrtBox["z"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], "+", SqrtBox["z"]}], ")"}], "2"]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}], "\[Or]", RowBox[{ RowBox[{"Re", "[", "z", "]"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0167.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,2,3,0}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", SubscriptBox["a", "3"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "2"]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}], "-", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0168.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "-", FractionBox["1", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "3"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["2", "3"]}], "+", "a"}]]}], SqrtBox["3"]], SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["3", RowBox[{"2", " ", SuperscriptBox["z", RowBox[{"1", "/", "3"}]]}]]}]], RowBox[{"Sin", "[", FractionBox[ RowBox[{"3", " ", SqrtBox["3"]}], RowBox[{"2", " ", SuperscriptBox["z", RowBox[{"1", "/", "3"}]]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0169.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,2,3,1}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", SubscriptBox["a", "3"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", SubscriptBox["b", "1"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "-", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0170.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ FractionBox[ RowBox[{"a", "+", "c"}], "2"], "-", "1"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "c"}], ")"}], " ", "\[Pi]"}], "]"}]}], "+", RowBox[{ RowBox[{"BesselY", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "c"}], ")"}], " ", "\[Pi]"}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0171.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], " ", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "a", "+", "c"}], ")"}]}]], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{"a", "-", "c"}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0172.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"Sec", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}]}], "2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}], "-", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0173.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a"}]}], "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Sec", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "b"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}], "+", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0174.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"b", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SqrtBox["\[Pi]"], "2"], RowBox[{"Sec", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], "2"], "-", SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], "2"]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0175.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"b", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], "+", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0176.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"b", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "a"}]], SqrtBox["\[Pi]"]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", SqrtBox["z"], " ", RowBox[{"Cos", "[", FractionBox["2", SqrtBox["z"]], "]"}]}], "+", RowBox[{"Sin", "[", FractionBox["2", SqrtBox["z"]], "]"}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0177.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"b", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " "}], RowBox[{"2", " ", SqrtBox["\[Pi]"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"Cos", "[", FractionBox["2", SqrtBox["z"]], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ")"}], " ", SqrtBox["z"], " ", RowBox[{"Sin", "[", FractionBox["2", SqrtBox["z"]], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0178.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", SqrtBox["\[Pi]"]}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0179.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"b", "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["4", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], " ", "\[Pi]"}]]}], SqrtBox["\[Pi]"]]}], SuperscriptBox["z", "b"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "\[ImaginaryI]", " ", "b", " ", "\[Pi]"}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{"-", FractionBox["1", "z"]}]]}]}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "\[ImaginaryI]", " ", "a", " ", "\[Pi]"}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", FractionBox["1", "z"]}]]}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"0", "\[LessEqual]", RowBox[{"Arg", "[", "z", "]"}], "<", "\[Pi]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0180.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"b", "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], " ", "\[Pi]"}]], " ", SuperscriptBox["z", "b"]}], SqrtBox["\[Pi]"]], RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "\[ImaginaryI]", " ", "b", " ", "\[Pi]"}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{"-", FractionBox["1", "z"]}]]}]}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "\[ImaginaryI]", " ", "a", " ", "\[Pi]"}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", FractionBox["1", "z"]}]]}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"0", "\[LessEqual]", RowBox[{"Arg", "[", "z", "]"}], "\[LessEqual]", FractionBox["\[Pi]", "2"]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0181.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"\[Pi]", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}], "+", FractionBox["2", SqrtBox["z"]]}], "]"}]}], SqrtBox["\[Pi]"]]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0182.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"b", "-", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"2", " ", SqrtBox["\[Pi]"]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}], "-", "1"}], ")"}], " ", SqrtBox["z"], " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"\[Pi]", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}], "+", FractionBox["2", SqrtBox["z"]]}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"\[Pi]", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}], "+", FractionBox["2", SqrtBox["z"]]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0183.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"\[Pi]", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}], "+", FractionBox["2", SqrtBox["z"]]}], "]"}]}], SqrtBox["\[Pi]"]]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0184.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"b", "+", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}]], " ", SuperscriptBox["z", "b"], " "}], SqrtBox["\[Pi]"]]}], RowBox[{"(", RowBox[{ RowBox[{"Gamma", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{"-", FractionBox["1", "z"]}]]}]}], "]"}], "-", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", FractionBox["1", "z"]}]]}]}], "]"}]}], ")"}]}]}], "/;", RowBox[{"0", "\[LessEqual]", RowBox[{"Arg", "[", "z", "]"}], "\[LessEqual]", FractionBox["\[Pi]", "2"]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0185.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox["2", SqrtBox["\[Pi]"]]}], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"CosIntegral", "[", FractionBox["2", SqrtBox["z"]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0186.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " "}], SqrtBox["\[Pi]"]]}], RowBox[{"(", RowBox[{ RowBox[{"CoshIntegral", "[", FractionBox[ RowBox[{"2", "\[ImaginaryI]"}], SqrtBox["z"]], "]"}], "-", RowBox[{"Log", "[", FractionBox[ RowBox[{"2", "\[ImaginaryI]"}], SqrtBox["z"]], "]"}], "+", RowBox[{"Log", "[", FractionBox["2", SqrtBox["z"]], "]"}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0187.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "4"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["3", "4"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", RowBox[{"FresnelC", "[", FractionBox["2", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0188.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], SqrtBox["\[Pi]"]], RowBox[{"(", RowBox[{"\[Pi]", "-", RowBox[{"2", " ", RowBox[{"SinIntegral", "[", FractionBox["2", SqrtBox["z"]], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0189.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["3", "4"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "4"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", RowBox[{"FresnelS", "[", FractionBox["2", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0190.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,2,3,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", SubscriptBox["a", "3"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}]}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}], "-", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], "]"}]}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0191.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,2,3,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", SubscriptBox["a", "3"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "3"]}], "]"}], " "}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "-", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "3"]}], "]"}], " "}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}], ")"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0192.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,2,4,0}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "3"], ",", SubscriptBox["a", "4"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "4"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}], "-", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "4"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0193.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"BesselK", "[", RowBox[{"0", ",", FractionBox["4", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]]}], "]"}]}], "\[Pi]"], "-", RowBox[{"BesselY", "[", RowBox[{"0", ",", FractionBox["4", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]]}], "]"}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0194.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,2,5,1}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "3"], ",", SubscriptBox["a", "4"], ",", SubscriptBox["a", "5"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", SubscriptBox["b", "1"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "4"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "5"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "-", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "4"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "5"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0195.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}], ",", RowBox[{ FractionBox["1", "2"], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " "}], SqrtBox["\[Pi]"]], RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", FractionBox[ RowBox[{"2", " ", SqrtBox["2"]}], SuperscriptBox["z", RowBox[{"1", "/", "4"}]]]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox[ RowBox[{"2", " ", SqrtBox["2"]}], SuperscriptBox["z", RowBox[{"1", "/", "4"}]]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0196.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,3,3,0}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "+", " ", RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "3"]}], ")"}]}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "+", " ", RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "2"]}], "+", SubscriptBox["a", "3"]}], ")"}]}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "3"]}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["a", "2"], "-", SubscriptBox["a", "3"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["a", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0197.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,3,3,1}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", SubscriptBox["b", "1"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "3"]}], ")"}]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}], "+", " ", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "3"]}], ")"}]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}], "+", " ", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "2"]}], "+", SubscriptBox["a", "3"]}], ")"}]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "1"]}], "]"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "3"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["a", "2"], "-", SubscriptBox["a", "3"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["a", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0198.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"b", "+", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", SqrtBox["\[Pi]"]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "b"}]], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0199.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"b", "+", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", SqrtBox["\[Pi]"]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", SuperscriptBox[ RowBox[{"BesselK", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], "2"]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0200.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}], ",", RowBox[{"b", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["4", RowBox[{"a", "-", "b"}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "b"], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0201.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}], ",", RowBox[{"b", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"ExpIntegralE", "[", RowBox[{ RowBox[{ RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0202.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}], ",", RowBox[{"a", "+", FractionBox["3", "4"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "4"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", "\[Pi]", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"Erf", "[", FractionBox[ SqrtBox["2"], SuperscriptBox["z", RowBox[{"1", "/", "4"}]]], "]"}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0203.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,3,3,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "3"]}], ")"}]}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}]}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "3"]}], ")"}]}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], "]"}]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "2"]}], "+", SubscriptBox["a", "3"]}], ")"}]}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "2"]}], "]"}]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "3"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["a", "2"], "-", SubscriptBox["a", "3"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["a", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0204.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,3,3,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", "2"], RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "3"]}], ")"}]}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "3"]}], "]"}]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "3"]}], ")"}]}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "3"]}], "]"}]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "2"]}], "+", SubscriptBox["a", "3"]}], ")"}]}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "3"]}], "]"}]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "3"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["a", "2"], "-", SubscriptBox["a", "3"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}]}], ")"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["a", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0205.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", "d"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "e", ",", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b", "+", "c", "+", "d"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], RowBox[{"Gamma", "[", RowBox[{"1", "-", "e"}], "]"}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}], RowBox[{"-", "e"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a", "+", "c"}]], " ", RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"c", "-", "e"}], ",", RowBox[{"a", "-", "e"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "a", "+", "b", "-", "c"}], ",", RowBox[{ RowBox[{"-", "b"}], "+", "d"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", "-", "e"}], "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"1", "-", "z"}], ",", RowBox[{"1", "-", FractionBox["1", "z"]}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0206.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{"a", "-", "1"}]], "2"], " ", SuperscriptBox[ RowBox[{"Log", "[", FractionBox["1", "z"], "]"}], "2"], " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0207.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,3,4,0}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}], ",", RowBox[{"{", SubscriptBox["a", "4"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "4"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "4"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "3"]}]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "2"]}], "+", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["a", "2"], "-", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["a", "4"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["a", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0208.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", "\[Pi]"}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}], ",", FractionBox[ RowBox[{"2", " ", SqrtBox["2"]}], SuperscriptBox["z", RowBox[{"1", "/", "4"}]]]}], "]"}]}], "+", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", FractionBox[ RowBox[{"2", " ", SqrtBox["2"]}], SuperscriptBox["z", RowBox[{"1", "/", "4"}]]]}], "]"}]}], ")"}], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}], ",", FractionBox[ RowBox[{"2", " ", SqrtBox["2"]}], SuperscriptBox["z", RowBox[{"1", "/", "4"}]]]}], "]"}]}]}], " ", "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0209.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c", "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}], " ", "\[Pi]"}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}], ",", FractionBox[ RowBox[{"2", " ", SqrtBox["2"]}], SuperscriptBox["z", RowBox[{"1", "/", "4"}]]]}], "]"}], "+", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", FractionBox[ RowBox[{"2", " ", SqrtBox["2"]}], SuperscriptBox["z", RowBox[{"1", "/", "4"}]]]}], "]"}]}], ")"}], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}], ",", FractionBox[ RowBox[{"2", " ", SqrtBox["2"]}], SuperscriptBox["z", RowBox[{"1", "/", "4"}]]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0210.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,3,4,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}], ",", RowBox[{"{", SubscriptBox["a", "4"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " "}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "4"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "3"]}], ")"}]}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], "]"}]}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "4"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "3"]}]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "2"]}], "+", SubscriptBox["a", "3"]}], ")"}]}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "2"]}], "]"}]}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["a", "2"], "-", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["a", "4"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["a", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0211.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "c"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ SqrtBox["\[Pi]"], "2"]}], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "b"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], "+", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0212.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "b"}]], " "}], SqrtBox["2"]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"Cos", "[", FractionBox["1", SqrtBox["z"]], "]"}]}], "-", RowBox[{ RowBox[{"BesselY", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"Sin", "[", FractionBox["1", SqrtBox["z"]], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0213.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "b"}]], SqrtBox["2"]]}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselY", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"Cos", "[", FractionBox["1", SqrtBox["z"]], "]"}]}], "+", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"Sin", "[", FractionBox["1", SqrtBox["z"]], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0214.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"b", "+", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], "2"]}], "+", SuperscriptBox[ RowBox[{"BesselY", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], "2"]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0215.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"b", "+", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], "+", RowBox[{ RowBox[{"BesselY", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0216.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,3,5,1}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "4"], ",", SubscriptBox["a", "5"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", SubscriptBox["b", "1"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "3"]}], ")"}]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "4"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "5"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " "}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "4"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "5"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "3"]}]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "2"]}], "+", SubscriptBox["a", "3"]}], ")"}]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "1"]}], "]"}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["a", "2"], "-", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["a", "4"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["a", "5"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["a", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0217.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "-", FractionBox[ RowBox[{"n", "+", "1"}], "2"]}], ",", RowBox[{"a", "-", FractionBox["n", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", FractionBox["n", "4"]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "\[Pi]"], " ", RowBox[{"BesselK", "[", RowBox[{"n", ",", FractionBox["4", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]]}], "]"}]}], "-", RowBox[{"BesselY", "[", RowBox[{"n", ",", FractionBox["4", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]]}], "]"}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"n", "\[Element]", "Integers"}], "\[And]", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0218.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "-", FractionBox["n", "2"]}], ",", RowBox[{ FractionBox[ RowBox[{"1", "-", "n"}], "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "a"}], ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"a", "-", FractionBox[ RowBox[{"n", "+", "1"}], "4"]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "\[Pi]"], RowBox[{"BesselK", "[", RowBox[{"n", ",", FractionBox["4", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]]}], "]"}]}], "+", RowBox[{"BesselY", "[", RowBox[{"n", ",", FractionBox["4", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]]}], "]"}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"n", "\[Element]", "Integers"}], "\[And]", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0219.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,3,6,2} ", "Program"] }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "4"], ",", SubscriptBox["a", "5"], ",", SubscriptBox["a", "6"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "3"]}], ")"}]}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}]}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "4"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "5"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "6"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "3"]}], ")"}]}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], "]"}]}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "4"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "5"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "6"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "2"]}], "+", SubscriptBox["a", "3"]}], ")"}]}], "]"}]}], RowBox[{" ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "2"]}], "]"}]}]}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "3"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["a", "2"], "-", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["a", "4"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["a", "5"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["a", "6"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["a", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0220.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["3", "4"], "+", "b"}], ",", RowBox[{ FractionBox["1", "4"], "+", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}], ",", RowBox[{ FractionBox["3", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "b"}]], " "}], SqrtBox["\[Pi]"]]}], RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox[ RowBox[{"2", " ", SqrtBox["2"]}], SuperscriptBox["z", RowBox[{"1", "/", "4"}]]]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox[ RowBox[{"2", " ", SqrtBox["2"]}], SuperscriptBox["z", RowBox[{"1", "/", "4"}]]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0221.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,4,4,0}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}], ",", "c", ",", RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"8", " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}], ",", FractionBox[ RowBox[{"2", " ", SqrtBox["2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "4"}]]]}], "]"}], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}], ",", FractionBox[ RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "4"}]]}], SqrtBox["z"]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0222.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,4,4,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{"c", "+", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "c"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "c"}], "-", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{"2", "-", RowBox[{"2", "a"}], "+", RowBox[{"2", " ", "c"}]}]], SqrtBox["\[Pi]"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["2", SqrtBox["z"]]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"2", "-", RowBox[{"2", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}], " ", RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{"1", "-", "a", "-", "b", "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"2", "-", RowBox[{"2", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0223.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "c", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " "}], SqrtBox["\[Pi]"]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0224.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", FractionBox[ RowBox[{"a", "+", "c", "-", "1"}], "2"], ",", FractionBox[ RowBox[{"a", "+", "c"}], "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"a", "-", "b", "+", "c", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{"1", "+", "a", "-", "c"}]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["2", SqrtBox["z"]]}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "c"}]], " ", RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{"a", "-", "b"}], ",", RowBox[{"1", "+", "a", "-", "c"}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}], " ", RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{"1", "+", "b", "-", "c"}], ",", RowBox[{"1", "+", "a", "-", "c"}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0225.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,4,5,1}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "+", FractionBox["1", "2"]}], ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", "4"}], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox[ RowBox[{"2", " ", SqrtBox["2"]}], SuperscriptBox["z", RowBox[{"1", "/", "4"}]]]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox[ RowBox[{"2", " ", SqrtBox["2"]}], SuperscriptBox["z", RowBox[{"1", "/", "4"}]]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0226.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={0,4,5,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a"}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "c"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "-", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "b"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], "+", RowBox[{ RowBox[{"BesselY", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0227.01"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cases with ", StyleBox["m\[Equal]1 ", "Program"] }], "Subsubsection"], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,0,0,1}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", "z"}]], " ", SuperscriptBox["z", "b"]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0228.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,0,0,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", SubscriptBox["b", "2"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"Hypergeometric0F1Regularized", "[", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"-", "z"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0229.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", SubscriptBox["b", "2"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ")"}]}]], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0230.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], SqrtBox["\[Pi]"]], RowBox[{"Sin", "[", RowBox[{"2", " ", SqrtBox["z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0231.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", "b"], SqrtBox["\[Pi]"]], RowBox[{"Cos", "[", RowBox[{"2", " ", SqrtBox["z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0232.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "-", FractionBox["1", "3"], "-", "n"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], FractionBox[ SuperscriptBox["3", RowBox[{"1", "/", "6"}]], "2"], SuperscriptBox["z", "b"], RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"{", RowBox[{"z", ",", "n"}], "}"}]], RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "/", "3"}]], RowBox[{"(", RowBox[{ RowBox[{"AiryBi", "[", RowBox[{ SuperscriptBox["3", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]]}], "]"}], "-", RowBox[{ SqrtBox["3"], " ", RowBox[{"AiryAi", "[", RowBox[{ SuperscriptBox["3", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]]}], "]"}]}]}], ")"}]}], ")"}]}]}]}], "/;", RowBox[{ RowBox[{"n", "\[Element]", "Integers"}], "\[And]", RowBox[{"n", "\[GreaterEqual]", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0233.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "-", FractionBox["1", "3"], "+", "n"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["3", RowBox[{"1", "/", "6"}]], " ", SuperscriptBox["z", RowBox[{"n", "+", "b"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"-", FractionBox["1", "3"]}]], RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"{", RowBox[{"z", ",", "n"}], "}"}]], RowBox[{"(", RowBox[{ RowBox[{"AiryBi", "[", RowBox[{ SuperscriptBox["3", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]]}], "]"}], "-", RowBox[{ SqrtBox["3"], " ", RowBox[{"AiryAi", "[", RowBox[{ SuperscriptBox["3", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]]}], "]"}]}]}], ")"}]}]}]}], "/;", RowBox[{ RowBox[{"n", "\[Element]", "Integers"}], "\[And]", RowBox[{"n", "\[GreaterEqual]", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0234.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "+", FractionBox["1", "3"], "-", "n"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], FractionBox[ SuperscriptBox["3", RowBox[{"1", "/", "6"}]], "2"], SuperscriptBox["z", "b"], RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"{", RowBox[{"z", ",", "n"}], "}"}]], RowBox[{"(", RowBox[{ RowBox[{"AiryBi", "[", RowBox[{ SuperscriptBox["3", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]]}], "]"}], "+", RowBox[{ SqrtBox["3"], " ", RowBox[{"AiryAi", "[", RowBox[{ SuperscriptBox["3", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]]}], "]"}]}]}], ")"}]}]}]}], "/;", RowBox[{ RowBox[{"n", "\[Element]", "Integers"}], "\[And]", RowBox[{"n", "\[GreaterEqual]", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0235.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "+", FractionBox["1", "3"], "+", "n"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["3", RowBox[{"1", "/", "6"}]], "2"], SuperscriptBox["z", RowBox[{"n", "+", "b"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]], RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"{", RowBox[{"z", ",", "n"}], "}"}]], RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "/", "3"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"AiryBi", "[", RowBox[{ SuperscriptBox["3", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]]}], "]"}], "+", RowBox[{ SqrtBox["3"], " ", RowBox[{"AiryAi", "[", RowBox[{ SuperscriptBox["3", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]]}], "]"}]}]}], ")"}]}], ")"}]}]}]}], "/;", RowBox[{ RowBox[{"n", "\[Element]", "Integers"}], "\[And]", RowBox[{"n", "\[GreaterEqual]", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0236.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "+", FractionBox["1", "2"], "-", "n"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox["\[ImaginaryI]", SqrtBox["\[Pi]"]]}], SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", "n", " ", "\[Pi]"}]], " ", SuperscriptBox["z", "b"], SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{ RowBox[{"-", "n"}], "/", "2"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{"Cos", "[", RowBox[{ FractionBox[ RowBox[{"n", " ", "\[Pi]"}], "2"], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], RowBox[{"Floor", "[", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", RowBox[{"Abs", "[", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "n"}], "]"}]}]}], ")"}]}], "]"}]], FractionBox[ RowBox[{ SuperscriptBox["16", RowBox[{"-", "k"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"-", "k"}]], " ", RowBox[{"Gamma", "[", RowBox[{ FractionBox["1", "2"], "+", RowBox[{"2", " ", "k"}], "+", RowBox[{"Abs", "[", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "n"}], "]"}]}], "]"}]}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", " ", "k"}], ")"}], "!"}], " ", RowBox[{"Gamma", "[", RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "k"}], "+", RowBox[{"Abs", "[", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "n"}], "]"}]}], "]"}]}]]}]}], "+", RowBox[{ FractionBox["1", SqrtBox[ RowBox[{"-", "z"}]]], RowBox[{"(", RowBox[{ RowBox[{"Sin", "[", RowBox[{ FractionBox[ RowBox[{"n", " ", "\[Pi]"}], "2"], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], RowBox[{"Floor", "[", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", RowBox[{"Abs", "[", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "n"}], "]"}]}]}], ")"}]}], "]"}]], FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "2"}], "-", RowBox[{"4", " ", "k"}]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"-", "k"}]], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "2"], "+", RowBox[{"2", " ", "k"}], "+", RowBox[{"Abs", "[", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "n"}], "]"}]}], ")"}], "!"}]}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "-", RowBox[{"2", " ", "k"}], "+", RowBox[{"Abs", "[", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "n"}], "]"}]}], ")"}], "!"}], " ", RowBox[{"Gamma", "[", RowBox[{"2", "+", RowBox[{"2", " ", "k"}]}], "]"}]}]]}]}], ")"}]}]}], ")"}]}]}], "/;", RowBox[{"n", "\[Element]", "Integers"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0237.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,0,0,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", SubscriptBox["b", "1"]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0238.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["2", "3"]}], ",", RowBox[{"a", "-", FractionBox["1", "3"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", "a"], FractionBox[ RowBox[{" ", "1"}], RowBox[{"2", " ", SqrtBox["3"], " ", "\[Pi]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"2", "/", "3"}]]}]], SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]]}], "2"]}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"9", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]]}], "2"]], "-", RowBox[{"2", " ", RowBox[{"Cos", "[", RowBox[{ FractionBox["\[Pi]", "3"], "-", RowBox[{ FractionBox["3", "2"], " ", SqrtBox["3"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]]}]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0239.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "3"]}], ",", RowBox[{"a", "+", FractionBox["1", "3"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", "a"], FractionBox["1", RowBox[{"2", " ", SqrtBox["3"], " ", "\[Pi]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]]}]], SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]]}], "2"]}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"9", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]]}], "2"]], "-", RowBox[{"2", " ", RowBox[{"Cos", "[", RowBox[{ FractionBox["\[Pi]", "3"], "+", RowBox[{ FractionBox[ RowBox[{"3", SqrtBox["3"]}], "2"], SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]]}]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0240.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", FractionBox["1", "3"]}], ",", RowBox[{"a", "+", FractionBox["2", "3"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"2", " ", SqrtBox["3"], " ", "\[Pi]"}]], SuperscriptBox["z", "a"], SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"3", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]]}], "2"]}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"9", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]]}], "2"]], "+", RowBox[{"2", " ", RowBox[{"Cos", "[", RowBox[{ FractionBox["3", "2"], " ", SqrtBox["3"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "3"}]]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0241.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,0,0,4}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"], ",", SubscriptBox["b", "4"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", SubscriptBox["b", "1"]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0242.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"c", "+", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "c"}], "-", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", SqrtBox["\[Pi]"]], SuperscriptBox["z", "c"], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"b", "-", "c"}], ")"}]}], ",", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"b", "-", "c"}], ")"}]}], ",", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0243.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"b", "-", FractionBox["1", "2"]}], ",", RowBox[{"b", "-", FractionBox["1", "4"]}], ",", RowBox[{"b", "+", FractionBox["1", "4"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"Sin", "[", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}], "]"}], " ", RowBox[{"Sinh", "[", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}], "]"}]}], RowBox[{ SqrtBox["2"], " ", SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]]}]]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0244.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"b", "+", FractionBox["1", "4"]}], ",", RowBox[{"b", "+", FractionBox["1", "2"]}], ",", RowBox[{"b", "+", FractionBox["3", "4"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{ SuperscriptBox["z", "b"], " ", RowBox[{"Cos", "[", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}], "]"}], " ", RowBox[{"Cosh", "[", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}], "]"}]}], RowBox[{ SqrtBox["2"], " ", SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]]}]]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0245.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,0,1,1}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", "b"], RowBox[{"Gamma", "[", RowBox[{"a", "-", "b"}], "]"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{"a", "-", "b", "-", "1"}]], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0246.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "x"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["x", "b"], RowBox[{"Gamma", "[", RowBox[{"a", "-", "b"}], "]"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}], RowBox[{"a", "-", "b", "-", "1"}]], RowBox[{"UnitStep", "[", RowBox[{"1", "-", "x"}], "]"}]}]}], "/;", RowBox[{"x", ">", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0247.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", "1"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0248.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", "1"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "x"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["x", RowBox[{"a", "-", "1"}]], RowBox[{"UnitStep", "[", RowBox[{"1", "-", "x"}], "]"}]}]}], "/;", RowBox[{"x", ">", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0249.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,0,1,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", SubscriptBox["a", "1"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", SubscriptBox["b", "2"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}]], RowBox[{"Hypergeometric1F1Regularized", "[", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", "z"}], "]"}]}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0250.01"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"Gamma", "[", RowBox[{"a", "-", "c"}], "]"}]], SuperscriptBox["z", "b"], RowBox[{"LaguerreL", "[", RowBox[{ RowBox[{"a", "-", "b", "-", "1"}], ",", RowBox[{"b", "-", "c"}], ",", "z"}], "]"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0251.01"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"Gamma", "[", RowBox[{"a", "-", "b"}], "]"}]], SuperscriptBox["z", "b"], RowBox[{"LaguerreL", "[", RowBox[{ RowBox[{"a", "-", "b", "-", "1"}], ",", "z"}], "]"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0252.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}], " ", "\[Pi]"}], "]"}], "\[Pi]"]}], SuperscriptBox["z", "b"], SuperscriptBox["\[ExponentialE]", "z"]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0253.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,0,1,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", SubscriptBox["a", "1"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0254.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}]}], SqrtBox["\[Pi]"]], SuperscriptBox[ RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], "2"]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1082.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], RowBox[{"\[Pi]", " ", RowBox[{"Gamma", "[", RowBox[{ FractionBox["1", "2"], "+", "a", "-", "b"}], "]"}]}]], RowBox[{"Hypergeometric0F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "a", "-", "b"}], ",", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0255.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], "\[Pi]"], RowBox[{"Hypergeometric0F1Regularized", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "a", "-", "b"}], ",", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0256.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "\[Pi]"], SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "+", "b", "-", FractionBox["1", "2"]}], ")"}]}]], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0257.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["3", "4"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", FractionBox["1", "4"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[ImaginaryI]"}], "\[Pi]"], SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"FresnelC", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "\[ImaginaryI]"}], ")"}], " ", SqrtBox[ FractionBox["2", "\[Pi]"]], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0258.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["3", "4"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", FractionBox["1", "4"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"2", "\[Pi]"}]], RowBox[{"(", RowBox[{ RowBox[{"Erf", "[", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}], "]"}], "+", RowBox[{"Erfi", "[", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0259.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["7", "6"]}], ",", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["7", "6"]}], "+", "a"}]], " "}], RowBox[{"2", " ", SuperscriptBox["3", RowBox[{"1", "/", "6"}]], " ", "\[Pi]"}]], RowBox[{"(", RowBox[{ RowBox[{ SqrtBox["3"], " ", RowBox[{"AiryAiPrime", "[", RowBox[{ SuperscriptBox["3", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox["z", RowBox[{"1", "/", "3"}]]}], "]"}]}], "+", RowBox[{"AiryBiPrime", "[", RowBox[{ SuperscriptBox["3", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox["z", RowBox[{"1", "/", "3"}]]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0260.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Sinh", "[", RowBox[{"2", " ", SqrtBox["z"]}], "]"}]}], SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]]]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0261.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["5", "6"]}], ",", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["5", "6"]}], "+", "a"}]], RowBox[{"2", " ", SuperscriptBox["3", RowBox[{"1", "/", "3"}]], " ", "\[Pi]"}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", RowBox[{"AiryAi", "[", RowBox[{ SuperscriptBox["3", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox["z", RowBox[{"1", "/", "3"}]]}], "]"}]}], "+", RowBox[{ SqrtBox["3"], " ", RowBox[{"AiryBi", "[", RowBox[{ SuperscriptBox["3", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox["z", RowBox[{"1", "/", "3"}]]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0262.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "6"]}], ",", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], RowBox[{"2", " ", SuperscriptBox["3", RowBox[{"1", "/", "3"}]], " ", "\[Pi]"}]], RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"AiryAi", "[", RowBox[{ SuperscriptBox["3", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox["z", RowBox[{"1", "/", "3"}]]}], "]"}]}], "+", RowBox[{ SqrtBox["3"], " ", RowBox[{"AiryBi", "[", RowBox[{ SuperscriptBox["3", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox["z", RowBox[{"1", "/", "3"}]]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0263.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"Cosh", "[", RowBox[{"2", " ", SqrtBox["z"]}], "]"}]}], SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]]]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0264.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "6"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], RowBox[{"2", " ", SuperscriptBox["3", RowBox[{"1", "/", "6"}]], " ", "\[Pi]"}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SqrtBox["3"]}], " ", RowBox[{"AiryAiPrime", "[", RowBox[{ SuperscriptBox["3", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox["z", RowBox[{"1", "/", "3"}]]}], "]"}]}], "+", RowBox[{"AiryBiPrime", "[", RowBox[{ SuperscriptBox["3", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox["z", RowBox[{"1", "/", "3"}]]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0265.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "4"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", FractionBox["3", "4"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"1", "+", "\[ImaginaryI]"}], "\[Pi]"]}], SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"FresnelS", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "\[ImaginaryI]"}], ")"}], " ", SqrtBox[ FractionBox["2", "\[Pi]"]], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0266.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "4"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", FractionBox["3", "4"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"2", "\[Pi]"}]], RowBox[{"(", RowBox[{ RowBox[{"Erfi", "[", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}], "]"}], "-", RowBox[{"Erf", "[", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0267.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,0,2,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", SubscriptBox["b", "2"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{" ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}]}]}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}], " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0268.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,0,2,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}]}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0269.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,0,3,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "1"]}], "]"}]}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", "z"}], "]"}], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0270.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,1,1,1}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{"a", "-", "b", "-", "1"}]]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0271.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,1,1,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", SubscriptBox["b", "2"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], SuperscriptBox["z", SubscriptBox["b", "1"]], " ", RowBox[{"Hypergeometric1F1Regularized", "[", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"-", "z"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0272.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", "z"}]], " ", SuperscriptBox["z", "b"], " ", RowBox[{"Gamma", "[", RowBox[{"c", "-", "a", "+", "1"}], "]"}], " ", RowBox[{"LaguerreL", "[", RowBox[{ RowBox[{"c", "-", "a"}], ",", RowBox[{"b", "-", "c"}], ",", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0273.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "+", "n"}], "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], RowBox[{"Gamma", "[", RowBox[{"a", "-", "b", "+", "n"}], "]"}]], " ", SuperscriptBox["z", RowBox[{"a", "+", "n"}]], " ", RowBox[{"D", "[", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", "z"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{ RowBox[{"-", "a"}], "+", "b"}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"a", "-", "b", "+", "n"}], ",", "0", ",", RowBox[{"-", "z"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"z", ",", "n"}], "}"}]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"n", "\[Element]", "Integers"}], "\[And]", RowBox[{"n", "\[GreaterEqual]", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0274.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", "0", ",", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0275.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"GammaRegularized", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", "0", ",", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0276.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["z", "b"]}], " ", RowBox[{"ExpIntegralE", "[", RowBox[{ RowBox[{"a", "-", "b"}], ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0277.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], SuperscriptBox["\[ExponentialE]", RowBox[{"-", "z"}]], SuperscriptBox["z", "b"], " ", RowBox[{"LaguerreL", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0278.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "z"}], "/", "2"}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["z", "2"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0279.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", "z"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{ RowBox[{"-", "a"}], "+", "b"}]], " ", SuperscriptBox["z", "a"], " ", RowBox[{"GammaRegularized", "[", RowBox[{ RowBox[{"a", "-", "b"}], ",", "0", ",", RowBox[{"-", "z"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0280.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"a", "-", "b"}]], SuperscriptBox["z", "b"], RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", "z"}]], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], RowBox[{"a", "-", "b", "-", "1"}]], FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], "k"], RowBox[{"k", "!"}]]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"a", "-", "b"}], "\[Element]", "Integers"}], "\[And]", RowBox[{ RowBox[{"a", "-", "b"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0281.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Erf", "[", SqrtBox["z"], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0282.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", "z"}]], "-", "1"}], ")"}]}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0283.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", "z"}], "]"}], SuperscriptBox["z", RowBox[{"a", "-", FractionBox["1", "2"]}]], RowBox[{"Erfi", "[", RowBox[{"Sqrt", "[", "z", "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0284.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,1,1,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], SuperscriptBox["z", SubscriptBox["b", "1"]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0285.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"a", "+", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", FractionBox[ RowBox[{"b", "+", "c"}], "2"]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ")"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}]}], "-", RowBox[{ SqrtBox["z"], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"1", "+", "b", "-", "c"}], ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0286.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["3", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "2"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]]}], RowBox[{"1", "-", "a", "+", "b"}]], RowBox[{"(", RowBox[{ RowBox[{ SqrtBox["z"], " ", SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], "2"]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ")"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}], "+", RowBox[{ SqrtBox["z"], " ", SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], "2"]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0287.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["3", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], "2"], "-", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0288.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "2"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "-", "a", "+", "b"}], ")"}]}]], RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], "2"]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0289.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], "2"]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0290.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "a"], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0291.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "2"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ")"}]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], "2"]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0292.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ")"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}], "+", RowBox[{"2", " ", SqrtBox["z"], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0293.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], "+", "a"}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], "2"], "-", SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], "2"]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0294.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "+", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", SqrtBox["\[Pi]"]}], " ", SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], "+", "a"}]], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}], "+", RowBox[{ SqrtBox["z"], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0295.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "3"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "a"}]], " "}], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "a", "-", "b"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ")"}]}]]}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ")"}], " ", SqrtBox["z"], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}]}], "-", RowBox[{"2", " ", "z", " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}]}]}], ")"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"2", " ", SuperscriptBox["a", "2"]}], "+", RowBox[{"5", " ", "b"}], "+", RowBox[{"2", " ", SuperscriptBox["b", "2"]}], "-", RowBox[{"a", " ", RowBox[{"(", RowBox[{"5", "+", RowBox[{"4", " ", "b"}]}], ")"}]}], "+", "z"}], ")"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ")"}], " ", SqrtBox["z"], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}]}]}], ")"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0296.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "2"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ")"}]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}]}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}], "+", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0297.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0298.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "a"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}], "-", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0299.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "+", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "4"], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}], "+", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0300.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ")"}]}]], " ", RowBox[{"StruveH", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0301.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}], "+", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0302.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "+", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox["z"], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}], "-", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}], "+", RowBox[{ SqrtBox["z"], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}]}], ")"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0303.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "+", "2"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "4"], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{"1", "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox["z"], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}], "+", RowBox[{ SqrtBox["z"], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}], "+", RowBox[{ SqrtBox["z"], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}]}], ")"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0304.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "+", FractionBox["3", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "+", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ SqrtBox["z"], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}], "+", RowBox[{ SqrtBox["z"], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["a", "2"]}], "+", "b", "-", RowBox[{"2", " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", "b"}]}], ")"}]}], "+", "z"}], ")"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ")"}], " ", SqrtBox["z"], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}]}], ")"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0305.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]]}], SqrtBox["\[Pi]"]], RowBox[{"SinIntegral", "[", RowBox[{"2", " ", SqrtBox["z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0306.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["3", "4"]}], ",", RowBox[{"a", "-", FractionBox["1", "4"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox[ FractionBox["2", "\[Pi]"]], SuperscriptBox["z", RowBox[{"a", "-", FractionBox["3", "4"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}]}], RowBox[{"FresnelS", "[", RowBox[{ RowBox[{"2", "/", SqrtBox["\[Pi]"]}], RowBox[{"z", "^", RowBox[{"(", RowBox[{"1", "/", "4"}], ")"}]}]}], "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}], RowBox[{"FresnelC", "[", RowBox[{ RowBox[{"2", "/", SqrtBox["\[Pi]"]}], RowBox[{"z", "^", RowBox[{"(", RowBox[{"1", "/", "4"}], ")"}]}]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0307.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "4"]}], ",", RowBox[{"a", "+", FractionBox["1", "4"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox[ FractionBox["2", "\[Pi]"]], SuperscriptBox["z", RowBox[{"a", "-", FractionBox["1", "4"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}], RowBox[{"FresnelS", "[", RowBox[{ RowBox[{"2", "/", SqrtBox["\[Pi]"]}], RowBox[{"z", "^", RowBox[{"(", RowBox[{"1", "/", "4"}], ")"}]}]}], "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}], RowBox[{"FresnelC", "[", RowBox[{ RowBox[{"2", "/", SqrtBox["\[Pi]"]}], RowBox[{"z", "^", RowBox[{"(", RowBox[{"1", "/", "4"}], ")"}]}]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0308.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["3", "4"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", FractionBox["1", "4"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"FresnelC", "[", RowBox[{ RowBox[{"2", "/", SqrtBox["\[Pi]"]}], RowBox[{"z", "^", RowBox[{"(", RowBox[{"1", "/", "4"}], ")"}]}]}], "]"}]}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1083.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "4"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", FractionBox["3", "4"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"FresnelS", "[", RowBox[{ RowBox[{"2", "/", SqrtBox["\[Pi]"]}], RowBox[{"z", "^", RowBox[{"(", RowBox[{"1", "/", "4"}], ")"}]}]}], "]"}]}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1084.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,1,2,1}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", SubscriptBox["a", "2"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], " ", RowBox[{"Hypergeometric1F1Regularized", "[", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0309.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "c", "+", "b"}], "]"}], SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["1", "z"]}]], SuperscriptBox["z", RowBox[{"a", "-", "1"}]], " ", RowBox[{"LaguerreL", "[", RowBox[{ RowBox[{ RowBox[{"-", "c"}], "+", "b"}], ",", RowBox[{"c", "-", "a"}], ",", FractionBox["1", "z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0310.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "1"}], "/", "z"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", FractionBox["1", "z"]}], ")"}], RowBox[{"a", "-", "c"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"GammaRegularized", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", "0", ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0311.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"c", "-", "a"}]], SuperscriptBox["z", "a"], RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["1", "z"]}]], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], RowBox[{"c", "-", "a", "-", "1"}]], FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"], SuperscriptBox["z", RowBox[{"-", "k"}]]}], RowBox[{"k", "!"}]]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"c", "-", "a"}], "\[Element]", "Integers"}], "\[And]", RowBox[{ RowBox[{"c", "-", "a"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0312.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"b", "+", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", "b"], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"b", "-", "a", "+", "1"}], ",", "0", ",", FractionBox["1", "z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0313.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"b", "+", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"b", "-", "a", "+", "1"}], "]"}], SuperscriptBox["z", "b"], " ", RowBox[{"GammaRegularized", "[", RowBox[{ RowBox[{"b", "-", "a", "+", "1"}], ",", "0", ",", FractionBox["1", "z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0314.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"b", "+", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ SuperscriptBox["z", "b"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}]}], "-", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"ExpIntegralE", "[", RowBox[{ RowBox[{"a", "-", "b"}], ",", FractionBox["1", "z"]}], "]"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0315.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["1", RowBox[{"2", " ", "z"}]]}]], RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", RowBox[{"2", " ", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0316.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["1", "z"]}]], SuperscriptBox["z", RowBox[{"a", "-", "1"}]], " ", RowBox[{"LaguerreL", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", FractionBox["1", "z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0317.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"Erf", "[", FractionBox["1", SqrtBox["z"]], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0318.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "1"}], "/", "z"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"Erfi", "[", FractionBox["1", SqrtBox["z"]], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0319.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", SuperscriptBox["z", "a"]}], RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["1", "z"]}]], "-", "1"}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0320.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,1,2,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", SubscriptBox["a", "2"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", SubscriptBox["b", "2"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}]], SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], "}"}], ",", "z"}], "]"}], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], "+", RowBox[{ FractionBox["1", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], "}"}], ",", FractionBox["1", "z"]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0321.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "\[Pi]"], RowBox[{"(", RowBox[{ SuperscriptBox["z", "b"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}]], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}]], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}], ")"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0322.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", "b", "-", "c"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ FractionBox[ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], "]"}]}]], " ", SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}]], RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", "a", "+", "b"}], ")"}]}], ",", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ")"}]}]}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", FractionBox[ RowBox[{"4", " ", "z"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], "2"]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0323.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", "b", "-", "c"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], " ", RowBox[{"Sign", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], ")"}], RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "b"}], "+", RowBox[{"2", " ", "c"}]}]]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], "]"}]}]], " ", SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{"a", "+", "b", "-", RowBox[{"2", " ", "c"}]}]], RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "-", "b"}], ")"}]}], "+", "c"}], ",", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", "a", "-", "b"}], ")"}]}], "+", "c"}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", FractionBox[ RowBox[{"4", " ", "z"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], "2"]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0324.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", "b", "-", "c"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], " ", RowBox[{"Sign", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], ")"}], RowBox[{"a", "-", "b", "-", "2"}]]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], "]"}]}]], " ", SuperscriptBox["z", "b"], " ", RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ")"}]}]}], ",", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", "a", "-", "b"}], ")"}]}], "+", "c"}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox[ RowBox[{"4", " ", "z"}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}], "2"]]}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0325.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", "b", "-", "c"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], " ", RowBox[{"Sign", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}]]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], "]"}]}]], SuperscriptBox["z", "b"], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", "a", "+", "b"}], ")"}]}], ",", RowBox[{"c", "-", FractionBox[ RowBox[{"a", "+", "b"}], "2"]}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox[ RowBox[{"4", " ", "z"}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}], "2"]]}]}], "]"}]}]}], " ", "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0326.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", "b", "-", "c"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ FractionBox[ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], "]"}]}]], " ", SuperscriptBox["z", "b"], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SqrtBox["z"]}], ")"}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ")"}]}]], RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "c"}], ",", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", FractionBox[ RowBox[{"4", " ", SqrtBox["z"]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SqrtBox["z"]}], ")"}], "2"]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0327.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", "b", "-", "c"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " "}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], "]"}]}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SqrtBox["z"]}], ")"}], " ", RowBox[{"Sign", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], ")"}], RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", RowBox[{"a", "+", "b", "-", RowBox[{"2", " ", "c"}]}], ")"}]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], " ", RowBox[{"Sign", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}]], SuperscriptBox["z", "b"], RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ RowBox[{"2", "c"}], "-", "a", "-", "b"}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "c"}], ",", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", FractionBox[ RowBox[{"4", " ", SqrtBox["z"]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SqrtBox["z"]}], ")"}], "2"]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0328.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", "b", "-", "c"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SqrtBox["z"]}], ")"}], " ", RowBox[{"Sign", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], ")"}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ")"}]}]]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], "]"}]}]], " ", SuperscriptBox["z", "b"], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "c"}], ",", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"-", FractionBox[ RowBox[{"4", " ", SqrtBox["z"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["z"]}], ")"}], "2"]]}]}], "]"}]}]}], " ", "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0329.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", "b", "-", "c"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], " ", RowBox[{"Sign", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}]]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], "]"}]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SqrtBox["z"]}], ")"}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"2", "c"}], "-", "a", "-", "b"}], ")"}]}]], SuperscriptBox["z", "b"], RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "c"}], ",", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"-", FractionBox[ RowBox[{"4", " ", SqrtBox["z"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["z"]}], ")"}], "2"]]}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0330.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", "b", "-", "c"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], " ", RowBox[{"Sign", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], ")"}], RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", "c"}]]}], RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], "]"}]], SuperscriptBox["z", RowBox[{"b", "+", FractionBox[ RowBox[{"a", "-", "c"}], "2"]}]], RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", "c"}], ",", RowBox[{"a", "-", "c"}], ",", "3", ",", FractionBox[ RowBox[{"1", "+", "z"}], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], " ", RowBox[{"Sign", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0331.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", "b", "-", "c"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "b", "+", "c"}], ")"}], " ", "\[Pi]"}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], " ", RowBox[{"Sign", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], ")"}], RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "b", "+", "c"}]]}], RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], "]"}]}]], SuperscriptBox["z", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}], ")"}]}], "+", "b"}]], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ FractionBox["1", "2"], "+", "b", "-", "c"}], ",", "3", ",", FractionBox[ RowBox[{"1", "+", "z"}], RowBox[{"2", " ", SqrtBox["z"]}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0332.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", FractionBox[ RowBox[{"a", "+", "b"}], "2"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", FractionBox[ RowBox[{"a", "+", "b"}], "2"], "}"}]}], "}"}], ",", "x"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], "\[Pi]"], RowBox[{"Sin", "[", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "2"], "]"}], SuperscriptBox["x", "b"], SuperscriptBox[ RowBox[{"Abs", "[", RowBox[{"1", "-", "x"}], "]"}], RowBox[{"a", "-", "b", "-", "1"}]]}]}], "/;", RowBox[{"x", ">", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0333.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", FractionBox[ RowBox[{"a", "+", "b"}], "2"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", FractionBox[ RowBox[{"a", "+", "b"}], "2"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], "\[Pi]"], RowBox[{"Sin", "[", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "2"], "]"}], SuperscriptBox["z", "b"], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{"Sign", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], ")"}], RowBox[{"a", "-", "b", "-", "1"}]]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0334.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", FractionBox[ RowBox[{"a", "+", "b", "+", "1"}], "2"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", FractionBox[ RowBox[{"a", "+", "b", "+", "1"}], "2"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "\[Pi]"], RowBox[{"Cos", "[", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "2"], "]"}], RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Sign", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], " ", SuperscriptBox["z", "b"], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], " ", RowBox[{"Sign", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], ")"}], RowBox[{"a", "-", "b", "-", "1"}]]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0335.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{ SuperscriptBox["z", "a"], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}]}], RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}]}]]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0336.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}]], " ", SqrtBox["\[Pi]"], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], " ", RowBox[{"Sign", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], ")"}], RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}]]}], RowBox[{ SqrtBox[ RowBox[{"1", "+", "z"}]], " ", RowBox[{"Gamma", "[", RowBox[{"a", "-", "b"}], "]"}]}]], SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "+", "b", "-", FractionBox["1", "2"]}], ")"}]}]], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", "2", ",", FractionBox[ RowBox[{"1", "-", RowBox[{"6", " ", "z"}], "+", SuperscriptBox["z", "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], "2"]]}], "]"}]}]}], " ", "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0337.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["z", "b"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], " ", RowBox[{"Sign", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], ")"}], RowBox[{"a", "-", "b", "-", "1"}]]}], RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], "]"}]}]], " ", RowBox[{"Cosh", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "a", "+", "b"}], ")"}], " ", RowBox[{"ArcTanh", "[", FractionBox[ RowBox[{"2", " ", SqrtBox["z"]}], RowBox[{"1", "+", "z"}]], "]"}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0338.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"2", " ", "a"}], "-", RowBox[{"2", "b"}], "-", "3"}]], RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ RowBox[{"2", " ", "a"}], "-", RowBox[{"2", "b"}], "-", "1"}], "]"}]], SuperscriptBox["z", "b"], RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SqrtBox["z"]}], ")"}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", " ", "b", "-", "1"}], ")"}]}]], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SqrtBox["z"]}], ")"}], " ", RowBox[{"Sign", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], ")"}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", " ", "b", "-", "1"}], ")"}]}]]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0339.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], "]"}], RowBox[{ SqrtBox["\[Pi]"], RowBox[{"Gamma", "[", RowBox[{"a", "-", "b", "+", FractionBox["1", "2"]}], "]"}]}]], SuperscriptBox["z", RowBox[{"b", "-", FractionBox["1", "2"]}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"Sign", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}], ")"}], RowBox[{"a", "-", "b"}]], " ", RowBox[{"Sinh", "[", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}], RowBox[{"ArcTanh", "[", FractionBox[ RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], RowBox[{"(", RowBox[{"z", "+", "1"}], ")"}]], "]"}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0340.01"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SqrtBox["z"], "+", "1"}], ")"}]}]], " ", SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]], RowBox[{"EllipticK", "[", FractionBox[ RowBox[{"4", " ", SqrtBox["z"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ SqrtBox["z"], "+", "1"}], ")"}], "2"]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0341.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", RowBox[{"Sign", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{"\[Pi]", RowBox[{"(", RowBox[{"1", "-", SqrtBox["z"]}], ")"}]}]], " ", SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]], RowBox[{"EllipticK", "[", RowBox[{"-", FractionBox[ RowBox[{"4", " ", SqrtBox["z"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["z"]}], ")"}], "2"]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0342.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "\[Pi]"], SuperscriptBox["z", RowBox[{"a", "-", FractionBox["1", "2"]}]], RowBox[{"Log", "[", FractionBox[ RowBox[{"1", "+", SqrtBox["z"]}], RowBox[{ RowBox[{"Sign", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], RowBox[{"(", RowBox[{"1", "-", SqrtBox["z"]}], ")"}]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0343.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,1,2,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", SubscriptBox["a", "2"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}]], SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0344.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "]"}], "\[Pi]"], SuperscriptBox["\[ExponentialE]", "z"], " ", SuperscriptBox["z", "c"], " ", RowBox[{"GammaRegularized", "[", RowBox[{ RowBox[{"a", "-", "c"}], ",", "0", ",", "z"}], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0345.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"a", "-", "n"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}], " ", "\[Pi]"}], "]"}], "\[Pi]"], RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", "z"], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], RowBox[{"n", "-", "1"}]], FractionBox[ SuperscriptBox["z", "k"], RowBox[{"k", "!"}]]}]}], ")"}], " ", SuperscriptBox["z", RowBox[{"a", "-", "n"}]]}]}], "/;", RowBox[{ RowBox[{"n", "\[Element]", "Integers"}], "\[And]", RowBox[{"n", "\[GreaterEqual]", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0346.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"a", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}], " ", "\[Pi]"}], "]"}]}], "\[Pi]"], RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", "z"], "-", "1"}], ")"}], " ", SuperscriptBox["z", RowBox[{"a", "-", "1"}]]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0347.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}], " ", "\[Pi]"}], "]"}], SqrtBox["\[Pi]"]]}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"z", "/", "2"}]], RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["z", "2"]}], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0348.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox["2", "\[Pi]"]}], SuperscriptBox["\[ExponentialE]", RowBox[{"z", "/", "2"}]], " ", SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"Sinh", "[", FractionBox["z", "2"], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1085.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,1,2,4}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", SubscriptBox["a", "2"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"], ",", SubscriptBox["b", "4"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}]], SuperscriptBox["z", SubscriptBox["b", "1"]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0349.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}], " ", "\[Pi]"}], "]"}], "\[Pi]"], SuperscriptBox["z", RowBox[{"b", "-", FractionBox["1", "2"]}]], RowBox[{"StruveL", "[", RowBox[{ RowBox[{ RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", SqrtBox["z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0350.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " "}], SqrtBox["\[Pi]"]], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SuperscriptBox[ RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], "2"]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0351.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "+", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SqrtBox["\[Pi]"]], SuperscriptBox["z", "a"], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0352.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "a", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], SqrtBox["\[Pi]"]], RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0353.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox["2", SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]]]}], SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"SinhIntegral", "[", RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0354.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,1,4,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"], ",", SubscriptBox["a", "4"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", SubscriptBox["b", "2"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " "}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "4"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0355.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"b", "-", FractionBox["1", "2"]}], ",", RowBox[{"b", "+", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}]}], SqrtBox["\[Pi]"]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "b"}]], RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0356.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}]}], SqrtBox["\[Pi]"]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", SuperscriptBox[ RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], "2"]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0357.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{"a", "+", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], "\[Pi]"], SuperscriptBox["z", RowBox[{"b", "-", FractionBox["1", "2"]}]], " ", RowBox[{"StruveL", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0358.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", "a"}], "-", "c"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], SqrtBox["\[Pi]"]], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{"a", "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0359.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", FractionBox["1", "2"]}], ",", RowBox[{"a", "+", FractionBox["1", "2"]}], ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " "}], SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]]]}], RowBox[{"SinhIntegral", "[", FractionBox["2", SqrtBox["z"]], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0360.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,1,3,1}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "2"], ",", SubscriptBox["a", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0361.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"b", "-", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "a", "+", "c"}], ")"}]}]]}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", SqrtBox["z"], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}]}], "+", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "c"}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0362.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ")"}]}]], " ", RowBox[{"StruveH", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0363.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c", "-", "2"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "4"], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "2"}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "+", "a", "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], "+", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"a", "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"2", "-", "a", "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0364.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c", "-", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], "-", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"a", "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0365.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c", "-", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "4"], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "2"}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}], ")"}], " ", SqrtBox["z"], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"1", "+", "a", "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], "-", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"a", "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}], ")"}], " ", SqrtBox["z"], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], ")"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0366.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"a", "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0367.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"1", "+", "a", "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], "+", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"a", "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}], ")"}], " ", SqrtBox["z"], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], ")"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0368.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c", "+", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}]], RowBox[{"(", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"1", "+", "a", "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], "+", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"a", "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], ")"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0369.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c", "+", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"1", "+", "a", "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], "+", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"a", "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0370.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c", "+", "2"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "-", "a", "+", "c"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ")"}]}]]}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"a", "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}], ")"}], " ", SqrtBox["z"], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"1", "+", "a", "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", SuperscriptBox["a", "2"]}], "+", RowBox[{"a", " ", RowBox[{"(", RowBox[{"3", "-", RowBox[{"4", " ", "c"}]}], ")"}]}], "-", RowBox[{"3", " ", "c"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "2"]}]}], ")"}], " ", "z"}]}], ")"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}], ")"}], " ", SqrtBox["z"], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], ")"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0371.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c", "+", "2"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "+", FractionBox["3", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "a"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", SqrtBox["z"]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "-", "a", "+", "c"}], ")"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"1", "+", "a", "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], "+", RowBox[{ FractionBox["1", SqrtBox["z"]], RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"2", "+", "a", "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], ")"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "-", "a", "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], "-", RowBox[{ FractionBox["1", RowBox[{"2", " ", "z"}]], RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ RowBox[{"(", RowBox[{"3", "+", RowBox[{"2", " ", SuperscriptBox["a", "2"]}], "+", RowBox[{"a", " ", RowBox[{"(", RowBox[{"5", "-", RowBox[{"4", " ", "c"}]}], ")"}]}], "-", RowBox[{"5", " ", "c"}], "+", RowBox[{"2", " ", SuperscriptBox["c", "2"]}]}], ")"}], " ", "z"}]}], ")"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"1", "+", "a", "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ")"}], " ", SqrtBox["z"], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"2", "+", "a", "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], ")"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0372.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"b", "-", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "-", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", SqrtBox["\[Pi]"]}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "2"}], "+", "b"}]], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", SqrtBox["z"], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], "+", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0373.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"b", "-", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "b"}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], "2"], "-", SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], "2"]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0374.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"b", "-", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SqrtBox["\[Pi]"], "2"], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "b"}]], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ")"}], " ", SqrtBox["z"], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], "-", RowBox[{"2", " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0375.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"b", "-", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "2"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ")"}]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], "2"]}]}], ")"}]}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0376.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"b", "+", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "b"}]], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0377.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"b", "+", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], "2"]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0378.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"b", "+", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "2"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "-", "a", "+", "b"}], ")"}]}]], RowBox[{"(", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], "2"]}], ")"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0379.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"b", "+", FractionBox["3", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], "2"], "-", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0380.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"b", "+", FractionBox["3", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "2"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]]}], RowBox[{"1", "-", "a", "+", "b"}]], RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], "2"], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ")"}], " ", SqrtBox["z"], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], "+", SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], "2"]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0381.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "4"]}], ",", RowBox[{"a", "+", FractionBox["1", "4"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox[ FractionBox["2", "\[Pi]"]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", FractionBox["2", SqrtBox["z"]], "]"}], " ", RowBox[{"FresnelC", "[", FractionBox["2", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]], "]"}]}], "+", RowBox[{ RowBox[{"FresnelS", "[", FractionBox["2", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]], "]"}], " ", RowBox[{"Sin", "[", FractionBox["2", SqrtBox["z"]], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0382.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", FractionBox["1", "4"]}], ",", RowBox[{"a", "+", FractionBox["3", "4"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox[ FractionBox["2", "\[Pi]"]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Cos", "[", FractionBox["2", SqrtBox["z"]], "]"}]}], " ", RowBox[{"FresnelS", "[", FractionBox["2", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]], "]"}]}], "+", RowBox[{ RowBox[{"FresnelC", "[", FractionBox["2", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]], "]"}], " ", RowBox[{"Sin", "[", FractionBox["2", SqrtBox["z"]], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0383.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", FractionBox["1", "2"]}], ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]]}], SqrtBox["\[Pi]"]], RowBox[{"SinIntegral", "[", FractionBox["2", SqrtBox["z"]], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0384.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,1,3,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "2"], ",", SubscriptBox["a", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", SubscriptBox["b", "2"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ FractionBox[ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0385.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}], "]"}], "\[Pi]"], SuperscriptBox["\[ExponentialE]", FractionBox["1", "z"]], " ", SuperscriptBox["z", RowBox[{"c", "-", "1"}]], " ", RowBox[{"GammaRegularized", "[", RowBox[{ RowBox[{"c", "-", "a"}], ",", "0", ",", FractionBox["1", "z"]}], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0386.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"b", "+", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", "b"}], "-", "a", "+", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SqrtBox["\[Pi]"]]}], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", SuperscriptBox["\[ExponentialE]", FractionBox["1", RowBox[{"2", " ", "z"}]]], RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", RowBox[{"2", " ", "z"}]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0387.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", "n"}], ",", "b"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], "\[Pi]"], RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox["1", "z"]], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], RowBox[{"n", "-", "1"}]], FractionBox[ SuperscriptBox["z", RowBox[{"-", "k"}]], RowBox[{"k", "!"}]]}]}], ")"}], " ", SuperscriptBox["z", RowBox[{"a", "+", "n", "-", "1"}]]}]}], "/;", RowBox[{ RowBox[{"n", "\[Element]", "Integers"}], "\[And]", RowBox[{"n", "\[GreaterEqual]", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0388.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", "1"}], ",", "b"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], "\[Pi]"], RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox["1", "z"]], "-", "1"}], ")"}], " ", SuperscriptBox["z", "a"]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0389.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,1,3,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "1"]}], "]"}], " "}]], SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], "+", RowBox[{ FractionBox["1", RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "3"]}], "]"}], " "}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0390.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,2,2,1}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ RowBox[{ SuperscriptBox["z", RowBox[{ SubscriptBox["a", "1"], "-", "1"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], "]"}], " ", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", FractionBox["1", "z"]}], "]"}]}], "+", RowBox[{ SuperscriptBox["z", RowBox[{ SubscriptBox["a", "2"], "-", "1"}]], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", FractionBox["1", "z"]}], "]"}]}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0391.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], SuperscriptBox["z", RowBox[{ SubscriptBox["a", "1"], "-", "1"}]], RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["a", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", FractionBox["1", "z"]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0392.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{ SqrtBox["\[Pi]"], RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}]}]}], "2"], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "b"}]], SuperscriptBox["\[ExponentialE]", FractionBox["1", RowBox[{"2", " ", "z"}]]], RowBox[{"(", RowBox[{ RowBox[{"BesselK", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "b"}], ",", FractionBox["1", RowBox[{"2", " ", "z"}]]}], "]"}], "-", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", RowBox[{"2", " ", "z"}]]}], "]"}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0393.01"], Cell[BoxData[ RowBox[{ RowBox[{"+", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}]}], "\[Equal]", " ", RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", SuperscriptBox["\[ExponentialE]", FractionBox["1", RowBox[{"2", " ", "z"}]]], RowBox[{"BesselK", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", RowBox[{"2", " ", "z"}]]}], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0394.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "2"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ")"}]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", SuperscriptBox["\[ExponentialE]", FractionBox["1", RowBox[{"2", " ", "z"}]]], RowBox[{"(", RowBox[{ RowBox[{"BesselK", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "a", "-", "b"}], ",", FractionBox["1", RowBox[{"2", " ", "z"}]]}], "]"}], "+", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", FractionBox["1", RowBox[{"2", " ", "z"}]]}], "]"}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0395.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", SuperscriptBox["\[ExponentialE]", FractionBox["1", "z"]], RowBox[{"Gamma", "[", RowBox[{ RowBox[{"a", "-", "b"}], ",", FractionBox["1", "z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0396.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], SuperscriptBox["\[ExponentialE]", FractionBox["1", "z"]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "b"}]], " ", RowBox[{"ExpIntegralE", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", FractionBox["1", "z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0397.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"Exp", "[", RowBox[{"1", "/", "z"}], "]"}]}], SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"(", RowBox[{ RowBox[{"ExpIntegralEi", "[", RowBox[{ RowBox[{"-", "1"}], "/", "z"}], "]"}], "+", RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ RowBox[{"Log", "[", RowBox[{"-", "z"}], "]"}], "-", RowBox[{"Log", "[", RowBox[{ RowBox[{"-", "1"}], "/", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"Log", "[", RowBox[{"1", "/", "z"}], "]"}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0398.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox["1", "z"]], " ", "\[Pi]", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"Erfc", "[", FractionBox["1", SqrtBox["z"]], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0399.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,2,2,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", SubscriptBox["b", "2"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", SubscriptBox["b", "1"]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Hypergeometric2F1Regularized", "[", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"-", "z"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0400.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", SubscriptBox["b", "2"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}]], SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"JacobiP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], ",", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "z"}]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0401.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "d", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b", "+", "c", "-", "d"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "d"}], "]"}], " ", RowBox[{"JacobiP", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "d"}], ",", RowBox[{"b", "-", "d"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b", "+", "c", "-", "d"}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "z"}]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0402.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "d", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "c", "+", "d"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"JacobiP", "[", RowBox[{ RowBox[{ RowBox[{"-", "c"}], "+", "d"}], ",", RowBox[{"b", "-", "d"}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox[ RowBox[{"1", "-", "z"}], RowBox[{"1", "+", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0403.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "c", "+", "b"}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"a", "-", "b", "-", "1"}]], SuperscriptBox["z", "b"], RowBox[{"Beta", "[", RowBox[{ RowBox[{"-", "z"}], ",", RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"c", "-", "b"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0404.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"c", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"a", "-", "b", "-", "1"}]], SuperscriptBox["z", "b"], RowBox[{"BetaRegularized", "[", RowBox[{ RowBox[{"-", "z"}], ",", RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"c", "-", "b"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0405.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "c", "+", "b"}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "c"}], "-", RowBox[{"2", " ", "a"}]}], ")"}]}]], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c", "-", "a"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "b", "+", "a"}], ",", "3", ",", FractionBox[ RowBox[{"2", "+", "z"}], RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"Re", "[", "z", "]"}], "\[GreaterEqual]", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0406.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", "\[Pi]"}]], RowBox[{"Gamma", "[", RowBox[{"1", "-", "c", "+", "b"}], "]"}], " "}], RowBox[{"Gamma", "[", RowBox[{"1", "+", "c", "+", "b", "-", RowBox[{"2", " ", "a"}]}], "]"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], FractionBox[ RowBox[{"c", "-", "a"}], "2"]], RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{"b", "-", "a"}], ",", RowBox[{"c", "-", "a"}], ",", "3", ",", FractionBox[ RowBox[{"2", "+", "z"}], "z"]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0407.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}], " ", "\[Pi]"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}]}]], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", RowBox[{"a", "-", "c"}], ",", "3", ",", FractionBox[ RowBox[{"2", "+", "z"}], "z"]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0408.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", "c"}], ")"}]}]], RowBox[{"GegenbauerC", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b", "-", "c"}], ",", RowBox[{"1", "-", "a", "+", "b"}], ",", FractionBox[ RowBox[{"2", "+", "z"}], RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0409.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "+", "c", "-", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"b", "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}]}]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", "2", ",", FractionBox[ RowBox[{"1", "-", "z"}], RowBox[{"1", "+", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0410.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "+", "c", "-", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "+", "a", "-", "c"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], "]"}], RowBox[{"Gamma", "[", RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}], "]"}], " ", SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", "c"}]], RowBox[{"GegenbauerC", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], ",", RowBox[{ FractionBox["1", "2"], "+", "a", "-", "c"}], ",", FractionBox[ RowBox[{"1", "-", "z"}], RowBox[{"1", "+", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0411.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", "b", "+", "c", "-", FractionBox["3", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{ FractionBox["3", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ")"}]}]], RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0412.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", "b", "+", "c", "-", FractionBox["3", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"1", "-", "a", "+", "c"}]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"c", "-", "a"}], ")"}], " ", "\[Pi]"}]], RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ FractionBox["3", "2"], "+", "b", "-", "c"}], "]"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "+", "c"}], ")"}]}], "-", "1"}]], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", RowBox[{"a", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0413.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", "b", "+", "c", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ FractionBox["1", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}]}], SqrtBox[ RowBox[{"1", "+", "z"}]]], SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ")"}]}]], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0414.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", "b", "+", "c", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"1", "-", "a", "+", "c"}]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"c", "-", "a"}], ")"}], " ", "\[Pi]"}]], RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}]}], RowBox[{" ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{ FractionBox["1", "2"], "+", "b", "-", "c"}], "]"}], SqrtBox[ RowBox[{"1", "+", "z"}]]}]}]], SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "+", "c"}], ")"}]}]], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", RowBox[{"a", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0415.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", FractionBox[ RowBox[{"a", "+", "c", "-", "1"}], "2"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "b"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", FractionBox[ RowBox[{"a", "+", "c"}], "2"]}], "]"}], " ", RowBox[{"GegenbauerC", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ",", RowBox[{"1", "+", "b", "-", FractionBox[ RowBox[{"a", "+", "c"}], "2"]}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "z"}]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0416.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", FractionBox[ RowBox[{"a", "+", "c", "-", "1"}], "2"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "+", RowBox[{"2", " ", "b"}], "+", "c"}], ")"}]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ")"}]}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", "c"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ")"}]}], ",", "3", ",", RowBox[{"1", "+", RowBox[{"2", " ", "z"}]}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0417.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", FractionBox[ RowBox[{"a", "+", "c", "-", "1"}], "2"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"c", "-", "a"}], ")"}], " ", "\[Pi]"}]], RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}]}], SqrtBox["\[Pi]"]], SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "a", "+", RowBox[{"2", " ", "b"}], "+", "c"}], ")"}]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ")"}]}]], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{"b", "-", FractionBox[ RowBox[{"a", "+", "c"}], "2"]}], ",", FractionBox[ RowBox[{"a", "-", "c"}], "2"], ",", "3", ",", FractionBox[ RowBox[{"1", "+", RowBox[{"2", " ", "z"}]}], RowBox[{"2", " ", SqrtBox["z"], " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"Re", "[", "z", "]"}], "\[GreaterEqual]", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0418.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", SuperscriptBox["z", FractionBox[ RowBox[{"b", "+", "c"}], "2"]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], FractionBox[ RowBox[{"b", "-", "c"}], "2"]], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ",", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], ",", "3", ",", RowBox[{"1", "+", RowBox[{"2", " ", "z"}]}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0419.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], ")"}]}]], " ", SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], FractionBox[ RowBox[{"b", "-", "c"}], "2"]], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ",", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], ",", "2", ",", RowBox[{"1", "+", RowBox[{"2", " ", "z"}]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0420.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ")"}], " ", "\[Pi]"}]], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " "}], RowBox[{"Gamma", "[", RowBox[{"a", "-", "c"}], "]"}]], SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "b"}], "+", RowBox[{"2", " ", "c"}]}], ")"}]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}], ")"}]}]], RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b", "-", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", "3", ",", FractionBox[ RowBox[{"1", "+", RowBox[{"2", " ", "z"}]}], RowBox[{"2", " ", SqrtBox["z"], " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"Re", "[", "z", "]"}], "\[GreaterEqual]", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0421.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"a", "-", "c"}], "]"}], RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}]}]], " ", SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{"b", "-", "c"}]], RowBox[{"GegenbauerC", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ",", RowBox[{ FractionBox["1", "2"], "+", "b", "-", "c"}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "z"}]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0422.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "c"}]], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], " ", SuperscriptBox["z", FractionBox[ RowBox[{"b", "+", "c"}], "2"]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b", "-", "c"}], ")"}]}]], RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b", "-", "c"}], ",", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], ",", "2", ",", FractionBox["1", SqrtBox[ RowBox[{"1", "+", "z"}]]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0423.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["4", RowBox[{"a", "-", "c"}]], " ", RowBox[{"Gamma", "[", RowBox[{ FractionBox["1", "2"], "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], "]"}], SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}]], " ", RowBox[{"GegenbauerC", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ FractionBox["1", "2"], "+", "b", "-", "c"}], ",", FractionBox["1", SqrtBox[ RowBox[{"1", "+", "z"}]]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0424.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ")"}], "!"}], "2"], " ", SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}]], RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", FractionBox[ RowBox[{"1", "-", "z"}], RowBox[{"1", "+", "z"}]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0425.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", SuperscriptBox["2", RowBox[{ RowBox[{"2", "a"}], "-", RowBox[{"2", "b"}], "+", "1"}]]}], RowBox[{"Gamma", "[", RowBox[{ RowBox[{"2", "b"}], "-", RowBox[{"2", "a"}]}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{"a", "-", "b"}]], SuperscriptBox["z", RowBox[{"b", "-", FractionBox["1", "2"]}]], RowBox[{"Sin", "[", RowBox[{"2", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"ArcTan", "[", RowBox[{"Sqrt", "[", "z", "]"}], "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0426.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["4", RowBox[{"1", "+", "a", "-", "b"}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}]], " ", RowBox[{"ChebyshevU", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", "b"}], ",", FractionBox[ RowBox[{"1", "-", "z"}], RowBox[{"1", "+", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0427.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}]], " ", RowBox[{"ChebyshevU", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["1", SqrtBox[ RowBox[{"1", "+", "z"}]]]}], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0428.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["4", RowBox[{"a", "-", "b"}]], " ", SqrtBox["\[Pi]"], " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ")"}], "!"}], " ", SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}]], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["1", SqrtBox[ RowBox[{"1", "+", "z"}]]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0429.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "+", RowBox[{"1", "/", "2"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"2", "a"}], "-", RowBox[{"2", "b"}]}]], RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", "a"}], "+", RowBox[{"2", "b"}]}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{"a", "-", "b", "-", FractionBox["1", "2"]}]], SuperscriptBox["z", "b"], RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "a"}], "-", RowBox[{"2", "b"}], "-", "1"}], ")"}], " ", RowBox[{"ArcTan", "[", RowBox[{"Sqrt", "[", "z", "]"}], "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0430.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["4", RowBox[{"a", "-", "b"}]], " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ")"}], "!"}], SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}]], " ", RowBox[{"ChebyshevT", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox[ RowBox[{"1", "-", "z"}], RowBox[{"1", "+", "z"}]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0431.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["4", RowBox[{"a", "-", "b"}]], " ", SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}]], " ", RowBox[{"ChebyshevT", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["1", SqrtBox[ RowBox[{"1", "+", "z"}]]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0432.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}]]}], RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}]]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0433.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SqrtBox["\[Pi]"]}], RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{"2", "a"}], "+", "1"}]], SuperscriptBox["z", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{"1", "+", "z"}]], "-", "1"}], ")"}], RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}]]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0434.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", "a"}], "-", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}]]}], SqrtBox[ RowBox[{"1", "+", "z"}]]]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0435.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}]]}], SqrtBox[ RowBox[{"1", "+", "z"}]]]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0436.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", "b"}], "-", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}]}], SqrtBox[ RowBox[{"1", "+", "z"}]]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"Sinh", "[", RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"ArcSinh", "[", SqrtBox["z"], "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0437.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", "b"}], "-", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["\[Pi]"], RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}], "]"}], SuperscriptBox["z", "b"], RowBox[{"ChebyshevU", "[", RowBox[{ RowBox[{"a", "-", "b", "-", "1"}], ",", RowBox[{ RowBox[{"2", "z"}], "+", "1"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0438.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " "}], RowBox[{ RowBox[{"2", "a"}], "-", RowBox[{"2", "b"}], "-", "1"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], RowBox[{"Sinh", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ")"}], " ", RowBox[{"ArcSinh", "[", SqrtBox["z"], "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0439.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SuperscriptBox["z", "b"], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "z"}]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0440.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SuperscriptBox["z", "b"]}], SqrtBox[ RowBox[{"1", "+", "z"}]]], " ", RowBox[{"Cosh", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ")"}], " ", RowBox[{"ArcSinh", "[", SqrtBox["z"], "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0441.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", "b"}], "-", "a", "+", "2"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "+", RowBox[{"1", "/", "2"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}], "]"}], " "}], RowBox[{"a", "-", "b", "-", "1"}]], SuperscriptBox["z", "b"], " ", RowBox[{"Cosh", "[", RowBox[{"2", RowBox[{"(", RowBox[{"a", "-", "b", "-", "1"}], ")"}], " ", RowBox[{"ArcSinh", "[", SqrtBox["z"], "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0442.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", "b"}], "-", "a", "+", "2"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["\[Pi]"], RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}], "]"}]}], "2"], SuperscriptBox["z", "b"], RowBox[{"GegenbauerC", "[", RowBox[{ RowBox[{"a", "-", "b", "-", "1"}], ",", RowBox[{ RowBox[{"2", "z"}], "+", "1"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0443.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", "b"}], "-", "a", "+", "2"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["\[Pi]"], RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}], "]"}]}], RowBox[{"a", "-", "b", "-", "1"}]], SuperscriptBox["z", "b"], RowBox[{"ChebyshevT", "[", RowBox[{ RowBox[{"a", "-", "b", "-", "1"}], ",", RowBox[{ RowBox[{"2", "z"}], "+", "1"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0444.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ")"}]}]], " ", RowBox[{"ChebyshevU", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", "b"}], ",", FractionBox[ RowBox[{"2", "+", "z"}], RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0445.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], "]"}], SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ FractionBox[ RowBox[{"a", "-", "b"}], "2"], "-", "1"}]], " ", RowBox[{"(", RowBox[{"2", "+", "z"}], ")"}], " ", RowBox[{"ChebyshevU", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"b", "-", "a"}], "2"], "-", "1"}], ",", FractionBox[ RowBox[{"2", "+", RowBox[{"2", " ", "z"}], "+", SuperscriptBox["z", "2"]}], RowBox[{"2", "+", RowBox[{"2", " ", "z"}]}]]}], "]"}]}]}], " ", "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0446.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ")"}]}]], " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ")"}], "!"}], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", FractionBox[ RowBox[{"2", "+", "z"}], RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0447.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"3", " ", "a"}], "-", RowBox[{"2", " ", "b"}], "-", FractionBox["3", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"4", " ", "a"}], "-", RowBox[{"3", " ", "b"}], "-", "3"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"5", "-", RowBox[{"6", " ", "a"}], "+", RowBox[{"6", " ", "b"}]}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ FractionBox["5", "2"], "-", RowBox[{"3", " ", "a"}], "+", RowBox[{"3", " ", "b"}]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{"4", "-", RowBox[{"4", " ", "a"}], "+", RowBox[{"4", " ", "b"}]}], "]"}]], SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"4", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", FractionBox["5", "2"]}], "+", RowBox[{"3", " ", "a"}], "-", RowBox[{"3", " ", "b"}]}]], RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["5", "6"], "-", "a", "+", "b"}], ",", RowBox[{ FractionBox["7", "6"], "-", "a", "+", "b"}], ",", RowBox[{ FractionBox["5", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox[ RowBox[{"27", " ", SuperscriptBox["z", "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{"4", "+", "z"}], ")"}], "3"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0448.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"3", " ", "a"}], "-", RowBox[{"2", " ", "b"}], "-", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["3", RowBox[{ FractionBox["1", "2"], "-", RowBox[{"3", " ", "a"}], "+", RowBox[{"3", " ", "b"}]}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ FractionBox["3", "2"], "-", RowBox[{"3", " ", "a"}], "+", RowBox[{"3", " ", "b"}]}], "]"}]}], SqrtBox["\[Pi]"]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"3", "-", "z"}], ")"}], RowBox[{ RowBox[{"-", FractionBox["5", "2"]}], "+", RowBox[{"3", " ", "a"}], "-", RowBox[{"3", " ", "b"}]}]], " ", SuperscriptBox["z", "b"], " ", RowBox[{"(", RowBox[{"9", "+", "z"}], ")"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["5", "6"], "-", "a", "+", "b"}], ",", RowBox[{ FractionBox["7", "6"], "-", "a", "+", "b"}], ",", FractionBox["3", "2"], ",", FractionBox[ RowBox[{"z", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"9", "+", "z"}], ")"}], "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "z"}], ")"}], "3"]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}], "\[Or]", RowBox[{ RowBox[{"Re", "[", "z", "]"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0449.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"4", " ", "b"}], "-", RowBox[{"3", "a"}], "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["3", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", "a"}], "-", RowBox[{"3", " ", "b"}]}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"3", " ", "a"}], "-", RowBox[{"3", " ", "b"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}]}], SqrtBox["\[Pi]"]], SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"3", "+", RowBox[{"4", " ", "z"}]}], ")"}], RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"3", " ", "a"}], "+", RowBox[{"3", " ", "b"}]}]], " ", RowBox[{"(", RowBox[{"9", "+", RowBox[{"8", " ", "z"}]}], ")"}], RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "3"], "+", "a", "-", "b"}], ",", RowBox[{ FractionBox["2", "3"], "+", "a", "-", "b"}], ",", FractionBox["3", "2"], ",", FractionBox[ RowBox[{"z", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"9", "+", RowBox[{"8", " ", "z"}]}], ")"}], "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{"3", "+", RowBox[{"4", " ", "z"}]}], ")"}], "3"]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}], "\[Or]", RowBox[{ RowBox[{"Re", "[", "z", "]"}], "\[GreaterEqual]", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0450.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"4", " ", "b"}], "-", RowBox[{"3", "a"}], "+", "3"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"3", " ", "a"}], "-", RowBox[{"3", " ", "b"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " "}]}], SqrtBox["\[Pi]"]], SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ FractionBox["2", "3"], "-", "a", "+", "b"}]], RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["2", "3"]}], "+", "a", "-", "b"}], ",", RowBox[{ FractionBox["5", "6"], "-", "a", "+", "b"}], ",", FractionBox["1", "2"], ",", RowBox[{"-", FractionBox[ RowBox[{"z", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"9", "+", RowBox[{"8", " ", "z"}]}], ")"}], "2"]}], RowBox[{"27", " ", RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}]}]]}]}], "]"}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}], "\[Or]", RowBox[{ RowBox[{"Re", "[", "z", "]"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0451.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["\[Pi]"], SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"Log", "[", RowBox[{ SqrtBox[ RowBox[{"z", "+", "1"}]], "+", SqrtBox["z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0452.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox["\[Pi]"], SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"Log", "[", RowBox[{ SqrtBox[ RowBox[{"z", "+", "1"}]], "-", SqrtBox["z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0453.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["\[Pi]"], SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"ArcSinh", "[", SqrtBox["z"], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0454.01"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"EllipticK", "[", RowBox[{"-", "z"}], "]"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0455.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Log", "[", RowBox[{"1", "+", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0456.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{"2", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"ArcSinh", "[", SqrtBox["z"], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0457.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{"2", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"Log", "[", RowBox[{ SqrtBox[ RowBox[{"z", "+", "1"}]], "+", SqrtBox["z"]}], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0458.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{"2", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"Log", "[", RowBox[{ SqrtBox[ RowBox[{"z", "+", "1"}]], "-", SqrtBox["z"]}], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0459.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"ArcTan", "[", SqrtBox["z"], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0460.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", "4"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"EllipticE", "[", RowBox[{"-", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0461.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", "4"}], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{"1", "/", "2"}]], " ", RowBox[{"EllipticE", "[", FractionBox["z", RowBox[{"z", "+", "1"}]], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0462.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"1", "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", "4"], "+", "a"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "4"], "+", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["1", "4"], "]"}], "2"]}], RowBox[{"2", " ", "\[Pi]", " ", SqrtBox[ RowBox[{"1", "+", "z"}]], " ", SqrtBox[ RowBox[{ RowBox[{"-", SqrtBox["z"]}], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}]], SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], "+", "a"}]], " ", RowBox[{"EllipticE", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "z"}], "+", RowBox[{"2", " ", SqrtBox["z"], " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0463.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"1", "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", "4"], "+", "a"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "4"], "+", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["1", "4"], "]"}], "2"], RowBox[{"2", " ", "\[Pi]", " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]], SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], "+", "a"}]], " ", SqrtBox[ RowBox[{ SqrtBox["z"], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}]], " ", RowBox[{"EllipticE", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "z"}], "+", RowBox[{"2", " ", SqrtBox["z"], " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]}], "]"}]}]}], " ", "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0464.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"1", "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", "4"], "+", "a"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "4"], "+", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["1", "4"], "]"}], "2"]}], RowBox[{"2", " ", "\[Pi]", " ", SqrtBox[ RowBox[{"1", "+", "z"}]], " ", SqrtBox[ RowBox[{ RowBox[{"-", SqrtBox["z"]}], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}]], SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], "+", "a"}]], " ", RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"2", " ", SqrtBox["z"]}], RowBox[{ SqrtBox["z"], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0465.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"1", "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", "4"], "+", "a"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "4"], "+", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["1", "4"], "]"}], "2"], RowBox[{"2", " ", "\[Pi]", " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]], SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], "+", "a"}]], " ", SqrtBox[ RowBox[{ SqrtBox["z"], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}]], " ", RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"2", " ", SqrtBox["z"]}], RowBox[{ SqrtBox["z"], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}]], "]"}]}]}], " ", "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0466.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", "4"], "+", "a"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "4"], "+", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["1", "4"], "]"}], "2"]}], RowBox[{"2", " ", "\[Pi]", " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]], SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], "+", "a"}]], " ", SqrtBox[ RowBox[{ RowBox[{"-", SqrtBox["z"]}], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}]], " ", RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"2", " ", SqrtBox["z"]}], RowBox[{ SqrtBox["z"], "-", SqrtBox[ RowBox[{"1", "+", "z"}]]}]], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0467.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", "4"], "+", "a"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "4"], "+", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["1", "4"], "]"}], "2"]}], RowBox[{"2", " ", "\[Pi]", " ", SqrtBox[ RowBox[{"1", "+", "z"}]], SqrtBox[ RowBox[{ SqrtBox["z"], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}]], SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], "+", "a"}]], " ", RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"2", " ", SqrtBox["z"]}], RowBox[{ SqrtBox["z"], "-", SqrtBox[ RowBox[{"1", "+", "z"}]]}]], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0468.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]], RowBox[{"EllipticE", "[", RowBox[{"-", "z"}], "]"}]}], RowBox[{"1", "+", "z"}]]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0469.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]], SqrtBox[ RowBox[{"1", "+", "z"}]]], RowBox[{"EllipticE", "[", FractionBox["z", RowBox[{"z", "+", "1"}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0470.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"n", "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n", "+", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"b", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"n", "-", "1"}]], RowBox[{"Gamma", "[", RowBox[{"b", "-", "a"}], "]"}], SuperscriptBox["z", RowBox[{"b", "-", "1"}]], RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{"a", "-", "b"}]], "-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{ RowBox[{"a", "-", "b"}], ",", "k"}], "]"}], RowBox[{"z", "^", "k"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"n", "\[Element]", "Integers"}], "\[And]", RowBox[{"n", "\[GreaterEqual]", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1086.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"n", "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n", "+", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"(", RowBox[{ RowBox[{"Log", "[", RowBox[{"1", "+", "z"}], "]"}], "-", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"k", "-", "1"}]], RowBox[{ RowBox[{"z", "^", "k"}], "/", "k"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"n", "\[Element]", "Integers"}], "\[And]", RowBox[{"n", ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1087.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,2,2,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " ", SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0471.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", "a"}], ",", "d"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ")"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "d"}], "]"}]], " ", SuperscriptBox["z", "b"], RowBox[{"(", RowBox[{ RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"1", "+", "b", "-", "c"}], ",", RowBox[{"1", "+", "b", "-", "d"}], ",", RowBox[{"-", "z"}]}], "]"}], "+", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}], " ", "z"}], RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "b", "-", "d"}], ")"}]}]], RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"2", "+", "b", "-", "c"}], ",", RowBox[{"2", "+", "b", "-", "d"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0472.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", "c"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["z", "b"], " "}], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "a", "+", "b"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}], " ", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"2", "-", "a", "+", "b"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ")"}], " ", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"1", "+", "b", "-", "c"}], ",", RowBox[{"2", "+", "b", "-", "c"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0473.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "b"}], ",", "c"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], "]"}], RowBox[{"Gamma", "[", RowBox[{"b", "-", "c"}], "]"}]], SuperscriptBox["z", RowBox[{"b", "-", "1"}]], RowBox[{"(", RowBox[{"1", "-", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", RowBox[{"b", "-", "c"}], ",", RowBox[{"-", "z"}]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0474.01"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"(", RowBox[{"EulerGamma", "+", RowBox[{"Gamma", "[", RowBox[{"0", ",", "z"}], "]"}], "+", RowBox[{"Log", "[", "z", "]"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0475.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"(", RowBox[{"EulerGamma", "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Log", "[", RowBox[{"-", FractionBox["1", "z"]}], "]"}], "-", RowBox[{"Log", "[", RowBox[{"-", "z"}], "]"}]}], ")"}]}], "-", " ", RowBox[{"ExpIntegralEi", "[", RowBox[{"-", "z"}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0476.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,2,2,4}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"], ",", SubscriptBox["b", "4"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", SubscriptBox["b", "1"]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0477.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"a", "+", "c", "-", "1"}], "2"], ",", FractionBox[ RowBox[{"a", "+", "c"}], "2"], ",", RowBox[{"a", "-", "b", "+", "c", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}]], RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], "]"}], "2"]}]], " ", SuperscriptBox["z", "b"], RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", SqrtBox["z"]}]}], "]"}], " ", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", SqrtBox["z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0478.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"a", "+", "c", "-", "1"}], "2"], ",", FractionBox[ RowBox[{"a", "+", "c"}], "2"], ",", RowBox[{"a", "-", "b", "+", "c", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}]], RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], "]"}], "2"]}]], " ", SuperscriptBox["z", "b"], RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}], " ", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0479.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["4", RowBox[{"a", "-", "b"}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "b"], " "}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], "]"}]}]], RowBox[{"Hypergeometric0F1", "[", RowBox[{ RowBox[{"1", "+", "b", "-", "c"}], ",", RowBox[{"-", FractionBox["z", "4"]}]}], "]"}], " ", RowBox[{"Hypergeometric0F1", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ",", RowBox[{"-", FractionBox["z", "4"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0480.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["4", RowBox[{"a", "-", "b"}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "b"], " ", RowBox[{"Hypergeometric0F1Regularized", "[", RowBox[{ RowBox[{"1", "+", "b", "-", "c"}], ",", RowBox[{"-", FractionBox["z", "4"]}]}], "]"}], " ", RowBox[{"Hypergeometric0F1Regularized", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ",", RowBox[{"-", FractionBox["z", "4"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0481.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["4", RowBox[{"a", "-", "b"}]], " ", SqrtBox["\[Pi]"]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], "]"}]}]], " ", SuperscriptBox["z", "b"], " ", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "b", "-", "c"}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}], " ", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ",", RowBox[{"1", "-", RowBox[{"4", " ", "a"}], "+", RowBox[{"2", " ", "b"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0482.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "a"], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], ",", SqrtBox["z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0483.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"b", "-", FractionBox["1", "2"]}], ",", RowBox[{"c", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{"-", "z"}]]}]], " ", SuperscriptBox["z", "b"], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Hypergeometric1F1Regularized", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}]}], "+", RowBox[{"Hypergeometric1F1Regularized", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}]}], ")"}]}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0484.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"b", "+", FractionBox["1", "2"]}], ",", RowBox[{"c", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}]], RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}]}], SqrtBox["\[Pi]"]], SuperscriptBox["z", "b"], RowBox[{"(", RowBox[{ RowBox[{"Hypergeometric1F1Regularized", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}], "+", RowBox[{"Hypergeometric1F1Regularized", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}]}], ")"}]}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0485.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"Cos", "[", SqrtBox["z"], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0486.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["4", RowBox[{"a", "-", "b"}]], " ", SuperscriptBox["z", "b"], " ", RowBox[{"Cos", "[", SqrtBox["z"], "]"}], " ", RowBox[{"Hypergeometric0F1Regularized", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"-", FractionBox["z", "4"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0487.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "+", FractionBox["1", "2"]}], ",", RowBox[{"b", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["2", RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}]], RowBox[{"Gamma", "[", RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"Sin", "[", SqrtBox["z"], "]"}], RowBox[{"Hypergeometric0F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"-", FractionBox["z", "4"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0488.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "+", FractionBox["1", "2"]}], ",", RowBox[{"b", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"Sin", "[", SqrtBox["z"], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0489.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", FractionBox["1", "4"]}], ",", RowBox[{"a", "-", FractionBox["1", "4"]}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], SuperscriptBox["z", RowBox[{"a", "-", FractionBox["1", "2"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"FresnelS", "[", RowBox[{ RowBox[{"2", "/", SqrtBox["\[Pi]"]}], RowBox[{"z", "^", RowBox[{"(", RowBox[{"1", "/", "4"}], ")"}]}]}], "]"}], "^", "2"}], "+", RowBox[{ RowBox[{"FresnelC", "[", RowBox[{ RowBox[{"2", "/", SqrtBox["\[Pi]"]}], RowBox[{"z", "^", RowBox[{"(", RowBox[{"1", "/", "4"}], ")"}]}]}], "]"}], "^", "2"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0490.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,2,3,5}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", SubscriptBox["a", "3"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"], ",", SubscriptBox["b", "4"], ",", SubscriptBox["b", "5"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", SubscriptBox["b", "1"]], " ", FractionBox[ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "1"]}], "]"}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "4"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "5"]}]}], "}"}], ",", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0491.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "b", ",", RowBox[{ FractionBox["1", "2"], "+", RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{ SuperscriptBox["z", "a"], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b", "-", "c"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ",", SqrtBox["z"]}], "]"}]}], SqrtBox["\[Pi]"]]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1088.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "4"], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ FractionBox["1", "4"], "+", "a"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["3", "4"], "-", "a", "+", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SqrtBox["\[Pi]"]], SuperscriptBox["z", "a"], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], ",", SqrtBox["z"]}], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0492.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ FractionBox["1", "2"], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SqrtBox["2"], "\[Pi]"], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"Sinh", "[", SqrtBox["z"], "]"}], RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0493.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}], ",", RowBox[{ FractionBox["1", "2"], "+", "b"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SqrtBox["2"], "\[Pi]"], " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["3", "4"], "-", "a", "+", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"Cosh", "[", SqrtBox["z"], "]"}], RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0494.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}], ",", RowBox[{ FractionBox["1", "4"], "+", "a"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"Erf", "[", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}], "]"}], " ", RowBox[{"Erfi", "[", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}], "]"}]}], RowBox[{ SqrtBox["2"], " ", "\[Pi]"}]]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0495.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", FractionBox["b", "2"], ",", FractionBox[ RowBox[{"1", "+", "b"}], "2"], ",", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}]}], RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]], " ", RowBox[{"Gamma", "[", "b", "]"}]}]], RowBox[{"(", RowBox[{ RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", "b", ",", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox["z"]}]}], "]"}], "+", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", "b", ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1089.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "b"}], ",", "b", ",", FractionBox[ RowBox[{"b", "-", "1"}], "2"], " ", ",", FractionBox["b", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "b"}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], " "}], RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]], " ", RowBox[{"Gamma", "[", "b", "]"}]}]]}], RowBox[{"(", RowBox[{ RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", "b", ",", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox["z"]}]}], "]"}], "-", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", "b", ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1090.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,2,4,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "3"], ",", SubscriptBox["a", "4"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", SubscriptBox["b", "2"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}]}], RowBox[{" ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}]}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "4"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "-", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], "]"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "4"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", "Integers"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0496.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", " ", "b"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "c"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "b"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], "-", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"a", "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0497.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", "c"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], "+", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"a", "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0498.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SqrtBox["2"]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "b"}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"Cos", "[", FractionBox["1", SqrtBox["z"]], "]"}]}], "-", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"Sin", "[", FractionBox["1", SqrtBox["z"]], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0499.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{ FractionBox["3", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SqrtBox["2"]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "b"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"Cos", "[", FractionBox["1", SqrtBox["z"]], "]"}]}], "+", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"Sin", "[", FractionBox["1", SqrtBox["z"]], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0500.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "b"}], ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SqrtBox["\[Pi]"], "2"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], "2"]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0501.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"-", "1"}], "+", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", "b"}], ",", RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", " ", "b"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "b"}]], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0502.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", "b"}], ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0503.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "a"}], ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0504.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]]}], SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]]]}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", FractionBox["2", SqrtBox["z"]], "]"}], " ", RowBox[{"CosIntegral", "[", FractionBox["2", SqrtBox["z"]], "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", FractionBox["2", SqrtBox["z"]], "]"}], " ", RowBox[{"SinIntegral", "[", FractionBox["2", SqrtBox["z"]], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0505.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " "}], SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"CosIntegral", "[", FractionBox["2", SqrtBox["z"]], "]"}]}], " ", RowBox[{"Sin", "[", FractionBox["2", SqrtBox["z"]], "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", FractionBox["2", SqrtBox["z"]], "]"}], " ", RowBox[{"SinIntegral", "[", FractionBox["2", SqrtBox["z"]], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0506.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,2,3,1}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", SubscriptBox["a", "3"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ")"}]}], "]"}], RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}], "-", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0507.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ")"}]}]], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "a", "-", "c"}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}], "-", RowBox[{"StruveL", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0508.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "a", "+", "c"}], ")"}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}], "-", RowBox[{"StruveL", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0509.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "b"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]], " ", RowBox[{"Csc", "[", RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], "2"], "-", SuperscriptBox[ RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], "2"]}], ")"}]}]}], " ", "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0510.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "b"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], "+", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], ")"}], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0511.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0512.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", "+", "b"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["4", RowBox[{"a", "-", "b"}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "b"], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", "0", ",", FractionBox["2", SqrtBox["z"]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0513.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,2,3,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", SubscriptBox["a", "3"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", SubscriptBox["b", "2"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "-", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " "}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], "]"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0514.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox["1", "\[Pi]"]}], SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "1"}], "/", "z"}], "]"}], RowBox[{"ExpIntegralEi", "[", RowBox[{"1", "/", "z"}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0515.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,2,3,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", SubscriptBox["a", "3"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ RowBox[{ FractionBox["1", "\[Pi]"], RowBox[{"(", RowBox[{ SuperscriptBox["z", SubscriptBox["b", "1"]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", "z"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "1"]}], ")"}]}], "]"}]}], ")"}], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ")"}]}], "]"}], "\[Pi]"], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}], "-", " ", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "3"]}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}]}], ")"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}]}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0516.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{"a", "-", "1"}]], "\[Pi]"], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], RowBox[{"Log", "[", RowBox[{"1", "-", "z"}], "]"}]}], "+", RowBox[{ RowBox[{"Log", "[", RowBox[{"z", "-", "1"}], "]"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0517.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,3,3,1}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "+", " ", RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "+", " ", RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "2"]}], "+", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "3"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["a", "2"], "-", SubscriptBox["a", "3"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["a", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0518.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}], ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[Pi]", RowBox[{"5", "/", "2"}]], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"BesselY", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], "2"]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0519.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}], ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox[ RowBox[{"-", "z"}]]]}], "]"}], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", RowBox[{"-", FractionBox["1", SqrtBox[ RowBox[{"-", "z"}]]]}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0520.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}], ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"5", "/", "2"}]], " ", RowBox[{"Csc", "[", RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], "-", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0521.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ")"}]}]], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}]}], "+", RowBox[{"StruveH", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0522.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}], ",", "b"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[ImaginaryI]", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "-", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", FractionBox["1", "z"]}]]}]}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{"-", FractionBox["1", "z"]}]]}]}], "]"}]}], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", FractionBox["1", "z"]}]]}]}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", FractionBox["1", "z"]}]]}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"0", "\[LessEqual]", RowBox[{"Arg", "[", "z", "]"}], "\[LessEqual]", FractionBox["\[Pi]", "2"]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0523.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"CosIntegral", "[", FractionBox["2", SqrtBox["z"]], "]"}], " ", RowBox[{"Sin", "[", FractionBox["2", SqrtBox["z"]], "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", FractionBox["2", SqrtBox["z"]], "]"}], " ", RowBox[{"(", RowBox[{"\[Pi]", "-", RowBox[{"2", " ", RowBox[{"SinIntegral", "[", FractionBox["2", SqrtBox["z"]], "]"}]}]}], ")"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0524.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "4"], "+", "a"}], ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", "4"], "+", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", FractionBox["2", SqrtBox["z"]], "]"}], " ", RowBox[{"(", RowBox[{ FractionBox["1", "2"], "-", RowBox[{"FresnelC", "[", FractionBox["2", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]], "]"}]}], ")"}]}], "+", " ", RowBox[{ RowBox[{"Sin", "[", FractionBox["2", SqrtBox["z"]], "]"}], RowBox[{"(", RowBox[{ FractionBox["1", "2"], "-", RowBox[{"FresnelS", "[", FractionBox["2", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]], "]"}]}], ")"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0525.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "4"], "+", "a"}], ",", RowBox[{ FractionBox["3", "4"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", FractionBox["2", SqrtBox["z"]], "]"}], " ", RowBox[{"(", RowBox[{ FractionBox["1", "2"], "-", RowBox[{"FresnelS", "[", FractionBox["2", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "2"], "-", RowBox[{"FresnelC", "[", FractionBox["2", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]], "]"}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox["2", SqrtBox["z"]], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0526.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}], ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"Cos", "[", FractionBox["2", SqrtBox["z"]], "]"}], " ", RowBox[{"CosIntegral", "[", FractionBox["2", SqrtBox["z"]], "]"}]}], "+", RowBox[{ RowBox[{"Sin", "[", FractionBox["2", SqrtBox["z"]], "]"}], " ", RowBox[{"(", RowBox[{"\[Pi]", "-", RowBox[{"2", " ", RowBox[{"SinIntegral", "[", FractionBox["2", SqrtBox["z"]], "]"}]}]}], ")"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0527.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,3,3,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", SubscriptBox["b", "2"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ SuperscriptBox["\[Pi]", "2"], RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], "]"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "2"]}], "+", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}], "]"}], " "}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "2"]}], "]"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "3"]}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["a", "2"], "-", SubscriptBox["a", "3"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["a", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0528.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,3,3,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}], "]"}], SuperscriptBox["z", SubscriptBox["b", "1"]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0529.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", "d"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", "a"}], ",", "e"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ")"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "d"}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "e"}], "]"}]], SuperscriptBox["z", "b"], RowBox[{"(", RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "+", "b", "-", "d"}], ",", RowBox[{"1", "+", "b", "-", "c"}], ",", RowBox[{"1", "+", "b", "-", "e"}], ",", RowBox[{"-", "z"}]}], "]"}], "-", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "b", "-", "d"}], ")"}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "b", "-", "e"}], ")"}]}]], " ", "z", " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"2", "+", "b", "-", "d"}], ",", RowBox[{"2", "+", "b", "-", "c"}], ",", RowBox[{"2", "+", "b", "-", "e"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0530.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", "d"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", "n"}], ",", "e"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "d"}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "e"}], "]"}]], " ", SuperscriptBox["z", "b"], RowBox[{"Sum", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"Binomial", "[", RowBox[{"n", ",", "k"}], "]"}], RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "+", "b", "-", "e"}], ",", "k"}], "]"}]], " ", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"a", "-", "b"}], ",", RowBox[{ RowBox[{"-", "k"}], "+", "n"}]}], "]"}], " ", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "+", "b", "-", "c"}], ",", "k"}], "]"}], " ", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "+", "b", "-", "d"}], ",", "k"}], "]"}], RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "+", "b", "-", "d", "+", "k"}], ",", RowBox[{"1", "+", "b", "-", "c", "+", "k"}], ",", RowBox[{"1", "+", "b", "-", "e", "+", "k"}], ",", RowBox[{"-", "z"}]}], "]"}], SuperscriptBox["z", "k"]}], " ", ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"n", "\[Element]", "Integers"}], "\[And]", RowBox[{"n", ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0531.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", "d"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", "d"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["z", "b"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}]}], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "a", "+", "b"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "-", "d"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "b", "-", "d"}], ")"}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "b", "-", "d"}], ")"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"1", "+", "b", "-", "c"}], ",", RowBox[{"2", "-", "a", "+", "b"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "a", "+", "b"}], ")"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "+", "b", "-", "d"}], ",", RowBox[{"1", "+", "b", "-", "c"}], ",", RowBox[{"2", "+", "b", "-", "d"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0532.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", "d"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"a", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"a", "-", "d"}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{"a", "-", "b"}], "]"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"a", "-", "c"}], ",", RowBox[{"a", "-", "d"}], ",", RowBox[{"a", "-", "b"}], ",", RowBox[{"-", "z"}]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0533.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{"c", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"d", ",", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b", "+", RowBox[{"2", " ", "c"}], "-", "d"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SqrtBox["\[Pi]"], RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "d"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}], "+", "d"}], "]"}]}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}], RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}]], " ", RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"a", "-", "d"}], ",", RowBox[{"1", "+", "b", "-", RowBox[{"2", " ", "c"}], "+", "d"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", "b", "-", "d"}], ",", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}], "+", "d"}]}], "}"}], ",", FractionBox[ RowBox[{"2", "+", "z", "-", RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]}], "z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0534.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c", "-", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}]], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], "]"}]}], SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], "]"}], "2"]], " ", SuperscriptBox["z", "b"], RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}]}], ",", RowBox[{ FractionBox[ RowBox[{"b", "+", "c", "+", "1"}], "2"], "-", "a"}], ",", RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", RowBox[{"-", "z"}]}], "]"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}]}], ",", RowBox[{ FractionBox[ RowBox[{"b", "+", "c", "+", "3"}], "2"], "-", "a"}], ",", RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0535.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c", "-", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}]], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], "]"}]}], SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], "]"}], "2"]], SuperscriptBox["z", "b"], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "+", FractionBox[ RowBox[{"b", "-", "c"}], "2"]}], ",", RowBox[{"1", "-", "a", "+", FractionBox[ RowBox[{"b", "+", "c"}], "2"]}], ",", RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", RowBox[{"-", "z"}]}], "]"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ FractionBox[ RowBox[{"b", "-", "c"}], "2"], ",", RowBox[{"1", "-", "a", "+", FractionBox[ RowBox[{"b", "+", "c"}], "2"]}], ",", RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0536.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c", "-", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], "]"}]}], SqrtBox[ RowBox[{"1", "+", "z"}]]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0537.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c", "-", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["2"], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", "\[Pi]"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " "}], SqrtBox[ RowBox[{"1", "+", "z"}]]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}]], RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0538.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c", "-", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", "\[Pi]"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], "]"}], SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0539.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "b"], " ", SqrtBox[ RowBox[{"1", "+", "z"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], "]"}]}], SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], "]"}], "2"]], RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ")"}]}], ",", RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", RowBox[{"-", "z"}]}], "]"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"2", "+", "b", "-", "c"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ")"}]}], ",", RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0540.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}]], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], "]"}]}], SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], "]"}], "2"]], SuperscriptBox["z", "b"], SuperscriptBox[ RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ")"}]}], ",", RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", RowBox[{"-", "z"}]}], "]"}], "2"]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0541.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}]], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], "]"}]}], SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], "]"}], "2"]], SuperscriptBox["z", "b"], SuperscriptBox[ RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "+", "b", "-", "c"}], ",", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ",", RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", RowBox[{ FractionBox["1", "2"], "-", FractionBox[ SqrtBox[ RowBox[{"1", "+", "z"}]], "2"]}]}], "]"}], "2"]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0542.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], "]"}], " ", SuperscriptBox[ RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}], "2"]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0543.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", "\[Pi]"}]], RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], "]"}]}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", SuperscriptBox[ RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}], "2"]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0544.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"2", "a"}], "-", "b", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}], " ", "\[Pi]"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], "]"}], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", RowBox[{"a", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0545.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], "]"}], "2"]], RowBox[{"(", RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}]], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ")"}], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "b"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], "]"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", RowBox[{"-", "z"}]}], "]"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ")"}]}], ",", RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", RowBox[{"-", "z"}]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0546.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], "]"}]}], SqrtBox[ RowBox[{"1", "+", "z"}]]], " ", SuperscriptBox["z", "a"], RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ FractionBox["1", "2"], "+", "a", "-", "b"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0547.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["2"], " ", RowBox[{"(", RowBox[{"b", "-", "c"}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}], " ", "\[Pi]"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], "]"}]}], SqrtBox[ RowBox[{"1", "+", "z"}]]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", "b"}], ",", RowBox[{"a", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0548.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", "\[Pi]"}]], RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}]}], SqrtBox[ RowBox[{"1", "+", "z"}]]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ FractionBox["1", "2"], "+", "a", "-", "b"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0549.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}], " ", "\[Pi]"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], "]"}]}], SqrtBox[ RowBox[{"1", "+", "z"}]]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "c"}], ",", RowBox[{ FractionBox["1", "2"], "+", "a", "-", "b"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", RowBox[{"a", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0550.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}], " ", "\[Pi]"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"b", "-", "c"}], "]"}], SqrtBox[ RowBox[{"1", "+", "z"}]]}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", "b"}], ",", RowBox[{"a", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", RowBox[{"a", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0551.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", "\[Pi]"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " "}], RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], "]"}], SqrtBox[ RowBox[{"1", "+", "z"}]]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", "b"}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0552.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "a"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["4", RowBox[{"a", "-", "b"}]], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], "]"}]}], RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], "]"}], "2"]}]], " ", SuperscriptBox["z", "b"], RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "-", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ")"}]}], ",", RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", RowBox[{"-", "z"}]}], "]"}]}], ")"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ")"}]}], ",", RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0553.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "b"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], ")"}]}], " ", SuperscriptBox[ RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ")"}]}], ",", RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", RowBox[{"-", "z"}]}], "]"}], "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}], " ", SuperscriptBox[ RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"2", "+", "b", "-", "c"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], ")"}]}], ",", RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", RowBox[{"-", "z"}]}], "]"}], "2"]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], "]"}], "2"]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0554.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["2", RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "b"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], ")"}]}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", RowBox[{"-", "z"}]}], "]"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ")"}]}], ",", RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"2", "+", "b", "-", "c"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", RowBox[{"-", "z"}]}], "]"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"2", "+", "b", "-", "c"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], ")"}]}], ",", RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], "]"}], "2"]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0555.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c", "+", "2"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "a"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "+", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], "]"}], "2"]], RowBox[{"(", RowBox[{ SuperscriptBox["2", RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "b"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], "]"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", RowBox[{"-", "z"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ")"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ")"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "b"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "a", "-", "b"}], ")"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], ")"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0556.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", "c"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", "b", "-", "c"}]], " ", SqrtBox["\[Pi]"]}], RowBox[{"1", "+", "b", "-", "c"}]], SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}], RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", "c"}]], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "+", "b", "-", "c"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], ",", RowBox[{"2", "+", "b", "-", "c"}], ",", FractionBox[ RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "2"]}], "]"}]}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0557.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", "c"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["4", RowBox[{"1", "+", "a", "-", "c"}]], " ", SqrtBox["\[Pi]"]}], RowBox[{"1", "+", "b", "-", "c"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "2"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}]}]], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "+", "b", "-", "c"}], ",", RowBox[{"2", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"2", "+", "b", "-", "c"}], ",", FractionBox[ RowBox[{"2", "+", "z", "-", RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]}], "z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0558.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ FractionBox["1", "2"], "+", "a", "+", "b", "-", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "+", "b", "-", RowBox[{"2", " ", "c"}]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", "\[Pi]", " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " "}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ FractionBox["3", "2"], "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}]}]], " ", SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"4", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}]], " ", RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"1", "-", "a", "+", "b"}], "3"], ",", FractionBox[ RowBox[{"2", "-", "a", "+", "b"}], "3"], ",", RowBox[{"1", "+", FractionBox[ RowBox[{"b", "-", "a"}], "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["3", "2"], "+", "b", "-", "c"}], ",", RowBox[{"1", "-", "a", "+", "c"}]}], "}"}], ",", FractionBox[ RowBox[{"27", " ", SuperscriptBox["z", "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{"4", "+", "z"}], ")"}], "3"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0559.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "2"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "+", "a"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c", "-", "2"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"Gamma", "[", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}]}], RowBox[{ RowBox[{"(", RowBox[{"2", "-", "a", "+", "b"}], ")"}], " ", RowBox[{"Gamma", "[", RowBox[{"3", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], "]"}]}]], " ", SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", RowBox[{"2", "-", "a", "+", "b"}], ",", RowBox[{"2", "-", "a", "+", "c"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"3", "-", "a", "+", "b"}], ",", RowBox[{"3", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}]}], "}"}], ",", FractionBox[ RowBox[{"4", " ", "z"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], "2"]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0560.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "2"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "a"}], "-", "b", "+", "c"}], ")"}]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", "c"}], ")"}]}]], " ", RowBox[{"Gamma", "[", RowBox[{"2", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Hypergeometric2F1Regularized", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"5", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"3", " ", "b"}], "-", "c"}], ")"}]}], ",", RowBox[{"-", "z"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0561.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", "a"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c", "+", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"2", " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], "]"}]}]], RowBox[{"(", RowBox[{ SuperscriptBox["z", "b"], " ", RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", "+", "b", "-", "c"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], ",", RowBox[{"-", "z"}]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0562.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", "a"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c", "+", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " "}], RowBox[{"2", " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], "]"}]}]], SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "3"}], "-", RowBox[{"2", " ", "b"}], "+", RowBox[{"2", " ", "c"}]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], ")"}], " ", RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "-", "b", "+", "c"}], ",", RowBox[{ RowBox[{"-", "3"}], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{"2", "+", "b", "-", "c"}], ")"}], " ", "z", " ", RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", "c"}], ",", RowBox[{ RowBox[{"-", "2"}], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0563.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "c"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "c"}], ")"}], " ", "\[Pi]"}], "]"}]}], RowBox[{"b", "-", "c"}]], SuperscriptBox["z", "b"], RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"1", "-", "a", "-", "c"}], "2"], " ", "+", "b"}], ",", FractionBox[ RowBox[{"a", "-", "c"}], "2"], ",", RowBox[{"1", "+", "b", "-", "c"}], ",", RowBox[{"-", "z"}]}], "]"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"a", "+", "c"}], "2"], "-", "b"}], ",", FractionBox[ RowBox[{"1", "-", "a", "+", "c"}], "2"], ",", RowBox[{"1", "-", "b", "+", "c"}], ",", RowBox[{"-", "z"}]}], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0564.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "c"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["\[Pi]"], RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "c"}], ")"}], " ", "\[Pi]"}], "]"}]}], RowBox[{"b", "-", "c"}]], " ", SuperscriptBox["z", "b"], RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"a", "-", "b"}], ",", RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"1", "+", "b", "-", "c"}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}]}]}], "]"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"a", "-", "b"}], ",", RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"1", "-", "b", "+", "c"}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0565.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "c"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]], " ", SuperscriptBox["z", "b"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ",", RowBox[{"b", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ",", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0566.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "c"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ")"}], " ", "\[Pi]"}]], " ", "\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{"a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], "]"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "b"}]], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ",", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "b", "+", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0567.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "c"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ")"}], " ", "\[Pi]"}]], " ", SqrtBox["\[Pi]"], RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}]}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b", "-", "c"}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "b", "+", "c"}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0568.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a", ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"Log", "[", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0569.01"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["4", SqrtBox["\[Pi]"]], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]], RowBox[{ RowBox[{"EllipticK", "[", FractionBox[ RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "2"], "]"}], "^", "2"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0570.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"8", " "}], RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", SuperscriptBox[ RowBox[{"EllipticK", "[", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}], "2"], "z"], "]"}], "2"]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0571.01"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", SqrtBox["\[Pi]"]], SuperscriptBox["z", RowBox[{"a", "-", "1"}]], SuperscriptBox[ RowBox[{"ArcSinh", "[", SqrtBox["z"], "]"}], "2"]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0572.01"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", SqrtBox["\[Pi]"]], SuperscriptBox["z", RowBox[{"a", "-", "1"}]], SuperscriptBox[ RowBox[{"Log", "[", RowBox[{ RowBox[{"Sqrt", "[", "z", "]"}], "+", RowBox[{"Sqrt", "[", RowBox[{"1", "+", "z"}], "]"}]}], "]"}], "2"]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0573.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]], RowBox[{"(", RowBox[{ RowBox[{"2", RowBox[{"EllipticE", "[", RowBox[{"-", "z"}], "]"}]}], "-", "\[Pi]"}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0574.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"-", "1"}]}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"Gamma", "[", RowBox[{"-", "a"}], "]"}]}], RowBox[{"(", RowBox[{ RowBox[{"PolyGamma", "[", RowBox[{"a", "+", "1"}], "]"}], "+", "EulerGamma"}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0575.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"-", "1"}]}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"Gamma", "[", RowBox[{"-", "a"}], "]"}]}], RowBox[{"HarmonicNumber", "[", "a", "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0576.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}]}], "}"}], ",", RowBox[{"-", "1"}]}], "]"}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "3"]}], "]"}], SqrtBox[ RowBox[{"Gamma", "[", SubscriptBox["a", "1"], "]"}]], SqrtBox[ RowBox[{"Gamma", "[", SubscriptBox["a", "2"], "]"}]], " ", SqrtBox[ RowBox[{"Gamma", "[", SubscriptBox["a", "3"], "]"}]], " ", SqrtBox[ RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"], "-", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], "]"}]], " ", RowBox[{"ThreeJSymbol", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"], "-", SubscriptBox["b", "2"]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "3"], "+", SubscriptBox["b", "2"]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"], "-", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ")"}]}]}], "}"}]}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}]], " ", SqrtBox[ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}]], " ", SqrtBox[ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "1"]}], "]"}]], " ", SqrtBox[ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}]], " ", SqrtBox[ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], "]"}]], " ", SqrtBox[ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "2"]}], "]"}]]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"Re", "[", RowBox[{ SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"], "-", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], "]"}], ">", "1"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0577.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}]}], "}"}], ",", RowBox[{"-", "1"}]}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "3"]}], "]"}], " ", SqrtBox[ RowBox[{"Gamma", "[", SubscriptBox["a", "1"], "]"}]], SqrtBox[ RowBox[{"Gamma", "[", SubscriptBox["a", "2"], "]"}]], " ", SqrtBox[ RowBox[{"Gamma", "[", SubscriptBox["a", "3"], "]"}]], " ", SqrtBox[ RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"], "-", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], "]"}]], " ", RowBox[{ RowBox[{"ThreeJSymbol", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"], "-", SubscriptBox["b", "2"]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "3"], "+", SubscriptBox["b", "2"]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"], "-", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ")"}]}]}], "}"}]}], "]"}], "/", RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}]], " ", SqrtBox[ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}]], " ", SqrtBox[ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "1"]}], "]"}]], " ", SqrtBox[ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}]], " ", SqrtBox[ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], "]"}]], " ", SqrtBox[ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "2"]}], "]"}]]}], ")"}]}]}]}], "/;", RowBox[{ RowBox[{"Re", "[", RowBox[{ SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"], "-", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], "]"}], ">", "1"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0578.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,3,4,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}], ",", RowBox[{"{", SubscriptBox["a", "4"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", SubscriptBox["b", "2"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "4"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], "]"}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "4"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "3"]}]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "2"]}], "+", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "2"]}], "]"}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["a", "2"], "-", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["a", "4"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "3"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["a", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0579.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ FractionBox["1", "2"], "+", "c"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "c"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "b"}], "+", RowBox[{"2", " ", "c"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"2", "-", RowBox[{"2", "a"}], "+", RowBox[{"2", " ", "c"}]}]], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{"2", "-", RowBox[{"2", "a"}], "+", RowBox[{"2", " ", "c"}]}], "]"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"2", "-", RowBox[{"2", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"-", FractionBox["2", SqrtBox["z"]]}]}], "]"}], " ", RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"2", "-", RowBox[{"2", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0580.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ FractionBox["1", "2"], "+", "c"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "c"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "b"}], "+", RowBox[{"2", " ", "c"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["4", RowBox[{"1", "-", "a", "+", "c"}]], SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], "]"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["2", SqrtBox["z"]]}]], RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"1", "-", "a", "-", "b", "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}], " ", RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0581.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "c"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "c"}], ")"}], " ", "\[Pi]"}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "b"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], "-", RowBox[{ RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0582.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "c", "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], "+", RowBox[{ RowBox[{"BesselI", "[", RowBox[{ RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], ")"}], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], ")"}], " ", "\[Pi]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0583.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "4"], "+", "a"}], ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["3", "4"], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", "4"], "+", "a"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", "\[Pi]", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"Erfc", "[", FractionBox[ SqrtBox["2"], SuperscriptBox["z", RowBox[{"1", "/", "4"}]]], "]"}], " ", RowBox[{"Erfi", "[", FractionBox[ SqrtBox["2"], SuperscriptBox["z", RowBox[{"1", "/", "4"}]]], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0584.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,4,4,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{"c", "+", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"2", " ", "c"}], "-", "a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "b"}], "+", RowBox[{"2", " ", "c"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"2", "a"}], "-", RowBox[{"2", " ", "c"}]}]], " ", SqrtBox["\[Pi]"], RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"a", "+", "b", "-", RowBox[{"2", " ", "c"}]}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", " ", "c"}]}]], RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{"a", "+", "b", "-", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"2", "a"}], "-", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"-", FractionBox[ RowBox[{"2", " ", "\[ImaginaryI]"}], SqrtBox["z"]]}]}], "]"}], " ", RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{"a", "+", "b", "-", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"2", "a"}], "-", RowBox[{"2", " ", "c"}]}], ",", FractionBox[ RowBox[{"2", " ", "\[ImaginaryI]"}], SqrtBox["z"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0585.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}], ",", "b", ",", RowBox[{ RowBox[{"2", "a"}], "-", "b", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["4", RowBox[{ RowBox[{"-", "a"}], "+", "b"}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{"-", FractionBox["1", "z"]}]]}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", FractionBox["1", "z"]}]]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0586.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}], ",", "b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["4", RowBox[{"1", "+", "a", "-", "b"}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "b"}]], " ", RowBox[{"ExpIntegralE", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{"-", FractionBox["1", "z"]}]]}]}], "]"}], " ", RowBox[{"ExpIntegralE", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", FractionBox["1", "z"]}]]}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0587.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "4"], "+", "a"}], ",", RowBox[{ FractionBox["1", "2"], "+", "a"}], ",", RowBox[{ FractionBox["3", "4"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", "4"], "+", "a"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["1", "2"], "-", RowBox[{"FresnelC", "[", FractionBox["2", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]], "]"}]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["1", "2"], "-", RowBox[{"FresnelS", "[", FractionBox["2", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]], "]"}]}], ")"}], "2"]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0588.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "4"]}], ",", RowBox[{"a", "+", FractionBox["1", "2"]}], ",", RowBox[{ FractionBox["3", "4"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", "4"], "+", "a"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"Erfc", "[", FractionBox[ SqrtBox["2"], SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "4"}]]], "]"}], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "4"}]], " ", RowBox[{"Erfi", "[", FractionBox[ SqrtBox["2"], SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "4"}]]], "]"}]}], SqrtBox[ RowBox[{"-", SqrtBox[ RowBox[{"-", "z"}]]}]]]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0589.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}], ",", RowBox[{ FractionBox["1", "2"], "+", "a"}], ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "a"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"CosIntegral", "[", FractionBox["2", SqrtBox["z"]], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["\[Pi]", "2"]}], "+", RowBox[{"SinIntegral", "[", FractionBox["2", SqrtBox["z"]], "]"}]}], ")"}], "2"]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0590.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={1,4,4,4}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"], ",", SubscriptBox["a", "4"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"], ",", SubscriptBox["b", "4"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "4"], "+", SubscriptBox["b", "1"]}], "]"}], " ", SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "4"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0591.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", "d", ",", "e"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"f", ",", RowBox[{ RowBox[{"-", "1"}], "+", "a"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", "e"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["z", "b"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "d"}], "]"}], " "}], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "a", "+", "b"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "b", "-", "e"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "e"}], ")"}], " ", RowBox[{"Gamma", "[", RowBox[{"2", "+", "b", "-", "f"}], "]"}]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "b", "-", "e"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "f"}], ")"}], " ", RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"1", "+", "b", "-", "c"}], ",", RowBox[{"1", "+", "b", "-", "d"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", "-", "a", "+", "b"}], ",", RowBox[{"2", "+", "b", "-", "f"}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "e"}], "+", "f"}], ")"}], " ", RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", "b", "-", "c"}], ",", RowBox[{"1", "+", "b", "-", "d"}], ",", RowBox[{"1", "+", "b", "-", "e"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", "+", "b", "-", "e"}], ",", RowBox[{"2", "+", "b", "-", "f"}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0592.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", "d", ",", "e"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", "e"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", "c"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "d"}], "]"}], SuperscriptBox["z", "b"], RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"1", "+", "b", "-", "d"}], ",", RowBox[{"2", "-", "a", "+", "b"}], ",", RowBox[{"-", "z"}]}], "]"}], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "a", "+", "b"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "-", "e"}], ")"}]}]], "+", FractionBox[ RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "+", "b", "-", "c"}], ",", RowBox[{"1", "+", "b", "-", "d"}], ",", RowBox[{"2", "+", "b", "-", "c"}], ",", RowBox[{"-", "z"}]}], "]"}], RowBox[{ RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}], " ", RowBox[{"(", RowBox[{"c", "-", "e"}], ")"}]}]], "+", FractionBox[ RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "+", "b", "-", "e"}], ",", RowBox[{"1", "+", "b", "-", "d"}], ",", RowBox[{"2", "+", "b", "-", "e"}], ",", RowBox[{"-", "z"}]}], "]"}], RowBox[{ RowBox[{"(", RowBox[{"1", "+", "b", "-", "e"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "e"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "c"}], "+", "e"}], ")"}]}]]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0593.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", "d", ",", RowBox[{"a", "-", "c", "+", "d"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"a", "+", "d", "-", "1"}], "2"], ",", FractionBox[ RowBox[{"a", "+", "d"}], "2"], ",", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b", "+", "d"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["2", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "d"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "d"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b", "+", "c", "-", "d"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "d"}], "]"}], "2"]}], ")"}]}], " ", SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "-", "z"}]], " ", SqrtBox[ RowBox[{"-", "z"}]]}], "+", RowBox[{"2", " ", "z"}]}], ")"}], RowBox[{"1", "-", "a", "+", "b"}]], RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"1", "+", "b", "-", "c"}], ",", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "d"}], ",", RowBox[{ RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "-", "z"}]], " ", SqrtBox[ RowBox[{"-", "z"}]]}], "-", RowBox[{"2", " ", "z"}]}]}], "]"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"1", "-", "a", "+", "b", "+", "c", "-", "d"}], ",", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "d"}], ",", RowBox[{ RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "-", "z"}]], " ", SqrtBox[ RowBox[{"-", "z"}]]}], "-", RowBox[{"2", " ", "z"}]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0594.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", "d", ",", RowBox[{"a", "-", "c", "+", "d"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"a", "+", "d", "-", "1"}], "2"], ",", FractionBox[ RowBox[{"a", "+", "d"}], "2"], ",", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b", "+", "d"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["2", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "d"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "d"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b", "+", "c", "-", "d"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "d"}], "]"}], "2"]}], ")"}]}], " ", SuperscriptBox["z", "b"], RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"1", "+", "b", "-", "c"}], ",", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "d"}], ",", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox["z"], RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{"z", "+", "1"}]], " ", "+", SqrtBox["z"]}], ")"}]}]}], "]"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"1", "+", "b", "-", "c"}], ",", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "d"}], ",", RowBox[{"2", " ", SqrtBox["z"], RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{"z", "+", "1"}]], " ", "-", SqrtBox["z"]}], ")"}]}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0595.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", "d", ",", RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", "a"}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", "c"}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", "d"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "d"}], "]"}]}], RowBox[{"2", " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "d"}], "]"}]}]], " ", SuperscriptBox["z", "b"], RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}]], " ", RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "a"}], "+", "c", "+", "d"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "d"}]}], "}"}], ",", FractionBox[ RowBox[{"4", " ", "z"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], "2"]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0596.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}], ",", RowBox[{ FractionBox["1", "2"], "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"d", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}], ",", RowBox[{ FractionBox["1", "2"], "+", "d"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["4", RowBox[{"a", "-", "b", "+", "c", "-", "d"}]], RowBox[{"Gamma", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}], "]"}], " "}], RowBox[{ SqrtBox[ RowBox[{"-", "z"}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "d"}]}], "]"}]}]], SuperscriptBox["z", "b"], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "d"}]}], ",", RowBox[{"-", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}]}], "+", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "d"}]}], ",", SqrtBox[ RowBox[{"-", "z"}]]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0597.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}], ",", RowBox[{ FractionBox["1", "2"], "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"d", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}], ",", RowBox[{ FractionBox["1", "2"], "+", "d"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}], "+", RowBox[{"2", " ", "c"}], "-", RowBox[{"2", " ", "d"}]}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "d"}]}], "]"}]], SuperscriptBox["z", "b"], RowBox[{"(", RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "d"}]}], ",", RowBox[{"-", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}], "+", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "d"}]}], ",", SqrtBox[ RowBox[{"-", "z"}]]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0598.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", FractionBox[ RowBox[{"a", "+", "c", "-", "1"}], "2"], ",", FractionBox[ RowBox[{"a", "+", "c"}], "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"d", ",", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b", "+", "c"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", "a", "+", "c", "-", "d"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}]], " ", SqrtBox["\[Pi]"], RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "d"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"2", "-", "a", "+", "b", "-", "c", "+", "d"}], "]"}]}]], SuperscriptBox["z", "b"], RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"1", "+", "b", "-", "c"}], ",", RowBox[{"1", "+", "b", "-", "d"}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}]}]}], "]"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"1", "+", "b", "-", "c"}], ",", RowBox[{"2", "-", "a", "+", "b", "-", "c", "+", "d"}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0599.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "a"}], "+", "b"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], "+", "a", "+", "b", "-", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "+", "b"}], ")"}]}], ",", RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "+", "b", "-", RowBox[{"2", " ", "c"}]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", "\[Pi]", " ", RowBox[{"Gamma", "[", RowBox[{"2", "-", "a", "+", "b"}], "]"}], " "}], RowBox[{"3", " ", RowBox[{"Gamma", "[", RowBox[{ FractionBox["3", "2"], "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}]}]], " ", RowBox[{"(", RowBox[{"8", "-", "z"}], ")"}], " ", SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"4", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "2"}], "+", "a", "-", "b"}]], " ", RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"2", "-", "a", "+", "b"}], "3"], ",", RowBox[{"1", "+", FractionBox[ RowBox[{"b", "-", "a"}], "3"]}], ",", FractionBox[ RowBox[{"4", "-", "a", "+", "b"}], "3"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["3", "2"], "+", "b", "-", "c"}], ",", RowBox[{"1", "-", "a", "+", "c"}]}], "}"}], ",", FractionBox[ RowBox[{"27", " ", SuperscriptBox["z", "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{"4", "+", "z"}], ")"}], "3"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0600.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "4"], "+", "a"}], ",", RowBox[{ FractionBox["1", "2"], "+", "a"}], ",", RowBox[{ FractionBox["3", "4"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ FractionBox["1", "2"], "+", RowBox[{"4", " ", "a"}], "-", RowBox[{"4", " ", "b"}]}]], " ", "\[Pi]", " ", RowBox[{"Gamma", "[", RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], "]"}]}]], " ", SuperscriptBox["z", "b"], RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "4"], "-", "a", "+", "b"}], ",", RowBox[{ FractionBox["3", "4"], "-", "a", "+", "b"}], ",", RowBox[{"1", "+", "b", "-", "c"}], ",", FractionBox[ RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "2"]}], "]"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "4"], "-", "a", "+", "b"}], ",", RowBox[{ FractionBox["3", "4"], "-", "a", "+", "b"}], ",", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ",", FractionBox[ RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "2"]}], "]"}]}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0601.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "b", "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]], " ", SuperscriptBox["z", "b"], " ", RowBox[{"Csc", "[", RowBox[{"2", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", RowBox[{ RowBox[{"-", SqrtBox["z"]}], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}]}], "]"}], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", RowBox[{ SqrtBox["z"], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0602.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"], ",", SubscriptBox["a", "4"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}]}], "}"}], ",", RowBox[{"-", "1"}]}], "]"}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{ RowBox[{"-", "2"}], "+", SubscriptBox["b", "1"]}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "3"]}], "]"}], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "4"]}], "]"}], " "}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", SubscriptBox["b", "1"], "]"}], " "}]], " ", SqrtBox[ RowBox[{"Gamma", "[", SubscriptBox["a", "1"], "]"}]], SqrtBox[ RowBox[{"Gamma", "[", SubscriptBox["a", "2"], "]"}]], SqrtBox[ RowBox[{"Gamma", "[", SubscriptBox["a", "3"], "]"}]], " ", SqrtBox[ RowBox[{"Gamma", "[", SubscriptBox["a", "4"], "]"}]], " ", SqrtBox[ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}]], " ", SqrtBox[ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}]], " ", SqrtBox[ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}], "]"}]], " ", SqrtBox[ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "4"], "+", SubscriptBox["b", "1"]}], "]"}]], " ", RowBox[{"SixJSymbol", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", SubscriptBox["a", "1"], "+", SubscriptBox["a", "4"], "-", SubscriptBox["b", "3"]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"], "-", SubscriptBox["b", "2"]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ")"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"], "-", SubscriptBox["b", "3"]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", SubscriptBox["a", "2"], "+", SubscriptBox["a", "4"], "-", SubscriptBox["b", "2"]}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "3"]}], "-", SubscriptBox["a", "4"], "+", SubscriptBox["b", "1"]}], ")"}]}]}], "}"}]}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}]], " ", SqrtBox[ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], "]"}]], " ", SqrtBox[ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "2"]}], "]"}]], " ", SqrtBox[ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "4"], "-", SubscriptBox["b", "2"]}], "]"}]], " ", SqrtBox[ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "3"]}], "]"}]], " ", SqrtBox[ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "3"]}], "]"}]], " ", SqrtBox[ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "3"]}], "]"}]], " ", SqrtBox[ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "4"], "-", SubscriptBox["b", "3"]}], "]"}]]}], ")"}]}]}], "/;", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"], "+", SubscriptBox["a", "4"], "-", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], "\[Equal]", "2"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0603.01"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cases with ", StyleBox["m\[Equal]2 ", "Program"] }], "Subsubsection"], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,0,0,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"Hypergeometric0F1Regularized", "[", RowBox[{ RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"], "+", "1"}], ",", "z"}], "]"}]}], "-", RowBox[{ SuperscriptBox["z", SubscriptBox["b", "2"]], RowBox[{"Hypergeometric0F1Regularized", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"], "+", "1"}], ",", "z"}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0604.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{"2", " ", SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"b", "+", "c"}], ")"}]}]], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0605.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{"b", "-", "c"}], ")"}]}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"(", RowBox[{"b", "+", "c"}], ")"}], "/", "2"}]], RowBox[{"(", RowBox[{ RowBox[{"BesselI", "[", RowBox[{ RowBox[{"c", "-", "b"}], ",", RowBox[{"2", SqrtBox["z"]}]}], "]"}], "-", RowBox[{"BesselI", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", RowBox[{"2", SqrtBox["z"]}]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1091.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "b"], SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox["z"]}]]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0606.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,0,0,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", SubscriptBox["b", "3"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], "]"}]}]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", "z"}], "]"}]}], "-", RowBox[{ FractionBox[ SuperscriptBox["z", SubscriptBox["b", "2"]], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], "]"}]}]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", "z"}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0607.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"b", "-", FractionBox["1", "3"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", SqrtBox["3"]], SuperscriptBox["z", RowBox[{"b", "-", FractionBox["1", "3"]}]], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "3"}], RowBox[{ RowBox[{"z", "^", RowBox[{"(", RowBox[{"1", "/", "3"}], ")"}]}], "/", "2"}]}], "]"}], RowBox[{"Sin", "[", RowBox[{ RowBox[{"3", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}], " ", RowBox[{ RowBox[{"z", "^", RowBox[{"(", RowBox[{"1", "/", "3"}], ")"}]}], "/", "2"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0608.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,0,0,4}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "3"], ",", SubscriptBox["b", "4"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["z", SubscriptBox["b", "1"]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", "z"}], "]"}]}], "-", RowBox[{ SuperscriptBox["z", SubscriptBox["b", "2"]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", "z"}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0609.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"b", "+", FractionBox["1", "2"]}], ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", "b"], RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"BesselK", "[", RowBox[{"0", ",", RowBox[{"4", " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]}], "]"}]}], "\[Pi]"], "-", RowBox[{"BesselY", "[", RowBox[{"0", ",", RowBox[{"4", " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0610.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,0,1,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", SubscriptBox["a", "1"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}]], RowBox[{"Hypergeometric1F1Regularized", "[", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"-", "z"}]}], "]"}]}], "-", RowBox[{ FractionBox[ SuperscriptBox["z", SubscriptBox["b", "2"]], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}]], RowBox[{"Hypergeometric1F1Regularized", "[", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0611.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", "z"}]], SuperscriptBox["z", "b"], " ", RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{"a", "-", "c"}], ",", RowBox[{"1", "-", "c", "+", "b"}], ",", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0612.01"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"a", "-", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], RowBox[{"Gamma", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", "z"}], "]"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0613.01"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"a", "-", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], RowBox[{"GammaRegularized", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", "z"}], "]"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0614.01"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"a", "-", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", "b"], " ", RowBox[{"ExpIntegralE", "[", RowBox[{ RowBox[{"a", "-", "b"}], ",", "z"}], "]"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0615.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"2", "a"}], "-", RowBox[{"2", "b"}], "-", "1"}]], SuperscriptBox["\[ExponentialE]", RowBox[{"-", "z"}]], " ", SuperscriptBox["z", "b"], " ", RowBox[{"HermiteH", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", "a"}], "+", RowBox[{"2", "b"}]}], ",", SqrtBox["z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0616.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]]}], SqrtBox["\[Pi]"]], SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "z"}], "/", "2"}]], RowBox[{"BesselK", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["z", "2"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0617.01"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"ExpIntegralEi", "[", RowBox[{"-", "z"}], "]"}]}], "+", RowBox[{"Log", "[", RowBox[{"-", FractionBox["1", "z"]}], "]"}], "-", RowBox[{"Log", "[", RowBox[{"-", "z"}], "]"}], "+", RowBox[{"2", " ", RowBox[{"Log", "[", "z", "]"}]}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0618.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"Erfc", "[", RowBox[{"Sqrt", "[", "z", "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0619.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,0,1,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", SubscriptBox["a", "1"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", SubscriptBox["b", "3"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "-", RowBox[{ FractionBox[ SuperscriptBox["z", SubscriptBox["b", "2"]], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0620.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", FractionBox[ RowBox[{"b", "+", "c"}], "2"]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}], " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}], " ", "\[Pi]"}], "]"}]}], "+", RowBox[{ RowBox[{"BesselY", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}], " ", "\[Pi]"}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0621.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "-", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"\[Pi]", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}], "+", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}]}], SqrtBox["\[Pi]"]]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0622.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["4", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]]}], SqrtBox["\[Pi]"]], RowBox[{"(", RowBox[{ RowBox[{"Gamma", "[", RowBox[{ RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}], "-", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"Im", "[", "z", "]"}], "<", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0623.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{ SuperscriptBox["z", "b"], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"\[Pi]", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}], "+", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}]}], SqrtBox["\[Pi]"]]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0624.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "+", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", "b"], SqrtBox["\[Pi]"]], RowBox[{"(", RowBox[{ RowBox[{ SqrtBox["z"], " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"\[Pi]", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}], "+", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"\[Pi]", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}], "+", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0625.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"a", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"b", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], " ", "\[Pi]"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]]}], SqrtBox["\[Pi]"]], RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "\[ImaginaryI]", " ", "b", " ", "\[Pi]"}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "\[ImaginaryI]", " ", "a", " ", "\[Pi]"}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"-", "\[Pi]"}], "<", RowBox[{"Arg", "[", "z", "]"}], "\[LessEqual]", RowBox[{"-", FractionBox["\[Pi]", "2"]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0626.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"a", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"b", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["4", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], " ", "\[Pi]"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]]}], SqrtBox["\[Pi]"]]}], RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "\[ImaginaryI]", " ", "b", " ", "\[Pi]"}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "\[ImaginaryI]", " ", "a", " ", "\[Pi]"}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"Im", "[", "z", "]"}], "<", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0627.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", SqrtBox["\[Pi]"]}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0628.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", " ", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ FractionBox["1", "2"], "+", "a", "+", "b"}], ")"}]}]], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "b"}], ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0629.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"a", "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"b", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox["z"], " ", RowBox[{"Cos", "[", RowBox[{"2", " ", SqrtBox["z"]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ")"}], " ", RowBox[{"Sin", "[", RowBox[{"2", " ", SqrtBox["z"]}], "]"}]}]}], ")"}]}], RowBox[{"2", " ", SqrtBox["\[Pi]"]}]]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0630.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"a", "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"b", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{ SuperscriptBox["z", "b"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"Cos", "[", RowBox[{"2", " ", SqrtBox["z"]}], "]"}]}], "+", RowBox[{ SqrtBox["z"], " ", RowBox[{"Sin", "[", RowBox[{"2", " ", SqrtBox["z"]}], "]"}]}]}], ")"}]}], SqrtBox["\[Pi]"]]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0631.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SqrtBox["\[Pi]"], "2"], RowBox[{"Sec", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}], "2"], "-", SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], "2"]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0632.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ SqrtBox["\[Pi]"], "2"]}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}]}], "+", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0633.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}]}], "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Sec", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", SqrtBox["z"]}]}], "]"}], "-", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", SqrtBox["z"]}]}], "]"}]}], ")"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0634.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"Sec", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ")"}], " ", "\[Pi]"}], "]"}], "2"], " ", SuperscriptBox["z", "a"], " ", RowBox[{"(", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", SqrtBox["z"]}]}], "]"}], "+", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", SqrtBox["z"]}]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0635.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", SuperscriptBox["z", RowBox[{"a", "-", "1"}]]}], SqrtBox["\[Pi]"]]}], RowBox[{"CosIntegral", "[", RowBox[{"2", " ", SqrtBox["z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0636.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", FractionBox["3", "4"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "4"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", RowBox[{"FresnelC", "[", FractionBox[ RowBox[{"2", " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}], SqrtBox["\[Pi]"]], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0637.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"(", RowBox[{ SqrtBox["\[Pi]"], "-", RowBox[{ FractionBox["2", SqrtBox["\[Pi]"]], RowBox[{"SinIntegral", "[", RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0638.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", FractionBox["1", "4"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["3", "4"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", RowBox[{"FresnelS", "[", FractionBox[ RowBox[{"2", " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}], SqrtBox["\[Pi]"]], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0639.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,0,1,4}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", SubscriptBox["a", "1"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "3"], ",", SubscriptBox["b", "4"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ FractionBox["1", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}]], RowBox[{"(", RowBox[{ SuperscriptBox["z", SubscriptBox["b", "1"]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], ")"}]}]}], "+", RowBox[{ FractionBox["1", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}]], RowBox[{"(", RowBox[{ SuperscriptBox["z", SubscriptBox["b", "2"]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], ")"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1092.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "6"]}], "+", "a"}], ",", RowBox[{ FractionBox["1", "6"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", SqrtBox["3"]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"3", " ", SuperscriptBox["z", RowBox[{"1", "/", "3"}]]}], "2"]}]], " ", RowBox[{"Cos", "[", RowBox[{ FractionBox["3", "2"], " ", SqrtBox["3"], " ", SuperscriptBox["z", RowBox[{"1", "/", "3"}]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1093.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,0,1,5}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", SubscriptBox["a", "1"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "3"], ",", SubscriptBox["b", "4"], ",", SubscriptBox["b", "5"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "4"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "5"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "-", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["z", SubscriptBox["b", "2"]], " "}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "4"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "5"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0640.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", "a", ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["z", "b"], " "}], SqrtBox["\[Pi]"]], RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0641.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}], ",", RowBox[{"a", "+", RowBox[{"1", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", "a", ",", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"Cosh", "[", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}], "]"}]}], RowBox[{ SqrtBox["2"], " ", SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]]}]]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0642.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "+", RowBox[{"1", "/", "4"}]}], ",", RowBox[{"a", "+", RowBox[{"3", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["z", "a"], " ", RowBox[{"Cos", "[", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}], "]"}], " ", RowBox[{"Sinh", "[", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}], "]"}]}], RowBox[{ SqrtBox["2"], " ", SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]]}]]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0643.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}\[Equal]{2,0,2,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}]}]], SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], "}"}], ",", "z"}], "]"}]}], "-", RowBox[{ FractionBox["1", RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], "]"}]}]], SuperscriptBox["z", SubscriptBox["b", "2"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], "}"}], ",", "z"}], "]"}]}]}], ")"}], " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0644.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ SuperscriptBox["z", SubscriptBox["b", "1"]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"], "-", "1"}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"1", "-", "z"}]}], "]"}], " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0645.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ SuperscriptBox["z", RowBox[{ SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"], "-", SubscriptBox["a", "2"]}]], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"], "-", "1"}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], ",", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"1", "-", FractionBox["1", "z"]}]}], "]"}], " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0646.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "d"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{"c", "-", "d"}], "]"}]], SuperscriptBox["z", "d"], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b", "+", "c", "-", "d"}]], RowBox[{"JacobiP", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b", "+", "c", "-", "d"}], ",", RowBox[{ RowBox[{"-", "b"}], "+", "d"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "z"}]}]}], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0647.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "d"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "d"}], "]"}], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], "]"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "a"}], "+", "b", "+", "d"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b", "-", "d", "+", "c"}]], RowBox[{"JacobiP", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "d"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b", "-", "d", "+", "c"}], ",", RowBox[{"a", "-", "c"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox["2", "z"]}]}], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0648.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}], " ", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"b", "-", "c"}]}], "]"}]}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "c"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ RowBox[{"-", "a"}], "+", "c"}]], " ", RowBox[{"GegenbauerC", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "c"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox["2", "z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0649.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}]}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ",", RowBox[{"a", "-", "c"}], ",", "3", ",", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox["2", "z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0650.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ")"}], " ", "\[Pi]"}]], " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], "]"}]}]], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ")"}]}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", "3", ",", FractionBox[ RowBox[{"2", "-", "z"}], RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "-", "z"}]]}]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"Re", "[", "z", "]"}], ">", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0651.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}]], " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ")"}]}], "-", "b"}]], " ", SuperscriptBox["z", "b"], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ FractionBox["3", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", "2", ",", SqrtBox["z"]}], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0652.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "a"}], "+", "b", "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["\[Pi]"], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{"a", "-", "b"}], "]"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}]], " ", SuperscriptBox["z", RowBox[{"b", "+", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ")"}]}]}]], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", "3", ",", FractionBox[ RowBox[{"1", "+", "z"}], RowBox[{"2", " ", SqrtBox["z"]}]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0653.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "a"}], "+", "b", "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", "\[Pi]"}]], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"a", "-", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], "]"}]}]], SuperscriptBox["z", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}]}], "+", "b"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}]], RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", "3", ",", FractionBox[ RowBox[{"1", "+", "z"}], RowBox[{"1", "-", "z"}]]}], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0654.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b", "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}]], RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " "}]}], RowBox[{"\[Pi]", " ", SqrtBox[ RowBox[{"1", "-", "z"}]]}]], SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ")"}]}]], " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ",", "2", ",", RowBox[{"-", SqrtBox[ RowBox[{"1", "-", "z"}]]}]}], "]"}], "+", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ",", "2", ",", SqrtBox[ RowBox[{"1", "-", "z"}]]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0655.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "+", "c"}], ")"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"b", "-", "c", "+", "1"}], "]"}], " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ")"}]}], "]"}], " ", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ",", RowBox[{"b", "-", "c"}]}], "]"}]}]], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ")"}]}]], " ", SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "+", "c"}], ")"}]}]], " ", RowBox[{"GegenbauerC", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ")"}]}], ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "z"}]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0656.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "+", "c"}], ")"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ")"}]}]], " ", SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "+", RowBox[{"2", " ", "b"}], "+", "c"}], ")"}]}]], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "c"}], ")"}]}], ",", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", "a", "-", "c"}], ")"}]}], "+", "b"}], ",", "2", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "z"}]}]}], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0657.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ FractionBox["1", "2"], "+", RowBox[{"2", " ", "a"}], "-", "b", "-", "c"}], "]"}], " ", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{ RowBox[{"4", " ", "a"}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"b", "+", "c"}], ")"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "c"}]}]}], "]"}]}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "a"}], "+", "b", "+", "c"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", RowBox[{"2", " ", "a"}], "-", "b", "-", "c"}]], " ", RowBox[{"GegenbauerC", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0658.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", RowBox[{"2", " ", "a"}], "-", "b", "-", "c"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{"a", "-", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "+", RowBox[{"2", " ", "c"}], "+", "1"}], ")"}]}]}]], " ", SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "b"}], "+", RowBox[{"2", " ", "c"}]}], ")"}]}]], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "b", "+", "c"}], ",", RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ",", "3", ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0659.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "c"}]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"c", "-", "b"}], ")"}], " ", "\[Pi]"}]], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}]}], "]"}]}]], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{"a", "-", FractionBox[ RowBox[{"b", "+", "c", "+", "1"}], "2"]}]], " ", SuperscriptBox["z", FractionBox[ RowBox[{"b", "+", "c"}], "2"]], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b", "-", "c"}], ",", RowBox[{"b", "-", "c"}], ",", "3", ",", FractionBox["1", SqrtBox[ RowBox[{"1", "-", "z"}]]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0660.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ")"}], " ", SqrtBox["\[Pi]"]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"Sinh", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "a"}], "+", RowBox[{"2", "b"}]}], ")"}], " ", RowBox[{"ArcTanh", "[", SqrtBox[ RowBox[{"1", "-", "z"}]], "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0661.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{"4", " ", SqrtBox[ RowBox[{"1", "-", "z"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "a"}]], " ", RowBox[{"ChebyshevU", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "a", "-", "b"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox["2", "z"]}]}], "]"}], " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ")"}], " ", SqrtBox["\[Pi]"]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0662.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"8", " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ")"}], " ", SqrtBox["\[Pi]"]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["5", "2"]}], "+", "a"}]], " ", SqrtBox[ RowBox[{"1", "-", "z"}]], " ", RowBox[{"(", RowBox[{"2", "-", "z"}], ")"}], " ", RowBox[{"ChebyshevU", "[", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "5"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ")"}]}], ",", FractionBox[ RowBox[{"8", "-", RowBox[{"8", " ", "z"}], "+", SuperscriptBox["z", "2"]}], SuperscriptBox["z", "2"]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"Re", "[", "z", "]"}], ">", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0663.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", "b"}]}], ")"}]}]], SuperscriptBox["z", "b"], RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "-", "z"}]]}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", "b"}]}]], "-", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", "b"}]}]]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0664.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", SuperscriptBox["2", RowBox[{ RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "1"}]]}], RowBox[{ SqrtBox["\[Pi]"], RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", "b"}]}], ")"}]}]], SuperscriptBox["z", "b"], RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{"1", "+", SqrtBox["z"]}]], "-", SqrtBox[ RowBox[{"1", "-", SqrtBox["z"]}]]}], ")"}], RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"4", " ", "a"}], "-", RowBox[{"4", "b"}]}]], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{"1", "+", SqrtBox["z"]}]], "+", SqrtBox[ RowBox[{"1", "-", SqrtBox["z"]}]]}], ")"}], RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"4", " ", "a"}], "-", RowBox[{"4", "b"}]}]]}], ")"}], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0665.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], " "}], RowBox[{"2", " ", SqrtBox["\[Pi]"], SqrtBox[ RowBox[{"1", "-", "z"}]]}]], SuperscriptBox["z", "b"], RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "-", "z"}]]}], ")"}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}]], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}], ")"}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}]]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0666.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "-", "1"}]], " "}], RowBox[{ SqrtBox["\[Pi]"], SqrtBox[ RowBox[{"1", "-", "z"}]]}]], SuperscriptBox["z", "b"], RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{"1", "+", SqrtBox["z"]}]], "+", SqrtBox[ RowBox[{"1", "-", SqrtBox["z"]}]]}], ")"}], RowBox[{"4", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}]], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{"1", "+", SqrtBox["z"]}]], "-", SqrtBox[ RowBox[{"1", "-", SqrtBox["z"]}]]}], ")"}], RowBox[{"4", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}]]}], ")"}], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0667.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], RowBox[{ SqrtBox["\[Pi]"], SqrtBox[ RowBox[{"1", "-", "z"}]]}]], SuperscriptBox["z", "a"], " ", RowBox[{"ChebyshevT", "[", RowBox[{ RowBox[{"a", "-", "b"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox["2", "z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0668.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["z", "a"], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], SqrtBox[ RowBox[{"1", "-", "z"}]]}]], RowBox[{"ChebyshevT", "[", RowBox[{ FractionBox[ RowBox[{"a", "-", "b"}], "2"], ",", FractionBox[ RowBox[{"8", "-", RowBox[{"8", " ", "z"}], "+", SuperscriptBox["z", "2"]}], SuperscriptBox["z", "2"]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"Re", "[", "z", "]"}], ">", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0669.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "b"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", "b"], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "z"}]}]}], "]"}], " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0670.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", "b"}], "-", "a", "+", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], SqrtBox["\[Pi]"]], SuperscriptBox["z", "b"], RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "a"}], "-", RowBox[{"2", "b"}], "-", "1"}], ")"}], " ", RowBox[{"ArcCos", "[", RowBox[{"Sqrt", "[", "z", "]"}], "]"}]}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"1", "-", "z"}], "]"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0671.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["z", "b"], " "}], RowBox[{ SqrtBox["\[Pi]"], SqrtBox[ RowBox[{"1", "-", "z"}]]}]], RowBox[{"ChebyshevT", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "z"}]}]}], "]"}], " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0672.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", "b"}], "-", "a", "+", "2"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b", "-", "1"}], ")"}], SqrtBox["\[Pi]"]}]], SuperscriptBox["z", "b"], RowBox[{"Sin", "[", RowBox[{"2", RowBox[{"(", RowBox[{"a", "-", "b", "-", "1"}], ")"}], " ", RowBox[{"ArcCos", "[", RowBox[{"Sqrt", "[", "z", "]"}], "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0673.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "2"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], " "}], RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b", "-", "1"}], ")"}], " ", SqrtBox["\[Pi]"]}]], SuperscriptBox["z", RowBox[{"b", "+", FractionBox["1", "2"]}]], " ", SqrtBox[ RowBox[{"1", "-", "z"}]], " ", RowBox[{"ChebyshevU", "[", RowBox[{ RowBox[{"a", "-", "b", "-", "2"}], ",", RowBox[{ RowBox[{"2", " ", "z"}], "-", "1"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0674.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "+", "b"}], ")"}]}]], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", FractionBox[ RowBox[{"1", "+", "z"}], RowBox[{"2", " ", SqrtBox["z"]}]]}], "]"}], " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0675.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"1", "+", "b"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}]], SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "a", "+", "b"}], ")"}]}]], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["z", "2"]}], ")"}], " ", RowBox[{"ChebyshevU", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "a", "-", "b"}], ")"}]}], ",", FractionBox[ RowBox[{"1", "+", SuperscriptBox["z", "2"]}], RowBox[{"2", " ", "z"}]]}], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0676.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox["2", "z"]}]}], "]"}], " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0677.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", SqrtBox["\[Pi]"]], SuperscriptBox["z", "a"], RowBox[{"Cosh", "[", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}], " ", RowBox[{"ArcTanh", "[", RowBox[{"Sqrt", "[", RowBox[{"1", "-", "z"}], "]"}], "]"}]}], "]"}], RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"1", "-", "z"}], "]"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0678.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Floor", "[", RowBox[{"n", "/", "2"}], "]"}]}], "+", "b"}], ",", RowBox[{"n", "+", RowBox[{"1", "/", "2"}], "-", RowBox[{"Floor", "[", RowBox[{"n", "/", "2"}], "]"}], "+", "b"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "b"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", RowBox[{"Floor", "[", RowBox[{"n", "/", "2"}], "]"}]}], "/", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"1", "/", "2"}], "+", "n", "-", RowBox[{"Floor", "[", RowBox[{"n", "/", "2"}], "]"}]}], "]"}]}], RowBox[{ RowBox[{"Floor", "[", RowBox[{"n", "/", "2"}], "]"}], "!"}], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], "^", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}], "/", "2"}], "-", RowBox[{"Floor", "[", RowBox[{"n", "/", "2"}], "]"}]}], ")"}]}], SuperscriptBox["z", "b"], RowBox[{"LegendreP", "[", RowBox[{"n", ",", RowBox[{"Sqrt", "[", RowBox[{"1", "-", "z"}], "]"}]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"n", "\[Element]", "Integers"}], "\[And]", RowBox[{"n", "\[GreaterEqual]", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0679.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "2"}]}], ",", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{"\[Pi]", RowBox[{"(", RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "-", "z"}]]}], ")"}]}]], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]], RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"4", SqrtBox[ RowBox[{"1", "-", "z"}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}], ")"}], "2"]], "]"}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "z", "]"}], ">", "1"}], "\[Or]", RowBox[{ RowBox[{"Re", "[", "z", "]"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0680.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "2"}]}], ",", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], "\[Pi]"], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"3", "/", "2"}]}]], RowBox[{"(", RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}], ")"}], RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"4", SqrtBox[ RowBox[{"1", "-", "z"}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}], ")"}], "2"]], "]"}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "z", "]"}], ">", "1"}], "\[Or]", RowBox[{ RowBox[{"Re", "[", "z", "]"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0681.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "2"}]}], ",", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{"\[Pi]", RowBox[{"(", RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}], ")"}]}]], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]], RowBox[{"EllipticE", "[", RowBox[{"-", FractionBox[ RowBox[{"4", " ", SqrtBox[ RowBox[{"1", "-", "z"}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "-", "z"}]]}], ")"}], "2"]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "z", "]"}], ">", "1"}], "\[Or]", RowBox[{ RowBox[{"Re", "[", "z", "]"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0682.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "2"}]}], ",", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], "\[Pi]"], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"3", "/", "2"}]}]], RowBox[{"(", RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "-", "z"}]]}], ")"}], RowBox[{"EllipticE", "[", RowBox[{"-", FractionBox[ RowBox[{"4", " ", SqrtBox[ RowBox[{"1", "-", "z"}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "-", "z"}]]}], ")"}], "2"]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "z", "]"}], ">", "1"}], "\[Or]", RowBox[{ RowBox[{"Re", "[", "z", "]"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0683.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", SuperscriptBox["z", RowBox[{"a", "-", "1"}]]}], RowBox[{"Log", "[", "z", "]"}], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0684.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", SqrtBox["\[Pi]"]], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"ArcCos", "[", SqrtBox["z"], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0685.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", "\[Pi]"], " ", SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}]], " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], RowBox[{"EllipticK", "[", FractionBox[ RowBox[{"1", "-", SqrtBox["z"]}], "2"], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0686.01"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", SqrtBox["2"]}], RowBox[{"\[Pi]", SqrtBox[ RowBox[{ SqrtBox["z"], "+", "1"}]]}]], " ", SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}]], " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], RowBox[{"EllipticK", "[", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["z"]}], RowBox[{ SqrtBox["z"], "+", "1"}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0687.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{"\[Pi]", " ", SqrtBox[ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], "+", SqrtBox["z"]}]]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}]], " ", RowBox[{"EllipticK", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], "+", SqrtBox["z"]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0688.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{"\[Pi]", " ", SqrtBox[ RowBox[{ RowBox[{"-", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], "+", SqrtBox["z"]}]]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}]], " ", RowBox[{"EllipticK", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], "-", SqrtBox["z"]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0689.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], "\[Pi]"], SqrtBox[ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], "+", SqrtBox["z"]}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}]], " ", RowBox[{"EllipticK", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], "-", SqrtBox["z"]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0690.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", "\[Pi]"], " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]], RowBox[{"EllipticK", "[", RowBox[{"1", "-", "z"}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0691.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", "\[Pi]"], " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"EllipticK", "[", RowBox[{"1", "-", RowBox[{"1", "/", "z"}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0692.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", "\[Pi]"], " ", SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}]], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], " ", RowBox[{"EllipticK", "[", RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["z"]}], ")"}], "2"], RowBox[{"4", " ", SqrtBox["z"]}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0693.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["4", "\[Pi]"], " ", SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]], FractionBox[ RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], RowBox[{ SqrtBox["z"], "+", "1"}]], " ", RowBox[{"EllipticK", "[", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"1", "-", SqrtBox["z"]}], RowBox[{"1", "+", SqrtBox["z"]}]], ")"}], "2"], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0694.01"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", "\[Pi]"], " ", FractionBox[ RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], RowBox[{ SqrtBox[ RowBox[{"1", "-", "z"}]], "+", "1"}]], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]], " ", RowBox[{"EllipticK", "[", FractionBox[ RowBox[{"4", " ", SqrtBox[ RowBox[{"1", "-", "z"}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{"1", "-", "z"}]], "+", "1"}], ")"}], "2"]], "]"}]}]}], "/;", RowBox[{ RowBox[{"Re", "[", "z", "]"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0695.01"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", "\[Pi]"], " ", FractionBox[ RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], RowBox[{ RowBox[{"-", SqrtBox[ RowBox[{"1", "-", "z"}]]}], "+", "1"}]], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]], " ", RowBox[{"EllipticK", "[", RowBox[{"-", FractionBox[ RowBox[{"4", " ", SqrtBox[ RowBox[{"1", "-", "z"}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{"1", "-", "z"}]], "-", "1"}], ")"}], "2"]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"Re", "[", "z", "]"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0696.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}], ",", RowBox[{"a", "+", RowBox[{"1", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", "\[Pi]"], FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], SqrtBox[ RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "-", "z"}]]}]]], " ", RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "-", "z"}]]}], RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0697.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}], ",", RowBox[{"a", "+", RowBox[{"1", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", "\[Pi]"], " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], SqrtBox[ RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}]], " ", SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}]], RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "-", "z"}]]}], RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0698.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}], ",", RowBox[{"a", "+", RowBox[{"1", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", "\[Pi]"], " ", SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}]], SqrtBox[ RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "-", "z"}]]}]], RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "-", "z"}]]}], RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}]], "]"}], " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0699.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}], ",", RowBox[{"a", "+", RowBox[{"1", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", "\[Pi]"], " ", FractionBox[ SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]], SqrtBox[ RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}]]], RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "-", "z"}]]}], RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}]], "]"}], " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0700.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["z", RowBox[{"a", "-", FractionBox["1", "2"]}]]}], SqrtBox["\[Pi]"]], RowBox[{"Log", "[", FractionBox[ RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}], SqrtBox["z"]], "]"}], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0701.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", SuperscriptBox["z", RowBox[{"a", "-", FractionBox["1", "2"]}]]}], SqrtBox["\[Pi]"]]}], RowBox[{"Log", "[", FractionBox[ RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "-", "z"}]]}], SqrtBox["z"]], "]"}], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0702.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", "\[Pi]"], " ", SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], RowBox[{"EllipticK", "[", FractionBox[ RowBox[{ SqrtBox["z"], "-", "1"}], RowBox[{"2", SqrtBox["z"]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0703.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", SqrtBox["2"], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{"\[Pi]", SqrtBox[ RowBox[{ SqrtBox["z"], "+", "1"}]]}]], " ", SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]], RowBox[{"EllipticK", "[", FractionBox[ RowBox[{"1", "-", SqrtBox["z"]}], RowBox[{"1", "+", SqrtBox["z"]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0704.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", "\[Pi]"], " ", SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}]], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], SqrtBox[ RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "-", "z"}]]}]], RowBox[{"EllipticK", "[", RowBox[{"2", FractionBox[ SqrtBox[ RowBox[{"1", "-", "z"}]], "z"], RowBox[{"(", RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "-", "z"}]]}], ")"}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0705.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", "\[Pi]"], " ", SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}]], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], SqrtBox[ RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "-", "z"}]]}]], RowBox[{"EllipticK", "[", RowBox[{"2", FractionBox[ SqrtBox[ RowBox[{"1", "-", "z"}]], RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0706.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{"\[Pi]", " ", SqrtBox[ RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}]]}]], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]], RowBox[{"EllipticK", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "-", "z"}]]}], RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0707.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", "\[Pi]"], " ", FractionBox[ RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], SqrtBox[ RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "-", "z"}]]}]]], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]], RowBox[{"EllipticK", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "-", "z"}]]}], RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0708.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{"\[Pi]", " ", SqrtBox[ RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "-", "z"}]]}]]}]], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]], RowBox[{"EllipticK", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "-", "z"}]]}], RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{"1", "-", "z"}]]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0709.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", "\[Pi]"], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]], RowBox[{"EllipticE", "[", RowBox[{"1", "-", "z"}], "]"}]}]}], " ", "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0710.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", "\[Pi]"], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}], SuperscriptBox["z", "a"], RowBox[{"EllipticE", "[", RowBox[{"1", "-", FractionBox["1", "z"]}], "]"}]}]}], " ", "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0711.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"1", "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}], ",", RowBox[{ FractionBox["1", "4"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], "\[Pi]"], SqrtBox[ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], "+", SqrtBox["z"]}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], "+", SqrtBox["z"]}]], "]"}]}]}], " ", "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0712.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"1", "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}], ",", RowBox[{ FractionBox["1", "4"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{"\[Pi]", " ", SqrtBox[ RowBox[{ RowBox[{"-", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], "+", SqrtBox["z"]}]]}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], "+", SqrtBox["z"]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0713.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"1", "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}], ",", RowBox[{ FractionBox["1", "4"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], "\[Pi]"], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], SqrtBox[ RowBox[{ RowBox[{"-", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], "+", SqrtBox["z"]}]], " ", RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], "-", SqrtBox["z"]}]], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0714.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"1", "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}], ",", RowBox[{ FractionBox["1", "4"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{"\[Pi]", " ", SqrtBox[ RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], "+", SqrtBox["z"]}]]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]]}], RowBox[{ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}]], "-", SqrtBox["z"]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0715.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,0,2,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", SubscriptBox["b", "3"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", "z"}], "]"}]}], "-", RowBox[{ FractionBox[ SuperscriptBox["z", SubscriptBox["b", "2"]], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], "]"}]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", "z"}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0716.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,0,2,4}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "3"], ",", SubscriptBox["b", "4"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["z", SubscriptBox["b", "1"]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", "z"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}]}], ")"}]}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["z", SubscriptBox["b", "2"]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", "z"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], "]"}]}], ")"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1094.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["z", "a"], " "}], RowBox[{"2", " ", SqrtBox["\[Pi]"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "c"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"-", "b"}], "+", "c"}], ",", SqrtBox["z"]}], "]"}]}], "+", RowBox[{ RowBox[{"BesselI", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], ",", SqrtBox["z"]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1095.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", "a"], RowBox[{"2", " ", SqrtBox["\[Pi]"]}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"BesselI", "[", RowBox[{ RowBox[{"a", "-", "b"}], ",", SqrtBox["z"]}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", SqrtBox["z"]}], "]"}], "2"]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1096.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{ SqrtBox["2"], " ", "\[Pi]"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"Cosh", "[", SqrtBox["z"], "]"}]}], "+", RowBox[{ RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"Sinh", "[", SqrtBox["z"], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1097.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", "a"], RowBox[{"2", " ", "\[Pi]"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}], "+", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1098.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]]}], RowBox[{" ", SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]]}]], " ", RowBox[{"SinhIntegral", "[", RowBox[{"2", SqrtBox["z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1099.01"], Cell[BoxData[ RowBox[{ RowBox[{"CoshIntegral", "[", SqrtBox["z"], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]], "2"]}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", FractionBox["z", "4"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1100.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]]}], RowBox[{" ", SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]]}]]}], " ", RowBox[{"CoshIntegral", "[", RowBox[{"2", SqrtBox["z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1101.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,0,3,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", SubscriptBox["b", "3"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["z", SubscriptBox["b", "1"]], " "}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "1"]}], "]"}]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "-", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["z", SubscriptBox["b", "2"]], " "}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], "]"}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "2"]}], "]"}]}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], ")"}], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0717.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,1,1,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ RowBox[{ SuperscriptBox["z", SubscriptBox["b", "1"]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", "z"}], "]"}]}], "+", RowBox[{ SuperscriptBox["z", SubscriptBox["b", "2"]], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", "z"}], "]"}]}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0718.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " ", SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", "z"}], "]"}]}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0719.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}]}], RowBox[{"2", RowBox[{"(", RowBox[{"a", "-", "b", "-", "1"}], ")"}]}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"z", "/", "2"}]], RowBox[{"(", RowBox[{ RowBox[{"BesselK", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "a", "-", "b"}], ",", FractionBox["z", "2"]}], "]"}], "+", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", FractionBox["z", "2"]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0720.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"z", "/", "2"}]], RowBox[{"BesselK", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["z", "2"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0721.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}]}], "2"], " ", SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], "+", "a"}]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"z", "/", "2"}]], RowBox[{"(", RowBox[{ RowBox[{"BesselK", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "b"}], ",", FractionBox["z", "2"]}], "]"}], "-", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", FractionBox["z", "2"]}], "]"}]}], ")"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0722.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[ExponentialE]", "z"], " ", SuperscriptBox["z", "b"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"a", "-", "b"}], ",", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0723.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"b", "+", "1", "-", "a"}], "]"}], SuperscriptBox["z", "a"], RowBox[{"Exp", "[", "z", "]"}], RowBox[{"ExpIntegralE", "[", RowBox[{ RowBox[{"b", "+", "1", "-", "a"}], ",", "z"}], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0724.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[ExponentialE]", "z"], " ", "\[Pi]", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"Erfc", "[", SqrtBox["z"], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0725.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"Exp", "[", "z", "]"}]}], SuperscriptBox["z", "a"], RowBox[{"(", RowBox[{ RowBox[{"ExpIntegralEi", "[", RowBox[{"-", "z"}], "]"}], "+", RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ RowBox[{"Log", "[", RowBox[{"-", FractionBox["1", "z"]}], "]"}], "-", RowBox[{"Log", "[", RowBox[{"-", "z"}], "]"}]}], ")"}]}], "+", RowBox[{"Log", "[", "z", "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0726.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "b"], " ", RowBox[{"Gamma", "[", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], " ", RowBox[{"HermiteH", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}]}]}], "/;", "\[InvisibleSpace]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ RowBox[{"2", "a"}], "-", RowBox[{"2", "b"}]}], ",", "Integers"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1102.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,1,1,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", SubscriptBox["b", "3"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], SuperscriptBox["z", SubscriptBox["b", "1"]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", "z"}], "]"}]}], "-", " ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " ", SuperscriptBox["z", SubscriptBox["b", "2"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", "z"}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0727.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]], RowBox[{"Csc", "[", RowBox[{"2", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}], "2"], "-", SuperscriptBox[ RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], "2"]}], ")"}], " "}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0728.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}], "+", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}], ")"}], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0729.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0730.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ")"}]}]], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}], "-", RowBox[{"StruveL", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0731.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], "+", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", "0", ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0732.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", "b", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "+", "b"}], ")"}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}], "-", RowBox[{"StruveL", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0733.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,1,2,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", SubscriptBox["a", "2"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], RowBox[{"Hypergeometric2F1Regularized", "[", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0734.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "1"], "}"}], ",", RowBox[{"{", SubscriptBox["b", "2"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}]], SuperscriptBox["z", RowBox[{ SubscriptBox["a", "1"], "-", "1"}]], RowBox[{"JacobiP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", SubscriptBox["b", "1"], "+", SubscriptBox["a", "1"]}], ",", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", FractionBox["2", "z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0735.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "d"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "d"}], "]"}], " ", SuperscriptBox["z", RowBox[{"b", "-", "c", "+", "d"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b", "+", "c", "-", "d"}]], " ", RowBox[{"JacobiP", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b", "+", "c", "-", "d"}], ",", FractionBox[ RowBox[{"2", "+", "z"}], "z"]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0736.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "d"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "c", "+", "d"}], "]"}], " ", RowBox[{"JacobiP", "[", RowBox[{ RowBox[{ RowBox[{"-", "c"}], "+", "d"}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", RowBox[{"b", "-", "d"}], ",", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}], RowBox[{"1", "+", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0737.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}]], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "+", "c"}], ")"}]}], "-", "b", "-", "1"}]], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ",", RowBox[{"a", "-", "c"}], ",", "2", ",", SqrtBox[ FractionBox["z", RowBox[{"1", "+", "z"}]]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0738.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "b"}], "+", RowBox[{"2", " ", "c"}]}]], " ", SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}]], " ", RowBox[{"Gamma", "[", RowBox[{"2", "+", RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "c"}], "]"}], " ", RowBox[{"GegenbauerC", "[", RowBox[{ RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "c"}], ",", SqrtBox[ FractionBox["z", RowBox[{"1", "+", "z"}]]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0739.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"-", FractionBox["1", "z"]}], ")"}], RowBox[{"a", "-", "c"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Beta", "[", RowBox[{ RowBox[{"-", FractionBox["1", "z"]}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", RowBox[{"a", "-", "b"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0740.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], "]"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"-", FractionBox["1", "z"]}], ")"}], RowBox[{"a", "-", "c"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"BetaRegularized", "[", RowBox[{ RowBox[{"-", FractionBox["1", "z"]}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", RowBox[{"a", "-", "b"}]}], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0741.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "z"}], ")"}], RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", FractionBox["1", "z"]}], ")"}], FractionBox[ RowBox[{"a", "-", "c"}], "2"]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], FractionBox[ RowBox[{"a", "-", "c"}], "2"]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ",", RowBox[{"a", "-", "c"}], ",", "2", ",", FractionBox[ RowBox[{"2", "+", "z"}], "z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0742.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}]}]], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ",", RowBox[{"a", "-", "c"}], ",", "3", ",", FractionBox[ RowBox[{"2", "+", "z"}], "z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0743.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], "]"}]}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "c"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "a"}], "+", "c"}]], RowBox[{"GegenbauerC", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b", "-", "c"}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "c"}], ",", FractionBox[ RowBox[{"2", "+", "z"}], "z"]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0744.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ")"}], " ", "\[Pi]"}]], " ", SqrtBox["\[Pi]"], RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " "}], RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], "]"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ")"}]}]], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", "3", ",", FractionBox[ RowBox[{"2", "+", "z"}], RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"Re", "[", "z", "]"}], "\[GreaterEqual]", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0745.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "c"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], FractionBox[ RowBox[{"a", "-", "c"}], "2"]], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", RowBox[{"a", "-", "c"}], ",", "3", ",", FractionBox[ RowBox[{"2", "+", "z"}], "z"]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0746.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["4", RowBox[{ RowBox[{"-", "a"}], "+", "c"}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "c"}], "]"}], " ", RowBox[{"GegenbauerC", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "c"}], ",", FractionBox[ RowBox[{"2", "+", "z"}], "z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0747.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}], ")"}], " ", "\[Pi]"}]], RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " "}], SqrtBox["\[Pi]"]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}], ")"}]}]], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "b", "+", "c"}], ",", "3", ",", FractionBox[ RowBox[{"2", "+", "z"}], RowBox[{"2", " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"Re", "[", "z", "]"}], "\[GreaterEqual]", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0748.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "-", "a", "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ FractionBox[ RowBox[{"c", "-", "a"}], "2"], "+", "b"}]], SuperscriptBox[ RowBox[{"(", FractionBox["1", RowBox[{"1", "+", "z"}]], ")"}], FractionBox[ RowBox[{"a", "-", "c"}], "2"]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ FractionBox[ RowBox[{ RowBox[{"3", "a"}], "-", "c"}], "2"], "-", "b", "-", "1"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], "]"}], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ",", RowBox[{"a", "-", "c"}], ",", "2", ",", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}], RowBox[{"1", "+", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0749.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "-", "a", "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "a"}], "+", "b", "+", "c"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b", "-", "c"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], "]"}], " ", RowBox[{"GegenbauerC", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "c"}], ",", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}], RowBox[{"1", "+", "z"}]]}], "]"}], " ", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"b", "-", "c"}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0750.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "a", "-", "b", "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "a"}], "+", "c"}]], " ", SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "a", "+", "c"}], ")"}]}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "b", "+", "c"}], "]"}], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ",", RowBox[{"a", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0751.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "a", "-", "b", "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ FractionBox["5", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}]], SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ FractionBox["3", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ")"}], " ", "\[Pi]"}]], RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], "]"}]], SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "a", "+", "c"}], ")"}]}]], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0752.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b", "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "a"}], "+", "c"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ FractionBox["1", "2"], "-", "b", "+", "c"}], "]"}], " "}], SqrtBox[ RowBox[{"1", "+", "z"}]]], SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "+", "c"}], ")"}]}]], RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", RowBox[{"a", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0753.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b", "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ FractionBox["3", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ FractionBox["1", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ")"}], " ", "\[Pi]"}]], RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " "}], RowBox[{ SqrtBox[ RowBox[{"1", "+", "z"}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], "]"}]}]], SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ")"}]}]], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0754.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", FractionBox[ RowBox[{"a", "+", "c", "-", "1"}], "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "a", "+", RowBox[{"2", " ", "b"}], "+", "c"}], ")"}]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ")"}]}]], RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "+", "c"}], ")"}]}], "-", "b", "-", "1"}], ",", FractionBox[ RowBox[{"a", "-", "c"}], "2"], ",", "3", ",", FractionBox[ RowBox[{"1", "+", RowBox[{"2", " ", "z"}]}], RowBox[{"2", " ", SqrtBox["z"], " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"Re", "[", "z", "]"}], "\[GreaterEqual]", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0755.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", FractionBox[ RowBox[{"a", "+", "c", "-", "1"}], "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ FractionBox[ RowBox[{"\[Pi]", " ", "\[ImaginaryI]"}], "2"], RowBox[{"(", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ")"}]}]], RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " "}], RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], "]"}]], SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "+", RowBox[{"2", " ", "b"}], "+", "c"}], ")"}]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ")"}]}]], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", "c"}], ")"}]}], ",", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "+", "c"}], ")"}]}], "-", "b"}], ",", "3", ",", RowBox[{"1", "+", RowBox[{"2", " ", "z"}]}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0756.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", FractionBox[ RowBox[{"a", "+", "c", "-", "1"}], "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ FractionBox[ RowBox[{"\[Pi]", " ", "\[ImaginaryI]"}], "2"], RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ")"}]}]], " ", SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "+", RowBox[{"2", " ", "b"}], "+", "c"}], ")"}]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ")"}]}]], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", "c"}], ")"}]}], ",", RowBox[{"b", "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", "a", "-", "c"}], ")"}]}]}], ",", "3", ",", RowBox[{"1", "+", RowBox[{"2", " ", "z"}]}]}], "]"}]}]}], " ", "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0757.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", FractionBox[ RowBox[{"a", "+", "c", "-", "1"}], "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "+", "b"}], ")"}]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ")"}]}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", FractionBox[ RowBox[{"c", "-", "a", "+", "1"}], "2"], "]"}], " ", RowBox[{"GegenbauerC", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", FractionBox[ RowBox[{"c", "-", "a", "+", "1"}], "2"], ",", FractionBox[ RowBox[{"1", "+", RowBox[{"2", " ", "z"}]}], RowBox[{"2", " ", SqrtBox["z"], " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0758.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}]], " ", SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}]], " ", RowBox[{"ChebyshevT", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}], RowBox[{"1", "+", "z"}]]}], "]"}], " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ")"}], "!"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0759.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}]], RowBox[{"Gamma", "[", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}]], " ", RowBox[{"ChebyshevT", "[", RowBox[{ RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox[ FractionBox["z", RowBox[{"1", "+", "z"}]]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0760.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"4", " ", "a"}], "-", RowBox[{"3", " ", "b"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"3", " ", "a"}], "-", RowBox[{"3", " ", "b"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " "}], SqrtBox["\[Pi]"]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["5", "3"]}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ FractionBox["2", "3"], "-", "a", "+", "b"}]], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["2", "3"]}], "+", "a", "-", "b"}], ",", RowBox[{ FractionBox["5", "6"], "-", "a", "+", "b"}], ",", FractionBox["1", "2"], ",", RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"8", "+", RowBox[{"9", " ", "z"}]}], ")"}], "2"], RowBox[{"27", " ", SuperscriptBox["z", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}]}]]}]}], "]"}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "z", "]"}], ">", "1"}], "\[Or]", RowBox[{ RowBox[{"Re", "[", "z", "]"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0761.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}]}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Cosh", "[", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ")"}], " ", RowBox[{"ArcCsch", "[", SqrtBox["z"], "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0762.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}]}], "2"], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"GegenbauerC", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ",", RowBox[{ FractionBox["2", "z"], "+", "1"}]}], "]"}]}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0763.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "2"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}]}], RowBox[{"a", "-", "b", "-", "1"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"ChebyshevT", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ",", RowBox[{ FractionBox["2", "z"], "+", "1"}]}], "]"}]}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0764.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}]}], SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Cosh", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ")"}], " ", RowBox[{"ArcCsch", "[", SqrtBox["z"], "]"}]}], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0765.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"2", "a"}], "-", RowBox[{"2", "b"}], "-", "1"}]], RowBox[{"Gamma", "[", RowBox[{"2", "-", RowBox[{"2", "a"}], "+", RowBox[{"2", "b"}]}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{"a", "-", "b", "-", "1"}]], SuperscriptBox["z", "b"], RowBox[{"Cos", "[", RowBox[{"2", RowBox[{"(", RowBox[{"a", "-", "b", "-", "1"}], ")"}], " ", RowBox[{"ArcCot", "[", RowBox[{"Sqrt", "[", "z", "]"}], "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0766.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "b"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}]], " ", SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ")"}], "!"}], "2"], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", FractionBox[ RowBox[{"z", "-", "1"}], RowBox[{"z", "+", "1"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0767.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", "a"}], "-", RowBox[{"2", "b"}]}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"2", "b"}], "-", RowBox[{"2", "a"}], "+", "2"}], "]"}], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"2", "b"}], "-", RowBox[{"2", "a"}], "+", "1"}], ",", SqrtBox[ FractionBox["z", RowBox[{"1", "+", "z"}]]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0768.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", FractionBox[ RowBox[{"a", "+", "b", "-", "1"}], "2"]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ")"}]}]], " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ")"}], "!"}], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", FractionBox[ RowBox[{"1", "+", RowBox[{"2", " ", "z"}]}], RowBox[{"2", " ", SqrtBox[ RowBox[{"z", " "}]], SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0769.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ",", FractionBox[ RowBox[{"2", "+", "z"}], "z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0770.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], "+", "b"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "a", "-", "b"}]], " ", RowBox[{"ChebyshevU", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "b"}], ",", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}], RowBox[{"1", "+", "z"}]]}], "]"}]}]}], " ", "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0771.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["4", RowBox[{"a", "-", "b"}]], RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], " ", SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}]], " ", RowBox[{"ChebyshevU", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox[ FractionBox["z", RowBox[{"1", "+", "z"}]]]}], "]"}]}]}], " ", "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0772.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", SuperscriptBox["2", RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}]]}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], " ", SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}]], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ")"}], " ", RowBox[{"ArcCot", "[", SqrtBox["z"], "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0773.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}]}], RowBox[{ RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}], "-", "1"}]], " ", RowBox[{"Sinh", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ")"}], " ", RowBox[{"ArcCsch", "[", SqrtBox["z"], "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0774.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"ChebyshevU", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ",", RowBox[{"1", "+", FractionBox["2", "z"]}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0775.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " "}], RowBox[{ SqrtBox["\[Pi]"], SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], RowBox[{"Sinh", "[", RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", RowBox[{"ArcCsch", "[", SqrtBox["z"], "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0776.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", "a"}], "-", RowBox[{"3", " ", "b"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["3", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", "a"}], "-", RowBox[{"3", " ", "b"}]}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"3", " ", "a"}], "-", RowBox[{"3", " ", "b"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " "}], SqrtBox["\[Pi]"]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"4", " ", "a"}], "-", RowBox[{"3", " ", "b"}]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"4", "+", RowBox[{"3", " ", "z"}]}], ")"}], RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"3", " ", "a"}], "+", RowBox[{"3", " ", "b"}]}]], " ", RowBox[{"(", RowBox[{"8", "+", RowBox[{"9", " ", "z"}]}], ")"}], RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "3"], "+", "a", "-", "b"}], ",", RowBox[{ FractionBox["2", "3"], "+", "a", "-", "b"}], ",", FractionBox["3", "2"], ",", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"8", "+", RowBox[{"9", " ", "z"}]}], ")"}], "2"], SuperscriptBox[ RowBox[{"(", RowBox[{"4", "+", RowBox[{"3", " ", "z"}]}], ")"}], "3"]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "z", "]"}], ">", "1"}], "\[Or]", RowBox[{ RowBox[{"Re", "[", "z", "]"}], "\[GreaterEqual]", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0777.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"3", " ", "b"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["3", RowBox[{ FractionBox["1", "2"], "-", RowBox[{"3", " ", "a"}], "+", RowBox[{"3", " ", "b"}]}]], RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ FractionBox["3", "2"], "-", RowBox[{"3", " ", "a"}], "+", RowBox[{"3", " ", "b"}]}], "]"}], " "}], SqrtBox["\[Pi]"]], SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"3", " ", "b"}]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"3", " ", "z"}], "-", "1"}], ")"}], RowBox[{ RowBox[{"-", FractionBox["5", "2"]}], "+", RowBox[{"3", " ", "a"}], "-", RowBox[{"3", " ", "b"}]}]], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"9", " ", "z"}]}], ")"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["5", "6"], "-", "a", "+", "b"}], ",", RowBox[{ FractionBox["7", "6"], "-", "a", "+", "b"}], ",", FractionBox["3", "2"], ",", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"9", " ", "z"}]}], ")"}], "2"], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"3", " ", "z"}]}], ")"}], "3"]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "z", "]"}], ">", "1"}], "\[Or]", RowBox[{ RowBox[{"Re", "[", "z", "]"}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0778.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"1", "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "+", "b"}], ")"}]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ")"}]}]], " ", RowBox[{"ChebyshevU", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", "b"}], ",", FractionBox[ RowBox[{"1", "+", RowBox[{"2", " ", "z"}]}], RowBox[{"2", " ", SqrtBox["z"], " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0779.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"1", "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ FractionBox[ RowBox[{"a", "+", "b"}], "2"], "-", "1"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ FractionBox[ RowBox[{"a", "-", "b"}], "2"], "-", "1"}]], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "z"}]}], ")"}], " ", RowBox[{"ChebyshevU", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"b", "-", "a"}], "2"], "-", "1"}], ",", FractionBox[ RowBox[{"1", "+", RowBox[{"2", " ", "z"}], "+", RowBox[{"2", " ", SuperscriptBox["z", "2"]}]}], RowBox[{ RowBox[{"2", " ", "z"}], "+", RowBox[{"2", " ", SuperscriptBox["z", "2"]}]}]]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], "]"}]}]}], " ", "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0780.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", "b"}], "-", "a", "+", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], SuperscriptBox["z", "b"], FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ SqrtBox["z"], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}], RowBox[{ RowBox[{"2", " ", "a"}], "-", RowBox[{"2", "b"}], "-", "1"}]], SqrtBox[ RowBox[{"1", "+", "z"}]]]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0781.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", "b"}], "-", "a", "+", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "b"], FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["z"]}], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}], RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", "b"}]}]], SqrtBox[ RowBox[{"1", "+", "z"}]]]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0782.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SqrtBox["\[Pi]"], RowBox[{"b", "-", "a", "+", "1"}]], SuperscriptBox["z", "b"], SuperscriptBox[ RowBox[{"(", RowBox[{ SqrtBox["z"], "+", SqrtBox[ RowBox[{"z", "+", "1"}]]}], ")"}], RowBox[{ RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}], "-", "2"}]]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0783.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", "b"}], "-", "a", "+", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["\[Pi]"], " "}], RowBox[{"1", "-", "a", "+", "b"}]], SuperscriptBox["z", "b"], SuperscriptBox[ RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{"1", "+", "z"}]], "-", SqrtBox["z"]}], ")"}], RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", "b"}]}]]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0784.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"3", "-", RowBox[{"3", " ", "a"}], "+", RowBox[{"4", " ", "b"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["3", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"3", " ", "b"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"5", "-", RowBox[{"6", " ", "a"}], "+", RowBox[{"6", " ", "b"}]}]], RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ FractionBox["5", "2"], "-", RowBox[{"3", " ", "a"}], "+", RowBox[{"3", " ", "b"}]}], "]"}], " "}], RowBox[{"Gamma", "[", RowBox[{"4", "-", RowBox[{"4", " ", "a"}], "+", RowBox[{"4", " ", "b"}]}], "]"}]], SuperscriptBox["z", RowBox[{ FractionBox["3", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"3", " ", "b"}]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "z"}]}], ")"}], RowBox[{ RowBox[{"-", FractionBox["5", "2"]}], "+", RowBox[{"3", " ", "a"}], "-", RowBox[{"3", " ", "b"}]}]], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["5", "6"], "-", "a", "+", "b"}], ",", RowBox[{ FractionBox["7", "6"], "-", "a", "+", "b"}], ",", RowBox[{ FractionBox["5", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox[ RowBox[{"27", " ", "z"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "z"}]}], ")"}], "3"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0785.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", "4"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"EllipticE", "[", RowBox[{"-", FractionBox["1", "z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0786.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", "4"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "a"}]], " ", SqrtBox[ RowBox[{"1", "+", "z"}]], " ", RowBox[{"EllipticE", "[", FractionBox["1", RowBox[{"1", "+", "z"}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0787.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}], ",", RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["1", "4"], "]"}], "2"]}], RowBox[{"\[Pi]", " "}]], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}]], FractionBox[ RowBox[{" ", RowBox[{"EllipticK", "[", RowBox[{ RowBox[{"-", "2"}], RowBox[{ RowBox[{"(", RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}], "/", "z"}]}], "]"}]}], SqrtBox[ RowBox[{" ", RowBox[{ SqrtBox[ RowBox[{"1", "+", "z"}]], "-", "1"}]}]]]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0788.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}], ",", RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["1", "4"], "]"}], "2"]}], RowBox[{"\[Pi]", " "}]], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"5", "/", "4"}]}]], SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}]], RowBox[{"EllipticK", "[", RowBox[{"2", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "z"]}], "]"}]}]}], " ", "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0789.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}], ",", RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["1", "4"], "]"}], "2"]}], RowBox[{"\[Pi]", " "}]], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}]], FractionBox[ RowBox[{" ", RowBox[{"EllipticK", "[", RowBox[{"2", "/", RowBox[{"(", RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}]}], "]"}]}], SqrtBox[ RowBox[{" ", RowBox[{ SqrtBox[ RowBox[{"1", "+", "z"}]], "-", "1"}]}]]]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0790.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}], ",", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["1", "4"], "]"}], "2"]}], "\[Pi]"], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"EllipticK", "[", FractionBox[ RowBox[{ SqrtBox["z"], "-", SqrtBox[ RowBox[{"1", "+", "z"}]]}], RowBox[{"2", " ", SqrtBox["z"]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0791.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}], ",", RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SqrtBox["2"], SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["1", "4"], "]"}], "2"]}], RowBox[{"\[Pi]", SqrtBox[ RowBox[{ SqrtBox["z"], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}]], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}]], RowBox[{"EllipticK", "[", FractionBox[ RowBox[{ RowBox[{"-", SqrtBox["z"]}], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], RowBox[{ SqrtBox["z"], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}]], "]"}]}]}], " ", "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0792.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", SqrtBox["2"], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}]], RowBox[{ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], "^", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "4"}], ")"}]}], " ", RowBox[{"EllipticK", "[", RowBox[{ RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{"1", "+", "z"}]], "-", RowBox[{"Sqrt", "[", "z", "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"1", "+", "z"}], "]"}]}], ")"}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0793.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", SqrtBox["2"], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}]], RowBox[{ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], "^", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "/", "4"}], ")"}]}], " ", RowBox[{"EllipticK", "[", RowBox[{"1", "/", RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{"1", "+", "z"}]], "+", RowBox[{"Sqrt", "[", "z", "]"}]}], ")"}], RowBox[{"Sqrt", "[", RowBox[{"1", "+", "z"}], "]"}]}], ")"}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0794.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}], ",", RowBox[{"a", "-", FractionBox["1", "4"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["4", RowBox[{ RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{"1", "+", "z"}]], "+", RowBox[{"Sqrt", "[", "z", "]"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}]}]], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}]], RowBox[{"EllipticK", "[", FractionBox[ RowBox[{ SqrtBox["z"], "-", SqrtBox[ RowBox[{"1", "+", "z"}]]}], RowBox[{ SqrtBox["z"], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0795.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}], ",", RowBox[{"a", "-", FractionBox["1", "4"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", SqrtBox["2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{"1", "/", "4"}]]], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}]], RowBox[{"EllipticK", "[", FractionBox[ RowBox[{ RowBox[{"-", SqrtBox["z"]}], "+", SqrtBox[ RowBox[{"z", "+", "1"}]]}], RowBox[{"2", SqrtBox[ RowBox[{"z", "+", "1"}]]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0796.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"4", " "}], SqrtBox[ RowBox[{ SqrtBox["z"], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}]]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}]], " ", RowBox[{"EllipticK", "[", FractionBox[ RowBox[{ SqrtBox["z"], "-", SqrtBox[ RowBox[{"1", "+", "z"}]]}], RowBox[{ SqrtBox["z"], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0797.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}], ",", RowBox[{"a", "+", RowBox[{"1", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"1", "/", "4"}], "]"}], "2"], RowBox[{"2", "\[Pi]"}]], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]], FractionBox["1", RowBox[{ SqrtBox[ RowBox[{"1", "+", "z"}]], SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}]], RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"2", " "}], RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0798.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}], ",", RowBox[{"a", "+", RowBox[{"1", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"1", "/", "4"}], "]"}], "2"], RowBox[{"2", "\[Pi]"}]], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}]], FractionBox[ SqrtBox[ RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}]], SqrtBox[ RowBox[{"1", "+", "z"}]]], RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"2", " "}], RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0799.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}], ",", RowBox[{"a", "+", RowBox[{"1", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"1", "/", "4"}], "]"}], "2"], RowBox[{"2", "\[Pi]", SqrtBox[ RowBox[{"1", "+", "z"}]], SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}]], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]], RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}]}], "z"], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0800.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}], ",", RowBox[{"a", "+", RowBox[{"1", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"1", "/", "4"}], "]"}], "2"], RowBox[{"2", "\[Pi]"}]], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}]], FractionBox[ SqrtBox[ RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}]], SqrtBox[ RowBox[{"1", "+", "z"}]]], RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}]}], "z"], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0801.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}], ",", RowBox[{"a", "+", RowBox[{"1", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"1", "/", "4"}], "]"}], "2"], RowBox[{"2", "\[Pi]"}]], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}]], FractionBox[ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}]], SqrtBox[ RowBox[{"1", "+", "z"}]]], RowBox[{"EllipticE", "[", FractionBox["2", RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "+", "z"}]]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0802.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}], ",", RowBox[{"a", "+", RowBox[{"1", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"1", "/", "4"}], "]"}], "2"], RowBox[{"2", "\[Pi]"}]], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]], FractionBox["1", RowBox[{ SqrtBox[ RowBox[{"1", "+", "z"}]], SqrtBox[ RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}]], RowBox[{"EllipticE", "[", FractionBox["2", RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "+", "z"}]]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0803.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}], ",", RowBox[{"a", "+", RowBox[{"1", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"1", "/", "4"}], "]"}], "2"], RowBox[{"2", "\[Pi]"}]], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}]], FractionBox[ SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}]], SqrtBox[ RowBox[{"1", "+", "z"}]]], RowBox[{"EllipticE", "[", FractionBox[ RowBox[{"2", " "}], RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "+", "z"}]]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0804.01"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"EllipticK", "[", RowBox[{"-", FractionBox["1", "z"]}], "]"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0805.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["z", RowBox[{"a", "-", FractionBox["1", "2"]}]], " "}], SqrtBox[ RowBox[{"1", "+", "z"}]]], RowBox[{"EllipticK", "[", FractionBox["1", RowBox[{"1", "+", "z"}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0806.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"3", "/", "2"}]}]], RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{"1", "+", "z"}]], "-", "1"}], ")"}], " ", RowBox[{"EllipticK", "[", RowBox[{"4", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}]}], "/", RowBox[{ RowBox[{"(", RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}], "^", "2"}]}]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"Re", "[", "z", "]"}], "\[GreaterEqual]", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0807.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{"1", "/", "4"}]]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}]], " ", RowBox[{"EllipticK", "[", RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["z"]}], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}], "2"], RowBox[{"4", " ", SqrtBox["z"], " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0808.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"3", "/", "2"}]}]], RowBox[{"(", RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}], " ", RowBox[{"EllipticK", "[", RowBox[{ RowBox[{"-", "4"}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}]}], "/", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}], "^", "2"}]}]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"Re", "[", "z", "]"}], "\[GreaterEqual]", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0809.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"4", SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]], RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"1", "+", "z"}], "]"}], "-", RowBox[{"Sqrt", "[", "z", "]"}]}], ")"}], RowBox[{"EllipticK", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", "z", "]"}], "-", RowBox[{"Sqrt", "[", RowBox[{"1", "+", "z"}], "]"}]}], ")"}], "^", "4"}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0810.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"4", RowBox[{ SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]], "/", RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"1", "+", "z"}], "]"}], "+", RowBox[{"Sqrt", "[", "z", "]"}]}], ")"}]}], RowBox[{"EllipticK", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", "z", "]"}], "-", RowBox[{"Sqrt", "[", RowBox[{"1", "+", "z"}], "]"}]}], ")"}], "^", "4"}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0811.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"4", SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]], RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"1", "+", "z"}], "]"}], "-", RowBox[{"Sqrt", "[", "z", "]"}]}], ")"}], RowBox[{"EllipticK", "[", RowBox[{"1", "/", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", "z", "]"}], "+", RowBox[{"Sqrt", "[", RowBox[{"1", "+", "z"}], "]"}]}], ")"}], "^", "4"}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0812.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"4", RowBox[{ SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]], "/", RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"1", "+", "z"}], "]"}], "+", RowBox[{"Sqrt", "[", "z", "]"}]}], ")"}]}], RowBox[{"EllipticK", "[", RowBox[{"1", "/", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", "z", "]"}], "+", RowBox[{"Sqrt", "[", RowBox[{"1", "+", "z"}], "]"}]}], ")"}], "^", "4"}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0813.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{ SuperscriptBox["z", "a"], " ", RowBox[{"EllipticE", "[", RowBox[{"-", FractionBox["1", "z"]}], "]"}]}], RowBox[{"1", "+", "z"}]]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0814.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], SqrtBox[ RowBox[{"1", "+", "z"}]]], " ", RowBox[{"EllipticE", "[", FractionBox["1", RowBox[{"1", "+", "z"}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0815.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["3", "4"], "]"}], "2"]}], RowBox[{"\[Pi]", " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}]], SqrtBox[ RowBox[{" ", RowBox[{ SqrtBox[ RowBox[{"1", "+", "z"}]], "-", "1"}]}]], " ", RowBox[{"EllipticK", "[", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{"1", "+", "z"}]], "-", "1"}], ")"}]}], "z"], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0816.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["3", "4"], "]"}], "2"]}], RowBox[{"\[Pi]", " ", SqrtBox[ RowBox[{"1", "+", "z"}]], " ", SqrtBox[ RowBox[{ SqrtBox[ RowBox[{"1", "+", "z"}]], "-", "1"}]]}]], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]], " ", RowBox[{"EllipticK", "[", RowBox[{"-", FractionBox[ RowBox[{"2", RowBox[{"(", RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}]}], "z"]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0817.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["3", "4"], "]"}], "2"]}], RowBox[{"\[Pi]", " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"EllipticK", "[", FractionBox[ RowBox[{ SqrtBox["z"], "-", SqrtBox[ RowBox[{"1", "+", "z"}]]}], RowBox[{"2", " ", SqrtBox["z"]}]], "]"}]}]}], " ", "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0818.01"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["3", "4"], "]"}], "2"]}], RowBox[{"\[Pi]", " ", SqrtBox[ RowBox[{"1", "+", "z"}]], " ", SqrtBox[ RowBox[{ SqrtBox[ RowBox[{"1", "+", "z"}]], "-", "1"}]]}]], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "4"}]}]], " ", RowBox[{"EllipticK", "[", FractionBox["2", RowBox[{"1", "-", SqrtBox[ RowBox[{"1", "+", "z"}]]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0819.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SqrtBox["2"], SuperscriptBox[ RowBox[{"Gamma", "[", FractionBox["3", "4"], "]"}], "2"]}], RowBox[{"\[Pi]", " ", SqrtBox[ RowBox[{"1", "+", "z"}]], " ", SqrtBox[ RowBox[{ SqrtBox["z"], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"EllipticK", "[", FractionBox[ RowBox[{ RowBox[{"-", SqrtBox["z"]}], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], RowBox[{ SqrtBox["z"], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0820.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"ArcSinh", "[", FractionBox["1", SqrtBox["z"]], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0821.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"ArcCsch", "[", SqrtBox["z"], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0822.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["\[Pi]"], SuperscriptBox["z", RowBox[{"a", "-", FractionBox["1", "2"]}]], RowBox[{"Log", "[", FractionBox[ RowBox[{"1", "+", SqrtBox[ RowBox[{"z", "+", "1"}]]}], SqrtBox["z"]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0823.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox["\[Pi]"], SuperscriptBox["z", RowBox[{"a", "-", FractionBox["1", "2"]}]], RowBox[{"Log", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"z", "+", "1"}]], "-", "1"}], SqrtBox["z"]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0824.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"ArcTan", "[", FractionBox["1", SqrtBox["z"]], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0825.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"ArcCot", "[", SqrtBox["z"], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0826.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{"2", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"ArcCsch", "[", SqrtBox["z"], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}]]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0827.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["z", "a"]}], RowBox[{ SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]], RowBox[{"Log", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"z", "+", "1"}]], "+", "1"}], SqrtBox["z"]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0828.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", SuperscriptBox["z", "a"]}], RowBox[{ SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}], RowBox[{"Log", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"z", "+", "1"}]], "-", "1"}], SqrtBox["z"]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0829.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", "a"], " ", RowBox[{"Log", "[", RowBox[{"1", "+", FractionBox["1", "z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0830.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", "c"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "-", "a", "+", "b"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"BetaRegularized", "[", RowBox[{ RowBox[{"-", FractionBox["1", "z"]}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", RowBox[{"1", "+", "b", "-", "c"}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{"0", ",", "\[Infinity]"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1103.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,1,2,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", SubscriptBox["a", "2"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", SubscriptBox["b", "3"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " "}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}]], SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "-", " ", RowBox[{ FractionBox[ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], "]"}]], SuperscriptBox["z", SubscriptBox["b", "2"]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0831.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox["1", "\[Pi]"]}], SuperscriptBox["z", "a"], RowBox[{"Exp", "[", RowBox[{"-", "z"}], "]"}], RowBox[{"ExpIntegralEi", "[", "z", "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0832.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,1,2,4}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", SubscriptBox["a", "2"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "3"], ",", SubscriptBox["b", "4"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}]], SuperscriptBox["z", SubscriptBox["b", "1"]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "-", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " "}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], "]"}]], SuperscriptBox["z", SubscriptBox["b", "2"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0833.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b", "-", "c"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"c", "-", "b"}], ",", SqrtBox["z"]}], "]"}]}], "+", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "c"}], "+", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ",", SqrtBox["z"]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0834.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SqrtBox["\[Pi]"], "2"], RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SuperscriptBox["z", "a"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "c"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "b"}], "+", "c"}], ",", SqrtBox["z"]}], "]"}]}], "-", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], ",", SqrtBox["z"]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0835.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{"b", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0836.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", SqrtBox["z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0837.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SqrtBox["2"]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"Cos", "[", SqrtBox["z"], "]"}]}], "+", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"Sin", "[", SqrtBox["z"], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0838.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{ SqrtBox["\[Pi]"], RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}]}]}], "2"], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], "2"]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0839.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SqrtBox["2"]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"Cos", "[", SqrtBox["z"], "]"}]}], "-", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"Sin", "[", SqrtBox["z"], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0840.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"1", "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "a"], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0841.01"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", FractionBox["1", "2"]}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", SuperscriptBox["\[Pi]", RowBox[{ RowBox[{"-", "3"}], "/", "2"}]], SuperscriptBox["z", RowBox[{"a", "-", FractionBox["1", "2"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}], RowBox[{"SinIntegral", "[", RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}]}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}], RowBox[{"CosIntegral", "[", RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}]}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0842.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", FractionBox["1", "2"]}], ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", "2"}], SuperscriptBox["\[Pi]", RowBox[{ RowBox[{"-", "3"}], "/", "2"}]], SuperscriptBox["z", "a"], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}], RowBox[{"SinIntegral", "[", RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}], RowBox[{"CosIntegral", "[", RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0843.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,1,3,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0844.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "d"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"1", "+", "d"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "a", "+", "d"}], ")"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}]], RowBox[{"(", RowBox[{ RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}], "+", RowBox[{ FractionBox[ RowBox[{"(", RowBox[{"1", "-", "a", "+", "b"}], ")"}], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "a", "+", "c"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "-", "d", "-", "1"}], ")"}], " ", "z"}]], " ", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"2", "-", "a", "+", "b"}], ",", RowBox[{"2", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0845.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"1", "+", "b"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "a", "+", "b"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "z"], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], "-", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", FractionBox["1", "z"]}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "z"], ")"}], RowBox[{"a", "-", "c"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], "]"}], "-", RowBox[{"Gamma", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", "z"]}], "]"}]}], ")"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0846.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"1", "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["z", "a"], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], "]"}]], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], ")"}]}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0847.01"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", "1"}], ",", RowBox[{"a", "+", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", "a"], " ", RowBox[{"(", RowBox[{"EulerGamma", "+", RowBox[{"Gamma", "[", RowBox[{"0", ",", FractionBox["1", "z"]}], "]"}], "-", RowBox[{"Log", "[", "z", "]"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0848.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", "a"}], ",", RowBox[{"1", "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["z", "a"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "EulerGamma"}], "-", RowBox[{"2", " ", RowBox[{"ExpIntegralEi", "[", RowBox[{"-", FractionBox["1", "z"]}], "]"}]}], "+", RowBox[{"Log", "[", RowBox[{"-", FractionBox["1", "z"]}], "]"}], "-", RowBox[{"Log", "[", RowBox[{"-", "z"}], "]"}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0849.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,1,3,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", SubscriptBox["b", "3"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], RowBox[{" ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "1"]}], "]"}], " "}]}]], SuperscriptBox["z", SubscriptBox["b", "1"]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", "z"}], "]"}]}], "-", RowBox[{ FractionBox[ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], RowBox[{" ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "2"]}], "]"}], " "}]}]], SuperscriptBox["z", SubscriptBox["b", "2"]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", "z"}], "]"}]}]}], ")"}], " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}]}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "3"]}], "]"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}], " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}]}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0850.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", FractionBox["1", "2"]}], ",", RowBox[{"1", "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], "+", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", "a"], "\[Pi]"], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}], RowBox[{"Log", "[", RowBox[{"1", "-", FractionBox["1", "z"]}], "]"}]}], "+", RowBox[{ RowBox[{"Log", "[", RowBox[{ FractionBox["1", "z"], "-", "1"}], "]"}], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0851.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,1,4,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"], ",", SubscriptBox["a", "4"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "4"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0852.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ FractionBox["1", "2"], "+", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "b"}], "+", RowBox[{"2", " ", "c"}]}]], RowBox[{"Gamma", "[", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}]}], SqrtBox["\[Pi]"]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], RowBox[{"(", RowBox[{ RowBox[{"Hypergeometric1F1Regularized", "[", RowBox[{ RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"-", FractionBox["2", SqrtBox[ RowBox[{"-", "z"}]]]}]}], "]"}], "+", RowBox[{"Hypergeometric1F1Regularized", "[", RowBox[{ RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", FractionBox["2", SqrtBox[ RowBox[{"-", "z"}]]]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0853.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ FractionBox["1", "2"], "+", "c"}], ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "b"}], "+", RowBox[{"2", " ", "c"}]}]], " ", SuperscriptBox["z", "a"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{"-", "z"}]]}]], RowBox[{"(", RowBox[{ RowBox[{"Hypergeometric1F1Regularized", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"-", FractionBox["2", SqrtBox[ RowBox[{"-", "z"}]]]}]}], "]"}], "-", RowBox[{"Hypergeometric1F1Regularized", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", FractionBox["2", SqrtBox[ RowBox[{"-", "z"}]]]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0854.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ FractionBox["1", "2"], "+", "c"}], ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "c"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "b"}], "+", RowBox[{"2", " ", "c"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "-", "b", "+", RowBox[{"2", " ", "c"}]}], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], "]"}], "2"]}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"-", FractionBox["2", SqrtBox[ RowBox[{"-", "z"}]]]}]}], "]"}], " ", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", FractionBox["2", SqrtBox[ RowBox[{"-", "z"}]]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0855.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ FractionBox["1", "2"], "+", "c"}], ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "c"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "b"}], "+", RowBox[{"2", " ", "c"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}]], RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "-", "b", "+", RowBox[{"2", " ", "c"}]}], "]"}], " "}], RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], "]"}], "2"]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"-", FractionBox[ RowBox[{"2", " ", "\[ImaginaryI]"}], SqrtBox["z"]]}]}], "]"}], " ", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", FractionBox[ RowBox[{"2", " ", "\[ImaginaryI]"}], SqrtBox["z"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0856.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", "c"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0857.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", "c"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}]], " ", SqrtBox["\[Pi]"]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}]}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", RowBox[{"3", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"4", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}], ",", FractionBox["2", SqrtBox[ RowBox[{"-", "z"}]]]}], "]"}], " ", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "c"}], ",", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"-", FractionBox["2", SqrtBox[ RowBox[{"-", "z"}]]]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0858.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", "a"}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", "c"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"2", "+", RowBox[{"2", " ", "b"}], "-", "a", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}]}]], " ", RowBox[{"Hypergeometric0F1", "[", RowBox[{ RowBox[{"2", "+", RowBox[{"2", " ", "b"}], "-", "a", "-", "c"}], ",", RowBox[{"-", FractionBox["1", RowBox[{"4", " ", "z"}]]}]}], "]"}], " ", RowBox[{"Hypergeometric0F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox["1", RowBox[{"4", " ", "z"}]]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0859.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", "a"}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", "c"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Hypergeometric0F1Regularized", "[", RowBox[{ RowBox[{"2", "+", RowBox[{"2", " ", "b"}], "-", "a", "-", "c"}], ",", RowBox[{"-", FractionBox["1", RowBox[{"4", " ", "z"}]]}]}], "]"}], " ", RowBox[{"Hypergeometric0F1Regularized", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox["1", RowBox[{"4", " ", "z"}]]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0860.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{ FractionBox["3", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "b"}]], " ", RowBox[{"Cos", "[", FractionBox["1", SqrtBox["z"]], "]"}], RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0861.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{ FractionBox["3", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Cos", "[", FractionBox["1", SqrtBox["z"]], "]"}], " ", RowBox[{"Hypergeometric0F1Regularized", "[", RowBox[{ RowBox[{ FractionBox["5", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"-", FractionBox["1", RowBox[{"4", " ", "z"}]]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0862.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "a"}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "b"}]], " ", RowBox[{"Sin", "[", FractionBox["1", SqrtBox["z"]], "]"}], RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0863.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "a"}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["4", RowBox[{"a", "-", "b"}]], " "}], RowBox[{"Gamma", "[", RowBox[{ FractionBox["3", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"Sin", "[", FractionBox["1", SqrtBox["z"]], "]"}], RowBox[{"Hypergeometric0F1", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"-", FractionBox["1", RowBox[{"4", " ", "z"}]]}]}], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0864.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}], ",", RowBox[{ FractionBox["1", "4"], "+", "a"}], ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"FresnelC", "[", FractionBox["2", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]], "]"}], "2"], "+", SuperscriptBox[ RowBox[{"FresnelS", "[", FractionBox["2", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]], "]"}], "2"]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0865.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,1,5,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"], ",", SubscriptBox["a", "4"], ",", SubscriptBox["a", "5"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", SubscriptBox["b", "3"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "3"]}], "]"}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "4"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "5"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0866.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ FractionBox["1", "4"], "+", "b"}], ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", "c"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "4"], "+", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SqrtBox["\[Pi]"]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0867.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ FractionBox["3", "4"], "+", "b"}], ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{ FractionBox["3", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["3", "4"], "+", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["2"], " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["5", "4"], "-", "a", "+", "b"}], ")"}], " ", "\[Pi]"}], "]"}]}], "\[Pi]"], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "b"}]], " ", RowBox[{"Cosh", "[", FractionBox["1", SqrtBox["z"]], "]"}], RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0868.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "a"}], ",", RowBox[{ FractionBox["3", "4"], "+", "b"}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["3", "4"], "+", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SqrtBox["2"], "\[Pi]"], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "b"}]], " ", RowBox[{"Sinh", "[", FractionBox["1", SqrtBox["z"]], "]"}], RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0869.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}], ",", RowBox[{ FractionBox["1", "4"], "+", "a"}], ",", RowBox[{ FractionBox["1", "2"], "+", "a"}], ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox["1", RowBox[{ SqrtBox["2"], " ", "\[Pi]"}]]}], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"Erf", "[", FractionBox[ SqrtBox["2"], SuperscriptBox["z", RowBox[{"1", "/", "4"}]]], "]"}], " ", RowBox[{"Erfi", "[", FractionBox[ SqrtBox["2"], SuperscriptBox["z", RowBox[{"1", "/", "4"}]]], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0870.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,2,2,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", SubscriptBox["b", "1"]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Hypergeometric2F1Regularized", "[", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"2", "-", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", "z"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0871.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " ", SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], "}"}], ",", "z"}], "]"}]}], "-", " ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], "]"}], " ", SuperscriptBox["z", SubscriptBox["b", "2"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], "}"}], ",", "z"}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0872.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Hypergeometric2F1Regularized", "[", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"2", "-", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", FractionBox["1", "z"]}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0873.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "d"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"a", "-", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "d"}], "]"}], " ", SuperscriptBox["z", "b"], RowBox[{"JacobiP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ",", RowBox[{"1", "-", "a", "+", "b", "-", "c", "+", "d"}], ",", RowBox[{"b", "-", "d"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "z"}]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0874.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "d"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"a", "-", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "d"}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], RowBox[{"JacobiP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ",", RowBox[{"1", "-", "a", "+", "b", "-", "c", "+", "d"}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", FractionBox["2", "z"]}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0875.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"a", "+", "b", "-", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]], RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"c", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "a", "+", "b", "-", RowBox[{"2", " ", "c"}]}], "]"}], " "}], RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], "]"}]], SuperscriptBox["z", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}], ")"}]}], "+", "b"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}], " ", RowBox[{"Sign", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], ")"}], RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "b", "+", "c"}]], RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "b", "+", "c"}], ",", "3", ",", FractionBox[ RowBox[{"1", "+", "z"}], RowBox[{"2", " ", SqrtBox["z"]}]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0876.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "-", "a", "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"c", "-", "a"}], ")"}], " ", "\[Pi]"}]], " ", SuperscriptBox["z", RowBox[{"b", "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}]}]}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], "]"}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", RowBox[{"a", "-", "c"}], ",", "3", ",", FractionBox[ RowBox[{"1", "+", "z"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}], " ", RowBox[{"Sign", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]]}], "]"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}], " ", RowBox[{"Sign", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}]]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0877.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], FractionBox[ RowBox[{ SuperscriptBox["z", "a"], "-", SuperscriptBox["z", "b"], " "}], RowBox[{"z", "-", "1"}]]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0878.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "b"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], SuperscriptBox["z", "b"], RowBox[{"LerchPhi", "[", RowBox[{ RowBox[{"1", "-", "z"}], ",", "1", ",", RowBox[{"1", "-", "a", "+", "b"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0879.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"LerchPhi", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"1", "/", "z"}]}], ",", "1", ",", RowBox[{"1", "-", "a", "+", "b"}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0880.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "4"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "4"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ FractionBox["1", "2"], "+", "a", "-", "b"}]], " ", SuperscriptBox["\[Pi]", "2"], RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ FractionBox["3", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}]}], RowBox[{" ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"a", "-", "b"}], "]"}], SqrtBox[ RowBox[{"1", "+", SqrtBox["z"]}]]}]}]], SuperscriptBox["z", "b"], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}], " ", RowBox[{"Sign", "[", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], ")"}], RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}]], RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", "2", ",", FractionBox[ RowBox[{"2", " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}], RowBox[{"1", "+", SqrtBox["z"]}]]}], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0881.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["2", RowBox[{"a", "-", "b"}]], " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ FractionBox["3", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], " ", RowBox[{"Sign", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], ")"}], RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}]]}], " ", ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"a", "-", "b"}], "]"}], SqrtBox[ RowBox[{"1", "+", "z"}]]}], " ", ")"}]}], " ", SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ")"}]}]], RowBox[{"LegendreP", "[", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", "2", ",", RowBox[{"-", FractionBox[ RowBox[{"1", "-", RowBox[{"6", " ", "z"}], "+", SuperscriptBox["z", "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], "2"]]}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0882.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", "\[Pi]", " ", SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]], RowBox[{"EllipticK", "[", RowBox[{"1", "-", "z"}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1112.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"4", "\[Pi]"}], RowBox[{ SqrtBox["z"], "+", "1"}]], SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]], " ", RowBox[{"EllipticK", "[", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"1", "-", SqrtBox["z"]}], RowBox[{"1", "+", SqrtBox["z"]}]], ")"}], "2"], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0883.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", "\[Pi]", " ", SuperscriptBox["z", RowBox[{"a", "-", RowBox[{"3", "/", "4"}]}]], " ", RowBox[{"EllipticK", "[", RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox["z"]}], ")"}], "2"], RowBox[{"4", " ", SqrtBox["z"]}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0884.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"4", "\[Pi]", " ", SuperscriptBox["z", RowBox[{"a", "-", FractionBox["1", "2"]}]], RowBox[{"EllipticF", "[", RowBox[{ RowBox[{"ArcCot", "[", SuperscriptBox["z", FractionBox["1", "4"]], "]"}], ",", RowBox[{"1", "-", "z"}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0885.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "-", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"EllipticK", "[", RowBox[{"1", "-", "z"}], "]"}], RowBox[{"EllipticE", "[", RowBox[{"1", "-", "z"}], "]"}]], SuperscriptBox["z", RowBox[{"a", "-", FractionBox["1", "2"]}]], RowBox[{"(", RowBox[{ RowBox[{"4", " ", "\[Pi]", " ", RowBox[{"EllipticE", "[", RowBox[{ RowBox[{"ArcCot", "[", SuperscriptBox["z", FractionBox["1", "4"]], "]"}], ",", RowBox[{"1", "-", "z"}]}], "]"}]}], "-", RowBox[{"2", "\[Pi]", RowBox[{"(", RowBox[{"1", "-", SqrtBox["z"]}], ")"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0886.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{ SuperscriptBox["z", "a"], RowBox[{"Log", "[", "z", "]"}]}], RowBox[{"z", "-", "1"}]]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0887.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", "a"], RowBox[{"1", "-", "z"}]], RowBox[{"Log", "[", FractionBox["1", "z"], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0888.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"a", "-", FractionBox["1", "2"]}]], RowBox[{"(", RowBox[{ RowBox[{"2", "\[Pi]", RowBox[{"(", RowBox[{"1", "-", SqrtBox["z"]}], ")"}]}], "-", RowBox[{"4", " ", "\[Pi]", " ", RowBox[{"EllipticE", "[", RowBox[{ RowBox[{"ArcCot", "[", SuperscriptBox["z", FractionBox["1", "4"]], "]"}], ",", RowBox[{"1", "-", "z"}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0889.02"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", "2"}], " ", "\[Pi]", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"EllipticE", "[", RowBox[{"1", "-", "z"}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1104.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"\[Pi]", " ", SuperscriptBox["z", RowBox[{ FractionBox["1", "2"], "+", "a"}]], " "}], RowBox[{"z", "-", "1"}]], RowBox[{"(", RowBox[{ RowBox[{"EllipticE", "[", RowBox[{"1", "-", "z"}], "]"}], "-", RowBox[{"EllipticK", "[", RowBox[{"1", "-", "z"}], "]"}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1113.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,2,2,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", SubscriptBox["b", "3"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["z", SubscriptBox["b", "1"]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], "]"}], " ", SuperscriptBox["z", SubscriptBox["b", "2"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", "z"}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0890.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,2,2,4}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "3"], ",", SubscriptBox["b", "4"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " ", SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", "z"}], "]"}]}], "-", " ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], "]"}], " ", SuperscriptBox["z", SubscriptBox["b", "2"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", "z"}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0891.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "a"], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", SqrtBox["z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0892.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]], " ", SuperscriptBox["z", "a"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "c"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"-", "b"}], "+", "c"}], ",", SqrtBox["z"]}], "]"}]}], "-", RowBox[{ RowBox[{"BesselI", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], ",", SqrtBox["z"]}], "]"}]}]}], ")"}], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ")"}], " ", "\[Pi]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0893.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "b"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"Cosh", "[", SqrtBox["z"], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0894.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "b"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", "\[Pi]", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"Csc", "[", RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"Cosh", "[", SqrtBox["z"], "]"}]}], "-", RowBox[{ RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"Sinh", "[", SqrtBox["z"], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0895.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"Sinh", "[", SqrtBox["z"], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0896.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["2", "3"], "+", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["2", "3"]}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox["1", SuperscriptBox["3", RowBox[{"1", "/", "6"}]]]}], RowBox[{"(", RowBox[{"2", " ", SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "3"]}], "+", "a"}]], " ", RowBox[{"AiryAiPrime", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox["3", "2"], ")"}], RowBox[{"2", "/", "3"}]], " ", SuperscriptBox["z", RowBox[{"1", "/", "3"}]]}], "]"}], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["2", "3"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1105.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "3"], "+", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "3"]}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", SuperscriptBox["3", RowBox[{"1", "/", "6"}]], " ", SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "6"]}], "+", "a"}]], " ", RowBox[{"AiryAi", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox["3", "2"], ")"}], RowBox[{"2", "/", "3"}]], " ", SuperscriptBox["z", RowBox[{"1", "/", "3"}]]}], "]"}], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["1", "3"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1106.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,2,3,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", SubscriptBox["a", "3"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}], "-", " ", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0897.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,2,3,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", SubscriptBox["a", "3"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", SubscriptBox["b", "3"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " "}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "1"]}], "]"}]], SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "-", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "2"]}], "]"}]], " ", SuperscriptBox["z", SubscriptBox["b", "2"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0898.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"a", "-", RowBox[{"2", " ", "b"}], "+", "c"}]], " ", RowBox[{"Gamma", "[", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}]}], SqrtBox["\[Pi]"]], SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "+", "c"}], ")"}]}], "-", "b", "-", "1"}]], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", RowBox[{"a", "-", "c"}], ",", "2", ",", SqrtBox[ FractionBox["z", RowBox[{"1", "+", "z"}]]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0899.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "c"}], "-", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ FractionBox["1", "2"], "+", "b", "-", "c"}], ")"}], " ", "\[Pi]"}]], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], "]"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]], RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "b", "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "b", "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0900.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "c"}], "-", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "b", "+", "c"}], ")"}], " ", "\[Pi]"}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "b", "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ FractionBox["1", "2"], "+", "b", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0901.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", "\[Pi]", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0902.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", "\[Pi]", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0903.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", "\[Pi]"}]], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], "]"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0904.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}], " ", "\[Pi]"}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", RowBox[{"a", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0905.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "b", "+", "c"}], ")"}], " ", "\[Pi]"}]]}], RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}]], RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", RowBox[{"a", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "c"}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0906.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}], ")"}], " ", "\[Pi]"}]], RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "c"}], ")"}], " ", "\[Pi]"}], "]"}], " "}], "\[Pi]"], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}]], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0907.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]}], "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ FractionBox["3", "2"], "+", RowBox[{"2", " ", "a"}], "-", "b", "-", "c"}]], RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}]}], SqrtBox["\[Pi]"]], SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "b"}], "+", RowBox[{"2", " ", "c"}]}], ")"}]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{"a", "-", FractionBox[ RowBox[{ RowBox[{"2", "b"}], "+", RowBox[{"2", "c"}], "+", "1"}], "4"]}]], RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "b", "+", "c"}], ",", "2", ",", FractionBox["1", SqrtBox[ RowBox[{"1", "+", "z"}]]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0908.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", "b"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{"2", " ", "\[Pi]", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "]"}], SuperscriptBox["z", "b"], " ", RowBox[{"Fibonacci", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", "b"}]}], ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0909.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "b"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], RowBox[{"Fibonacci", "[", RowBox[{ RowBox[{ RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", FractionBox["2", SqrtBox["z"]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0910.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["3", "4"]}], ",", RowBox[{"a", "-", FractionBox["1", "4"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]], " ", SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"ArcCosh", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"1", "+", "z"}], "]"}], "+", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0911.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", RowBox[{"1", "/", "2"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox["z", "a"], RowBox[{"\[Pi]", RowBox[{"(", RowBox[{"z", "+", "1"}], ")"}]}]]}], RowBox[{"Log", "[", FractionBox["1", "z"], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0912.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{"2", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"ArcSinh", "[", SqrtBox["z"], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0913.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", SuperscriptBox["z", RowBox[{"a", "-", FractionBox["1", "2"]}]]}], RowBox[{ SqrtBox["\[Pi]"], SqrtBox[ RowBox[{"1", "+", "z"}]]}]], RowBox[{"Log", "[", RowBox[{ SqrtBox["z"], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0914.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", SuperscriptBox["z", RowBox[{"a", "-", FractionBox["1", "2"]}]]}], RowBox[{ SqrtBox["\[Pi]"], SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}], RowBox[{"Log", "[", RowBox[{ SqrtBox[ RowBox[{"1", "+", "z"}]], "-", SqrtBox["z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0915.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " "}], RowBox[{ SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}]], RowBox[{"ArcSinh", "[", FractionBox["1", SqrtBox["z"]], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0916.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", SuperscriptBox["z", "a"]}], RowBox[{ SqrtBox["\[Pi]"], SqrtBox[ RowBox[{"1", "+", "z"}]]}]], RowBox[{"Log", "[", FractionBox[ RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], SqrtBox["z"]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0917.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", SuperscriptBox["z", "a"]}], RowBox[{ SqrtBox["\[Pi]"], SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}], RowBox[{"Log", "[", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"1", "+", "z"}]], "-", "1"}], SqrtBox["z"]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0918.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["z", "a"], " ", RowBox[{"Log", "[", "z", "]"}]}], RowBox[{"\[Pi]", RowBox[{"(", RowBox[{"z", "+", "1"}], ")"}]}]]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0919.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["3", "4"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "4"]}], ",", RowBox[{"a", "-", FractionBox["1", "4"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "4"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]], " ", SuperscriptBox["z", RowBox[{"a", "-", FractionBox["1", "4"]}]], RowBox[{"ArcCosh", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"1", "+", "z"}], "]"}], "+", "1"}], ")"}], "/", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0920.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,2,3,5}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", SubscriptBox["a", "3"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "3"], ",", SubscriptBox["b", "4"], ",", SubscriptBox["b", "5"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{" ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}]}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "1"]}], "]"}]], " ", SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "4"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "5"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "-", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "2"]}], "]"}]], " ", SuperscriptBox["z", SubscriptBox["b", "2"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "4"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "5"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0921.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ FractionBox["1", "2"], "+", RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", SqrtBox["\[Pi]"]}], " ", SuperscriptBox["z", "a"], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "b", "-", "c"}], ",", SqrtBox["z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0922.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], ")"}], " ", "\[Pi]"}], "+", SqrtBox["z"]}], "]"}], RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0923.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"Cos", "[", SqrtBox["z"], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0924.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"Sin", "[", SqrtBox["z"], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0925.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,2,4,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "3"], ",", SubscriptBox["a", "4"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ")"}]}], "]"}], RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "4"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}], "-", " ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "4"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0926.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", "c"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0927.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", "c"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]], " ", RowBox[{"Csc", "[", RowBox[{"2", " ", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}], " ", "\[Pi]"}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselI", "[", RowBox[{ RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], "-", RowBox[{ RowBox[{"BesselI", "[", RowBox[{ RowBox[{"a", "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0928.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "a"}], ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "b"}]], RowBox[{"Sinh", "[", FractionBox["1", SqrtBox["z"]], "]"}], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0929.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ FractionBox["3", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", "\[Pi]", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "b"}]], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"Cosh", "[", FractionBox["1", SqrtBox["z"]], "]"}]}], "-", RowBox[{ RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"Sinh", "[", FractionBox["1", SqrtBox["z"]], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0930.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["3", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "b"}]], " ", RowBox[{"Cosh", "[", FractionBox["1", SqrtBox["z"]], "]"}], RowBox[{"BesselK", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " "}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0931.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,2,4,6}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "3"], ",", SubscriptBox["a", "4"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "3"], ",", SubscriptBox["b", "4"], ",", SubscriptBox["b", "5"], ",", SubscriptBox["b", "6"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Pi]", " ", SuperscriptBox["z", SubscriptBox["b", "1"]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "4"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "4"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "5"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "6"]}]}], "}"}], ",", "z"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "4"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "4"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "5"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "6"]}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"\[Pi]", " ", SuperscriptBox["z", SubscriptBox["b", "2"]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "4"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "4"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "5"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "6"]}]}], "}"}], ",", "z"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "4"], "-", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "4"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "5"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "6"]}], "]"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1107.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "6"], "+", "b"}], ",", RowBox[{ FractionBox["2", "3"], "+", "b"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "3"], "+", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "3"]}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ FractionBox["1", "6"], "+", "b"}], ",", RowBox[{ FractionBox["2", "3"], "+", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{ SuperscriptBox["3", RowBox[{"1", "/", "6"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "6"]}], "+", "a"}]], " ", RowBox[{"AiryBi", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox["3", "2"], ")"}], RowBox[{"2", "/", "3"}]], " ", SuperscriptBox["z", RowBox[{"1", "/", "3"}]]}], "]"}], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["1", "3"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}]}], RowBox[{ SuperscriptBox["2", RowBox[{"2", "/", "3"}]], " ", SqrtBox["\[Pi]"]}]]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1108.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "3"], "+", "b"}], ",", RowBox[{ FractionBox["5", "6"], "+", "b"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["2", "3"], "+", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["2", "3"]}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ FractionBox["1", "3"], "+", "b"}], ",", RowBox[{ FractionBox["5", "6"], "+", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "3"]}], "+", "a"}]], " ", RowBox[{"AiryBiPrime", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox["3", "2"], ")"}], RowBox[{"2", "/", "3"}]], " ", SuperscriptBox["z", RowBox[{"1", "/", "3"}]]}], "]"}], " ", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["2", "3"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}]}], RowBox[{ SuperscriptBox["2", RowBox[{"1", "/", "3"}]], " ", SuperscriptBox["3", RowBox[{"1", "/", "6"}]], " ", SqrtBox["\[Pi]"]}]]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1109.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,2,5,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "3"], ",", SubscriptBox["a", "4"], ",", SubscriptBox["a", "5"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", SubscriptBox["b", "3"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "3"]}], "]"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "4"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "5"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "-", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], "]"}]}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "3"]}], "]"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "4"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "5"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0932.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "c"}]}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{ FractionBox["1", "2"], "+", RowBox[{"2", " ", "b"}], "-", "c"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", SqrtBox["\[Pi]"]}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0933.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "b"}]], " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", "\[Pi]"}], "+", FractionBox["1", SqrtBox["z"]]}], "]"}], RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0934.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "a"}], ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "b"}]], " ", RowBox[{"Sin", "[", FractionBox["1", SqrtBox["z"]], "]"}], RowBox[{"BesselY", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0935.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["3", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "b"}]], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ FractionBox["3", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"Cos", "[", FractionBox["1", SqrtBox["z"]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0936.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,3,3,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ SuperscriptBox["\[Pi]", "2"], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "+", RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "+", RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "2"]}], "+", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "2"]}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "3"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["a", "2"], "-", SubscriptBox["a", "3"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["a", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0937.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,3,3,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", SubscriptBox["b", "3"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}], "]"}], " ", SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", "z"}], "]"}]}], "-", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "2"]}], "]"}], " ", SuperscriptBox["z", SubscriptBox["b", "2"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", "z"}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0938.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,3,4,2}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}], ",", RowBox[{"{", SubscriptBox["a", "4"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "4"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "4"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "3"]}]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "+", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["a", "2"]}], "+", SubscriptBox["a", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["a", "2"], "-", SubscriptBox["a", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["a", "4"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}], ")"}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["a", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0939.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "c"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", " ", "b"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"5", "/", "2"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "b"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}], "-", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], ")"}], " ", RowBox[{"Csc", "[", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], ")"}], " ", "\[Pi]"}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0940.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["4", RowBox[{"a", "-", "b"}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "c"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"2", "+", RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}]}], ",", RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", "a", "-", "c"}], ")"}]}], ",", RowBox[{"-", FractionBox["2", SqrtBox[ RowBox[{"-", "z"}]]]}]}], "]"}], "+", RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}]}], ",", RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", "a", "-", "c"}], ")"}]}], ",", FractionBox["2", SqrtBox[ RowBox[{"-", "z"}]]]}], "]"}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0941.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "c", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["4", RowBox[{"a", "-", "b"}]], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}], "]"}], " ", SqrtBox[ RowBox[{"-", "z"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "c"}]], RowBox[{"(", RowBox[{ RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"-", FractionBox["2", SqrtBox[ RowBox[{"-", "z"}]]]}]}], "]"}], "-", RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}], ",", FractionBox["2", SqrtBox[ RowBox[{"-", "z"}]]]}], "]"}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0942.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Gamma", "[", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{"-", FractionBox["1", "z"]}]]}]], RowBox[{"Gamma", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{"-", FractionBox["1", "z"]}]]}]}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", FractionBox["1", "z"]}]]}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", FractionBox["1", "z"]}]]}]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0943.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{"-", FractionBox["1", "z"]}]]}]]}], RowBox[{"Gamma", "[", RowBox[{ RowBox[{ RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{"-", FractionBox["1", "z"]}]]}]}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", FractionBox["1", "z"]}]]}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{ RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", FractionBox["1", "z"]}]]}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"0", "\[LessEqual]", RowBox[{"Arg", "[", "z", "]"}], "\[LessEqual]", FractionBox["\[Pi]", "2"]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0944.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "b"}]], " ", RowBox[{"Csc", "[", RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"Cos", "[", FractionBox["1", SqrtBox["z"]], "]"}]}], "+", RowBox[{ RowBox[{"BesselY", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"Sin", "[", FractionBox["1", SqrtBox["z"]], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0945.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}], ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"Csc", "[", RowBox[{"2", " ", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}], " ", "\[Pi]"}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "b"}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselY", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"Cos", "[", FractionBox["1", SqrtBox["z"]], "]"}]}], "-", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"Sin", "[", FractionBox["1", SqrtBox["z"]], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0946.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={2,4,5,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "b"}]], " ", RowBox[{"Csc", "[", RowBox[{"2", " ", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselY", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "+", "c", "-", RowBox[{"2", "b"}]}], ")"}], " ", "\[Pi]"}], "+", FractionBox["1", SqrtBox["z"]]}], "]"}]}], "+", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", FractionBox["1", SqrtBox["z"]]}], "]"}], RowBox[{"Cos", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "+", "c", "-", RowBox[{"2", "b"}]}], ")"}], " ", "\[Pi]"}], "+", FractionBox["1", SqrtBox["z"]]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0947.01"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cases with ", StyleBox["m\[Equal]3 ", "Program"] }], "Subsubsection"], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={3,0,0,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "+", " ", RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "2"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", SuperscriptBox["z", SubscriptBox["b", "2"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "+", " ", RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", SuperscriptBox["z", SubscriptBox["b", "3"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["b", "2"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0948.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "3"]}], ",", RowBox[{"b", "+", FractionBox["2", "3"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", "\[Pi]", " ", SuperscriptBox["z", "b"]}], SqrtBox["3"]], SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "3"}], SuperscriptBox["z", RowBox[{"1", "/", "3"}]]}]]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1110.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={3,0,0,4}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}], ",", RowBox[{"{", SubscriptBox["b", "4"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", SubscriptBox["b", "1"]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", SubscriptBox["b", "2"]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "2"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", SubscriptBox["b", "3"]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["b", "2"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "3"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0949.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "c", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "b"}], "-", "c"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"4", " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "b"], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], ")"}]}], ",", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]}], "]"}], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], ")"}]}], ",", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0950.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "c", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "b"}], "-", "c"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"b", "-", "c"}], ")"}], " ", "\[Pi]"}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]}], "]"}], "+", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "b"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]}], "]"}]}], ")"}], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "b"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0951.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "c"}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "b"], " ", RowBox[{"(", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"2", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]}], "]"}], "-", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "b"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]}], "]"}]}], ")"}], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "b"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], ")"}], " ", "\[Pi]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0952.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "4"], "+", "a"}], ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]], " ", SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"Sin", "[", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0953.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", RowBox[{"1", "/", "4"}]}], ",", RowBox[{"a", "+", RowBox[{"3", "/", "4"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]], " ", SuperscriptBox["z", "a"], RowBox[{"Cos", "[", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}], "]"}], SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0954.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={3,0,1,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", SubscriptBox["a", "1"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"(", " ", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}]], SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", "z"}], "]"}]}], "+", " ", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "2"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}]], SuperscriptBox["z", SubscriptBox["b", "2"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", "z"}], "]"}]}], "+", " ", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "3"]}], "]"}]], SuperscriptBox["z", SubscriptBox["b", "3"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["b", "2"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", "z"}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0955.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", "a"}], ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0956.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", "a"}], ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "b"], " ", RowBox[{"ExpIntegralE", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0957.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " "}], SqrtBox["\[Pi]"]], SuperscriptBox[ RowBox[{"BesselK", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], "2"]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0958.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{"2", " ", SuperscriptBox["z", "a"], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}], SqrtBox["\[Pi]"]]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0959.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", FractionBox["3", "4"]}], ",", RowBox[{"a", "-", FractionBox["1", "4"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", "\[Pi]", " ", SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"(", RowBox[{"1", "-", RowBox[{"Erf", "[", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0960.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={3,0,1,4}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", SubscriptBox["a", "1"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}], ",", RowBox[{"{", SubscriptBox["b", "4"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", SubscriptBox["b", "1"]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", "z"}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", SubscriptBox["b", "2"]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "2"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", "z"}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", SubscriptBox["b", "3"]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "3"]}], "]"}]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["b", "2"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "3"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", "z"}], "]"}]}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0961.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "6"]}], "+", "a"}], ",", RowBox[{ FractionBox["1", "6"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", SqrtBox["3"]], SuperscriptBox["z", RowBox[{"a", "-", FractionBox["1", "2"]}]], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "3"}], RowBox[{ RowBox[{"z", "^", RowBox[{"(", RowBox[{"1", "/", "3"}], ")"}]}], "/", "2"}]}], "]"}], RowBox[{"Cos", "[", RowBox[{ RowBox[{"3", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}], " ", RowBox[{ RowBox[{"z", "^", RowBox[{"(", RowBox[{"1", "/", "3"}], ")"}]}], "/", "2"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0962.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={3,0,1,5}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", SubscriptBox["a", "1"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "4"], ",", SubscriptBox["b", "5"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}]], SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "4"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "5"]}]}], "}"}], ",", "z"}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "2"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}], " "}]], " ", SuperscriptBox["z", SubscriptBox["b", "2"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "4"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "5"]}]}], "}"}], ",", "z"}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "3"]}], "]"}]], " ", SuperscriptBox["z", SubscriptBox["b", "3"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["b", "2"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "3"], "-", SubscriptBox["b", "4"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "3"], "-", SubscriptBox["b", "5"]}]}], "}"}], ",", "z"}], "]"}]}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0963.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{"a", "+", FractionBox[ RowBox[{"n", "-", "1"}], "2"]}], ",", RowBox[{"a", "+", FractionBox["n", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"a", "+", FractionBox[ RowBox[{"n", "-", "2"}], "4"]}]], RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"BesselK", "[", RowBox[{"n", ",", RowBox[{"4", " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]}], "]"}]}], "\[Pi]"], "-", RowBox[{"BesselY", "[", RowBox[{"n", ",", RowBox[{"4", " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]}], "]"}]}], ")"}]}]}], "/;", RowBox[{"n", "\[Element]", "Integers"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0964.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", "a"}], ",", RowBox[{"a", "+", FractionBox["n", "2"]}], ",", RowBox[{"a", "+", FractionBox[ RowBox[{"n", "+", "1"}], "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"a", "+", FractionBox["n", "4"]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", "\[Pi]"], RowBox[{"BesselK", "[", RowBox[{"n", ",", RowBox[{"4", " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]}], "]"}]}], "+", RowBox[{"BesselY", "[", RowBox[{"n", ",", RowBox[{"4", " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]}], "]"}]}], ")"}]}]}], "/;", RowBox[{"n", "\[Element]", "Integers"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0965.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={3,0,2,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}]}]], SuperscriptBox["z", SubscriptBox["b", "1"]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "+", " ", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "2"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], "]"}]}]], SuperscriptBox["z", SubscriptBox["b", "2"]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "3"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "3"]}], "]"}]}]], SuperscriptBox["z", SubscriptBox["b", "3"]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["b", "2"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0966.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={3,0,2,4}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}], ",", RowBox[{"{", SubscriptBox["b", "4"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}]}]], " ", SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "2"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " "}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], "]"}], " "}]], SuperscriptBox["z", SubscriptBox["b", "2"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " "}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "3"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "3"]}], "]"}]}]], " ", SuperscriptBox["z", SubscriptBox["b", "3"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["b", "2"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "3"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0967.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "a"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", SqrtBox["z"]}], "]"}]}], "+", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], ",", SqrtBox["z"]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0968.01"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}]}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}], "+", RowBox[{ RowBox[{"BesselY", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0969.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox["1", SqrtBox["2"]]}], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselY", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"Cos", "[", SqrtBox["z"], "]"}]}], "+", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"Sin", "[", SqrtBox["z"], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0970.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " "}], SqrtBox["2"]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"Cos", "[", SqrtBox["z"], "]"}]}], "-", RowBox[{ RowBox[{"BesselY", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"Sin", "[", SqrtBox["z"], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0971.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], "2"]}], "+", SuperscriptBox[ RowBox[{"BesselY", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], "2"]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0972.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={3,0,2,6}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "4"], ",", SubscriptBox["b", "5"], ",", SubscriptBox["b", "6"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}]}]], " ", SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "4"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "5"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "6"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "2"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " "}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], "]"}], " "}]], SuperscriptBox["z", SubscriptBox["b", "2"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "4"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "5"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "6"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "3"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "3"]}], "]"}]}]], " ", SuperscriptBox["z", SubscriptBox["b", "3"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["b", "2"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "3"], "-", SubscriptBox["b", "4"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "3"], "-", SubscriptBox["b", "5"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "3"], "-", SubscriptBox["b", "6"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0973.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}], ",", RowBox[{ FractionBox["1", "4"], "+", "a"}], ",", "b"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " "}], SqrtBox["\[Pi]"]]}], RowBox[{"BesselI", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0974.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={3,0,3,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ SuperscriptBox["\[Pi]", "2"], RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " "}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "1"]}], "]"}]}]], SuperscriptBox["z", SubscriptBox["b", "1"]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", "z"}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "2"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], "]"}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "2"]}], "]"}]}]], SuperscriptBox["z", SubscriptBox["b", "2"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", "z"}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["b", "3"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "3"]}], "]"}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "3"], "-", SubscriptBox["b", "3"]}], "]"}]}]], SuperscriptBox["z", SubscriptBox["b", "3"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["b", "2"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", "z"}], "]"}]}]}], ")"}], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0975.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "c", ",", "d"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "e", ",", RowBox[{"a", "-", "b", "+", "d", "-", "e"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}], RowBox[{"Gamma", "[", "c", "]"}]], " ", SuperscriptBox["z", RowBox[{"b", "-", "c", "+", "e"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "c"}]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b", "+", "e"}], ",", RowBox[{"b", "-", "d", "+", "e"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"c", "-", "e"}], ",", RowBox[{ RowBox[{"-", "b"}], "+", "c"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "c", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"1", "-", "z"}], ",", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", "z"}], "z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0976.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a", ",", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", "1"}], ",", RowBox[{"a", "-", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["z", RowBox[{"a", "-", "1"}]], "2"], " ", SuperscriptBox[ RowBox[{"Log", "[", "z", "]"}], "2"], " ", RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0977.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={3,1,1,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], SuperscriptBox["z", SubscriptBox["b", "1"]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "+", " ", RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "2"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], SuperscriptBox["z", SubscriptBox["b", "2"]], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "+", " ", RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}], "]"}], SuperscriptBox["z", SubscriptBox["b", "3"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["b", "2"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0978.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}], ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "b"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "-", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", "z"}]]}]}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", "z"}]]}]}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}], ",", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"Re", "[", "z", "]"}], "<", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0979.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"a", "-", FractionBox["1", "2"]}], ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ")"}]}]], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}]}], "+", RowBox[{"StruveH", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0980.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", RowBox[{"-", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox[ RowBox[{"-", "z"}]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0981.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"5", "/", "2"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}]}], "-", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", SqrtBox["z"]}], "]"}]}]}], ")"}], " ", RowBox[{"Csc", "[", RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0982.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["3", "4"]}], ",", RowBox[{"a", "-", FractionBox["1", "4"]}], ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}], SuperscriptBox["z", RowBox[{"a", "-", FractionBox["3", "4"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"1", "/", "2"}], "-", RowBox[{"FresnelS", "[", RowBox[{ RowBox[{"2", "/", SqrtBox["\[Pi]"]}], RowBox[{"z", "^", RowBox[{"(", RowBox[{"1", "/", "4"}], ")"}]}]}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"1", "/", "2"}], "-", RowBox[{"FresnelC", "[", RowBox[{ RowBox[{"2", "/", SqrtBox["\[Pi]"]}], RowBox[{"z", "^", RowBox[{"(", RowBox[{"1", "/", "4"}], ")"}]}]}], "]"}]}], ")"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0983.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", "a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", "2"}], SqrtBox["\[Pi]"], SuperscriptBox["z", RowBox[{"a", "-", FractionBox["1", "2"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"SinIntegral", "[", RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}], "-", RowBox[{"Pi", "/", "2"}]}], ")"}]}], "-", RowBox[{ RowBox[{"Sin", "[", RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}], RowBox[{"CosIntegral", "[", RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0984.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "4"]}], ",", "a", ",", RowBox[{"a", "+", FractionBox["1", "4"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}], SuperscriptBox["z", RowBox[{"a", "-", FractionBox["1", "4"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"1", "/", "2"}], "-", RowBox[{"FresnelS", "[", RowBox[{ RowBox[{"2", "/", SqrtBox["\[Pi]"]}], RowBox[{"z", "^", RowBox[{"(", RowBox[{"1", "/", "4"}], ")"}]}]}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"1", "/", "2"}], "-", RowBox[{"FresnelC", "[", RowBox[{ RowBox[{"2", "/", SqrtBox["\[Pi]"]}], RowBox[{"z", "^", RowBox[{"(", RowBox[{"1", "/", "4"}], ")"}]}]}], "]"}]}], ")"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0985.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a", ",", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", "2"}], SqrtBox["\[Pi]"], SuperscriptBox["z", "a"], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Sin", "[", RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"SinIntegral", "[", RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}], "-", RowBox[{"Pi", "/", "2"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Cos", "[", RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}], RowBox[{"CosIntegral", "[", RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0986.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={3,1,2,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", SubscriptBox["a", "2"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " "}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}]], SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", "z"}], "]"}]}], "+", " ", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "2"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], "]"}]], SuperscriptBox["z", SubscriptBox["b", "2"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", "z"}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "3"]}], "]"}]], SuperscriptBox["z", SubscriptBox["b", "3"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["b", "2"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", "z"}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0987.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={3,1,2,4}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", SubscriptBox["a", "2"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}], ",", RowBox[{"{", SubscriptBox["b", "4"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "1"]}], "]"}]], " ", SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", "z"}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "2"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "2"]}], "]"}]], " ", SuperscriptBox["z", SubscriptBox["b", "2"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", "z"}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["b", "3"]}], "]"}]], " ", SuperscriptBox["z", SubscriptBox["b", "3"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["b", "2"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "3"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", "z"}], "]"}]}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0988.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", FractionBox[ RowBox[{"a", "+", "c", "-", "1"}], "2"], ",", FractionBox[ RowBox[{"a", "+", "c"}], "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "-", "b", "+", "c", "-", "1"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}]], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], "]"}]], " ", SuperscriptBox["z", "b"], " ", RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox["z"]}]}], "]"}], " ", RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0989.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", FractionBox[ RowBox[{"a", "+", "c", "-", "1"}], "2"], ",", FractionBox[ RowBox[{"a", "+", "c"}], "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b", "+", "c"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}]], SqrtBox["\[Pi]"], RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], "]"}]], SuperscriptBox["z", "b"], SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox["z"]}]], RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"1", "+", "b", "-", "c"}], ",", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}], " ", RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0990.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "c", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", "\[Pi]"}], "]"}], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselI", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", SqrtBox["z"]}], "]"}]}], "+", RowBox[{ RowBox[{"BesselI", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], ",", SqrtBox["z"]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0991.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "a"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"BesselI", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], ",", SqrtBox["z"]}], "]"}]}], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", SqrtBox["z"]}], "]"}]}], "+", RowBox[{ RowBox[{"BesselI", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], ",", SqrtBox["z"]}], "]"}]}]}], ")"}], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}], " ", "\[Pi]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0992.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "c", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "b"}], "-", "c"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"1", "-", RowBox[{"2", " ", "b"}], "+", RowBox[{"2", " ", "c"}]}]], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}], " "}], RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "b"}], "+", RowBox[{"2", " ", "c"}]}], "]"}]], SuperscriptBox["z", "c"], RowBox[{"Hypergeometric1F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"1", "-", RowBox[{"2", " ", "b"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox["z"]}]}], "]"}], " ", RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"1", "-", RowBox[{"2", " ", "b"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0993.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}], ",", RowBox[{ FractionBox["1", "4"], "+", "a"}], ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", "\[Pi]", " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"Erfc", "[", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}], "]"}], " ", RowBox[{"Erfi", "[", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0994.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={3,1,3,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "1"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0995.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"-", "1"}], "+", "b"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "d", ",", "e"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ")"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "d"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "e"}], "]"}], " "}], RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], RowBox[{"(", RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "d"}], ",", RowBox[{"1", "-", "a", "+", "e"}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}], "-", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "a", "+", "d"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "a", "+", "e"}], ")"}], " "}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "a", "+", "c"}], ")"}], " ", "z"}]], RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"2", "-", "a", "+", "d"}], ",", RowBox[{"2", "-", "a", "+", "e"}], ",", RowBox[{"2", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0996.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"b", "-", "n"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "d", ",", "e"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "d"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "e"}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}]], SuperscriptBox["z", RowBox[{"1", "-", "a"}]], RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["z", "k"], " ", RowBox[{"Binomial", "[", RowBox[{"n", ",", "k"}], "]"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "d", "+", "k"}], ",", RowBox[{"1", "-", "a", "+", "e", "+", "k"}], ",", RowBox[{"1", "-", "a", "+", "c", "+", "k"}], ",", RowBox[{"-", "z"}]}], "]"}], " ", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"a", "-", "b"}], ",", RowBox[{ RowBox[{"-", "k"}], "+", "n"}]}], "]"}], " ", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "d"}], ",", "k"}], "]"}], " ", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "e"}], ",", "k"}], "]"}]}], ")"}], "/", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "c"}], ",", "k"}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "0", ",", "n"}], "}"}]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"n", "\[Element]", "Integers"}], "\[And]", RowBox[{"n", ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0997.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"1", "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "d", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "+", "d"}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], "]"}]], SuperscriptBox["z", "a"], RowBox[{"(", RowBox[{"1", "-", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "d"}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], ")"}]}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0998.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"1", "+", "b"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "d", ",", RowBox[{ RowBox[{"-", "1"}], "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "d"}], "]"}]}], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "a", "+", "b"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", "c"}], ")"}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"1", "-", "a", "+", "d"}], ",", RowBox[{"2", "-", "a", "+", "b"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "a", "+", "b"}], ")"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", RowBox[{"1", "-", "a", "+", "d"}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.0999.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"2", "-", "a", "+", "b", "-", "c", "+", RowBox[{"2", " ", "d"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "d", ",", RowBox[{ FractionBox["1", "2"], "+", "d"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SqrtBox["\[Pi]"], RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "d"}]}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"3", "-", RowBox[{"2", " ", "a"}], "+", "b", "-", "c", "+", RowBox[{"2", " ", "d"}]}], "]"}]}]], " ", SuperscriptBox["z", "d"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["z"]}], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}], RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "d"}]}]], " ", RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "b"}], "+", "c"}], ",", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "d"}]}], ",", RowBox[{"2", "-", "a", "-", "c", "+", RowBox[{"2", " ", "d"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"3", "-", RowBox[{"2", " ", "a"}], "+", "b", "-", "c", "+", RowBox[{"2", " ", "d"}]}]}], "}"}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "z"}], "-", RowBox[{"2", " ", SqrtBox["z"], " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1000.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"b", "-", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", " ", "b"}], "-", "c"}], "]"}]}]}], RowBox[{"2", " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "2"}], "+", "a"}]], " ", RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1001.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"b", "-", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", " ", "b"}], "-", "c"}], "]"}]}], RowBox[{"2", " ", RowBox[{"Gamma", "[", RowBox[{"2", "-", "a", "+", "c"}], "]"}]}]]}], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", RowBox[{"4", " ", "b"}], "-", RowBox[{"2", " ", "c"}]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"4", " ", "b"}], "+", RowBox[{"2", " ", "c"}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "c"}], ")"}], " ", "z", " ", RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ",", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "b"}], "+", RowBox[{"2", " ", "c"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", "-", "a", "+", "c"}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ")"}], " ", RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "b"}], "+", RowBox[{"2", " ", "c"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", "-", "a", "+", "c"}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1002.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"b", "-", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ FractionBox[ RowBox[{"a", "+", "b"}], "2"], "-", "1"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", RowBox[{"Gamma", "[", RowBox[{ FractionBox[ RowBox[{"b", "-", "a"}], "2"], "+", "1"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], "]"}], " "}], RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}]], " ", SuperscriptBox["z", RowBox[{ FractionBox[ RowBox[{"a", "-", "b"}], "2"], "+", "c", "-", "1"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ FractionBox[ RowBox[{"a", "+", "b"}], "2"], "-", "c"}]], RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"a", "+", "b"}], "2"]}], "+", "c"}], ",", RowBox[{"b", "-", "c"}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1003.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"b", "+", "2"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"2", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"Gamma", "[", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"3", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], "]"}]}], RowBox[{ RowBox[{"(", RowBox[{"2", "-", "a", "+", "b"}], ")"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}]}]], " ", SuperscriptBox["z", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", RowBox[{"2", "-", "a", "+", "b"}], ",", RowBox[{ RowBox[{"-", "b"}], "+", "c"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"3", "-", "a", "+", "b"}], ",", RowBox[{"1", "-", "a", "+", "c"}]}], "}"}], ",", FractionBox[ RowBox[{"4", " ", "z"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], "2"]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], ">", "1"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1004.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"a", "-", RowBox[{"2", " ", "b"}], "+", "c"}]], " ", SqrtBox["\[Pi]"]}], RowBox[{"c", "-", "a"}]], SuperscriptBox["z", RowBox[{ FractionBox[ RowBox[{"a", "+", "c"}], "2"], " ", "-", "1"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SqrtBox["z"], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}], RowBox[{"a", "-", "c"}]], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", FractionBox[ RowBox[{ SqrtBox["z"], "-", SqrtBox[ RowBox[{"1", "+", "z"}]]}], RowBox[{"2", SqrtBox["z"]}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1005.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "a", "+", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "b"}], "+", RowBox[{"2", " ", "c"}]}]], " ", SqrtBox["\[Pi]"]}], RowBox[{"c", "-", "a"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "c"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["z"]}], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}], RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "c"}]}]], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "b"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "z"}], "-", RowBox[{"2", " ", SqrtBox["z"], " ", SqrtBox[ RowBox[{"1", "+", "z"}]]}]}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1006.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "c", "+", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "+", "c"}], ")"}]}], ",", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}]}], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", "\[Pi]", " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"b", "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"3", "-", "a", "-", "c"}], ")"}]}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}]}]}], "]"}]}]], " ", SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "z"}]}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"1", "-", "a", "+", "b"}], "3"], ",", FractionBox[ RowBox[{"2", "-", "a", "+", "b"}], "3"], ",", RowBox[{"1", "+", FractionBox[ RowBox[{"b", "-", "a"}], "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ RowBox[{"3", "-", "a", "-", "c"}], "2"], "+", "b"}], ",", RowBox[{"1", "+", FractionBox[ RowBox[{"c", "-", "a"}], "2"]}]}], "}"}], ",", FractionBox[ RowBox[{"27", " ", "z"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "z"}]}], ")"}], "3"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1007.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "c"}], "-", "a", "-", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "2"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}]}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "1"}], "-", "a", "-", "b", "+", RowBox[{"2", " ", "c"}]}], "]"}]}], RowBox[{ RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", "c"}], ")"}], " ", SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], "]"}], "2"]}]]}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"1", "+", "a", "+", "b", "-", RowBox[{"2", " ", "c"}]}], ")"}]}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ FractionBox[ RowBox[{"b", "-", "a", "+", "1"}], "2"], ",", RowBox[{"c", "-", FractionBox[ RowBox[{"a", "+", "b"}], "2"]}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ FractionBox[ RowBox[{"b", "-", "a", "+", "1"}], "2"], ",", RowBox[{"c", "-", FractionBox[ RowBox[{"a", "+", "b"}], "2"]}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ")"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"b", "-", "a"}], "2"], "+", "1"}], ",", RowBox[{"c", "-", FractionBox[ RowBox[{"a", "+", "b", "+", "1"}], "2"]}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"b", "-", "a"}], "2"], "+", "1"}], ",", RowBox[{"c", "-", FractionBox[ RowBox[{"a", "+", "b", "+", "1"}], "2"]}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1008.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "c"}], "-", "a", "-", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}]], " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], "]"}]}], SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}], "2"]]}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", "a", "+", "b"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], ")"}]}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", "a", "+", "b"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], ")"}]}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1009.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "c"}], "-", "a", "-", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", SqrtBox[ RowBox[{"1", "+", "z"}]]], RowBox[{"(", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "c"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], "]"}], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", "c"}], ",", RowBox[{"a", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", "c"}], ",", RowBox[{"1", "+", "a", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1010.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "c"}], "-", "a", "-", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["2"], " ", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "b", "+", "c"}], ")"}], " ", "\[Pi]"}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], "]"}]}], SqrtBox[ RowBox[{"1", "+", "z"}]]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "c"}]], RowBox[{"LegendreP", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", RowBox[{"a", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ FractionBox["1", "2"], "+", "b", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1011.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", RowBox[{"2", " ", "c"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "b", "+", "c"}], ")"}], " ", "\[Pi]"}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], "]"}], " "}], SqrtBox[ RowBox[{"1", "+", "z"}]]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "c"}]], RowBox[{"LegendreP", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", RowBox[{"1", "+", "a", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ FractionBox["1", "2"], "+", "b", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1012.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "c"}], "-", "a", "-", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ FractionBox["1", "2"], "+", "b", "-", "c"}], ")"}], " ", "\[Pi]"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}]}], SqrtBox[ RowBox[{"1", "+", "z"}]]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "c"}]], RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", "c"}], ",", RowBox[{"1", "+", "a", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "b", "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1013.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", RowBox[{"2", " ", "c"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"b", "-", "c"}], ")"}], " ", "\[Pi]"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "1"}], "-", "a", "-", "b", "+", RowBox[{"2", " ", "c"}]}], "]"}], SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "b", "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "b", "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1014.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", RowBox[{"2", " ", "c"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"b", "-", "c"}], ")"}], " ", "\[Pi]"}]], RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], "]"}], " "}], RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], "]"}], SqrtBox[ RowBox[{"1", "+", "z"}]]}]]}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]], RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ FractionBox["1", "2"], "+", "b", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ FractionBox["1", "2"], "+", "b", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1015.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "c"}], "-", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "2"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "1"}], "-", "a", "-", "b", "+", RowBox[{"2", " ", "c"}]}], "]"}], " "}], RowBox[{ RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}], " ", SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}], "2"]}]]}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"1", "+", "a", "+", "b", "-", RowBox[{"2", " ", "c"}]}], ")"}]}], " ", SuperscriptBox[ RowBox[{"Hypergeometric2F1", "[", RowBox[{ FractionBox[ RowBox[{"b", "-", "a", "+", "1"}], "2"], ",", RowBox[{"c", "-", FractionBox[ RowBox[{"a", "+", "b"}], "2"]}], " ", ",", RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}], "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ")"}], " ", SuperscriptBox[ RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"b", "-", "a"}], "2"], " ", "+", "1"}], ",", RowBox[{"c", "-", FractionBox[ RowBox[{"a", "+", "b", "+", "1"}], "2"]}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}], "2"]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1016.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "c"}], "-", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["4", RowBox[{"a", "-", "c"}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], "]"}]}], SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}], "2"]], SuperscriptBox[ RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", "a", "+", "b"}], ")"}]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], ")"}]}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}], "2"]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1017.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "c"}], "-", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}]}]], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], "]"}]}], SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}], "2"]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], SuperscriptBox[ RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{ FractionBox["1", RowBox[{"2", SqrtBox["z"]}]], " ", RowBox[{"(", RowBox[{ SqrtBox["z"], "-", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}]}]}], "]"}], "2"]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1018.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", " ", ",", RowBox[{ RowBox[{"2", " ", "c"}], "-", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}]}]], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], "]"}]}], SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}], "2"]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", "a"}]], " ", SqrtBox[ RowBox[{"1", "+", "z"}]], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", "a", "+", "b"}], ")"}]}], ",", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "-", "b"}], ")"}]}], "+", "c"}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ")"}]}], "+", "1"}], ",", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", "a", "-", "b"}], ")"}]}], "+", "c"}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1019.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", " ", "c"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "c"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], "]"}], " ", SuperscriptBox[ RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", "c"}], ",", RowBox[{"a", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}], "2"]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1020.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "c"}], "-", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"c", "-", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "b", "+", "c"}], ")"}], " ", "\[Pi]"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "c"}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], "]"}], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", "c"}], ",", RowBox[{"a", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{"c", "-", "a", "-", FractionBox["1", "2"]}], ",", RowBox[{"b", "-", "c", "+", FractionBox["1", "2"]}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1021.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", " ", "c"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"c", "-", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"b", "-", "c"}], ")"}], " ", "\[Pi]"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], "]"}]}]]}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]], SuperscriptBox[ RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "b", "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}], "2"]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1022.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "c"}], "-", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ FractionBox["1", "2"], "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}]], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], "]"}]}], SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}], "2"]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], RowBox[{"Hypergeometric2F1", "[", RowBox[{ FractionBox[ RowBox[{"b", "-", "a", "+", "1"}], "2"], ",", RowBox[{"c", "-", FractionBox[ RowBox[{"a", "+", "b"}], "2"]}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ FractionBox[ RowBox[{"b", "-", "a", "+", "1"}], "2"], ",", RowBox[{"c", "-", FractionBox[ RowBox[{"a", "+", "b"}], "2"]}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "c"}]}], ")"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ FractionBox[ RowBox[{"b", "-", "a", "+", "1"}], "2"], ",", RowBox[{"c", "-", FractionBox[ RowBox[{"a", "+", "b"}], "2"]}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1023.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "c"}], "-", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"2", " ", "c"}], "-", "b"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}]}]], SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "-", "b", "+", RowBox[{"2", " ", "c"}]}], "]"}]}], SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}], "2"]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], RowBox[{"Hypergeometric2F1", "[", RowBox[{ FractionBox[ RowBox[{"b", "-", "a"}], "2"], ",", RowBox[{ FractionBox[ RowBox[{"1", "-", "a", "-", "b"}], "2"], "+", "c"}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "+", FractionBox[ RowBox[{"b", "-", "a"}], "2"]}], ",", RowBox[{ FractionBox[ RowBox[{"1", "-", "a", "-", "b"}], "2"], "+", "c"}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1024.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", " ", "c"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "b"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "-", "b", "+", RowBox[{"2", " ", "c"}]}], "]"}]}], SqrtBox[ RowBox[{"1", "+", "z"}]]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]], RowBox[{"LegendreP", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", RowBox[{"a", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "b"}], "+", "c"}], ",", RowBox[{"a", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1025.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "c"}], "-", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "b"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", "c"}], "-", "a", "-", "b"}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ FractionBox["1", "2"], "+", "b", "-", "c"}], ")"}], " ", "\[Pi]"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}]}], SqrtBox[ RowBox[{"1", "+", "z"}]]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "c"}]], RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "b"}], "+", "c"}], ",", RowBox[{"a", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "b", "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1026.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "c"}], "-", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "b"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"b", "-", "c"}], ")"}], " ", "\[Pi]"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "-", "b", "+", RowBox[{"2", " ", "c"}]}], "]"}], SqrtBox[ RowBox[{"1", "+", "z"}]]}]], " ", SuperscriptBox["z", "c"], RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "b", "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ FractionBox["1", "2"], "-", "b", "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1027.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "c"}], "-", "a", "+", "2"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"1", "-", "b", "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ FractionBox["1", "2"], "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "c"}], ")"}]}]], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"2", "-", "a", "-", "b", "+", RowBox[{"2", " ", "c"}]}], "]"}], " "}], RowBox[{ RowBox[{"(", RowBox[{"1", "-", "a", "+", "c"}], ")"}], " ", SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}], "2"]}]]}], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], RowBox[{"Hypergeometric2F1", "[", RowBox[{ FractionBox[ RowBox[{"b", "-", "a", "+", "1"}], "2"], ",", TagBox[ RowBox[{"c", "+", "1", "-", FractionBox[ RowBox[{"a", "+", "b"}], "2"]}], Hypergeometric2F1, Editable->True], ",", RowBox[{"2", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ FractionBox[ RowBox[{"b", "-", "a", "+", "1"}], "2"], ",", TagBox[ RowBox[{"c", "+", "1", "-", FractionBox[ RowBox[{"a", "+", "b"}], "2"]}], Hypergeometric2F1, Editable->True], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "+", RowBox[{"Hypergeometric2F1", "[", RowBox[{ FractionBox[ RowBox[{"b", "-", "a", "+", "1"}], "2"], ",", TagBox[ RowBox[{"c", "+", "1", "-", FractionBox[ RowBox[{"a", "+", "b"}], "2"]}], Hypergeometric2F1, Editable->True], ",", RowBox[{"2", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], ")"}]}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1028.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{ SqrtBox["\[Pi]"], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", "\[Pi]"}], "]"}], RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}]}]}], RowBox[{"a", "-", "c"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"a", "-", "b"}], ",", RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"1", "+", "a", "-", "c"}], ",", RowBox[{ FractionBox["1", RowBox[{"2", SqrtBox["z"]}]], " ", RowBox[{"(", RowBox[{ SqrtBox["z"], "-", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}]}]}], "]"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"a", "-", "b"}], ",", RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{ FractionBox["1", RowBox[{"2", SqrtBox["z"]}]], " ", RowBox[{"(", RowBox[{ SqrtBox["z"], "-", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}]}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1029.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["\[Pi]"], RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}], " ", "\[Pi]"}], "]"}]}], RowBox[{"c", "-", "a"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"a", "-", FractionBox[ RowBox[{"b", "+", "c"}], "2"]}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", "b", "-", "c"}], ")"}]}], ",", RowBox[{"1", "+", "a", "-", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"1", "+", "b", "+", "c"}], "2"], "-", "a"}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], ")"}]}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1030.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ",", RowBox[{"a", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1031.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox["2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ")"}], " ", "\[Pi]"}]], " ", "\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b", "-", "c"}], "]"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["3", "4"]}], "+", "a"}]], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ",", RowBox[{"a", "-", "c"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", FractionBox["1", "z"]}]]}], "]"}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "b"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1032.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ")"}], " ", "\[Pi]"}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]], " ", RowBox[{"Csc", "[", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a", "-", "c"}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}], " ", RowBox[{"LegendreQ", "[", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "a", "+", "c"}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", "3", ",", SqrtBox[ RowBox[{"1", "+", "z"}]]}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "+", "b", "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", "b", "+", "c"}], "]"}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1033.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"4", " "}], SqrtBox["\[Pi]"]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", SuperscriptBox[ RowBox[{"EllipticK", "[", FractionBox[ RowBox[{ SqrtBox["z"], "-", SqrtBox[ RowBox[{"1", "+", "z"}]]}], RowBox[{"2", " ", SqrtBox["z"]}]], "]"}], "2"]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1034.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["8", RowBox[{ SqrtBox["\[Pi]"], RowBox[{"(", RowBox[{ SqrtBox["z"], "+", SqrtBox[ RowBox[{"z", "+", "1"}]]}], ")"}]}]], SuperscriptBox["z", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "2"}], "+", "a"}]], SuperscriptBox[ RowBox[{"EllipticK", "[", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SqrtBox["z"]}], "+", SqrtBox[ RowBox[{"z", "+", "1"}]]}], ")"}], "2"], "]"}], "2"]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1035.01"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", FractionBox["1", "2"]}], ",", RowBox[{"a", "+", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", SqrtBox["\[Pi]"]], SuperscriptBox["z", "a"], SuperscriptBox[ RowBox[{"ArcSinh", "[", FractionBox["1", SqrtBox["z"]], "]"}], "2"]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1036.01"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", FractionBox["1", "2"]}], ",", RowBox[{"a", "+", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["2", SqrtBox["\[Pi]"]], SuperscriptBox["z", "a"], SuperscriptBox[ RowBox[{"Log", "[", FractionBox[ RowBox[{"1", "+", SqrtBox[ RowBox[{"z", "+", "1"}]]}], SqrtBox["z"]], "]"}], "2"]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1037.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"a", "+", "1"}], ",", RowBox[{"a", "+", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a", ",", RowBox[{"a", "+", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "a"], RowBox[{"Log", "[", FractionBox[ RowBox[{ SqrtBox["z"], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], RowBox[{"2", SqrtBox["z"]}]], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1038.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", "a"}], ",", RowBox[{"1", "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}], ",", "a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SuperscriptBox["z", "a"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Pi]"}], "+", RowBox[{"2", " ", RowBox[{"EllipticE", "[", RowBox[{"-", FractionBox["1", "z"]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1039.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "b"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"-", "1"}]}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"Gamma", "[", RowBox[{"b", "-", "1"}], "]"}]}], RowBox[{"(", RowBox[{ RowBox[{"PolyGamma", "[", RowBox[{"2", "-", "b"}], "]"}], "+", "EulerGamma"}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1040.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "1", "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "b"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"-", "1"}]}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"Gamma", "[", RowBox[{"b", "-", "1"}], "]"}]}], RowBox[{"HarmonicNumber", "[", RowBox[{"1", "-", "b"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1041.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={3,2,2,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " ", SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "+", " ", RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "2"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], "]"}], " ", SuperscriptBox["z", SubscriptBox["b", "2"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "+", " ", RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "3"]}], "]"}], " ", SuperscriptBox["z", SubscriptBox["b", "3"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["b", "2"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1042.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={3,2,2,4}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}], ",", RowBox[{"{", SubscriptBox["b", "4"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", SubscriptBox["b", "1"]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", SubscriptBox["b", "2"]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "2"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", SubscriptBox["b", "3"]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "3"]}], "]"}], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["b", "2"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "3"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1043.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"5", "/", "2"}]], " ", SuperscriptBox["z", "a"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], ",", SqrtBox["z"]}], "]"}]}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", SqrtBox["z"]}], "]"}]}], "+", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], ",", SqrtBox["z"]}], "]"}]}]}], ")"}], " ", RowBox[{"Csc", "[", RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", "\[Pi]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1044.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "c", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "c"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["4", RowBox[{"a", "-", "b"}]], " ", SqrtBox["\[Pi]"], RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], "]"}]}], SqrtBox[ RowBox[{"-", "z"}]]], SuperscriptBox["z", "c"], " ", RowBox[{"(", RowBox[{ RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "b"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}], "-", RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "b"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}]}], ")"}]}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1045.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "c", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "c"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["4", RowBox[{"a", "-", "b"}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "c"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"1", "-", RowBox[{"2", " ", "b"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}], "+", RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"1", "-", RowBox[{"2", " ", "b"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}]}], ")"}]}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1046.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", SqrtBox["2"]}], " ", SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"Csc", "[", RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselY", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"Cos", "[", SqrtBox["z"], "]"}]}], "-", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"Sin", "[", SqrtBox["z"], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1047.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["\[Pi]", "2"], RowBox[{"Csc", "[", RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"Cos", "[", SqrtBox["z"], "]"}]}], "+", RowBox[{ RowBox[{"BesselY", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"Sin", "[", SqrtBox["z"], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1048.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"\[ImaginaryI]", " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{"-", "z"}]]}]]}], RowBox[{"Gamma", "[", RowBox[{ RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", "z"}]]}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"1", "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"Re", "[", "z", "]"}], "<", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1049.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "b"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{"-", "z"}]]}]], RowBox[{"Gamma", "[", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", "z"}]]}]], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}], ",", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1050.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={3,2,3,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", SubscriptBox["a", "3"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{"\[Pi]", " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ")"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "1"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}], "-", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "3"]}], "]"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["a", "2"]}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["a", "3"]}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "-", SubscriptBox["a", "1"]}], ",", "Integers"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1051.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={3,3,3,3}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}], "]"}], " ", SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "+", " ", RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "2"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "2"]}], "]"}], " ", SuperscriptBox["z", SubscriptBox["b", "2"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "+", " ", RowBox[{ RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "3"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "3"]}], "]"}], " ", SuperscriptBox["z", SubscriptBox["b", "3"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["b", "2"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1052.01"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a", ",", "a"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", "a"], FractionBox[ RowBox[{ SuperscriptBox["\[Pi]", "2"], "+", SuperscriptBox[ RowBox[{"Log", "[", "z", "]"}], "2"]}], RowBox[{"2", RowBox[{"(", RowBox[{"z", "+", "1"}], ")"}]}]]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1053.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={3,3,4,4}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"]}], "}"}], ",", RowBox[{"{", SubscriptBox["a", "4"], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", SubscriptBox["b", "3"]}], "}"}], ",", RowBox[{"{", SubscriptBox["b", "4"], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", " ", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "4"], "-", SubscriptBox["b", "1"]}], "]"}]], RowBox[{"(", RowBox[{ SuperscriptBox["z", SubscriptBox["b", "1"]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "1"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}], "]"}], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "1"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "4"], "+", SubscriptBox["b", "1"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["1", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "4"], "-", SubscriptBox["b", "2"]}], "]"}]], RowBox[{"(", RowBox[{ SuperscriptBox["z", SubscriptBox["b", "2"]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SubscriptBox["b", "2"]}], "+", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "2"]}], "]"}], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "4"], "+", SubscriptBox["b", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "2"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "2"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", "z"}], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["1", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "4"], "-", SubscriptBox["b", "3"]}], "]"}]], RowBox[{"(", RowBox[{ SuperscriptBox["z", SubscriptBox["b", "3"]], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Csc", "[", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "3"]}], ")"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "3"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "3"]}], "]"}], " ", RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "2"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "3"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["a", "4"], "+", SubscriptBox["b", "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "-", SubscriptBox["b", "2"], "+", SubscriptBox["b", "3"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "3"], "-", SubscriptBox["b", "4"]}]}], "}"}], ",", "z"}], "]"}]}], ")"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "2"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "1"]}], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ RowBox[{ SubscriptBox["b", "3"], "-", SubscriptBox["b", "2"]}], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1114.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a", ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", FractionBox[ RowBox[{ SuperscriptBox["z", "a"], SuperscriptBox[ RowBox[{"Log", "[", "z", "]"}], "2"]}], RowBox[{"2", "\[Pi]", RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}]}]]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1115.01"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cases with ", StyleBox["m\[Equal]4 ", "Program"] }], "Subsubsection"], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={4,0,0,4}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}], ",", RowBox[{ RowBox[{"2", " ", "b"}], "-", "c"}], ",", "c"}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"8", " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "b"], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "b"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "4"}]]}]}], "]"}], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "b"}], "+", RowBox[{"2", " ", "c"}]}], ",", FractionBox[ RowBox[{"2", " ", SqrtBox["2"], " ", SqrtBox["z"]}], SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "4"}]]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1054.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{"b", "+", FractionBox["1", "4"]}], ",", RowBox[{"b", "+", FractionBox["1", "2"]}], ",", RowBox[{"b", "+", FractionBox["3", "4"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]], SuperscriptBox["z", "b"], SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "4"}], SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1116.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={4,0,1,5}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}], ",", RowBox[{ FractionBox["1", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}], ",", RowBox[{"{", "a", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", "4"}], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "b"], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", " ", SqrtBox["2"], " ", SuperscriptBox["z", RowBox[{"1", "/", "4"}]]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1055.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={4,0,2,4}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", FractionBox[ RowBox[{"a", "+", "c", "-", "1"}], "2"], ",", FractionBox[ RowBox[{"a", "+", "c"}], "2"], ",", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b", "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{"a", "-", RowBox[{"2", " ", "b"}], "+", "c"}]], " ", SqrtBox["\[Pi]"], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b", "+", "c"}]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox["z"]}]], RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{"a", "-", "b"}], ",", RowBox[{"a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}], " ", RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{ RowBox[{"-", "b"}], "+", "c"}], ",", RowBox[{"a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1056.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", FractionBox[ RowBox[{"a", "+", "c", "-", "1"}], "2"], ",", FractionBox[ RowBox[{"a", "+", "c"}], "2"], ",", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b", "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "b"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox["z"]}]], " ", RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}], " ", RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{"1", "+", "b", "-", "c"}], ",", RowBox[{"2", "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", RowBox[{"2", " ", SqrtBox["z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1057.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["z", "a"]}], SqrtBox["\[Pi]"]], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselK", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], ",", SqrtBox["z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1058.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={4,0,3,5}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}], ",", RowBox[{ FractionBox["1", "2"], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "c", ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "c"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], "+", RowBox[{"2", " ", "a"}], "-", "b"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", "2"], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "a"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", SqrtBox["z"]}], "]"}]}], " ", RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], ",", SqrtBox["z"]}], "]"}]}], "+", RowBox[{ RowBox[{"BesselY", "[", RowBox[{ RowBox[{"b", "-", "c"}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "b", "+", "c"}], ",", SqrtBox["z"]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1059.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={4,1,2,4}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", FractionBox[ RowBox[{"a", "+", "c", "-", "1"}], "2"], ",", FractionBox[ RowBox[{"a", "+", "c"}], "2"], ",", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b", "+", "c"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{"a", "-", RowBox[{"2", " ", "b"}], "+", "c"}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b", "+", "c"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], "]"}], " ", RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{ RowBox[{"-", "b"}], "+", "c"}], ",", RowBox[{"a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", SqrtBox["z"]}]}], "]"}], " ", RowBox[{"HypergeometricU", "[", RowBox[{ RowBox[{ RowBox[{"-", "b"}], "+", "c"}], ",", RowBox[{"a", "-", RowBox[{"2", " ", "b"}], "+", "c"}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", SqrtBox["z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1060.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"1", "+", "b"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "a", ",", FractionBox[ RowBox[{"a", "+", "b"}], "2"], ",", FractionBox[ RowBox[{"a", "+", "b", "+", "1"}], "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["2", RowBox[{"1", "-", "a", "+", "b"}]], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], SuperscriptBox["z", "b"], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"a", "-", "b"}], ",", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"a", "-", "b"}], ",", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1061.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", " ", "b"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "a", ",", RowBox[{"b", "-", FractionBox["1", "2"]}], ",", RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["4", RowBox[{"1", "+", "a", "-", "b"}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "a"], " ", RowBox[{"ExpIntegralE", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}], " ", RowBox[{"ExpIntegralE", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", " ", SqrtBox[ RowBox[{"-", "z"}]]}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1062.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", " ", "b"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "b"}], ",", "b", ",", RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["4", RowBox[{"1", "+", "a", "-", "b"}]], " ", SqrtBox["\[Pi]"], " ", SuperscriptBox["z", "a"], " ", RowBox[{"ExpIntegralE", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", SqrtBox["z"]}]}], "]"}], " ", RowBox[{"ExpIntegralE", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", " ", "\[ImaginaryI]", " ", SqrtBox["z"]}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1117.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "-", FractionBox["1", "4"]}], ",", "a", ",", RowBox[{"a", "+", FractionBox["1", "4"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"\[Pi]", "^", "2"}], " ", RowBox[{"2", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}], SuperscriptBox["z", RowBox[{"a", "-", FractionBox["1", "2"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"1", "/", "2"}], "-", RowBox[{"FresnelS", "[", RowBox[{ RowBox[{"2", "/", SqrtBox["\[Pi]"]}], RowBox[{"z", "^", RowBox[{"(", RowBox[{"1", "/", "4"}], ")"}]}]}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"1", "/", "2"}], "-", RowBox[{"FresnelC", "[", RowBox[{ RowBox[{"2", "/", SqrtBox["\[Pi]"]}], RowBox[{"z", "^", RowBox[{"(", RowBox[{"1", "/", "4"}], ")"}]}]}], "]"}]}], ")"}], "^", "2"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1063.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", FractionBox["1", "2"]}], ",", RowBox[{"a", "-", FractionBox["1", "4"]}], ",", "a", ",", RowBox[{"a", "+", FractionBox["1", "4"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", RowBox[{"a", "-", FractionBox["1", "2"]}]], RowBox[{"Erfc", "[", RowBox[{ SqrtBox["2"], SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "4"}]]}], "]"}], " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"-", SqrtBox[ RowBox[{"-", "z"}]]}]], " ", RowBox[{"Erfi", "[", RowBox[{ SqrtBox["2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "4"}]]}], "]"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{"-", "z"}], ")"}], RowBox[{"1", "/", "4"}]]]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1064.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", "+", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "a", ",", "a", ",", RowBox[{"a", "+", RowBox[{"1", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", SqrtBox["\[Pi]"], SuperscriptBox["z", "a"], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"SinIntegral", "[", RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}], "-", RowBox[{"Pi", "/", "2"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"CosIntegral", "[", RowBox[{"2", RowBox[{"Sqrt", "[", "z", "]"}]}], "]"}], "^", "2"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1065.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={4,1,4,4}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "d", ",", "e"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "f", ",", RowBox[{ RowBox[{"-", "1"}], "+", "c"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", "d"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "f"}], "]"}]}], RowBox[{ RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "-", "d"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "c"}], "+", "d"}], ")"}], " ", RowBox[{"Gamma", "[", RowBox[{"2", "-", "a", "+", "e"}], "]"}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", "-", "d"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "c", "-", "e"}], ")"}], " ", RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", RowBox[{"1", "-", "a", "+", "f"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"2", "-", "a", "+", "e"}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "d", "+", "e"}], ")"}], " ", RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{ RowBox[{"-", "a"}], "+", "d"}], ",", RowBox[{"1", "-", "a", "+", "f"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "a", "+", "d"}], ",", RowBox[{"2", "-", "a", "+", "e"}]}], "}"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1066.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "d", ",", "e"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", "c"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", "d"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", "e"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ",", RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "c"}], "+", "d"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "c"}], "+", "e"}], ")"}]}]], "+", FractionBox[ RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "d"}], ",", RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"1", "-", "a", "+", "d"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}], RowBox[{ RowBox[{"(", RowBox[{"c", "-", "d"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "d"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "d"}], "+", "e"}], ")"}]}]], "+", FractionBox[ RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{ RowBox[{"-", "a"}], "+", "e"}], ",", RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"1", "-", "a", "+", "e"}], ",", RowBox[{"-", FractionBox["1", "z"]}]}], "]"}], RowBox[{ RowBox[{"(", RowBox[{"c", "-", "e"}], ")"}], " ", RowBox[{"(", RowBox[{"d", "-", "e"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "e"}], ")"}]}]]}], ")"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1067.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "d", ",", RowBox[{"a", "-", "c", "+", "d"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b", "+", "d"}], ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "+", "d"}], ")"}]}], ",", FractionBox[ RowBox[{"a", "+", "d"}], "2"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{"a", "-", "d"}]], " ", SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "b"}], "+", "d"}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "c", "+", "d"}], "]"}]}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{ RowBox[{"-", "b"}], "+", "d"}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{ FractionBox["1", RowBox[{"2", SqrtBox["z"]}]], " ", RowBox[{"(", RowBox[{ SqrtBox["z"], "-", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}]}]}], "]"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{ RowBox[{"-", "b"}], "+", "d"}], ",", RowBox[{"1", "-", "c", "+", "d"}], ",", RowBox[{ FractionBox["1", RowBox[{"2", SqrtBox["z"]}]], " ", RowBox[{"(", RowBox[{ SqrtBox["z"], "-", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}]}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1068.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", "d", ",", RowBox[{ RowBox[{"-", "1"}], "+", "b"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "b"}], "-", "d"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", RowBox[{"2", " ", "b"}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", " ", "b"}], "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", " ", "b"}], "-", "d"}], "]"}]}]}], RowBox[{"2", " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "d"}], "]"}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "z"}], ")"}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "-", "a", "+", RowBox[{"2", " ", "b"}]}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}]}]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", "a", "+", "b"}], ",", RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"1", "-", RowBox[{"2", " ", "b"}], "+", "c", "+", "d"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"1", "-", "a", "+", "d"}]}], "}"}], ",", FractionBox[ RowBox[{"4", " ", "z"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], "2"]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "z", "]"}], ">", "1"}], "\[And]", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1069.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", FractionBox[ RowBox[{"a", "+", "c", "-", "1"}], "2"], ",", FractionBox[ RowBox[{"a", "+", "c"}], "2"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "d", ",", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b", "+", "c"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", "a", "+", "c", "-", "d"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "a"}], "+", "c"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ RowBox[{"-", "b"}], "+", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"c", "-", "d"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "d"}], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}], "2"]}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"1", "-", "a", "+", "d"}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}]}], "z"]}], "]"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"1", "-", "a", "+", "d"}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", RowBox[{"-", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], ")"}]}], "z"]}]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1070.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ FractionBox["1", "2"], "+", "c"}], ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "c"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "d", ",", RowBox[{ RowBox[{"-", "b"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"2", " ", "c"}], "-", "d"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["2", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}]], RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "-", "b", "+", RowBox[{"2", " ", "c"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "c"}], "-", "d"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "d"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox[ RowBox[{"Gamma", "[", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], "]"}], "2"]}], ")"}]}], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "-", FractionBox["1", "z"]}]], " ", SqrtBox[ RowBox[{"-", FractionBox["1", "z"]}]]}], "+", FractionBox["2", "z"]}], ")"}], RowBox[{"1", "-", "a", "+", "b"}]], RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"1", "-", "a", "+", RowBox[{"2", " ", "c"}], "-", "d"}], ",", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "-", FractionBox["1", "z"]}]], " ", SqrtBox[ RowBox[{"-", FractionBox["1", "z"]}]]}], "-", FractionBox["2", "z"]}]}], "]"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{"1", "-", "a", "+", "d"}], ",", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{ RowBox[{"2", " ", SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "-", FractionBox["1", "z"]}]], " ", SqrtBox[ RowBox[{"-", FractionBox["1", "z"]}]]}], "-", FractionBox["2", "z"]}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1071.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ FractionBox["1", "2"], "+", "c"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "d", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}], ",", RowBox[{ FractionBox["1", "2"], "+", "d"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["4", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b", "+", "c", "-", "d"}]], RowBox[{"Gamma", "[", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "d"}]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], "]"}]], SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], RowBox[{"(", RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "d"}]}], ",", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", FractionBox["1", SqrtBox[ RowBox[{"-", "z"}]]]}], "]"}], "+", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "d"}]}], ",", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"-", FractionBox["1", SqrtBox[ RowBox[{"-", "z"}]]]}]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1072.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ FractionBox["1", "2"], "+", "c"}], ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "d", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}], ",", RowBox[{ FractionBox["1", "2"], "+", "d"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", RowBox[{"2", " ", "b"}], "+", RowBox[{"2", " ", "c"}], "-", RowBox[{"2", " ", "d"}]}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "d"}]}], "]"}]}], RowBox[{"Gamma", "[", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], "]"}]], SqrtBox[ RowBox[{"-", "z"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "d"}]}], ",", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", FractionBox["1", SqrtBox[ RowBox[{"-", "z"}]]]}], "]"}], "-", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "d"}]}], ",", RowBox[{"1", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "c"}]}], ",", RowBox[{"-", FractionBox["1", SqrtBox[ RowBox[{"-", "z"}]]]}]}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1073.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ FractionBox["3", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}]}], ",", RowBox[{ FractionBox["3", "2"], "+", RowBox[{"2", " ", "b"}], "-", "c"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "4"], "+", "b"}], ",", RowBox[{ FractionBox["1", "2"], "+", "b"}], ",", RowBox[{ FractionBox["3", "4"], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["2", RowBox[{ RowBox[{"-", FractionBox["5", "2"]}], "+", RowBox[{"4", " ", "a"}], "-", RowBox[{"4", " ", "b"}]}]], "\[Pi]", " ", RowBox[{"Gamma", "[", RowBox[{"2", "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ FractionBox["5", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "c"}], "]"}]}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", RowBox[{ FractionBox["5", "2"], "-", "a", "+", RowBox[{"2", " ", "b"}], "-", "c"}], ",", FractionBox[ RowBox[{ SqrtBox["z"], "-", SqrtBox[ RowBox[{"z", "+", "1"}]]}], RowBox[{"2", SqrtBox["z"]}]]}], "]"}], " ", RowBox[{"Hypergeometric2F1", "[", RowBox[{ RowBox[{"1", "-", "a", "+", "b"}], ",", RowBox[{ FractionBox["3", "2"], "-", "a", "+", "b"}], ",", RowBox[{"1", "-", "a", "+", "c"}], ",", FractionBox[ RowBox[{ SqrtBox["z"], "-", SqrtBox[ RowBox[{"z", "+", "1"}]]}], RowBox[{"2", SqrtBox["z"]}]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1074.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "a", "+", RowBox[{"2", " ", "b"}]}], ")"}]}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", "c"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "+", "c"}], ")"}]}], ",", RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "3"}], "+", "a", "+", RowBox[{"2", " ", "b"}]}], ")"}]}], ",", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}]}], "+", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", "\[Pi]", " ", RowBox[{"Gamma", "[", RowBox[{"1", "-", "a", "+", "b"}], "]"}]}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ FractionBox[ RowBox[{"3", "-", "a", "-", "c"}], "2"], "+", "b"}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "c"}], ")"}]}]}], "]"}]}]], " ", SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "z"}]}], ")"}], RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"1", "-", "a", "+", "b"}], "3"], ",", FractionBox[ RowBox[{"2", "-", "a", "+", "b"}], "3"], ",", RowBox[{"1", "+", FractionBox[ RowBox[{"b", "-", "a"}], "3"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ RowBox[{"3", "-", "a", "-", "c"}], "2"], "+", "b"}], ",", RowBox[{"1", "+", FractionBox[ RowBox[{"c", "-", "a"}], "2"]}]}], "}"}], ",", FractionBox[ RowBox[{"27", " ", "z"}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"4", "z"}], "+", "1"}], ")"}], "3"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1075.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "+", RowBox[{"2", " ", "b"}]}], ")"}]}], ",", RowBox[{"1", "+", RowBox[{"2", " ", "b"}], "-", "c"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "+", "c"}], ")"}]}], ",", RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{"2", "+", "a", "+", RowBox[{"2", " ", "b"}]}], ")"}]}], ",", RowBox[{"b", "+", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"a", "-", "c"}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"2", " ", "\[Pi]", " ", RowBox[{"Gamma", "[", RowBox[{"2", "-", "a", "+", "b"}], "]"}]}], RowBox[{"3", " ", RowBox[{"Gamma", "[", RowBox[{ FractionBox["3", "2"], "-", FractionBox["a", "2"], "+", "b", "-", FractionBox["c", "2"]}], "]"}], " ", RowBox[{"Gamma", "[", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"2", "-", "a", "+", "c"}], ")"}]}], "]"}]}]], " ", SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "z"}]}], ")"}], RowBox[{ RowBox[{"-", "2"}], "+", "a", "-", "b"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"8", " ", "z"}]}], ")"}], " ", RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"2", "-", "a", "+", "b"}], "3"], ",", RowBox[{"1", "+", FractionBox[ RowBox[{"b", "-", "a"}], "3"]}], ",", FractionBox[ RowBox[{"4", "-", "a", "+", "b"}], "3"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ RowBox[{"3", "-", "a", "-", "c"}], "2"], "+", "b"}], ",", RowBox[{"1", "+", FractionBox[ RowBox[{"c", "-", "a"}], "2"]}]}], "}"}], ",", FractionBox[ RowBox[{"27", " ", "z"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", RowBox[{"4", " ", "z"}]}], ")"}], "3"]]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1076.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "a", "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "a", ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "a"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}], ",", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"2", " ", SuperscriptBox["\[Pi]", RowBox[{"3", "/", "2"}]], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", "1"}], "+", "a"}]], " ", RowBox[{"Csc", "[", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}], " ", "\[Pi]"}], "]"}], RowBox[{"LegendreP", "[", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ")"}]}], ",", FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], SqrtBox["z"]]}], "]"}], " ", RowBox[{"LegendreP", "[", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "a", "-", "b"}], ")"}]}], ",", FractionBox[ RowBox[{"1", "+", SqrtBox[ RowBox[{"1", "+", "z"}]]}], SqrtBox["z"]]}], "]"}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1077.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={4,2,3,5}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "2"], "+", "a"}]}], "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", RowBox[{ FractionBox["1", "2"], "+", "b"}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", RowBox[{"2", " ", "a"}], "-", "b"}], ",", RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}]}], "}"}], ",", RowBox[{"{", "c", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SqrtBox["2"], " ", SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["z", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], "+", "a"}]], " ", RowBox[{"Csc", "[", RowBox[{"2", " ", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}], " ", "\[Pi]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"BesselY", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}]}], " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "a"}], " ", "-", "b", "-", "c"}], ")"}]}], "+", SqrtBox["z"]}], "]"}]}], "+", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], "-", RowBox[{"2", " ", "a"}], "+", RowBox[{"2", " ", "b"}]}], ",", SqrtBox["z"]}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "a"}], " ", "-", "b", "-", "c"}], ")"}]}], "+", SqrtBox["z"]}], "]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1078.01"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cases with ", StyleBox["m\[Equal]5 ", "Program"] }], "Subsubsection"], Cell[CellGroupData[{ Cell[TextData[{ "Case ", StyleBox["{m,n,p,q}={5,0,0,6}", "Program"], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "6"], "+", "a"}], ",", RowBox[{ FractionBox["1", "3"], "+", "a"}], ",", RowBox[{ FractionBox["1", "2"], "+", "a"}], ",", RowBox[{ FractionBox["2", "3"], "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "6"]}], "+", "a"}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"4", " ", RowBox[{"Pi", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}]}], SqrtBox["3"]], SuperscriptBox["z", RowBox[{"a", "-", FractionBox["1", "6"]}]], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"3", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}]}], " ", RowBox[{"z", "^", RowBox[{"(", RowBox[{"1", "/", "6"}], ")"}]}]}], "]"}], RowBox[{"Sin", "[", RowBox[{"3", " ", RowBox[{"z", "^", RowBox[{"(", RowBox[{"1", "/", "6"}], ")"}]}]}], "]"}]}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1079.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{ FractionBox["1", "6"], "+", "a"}], ",", RowBox[{ FractionBox["1", "3"], "+", "a"}], ",", RowBox[{ FractionBox["2", "3"], "+", "a"}], ",", RowBox[{ FractionBox["5", "6"], "+", "a"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", "+", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"4", " ", RowBox[{"Pi", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}]}], SqrtBox["3"]], SuperscriptBox["z", "a"], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"3", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}]}], " ", RowBox[{"z", "^", RowBox[{"(", RowBox[{"1", "/", "6"}], ")"}]}]}], "]"}], RowBox[{"Cos", "[", RowBox[{"3", " ", RowBox[{"z", "^", RowBox[{"(", RowBox[{"1", "/", "6"}], ")"}]}]}], "]"}]}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1080.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", RowBox[{"a", "+", FractionBox["1", "5"]}], ",", RowBox[{"a", "+", FractionBox["2", "5"]}], ",", RowBox[{"a", "+", FractionBox["3", "5"]}], ",", RowBox[{"a", "+", FractionBox["4", "5"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"4", " ", SuperscriptBox["\[Pi]", "2"], SuperscriptBox["z", "a"]}], SqrtBox["5"]], SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "5"}], " ", SuperscriptBox["z", FractionBox["1", "5"]]}]]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.03.1111.01"] }, Closed]] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["General characteristics", "Section"], Cell[CellGroupData[{ Cell["Domain and analyticity", "Subsection"], Cell[TextData[{ " ", Cell[BoxData[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{"p", ",", "q"}], RowBox[{"m", ",", "n"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox["z", MeijerG, Editable->True], "\[VerticalSeparator]", GridBox[{ { RowBox[{ TagBox[ SubscriptBox["a", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "n"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "p"], MeijerG, Editable->True]}]}, { RowBox[{ TagBox[ SubscriptBox["b", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "m"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], MeijerG, Editable->True]}]} }]}], ")"}]}], MeijerG, Editable->False], TraditionalForm]]], " is an analytical function of ", Cell[BoxData[ FormBox[ SubscriptBox["a", "1"], TraditionalForm]]], ", ", Cell[BoxData[ FormBox["\[Ellipsis]", TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox["a", "p"], TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox["b", "1"], TraditionalForm]]], ", ", Cell[BoxData[ FormBox["\[Ellipsis]", TraditionalForm]]], ", ", Cell[BoxData[ FormBox[ SubscriptBox["b", "q"], TraditionalForm]]], " and ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " which is defined in ", Cell[BoxData[ FormBox[ SuperscriptBox["\[DoubleStruckCapitalC]", RowBox[{"p", "+", "q", "+", "1"}]], TraditionalForm]]], ". In the case ", Cell[BoxData[ FormBox[ RowBox[{"p", "\[Equal]", "q", "\[Equal]", RowBox[{"m", "+", "n"}]}], TraditionalForm]]], "this function with respect to ", Cell[BoxData[ FormBox[ RowBox[{" ", "z"}], TraditionalForm]]], " is piecewise analytical function with discontinuity on unit circle ", Cell[BoxData[ FormBox[ RowBox[{"|", "z", "|", RowBox[{"\[Equal]", "1"}]}], TraditionalForm]]], "(it is continuos in the point ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", "1"}], TraditionalForm]]], " if ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"Re", "(", RowBox[{ RowBox[{ StyleBox[ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "q", LimitsPositioning->False], LimitsPositioningTokens->{ "\[Sum]", "\[Product]", "\[Intersection]", "\[Union]", "\[UnionPlus]", "\[Wedge]", "\[Vee]", "lim", "max", "min", "\[CirclePlus]", "\[CircleMinus]", "\[CircleTimes]", "\[CircleDot]"}, UnderoverscriptBoxOptions->{LimitsPositioning->False}, UnderscriptBoxOptions->{LimitsPositioning->False}], SubscriptBox["b", "k"]}], "-", RowBox[{ StyleBox[ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "p", LimitsPositioning->False], LimitsPositioningTokens->{ "\[Sum]", "\[Product]", "\[Intersection]", "\[Union]", "\[UnionPlus]", "\[Wedge]", "\[Vee]", "lim", "max", "min", "\[CirclePlus]", "\[CircleMinus]", "\[CircleTimes]", "\[CircleDot]"}, UnderoverscriptBoxOptions->{LimitsPositioning->False}, UnderscriptBoxOptions->{LimitsPositioning->False}], SubscriptBox["a", "k"]}]}], ")"}], "+", "1"}], "<", "0"}], TraditionalForm]]], ")." }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"DomainAndRange", "[", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "}"}], ",", " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], "]"}], "]"}], " ", "\[Equal]", "\[IndentingNewLine]", RowBox[{ RowBox[{"PowerProduct", "[", RowBox[{ RowBox[{"PowerProduct", "[", RowBox[{ RowBox[{"PowerSet", "[", RowBox[{"Complexes", ",", "n"}], "]"}], ",", RowBox[{"PowerSet", "[", RowBox[{"Complexes", ",", RowBox[{"p", "-", "n"}]}], "]"}]}], "]"}], ",", RowBox[{"PowerProduct", "[", RowBox[{ RowBox[{"PowerSet", "[", RowBox[{"Complexes", ",", "m"}], "]"}], ",", RowBox[{"PowerSet", "[", RowBox[{"Complexes", ",", RowBox[{"q", "-", "m"}]}], "]"}]}], "]"}], ",", "Complexes"}], "]"}], "\[LongRightArrow]", "Complexes"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.04.0001.01"] }, Closed]], Cell[CellGroupData[{ Cell["Symmetries and periodicities", "Subsection"], Cell[CellGroupData[{ Cell["Permutation symmetry", "Subsubsection", Evaluatable->False], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "k"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "j"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "j"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "k"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], "/;", RowBox[{ RowBox[{ SubscriptBox["a", "k"], "\[NotEqual]", SubscriptBox["a", "j"]}], "\[And]", RowBox[{"k", "\[NotEqual]", "j"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.04.0002.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "k"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "j"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "j"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "k"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], "/;", RowBox[{ RowBox[{ SubscriptBox["a", "k"], "\[NotEqual]", SubscriptBox["a", "j"]}], "\[And]", RowBox[{"k", "\[NotEqual]", "j"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.04.0003.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "k"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "j"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "j"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "k"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "j"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "k"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], "/;", RowBox[{ RowBox[{ SubscriptBox["b", "k"], "\[NotEqual]", SubscriptBox["b", "j"]}], "\[And]", RowBox[{"k", "\[NotEqual]", "j"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.04.0004.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "k"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "j"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "j"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "k"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "j"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "k"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], "/;", RowBox[{ RowBox[{ SubscriptBox["b", "k"], "\[NotEqual]", SubscriptBox["b", "j"]}], "\[And]", RowBox[{"k", "\[NotEqual]", "j"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.04.0005.01"] }, Closed]], Cell[CellGroupData[{ Cell["Periodicity", "Subsubsection"], Cell["No periodicity", "Text", Evaluatable->False] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Branch points", "Subsection"], Cell[TextData[{ "The function ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{"p", ",", "q"}], RowBox[{"m", ",", "n"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox["z", MeijerG, Editable->True], "\[VerticalSeparator]", GridBox[{ { RowBox[{ TagBox[ SubscriptBox["a", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "n"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "p"], MeijerG, Editable->True]}]}, { RowBox[{ TagBox[ SubscriptBox["b", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "m"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], MeijerG, Editable->True]}]} }]}], ")"}]}], TraditionalForm]]], " ", "has two (", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"z", "\[Equal]", "0"}], ",", "\[Infinity]"}], TraditionalForm]]], " for ", Cell[BoxData[ FormBox[ RowBox[{"p", "\[NotEqual]", "q"}], TraditionalForm]]], ") or three (", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"z", "\[Equal]", "0"}], ",", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "p"}]], ",", " ", "\[Infinity]", ","}], TraditionalForm]]], " for ", Cell[BoxData[ FormBox[ RowBox[{"p", "\[Equal]", "q"}], TraditionalForm]]], ") singular points. If ", Cell[BoxData[ FormBox[ RowBox[{"p", "<", "q"}], TraditionalForm]]], " (or ", Cell[BoxData[ FormBox[ RowBox[{"p", ">", "q"}], TraditionalForm]]], "), then the point ", Cell[BoxData[ FormBox[ RowBox[{" ", FormBox[ RowBox[{"z", "\[Equal]", "0"}], TraditionalForm]}], TraditionalForm]]], " (or ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", "\[Infinity]"}], TraditionalForm]]], ") is a regular singular point, while ", Cell[BoxData[ FormBox[ RowBox[{" ", FormBox[ RowBox[{ FormBox[ RowBox[{"z", "\[Equal]", "\[Infinity]"}], TraditionalForm], FormBox["", TraditionalForm]}], TraditionalForm]}], TraditionalForm]]], "(or ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", "0"}], TraditionalForm]]], ") is a non-regular (essentual) singular point; if ", Cell[BoxData[ FormBox[ RowBox[{"p", "\[Equal]", "q"}], TraditionalForm]]], ", then all three singular points are regular. " }], "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Branch cuts", "Subsection"], Cell[TextData[{ "The existence of the branch cut depends on the parameters of ", StyleBox["MeijerG.", FontFamily->"Courier"], " If the branch cut exists, it will be along ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], ")"}], TraditionalForm]]], " (or sometimes ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], ")"}], TraditionalForm]]], " or ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], ")"}], TraditionalForm]]], "). For example, the function ", Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{"1", ",", "1"}], RowBox[{"1", ",", "1"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox["z", MeijerG, Editable->True], "\[VerticalSeparator]", GridBox[{ { TagBox["a", MeijerG, Editable->True]}, { TagBox["b", MeijerG, Editable->True]} }]}], ")"}]}], MeijerG, Editable->False], "\[Equal]", RowBox[{ RowBox[{"\[CapitalGamma]", "(", RowBox[{"1", "-", "a", "+", "b"}], ")"}], SuperscriptBox["z", "b"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"z", "+", "1"}], ")"}], RowBox[{"a", "-", "b", "-", "1"}]]}]}], TraditionalForm]]], " has branch cut along ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], ")"}], TraditionalForm]]], " if ", Cell[BoxData[ FormBox[ RowBox[{"b", "\[NotElement]", "\[DoubleStruckCapitalZ]"}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"b", "-", "a"}], "\[NotElement]", "\[DoubleStruckCapitalZ]"}], TraditionalForm]]], "; in the case ", Cell[BoxData[ FormBox[ RowBox[{"b", "\[Element]", "\[DoubleStruckCapitalZ]"}], TraditionalForm]]], " it generically has branch cut along ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"-", "1"}]}], ")"}], TraditionalForm]]], "." }], "Text"], Cell[TextData[{ "If ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["b", "j"], "\[NotElement]", "\[DoubleStruckCapitalZ]"}], ",", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "m"}], ","}], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["a", "j"], "\[NotElement]", "\[DoubleStruckCapitalZ]"}], ",", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "n"}], ","}], TraditionalForm]]], " the branch cut along ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], ")"}], TraditionalForm]]], " exists because it is produced by power functions ", Cell[BoxData[ FormBox[ SuperscriptBox["z", SubscriptBox["b", "j"]], TraditionalForm]]], "and ", Cell[BoxData[ FormBox[ SuperscriptBox["z", RowBox[{ SubscriptBox["a", "j"], "-", "1"}]], TraditionalForm]]], ". In these cases the Meijer G function ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{"p", ",", "q"}], RowBox[{"m", ",", "n"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox["z", MeijerG, Editable->True], "\[VerticalSeparator]", GridBox[{ { RowBox[{ TagBox[ SubscriptBox["a", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "n"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "p"], MeijerG, Editable->True]}]}, { RowBox[{ TagBox[ SubscriptBox["b", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "m"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], MeijerG, Editable->True]}]} }]}], ")"}]}], TraditionalForm]]], " is a single\[Hyphen]valued function on the ", Cell[BoxData[ FormBox["z", TraditionalForm]]], "\[Hyphen]plane cut along the interval ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", " ", "0"}], ")"}], TraditionalForm]]], ", where it is continuous from above." }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{"BranchCuts", "[", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", RowBox[{"-", "\[ImaginaryI]"}]}], "}"}], "}"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.04.0006.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Limit", "[", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"x", "+", RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]"}]}]}], "]"}], ",", RowBox[{"\[Epsilon]", "\[Rule]", RowBox[{"+", "0"}]}]}], "]"}], "\[Equal]", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "x"}], "]"}]}], "/;", RowBox[{"x", "<", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.04.0007.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Limit", "[", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"x", "-", RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]"}]}]}], "]"}], ",", RowBox[{"\[Epsilon]", "\[Rule]", RowBox[{"+", "0"}]}]}], "]"}], "\[Equal]", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["b", "m"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", RowBox[{"m", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["b", "q"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "n"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", RowBox[{"n", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "p"]}]}], "}"}]}], "}"}], ",", FractionBox["1", "x"]}], "]"}]}], "/;", RowBox[{"x", "<", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.04.0012.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Limit", "[", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"x", "-", RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]"}]}]}], "]"}], ",", RowBox[{"\[Epsilon]", "\[Rule]", RowBox[{"+", "0"}]}]}], "]"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}], "]"}], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "j"]}], "]"}]}], ")"}], " "}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], "]"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "j"]}], "]"}]}]}]}]], " ", SuperscriptBox["x", SubscriptBox["b", "k"]], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "2"}], SubscriptBox["b", "k"], " ", "\[Pi]", " ", "\[ImaginaryI]"}], " ", "]"}], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "p"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "-", "1"}]]}], ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "q"]}]}], "}"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " ", "x"}]}], "]"}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"p", "<", "q"}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], ">", "p"}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", "p"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "x", "]"}], "<", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "m"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "m"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}], "\[And]", RowBox[{"x", "<", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.04.0013.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Limit", "[", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"x", "-", RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]"}]}]}], "]"}], ",", RowBox[{"\[Epsilon]", "\[Rule]", RowBox[{"+", "0"}]}]}], "]"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["a", "j"]}], "]"}]}], "]"}], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "k"], "+", SubscriptBox["b", "j"]}], "]"}]}], ")"}], " "}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "j"]}], "]"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "]"}]}]}]}]], SuperscriptBox["x", RowBox[{ SubscriptBox["a", "k"], "-", "1"}]], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "2"}], SubscriptBox["a", "k"], " ", "\[Pi]", " ", "\[ImaginaryI]"}], "]"}], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "k"], "+", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "k"], "+", SubscriptBox["b", "q"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", RowBox[{"k", "-", "1"}]], "-", SubscriptBox["a", "k"]}], ",", RowBox[{"1", "+", SubscriptBox["a", RowBox[{"k", "+", "1"}]], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", "p"], "-", SubscriptBox["a", "k"]}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], " "}], "x"]}], "]"}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"p", ">", "q"}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", RowBox[{"p", "+", "1"}]}], "\[And]", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", " ", "x"}], "]"}], "]"}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], ">", RowBox[{"p", "+", "1"}]}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", "p"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "x", "]"}], ">", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "n"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "n"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}], "\[And]", RowBox[{"x", "<", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.04.0014.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Limit", "[", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"x", "-", RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]"}]}]}], "]"}], ",", RowBox[{"\[Epsilon]", "\[Rule]", RowBox[{"+", "0"}]}]}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"m", "-", "1"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "j"]}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], ")"}]}], "]"}]}], "]"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}]}]}]], SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], "\[ImaginaryI]", " ", "\[Pi]", " ", SubscriptBox["b", "k"]}]], SuperscriptBox["x", SubscriptBox["b", "k"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "p"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "-", "1"}]]}], ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "q"]}]}], "}"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " ", "x"}]}], "]"}]}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"p", "<", "q"}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], ">", "p"}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", "p"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "m"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "m"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}], "\[And]", RowBox[{"x", "<", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.04.0008.02"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Limit", "[", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"x", "-", RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]"}]}]}], "]"}], ",", RowBox[{"\[Epsilon]", "\[Rule]", RowBox[{"+", "0"}]}]}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"n", "-", "1"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "j"], "-", SubscriptBox["a", "k"]}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["a", "j"]}], ")"}]}], "]"}]}], "]"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "j"]}], "]"}]}]}]}]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], "\[ImaginaryI]", " ", "\[Pi]", " ", SubscriptBox["a", "k"]}]], SuperscriptBox["x", RowBox[{ SubscriptBox["a", "k"], "-", "1"}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "q"], "-", SubscriptBox["a", "k"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", RowBox[{"k", "-", "1"}]], "-", SubscriptBox["a", "k"]}], ",", RowBox[{"1", "+", SubscriptBox["a", RowBox[{"k", "+", "1"}]], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", "p"], "-", SubscriptBox["a", "k"]}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], " "}], "x"]}], "]"}]}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"p", ">", "q"}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", RowBox[{"p", "+", "1"}]}], "\[And]", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", " ", "x"}], "]"}], "]"}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], ">", RowBox[{"p", "+", "1"}]}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", "p"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "x", "]"}], ">", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "n"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "n"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}], "\[And]", RowBox[{"x", "<", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.04.0009.02"], Cell[TextData[{ "If ", Cell[BoxData[ FormBox[ RowBox[{"p", "\[Equal]", "q"}], TraditionalForm]]], " the branch cuts can appear not only from functions ", Cell[BoxData[ FormBox[ SuperscriptBox["z", SubscriptBox["b", "j"]], TraditionalForm]]], "or ", Cell[BoxData[ FormBox[ SuperscriptBox["z", RowBox[{ SubscriptBox["a", "j"], "-", "1"}]], TraditionalForm]]], "but from other generalized hypergeometric factors in expansions of MeijerG \ function ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{"p", ",", "q"}], RowBox[{"m", ",", "n"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox["z", MeijerG, Editable->True], "\[VerticalSeparator]", GridBox[{ { RowBox[{ TagBox[ SubscriptBox["a", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "n"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "p"], MeijerG, Editable->True]}]}, { RowBox[{ TagBox[ SubscriptBox["b", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "m"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], MeijerG, Editable->True]}]} }]}], ")"}]}], TraditionalForm]]], ". In these cases the behaviour is more complicated." }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Limit", "[", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "p"]}], "}"}]}], "}"}], ",", RowBox[{"x", "-", RowBox[{"\[ImaginaryI]", " ", "\[Epsilon]"}]}]}], "]"}], ",", RowBox[{"\[Epsilon]", "\[Rule]", RowBox[{"+", "0"}]}]}], "]"}], "\[Equal]", RowBox[{ RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"n", "-", "1"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "j"], "-", SubscriptBox["a", "k"]}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["a", "j"]}], ")"}]}], "]"}]}], "]"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "j"]}], "]"}]}]}]}]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], "\[ImaginaryI]", " ", "\[Pi]", " ", SubscriptBox["a", "k"]}]], SuperscriptBox["x", RowBox[{ SubscriptBox["a", "k"], "-", "1"}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "p"], "-", SubscriptBox["a", "k"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", RowBox[{"k", "-", "1"}]], "-", SubscriptBox["a", "k"]}], ",", RowBox[{"1", "+", SubscriptBox["a", RowBox[{"k", "+", "1"}]], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", "p"], "-", SubscriptBox["a", "k"]}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " "}], "x"]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "x", "]"}], "-", "1"}], "]"}]}]}]}], "+", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"m", "-", "1"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "j"]}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], ")"}]}], "]"}]}], "]"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}]}]}]], SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], "\[ImaginaryI]", " ", "\[Pi]", " ", SubscriptBox["b", "k"]}]], SuperscriptBox["x", SubscriptBox["b", "k"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "p"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "-", "1"}]]}], ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "p"]}]}], "}"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " ", "x"}]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "x", "]"}]}], "]"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"m", "+", "n", "-", "p"}], "\[LessEqual]", "0"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "n"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "n"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}], "\[And]", RowBox[{"x", "<", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.04.0011.01"] }, Closed]], Cell[CellGroupData[{ Cell["Sets of discontinuity", "Subsection"], Cell[TextData[{ Cell[BoxData[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{"p", ",", "q"}], RowBox[{"m", ",", "n"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox[ RowBox[{ TagBox["z", MeijerG, Editable->True], ",", TagBox["r", MeijerG, Editable->True]}], MeijerG], "\[VerticalSeparator]", GridBox[{ { RowBox[{ TagBox[ SubscriptBox["a", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "n"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "p"], MeijerG, Editable->True]}]}, { RowBox[{ TagBox[ SubscriptBox["b", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "m"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], MeijerG, Editable->True]}]} }]}], ")"}]}], MeijerG, Editable->False], TraditionalForm]]], " has discontinuity on the unit circle ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "\[Equal]", "1"}], TraditionalForm]]], "in the case ", Cell[BoxData[ FormBox[ RowBox[{"p", "\[Equal]", "q", "\[Equal]", RowBox[{"m", "+", "n"}]}], TraditionalForm]]], ". For example, ", Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{"1", ",", "1"}], RowBox[{"1", ",", "0"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox["z", MeijerG, Editable->True], "\[VerticalSeparator]", GridBox[{ { TagBox["1", MeijerG, Editable->True]}, { TagBox["0", MeijerG, Editable->True]} }]}], ")"}]}], MeijerG, Editable->False], "\[Equal]", RowBox[{ InterpretationBox["\[Theta]", UnitStep, Editable->False, Selectable->False], "(", RowBox[{"1", "-", RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}]}], ")"}]}], TraditionalForm]]], "." }], "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Series representations", "Section"], Cell[CellGroupData[{ Cell["Generalized power series", "Subsection"], Cell[CellGroupData[{ Cell[TextData[{ "Expansions at generic point ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", SubscriptBox["z", "0"]}], TraditionalForm]], "Program"], " " }], "Subsubsection"], Cell[CellGroupData[{ Cell["For the function itself", "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], " ", RowBox[{ FractionBox["1", RowBox[{"k", "!"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "k"}], ",", RowBox[{ SubscriptBox["a", "1"], "-", "k"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], "-", "k"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "-", "k"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], "-", "k"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["b", "1"], "-", "k"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], "-", "k"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "-", "k"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], "-", "k"}]}], "}"}]}], "}"}], ",", SubscriptBox["z", "0"]}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", SubscriptBox["z", "0"]}], ")"}], "k"]}]}]}], "/;", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", SubscriptBox["z", "0"]}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0047.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}], "]"}], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "j"]}], "]"}]}], ")"}], " "}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], "]"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "j"]}], "]"}]}]}]}]], SuperscriptBox[ RowBox[{"(", FractionBox["1", SubscriptBox["z", "0"]], ")"}], RowBox[{ SubscriptBox["b", "k"], " ", RowBox[{"Floor", "[", FractionBox[ RowBox[{"Arg", "[", RowBox[{"z", "-", SubscriptBox["z", "0"]}], "]"}], RowBox[{"2", " ", "\[Pi]"}]], "]"}]}]], " ", SubsuperscriptBox["z", "0", RowBox[{ SubscriptBox["b", "k"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"Floor", "[", FractionBox[ RowBox[{"Arg", "[", RowBox[{"z", "-", SubscriptBox["z", "0"]}], "]"}], RowBox[{"2", " ", "\[Pi]"}]], "]"}]}], ")"}]}]], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"u", "=", "0"}], "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", SubscriptBox["b", "k"]}], ",", "u"}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"-", SubscriptBox["z", "0"]}], ")"}], RowBox[{"-", "u"}]]}], RowBox[{"u", "!"}]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "p"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", "u"}], ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "-", "1"}]]}], ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "q"]}]}], "}"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " ", SubscriptBox["z", "0"]}]}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", SubscriptBox["z", "0"]}], ")"}], "u"]}]}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"p", "<", "q"}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], ">", "p"}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", "p"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", SubscriptBox["z", "0"], "]"}], "<", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "m"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "m"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0048.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["a", "j"]}], "]"}]}], "]"}], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "k"], "+", SubscriptBox["b", "j"]}], "]"}]}], ")"}], " "}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "j"]}], "]"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "]"}]}]}]}]], SuperscriptBox[ RowBox[{"(", FractionBox["1", SubscriptBox["z", "0"]], ")"}], RowBox[{ SubscriptBox["a", "k"], " ", RowBox[{"Floor", "[", FractionBox[ RowBox[{"Arg", "[", RowBox[{"z", "-", SubscriptBox["z", "0"]}], "]"}], RowBox[{"2", " ", "\[Pi]"}]], "]"}]}]], " ", SubsuperscriptBox["z", "0", RowBox[{ RowBox[{ SubscriptBox["a", "k"], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"Floor", "[", FractionBox[ RowBox[{"Arg", "[", RowBox[{"z", "-", SubscriptBox["z", "0"]}], "]"}], RowBox[{"2", " ", "\[Pi]"}]], "]"}]}], ")"}]}], "-", "1"}]], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"u", "=", "0"}], "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", SubscriptBox["z", "0"]}], ")"}], RowBox[{"-", "u"}]], RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "k"]}], ",", "u"}], "]"}]}], RowBox[{"u", "!"}]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "k"], "+", "u"}], ",", RowBox[{"1", "-", SubscriptBox["a", "k"], "+", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "k"], "+", SubscriptBox["b", "q"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "k"]}], ",", RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", RowBox[{"k", "-", "1"}]], "-", SubscriptBox["a", "k"]}], ",", RowBox[{"1", "+", SubscriptBox["a", RowBox[{"k", "+", "1"}]], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", "p"], "-", SubscriptBox["a", "k"]}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], " "}], SubscriptBox["z", "0"]]}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", SubscriptBox["z", "0"]}], ")"}], "u"]}]}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"p", ">", "q"}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", RowBox[{"p", "+", "1"}]}], "\[And]", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", " ", SubscriptBox["z", "0"]}], "]"}], "]"}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], ">", RowBox[{"p", "+", "1"}]}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", "p"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", SubscriptBox["z", "0"], "]"}], ">", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "n"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "n"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0049.01"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Expansions on branch cuts ||| Expansions on branch cuts", \ "Subsubsection"], Cell[CellGroupData[{ Cell["For the function itself", "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], " ", RowBox[{ FractionBox["1", RowBox[{"k", "!"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "k"}], ",", RowBox[{ SubscriptBox["a", "1"], "-", "k"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], "-", "k"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "-", "k"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], "-", "k"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["b", "1"], "-", "k"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], "-", "k"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "-", "k"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], "-", "k"}]}], "}"}]}], "}"}], ",", RowBox[{"x", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", "\[Pi]", " ", "\[ImaginaryI]", " ", RowBox[{"Floor", "[", FractionBox[ RowBox[{"Arg", "[", RowBox[{"z", "-", "x"}], "]"}], RowBox[{"2", " ", "\[Pi]"}]], "]"}]}]]}]}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "x"}], ")"}], "k"]}]}]}], "/;", RowBox[{ RowBox[{"m", "\[Element]", "Integers"}], "\[And]", RowBox[{"m", "\[GreaterEqual]", "0"}], "\[And]", " ", RowBox[{"n", "\[Element]", "Integers"}], "\[And]", RowBox[{"n", "\[GreaterEqual]", "0"}], "\[And]", RowBox[{"p", "\[Element]", "Integers"}], "\[And]", RowBox[{"p", "\[GreaterEqual]", "0"}], "\[And]", RowBox[{"q", "\[Element]", "Integers"}], "\[And]", RowBox[{"q", "\[GreaterEqual]", "0"}], "\[And]", RowBox[{"m", "\[LessEqual]", "q"}], "\[And]", RowBox[{"n", "\[LessEqual]", "p"}], "\[And]", RowBox[{"x", "<", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0050.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "k"], RowBox[{"k", "!"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "-", "k"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], "-", "k"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "-", "k"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], "-", "k"}], ",", RowBox[{"-", "k"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ SubscriptBox["b", "1"], "-", "k"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], "-", "k"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "-", "k"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], "-", "k"}]}], "}"}]}], "}"}], ",", RowBox[{"x", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", "\[Pi]", " ", "\[ImaginaryI]", " ", RowBox[{"Floor", "[", FractionBox[ RowBox[{"Arg", "[", RowBox[{"z", "-", "x"}], "]"}], RowBox[{"2", " ", "\[Pi]"}]], "]"}]}]]}]}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "x"}], ")"}], "k"]}]}]}], "/;", RowBox[{ RowBox[{"m", "\[Element]", "Integers"}], "\[And]", RowBox[{"m", "\[GreaterEqual]", "0"}], "\[And]", " ", RowBox[{"n", "\[Element]", "Integers"}], "\[And]", RowBox[{"n", "\[GreaterEqual]", "0"}], "\[And]", RowBox[{"p", "\[Element]", "Integers"}], "\[And]", RowBox[{"p", "\[GreaterEqual]", "0"}], "\[And]", RowBox[{"q", "\[Element]", "Integers"}], "\[And]", RowBox[{"q", "\[GreaterEqual]", "0"}], "\[And]", RowBox[{"m", "\[LessEqual]", "q"}], "\[And]", RowBox[{"n", "\[LessEqual]", "p"}], "\[And]", RowBox[{"x", "<", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0051.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], " ", RowBox[{ FractionBox["1", RowBox[{"k", "!"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"], "+", "k"}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["b", "m"], "+", "k"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"1", "-", SubscriptBox["b", RowBox[{"m", "+", "1"}]], "+", "k"}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["b", "q"], "+", "k"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", "k"}], ",", RowBox[{"1", "-", SubscriptBox["a", "1"], "+", "k"}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "n"], "+", "k"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", RowBox[{"n", "+", "1"}]], "+", "k"}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "p"], "+", "k"}]}], "}"}]}], "}"}], ",", " ", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], "\[Pi]", " ", "\[ImaginaryI]", " ", RowBox[{"Floor", "[", FractionBox[ RowBox[{"Arg", "[", RowBox[{"z", "-", "x"}], "]"}], RowBox[{"2", " ", "\[Pi]"}]], "]"}]}]], FractionBox["1", "x"]}]}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "x"}], ")"}], "k"]}]}]}], "/;", RowBox[{ RowBox[{"m", "\[Element]", "Integers"}], "\[And]", RowBox[{"m", "\[GreaterEqual]", "0"}], "\[And]", " ", RowBox[{"n", "\[Element]", "Integers"}], "\[And]", RowBox[{"n", "\[GreaterEqual]", "0"}], "\[And]", RowBox[{"p", "\[Element]", "Integers"}], "\[And]", RowBox[{"p", "\[GreaterEqual]", "0"}], "\[And]", RowBox[{"q", "\[Element]", "Integers"}], "\[And]", RowBox[{"q", "\[GreaterEqual]", "0"}], "\[And]", RowBox[{"m", "\[LessEqual]", "q"}], "\[And]", RowBox[{"n", "\[LessEqual]", "p"}], "\[And]", RowBox[{"x", "<", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0052.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}], "]"}], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "j"]}], "]"}]}], ")"}], " "}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], "]"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "j"]}], "]"}]}]}]}]], " ", SuperscriptBox["x", SubscriptBox["b", "k"]], RowBox[{"Exp", "[", RowBox[{"2", SubscriptBox["b", "k"], " ", "\[Pi]", " ", "\[ImaginaryI]", " ", RowBox[{"Floor", "[", FractionBox[ RowBox[{"Arg", "[", RowBox[{"z", "-", "x"}], "]"}], RowBox[{"2", " ", "\[Pi]"}]], "]"}]}], "]"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"u", "=", "0"}], "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", SubscriptBox["b", "k"]}], ",", "u"}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"-", "x"}], ")"}], RowBox[{"-", "u"}]]}], RowBox[{"u", "!"}]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"]}], ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "p"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", "u"}], ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "-", "1"}]]}], ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "q"]}]}], "}"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " ", "x"}]}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "x"}], ")"}], "u"]}]}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"p", "<", "q"}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], ">", "p"}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", "p"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "x", "]"}], "<", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "m"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "m"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}], "\[And]", RowBox[{"x", "<", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0053.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["a", "j"]}], "]"}]}], "]"}], RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "k"], "+", SubscriptBox["b", "j"]}], "]"}]}], ")"}], " "}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "j"]}], "]"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "]"}]}]}]}]], SuperscriptBox["x", RowBox[{ SubscriptBox["a", "k"], "-", "1"}]], RowBox[{"Exp", "[", RowBox[{"2", SubscriptBox["a", "k"], " ", "\[Pi]", " ", "\[ImaginaryI]", " ", RowBox[{"Floor", "[", FractionBox[ RowBox[{"Arg", "[", RowBox[{"z", "-", "x"}], "]"}], RowBox[{"2", " ", "\[Pi]"}]], "]"}]}], "]"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"u", "=", "0"}], "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "x"}], ")"}], RowBox[{"-", "u"}]], RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "k"]}], ",", "u"}], "]"}]}], RowBox[{"u", "!"}]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "k"], "+", "u"}], ",", RowBox[{"1", "-", SubscriptBox["a", "k"], "+", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "k"], "+", SubscriptBox["b", "q"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "k"]}], ",", RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", RowBox[{"k", "-", "1"}]], "-", SubscriptBox["a", "k"]}], ",", RowBox[{"1", "+", SubscriptBox["a", RowBox[{"k", "+", "1"}]], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", "p"], "-", SubscriptBox["a", "k"]}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], " "}], "x"]}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "x"}], ")"}], "u"]}]}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"p", ">", "q"}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", RowBox[{"p", "+", "1"}]}], "\[And]", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", " ", "x"}], "]"}], "]"}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], ">", RowBox[{"p", "+", "1"}]}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", "p"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "x", "]"}], ">", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "n"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "n"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}], "\[And]", RowBox[{"x", "<", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0054.01"] }, Closed]], Cell["For the function itself", "Subsection3"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Expansions at ", StyleBox["z\[Equal]0", "Program"], " " }], "Subsubsection"], Cell[CellGroupData[{ Cell["Case of simple poles", "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}], "]"}]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "j"], "+", SubscriptBox["b", "k"]}], "]"}]}]}], RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}], ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"1", "+", "m"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "j"], "+", SubscriptBox["b", "k"]}], "]"}]}]}]], SuperscriptBox["z", SubscriptBox["b", "k"]], RowBox[{"(", RowBox[{"1", "+", RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "p"], RowBox[{"(", RowBox[{"1", "-", SubscriptBox["a", "j"], "+", SubscriptBox["b", "k"]}], ")"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "q"], RowBox[{"(", RowBox[{"1", "-", SubscriptBox["b", "j"], "+", SubscriptBox["b", "k"]}], ")"}]}]], SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " ", "z"}], " ", "+", RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "p"], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SubscriptBox["a", "j"], "+", SubscriptBox["b", "k"]}], ")"}], RowBox[{"(", RowBox[{"2", "-", SubscriptBox["a", "j"], "+", SubscriptBox["b", "k"]}], ")"}]}], ")"}], " "}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "q"], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SubscriptBox["b", "j"], "+", SubscriptBox["b", "k"]}], ")"}], " ", RowBox[{"(", RowBox[{"2", "-", SubscriptBox["b", "j"], "+", SubscriptBox["b", "k"]}], ")"}]}], ")"}]}]], SuperscriptBox["z", "2"]}], "+", "\[Ellipsis]"}], ")"}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"p", "<", "q"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "m"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "m"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0001.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}], "]"}], " "}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}]], SuperscriptBox["z", SubscriptBox["b", "k"]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "j"], "+", "i"}], "]"}]}], ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "j"]}], ",", "i"}], "]"}]}]}], RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "j"]}], ",", "i"}], "]"}]}], ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "j"], "+", "i"}], "]"}]}]}]], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " ", "z"}], ")"}], "i"]}]}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"p", "<", "q"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "m"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "m"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0002.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "\[Infinity]"], RowBox[{"GammaResidue", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "n"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", RowBox[{"m", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["b", "q"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "k"], ",", "1", ",", "i"}], "}"}], ",", "z"}], "]"}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"p", "<", "q"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "m"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "m"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0003.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"m", "-", "1"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "j"]}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], ")"}]}], "]"}]}], "]"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}]}]}]], SuperscriptBox["z", SubscriptBox["b", "k"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "p"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "-", "1"}]]}], ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "q"]}]}], "}"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " ", "z"}]}], "]"}]}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"p", "<", "q"}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], ">", "p"}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", "p"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "m"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "m"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0004.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}], "]"}]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "j"]}], "]"}], " "}]}], RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}], " ", ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "j"], "+", SubscriptBox["b", "k"]}], "]"}]}]}]], SuperscriptBox["z", SubscriptBox["b", "k"]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "p"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "-", "1"}]]}], ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "q"]}]}], "}"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " ", "z"}]}], "]"}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"p", "<", "q"}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], ">", "p"}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", "p"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "m"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "m"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0005.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}], "]"}]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "j"], "+", SubscriptBox["b", "k"]}], "]"}]}]}], RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}], ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"1", "+", "m"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "j"], "+", SubscriptBox["b", "k"]}], "]"}]}]}]], SuperscriptBox["z", SubscriptBox["b", "k"]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", "z", "]"}]}], ")"}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{"z", "\[Rule]", "0"}], ")"}], "\[And]", RowBox[{"p", "\[LessEqual]", "q"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "m"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "m"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0006.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case of poles of order ", Cell[BoxData[ FormBox[ StyleBox["r", "Program"], TraditionalForm]]], " in the points ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["b", "r"]}], "-", "k"}], "/;", RowBox[{ RowBox[{"r", "\[Element]", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}], "\[And]", RowBox[{"k", "\[Element]", "\[DoubleStruckCapitalN]"}]}]}], "Program"], TraditionalForm]]], " " }], "Subsection3", Evaluatable->False], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"AsymptoticMeijerGSeries", "[", "Power", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"p", "<", "q"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "-", "1"}]]}], "\[Element]", "Integers"}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "-", "1"}]]}], "\[GreaterEqual]", "0"}], "\[And]", RowBox[{"2", "\[LessEqual]", "k", "\[LessEqual]", "r"}], "\[And]", RowBox[{"Not", "[", RowBox[{ RowBox[{ SubscriptBox["b", "k"], "-", SubscriptBox["b", "1"]}], "\[Element]", "Integers"}], "]"}], "\[And]", RowBox[{ RowBox[{"r", "+", "1"}], "\[LessEqual]", "k", "\[LessEqual]", "m"}], "\[And]", RowBox[{"r", "\[Element]", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0007.01"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Expansions at ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{"z", "\[Equal]", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], "Program"], TraditionalForm]]], StyleBox[" ", "Program"], "for ", StyleBox["p\[Equal]q", "Program"], " " }], "Subsubsection"], Cell[TextData[{ "The function ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{"q", ",", "q"}], RowBox[{"m", ",", "n"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox["z", MeijerG, Editable->True], "\[VerticalSeparator]", GridBox[{ { RowBox[{ TagBox[ SubscriptBox["a", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "n"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "q"], MeijerG, Editable->True]}]}, { RowBox[{ TagBox[ SubscriptBox["b", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "m"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], MeijerG, Editable->True]}]} }]}], ")"}]}], TraditionalForm]]], " near the point ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], TraditionalForm]]], " has a rather complicated behabiour. The general formula (for\nnoninteger \ ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[Psi]", "q"], "\[Equal]", RowBox[{"-", "\[Mu]"}], "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "j"]}], ")"}]}], "-", "1"}]}], "/;", RowBox[{"p", "\[Equal]", "q"}]}], TraditionalForm]]], ") includes two major terms that are analytical functions only in the case \ ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"m", "+", "n"}], ">", "q"}], TraditionalForm]]], ". In the opposite case ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"m", "+", "n"}], "\[LessEqual]", "q"}], TraditionalForm]]], " they are the piecewise analytical functions with possible discontinuities \ on the unit circle ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "\[Equal]", "1"}], TraditionalForm]]], ". Moreover, the first major term has representation of the form ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"const", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SubscriptBox["z", "1"]}], ")"}], SubscriptBox["\[Psi]", "q"]], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "(", RowBox[{ SubscriptBox["z", "1"], "-", "1"}], ")"}]}], ")"}]}], "/;", RowBox[{ SubscriptBox["z", "1"], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], "z"}]}]}], TraditionalForm]]], " and second one is bounded near the point ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["z", "1"], "\[Equal]", "1"}], TraditionalForm]]], ". A more detailed description of this behaviour is presented below." }], "Text", Evaluatable->False], Cell[TextData[{ "If ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"m", "+", "n", "-", "q"}], ">", "0"}], TraditionalForm]]], ", the function ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{"q", ",", "q"}], RowBox[{"m", ",", "n"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox["z", MeijerG, Editable->True], "\[VerticalSeparator]", GridBox[{ { RowBox[{ TagBox[ SubscriptBox["a", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "n"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "q"], MeijerG, Editable->True]}]}, { RowBox[{ TagBox[ SubscriptBox["b", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "m"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], MeijerG, Editable->True]}]} }]}], ")"}]}], TraditionalForm]]], " is analytic in the sector ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[LeftBracketingBar]", RowBox[{"Arg", "(", "z", ")"}], "\[RightBracketingBar]"}], "<", RowBox[{ RowBox[{"(", RowBox[{"m", "+", "n", "-", "q"}], ")"}], "\[Pi]"}]}], TraditionalForm]]], "." }], "Text", Evaluatable->False], Cell[TextData[{ "If ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"m", "+", "n", "-", "q"}], "\[Equal]", "1"}], "\[And]", RowBox[{ RowBox[{"\[LeftBracketingBar]", RowBox[{"Arg", "(", "z", ")"}], "\[RightBracketingBar]"}], "<", "\[Pi]"}]}], TraditionalForm]]], ", at the singular point ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", RowBox[{"-", "1"}]}], TraditionalForm]]], " the function ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{"q", ",", "q"}], RowBox[{"m", ",", "n"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox["z", MeijerG, Editable->True], "\[VerticalSeparator]", GridBox[{ { RowBox[{ TagBox[ SubscriptBox["a", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "n"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "q"], MeijerG, Editable->True]}]}, { RowBox[{ TagBox[ SubscriptBox["b", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "m"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], MeijerG, Editable->True]}]} }]}], ")"}]}], TraditionalForm]]], " is continuous for ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Re", "(", SubscriptBox["\[Psi]", "q"], ")"}], ">", "0"}], TraditionalForm]]], ", bounded for ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"Re", "(", SubscriptBox["\[Psi]", "q"], ")"}], "\[Equal]", "0"}], ",", RowBox[{ SubscriptBox["\[Psi]", "q"], "\[NotEqual]", "0"}]}], TraditionalForm]]], " and has, in general, a logarithmic singularity for ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[Psi]", "q"], "\[Equal]", "0"}], TraditionalForm]]], ", while for ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Re", "(", SubscriptBox["\[Psi]", "q"], ")"}], "<", "0"}], TraditionalForm]]], ", it has a power singularity of order ", Cell[BoxData[ FormBox[ RowBox[{"-", SubscriptBox["\[Psi]", "q"]}], TraditionalForm]]], ", to which, for integer ", Cell[BoxData[ FormBox[ SubscriptBox["\[Psi]", "q"], TraditionalForm]]], "a logarithmic singularity can also be added." }], "Text", Evaluatable->False], Cell[TextData[{ "If ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"m", "+", "n", "-", "q"}], "<", "1"}], TraditionalForm]]], ", the function ", Cell[BoxData[ FormBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{"q", ",", "q"}], RowBox[{"m", ",", "n"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox["z", MeijerG, Editable->True], "\[VerticalSeparator]", GridBox[{ { RowBox[{ TagBox[ SubscriptBox["a", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "n"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "q"], MeijerG, Editable->True]}]}, { RowBox[{ TagBox[ SubscriptBox["b", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "m"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], MeijerG, Editable->True]}]} }]}], ")"}]}], TraditionalForm]]], " is a piecewise analytic function of ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " with a discontinuity on the circle ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "\[Equal]", "1"}], TraditionalForm]]], ".\nIf ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"m", "+", "n", "-", "q"}], "\[Equal]", "0"}], TraditionalForm]]], ", at the singular point ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", "1"}], TraditionalForm]]], "it is continuous for ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Re", "(", SubscriptBox["\[Psi]", "q"], ")"}], ">", "0"}], TraditionalForm]]], ", bounded for ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"Re", "(", SubscriptBox["\[Psi]", "q"], ")"}], "\[Equal]", "0"}], ",", RowBox[{ SubscriptBox["\[Psi]", "q"], "\[NotEqual]", "0"}]}], TraditionalForm]]], " and has, in general, a logarithmic singularity for ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[Psi]", "q"], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"m", " ", "n"}], " ", "\[NotEqual]", "0"}]}], TraditionalForm]]], ", while for ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Re", "(", SubscriptBox["\[Psi]", "q"], ")"}], "<", "0"}], TraditionalForm]]], " it has a power singularity of order ", Cell[BoxData[ FormBox[ RowBox[{"-", SubscriptBox["\[Psi]", "q"]}], TraditionalForm]]], ", to which for integer ", Cell[BoxData[ FormBox[ SubscriptBox["\[Psi]", "q"], TraditionalForm]]], "a logarithmic singularity can also occur. Here the asymptotics of this \ function depends on the way ", Cell[BoxData[ FormBox["z", TraditionalForm]]], " approaches ", Cell[BoxData[ FormBox["1", TraditionalForm]]], " (from outside or inside the disc ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "\[LessEqual]", "1"}], TraditionalForm]]], ")." }], "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[TextData[{ "The general formula for arbitrary ", Cell[BoxData[ FormBox[ StyleBox["z", "Program"], TraditionalForm]]], " " }], "Subsection3", Evaluatable->False], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"AsymptoticMeijerGSeries", "[", "Power", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]], ",", "\[Infinity]"}], "}"}]}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0008.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"m", "-", "1"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "j"]}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], ")"}]}], "]"}]}], "]"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}]}]}]], SuperscriptBox["\[ExponentialE]", RowBox[{"\[Pi]", " ", "\[ImaginaryI]", RowBox[{"(", RowBox[{ RowBox[{"2", SubscriptBox["b", "k"], " ", RowBox[{"Floor", "[", FractionBox[ RowBox[{"Arg", "[", RowBox[{"z", "+", "1"}], "]"}], RowBox[{"2", " ", "\[Pi]"}]], "]"}]}], "+", SubscriptBox["b", "k"]}], ")"}], RowBox[{"(", RowBox[{"m", "+", "n", "-", "q", "-", RowBox[{"2", " ", RowBox[{"Floor", "[", RowBox[{ RowBox[{"(", RowBox[{"m", "+", "n", "-", "q"}], ")"}], "/", "2"}], "]"}]}]}], ")"}]}]], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"v", "=", "0"}], "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "v"], " ", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"-", SubscriptBox["b", "k"]}], ",", "v"}], "]"}]}], RowBox[{"v", "!"}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]], "z"}], "-", "1"}], ")"}], "v"]}]}], ")"}], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "q"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "-", "1"}]]}], ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "q"]}]}], "}"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], " ", "z"}]}], "]"}]}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"m", "+", "n"}], ">", "q"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "m"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "m"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0055.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"n", "-", "1"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "j"], "-", SubscriptBox["a", "k"]}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["a", "j"]}], ")"}]}], "]"}]}], "]"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "j"]}], "]"}]}]}]}]], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[Pi]", " ", "\[ImaginaryI]", RowBox[{"(", RowBox[{ RowBox[{"2", SubscriptBox["a", "k"], " ", RowBox[{"Floor", "[", FractionBox[ RowBox[{"Arg", "[", RowBox[{"z", "+", "1"}], "]"}], RowBox[{"2", " ", "\[Pi]"}]], "]"}]}], "+", SubscriptBox["a", "k"], "-", "1"}], ")"}], RowBox[{"(", RowBox[{"q", "-", "m", "-", "n", "-", RowBox[{"2", " ", RowBox[{"Floor", "[", FractionBox[ RowBox[{"q", "-", "m", "-", "n"}], "2"], "]"}]}]}], ")"}]}]], " ", RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"v", "=", "0"}], "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "v"], " ", RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "k"]}], ",", "v"}], "]"}]}], RowBox[{"v", "!"}]], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]], "z"}], "-", "1"}], ")"}], "v"]}]}], ")"}], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "q"], "-", SubscriptBox["a", "k"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", RowBox[{"k", "-", "1"}]], "-", SubscriptBox["a", "k"]}], ",", RowBox[{"1", "+", SubscriptBox["a", RowBox[{"k", "+", "1"}]], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", "p"], "-", SubscriptBox["a", "k"]}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], " "}], "z"]}], "]"}]}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", RowBox[{"q", "+", "1"}]}], "\[And]", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", " ", "z"}], "]"}], "]"}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"m", "+", "n"}], ">", RowBox[{"q", "+", "1"}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], ">", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "n"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "n"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0056.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "The general formula for ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{ SubscriptBox["\[Psi]", "q"], "\[NotElement]", TagBox["\[DoubleStruckCapitalZ]", Integers& ]}], "Program"], TraditionalForm]]], " in the particular case ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], ">", "1"}], "Program"], TraditionalForm]]], " " }], "Subsection3", Evaluatable->False], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "q"}]], RowBox[{"Sin", "[", RowBox[{ SubscriptBox["\[Psi]", "q"], "\[Pi]"}], "]"}]]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"h", "=", "1"}], "n"], RowBox[{ SuperscriptBox["z", RowBox[{ SubscriptBox["a", "h"], "-", "1"}]], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], "z"}], ")"}], RowBox[{"1", "-", SubscriptBox["a", "h"]}]], FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "h"], "-", SubscriptBox["b", "k"]}], " ", ")"}], "\[Pi]"}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "n"], RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "h"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "h"], "-", SubscriptBox["a", "k"]}], " ", ")"}], "\[Pi]"}], "]"}]}], "]"}]}]], RowBox[{"(", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], "z"}]}], "]"}], "-", RowBox[{ FractionBox["1", SuperscriptBox["\[Pi]", "2"]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "h"], "-", SubscriptBox["a", "j"]}], " ", ")"}], "\[Pi]"}], "]"}], FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "q"], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["b", "k"], "-", SubscriptBox["a", "j"]}], " ", ")"}], "\[Pi]"}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "q"], RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "j"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["a", "j"]}], " ", ")"}], "\[Pi]"}], "]"}]}], "]"}]}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "h"], ",", SubscriptBox["a", "j"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "h"], ",", SubscriptBox["a", "j"], ",", SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], "z"}]}], "]"}]}]}]}]}], ")"}]}]}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "z", "]"}], ">", "1"}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Psi]", "q"], "\[Equal]", RowBox[{"-", "\[Mu]"}], "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "j"]}], ")"}]}], "-", "1"}]}], "/;", RowBox[{"p", "\[Equal]", "q"}]}], ")"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ SubscriptBox["\[Psi]", "q"], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{ RowBox[{"m", " ", "n"}], "\[NotEqual]", "0"}]}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0009.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "The major terms in the general formulas for ", StyleBox["p\[Equal]q", "Program"], " at ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{"z", "\[Equal]", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], "Program"], TraditionalForm]]], " " }], "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Proportional]", RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], "]"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", RowBox[{"z", "-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], "]"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "q", "-", "1"}]], RowBox[{"Gamma", "[", RowBox[{"-", SubscriptBox["\[Psi]", "q"]}], "]"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"h", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"n", "+", "1"}]}], "q"], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "h"]}], " ", ")"}], "\[Pi]"}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "h"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["b", "k"], "-", SubscriptBox["b", "h"]}], " ", ")"}], "\[Pi]"}], "]"}]}], "]"}]}]], SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"m", "+", "n", "-", "q"}], ")"}], "\[Pi]", " ", "\[ImaginaryI]", " ", SubscriptBox["b", "h"]}]], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], "z"}]}], ")"}], SubscriptBox["\[Psi]", "q"]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", RowBox[{"z", "-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], "]"}]}], ")"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{"z", "->", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], ")"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Psi]", "q"], "\[Equal]", RowBox[{"-", "\[Mu]"}], "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "j"]}], ")"}]}], "-", "1"}]}], "/;", RowBox[{"p", "\[Equal]", "q"}]}], ")"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ SubscriptBox["\[Psi]", "q"], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0010.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Proportional]", RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], "]"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", RowBox[{"z", "-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], "]"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "q", "-", "1"}]], RowBox[{"Gamma", "[", RowBox[{"-", SubscriptBox["\[Psi]", "q"]}], "]"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"h", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "h"], "-", SubscriptBox["b", "k"]}], " ", ")"}], "\[Pi]"}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "n"], RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "h"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "h"], "-", SubscriptBox["a", "k"]}], ")"}], "\[Pi]"}], "]"}]}], "]"}]}]], SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"m", "+", "n", "-", "q"}], ")"}], "\[Pi]", " ", "\[ImaginaryI]", RowBox[{"(", RowBox[{"1", "-", " ", SubscriptBox["a", "h"]}], ")"}]}]], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], "z"]}], ")"}], SubscriptBox["\[Psi]", "q"]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", RowBox[{"z", "-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], "]"}]}], ")"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{"z", "->", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], ")"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], ">", "1"}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Psi]", "q"], "\[Equal]", RowBox[{"-", "\[Mu]"}], "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "j"]}], ")"}]}], "-", "1"}]}], "/;", RowBox[{"p", "\[Equal]", "q"}]}], ")"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ SubscriptBox["\[Psi]", "q"], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0011.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Proportional]", RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], "]"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", RowBox[{"z", "-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], "]"}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "q", "-", "1"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"h", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"n", "+", "1"}]}], "q"], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "h"]}], " ", ")"}], "\[Pi]"}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "h"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["b", "k"], "-", SubscriptBox["b", "h"]}], " ", ")"}], "\[Pi]"}], "]"}]}], "]"}]}]], SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"m", "+", "n", "-", "q"}], ")"}], "\[Pi]", " ", "\[ImaginaryI]", " ", SubscriptBox["b", "h"]}]], RowBox[{"Log", "[", RowBox[{"1", "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], "z"}]}], "]"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", RowBox[{"z", "-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], "]"}]}], ")"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{"z", "->", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], ")"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Psi]", "q"], "\[Equal]", RowBox[{"-", "\[Mu]"}], "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "j"]}], ")"}]}], "-", "1"}]}], "/;", RowBox[{"p", "\[Equal]", "q"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["\[Psi]", "q"], "\[Equal]", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0012.01"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Expansions at ", StyleBox["z\[Equal]\[Infinity]", "Program"], " " }], "Subsubsection"], Cell[CellGroupData[{ Cell["Case of simple poles", "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["a", "j"]}], "]"}]}], "]"}]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "k"], "+", SubscriptBox["b", "j"]}], "]"}]}]}], RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "j"]}], "]"}]}], ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"1", "+", "n"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "]"}]}]}]], SuperscriptBox["z", RowBox[{ SubscriptBox["a", "k"], "-", "1"}]], RowBox[{"(", RowBox[{"1", "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "q"], RowBox[{"(", RowBox[{"1", "-", SubscriptBox["a", "k"], "+", SubscriptBox["b", "j"]}], ")"}]}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "p"], RowBox[{ RowBox[{"(", RowBox[{"1", "+", SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], ")"}], "z"}]}]], "+", FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "q"], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SubscriptBox["a", "k"], "+", SubscriptBox["b", "j"]}], ")"}], RowBox[{"(", RowBox[{"2", "-", SubscriptBox["a", "k"], "+", SubscriptBox["b", "j"]}], ")"}]}], ")"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "p"], RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "+", SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], ")"}], " ", RowBox[{"(", RowBox[{"2", "+", SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], ")"}]}], ")"}], SuperscriptBox["z", "2"]}]}]], "+", "\[Ellipsis]"}], ")"}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"p", ">", "q"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], ">", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "&&", RowBox[{"j", "\[NotEqual]", "k"}], "&&", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "n"}], "&&", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "n"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0013.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["a", "j"]}], "]"}]}], "]"}], " "}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "j"]}], "]"}]}]], SuperscriptBox["z", RowBox[{ SubscriptBox["a", "k"], "-", "1"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "\[Infinity]"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "k"], "+", SubscriptBox["b", "j"], "+", "i"}], "]"}]}], ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "j"], "-", SubscriptBox["a", "k"]}], ",", "i"}], "]"}]}]}], RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], ",", "i"}], "]"}]}], ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"], "+", "i"}], "]"}]}]}]], SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], " "}], "z"], ")"}], "i"]}]}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"p", ">", "q"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], ">", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "&&", RowBox[{"j", "\[NotEqual]", "k"}], "&&", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "n"}], "&&", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "n"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0014.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "\[Infinity]"], RowBox[{"GammaResidue", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "n"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", RowBox[{"m", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["b", "q"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "k"]}], ",", "1", ",", "i"}], "}"}], ",", "z"}], "]"}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"p", ">", "q"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], ">", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "&&", RowBox[{"j", "\[NotEqual]", "k"}], "&&", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "n"}], "&&", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "n"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0015.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"n", "-", "1"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "j"], "-", SubscriptBox["a", "k"]}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["a", "j"]}], ")"}]}], "]"}]}], "]"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "j"]}], "]"}]}]}]}]], " ", SuperscriptBox["z", RowBox[{ SubscriptBox["a", "k"], "-", "1"}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "q"], "-", SubscriptBox["a", "k"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", RowBox[{"k", "-", "1"}]], "-", SubscriptBox["a", "k"]}], ",", RowBox[{"1", "+", SubscriptBox["a", RowBox[{"k", "+", "1"}]], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", "p"], "-", SubscriptBox["a", "k"]}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], " "}], "z"]}], "]"}]}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"p", ">", "q"}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", RowBox[{"p", "+", "1"}]}], "\[And]", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", " ", "z"}], "]"}], "]"}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], ">", RowBox[{"p", "+", "1"}]}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", "p"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], ">", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "n"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "n"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0016.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["a", "j"]}], "]"}]}], "]"}]}], ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "j"], "-", SubscriptBox["a", "k"]}], "]"}], " "}]}], RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "j"]}], "]"}]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "]"}]}]}]], SuperscriptBox["z", RowBox[{ SubscriptBox["a", "k"], "-", "1"}]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "q"], "-", SubscriptBox["a", "k"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", RowBox[{"k", "-", "1"}]], "-", SubscriptBox["a", "k"]}], ",", RowBox[{"1", "+", SubscriptBox["a", RowBox[{"k", "+", "1"}]], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", "p"], "-", SubscriptBox["a", "k"]}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], " "}], "z"]}], "]"}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"p", ">", "q"}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", RowBox[{"p", "+", "1"}]}], "\[And]", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", " ", "z"}], "]"}], "]"}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], ">", RowBox[{"p", "+", "1"}]}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", "p"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], ">", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "n"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "n"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0017.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["a", "j"]}], "]"}]}], "]"}]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "k"], "+", SubscriptBox["b", "j"]}], "]"}]}]}], RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "j"]}], "]"}]}], ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"1", "+", "n"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "]"}]}]}]], SuperscriptBox["z", RowBox[{ SubscriptBox["a", "k"], "-", "1"}]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", FractionBox["1", "z"], "]"}]}], ")"}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "\[Rule]", "\[Infinity]"}], ")"}], "\[And]", RowBox[{"(", RowBox[{"p", "\[GreaterEqual]", "q"}], ")"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "&&", RowBox[{"j", "\[NotEqual]", "k"}], "&&", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "n"}], "&&", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "n"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0018.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Case of poles of order ", Cell[BoxData[ FormBox[ StyleBox["r", "Program"], TraditionalForm]]], " in the points ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["a", "r"]}], "+", "k"}], "/;", RowBox[{ RowBox[{"r", "\[Element]", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}], "\[And]", RowBox[{"k", "\[Element]", SuperscriptBox["\[DoubleStruckCapitalN]", "+"]}]}]}], "Program"], TraditionalForm]]], " " }], "Subsection3", Evaluatable->False], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"AsymptoticMeijerGSeries", "[", "Power", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}]}], "]"}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"p", ">", "q"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], ">", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["a", RowBox[{"k", "-", "1"}]], "-", SubscriptBox["a", "k"]}], "\[Element]", "Integers"}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["a", RowBox[{"k", "-", "1"}]], "-", SubscriptBox["a", "k"]}], "\[GreaterEqual]", "0"}], "\[And]", RowBox[{"2", "\[LessEqual]", "k", "\[LessEqual]", "r"}], "\[And]", RowBox[{"Not", "[", RowBox[{ RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["a", "1"]}], "\[Element]", "Integers"}], "]"}], "\[And]", RowBox[{ RowBox[{"r", "+", "1"}], "\[LessEqual]", "k", "\[LessEqual]", "n"}], "\[And]", RowBox[{"r", "\[Element]", RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0019.01"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Asymptotic series expansions at ", StyleBox["z\[Equal]0", "Program"], " for ", StyleBox["q
"from www.functions.wolfram.com", CellLabel->"07.34.06.0020.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"q", "+", "1"}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Proportional]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}], "]"}]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "j"]}], "]"}], " "}]}], RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], RowBox[{"q", "+", "1"}]], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}], " ", ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "j"], "+", SubscriptBox["b", "k"]}], "]"}]}]}]], SuperscriptBox["z", SubscriptBox["b", "k"]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", "z", "]"}]}], ")"}]}]}], "+", " ", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "q", "-", "1"}]], RowBox[{"Exp", "[", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], "z"], "]"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "r"], "-", SubscriptBox["b", "j"]}], ")"}]}], "]"}], " "}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "r"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "r"], "-", SubscriptBox["a", "j"]}], ")"}]}], "]"}]}], "]"}]}]], SuperscriptBox["z", RowBox[{ SubscriptBox["a", "r"], "-", "1"}]], SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], "z"], ")"}], RowBox[{"\[Chi]", "+", SubscriptBox["a", "r"], "-", "1"}]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", "z", "]"}]}], ")"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{"z", "\[Rule]", "0"}], ")"}], "\[And]", RowBox[{"\[Chi]", "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"q", "+", "1"}]], SubscriptBox["a", "j"]}], "+", "1"}]}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "m"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "m"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0021.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Expansions for ", StyleBox["p", "Program"], StyleBox["\[Equal]q+2", "Program"], " " }], "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"q", "+", "2"}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Proportional]", RowBox[{ RowBox[{ RowBox[{"AsymptoticMeijerGSeries", "[", "Power", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"q", "+", "2"}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}], "+", RowBox[{ RowBox[{"AsymptoticMeijerGSeries", "[", "Trig", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"q", "+", "2"}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]}]}], "/;", RowBox[{"(", RowBox[{"z", "\[Rule]", "0"}], ")"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0022.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"q", "+", "2"}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Proportional]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}], "]"}]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "j"]}], "]"}], " "}]}], RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], RowBox[{"q", "+", "2"}]], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}], " ", ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "j"], "+", SubscriptBox["b", "k"]}], "]"}]}]}]], SuperscriptBox["z", SubscriptBox["b", "k"]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", "z", "]"}]}], ")"}]}]}], "+", " ", RowBox[{ FractionBox[ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "q", "-", FractionBox["3", "2"]}]], "2"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "r"], "-", SubscriptBox["b", "j"]}], ")"}]}], "]"}], " "}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "r"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "r"], "-", SubscriptBox["a", "j"]}], ")"}]}], "]"}]}], "]"}]}]], SuperscriptBox["z", RowBox[{ SubscriptBox["a", "r"], "-", "1"}]], SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n", "-", "1"}]], "z"], ")"}], RowBox[{"\[Chi]", "+", SubscriptBox["a", "r"], "-", "1"}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{"\[ImaginaryI]", RowBox[{"(", RowBox[{ RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{"\[Chi]", "+", SubscriptBox["a", "r"], "-", "1"}], ")"}]}], "+", RowBox[{"2", SqrtBox[ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n", "-", "1"}]], "z"]]}]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", SqrtBox["z"], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], RowBox[{"(", RowBox[{ RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{"\[Chi]", "+", SubscriptBox["a", "r"], "-", "1"}], ")"}]}], "+", RowBox[{"2", SqrtBox[ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n", "-", "1"}]], "z"]]}]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", SqrtBox["z"], "]"}]}], ")"}]}]}], ")"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{"z", "\[Rule]", "0"}], ")"}], "\[And]", RowBox[{"\[Chi]", "\[Equal]", RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"q", "+", "2"}]], SubscriptBox["a", "j"]}], "+", FractionBox["3", "2"]}], ")"}]}]}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "&&", RowBox[{"j", "\[NotEqual]", "k"}], "&&", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "m"}], "&&", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "m"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0023.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"q", "+", "2"}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Proportional]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}], "]"}]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "j"]}], "]"}], " "}]}], RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], RowBox[{"q", "+", "2"}]], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}], " ", ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "j"], "+", SubscriptBox["b", "k"]}], "]"}]}]}]], SuperscriptBox["z", SubscriptBox["b", "k"]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", "z", "]"}]}], ")"}]}]}], "-", " ", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "q", "-", FractionBox["3", "2"]}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "r"], "-", SubscriptBox["b", "j"]}], ")"}]}], "]"}], " "}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "r"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "r"], "-", SubscriptBox["a", "j"]}], ")"}]}], "]"}]}], "]"}]}]], SuperscriptBox["z", RowBox[{ SubscriptBox["a", "r"], "-", "1"}]], SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n", "-", "1"}]], "z"], ")"}], RowBox[{"\[Chi]", "+", SubscriptBox["a", "r"], "-", "1"}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{"\[Chi]", "+", SubscriptBox["a", "r"]}], ")"}]}], "+", RowBox[{"2", SqrtBox[ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n", "-", "1"}]], "z"]]}]}], "]"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", "z", "]"}]}], ")"}]}], "+", RowBox[{ FractionBox[ SubscriptBox["c", "1"], RowBox[{"2", SqrtBox[ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n", "-", "1"}]], "z"]]}]], RowBox[{"Sin", "[", RowBox[{ RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{"\[Chi]", "+", SubscriptBox["a", "r"]}], ")"}]}], "+", RowBox[{"2", SqrtBox[ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n", "-", "1"}]], "z"]]}]}], "]"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", "z", "]"}]}], ")"}]}]}], ")"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{"z", "\[Rule]", "0"}], ")"}], "\[And]", RowBox[{"\[Chi]", "\[Equal]", RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"q", "+", "2"}]], SubscriptBox["a", "j"]}], "+", FractionBox["3", "2"]}], ")"}]}]}], "\[And]", RowBox[{ SubscriptBox["c", "1"], "\[Equal]", RowBox[{ RowBox[{ FractionBox["1", "4"], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"q", "+", "2"}]], SubscriptBox["a", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}]}], ")"}], "2"]}], "+", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "2"}], RowBox[{"q", "+", "2"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"s", "-", "1"}]], RowBox[{ SubscriptBox["a", "s"], " ", SubscriptBox["a", "j"]}]}]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "2"}], "q"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"s", "-", "1"}]], RowBox[{ SubscriptBox["b", "s"], " ", SubscriptBox["b", "j"]}]}]}], "+", RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}], ")"}], "2"], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"q", "+", "2"}]], SubscriptBox["a", "j"]}], ")"}], "2"]}], ")"}]}], "+", FractionBox["1", "16"]}]}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "&&", RowBox[{"j", "\[NotEqual]", "k"}], "&&", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "m"}], "&&", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "m"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0024.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Expansions for ", StyleBox["p", "Program"], StyleBox[">q+2", "Program"], " " }], "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Proportional]", RowBox[{ RowBox[{ RowBox[{"AsymptoticMeijerGSeries", "[", "Power", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}], "+", RowBox[{ RowBox[{"AsymptoticMeijerGSeries", "[", "Hyp", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{"z", "\[Rule]", "0"}], ")"}], "\[And]", RowBox[{"p", ">", RowBox[{"q", "+", "2"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0025.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Proportional]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}], "]"}]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "j"]}], "]"}], " "}]}], RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}], " ", ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "j"], "+", SubscriptBox["b", "k"]}], "]"}]}]}]], SuperscriptBox["z", SubscriptBox["b", "k"]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", "z", "]"}]}], ")"}]}]}], "+", " ", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"2", " ", "\[Pi]"}], ")"}], FractionBox[ RowBox[{"1", "-", "\[Beta]"}], "2"]], " ", SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "q", "-", "1"}]]}]}], SqrtBox["\[Beta]"]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{"\[Beta]", " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"\[Pi]", " ", "\[ImaginaryI]", RowBox[{"(", RowBox[{"q", "-", "m", "-", "n"}], ")"}]}], "\[Beta]"]], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "z"], ")"}], RowBox[{"1", "/", "\[Beta]"}]]}], "]"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "r"], "-", SubscriptBox["b", "j"]}], ")"}]}], "]"}], " "}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "r"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "r"], "-", SubscriptBox["a", "j"]}], ")"}]}], "]"}]}], "]"}]}]], SuperscriptBox["\[ExponentialE]", RowBox[{"\[Pi]", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"q", "-", "m", "-", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"\[Chi]", "+", SubscriptBox["a", "r"], "-", "1"}], ")"}]}]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", " ", SuperscriptBox["z", FractionBox["1", "\[Beta]"]], "]"}]}], ")"}]}]}]}], "+", RowBox[{ RowBox[{"Exp", "[", RowBox[{"\[Beta]", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"\[Pi]", " ", "\[ImaginaryI]", RowBox[{"(", RowBox[{"q", "-", "m", "-", "n"}], ")"}]}], "\[Beta]"]}]], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "z"], ")"}], RowBox[{"1", "/", "\[Beta]"}]]}], "]"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "r"], "-", SubscriptBox["b", "j"]}], ")"}]}], "]"}], " "}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "r"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "r"], "-", SubscriptBox["a", "j"]}], ")"}]}], "]"}]}], "]"}]}]], SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Pi]"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"q", "-", "m", "-", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"\[Chi]", "+", SubscriptBox["a", "r"], "-", "1"}], ")"}]}]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", " ", SuperscriptBox["z", FractionBox["1", "\[Beta]"]], "]"}]}], ")"}]}]}]}]}], ")"}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{"z", "\[Rule]", "0"}], ")"}], "\[And]", RowBox[{"p", ">", RowBox[{"q", "+", "2"}]}], "\[And]", RowBox[{"\[Beta]", "\[Equal]", RowBox[{"p", "-", "q"}]}], "\[And]", RowBox[{"\[Chi]", "\[Equal]", RowBox[{ FractionBox["1", "\[Beta]"], RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], "+", FractionBox[ RowBox[{"1", "+", "\[Beta]"}], "2"]}], ")"}]}]}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "&&", RowBox[{"j", "\[NotEqual]", "k"}], "&&", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "m"}], "&&", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "m"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0026.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Proportional]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}], "]"}]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "j"]}], "]"}], " "}]}], RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}], " ", ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "j"], "+", SubscriptBox["b", "k"]}], "]"}]}]}]], SuperscriptBox["z", SubscriptBox["b", "k"]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", "z", "]"}]}], ")"}]}]}], "+", " ", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"2", SuperscriptBox[ RowBox[{"(", RowBox[{"2", " ", "\[Pi]"}], ")"}], FractionBox[ RowBox[{"1", "-", "\[Beta]"}], "2"]], " ", SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "q", "-", "1"}]]}]}], SqrtBox["\[Beta]"]], RowBox[{"Exp", "[", RowBox[{"\[Beta]", " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"\[Pi]", RowBox[{"(", RowBox[{"q", "-", "m", "-", "n"}], ")"}]}], "\[Beta]"], "]"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "z"], ")"}], RowBox[{"1", "/", "\[Beta]"}]]}], "]"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "r"], "-", SubscriptBox["b", "j"]}], ")"}]}], "]"}], " "}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "r"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "r"], "-", SubscriptBox["a", "j"]}], ")"}]}], "]"}]}], "]"}]}]], RowBox[{"Cos", "[", RowBox[{ RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{"q", "-", "m", "-", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"\[Chi]", "+", SubscriptBox["a", "r"], "-", "1"}], ")"}]}], "+", RowBox[{"\[Beta]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"\[Pi]", RowBox[{"(", RowBox[{"q", "-", "m", "-", "n"}], ")"}]}], "\[Beta]"], "]"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "z"], ")"}], RowBox[{"1", "/", "\[Beta]"}]]}]}], "]"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", " ", SuperscriptBox["z", FractionBox["1", "\[Beta]"]], "]"}]}], ")"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{"z", "\[Rule]", "0"}], ")"}], "\[And]", RowBox[{"p", ">", RowBox[{"q", "+", "2"}]}], "\[And]", RowBox[{"\[Beta]", "\[Equal]", RowBox[{"p", "-", "q"}]}], "\[And]", RowBox[{"\[Chi]", "\[Equal]", RowBox[{ FractionBox["1", "\[Beta]"], RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], "+", FractionBox[ RowBox[{"1", "+", "\[Beta]"}], "2"]}], ")"}]}]}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "&&", RowBox[{"j", "\[NotEqual]", "k"}], "&&", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "m"}], "&&", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "m"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0027.01"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Asymptotic series expansions at ", StyleBox["z\[Equal]\[Infinity]", "Program"], " for ", StyleBox["q>p", "Program"], " " }], "Subsection"], Cell[CellGroupData[{ Cell[TextData[{ "Expansions for ", StyleBox["q\[Equal]", "Program"], "p+1 " }], "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"p", "+", "1"}]]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Proportional]", RowBox[{ RowBox[{ RowBox[{"AsymptoticMeijerGSeries", "[", "Power", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"p", "+", "1"}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}]}], "]"}], "+", RowBox[{ RowBox[{"AsymptoticMeijerGSeries", "[", "Exp", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"p", "+", "1"}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}]}], "]"}]}]}], "/;", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "\[Rule]", "\[Infinity]"}], ")"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0028.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"p", "+", "1"}]]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Proportional]", RowBox[{ RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "p"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], ")"}], "\[Pi]"}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], ")"}]}], "]"}]}], "]"}]}]], SuperscriptBox["z", SubscriptBox["b", "k"]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "p"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"s", "=", "1"}], "p"], RowBox[{"If", "[", RowBox[{ RowBox[{"s", "\[Equal]", "i"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "i"], "-", SubscriptBox["a", "s"]}], "]"}]}], "]"}]}], RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "i"], "-", SubscriptBox["b", "k"]}], ")"}], "\[Pi]"}], "]"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"s", "=", "1"}], RowBox[{"p", "+", "1"}]], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "i"], "-", SubscriptBox["b", "s"]}], "]"}]}]}]], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n", "-", "1"}]], " ", "z"}], ")"}], RowBox[{ SubscriptBox["a", "i"], "-", SubscriptBox["b", "k"], "-", "1"}]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", FractionBox["1", "z"], "]"}]}], ")"}]}]}]}]}]}], "+", " ", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "p", "-", "1"}]], RowBox[{"Exp", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " ", "z"}], "]"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], ")"}], "\[Pi]"}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], ")"}]}], "]"}]}], "]"}]}]], SuperscriptBox["z", SubscriptBox["b", "k"]], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " ", "z"}], ")"}], RowBox[{"\[Chi]", "-", SubscriptBox["b", "k"]}]], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", FractionBox["1", "z"], "]"}]}], ")"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "\[Rule]", "\[Infinity]"}], ")"}], "\[And]", RowBox[{"\[Chi]", "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}]}]}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "&&", RowBox[{"j", "\[NotEqual]", "k"}], "&&", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "n"}], "&&", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "n"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0029.02"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Expansions for ", StyleBox["q\[Equal]p+2", "Program"], " " }], "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"p", "+", "2"}]]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Proportional]", RowBox[{ RowBox[{ RowBox[{"AsymptoticMeijerGSeries", "[", "Power", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"p", "+", "2"}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}]}], "]"}], "+", RowBox[{ RowBox[{"AsymptoticMeijerGSeries", "[", "Trig", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"p", "+", "2"}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}]}], "]"}]}]}], "/;", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "\[Rule]", "\[Infinity]"}], ")"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0030.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"p", "+", "2"}]]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Proportional]", " ", RowBox[{ RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "p"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], ")"}], "\[Pi]"}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], ")"}]}], "]"}]}], "]"}]}]], SuperscriptBox["z", SubscriptBox["b", "k"]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "p"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"s", "=", "1"}], "p"], RowBox[{"If", "[", RowBox[{ RowBox[{"s", "\[Equal]", "i"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "i"], "-", SubscriptBox["a", "s"]}], "]"}]}], "]"}]}], RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "i"], "-", SubscriptBox["b", "k"]}], ")"}], "\[Pi]"}], "]"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"s", "=", "1"}], RowBox[{"p", "+", "2"}]], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "i"], "-", SubscriptBox["b", "s"]}], "]"}]}]}]], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n", "-", "1"}]], " ", "z"}], ")"}], RowBox[{ SubscriptBox["a", "i"], "-", SubscriptBox["b", "k"], "-", "1"}]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", FractionBox["1", "z"], "]"}]}], ")"}]}]}]}]}]}], "+", " ", RowBox[{ FractionBox[ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "p", "-", FractionBox["3", "2"]}]], "2"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], ")"}], "\[Pi]"}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], ")"}]}], "]"}]}], "]"}]}]], SuperscriptBox["z", SubscriptBox["b", "k"]], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n", "-", "1"}]], " ", "z"}], ")"}], RowBox[{"\[Chi]", "-", SubscriptBox["b", "k"]}]], RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Chi]", " ", "-", SubscriptBox["b", "k"]}], ")"}], "\[Pi]"}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n", "-", "1"}]], " ", "z"}]]}]}], ")"}]}]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", FractionBox["1", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n", "-", "1"}]], " ", "z"}]]], "]"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Chi]", " ", "-", SubscriptBox["b", "k"]}], ")"}], " ", "\[Pi]"}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n", "-", "1"}]], " ", "z"}]]}]}], ")"}]}]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", FractionBox["1", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n", "-", "1"}]], " ", "z"}]]], "]"}]}], ")"}]}]}], ")"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "\[Rule]", "\[Infinity]"}], ")"}], "\[And]", RowBox[{"\[Chi]", "\[Equal]", RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"p", "+", "2"}]], SubscriptBox["b", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], "-", FractionBox["1", "2"]}], ")"}]}]}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "&&", RowBox[{"j", "\[NotEqual]", "k"}], "&&", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "n"}], "&&", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "n"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0031.02"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"p", "+", "2"}]]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Proportional]", " ", RowBox[{ RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "p"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], ")"}], "\[Pi]"}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], ")"}]}], "]"}]}], "]"}]}]], SuperscriptBox["z", SubscriptBox["b", "k"]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "p"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"s", "=", "1"}], "p"], RowBox[{"If", "[", RowBox[{ RowBox[{"s", "\[Equal]", "i"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "i"], "-", SubscriptBox["a", "s"]}], "]"}]}], "]"}]}], RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "i"], "-", SubscriptBox["b", "k"]}], ")"}], "\[Pi]"}], "]"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"s", "=", "1"}], RowBox[{"p", "+", "2"}]], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "i"], "-", SubscriptBox["b", "s"]}], "]"}]}]}]], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n", "-", "1"}]], " ", "z"}], ")"}], RowBox[{ SubscriptBox["a", "i"], "-", SubscriptBox["b", "k"], "-", "1"}]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", FractionBox["1", "z"], "]"}]}], ")"}]}]}]}]}]}], "+", " ", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "p", "-", FractionBox["3", "2"]}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], ")"}], "\[Pi]"}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], ")"}]}], "]"}]}], "]"}]}]], SuperscriptBox["z", SubscriptBox["b", "k"]], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n", "-", "1"}]], " ", "z"}], ")"}], RowBox[{"\[Chi]", "-", SubscriptBox["b", "k"]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Chi]", " ", "-", SubscriptBox["b", "k"]}], ")"}], "\[Pi]"}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n", "-", "1"}]], " ", "z"}]]}]}], ")"}], "]"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", FractionBox["1", "z"], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox[ RowBox[{" ", SubscriptBox["c", "1"]}], SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n", "-", "1"}]], " ", "z"}]]], RowBox[{"Sin", "[", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Chi]", " ", "-", SubscriptBox["b", "k"]}], ")"}], "\[Pi]"}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n", "-", "1"}]], " ", "z"}]]}]}], ")"}], "]"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", FractionBox["1", "z"], "]"}]}], ")"}]}]}], ")"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "\[Rule]", "\[Infinity]"}], ")"}], "\[And]", RowBox[{"\[Chi]", "\[Equal]", RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"p", "+", "2"}]], SubscriptBox["b", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], "-", FractionBox["1", "2"]}], ")"}]}]}], "\[And]", RowBox[{ SubscriptBox["c", "1"], "\[Equal]", RowBox[{ FractionBox["1", "16"], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"p", "+", "2"}]], SubscriptBox["b", "j"]}], ")"}], "2"]}], "+", RowBox[{ FractionBox["3", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], ")"}], "2"]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"p", "+", "2"}]], RowBox[{ SubscriptBox["b", "j"], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "1"}], RowBox[{"j", "-", "1"}]], SubscriptBox["b", "s"]}]}]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", RowBox[{"j", "+", "1"}]}], "p"], RowBox[{ SubscriptBox["a", "s"], " ", SubscriptBox["a", "j"]}]}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"p", "+", "2"}]], RowBox[{ SubscriptBox["b", "j"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"s", "=", "1"}], "p"], SubscriptBox["a", "s"]}]}]}]}]}]}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "&&", RowBox[{"j", "\[NotEqual]", "k"}], "&&", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "n"}], "&&", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "n"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0032.02"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Expansions for ", StyleBox["q>p+2", "Program"], " " }], "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Proportional]", RowBox[{ RowBox[{ RowBox[{"AsymptoticMeijerGSeries", "[", "Power", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}]}], "]"}], "+", RowBox[{ RowBox[{"AsymptoticMeijerGSeries", "[", "Hyp", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "\[Infinity]", ",", "\[Infinity]"}], "}"}]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "\[Rule]", "\[Infinity]"}], ")"}], "\[And]", RowBox[{"q", ">", RowBox[{"p", "+", "2"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0033.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Proportional]", " ", RowBox[{ RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "p"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], ")"}], "\[Pi]"}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], ")"}]}], "]"}]}], "]"}]}]], SuperscriptBox["z", SubscriptBox["b", "k"]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "p"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"s", "=", "1"}], "p"], RowBox[{"If", "[", RowBox[{ RowBox[{"s", "\[Equal]", "i"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "i"], "-", SubscriptBox["a", "s"]}], "]"}]}], "]"}]}], RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "i"], "-", SubscriptBox["b", "k"]}], ")"}], "\[Pi]"}], "]"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"s", "=", "1"}], "q"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "i"], "-", SubscriptBox["b", "s"]}], "]"}]}]}]], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n", "-", "1"}]], " ", "z"}], ")"}], RowBox[{ SubscriptBox["a", "i"], "-", SubscriptBox["b", "k"], "-", "1"}]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", FractionBox["1", "z"], "]"}]}], ")"}]}]}]}]}]}], "+", " ", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "p", "-", "1"}]], FractionBox[ RowBox[{" ", SuperscriptBox[ RowBox[{"(", RowBox[{"2", " ", "\[Pi]"}], ")"}], FractionBox[ RowBox[{"1", "-", "\[Beta]"}], "2"]], " "}], SqrtBox["\[Beta]"]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], ")"}], "\[Pi]"}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], ")"}]}], "]"}]}], "]"}]}]], SuperscriptBox["z", "\[Chi]"], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{"\[Beta]", " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"\[Pi]", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"p", "-", "m", "-", "n"}], ")"}]}], "\[Beta]"]], " ", SuperscriptBox["z", RowBox[{"1", "/", "\[Beta]"}]]}], "]"}], SuperscriptBox["\[ExponentialE]", RowBox[{"\[Pi]", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"p", "-", "m", "-", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"\[Chi]", "-", SubscriptBox["b", "k"]}], ")"}]}]], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " ", "z"}], ")"}], RowBox[{"1", "/", "\[Beta]"}]]], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Exp", "[", RowBox[{"\[Beta]", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"\[Pi]", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"p", "-", "m", "-", "n"}], ")"}]}], "\[Beta]"]}]], " ", SuperscriptBox["z", RowBox[{"1", "/", "\[Beta]"}]]}], "]"}], SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Pi]"}], " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"p", "-", "m", "-", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"\[Chi]", "-", SubscriptBox["b", "k"]}], ")"}]}]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " ", "z"}], ")"}], RowBox[{"1", "/", "\[Beta]"}]]], "]"}]}], ")"}]}]}], ")"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "\[Rule]", "\[Infinity]"}], ")"}], "\[And]", RowBox[{"q", ">", RowBox[{"p", "+", "2"}]}], "\[And]", RowBox[{"\[Beta]", "\[Equal]", RowBox[{"q", "-", "p"}]}], "\[And]", RowBox[{"\[Chi]", "\[Equal]", RowBox[{ FractionBox["1", "\[Beta]"], RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], "+", FractionBox[ RowBox[{"1", "-", "\[Beta]"}], "2"]}], ")"}]}]}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "&&", RowBox[{"j", "\[NotEqual]", "k"}], "&&", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "n"}], "&&", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "n"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0034.02"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["General formulas of asymptotic series expansions", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Proportional]", RowBox[{"MeijerGAsymptotics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]}], "/;", "\[InvisibleSpace]", RowBox[{"(", RowBox[{"z", "\[Rule]", "0"}], ")"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0036.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Proportional]", RowBox[{ RowBox[{ RowBox[{"AsymptoticMeijerGSeries", "[", "Power", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}], "+", RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"p", ",", RowBox[{"q", "+", "1"}]}], "]"}], RowBox[{ RowBox[{"AsymptoticMeijerGSeries", "[", "Exp", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"q", "+", "1"}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]}], "+", RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"p", ",", RowBox[{"q", "+", "2"}]}], "]"}], RowBox[{ RowBox[{"AsymptoticMeijerGSeries", "[", "Trig", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"q", "+", "2"}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"p", "-", "q", "-", "2"}], "]"}], "-", RowBox[{"KroneckerDelta", "[", RowBox[{"p", ",", RowBox[{"q", "+", "2"}]}], "]"}], "-", RowBox[{"KroneckerDelta", "[", RowBox[{"p", ",", RowBox[{"q", "+", "1"}]}], "]"}]}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"KroneckerDelta", "[", RowBox[{"p", ",", RowBox[{"q", "+", "1"}]}], "]"}]}], ")"}], RowBox[{ RowBox[{"AsymptoticMeijerGSeries", "[", "Hyp", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]}]}]}], "/;", "\[InvisibleSpace]", RowBox[{"(", RowBox[{"z", "\[Rule]", "0"}], ")"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0037.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Proportional]", RowBox[{"MeijerGAsymptotics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "ComplexInfinity", ",", "\[Infinity]"}], "}"}]}], "]"}]}], "/;", "\[InvisibleSpace]\[InvisibleSpace]", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "\[Rule]", "\[Infinity]"}], ")"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0038.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Proportional]", RowBox[{ RowBox[{ RowBox[{"AsymptoticMeijerGSeries", "[", "Power", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "ComplexInfinity", ",", "\[Infinity]"}], "}"}]}], "]"}], "+", RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"q", ",", RowBox[{"p", "+", "1"}]}], "]"}], RowBox[{ RowBox[{"AsymptoticMeijerGSeries", "[", "Exp", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"p", "+", "1"}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "ComplexInfinity", ",", "\[Infinity]"}], "}"}]}], "]"}]}], "+", RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"q", ",", RowBox[{"p", "+", "2"}]}], "]"}], RowBox[{ RowBox[{"AsymptoticMeijerGSeries", "[", "Trig", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"p", "+", "2"}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "ComplexInfinity", ",", "\[Infinity]"}], "}"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"q", "-", "p", "-", "2"}], "]"}], "-", RowBox[{"KroneckerDelta", "[", RowBox[{"q", ",", RowBox[{"p", "+", "2"}]}], "]"}], "-", RowBox[{"KroneckerDelta", "[", RowBox[{"q", ",", RowBox[{"p", "+", "1"}]}], "]"}]}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"KroneckerDelta", "[", RowBox[{"q", ",", RowBox[{"p", "+", "1"}]}], "]"}]}], ")"}], RowBox[{ RowBox[{"AsymptoticMeijerGSeries", "[", "Hyp", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"z", ",", "ComplexInfinity", ",", "\[Infinity]"}], "}"}]}], "]"}]}]}]}], "/;", "\[InvisibleSpace]", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "\[Rule]", "\[Infinity]"}], ")"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0039.01"] }, Closed]], Cell[CellGroupData[{ Cell["Main terms of asymptotic expansions", "Subsection"], Cell[CellGroupData[{ Cell[TextData[{ "Expansions at ", StyleBox["z\[Equal]0", "Program"], " " }], "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Proportional]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}], "]"}]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "j"]}], "]"}], " "}]}], RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}], " ", ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "j"], "+", SubscriptBox["b", "k"]}], "]"}]}]}]], SuperscriptBox["z", SubscriptBox["b", "k"]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", "z", "]"}]}], ")"}]}]}], "+", RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"p", ",", RowBox[{"q", "+", "1"}]}], "]"}], SubscriptBox["d", "1"]}], "+", RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"p", ",", RowBox[{"q", "+", "2"}]}], "]"}], SubscriptBox["d", "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"p", "-", "q", "-", "2"}], "]"}], "-", RowBox[{"KroneckerDelta", "[", RowBox[{"p", ",", RowBox[{"q", "+", "2"}]}], "]"}], "-", RowBox[{"KroneckerDelta", "[", RowBox[{"p", ",", RowBox[{"q", "+", "1"}]}], "]"}]}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"KroneckerDelta", "[", RowBox[{"p", ",", RowBox[{"q", "+", "1"}]}], "]"}]}], ")"}], SubscriptBox["d", "3"]}]}]}], "/;", "\[InvisibleSpace]", RowBox[{ RowBox[{"(", RowBox[{"z", "\[Rule]", "0"}], ")"}], "\[And]", RowBox[{"\[Beta]", "\[Equal]", RowBox[{"p", "-", "q"}]}], "\[And]", RowBox[{ SubscriptBox["d", "1"], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "q", "-", "1"}]], RowBox[{"Exp", "[", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], "z"], "]"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "r"], "-", SubscriptBox["b", "j"]}], ")"}]}], "]"}], " "}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "r"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "r"], "-", SubscriptBox["a", "j"]}], ")"}]}], "]"}]}], "]"}]}]], SuperscriptBox["z", RowBox[{ SubscriptBox["a", "r"], "-", "1"}]], SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], "z"], ")"}], RowBox[{"\[Chi]", "+", SubscriptBox["a", "r"], "-", "1"}]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", "z", "]"}]}], ")"}]}]}]}]}], "\[And]", RowBox[{ SubscriptBox["d", "2"], "\[Equal]", RowBox[{ RowBox[{"-", " ", SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "q", "-", FractionBox["3", "2"]}]]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "r"], "-", SubscriptBox["b", "j"]}], ")"}]}], "]"}], " "}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "r"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "r"], "-", SubscriptBox["a", "j"]}], ")"}]}], "]"}]}], "]"}]}]], SuperscriptBox["z", RowBox[{ SubscriptBox["a", "r"], "-", "1"}]], SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n", "-", "1"}]], "z"], ")"}], RowBox[{"\[Chi]", "+", SubscriptBox["a", "r"], "-", "1"}]], RowBox[{"Cos", "[", RowBox[{ RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{"\[Chi]", "+", SubscriptBox["a", "r"]}], ")"}]}], "+", RowBox[{"2", SqrtBox[ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n", "-", "1"}]], "z"]]}]}], "]"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", SqrtBox["z"], "]"}]}], ")"}]}]}]}]}], "\[And]", RowBox[{ SubscriptBox["d", "3"], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"2", SuperscriptBox[ RowBox[{"(", RowBox[{"2", " ", "\[Pi]"}], ")"}], FractionBox[ RowBox[{"1", "-", "\[Beta]"}], "2"]], " ", SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "q", "-", "1"}]]}]}], SqrtBox["\[Beta]"]], RowBox[{"Exp", "[", RowBox[{"\[Beta]", " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"\[Pi]", RowBox[{"(", RowBox[{"q", "-", "m", "-", "n"}], ")"}]}], "\[Beta]"], "]"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "z"], ")"}], RowBox[{"1", "/", "\[Beta]"}]]}], "]"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "r"], "-", SubscriptBox["b", "j"]}], ")"}]}], "]"}], " "}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "r"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "r"], "-", SubscriptBox["a", "j"]}], ")"}]}], "]"}]}], "]"}]}]], RowBox[{"Cos", "[", RowBox[{ RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{"q", "-", "m", "-", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"\[Chi]", "+", SubscriptBox["a", "r"], "-", "1"}], ")"}]}], "+", RowBox[{"\[Beta]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"\[Pi]", RowBox[{"(", RowBox[{"q", "-", "m", "-", "n"}], ")"}]}], "\[Beta]"], "]"}], " ", SuperscriptBox[ RowBox[{"(", FractionBox["1", "z"], ")"}], RowBox[{"1", "/", "\[Beta]"}]]}]}], "]"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", " ", SuperscriptBox["z", FractionBox["1", "\[Beta]"]], "]"}]}], ")"}]}]}]}]}], "\[And]", RowBox[{"\[Chi]", "\[Equal]", RowBox[{ FractionBox["1", "\[Beta]"], RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], "+", FractionBox[ RowBox[{"1", "+", "\[Beta]"}], "2"]}], ")"}]}]}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "&&", RowBox[{"j", "\[NotEqual]", "k"}], "&&", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "m"}], "&&", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "m"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0040.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Expansions at ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{"z", "\[Equal]", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], "Program"], TraditionalForm]]], StyleBox[" ", "Program"], "for ", StyleBox["p\[Equal]q", "Program"], " " }], "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Proportional]", RowBox[{ RowBox[{"c", RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", RowBox[{"z", "-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], "]"}]}], ")"}]}], "+", RowBox[{"d", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], "z"}]}], ")"}], SubscriptBox["\[Psi]", "q"]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", RowBox[{"z", "-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], "]"}]}], ")"}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{"z", "->", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], ")"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}], "\[And]", RowBox[{ SubscriptBox["\[Psi]", "q"], "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "j"]}], ")"}]}], "-", "1"}]}], "\[And]", RowBox[{"c", "\[Equal]", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], "]"}]}], "\[And]", RowBox[{"d", "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "q", "-", "1"}]], RowBox[{"Gamma", "[", RowBox[{"-", SubscriptBox["\[Psi]", "q"]}], "]"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"h", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"n", "+", "1"}]}], "q"], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "h"]}], " ", ")"}], "\[Pi]"}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "h"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["b", "k"], "-", SubscriptBox["b", "h"]}], " ", ")"}], "\[Pi]"}], "]"}]}], "]"}]}]], SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"m", "+", "n", "-", "q"}], ")"}], "\[Pi]", " ", "\[ImaginaryI]", " ", SubscriptBox["b", "h"]}]]}]}]}]}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ SubscriptBox["\[Psi]", "q"], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0041.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Proportional]", RowBox[{ RowBox[{"c", RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", RowBox[{"z", "-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], "]"}]}], ")"}]}], "+", RowBox[{"d", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], "z"]}], ")"}], SubscriptBox["\[Psi]", "q"]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", RowBox[{"z", "-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], "]"}]}], ")"}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{"z", "->", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], ")"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], ">", "1"}], "\[And]", RowBox[{ SubscriptBox["\[Psi]", "q"], "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "j"]}], ")"}]}], "-", "1"}]}], "\[And]", RowBox[{"c", "\[Equal]", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], "]"}]}], "\[And]", RowBox[{"d", "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "q", "-", "1"}]], RowBox[{"Gamma", "[", RowBox[{"-", SubscriptBox["\[Psi]", "q"]}], "]"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"h", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "h"], "-", SubscriptBox["b", "k"]}], " ", ")"}], "\[Pi]"}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "n"], RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "h"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "h"], "-", SubscriptBox["a", "k"]}], ")"}], "\[Pi]"}], "]"}]}], "]"}]}]], SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"m", "+", "n", "-", "q"}], ")"}], "\[Pi]", " ", "\[ImaginaryI]", RowBox[{"(", RowBox[{"1", "-", " ", SubscriptBox["a", "h"]}], ")"}]}]]}]}]}]}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ SubscriptBox["\[Psi]", "q"], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0042.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Proportional]", RowBox[{ RowBox[{"c", RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", RowBox[{"z", "-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], "]"}]}], ")"}]}], "+", RowBox[{"d", " ", RowBox[{"Log", "[", RowBox[{"1", "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], "z"}]}], "]"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", RowBox[{"z", "-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], "]"}]}], ")"}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{"z", "->", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], ")"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}], "\[And]", RowBox[{ SubscriptBox["\[Psi]", "q"], "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "j"]}], ")"}]}], "-", "1"}]}], "\[And]", RowBox[{"c", "\[Equal]", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], "]"}]}], "\[And]", RowBox[{"d", "\[Equal]", RowBox[{ RowBox[{"-", SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "q", "-", "1"}]]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"h", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"n", "+", "1"}]}], "q"], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "h"]}], " ", ")"}], "\[Pi]"}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "h"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["b", "k"], "-", SubscriptBox["b", "h"]}], " ", ")"}], "\[Pi]"}], "]"}]}], "]"}]}]], SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"m", "+", "n", "-", "q"}], ")"}], "\[Pi]", " ", "\[ImaginaryI]", " ", SubscriptBox["b", "h"]}]]}]}]}]}], "\[And]", RowBox[{ SubscriptBox["\[Psi]", "q"], "\[Equal]", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0043.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Expansions at ", StyleBox["z\[Equal]\[Infinity]", "Program"], " " }], "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Proportional]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["a", "j"]}], "]"}]}], "]"}]}], " ", ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "j"], "-", SubscriptBox["a", "k"]}], "]"}], " "}]}], RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "j"]}], "]"}]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "]"}]}]}]], SuperscriptBox["z", RowBox[{ SubscriptBox["a", "k"], "-", "1"}]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", FractionBox["1", "z"], "]"}]}], ")"}]}]}], "+", RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"q", ",", RowBox[{"p", "+", "1"}]}], "]"}], SubscriptBox["d", "1"]}], "+", RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"q", ",", RowBox[{"p", "+", "2"}]}], "]"}], SubscriptBox["d", "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"q", "-", "p", "-", "2"}], "]"}], "-", RowBox[{"KroneckerDelta", "[", RowBox[{"q", ",", RowBox[{"p", "+", "2"}]}], "]"}], "-", RowBox[{"KroneckerDelta", "[", RowBox[{"q", ",", RowBox[{"p", "+", "1"}]}], "]"}]}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"KroneckerDelta", "[", RowBox[{"q", ",", RowBox[{"p", "+", "1"}]}], "]"}]}], ")"}], SubscriptBox["d", "3"]}]}]}], "/;", "\[InvisibleSpace]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "\[Rule]", "\[Infinity]"}], ")"}], "\[And]", RowBox[{"\[Beta]", "\[Equal]", RowBox[{"q", "-", "p"}]}], "\[And]", RowBox[{ SubscriptBox["d", "1"], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "p", "-", "1"}]], RowBox[{"Exp", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " ", "z"}], "]"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "r"]}], ")"}]}], "]"}], " "}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "r"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "r"]}], ")"}]}], "]"}]}], "]"}]}]], SuperscriptBox["z", SubscriptBox["b", "r"]], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " ", "z"}], ")"}], RowBox[{"\[Chi]", "-", SubscriptBox["b", "r"]}]], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", FractionBox["1", "z"], "]"}]}], ")"}]}]}]}]}], "\[And]", RowBox[{ SubscriptBox["d", "2"], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "p", "-", FractionBox["3", "2"]}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "r"]}], ")"}]}], "]"}], " "}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "r"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "r"]}], ")"}]}], "]"}]}], "]"}]}]], SuperscriptBox["z", SubscriptBox["b", "r"]], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n", "-", "1"}]], " ", "z"}], ")"}], RowBox[{"\[Chi]", "-", SubscriptBox["b", "r"]}]], RowBox[{"Cos", "[", RowBox[{ RowBox[{"2", " ", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n", "-", "1"}]], " ", "z"}]]}], "+", RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{"\[Chi]", "-", SubscriptBox["b", "r"]}], ")"}]}]}], "]"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", FractionBox["1", SqrtBox["z"]], "]"}]}], ")"}]}]}]}]}], "\[And]", RowBox[{ SubscriptBox["d", "3"], "\[Equal]", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"2", SuperscriptBox[ RowBox[{"(", RowBox[{"2", " ", "\[Pi]"}], ")"}], FractionBox[ RowBox[{"1", "-", "\[Beta]"}], "2"]], " ", SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "p", "-", "1"}]]}]}], SqrtBox["\[Beta]"]], RowBox[{"Exp", "[", RowBox[{"\[Beta]", " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{"\[Pi]", RowBox[{"(", RowBox[{"p", "-", "m", "-", "n"}], ")"}]}], "\[Beta]"], "]"}], " ", SuperscriptBox["z", RowBox[{"1", "/", "\[Beta]"}]]}], "]"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "r"]}], ")"}]}], "]"}], " "}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "r"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "r"]}], ")"}]}], "]"}]}], "]"}]}]], RowBox[{"Cos", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Pi]", " ", RowBox[{"(", RowBox[{"p", "-", "m", "-", "n"}], ")"}], " ", RowBox[{"(", RowBox[{"\[Chi]", "-", SubscriptBox["b", "r"]}], ")"}]}], "+", RowBox[{"\[Beta]", " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{"\[Pi]", RowBox[{"(", RowBox[{"p", "-", "m", "-", "n"}], ")"}]}], "\[Beta]"], "]"}], " ", SuperscriptBox["z", RowBox[{"1", "/", "\[Beta]"}]]}]}], ")"}], "]"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "[", FractionBox["1", RowBox[{" ", SuperscriptBox["z", RowBox[{"1", "/", "\[Beta]"}]]}]], "]"}]}], ")"}]}]}]}]}], "\[And]", RowBox[{"\[Chi]", "\[Equal]", RowBox[{ FractionBox["1", "\[Beta]"], RowBox[{"(", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], "+", FractionBox[ RowBox[{"1", "-", "\[Beta]"}], "2"]}], ")"}]}]}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "&&", RowBox[{"j", "\[NotEqual]", "k"}], "&&", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "n"}], "&&", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "n"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0044.01"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Residue representations", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], "\[Infinity]"], RowBox[{"Residue", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["b", "k"], "+", "s"}], "]"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "k"], "-", "s"}], "]"}]}]}]}], " "}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "+", "s"}], "]"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "k"], "-", "s"}], "]"}]}]}]}]], SuperscriptBox["z", RowBox[{"-", "s"}]]}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{ RowBox[{"-", SubscriptBox["b", "k"]}], "-", "j"}]}], "}"}]}], "]"}]}]}]}], "/;", RowBox[{ RowBox[{"p", "<", "q"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0045.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z", ",", "r"}], "]"}], "\[Equal]", RowBox[{"-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "0"}], "\[Infinity]"], RowBox[{"Residue", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["b", "k"], "+", "s"}], "]"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "k"], "-", "s"}], "]"}]}]}]}], " "}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "+", "s"}], "]"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "k"], "-", "s"}], "]"}]}]}]}]], SuperscriptBox["z", RowBox[{"-", "s"}]]}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"1", "-", SubscriptBox["a", "k"], "+", "j"}]}], "}"}]}], "]"}]}]}]}]}], "/;", RowBox[{ RowBox[{"p", ">", "q"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], ">", "1"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.06.0046.01"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Integral representations", "Section"], Cell[CellGroupData[{ Cell["Contour integral representations", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"2", " ", "\[Pi]", " ", "\[ImaginaryI]"}]], RowBox[{"ContourIntegrate", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["b", "k"], "+", "s"}], "]"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "k"], "-", "s"}], "]"}]}]}]}], " "}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "+", "s"}], "]"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "k"], "-", "s"}], "]"}]}]}]}]], SuperscriptBox["z", RowBox[{"-", "s"}]]}], ",", RowBox[{"{", RowBox[{"s", ",", "\[ScriptCapitalL]"}], "}"}]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"m", "\[Element]", "Integers"}], "\[And]", RowBox[{"m", "\[GreaterEqual]", "0"}], "\[And]", " ", RowBox[{"n", "\[Element]", "Integers"}], "\[And]", RowBox[{"n", "\[GreaterEqual]", "0"}], "\[And]", RowBox[{"p", "\[Element]", "Integers"}], "\[And]", RowBox[{"p", "\[GreaterEqual]", "0"}], "\[And]", " ", RowBox[{"q", "\[Element]", "Integers"}], "\[And]", RowBox[{"q", "\[GreaterEqual]", "0"}], "\[And]", RowBox[{"m", "\[LessEqual]", "q"}], "\[And]", RowBox[{"n", "\[LessEqual]", "p"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.07.0001.01"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Differential equations", "Section"], Cell[CellGroupData[{ Cell["Ordinary linear differential equations and wronskians", "Subsection"], Cell[CellGroupData[{ Cell["For the direct function itself", "Subsubsection"], Cell[TextData[{ "The differential equation for Meijer G function ", Cell[BoxData[ FormBox[ RowBox[{" ", RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{"p", ",", "q"}], RowBox[{"m", ",", "n"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox["z", MeijerG, Editable->True], "\[VerticalSeparator]", GridBox[{ { RowBox[{ TagBox[ SubscriptBox["a", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "n"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "p"], MeijerG, Editable->True]}]}, { RowBox[{ TagBox[ SubscriptBox["b", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "m"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], MeijerG, Editable->True]}]} }]}], ")"}]}]}], TraditionalForm]]], " has the order ", Cell[BoxData[ FormBox[ RowBox[{"max", "(", RowBox[{"p", ",", "q"}], ")"}], TraditionalForm]]], ". It has two (", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"z", "\[Equal]", "0"}], ",", RowBox[{"z", "\[Equal]", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional", FontFamily->"Times"]}]}], TraditionalForm]]], " for ", Cell[BoxData[ FormBox[ RowBox[{"p", "\[NotEqual]", "q"}], TraditionalForm]]], ") or three (", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"z", "\[Equal]", "0"}], ",", RowBox[{"z", "\[Equal]", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "p"}]]}], ",", " ", RowBox[{"z", "\[Equal]", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional", FontFamily->"Times"]}], ","}], TraditionalForm]]], " for ", Cell[BoxData[ FormBox[ RowBox[{"p", "\[Equal]", "q"}], TraditionalForm]]], ") singular points. If ", Cell[BoxData[ FormBox[ RowBox[{"p", "<", "q"}], TraditionalForm]]], " (or ", Cell[BoxData[ FormBox[ RowBox[{"p", ">", "q"}], TraditionalForm]]], "), then the point ", Cell[BoxData[ FormBox[ RowBox[{" ", FormBox[ RowBox[{"z", "\[Equal]", "0"}], TraditionalForm]}], TraditionalForm]]], " (or ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional", FontFamily->"Times"]}], TraditionalForm]]], ") is a regular singular point, while ", Cell[BoxData[ FormBox[ RowBox[{" ", FormBox[ RowBox[{ FormBox[ RowBox[{"z", "\[Equal]", StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional", FontFamily->"Times"]}], TraditionalForm], FormBox["", TraditionalForm]}], TraditionalForm]}], TraditionalForm]]], "(or ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", "0"}], TraditionalForm]]], ") is a nonregular (essential) singular point; if ", Cell[BoxData[ FormBox[ RowBox[{"p", "\[Equal]", "q"}], TraditionalForm]]], ", then all three singular points are regular. " }], "Text"], Cell[CellGroupData[{ Cell[TextData[{ "Representation of fundamental system solutions near point ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{"z", "\[Equal]", "0"}], "Program"], TraditionalForm]]], " for ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{"p", "\[LessEqual]", "q"}], "Program"], TraditionalForm]]], " in the general case " }], "Subsection3", Evaluatable->False], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "p"}]], " ", "z", " ", RowBox[{"Fold", "[", RowBox[{ RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"f", ",", "l"}], "}"}], ",", RowBox[{ RowBox[{"z", " ", RowBox[{ SubscriptBox["\[PartialD]", "z"], "f"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SubscriptBox["a", "l"]}], ")"}], " ", "f"}]}]}], "]"}], ",", RowBox[{"w", "[", "z", "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Ellipsis]", ",", "p"}], "}"}]}], "]"}]}], "-", " ", RowBox[{"Fold", "[", RowBox[{ RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"f", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{"z", " ", RowBox[{ SubscriptBox["\[PartialD]", "z"], "f"}]}], "-", RowBox[{ SubscriptBox["b", "k"], " ", "f"}]}]}], "]"}], ",", RowBox[{"w", "[", "z", "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Ellipsis]", ",", "q"}], "}"}]}], "]"}]}], "\[Equal]", "0"}], " ", "/;", RowBox[{ RowBox[{ RowBox[{"w", "[", "z", "]"}], "\[Equal]", RowBox[{ RowBox[{ SubscriptBox["c", "1"], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "2"}], "q"], RowBox[{ SubscriptBox["c", "k"], " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "k"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"k", "-", "1"}]], ",", SubscriptBox["b", RowBox[{"k", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n", "+", "1"}]], "z"}]}], "]"}]}]}]}]}], "\[And]", RowBox[{"p", "\[LessEqual]", "q"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "q"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "q"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"Not", "[", RowBox[{ RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "\[Element]", "Integers"}], "]"}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.13.0001.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "p"}]], " ", "z", " ", RowBox[{"Fold", "[", RowBox[{ RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"f", ",", "l"}], "}"}], ",", RowBox[{ RowBox[{"z", " ", RowBox[{ SubscriptBox["\[PartialD]", "z"], "f"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SubscriptBox["a", "l"]}], ")"}], " ", "f"}]}]}], "]"}], ",", RowBox[{"w", "[", "z", "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Ellipsis]", ",", "p"}], "}"}]}], "]"}]}], "-", " ", RowBox[{"Fold", "[", RowBox[{ RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"f", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{"z", " ", RowBox[{ SubscriptBox["\[PartialD]", "z"], "f"}]}], "-", RowBox[{ SubscriptBox["b", "k"], " ", "f"}]}]}], "]"}], ",", RowBox[{"w", "[", "z", "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Ellipsis]", ",", "q"}], "}"}]}], "]"}]}], "\[Equal]", "0"}], " ", "/;", RowBox[{ RowBox[{ RowBox[{"w", "[", "z", "]"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "q"], RowBox[{ SubscriptBox["c", "k"], SuperscriptBox["z", SubscriptBox["b", "k"]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "p"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "-", "1"}]]}], ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "q"]}]}], "}"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " ", "z"}]}], "]"}]}]}]}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{"p", "<", "q"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "q"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "q"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"Not", "[", RowBox[{ RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "\[Element]", "Integers"}], "]"}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.13.0004.01"], Cell[BoxData[ RowBox[{ RowBox[{"Wronskian", "[", RowBox[{ RowBox[{ SuperscriptBox["z", SubscriptBox["b", "1"]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["a", "p"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "2"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["b", "q"]}]}], "}"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " ", "z"}]}], "]"}]}], ",", "\[Ellipsis]", ",", RowBox[{ SuperscriptBox["z", SubscriptBox["b", "k"]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "p"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "-", "1"}]]}], ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "q"]}]}], "}"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " ", "z"}]}], "]"}]}], ",", "\[Ellipsis]", ",", RowBox[{ SuperscriptBox["z", SubscriptBox["b", "q"]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "q"], "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "q"], "-", SubscriptBox["a", "p"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "q"], "-", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "q"], "-", SubscriptBox["b", RowBox[{"q", "-", "1"}]]}]}], "}"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " ", "z"}]}], "]"}]}], ",", " ", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"(", " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "q"], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], RowBox[{"k", "-", "1"}]], RowBox[{"(", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], ")"}]}]}], ")"}]}], SuperscriptBox["z", RowBox[{"-", RowBox[{"(", " ", RowBox[{ FractionBox[ RowBox[{"q", RowBox[{"(", RowBox[{"q", "-", "1"}], ")"}]}], "2"], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "q"], SubscriptBox["b", "k"]}]}], ")"}]}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"KroneckerDelta", "[", RowBox[{"p", ",", "q"}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]], " ", "z"}]}], ")"}], RowBox[{"(", " ", RowBox[{ RowBox[{"-", "q"}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "q"], SubscriptBox["b", "k"]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"l", "=", "1"}], "q"], SubscriptBox["a", "l"]}]}], ")"}]]}], "+", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], " ", "z"}], "]"}], RowBox[{"KroneckerDelta", "[", RowBox[{"p", ",", RowBox[{"q", "-", "1"}]}], "]"}]}], "+", RowBox[{"UnitStep", "[", RowBox[{"q", "-", "p", "-", "2"}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.13.0005.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Representation of fundamental system solutions near point ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{"z", "\[Equal]", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "p"}]]}], "Program"], TraditionalForm]]], " for ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{"p", "\[Equal]", "q"}], "Program"], TraditionalForm]]], " in the general case " }], "Subsection3", Evaluatable->False], Cell[TextData[{ "Below representation include functions of two kinds. The function ", Cell[BoxData[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{"q", ",", "q"}], RowBox[{"q", ",", "0"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], " ", "z"}], MeijerG, Editable->True], "\[VerticalSeparator]", GridBox[{ { RowBox[{ TagBox[ SubscriptBox["a", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "q"], MeijerG, Editable->True]}]}, { RowBox[{ TagBox[ SubscriptBox["b", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], MeijerG, Editable->True]}]} }]}], ")"}]}], MeijerG, Editable->False], TraditionalForm]]], " is the piecewise analytical function with discontinuity on the unit circle \ ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "\[Equal]", "1"}], TraditionalForm]]], ". It has a singularity near point ", Cell[BoxData[ FormBox[ RowBox[{"z", "\[Equal]", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]]}], TraditionalForm]]], "of the form ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"const", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SubscriptBox["z", "1"]}], ")"}], SubscriptBox["\[Psi]", "q"]], " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"O", "(", RowBox[{ SubscriptBox["z", "1"], "-", "1"}], ")"}]}], ")"}]}], "/;", RowBox[{ SubscriptBox["z", "1"], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], "z"}]}]}], TraditionalForm]]], ", when ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"\[LeftBracketingBar]", "z", "\[RightBracketingBar]"}], "<", "1"}], TraditionalForm]]], ". The functions ", Cell[BoxData[ FormBox[ TagBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{ RowBox[{"q", "+", "2"}], ",", RowBox[{"q", "+", "2"}]}], RowBox[{"2", ",", RowBox[{"q", "+", "2"}]}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], "z"}], MeijerG, Editable->True], "\[VerticalSeparator]", GridBox[{ { RowBox[{ TagBox[ SubscriptBox["b", "h"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "j"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["a", "q"], MeijerG, Editable->True]}]}, { RowBox[{ TagBox[ SubscriptBox["b", "h"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "j"], MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "1"], MeijerG, Editable->True], ",", TagBox["\[Ellipsis]", MeijerG, Editable->True], ",", TagBox[ SubscriptBox["b", "q"], MeijerG, Editable->True]}]} }]}], ")"}]}], MeijerG, Editable->True], TraditionalForm]]], " are the analytical functions and are bounded near point ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["z", "1"], "\[Equal]", "1"}], TraditionalForm]]], ". " }], "Text"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]], " ", "z", " ", RowBox[{"Fold", "[", RowBox[{ RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"f", ",", "l"}], "}"}], ",", RowBox[{ RowBox[{"z", " ", RowBox[{ SubscriptBox["\[PartialD]", "z"], "f"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SubscriptBox["a", "l"]}], ")"}], " ", "f"}]}]}], "]"}], ",", RowBox[{"w", "[", "z", "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Ellipsis]", ",", "q"}], "}"}]}], "]"}]}], "-", " ", RowBox[{"Fold", "[", RowBox[{ RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"f", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{"z", " ", RowBox[{ SubscriptBox["\[PartialD]", "z"], "f"}]}], "-", RowBox[{ SubscriptBox["b", "k"], " ", "f"}]}]}], "]"}], ",", RowBox[{"w", "[", "z", "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Ellipsis]", ",", "q"}], "}"}]}], "]"}]}], "\[Equal]", "0"}], " ", "/;", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"w", "[", "z", "]"}], "\[Equal]", RowBox[{ RowBox[{ SubscriptBox["c", "j"], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", "z"}], "]"}]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"h", "=", "1"}], "q"], RowBox[{ SubscriptBox["c", "h"], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"KroneckerDelta", "[", RowBox[{"h", "-", "j"}], "]"}]}], ")"}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "h"], ",", SubscriptBox["b", "j"], ",", SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "h"], ",", SubscriptBox["b", "j"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Psi]", "q"], "\[Equal]", RowBox[{"-", "\[Mu]"}], "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "j"]}], ")"}]}], "-", "1"}]}], "/;", RowBox[{"p", "\[Equal]", "q"}]}], ")"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ SubscriptBox["\[Psi]", "q"], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "q"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "q"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"Not", "[", RowBox[{ RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "\[Element]", "Integers"}], "]"}], ")"}]}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "q"}]}]}], ")"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.13.0002.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Representation of fundamental system solutions near point ", Cell[BoxData[ FormBox[ RowBox[{ StyleBox["z", "Program"], StyleBox["\[Equal]", "Program"], StyleBox[ OverscriptBox["\[Infinity]", "~"], "Traditional", FontFamily->"Times"]}], TraditionalForm]]], " for ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{"p", "\[GreaterEqual]", "q"}], "Program"], TraditionalForm]]], " in the general case " }], "Subsection3", Evaluatable->False], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "p"}]], " ", "z", " ", RowBox[{"Fold", "[", RowBox[{ RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"f", ",", "l"}], "}"}], ",", RowBox[{ RowBox[{"z", " ", RowBox[{ SubscriptBox["\[PartialD]", "z"], "f"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SubscriptBox["a", "l"]}], ")"}], " ", "f"}]}]}], "]"}], ",", RowBox[{"w", "[", "z", "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Ellipsis]", ",", "p"}], "}"}]}], "]"}]}], "-", " ", RowBox[{"Fold", "[", RowBox[{ RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"f", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{"z", " ", RowBox[{ SubscriptBox["\[PartialD]", "z"], "f"}]}], "-", RowBox[{ SubscriptBox["b", "k"], " ", "f"}]}]}], "]"}], ",", RowBox[{"w", "[", "z", "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "\[Ellipsis]", ",", "q"}], "}"}]}], "]"}]}], "\[Equal]", "0"}], " ", "/;", RowBox[{ RowBox[{ RowBox[{"w", "[", "z", "]"}], "\[Equal]", RowBox[{ RowBox[{ SubscriptBox["c", "1"], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "2"}], "p"], RowBox[{ SubscriptBox["c", "k"], " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["b", "q"]}]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", "-", SubscriptBox["a", "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", RowBox[{"k", "-", "1"}]]}], ",", RowBox[{"1", "-", SubscriptBox["a", RowBox[{"k", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "p"]}]}], "}"}]}], "}"}], ",", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n", "+", "1"}]], "z"]}], "]"}]}]}]}]}], "\[And]", RowBox[{"p", "\[GreaterEqual]", "q"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "p"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "p"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"Not", "[", RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "\[Element]", "Integers"}], "]"}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.13.0003.01"] }, Closed]] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Transformations", "Section"], Cell[CellGroupData[{ Cell["Transformations and argument simplifications", "Subsection"], Cell[CellGroupData[{ Cell["Argument involving basic arithmetic operations", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "+", "\[Alpha]"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], "+", "\[Alpha]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "+", "\[Alpha]"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], "+", "\[Alpha]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["b", "1"], "+", "\[Alpha]"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], "+", "\[Alpha]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "+", "\[Alpha]"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], "+", "\[Alpha]"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", "\[Alpha]"], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.16.0001.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}], "\[Equal]", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["b", "m"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", RowBox[{"m", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["b", "q"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "n"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", RowBox[{"n", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "p"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], "/;", " ", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{"z", ",", "Reals"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.16.0002.01"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Products, sums, and powers of the direct function", "Subsection"], Cell[CellGroupData[{ Cell["Products of the direct function", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "11"], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"1", SubscriptBox["n", "1"]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{ RowBox[{"1", SubscriptBox["n", "1"]}], "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"1", SubscriptBox["p", "1"]}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "11"], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"1", SubscriptBox["m", "1"]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{ RowBox[{"1", SubscriptBox["m", "1"]}], "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"1", SubscriptBox["q", "1"]}]]}], "}"}]}], "}"}], ",", "z"}], "]"}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "21"], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"2", SubscriptBox["n", "2"]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{ RowBox[{"2", SubscriptBox["n", "2"]}], "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"2", SubscriptBox["p", "2"]}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "21"], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"2", SubscriptBox["m", "2"]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{ RowBox[{"2", SubscriptBox["m", "2"]}], "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"2", SubscriptBox["q", "2"]}]]}], "}"}]}], "}"}], ",", "w"}], "]"}]}], "\[Equal]", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "11"], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"1", SubscriptBox["n", "1"]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{ RowBox[{"1", SubscriptBox["n", "1"]}], "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"1", SubscriptBox["p", "1"]}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "11"], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"1", SubscriptBox["m", "1"]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{ RowBox[{"1", SubscriptBox["m", "1"]}], "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"1", SubscriptBox["q", "1"]}]]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "21"], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"2", SubscriptBox["n", "2"]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{ RowBox[{"2", SubscriptBox["n", "2"]}], "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"2", SubscriptBox["p", "2"]}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "21"], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"2", SubscriptBox["m", "2"]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{ RowBox[{"2", SubscriptBox["m", "2"]}], "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"2", SubscriptBox["q", "2"]}]]}], "}"}]}], "}"}]}], "}"}], ",", "z", ",", "w"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.16.0003.01"] }, Closed]], Cell[CellGroupData[{ Cell["Sums of the direct function", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Cos", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", RowBox[{"m", "+", "1"}]]}], ")"}], "\[Pi]"}], "]"}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], "-", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", RowBox[{"m", "+", "2"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], "\[Equal]", RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["b", "1"], "-", SubscriptBox["b", RowBox[{"m", "+", "1"}]]}], ")"}], " ", "\[Pi]"}], "]"}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"], ",", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"], ",", SubscriptBox["b", RowBox[{"m", "+", "1"}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "2"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"], ",", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.16.0004.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", SubscriptBox["b", "1"]}], ",", SubscriptBox["a", RowBox[{"n", "+", "2"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", SubscriptBox["b", "1"]}], ",", SubscriptBox["b", RowBox[{"m", "+", "2"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "-", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "2"], "+", SubscriptBox["b", RowBox[{"m", "+", "2"}]]}], ",", SubscriptBox["a", RowBox[{"n", "+", "2"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "2"}]], ",", SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", RowBox[{ FractionBox["1", "2"], "+", SubscriptBox["b", RowBox[{"m", "+", "2"}]]}], ",", SubscriptBox["b", RowBox[{"m", "+", "3"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "2"}]], "-", SubscriptBox["b", "1"]}], ")"}], " ", "\[Pi]"}], "]"}], " "}], SuperscriptBox["\[Pi]", "2"]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "2"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"], ",", SubscriptBox["b", RowBox[{"m", "+", "2"}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "3"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.16.0005.01"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Identities", "Section"], Cell[CellGroupData[{ Cell["Recurrence identities", "Subsection"], Cell[CellGroupData[{ Cell["Consecutive neighbors", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"b", "-", "a", "+", "1"}], ")"}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], "\[Equal]", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "+", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"b", "+", "1"}], ",", SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.17.0001.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"c", "-", "a"}], ")"}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"p", "-", "1"}]], ",", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], "\[Equal]", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"p", "-", "1"}]], ",", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "+", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"p", "-", "1"}]], ",", RowBox[{"c", "-", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.17.0002.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"p", "-", "1"}]], ",", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"p", "-", "1"}]], ",", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "+", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"p", "-", "1"}]], ",", RowBox[{"c", "-", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.17.0003.01"] }, Closed]], Cell[CellGroupData[{ Cell["Distant neighbors", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"p", "-", "1"}]], ",", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"c", "+", "l"}], ",", SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "l"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "l"], RowBox[{ RowBox[{"Binomial", "[", RowBox[{"l", ",", "j"}], "]"}], RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"a", "-", "c", "-", "l"}], ",", RowBox[{"l", "-", "j"}]}], "]"}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", "j"}], ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"p", "-", "1"}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]}]}]}], "/;", RowBox[{ RowBox[{"l", "\[Element]", "Integers"}], "\[And]", RowBox[{"l", ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.17.0004.01"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Functional identities", "Subsection"], Cell[CellGroupData[{ Cell["Relations between contiguous functions", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"q", "-", "1"}]], ",", RowBox[{"a", "+", "l"}]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "l"], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"], ",", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "+", "l"}], ",", SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"q", "-", "1"}]]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]}], "/;", RowBox[{"l", "\[Element]", "Integers"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.17.0005.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"p", "-", "1"}]], ",", "a"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "+", "l"}], ",", SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "l"], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"], ",", RowBox[{"a", "+", "l"}]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]}], "/;", RowBox[{"l", "\[Element]", "Integers"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.17.0006.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"p", "-", "1"}]], ",", RowBox[{"a", "+", "l"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "l"], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "+", "l"}], ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"p", "-", "1"}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]}], "/;", RowBox[{"l", "\[Element]", "Integers"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.17.0007.01"] }, Closed]], Cell[CellGroupData[{ Cell["Relations of special kind", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"p", "-", "1"}]], ",", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"c", "+", "1"}], ",", SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"c", "-", "a", "+", "1"}], ")"}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"p", "-", "1"}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], "-", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"p", "-", "1"}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.17.0008.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", FractionBox["1", "2"], ",", SubscriptBox["b", "3"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"\[Pi]", " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", SubscriptBox["b", "3"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"], ",", FractionBox["1", "2"]}], "}"}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "+", RowBox[{"\[Pi]", " ", "\[ImaginaryI]", " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", SubscriptBox["b", "3"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"], ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}]}], "/;", RowBox[{ RowBox[{"-", "\[Pi]"}], "<", RowBox[{"Arg", "[", "z", "]"}], "\[LessEqual]", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.17.0009.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "+", RowBox[{"\[ImaginaryI]", " ", "b"}]}], ",", RowBox[{"a", "-", RowBox[{"\[ImaginaryI]", " ", "b"}]}], ",", SubscriptBox["a", "3"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"\[Pi]", " ", "\[ImaginaryI]", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "a", " ", "\[Pi]"}]]}], RowBox[{"Sinh", "[", RowBox[{"2", " ", "b", " ", "\[Pi]"}], "]"}]], RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"b", " ", "\[Pi]"}]], " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "+", RowBox[{"\[ImaginaryI]", " ", "b"}]}], ",", SubscriptBox["a", "3"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"], ",", RowBox[{"a", "-", RowBox[{"\[ImaginaryI]", " ", "b"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "b"}], " ", "\[Pi]"}]], " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", RowBox[{"\[ImaginaryI]", " ", "b"}]}], ",", SubscriptBox["a", "3"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"], ",", RowBox[{"a", "+", RowBox[{"\[ImaginaryI]", " ", "b"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"-", "z"}]}], "]"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"-", "\[Pi]"}], "<", RowBox[{"Arg", "[", "z", "]"}], "\[LessEqual]", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.17.0010.01"] }, Closed]], Cell[CellGroupData[{ Cell["General cases", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"-", "\[Alpha]"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "+", "\[Alpha]"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], "+", "\[Alpha]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "+", "\[Alpha]"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], "+", "\[Alpha]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["b", "1"], "+", "\[Alpha]"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], "+", "\[Alpha]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "+", "\[Alpha]"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], "+", "\[Alpha]"}]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.17.0011.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["b", "m"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", RowBox[{"m", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["b", "q"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "n"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", RowBox[{"n", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "p"]}]}], "}"}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}], "/;", " ", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Infinity]"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.17.0012.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["b", "m"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["b", RowBox[{"m", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["b", "q"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "n"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", SubscriptBox["a", RowBox[{"n", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", SubscriptBox["a", "p"]}]}], "}"}]}], "}"}], ",", FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "\[Pi]", " ", "\[ImaginaryI]", " ", RowBox[{"Floor", "[", FractionBox[ RowBox[{"\[Pi]", " ", "+", RowBox[{"Arg", "[", "z", "]"}]}], RowBox[{"2", " ", "\[Pi]"}]], "]"}]}]], "z"]}], "]"}]}], "/;", " ", RowBox[{ RowBox[{"p", "\[NotEqual]", "q"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", "z"}], "]"}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.17.0018.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"2", " ", "\[Pi]"}], ")"}], RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}], SuperscriptBox["c", "*"]}]], " ", SuperscriptBox["k", "\[Mu]"], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["a", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "n"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "n"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "p"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "p"], "+", "k", "-", "1"}], "k"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "m"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "m"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "q"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "q"], "+", "k", "-", "1"}], "k"]}], "}"}]}], "}"}], ",", FractionBox[ SuperscriptBox["z", "k"], RowBox[{ SuperscriptBox["k", RowBox[{"k", RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}]}]], " "}]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{ SuperscriptBox["c", "*"], "\[Equal]", RowBox[{"m", "+", "n", "-", FractionBox[ RowBox[{"p", "+", "q"}], "2"]}]}], "\[And]", RowBox[{"\[Mu]", "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "q"], SubscriptBox["b", "k"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "p"], SubscriptBox["a", "k"]}], "+", FractionBox[ RowBox[{"p", "-", "q"}], "2"], "+", "1"}]}], "\[And]", RowBox[{"Element", "[", RowBox[{"k", ",", "Integers"}], "]"}], "\[And]", RowBox[{"k", ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.17.0013.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "p"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], ")"}], "\[Pi]"}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], ")"}]}], "]"}]}], "]"}]}]], RowBox[{"Exp", "[", RowBox[{"\[Pi]", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"m", "+", "n", "-", "p", "-", "1"}], ")"}], " ", SubscriptBox["b", "k"]}], "]"}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "k"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"k", "-", "1"}]], ",", SubscriptBox["b", RowBox[{"k", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n", "+", "1"}]], " ", "z"}]}], "]"}]}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.17.0014.01"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "q"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "j"]}], ")"}], "\[Pi]"}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["a", "j"]}], ")"}]}], "]"}]}], "]"}]}]], RowBox[{"Exp", "[", RowBox[{"\[Pi]", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"m", "+", "n", "-", "q", "-", "1"}], ")"}], " ", RowBox[{"(", RowBox[{ SubscriptBox["a", "k"], "-", "1"}], ")"}]}], "]"}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "k"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"k", "-", "1"}]], ",", SubscriptBox["a", RowBox[{"k", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n", "+", "1"}]], " ", "z"}]}], "]"}]}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.17.0015.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "q"}]], RowBox[{"Sin", "[", RowBox[{"\[Pi]", " ", SubscriptBox["\[Psi]", "q"]}], "]"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"h", "=", "1"}], "m"], RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"m", "+", "n", "-", "q"}], ")"}], SubscriptBox["b", "h"], "\[Pi]", " ", "\[ImaginaryI]"}]], FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"n", "+", "1"}]}], "q"], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "h"]}], ")"}], "\[Pi]"}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "h"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["b", "k"], "-", SubscriptBox["b", "h"]}], ")"}]}], "]"}]}], "]"}]}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "h"], ",", SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "h"], "+", SubscriptBox["\[Psi]", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["b", "h"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"], ",", RowBox[{ SubscriptBox["b", "h"], "+", SubscriptBox["\[Psi]", "q"]}]}], "}"}]}], "}"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], " ", "z"}]}], "]"}]}]}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}], "\[And]", RowBox[{ SubscriptBox["\[Psi]", "q"], "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "q"], RowBox[{"(", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "k"]}], ")"}]}], "-", "1"}]}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ SubscriptBox["\[Psi]", "q"], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.17.0016.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ SuperscriptBox["\[Pi]", RowBox[{"m", "+", "n", "-", "q"}]], RowBox[{"Sin", "[", RowBox[{"\[Pi]", " ", SubscriptBox["\[Psi]", "q"]}], "]"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"h", "=", "1"}], "n"], RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"m", "+", "n", "-", "q"}], ")"}], RowBox[{"(", RowBox[{"1", "-", SubscriptBox["a", "h"]}], ")"}], "\[Pi]", " ", "\[ImaginaryI]"}]], FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "h"], "-", SubscriptBox["b", "k"]}], ")"}], "\[Pi]"}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "n"], RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "h"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "h"], "-", SubscriptBox["a", "k"]}], ")"}]}], "]"}]}], "]"}]}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "h"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"], ",", RowBox[{ SubscriptBox["a", "h"], "+", SubscriptBox["\[Psi]", "q"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", SubscriptBox["a", "h"], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"], ",", RowBox[{ SubscriptBox["a", "h"], "+", SubscriptBox["\[Psi]", "q"]}]}], "}"}]}], "}"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"m", "+", "n", "-", "q"}]], " ", "z"}]}], "]"}]}]}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "z", "]"}], ">", "1"}], "\[And]", RowBox[{ SubscriptBox["\[Psi]", "q"], "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "q"], RowBox[{"(", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "k"]}], ")"}]}], "-", "1"}]}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ SubscriptBox["\[Psi]", "q"], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.17.0017.01"] }, Closed]], Cell[CellGroupData[{ Cell["Relations with cut through poles", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], SubscriptBox["bc", "k"]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"r", "=", "1"}], "n"], SubscriptBox["ac", "r"]}]}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["ac", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], "-", SubscriptBox["ac", "n"]}], ",", RowBox[{ SubscriptBox["b", "1"], "+", SubscriptBox["bc", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], "+", SubscriptBox["bc", "m"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "-", SubscriptBox["ac", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], "-", SubscriptBox["ac", "n"]}], ",", RowBox[{ SubscriptBox["b", "1"], "+", SubscriptBox["bc", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], "+", SubscriptBox["bc", "m"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}], "]"}], " "}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}]], SuperscriptBox["z", SubscriptBox["b", "k"]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{"Floor", "[", RowBox[{ RowBox[{"-", RowBox[{"Re", "[", SubscriptBox["b", "k"], "]"}]}], "-", "\[Gamma]"}], "]"}]], RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "j"], "+", "i"}], "]"}]}], ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "j"]}], ",", "i"}], "]"}]}]}], RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "j"]}], ",", "i"}], "]"}]}], ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "j"], "+", "i"}], "]"}]}]}]], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " ", "z"}], ")"}], "i"]}]}]}]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["a", "j"]}], "]"}]}], "]"}], " "}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "j"]}], "]"}]}]], SuperscriptBox["z", RowBox[{ SubscriptBox["a", "k"], "-", "1"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], RowBox[{ RowBox[{"Floor", "[", RowBox[{"\[Gamma]", "+", RowBox[{"Re", "[", SubscriptBox["a", "k"], "]"}]}], "]"}], "-", "1"}]], RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "k"], "+", SubscriptBox["b", "j"], "+", "i"}], "]"}]}], ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "j"], "-", SubscriptBox["a", "k"]}], ",", "i"}], "]"}]}]}], RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"Pochhammer", "[", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], ",", "i"}], "]"}]}], ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"], "+", "i"}], "]"}]}]}]], SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], " "}], "z"], ")"}], "i"]}]}]}]}]}]}], "/;", SubscriptBox["ac", "k"]}], "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"Floor", "[", RowBox[{"\[Gamma]", "+", RowBox[{"Re", "[", SubscriptBox["a", "k"], "]"}]}], "]"}], "]"}], RowBox[{"(", RowBox[{"Floor", "[", RowBox[{"\[Gamma]", "+", RowBox[{"Re", "[", SubscriptBox["a", "k"], "]"}]}], "]"}], ")"}]}], "\[And]", SubscriptBox["bc", "k"]}], "=", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{"-", RowBox[{"Re", "[", SubscriptBox["b", "k"], "]"}]}], "-", "\[Gamma]"}], "]"}], "+", "1"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Floor", "[", RowBox[{ RowBox[{"-", RowBox[{"Re", "[", SubscriptBox["b", "k"], "]"}]}], "-", "\[Gamma]"}], "]"}], "+", "1"}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.17.0019.01"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Differentiation", "Section"], Cell[CellGroupData[{ Cell["Low\[Hyphen]order differentiation", "Subsection"], Cell[CellGroupData[{ Cell[TextData[{ "With respect to ", StyleBox["z", "Program"], " " }], "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], "\[Equal]", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{ SubscriptBox["a", "1"], "-", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "-", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], "-", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["b", "1"], "-", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "-", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], "-", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.20.0001.01"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], "\[Equal]", RowBox[{ FractionBox["1", "z"], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.20.0002.01"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], "\[Equal]", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "-", "1"}], ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "1"], "-", "1"}], ")"}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.20.0003.01"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"{", RowBox[{"z", ",", "2"}], "}"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], "\[Equal]", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{ SubscriptBox["a", "1"], "-", "2"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], "-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "-", "2"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], "-", "2"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["b", "1"], "-", "2"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], "-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "-", "2"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], "-", "2"}]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.20.0004.01"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"(", RowBox[{ SuperscriptBox["z", "\[Alpha]"], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], ")"}]}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"\[Alpha]", "-", "1"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "\[Alpha]"}], ",", SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"], ",", RowBox[{"1", "-", "\[Alpha]"}]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.20.0005.01"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"(", RowBox[{ SuperscriptBox["z", "\[Alpha]"], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], ")"}]}], "\[Equal]", RowBox[{ RowBox[{"-", SuperscriptBox["z", RowBox[{"\[Alpha]", "-", "1"}]]}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"], ",", RowBox[{"-", "\[Alpha]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]"}], ",", SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.20.0006.01"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"(", RowBox[{ SuperscriptBox["z", "\[Alpha]"], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], ")"}]}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"\[Alpha]", "-", "1"}]], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Alpha]", "+", SubscriptBox["b", "1"]}], ")"}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], "-", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["b", "1"], "+", "1"}], ",", SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.20.0007.01"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"(", RowBox[{ SuperscriptBox["z", RowBox[{"1", "-", "a"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], ")"}]}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"-", "a"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", "1"}], ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.20.0008.01"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"(", RowBox[{ SuperscriptBox["z", RowBox[{"1", "-", "c"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"p", "-", "1"}]], ",", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], ")"}]}], "\[Equal]", RowBox[{ RowBox[{"-", SuperscriptBox["z", RowBox[{"-", "c"}]]}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"p", "-", "1"}]], ",", RowBox[{"c", "-", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.20.0009.01"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "z"], RowBox[{"(", RowBox[{ SuperscriptBox["z", RowBox[{"-", "d"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"q", "-", "1"}]], ",", "d"}], "}"}]}], "}"}], ",", "z"}], "]"}]}], ")"}]}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", "d"}], "-", "1"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"q", "-", "1"}]], ",", RowBox[{"d", "+", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.20.0010.01"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Symbolic differentiation ", "Subsection"], Cell[CellGroupData[{ Cell[TextData[{ "With respect to ", StyleBox["z", "Program"], " " }], "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"{", RowBox[{"z", ",", "u"}], "}"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], "\[Equal]", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "u"}], ",", RowBox[{ SubscriptBox["a", "1"], "-", "u"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], "-", "u"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "-", "u"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], "-", "u"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["b", "1"], "-", "u"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], "-", "u"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "-", "u"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], "-", "u"}]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], "/;", RowBox[{ RowBox[{"u", "\[Element]", "Integers"}], "\[And]", RowBox[{"u", "\[GreaterEqual]", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.20.0011.02"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"{", RowBox[{"z", ",", "u"}], "}"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"-", "u"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]}], "/;", RowBox[{ RowBox[{"u", "\[Element]", "Integers"}], "\[And]", RowBox[{"u", "\[GreaterEqual]", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.20.0012.02"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"{", RowBox[{"z", ",", "u"}], "}"}]], RowBox[{"(", RowBox[{ SuperscriptBox["z", RowBox[{"-", "b"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], ")"}]}], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "u"], SuperscriptBox["z", RowBox[{ RowBox[{"-", "b"}], "-", "u"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"b", "+", "u"}], ",", SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]}], "/;", RowBox[{ RowBox[{"u", "\[Element]", "Integers"}], "\[And]", RowBox[{"u", "\[GreaterEqual]", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.20.0013.02"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"{", RowBox[{"z", ",", "u"}], "}"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "u"], SuperscriptBox["z", RowBox[{"-", "u"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", "u"}], ",", SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"u", "\[Element]", "Integers"}], "\[And]", RowBox[{"u", "\[GreaterEqual]", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.20.0014.02"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"{", RowBox[{"z", ",", "u"}], "}"}]], RowBox[{"(", RowBox[{ SuperscriptBox["z", RowBox[{"a", "-", "1"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}], ")"}]}], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "u"], SuperscriptBox["z", RowBox[{"a", "-", "u", "-", "1"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a", "-", "u"}], ",", SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"u", "\[Element]", "Integers"}], "\[And]", RowBox[{"u", "\[GreaterEqual]", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.20.0015.02"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"{", RowBox[{"z", ",", "u"}], "}"}]], RowBox[{"(", RowBox[{ SuperscriptBox["z", RowBox[{"c", "-", "1"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"p", "-", "1"}]], ",", "c"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}], ")"}]}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"c", "-", "u", "-", "1"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"p", "-", "1"}]], ",", RowBox[{"c", "-", "u"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", FractionBox["1", "z"]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"u", "\[Element]", "Integers"}], "\[And]", RowBox[{"u", "\[GreaterEqual]", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.20.0016.02"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"{", RowBox[{"z", ",", "u"}], "}"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"w", " ", SuperscriptBox["z", FractionBox["r", "l"]]}]}], "]"}]}], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"l", "-", "1"}], ")"}]}], SuperscriptBox["c", "*"]}]], SuperscriptBox["l", "\[Mu]"], SuperscriptBox["r", "u"], SuperscriptBox["z", RowBox[{"-", "u"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", FractionBox["1", "r"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"r", "-", "1"}], "r"], ",", FractionBox[ SubscriptBox["a", "1"], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "1"], "+", "l", "-", "1"}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "n"], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "n"], "+", "l", "-", "1"}], "l"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "+", "l", "-", "1"}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "p"], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "p"], "+", "l", "-", "1"}], "l"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", "1"], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "1"], "+", "l", "-", "1"}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "m"], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "m"], "+", "l", "-", "1"}], "l"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["u", "r"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"u", "+", "r", "-", "1"}], "r"], ",", FractionBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "+", "l", "-", "1"}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "q"], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "q"], "+", "l", "-", "1"}], "l"]}], "}"}]}], "}"}], ",", RowBox[{ SuperscriptBox["w", "l"], SuperscriptBox["l", RowBox[{"l", RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}]}]], SuperscriptBox["z", "r"]}]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"u", "\[Element]", "Integers"}], "\[And]", RowBox[{"u", "\[GreaterEqual]", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], "\[Equal]", RowBox[{"m", "+", "n", "-", FractionBox[ RowBox[{"p", "+", "q"}], "2"]}]}], "\[And]", RowBox[{"\[Mu]", "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], "+", FractionBox[ RowBox[{"p", "-", "q"}], "2"], "+", "1"}]}]}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.20.0017.02"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"{", RowBox[{"z", ",", "u"}], "}"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", FractionBox["w", SuperscriptBox["z", FractionBox["r", "l"]]]}], "]"}]}], "\[Equal]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"l", "-", "1"}], ")"}]}], SuperscriptBox["c", "*"]}]], SuperscriptBox["l", "\[Mu]"], SuperscriptBox["r", "u"], SuperscriptBox["z", RowBox[{"-", "u"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["a", "1"], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "1"], "+", "l", "-", "1"}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "n"], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "n"], "+", "l", "-", "1"}], "l"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"1", "-", "u"}], "r"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"1", "-", "u", "+", "r", "-", "1"}], "r"], ",", FractionBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "+", "l", "-", "1"}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "p"], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "p"], "+", "l", "-", "1"}], "l"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", "r"], ",", "\[Ellipsis]", ",", FractionBox["r", "r"], ",", FractionBox[ SubscriptBox["b", "1"], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "1"], "+", "l", "-", "1"}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "m"], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "m"], "+", "l", "-", "1"}], "l"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "+", "l", "-", "1"}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "q"], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "q"], "+", "l", "-", "1"}], "l"]}], "}"}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox["w", "l"], SuperscriptBox["l", RowBox[{"l", RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}]}]]}], SuperscriptBox["z", "r"]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"u", "\[Element]", "Integers"}], "\[And]", RowBox[{"u", "\[GreaterEqual]", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], "\[Equal]", RowBox[{"m", "+", "n", "-", FractionBox[ RowBox[{"p", "+", "q"}], "2"]}]}], "\[And]", RowBox[{"\[Mu]", "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], "+", FractionBox[ RowBox[{"p", "-", "q"}], "2"], "+", "1"}]}]}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.20.0018.02"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Fractional integro\[Hyphen]differentiation\ \>", "Subsection"], Cell[CellGroupData[{ Cell[TextData[{ "With respect to ", StyleBox["z", "Program"], " " }], "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", RowBox[{"{", RowBox[{"z", ",", "\[Alpha]"}], "}"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], "\[Equal]", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "\[Alpha]"}], ",", RowBox[{ SubscriptBox["a", "1"], "-", "\[Alpha]"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], "-", "\[Alpha]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "-", "\[Alpha]"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], "-", "\[Alpha]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["b", "1"], "-", "\[Alpha]"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], "-", "\[Alpha]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "-", "\[Alpha]"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], "-", "\[Alpha]"}]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.20.0019.01"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Integration", "Section"], Cell[CellGroupData[{ Cell["Indefinite integration", "Subsection"], Cell[CellGroupData[{ Cell["Involving only one direct function", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{"\[Integral]", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], RowBox[{"\[DifferentialD]", "z"}]}]}], "\[Equal]", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{ SubscriptBox["a", "1"], "+", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "+", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], "+", "1"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["b", "1"], "+", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], "+", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "+", "1"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], "+", "1"}]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0001.01"] }, Closed]], Cell[CellGroupData[{ Cell["Involving one direct function and elementary functions", "Subsubsection"], Cell[CellGroupData[{ Cell["Involving power function", "Subsection3"], Cell[BoxData[ RowBox[{ RowBox[{"\[Integral]", RowBox[{ SuperscriptBox["z", RowBox[{"\[Alpha]", "-", "1"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], RowBox[{"\[DifferentialD]", "z"}]}]}], "\[Equal]", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{ SubscriptBox["a", "1"], "+", "\[Alpha]"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "n"], "+", "\[Alpha]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "+", "\[Alpha]"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["a", "p"], "+", "\[Alpha]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["b", "1"], "+", "\[Alpha]"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "m"], "+", "\[Alpha]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "+", "\[Alpha]"}], ",", "\[Ellipsis]", ",", RowBox[{ SubscriptBox["b", "q"], "+", "\[Alpha]"}]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0002.01"], Cell[BoxData[ RowBox[{ RowBox[{"\[Integral]", RowBox[{ SuperscriptBox["z", RowBox[{"\[Alpha]", "-", "1"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"z", " ", "w"}]}], "]"}], RowBox[{"\[DifferentialD]", "z"}]}]}], "\[Equal]", RowBox[{ SuperscriptBox["z", "\[Alpha]"], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]"}], ",", SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"], ",", RowBox[{"-", "\[Alpha]"}]}], "}"}]}], "}"}], ",", RowBox[{"z", " ", "w"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0003.01"], Cell[BoxData[ RowBox[{ RowBox[{"\[Integral]", RowBox[{ SuperscriptBox["z", RowBox[{"\[Alpha]", "-", "1"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "3"], ",", SubscriptBox["a", "4"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "3"], ",", SubscriptBox["b", "4"]}], "}"}]}], "}"}], ",", RowBox[{"w", " ", "z"}]}], "]"}], RowBox[{"\[DifferentialD]", "z"}]}]}], "\[Equal]", RowBox[{ SuperscriptBox["z", "\[Alpha]"], " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]"}], ",", SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "3"], ",", SubscriptBox["a", "4"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "\[Alpha]"}], ",", SubscriptBox["b", "3"], ",", SubscriptBox["b", "4"]}], "}"}]}], "}"}], ",", RowBox[{"w", " ", "z"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0004.01"], Cell[BoxData[ RowBox[{ RowBox[{"\[Integral]", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", SubscriptBox["a", "1"]}], "-", "1"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "3"], ",", SubscriptBox["a", "4"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "3"], ",", SubscriptBox["b", "4"]}], "}"}]}], "}"}], ",", RowBox[{"w", " ", "z"}]}], "]"}], RowBox[{"\[DifferentialD]", "z"}]}]}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"-", SubscriptBox["a", "1"]}]], " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"]}], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "3"], ",", SubscriptBox["a", "4"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "3"], ",", SubscriptBox["b", "4"]}], "}"}]}], "}"}], ",", RowBox[{"w", " ", "z"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0005.01"], Cell[BoxData[ RowBox[{ RowBox[{"\[Integral]", RowBox[{ SuperscriptBox["z", RowBox[{ RowBox[{"-", SubscriptBox["a", "4"]}], "-", "1"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "3"], ",", SubscriptBox["a", "4"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "3"], ",", SubscriptBox["b", "4"]}], "}"}]}], "}"}], ",", RowBox[{"w", " ", "z"}]}], "]"}], RowBox[{"\[DifferentialD]", "z"}]}]}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"-", SubscriptBox["a", "4"]}]], " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", RowBox[{"1", "+", SubscriptBox["a", "4"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "3"], ",", SubscriptBox["a", "4"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "4"], ",", SubscriptBox["b", "3"], ",", SubscriptBox["b", "4"]}], "}"}]}], "}"}], ",", RowBox[{"w", " ", "z"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0006.01"], Cell[BoxData[ RowBox[{ RowBox[{"\[Integral]", RowBox[{ SuperscriptBox["z", RowBox[{"-", SubscriptBox["b", "1"]}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "3"], ",", SubscriptBox["a", "4"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "3"], ",", SubscriptBox["b", "4"]}], "}"}]}], "}"}], ",", RowBox[{"w", " ", "z"}]}], "]"}], RowBox[{"\[DifferentialD]", "z"}]}]}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"1", "-", SubscriptBox["b", "1"]}]], " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["b", "1"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "3"], ",", SubscriptBox["a", "4"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["b", "1"]}], ",", SubscriptBox["b", "3"], ",", SubscriptBox["b", "4"]}], "}"}]}], "}"}], ",", RowBox[{"w", " ", "z"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0007.01"], Cell[BoxData[ RowBox[{ RowBox[{"\[Integral]", RowBox[{ SuperscriptBox["z", RowBox[{"-", SubscriptBox["b", "4"]}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "3"], ",", SubscriptBox["a", "4"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "3"], ",", SubscriptBox["b", "4"]}], "}"}]}], "}"}], ",", RowBox[{"w", " ", "z"}]}], "]"}], RowBox[{"\[DifferentialD]", "z"}]}]}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"1", "-", SubscriptBox["b", "4"]}]], " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "3"], ",", SubscriptBox["a", "4"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["b", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "3"], ",", RowBox[{ RowBox[{"-", "1"}], "+", SubscriptBox["b", "4"]}]}], "}"}]}], "}"}], ",", RowBox[{"w", " ", "z"}]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0008.01"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Definite integration", "Subsection"], Cell[CellGroupData[{ Cell["\<\ Classical and generalized Meijer's integrals from one G function\ \>", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SuperscriptBox["t", RowBox[{"\[Alpha]", "-", "1"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"t", " ", "z"}]}], "]"}], RowBox[{"\[DifferentialD]", "t"}]}]}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"-", "\[Alpha]"}]], " ", FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["b", "k"], "+", "\[Alpha]"}], "]"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "k"], "-", "\[Alpha]"}], "]"}]}]}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "+", "\[Alpha]"}], "]"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "k"], "-", "\[Alpha]"}], "]"}]}]}]}]]}]}], "/;", RowBox[{ RowBox[{ SuperscriptBox["c", "*"], "\[Equal]", RowBox[{"m", "+", "n", "-", FractionBox[ RowBox[{"p", "+", "q"}], "2"]}]}], "\[And]", RowBox[{ RowBox[{ SuperscriptBox["m", "2"], "+", SuperscriptBox["n", "2"]}], ">", "0"}], "\[And]", RowBox[{"z", "\[NotEqual]", "0"}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "*"], ">", "0"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Arg", "[", "z", "]"}], "]"}], "<", RowBox[{ SuperscriptBox["c", "*"], "\[Pi]"}]}], "\[And]", RowBox[{ RowBox[{"-", RowBox[{"Min", "[", RowBox[{ RowBox[{"Re", "[", SubscriptBox["b", "1"], "]"}], ",", "\[Ellipsis]", ",", RowBox[{"Re", "[", SubscriptBox["b", "m"], "]"}]}], "]"}]}], "<", RowBox[{"Re", "[", "\[Alpha]", "]"}], "<", RowBox[{"1", "-", RowBox[{"Max", "[", RowBox[{ RowBox[{"Re", "[", SubscriptBox["a", "1"], "]"}], ",", "\[Ellipsis]", ",", RowBox[{"Re", "[", SubscriptBox["a", "n"], "]"}]}], "]"}]}]}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[NotEqual]", "q"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], "\[GreaterEqual]", "0"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Arg", "[", "z", "]"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["c", "*"], "\[Pi]"}]}], "\[And]", RowBox[{ RowBox[{"-", RowBox[{"Min", "[", RowBox[{ RowBox[{"Re", "[", SubscriptBox["b", "1"], "]"}], ",", "\[Ellipsis]", ",", RowBox[{"Re", "[", SubscriptBox["b", "m"], "]"}]}], "]"}]}], "<", RowBox[{"Re", "[", "\[Alpha]", "]"}], "<", RowBox[{"1", "-", RowBox[{"Max", "[", RowBox[{ RowBox[{"Re", "[", SubscriptBox["a", "1"], "]"}], ",", "\[Ellipsis]", ",", RowBox[{"Re", "[", SubscriptBox["a", "n"], "]"}]}], "]"}]}]}], "\[And]", RowBox[{ RowBox[{"Re", "[", RowBox[{"\[Mu]", "+", RowBox[{ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "\[Alpha]"}]}], "]"}], "<", FractionBox["3", "2"]}], "\[And]", RowBox[{"\[Mu]", "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], "+", FractionBox[ RowBox[{"p", "-", "q"}], "2"], "+", "1"}]}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], "\[Equal]", "0"}], "\[And]", RowBox[{"z", ">", "0"}], "\[And]", RowBox[{ RowBox[{"-", RowBox[{"Min", "[", RowBox[{ RowBox[{"Re", "[", SubscriptBox["b", "1"], "]"}], ",", "\[Ellipsis]", ",", RowBox[{"Re", "[", SubscriptBox["b", "m"], "]"}]}], "]"}]}], "<", RowBox[{"Re", "[", "\[Alpha]", "]"}], "<", RowBox[{"1", "-", RowBox[{"Max", "[", RowBox[{ RowBox[{"Re", "[", SubscriptBox["a", "1"], "]"}], ",", "\[Ellipsis]", ",", RowBox[{"Re", "[", SubscriptBox["a", "n"], "]"}]}], "]"}]}]}], "\[And]", RowBox[{ RowBox[{"Re", "[", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], RowBox[{"(", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["a", "j"]}], ")"}]}], "]"}], "<", "0"}]}], ")"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0009.01"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SuperscriptBox["t", RowBox[{"\[Alpha]", "-", "1"}]], " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"t", " ", "x"}]}], "]"}], RowBox[{"\[DifferentialD]", "t"}]}]}], "\[Equal]", SuperscriptBox["x", RowBox[{"-", "\[Alpha]"}]]}], "/;", RowBox[{"x", ">", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0010.01"], Cell[TextData[{ "Above G function does not have parameters and by this reason it coinsides \ with Dirac delta function ", Cell[BoxData[ FormBox[ RowBox[{ TagBox[ RowBox[{ SubsuperscriptBox[ TagBox["G", MeijerG], RowBox[{"0", ",", "0"}], RowBox[{"0", ",", "0"}]], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox[ RowBox[{"t", " ", "x"}], MeijerG, Editable->True], "\[VerticalSeparator]", GridBox[{ { TagBox["\[Null]", MeijerG, Editable->False]}, { TagBox["\[Null]", MeijerG, Editable->False]} }]}], ")"}]}], MeijerG, Editable->False], "\[Equal]", RowBox[{ InterpretationBox["\[Delta]", DiracDelta, Editable->False, Selectable->False], "(", RowBox[{ RowBox[{"t", " ", "x"}], "-", "1"}], ")"}]}], TraditionalForm]]], ". So the last relation is correct only in the class of generalized \ functions." }], "CommentText"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Classical Meijer's integral from two G functions", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SuperscriptBox["\[Tau]", RowBox[{"\[Alpha]", "-", "1"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["c", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["c", "t"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", RowBox[{"t", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["c", "u"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["d", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["d", "s"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["d", RowBox[{"s", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["d", "v"]}], "}"}]}], "}"}], ",", RowBox[{"\[Tau]", " ", "w"}]}], "]"}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"\[Tau]", " ", "z"}]}], "]"}], RowBox[{"\[DifferentialD]", "\[Tau]"}]}]}], "\[Equal]", RowBox[{ SuperscriptBox["w", RowBox[{"-", "\[Alpha]"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"], ",", RowBox[{"1", "-", "\[Alpha]", "-", SubscriptBox["d", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", "\[Alpha]", "-", SubscriptBox["d", "s"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]", "-", SubscriptBox["d", RowBox[{"s", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", "\[Alpha]", "-", SubscriptBox["d", "v"]}], ",", SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"], ",", RowBox[{"1", "-", "\[Alpha]", "-", SubscriptBox["c", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", "\[Alpha]", "-", SubscriptBox["c", "t"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]", "-", SubscriptBox["c", RowBox[{"t", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", "\[Alpha]", "-", SubscriptBox["c", "u"]}], ",", SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", FractionBox["z", "w"]}], "]"}]}]}], "/;", RowBox[{"(", RowBox[{"\[DoubleStruckCapitalC]\[DoubleStruckCapitalC]", "/;", RowBox[{"k", "\[Equal]", "l", "\[Equal]", "1"}]}], ")"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0011.01"], Cell[TextData[{ "Remark: The conditions ", Cell[BoxData[ FormBox[ "\[DoubleStruckCapitalC]\[DoubleStruckCapitalC]", TraditionalForm]]], " are described at next subsubsection." }], "CommentText"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Generalization of classical Meijer's integral from two G functions\ \>", "Subsubsection"], Cell[CellGroupData[{ Cell["Main formulas", "Subsection3"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SuperscriptBox["\[Tau]", RowBox[{"\[Alpha]", "-", "1"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["c", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["c", "t"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", RowBox[{"t", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["c", "u"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["d", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["d", "s"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["d", RowBox[{"s", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["d", "v"]}], "}"}]}], "}"}], ",", RowBox[{"\[Sigma]", " ", "\[Tau]"}]}], "]"}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"\[Omega]", " ", SuperscriptBox["\[Tau]", "r"]}]}], "]"}], RowBox[{"\[DifferentialD]", "\[Tau]"}]}]}], "\[Equal]", RowBox[{ SuperscriptBox["\[Sigma]", RowBox[{"-", "\[Alpha]"}]], RowBox[{"FoxH", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["A", "1"]}], "}"}], ",", "\[Ellipsis]", ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "n"], ",", SubscriptBox["A", "n"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", SubscriptBox["A", RowBox[{"n", "+", "1"}]]}], "}"}], ",", "\[Ellipsis]", ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "p"], ",", SubscriptBox["A", "p"]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", SubscriptBox["B", "1"]}], "}"}], ",", "\[Ellipsis]", ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "m"], ",", SubscriptBox["B", "m"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", SubscriptBox["B", RowBox[{"m", "+", "1"}]]}], "}"}], ",", "\[Ellipsis]", ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "q"], ",", SubscriptBox["B", "q"]}], "}"}]}], "}"}]}], "}"}], ",", FractionBox["\[Omega]", SuperscriptBox["\[Sigma]", "r"]]}], "]"}]}]}], "/;", RowBox[{"r", ">", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0012.01"], Cell[TextData[{ "Remark: This relationship only holds true when the parameters satisfy \ certain well-specified restrictions. In the case of rational ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"r", "\[Equal]", FractionBox["l", "k"]}], "\[Element]", "\[DoubleStruckCapitalQ]"}], TraditionalForm]]], " this integral and corresponding Fox H function can be represented through \ Meijer G function by the following formula:" }], "CommentText"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SuperscriptBox["\[Tau]", RowBox[{"\[Alpha]", "-", "1"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["c", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["c", "t"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", RowBox[{"t", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["c", "u"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["d", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["d", "s"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["d", RowBox[{"s", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["d", "v"]}], "}"}]}], "}"}], ",", RowBox[{"\[Sigma]", " ", "\[Tau]"}]}], "]"}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"\[Omega]", " ", SuperscriptBox["\[Tau]", FractionBox["l", "k"]]}]}], "]"}], RowBox[{"\[DifferentialD]", "\[Tau]"}]}]}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["k", "\[Mu]"], SuperscriptBox["l", RowBox[{"\[Rho]", "+", RowBox[{"\[Alpha]", RowBox[{"(", RowBox[{"v", "-", "u"}], ")"}]}], "-", "1"}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], RowBox[{ RowBox[{ SuperscriptBox["b", "*"], RowBox[{"(", RowBox[{"l", "-", "1"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "*"], RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}]}]]], SuperscriptBox["\[Sigma]", RowBox[{"-", "\[Alpha]"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["a", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "n"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "n"], "+", "k", "-", "1"}], "k"], ",", FractionBox[ RowBox[{"1", "-", "\[Alpha]", "-", SubscriptBox["d", "1"]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", "\[Alpha]", "-", SubscriptBox["d", "1"]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"1", "-", "\[Alpha]", "-", SubscriptBox["d", "s"]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", "\[Alpha]", "-", SubscriptBox["d", "s"]}], "l"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Alpha]", "-", SubscriptBox["d", RowBox[{"s", "+", "1"}]]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", "\[Alpha]", "-", SubscriptBox["d", RowBox[{"s", "+", "1"}]]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"1", "-", "\[Alpha]", "-", SubscriptBox["d", "v"]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", "\[Alpha]", "-", SubscriptBox["d", "v"]}], "l"], ",", FractionBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "p"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "p"], "+", "k", "-", "1"}], "k"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "m"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "m"], "+", "k", "-", "1"}], "k"], ",", FractionBox[ RowBox[{"1", "-", "\[Alpha]", "-", SubscriptBox["c", "1"]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", "\[Alpha]", "-", SubscriptBox["c", "1"]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"1", "-", "\[Alpha]", "-", SubscriptBox["c", "t"]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", "\[Alpha]", "-", SubscriptBox["c", "t"]}], "l"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Alpha]", "-", SubscriptBox["c", RowBox[{"t", "+", "1"}]]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", "\[Alpha]", "-", SubscriptBox["c", RowBox[{"t", "+", "1"}]]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"1", "-", "\[Alpha]", "-", SubscriptBox["c", "u"]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", "\[Alpha]", "-", SubscriptBox["c", "u"]}], "l"], ",", FractionBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "q"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "q"], "+", "k", "-", "1"}], "k"]}], "}"}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox["\[Omega]", "k"], SuperscriptBox["k", RowBox[{"k", RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}]}]]}], RowBox[{ SuperscriptBox["\[Sigma]", "l"], SuperscriptBox["l", RowBox[{"l", RowBox[{"(", RowBox[{"u", "-", "v"}], ")"}]}]]}]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"k", "\[Element]", "Integers"}], "\[And]", RowBox[{"k", ">", "0"}], "\[And]", RowBox[{"l", "\[Element]", "Integers"}], "\[And]", RowBox[{"l", ">", "0"}], "\[And]", RowBox[{ RowBox[{"GCD", "[", RowBox[{"k", ",", "l"}], "]"}], "\[Equal]", "1"}], "\[And]", "\[DoubleStruckCapitalC]\[DoubleStruckCapitalC]"}]}]], \ "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0013.01"], Cell["where", "CommentText"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[DoubleStruckCapitalC]\[DoubleStruckCapitalC]", "\[Equal]", RowBox[{"(", RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "1"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "2"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "3"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "4"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "5"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "6"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "7"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "8"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "9"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "10"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "11"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "12"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "13"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "14"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "15"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "16"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "17"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "18"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "19"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "20"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "21"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "22"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "23"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "24"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "25"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "26"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "27"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "28"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "29"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "30"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "31"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "32"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "33"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "34"], "\[Or]", SubscriptBox["\[DoubleStruckCapitalC]", "35"]}], ")"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0014.01"], Cell[TextData[{ "Each of major 39 groups ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "j"], ",", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "39"}], ","}], TraditionalForm]]], " can include several subgroups from 15 subgroups ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["\[DoubleStruckG]", "k"], ",", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "15"}]}], TraditionalForm]]], ". For their description we introduce the following" }], "CommentText"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Notations for conditions of convergence of generalization of classical \ Meijer's integral from two G functions\ \>", "Subsection3"], Cell[BoxData[ RowBox[{ SuperscriptBox["b", "*"], "\[Equal]", RowBox[{"s", "+", "t", "-", FractionBox[ RowBox[{"u", "+", "v"}], "2"]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0015.01"], Cell[BoxData[ RowBox[{ SuperscriptBox["c", "*"], "\[Equal]", RowBox[{"m", "+", "n", "-", FractionBox[ RowBox[{"p", "+", "q"}], "2"]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0016.01"], Cell[BoxData[ RowBox[{"\[Rho]", "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "v"], SubscriptBox["d", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "u"], SubscriptBox["c", "j"]}], "+", FractionBox[ RowBox[{"u", "-", "v"}], "2"], "+", "1"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0017.01"], Cell[BoxData[ RowBox[{"\[Mu]", "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], "+", FractionBox[ RowBox[{"p", "-", "q"}], "2"], "+", "1"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0018.01"], Cell[BoxData[ RowBox[{"\[Phi]", "\[Equal]", RowBox[{"q", "-", "p", "-", RowBox[{"r", RowBox[{"(", RowBox[{"v", "-", "u"}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0019.01"], Cell[BoxData[ RowBox[{"\[Eta]", "\[Equal]", RowBox[{"1", "-", RowBox[{"\[Alpha]", RowBox[{"(", RowBox[{"v", "-", "u"}], ")"}]}], "-", "\[Mu]", "-", "\[Rho]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0020.01"], Cell[BoxData[ RowBox[{"\[Psi]", "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"q", "-", "p"}]], RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Arg", "[", "\[Omega]", "]"}], "]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"q", "-", "m", "-", "n"}], ")"}], "\[Pi]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0021.01"], Cell[BoxData[ RowBox[{"\[Theta]", "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"v", "-", "u"}]], RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Arg", "[", "\[Sigma]", "]"}], "]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"v", "-", "s", "-", "t"}], ")"}], "\[Pi]"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0022.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[Lambda]", "c"], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], SuperscriptBox[ RowBox[{"Abs", "[", "\[Omega]", "]"}], RowBox[{"1", "/", RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}]}]], RowBox[{"Cos", "[", "\[Psi]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"v", "-", "u"}], ")"}], SuperscriptBox[ RowBox[{"Abs", "[", "\[Sigma]", "]"}], RowBox[{"1", "/", RowBox[{"(", RowBox[{"v", "-", "u"}], ")"}]}]], RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0023.01"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[Lambda]", "s"], "\[Equal]", SubscriptBox["\[Lambda]", "s0"]}], "/;", RowBox[{ RowBox[{ RowBox[{"Arg", "[", "\[Sigma]", "]"}], RowBox[{"Arg", "[", "\[Omega]", "]"}]}], "\[NotEqual]", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0024.01"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[Lambda]", "s"], "\[Equal]", RowBox[{ RowBox[{"Limit", "[", RowBox[{ SubscriptBox["\[Lambda]", "s0"], ",", RowBox[{ RowBox[{"Arg", "[", "\[Sigma]", "]"}], "\[Rule]", "0"}], ",", " ", RowBox[{"Direction", " ", "\[Rule]", " ", RowBox[{"-", "1"}]}]}], "]"}], RowBox[{"Limit", "[", RowBox[{ SubscriptBox["\[Lambda]", "s0"], ",", RowBox[{ RowBox[{"Arg", "[", "\[Sigma]", "]"}], "\[Rule]", "0"}], ",", " ", RowBox[{"Direction", " ", "\[Rule]", " ", "1"}]}], "]"}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"Arg", "[", "\[Sigma]", "]"}], "\[Equal]", "0"}], "\[And]", RowBox[{ RowBox[{"Arg", "[", "\[Omega]", "]"}], "\[NotEqual]", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0025.01"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[Lambda]", "s"], "\[Equal]", RowBox[{ RowBox[{"Limit", "[", RowBox[{ SubscriptBox["\[Lambda]", "s0"], ",", RowBox[{ RowBox[{"Arg", "[", "\[Omega]", "]"}], "\[Rule]", "0"}], ",", " ", RowBox[{"Direction", " ", "\[Rule]", " ", RowBox[{"-", "1"}]}]}], "]"}], RowBox[{"Limit", "[", RowBox[{ SubscriptBox["\[Lambda]", "s0"], ",", RowBox[{ RowBox[{"Arg", "[", "\[Omega]", "]"}], "\[Rule]", "0"}], ",", " ", RowBox[{"Direction", " ", "\[Rule]", " ", "1"}]}], "]"}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"Arg", "[", "\[Sigma]", "]"}], "\[NotEqual]", "0"}], "\[And]", RowBox[{ RowBox[{"Arg", "[", "\[Omega]", "]"}], "\[Equal]", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0026.01"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["\[Lambda]", "s"], "\[Equal]", RowBox[{ RowBox[{"Limit", "[", RowBox[{ RowBox[{"Limit", "[", RowBox[{ SubscriptBox["\[Lambda]", "s0"], ",", RowBox[{ RowBox[{"Arg", "[", "\[Sigma]", "]"}], "\[Rule]", "0"}], ",", " ", RowBox[{"Direction", " ", "\[Rule]", " ", RowBox[{"-", "1"}]}]}], "]"}], ",", RowBox[{ RowBox[{"Arg", "[", "\[Omega]", "]"}], "\[Rule]", "0"}], ",", " ", RowBox[{"Direction", " ", "\[Rule]", " ", RowBox[{"-", "1"}]}]}], "]"}], RowBox[{"Limit", "[", RowBox[{ RowBox[{"Limit", "[", RowBox[{ SubscriptBox["\[Lambda]", "s0"], ",", RowBox[{ RowBox[{"Arg", "[", "\[Sigma]", "]"}], "\[Rule]", "0"}], ",", " ", RowBox[{"Direction", " ", "\[Rule]", " ", "1"}]}], "]"}], ",", RowBox[{ RowBox[{"Arg", "[", "\[Omega]", "]"}], "\[Rule]", "0"}], ",", " ", RowBox[{"Direction", " ", "\[Rule]", " ", RowBox[{"-", "1"}]}]}], "]"}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"Arg", "[", "\[Sigma]", "]"}], "\[Equal]", "0"}], "\[And]", RowBox[{ RowBox[{"Arg", "[", "\[Omega]", "]"}], "\[Equal]", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0027.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[Lambda]", "s0"], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], SuperscriptBox[ RowBox[{"Abs", "[", "\[Omega]", "]"}], RowBox[{"1", "/", RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}]}]], RowBox[{"Sign", "[", RowBox[{"Arg", "[", "\[Omega]", "]"}], "]"}], RowBox[{"Sin", "[", "\[Psi]", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"v", "-", "u"}], ")"}], SuperscriptBox[ RowBox[{"Abs", "[", "\[Sigma]", "]"}], RowBox[{"1", "/", RowBox[{"(", RowBox[{"v", "-", "u"}], ")"}]}]], RowBox[{"Sign", "[", RowBox[{"Arg", "[", "\[Sigma]", "]"}], "]"}], RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0028.01"] }, Closed]], Cell[CellGroupData[{ Cell["Fifteen subgroups for major 39 groups", "Subsection3"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckG]", "1"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Not", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "i"], "-", SubscriptBox["b", "j"]}], "\[Element]", "Integers"}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["a", "i"], "-", SubscriptBox["b", "j"]}], ">", "0"}]}], "]"}], "/;", RowBox[{ RowBox[{"1", "\[LessEqual]", "i", "\[LessEqual]", "n"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "m"}]}]}], ")"}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{"Not", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["c", "g"], "-", SubscriptBox["d", "h"]}], "\[Element]", "Integers"}], "\[And]", RowBox[{ RowBox[{ SubscriptBox["c", "g"], "-", SubscriptBox["d", "h"]}], ">", "0"}]}], "]"}], "/;", RowBox[{ RowBox[{"1", "\[LessEqual]", "g", "\[LessEqual]", "t"}], "\[And]", RowBox[{"1", "\[LessEqual]", "h", "\[LessEqual]", "s"}]}]}], ")"}]}], ")"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0029.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckG]", "2"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Re", "[", RowBox[{"\[Alpha]", "+", SubscriptBox["d", "h"], "+", RowBox[{"r", " ", SubscriptBox["b", "j"]}]}], "]"}], ">", "0"}], "/;", RowBox[{ RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "m"}], "\[And]", RowBox[{"1", "\[LessEqual]", "h", "\[LessEqual]", "s"}]}]}], ")"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0030.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckG]", "3"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Re", "[", RowBox[{"\[Alpha]", "+", SubscriptBox["c", "g"], "+", RowBox[{"r", " ", SubscriptBox["a", "i"]}]}], "]"}], "<", RowBox[{"r", "+", "1"}]}], "/;", RowBox[{ RowBox[{"1", "\[LessEqual]", "i", "\[LessEqual]", "n"}], "\[And]", RowBox[{"1", "\[LessEqual]", "g", "\[LessEqual]", "t"}]}]}], ")"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0031.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckG]", "4"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], RowBox[{"Re", "[", RowBox[{"\[Alpha]", "+", SubscriptBox["c", "g"], "-", "1"}], "]"}]}], "-", RowBox[{"r", " ", RowBox[{"Re", "[", "\[Mu]", "]"}]}]}], ">", RowBox[{"-", FractionBox[ RowBox[{"3", "r"}], "2"]}]}], "/;", RowBox[{"1", "\[LessEqual]", "g", "\[LessEqual]", "t"}]}], ")"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0032.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckG]", "5"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], RowBox[{"Re", "[", RowBox[{"\[Alpha]", "+", SubscriptBox["d", "h"]}], "]"}]}], "-", RowBox[{"r", " ", RowBox[{"Re", "[", "\[Mu]", "]"}]}]}], ">", RowBox[{"-", FractionBox[ RowBox[{"3", "r"}], "2"]}]}], "/;", RowBox[{"1", "\[LessEqual]", "h", "\[LessEqual]", "s"}]}], ")"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0033.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckG]", "6"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"u", "-", "v"}], ")"}], RowBox[{"Re", "[", RowBox[{"\[Alpha]", "+", RowBox[{"r", " ", SubscriptBox["a", "i"]}], "-", "r"}], "]"}]}], "-", RowBox[{"Re", "[", "\[Rho]", "]"}]}], ">", RowBox[{"-", FractionBox["3", "2"]}]}], "/;", RowBox[{"1", "\[LessEqual]", "i", "\[LessEqual]", "n"}]}], ")"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0034.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckG]", "7"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"u", "-", "v"}], ")"}], RowBox[{"Re", "[", RowBox[{"\[Alpha]", "+", RowBox[{"r", " ", SubscriptBox["b", "j"]}]}], "]"}]}], "-", RowBox[{"Re", "[", "\[Rho]", "]"}]}], ">", RowBox[{"-", FractionBox["3", "2"]}]}], "/;", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "m"}]}], ")"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0035.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckG]", "8"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "\[Phi]", "]"}], "+", RowBox[{"2", RowBox[{"Re", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], RowBox[{"(", RowBox[{"v", "-", "u"}], ")"}], "\[Alpha]"}], "+", RowBox[{"r", RowBox[{"(", RowBox[{"v", "-", "u"}], ")"}], RowBox[{"(", RowBox[{"\[Mu]", "-", "1"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], RowBox[{"(", RowBox[{"\[Rho]", "-", "1"}], ")"}]}]}], "]"}]}]}], ">", "0"}], ")"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0036.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckG]", "9"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "\[Phi]", "]"}], "-", RowBox[{"2", RowBox[{"Re", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], RowBox[{"(", RowBox[{"v", "-", "u"}], ")"}], "\[Alpha]"}], "+", RowBox[{"r", RowBox[{"(", RowBox[{"v", "-", "u"}], ")"}], RowBox[{"(", RowBox[{"\[Mu]", "-", "1"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], RowBox[{"(", RowBox[{"\[Rho]", "-", "1"}], ")"}]}]}], "]"}]}]}], ">", "0"}], ")"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0037.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckG]", "10"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Arg", "[", "\[Sigma]", "]"}], "]"}], "<", RowBox[{ SuperscriptBox["b", "*"], "\[Pi]"}]}], ")"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0038.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckG]", "11"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Arg", "[", "\[Sigma]", "]"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["b", "*"], "\[Pi]"}]}], ")"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0039.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckG]", "12"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Arg", "[", "\[Omega]", "]"}], "]"}], "<", RowBox[{ SuperscriptBox["c", "*"], "\[Pi]"}]}], ")"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0040.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckG]", "13"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Arg", "[", "\[Omega]", "]"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["c", "*"], "\[Pi]"}]}], ")"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0041.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckG]", "14"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"Arg", "[", RowBox[{"(", RowBox[{"1", "-", RowBox[{ SubscriptBox["z", "0"], FractionBox[ SuperscriptBox["\[Omega]", "k"], SuperscriptBox["\[Sigma]", "l"]]}]}], ")"}], "]"}], "]"}], "<", "\[Pi]"}], "/;", RowBox[{ SubscriptBox["z", "0"], "\[Equal]", RowBox[{ SuperscriptBox["r", RowBox[{"l", RowBox[{"(", RowBox[{"v", "-", "u"}], ")"}]}]], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"l", " ", SuperscriptBox["b", "*"]}], "+", RowBox[{"k", " ", SuperscriptBox["c", "*"]}]}], ")"}]}], "\[Pi]", " ", "\[ImaginaryI]"}], "]"}]}]}]}], ")"}], "\[And]", RowBox[{"\[Phi]", "\[Equal]", "0"}], "\[And]", RowBox[{ RowBox[{ SuperscriptBox["c", "*"], "+", RowBox[{"r", RowBox[{"(", RowBox[{ SuperscriptBox["b", "*"], "-", "1"}], ")"}]}]}], "\[LessEqual]", "0"}]}], ")"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0042.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckG]", "15"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[Lambda]", "c"], ">", "0"}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Lambda]", "c"], "\[Equal]", "0"}], "\[And]", RowBox[{ SubscriptBox["\[Lambda]", "s"], "\[NotEqual]", "0"}], "\[And]", RowBox[{ RowBox[{"Re", "[", "\[Eta]", "]"}], ">", RowBox[{"-", "1"}]}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Lambda]", "c"], "\[Equal]", SubscriptBox["\[Lambda]", "s"], "\[Equal]", "0"}], "\[And]", RowBox[{ RowBox[{"Re", "[", "\[Eta]", "]"}], ">", "0"}]}], ")"}]}], ")"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0043.01"] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Major 39 groups of conditions of convergence of generalization of classical \ Meijer's integral from two G functions\ \>", "Subsection3"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "1"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"m", " ", "n", " ", "s", " ", "t"}], " ", "\[NotEqual]", "0"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], ">", "0"}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "2"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"], "\[And]", SubscriptBox["\[DoubleStruckG]", "10"], "\[And]", SubscriptBox["\[DoubleStruckG]", "12"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0044.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "2"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"u", "\[Equal]", "v"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], "\[Equal]", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], ">", "0"}], "\[And]", RowBox[{"\[Sigma]", ">", "0"}], "\[And]", RowBox[{ RowBox[{"Re", "[", "\[Rho]", "]"}], "<", "1"}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "2"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"], "\[And]", SubscriptBox["\[DoubleStruckG]", "12"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0045.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "3"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], "\[Equal]", "0"}], "\[And]", RowBox[{"\[Omega]", ">", "0"}], "\[And]", RowBox[{ RowBox[{"Re", "[", "\[Mu]", "]"}], "<", "1"}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "2"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"], "\[And]", SubscriptBox["\[DoubleStruckG]", "10"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0046.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "4"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{"u", "\[Equal]", "v"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], "\[Equal]", SuperscriptBox["c", "*"], "\[Equal]", "0"}], "\[And]", RowBox[{"\[Sigma]", ">", "0"}], "\[And]", RowBox[{"\[Omega]", ">", "0"}], "\[And]", RowBox[{ RowBox[{"Re", "[", "\[Mu]", "]"}], "<", "1"}], "\[And]", RowBox[{ RowBox[{"Re", "[", "\[Rho]", "]"}], "<", "1"}], "\[And]", RowBox[{ SuperscriptBox["\[Sigma]", "l"], "\[NotEqual]", SuperscriptBox["\[Omega]", "k"]}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "2"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0047.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "5"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{"u", "\[Equal]", "v"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], "\[Equal]", SuperscriptBox["c", "*"], "\[Equal]", "0"}], "\[And]", RowBox[{"\[Sigma]", ">", "0"}], "\[And]", RowBox[{"\[Omega]", ">", "0"}], "\[And]", RowBox[{ RowBox[{"Re", "[", RowBox[{"\[Mu]", "+", "\[Rho]"}], "]"}], "<", "1"}], "\[And]", RowBox[{ SuperscriptBox["\[Sigma]", "l"], "\[NotEqual]", SuperscriptBox["\[Omega]", "k"]}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "2"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0048.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "6"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"p", ">", "q"}], "\[And]", RowBox[{"s", ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], "\[GreaterEqual]", "0"}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "2"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"], "\[And]", SubscriptBox["\[DoubleStruckG]", "5"], "\[And]", SubscriptBox["\[DoubleStruckG]", "10"], "\[And]", SubscriptBox["\[DoubleStruckG]", "13"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0049.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "7"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"p", "<", "q"}], "\[And]", RowBox[{"t", ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], "\[GreaterEqual]", "0"}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "2"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"], "\[And]", SubscriptBox["\[DoubleStruckG]", "4"], "\[And]", SubscriptBox["\[DoubleStruckG]", "10"], "\[And]", SubscriptBox["\[DoubleStruckG]", "13"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0050.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "8"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"u", ">", "v"}], "\[And]", RowBox[{"m", ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], "\[GreaterEqual]", "0"}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "2"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"], "\[And]", SubscriptBox["\[DoubleStruckG]", "7"], "\[And]", SubscriptBox["\[DoubleStruckG]", "11"], "\[And]", SubscriptBox["\[DoubleStruckG]", "12"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0051.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "9"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"u", "<", "v"}], "\[And]", RowBox[{"n", ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], "\[GreaterEqual]", "0"}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "2"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"], "\[And]", SubscriptBox["\[DoubleStruckG]", "6"], "\[And]", SubscriptBox["\[DoubleStruckG]", "11"], "\[And]", SubscriptBox["\[DoubleStruckG]", "12"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0052.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "10"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"p", ">", "q"}], "\[And]", RowBox[{"u", "\[Equal]", "v"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], "\[Equal]", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], "\[GreaterEqual]", "0"}], "\[And]", RowBox[{"\[Sigma]", ">", "0"}], "\[And]", RowBox[{ RowBox[{"Re", "[", "\[Rho]", "]"}], "<", "1"}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "2"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"], "\[And]", SubscriptBox["\[DoubleStruckG]", "5"], "\[And]", SubscriptBox["\[DoubleStruckG]", "13"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0053.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "11"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"p", "<", "q"}], "\[And]", RowBox[{"u", "\[Equal]", "v"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], "\[Equal]", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], "\[GreaterEqual]", "0"}], "\[And]", RowBox[{"\[Sigma]", ">", "0"}], "\[And]", RowBox[{ RowBox[{"Re", "[", "\[Rho]", "]"}], "<", "1"}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "2"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"], "\[And]", SubscriptBox["\[DoubleStruckG]", "4"], "\[And]", SubscriptBox["\[DoubleStruckG]", "13"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0054.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "12"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{"u", ">", "v"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], "\[GreaterEqual]", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], "\[Equal]", "0"}], "\[And]", RowBox[{"\[Omega]", ">", "0"}], "\[And]", RowBox[{ RowBox[{"Re", "[", "\[Mu]", "]"}], "<", "1"}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "2"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"], "\[And]", SubscriptBox["\[DoubleStruckG]", "7"], "\[And]", SubscriptBox["\[DoubleStruckG]", "11"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0055.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "13"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{"u", "<", "v"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], "\[GreaterEqual]", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], "\[Equal]", "0"}], "\[And]", RowBox[{"\[Omega]", ">", "0"}], "\[And]", RowBox[{ RowBox[{"Re", "[", "\[Mu]", "]"}], "<", "1"}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "2"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"], "\[And]", SubscriptBox["\[DoubleStruckG]", "6"], "\[And]", SubscriptBox["\[DoubleStruckG]", "11"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0056.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "14"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"p", "<", "q"}], "\[And]", RowBox[{"u", ">", "v"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], "\[GreaterEqual]", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], "\[GreaterEqual]", "0"}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "2"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"], "\[And]", SubscriptBox["\[DoubleStruckG]", "4"], "\[And]", SubscriptBox["\[DoubleStruckG]", "7"], "\[And]", SubscriptBox["\[DoubleStruckG]", "11"], "\[And]", SubscriptBox["\[DoubleStruckG]", "13"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0057.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "15"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"p", ">", "q"}], "\[And]", RowBox[{"u", "<", "v"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], "\[GreaterEqual]", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], "\[GreaterEqual]", "0"}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "2"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"], "\[And]", SubscriptBox["\[DoubleStruckG]", "5"], "\[And]", SubscriptBox["\[DoubleStruckG]", "6"], "\[And]", SubscriptBox["\[DoubleStruckG]", "11"], "\[And]", SubscriptBox["\[DoubleStruckG]", "13"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0058.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "16"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"p", ">", "q"}], "\[And]", RowBox[{"u", ">", "v"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], "\[GreaterEqual]", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], "\[GreaterEqual]", "0"}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "2"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"], "\[And]", SubscriptBox["\[DoubleStruckG]", "5"], "\[And]", SubscriptBox["\[DoubleStruckG]", "7"], "\[And]", SubscriptBox["\[DoubleStruckG]", "8"], "\[And]", SubscriptBox["\[DoubleStruckG]", "11"], "\[And]", SubscriptBox["\[DoubleStruckG]", "13"], "\[And]", SubscriptBox["\[DoubleStruckG]", "14"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0059.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "17"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"p", "<", "q"}], "\[And]", RowBox[{"u", "<", "v"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], "\[GreaterEqual]", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], "\[GreaterEqual]", "0"}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "2"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"], "\[And]", SubscriptBox["\[DoubleStruckG]", "4"], "\[And]", SubscriptBox["\[DoubleStruckG]", "6"], "\[And]", SubscriptBox["\[DoubleStruckG]", "9"], "\[And]", SubscriptBox["\[DoubleStruckG]", "11"], "\[And]", SubscriptBox["\[DoubleStruckG]", "13"], "\[And]", SubscriptBox["\[DoubleStruckG]", "14"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0060.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "18"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"t", "\[Equal]", "0"}], "\[And]", RowBox[{"s", ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], ">", "0"}], "\[And]", RowBox[{"\[Phi]", ">", "0"}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "2"], "\[And]", SubscriptBox["\[DoubleStruckG]", "10"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0061.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "19"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"s", "\[Equal]", "0"}], "\[And]", RowBox[{"t", ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], ">", "0"}], "\[And]", RowBox[{"\[Phi]", "<", "0"}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"], "\[And]", SubscriptBox["\[DoubleStruckG]", "10"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0062.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "20"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"n", "\[Equal]", "0"}], "\[And]", RowBox[{"m", ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], ">", "0"}], "\[And]", RowBox[{"\[Phi]", "<", "0"}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "2"], "\[And]", SubscriptBox["\[DoubleStruckG]", "12"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0063.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "21"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"m", "\[Equal]", "0"}], "\[And]", RowBox[{"n", ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], ">", "0"}], "\[And]", RowBox[{"\[Phi]", ">", "0"}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"], "\[And]", SubscriptBox["\[DoubleStruckG]", "12"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0064.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "21"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"m", "\[Equal]", "0"}], "\[And]", RowBox[{"n", ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], ">", "0"}], "\[And]", RowBox[{"\[Phi]", ">", "0"}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"], "\[And]", SubscriptBox["\[DoubleStruckG]", "12"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0065.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "22"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"s", " ", "t"}], "\[Equal]", "0"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], ">", "0"}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "2"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"], "\[And]", SubscriptBox["\[DoubleStruckG]", "10"], "\[And]", SubscriptBox["\[DoubleStruckG]", "12"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0066.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "23"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"m", " ", "n"}], "\[Equal]", "0"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], ">", "0"}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "2"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"], "\[And]", SubscriptBox["\[DoubleStruckG]", "10"], "\[And]", SubscriptBox["\[DoubleStruckG]", "12"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0067.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "24"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"m", " ", "+", "n"}], ">", "p"}], "\[And]", RowBox[{"t", "\[Equal]", "\[Phi]", "\[Equal]", "0"}], "\[And]", RowBox[{"s", ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], "<", "0"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Arg", "[", "\[Omega]", "]"}], "]"}], "<", RowBox[{ RowBox[{"(", RowBox[{"m", "+", "n", "-", "p", "+", "1"}], ")"}], "\[Pi]"}]}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "2"], "\[And]", SubscriptBox["\[DoubleStruckG]", "10"], "\[And]", SubscriptBox["\[DoubleStruckG]", "14"], "\[And]", SubscriptBox["\[DoubleStruckG]", "15"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0068.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "25"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"m", " ", "+", "n"}], ">", "q"}], "\[And]", RowBox[{"s", "\[Equal]", "\[Phi]", "\[Equal]", "0"}], "\[And]", RowBox[{"t", ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], "<", "0"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Arg", "[", "\[Omega]", "]"}], "]"}], "<", RowBox[{ RowBox[{"(", RowBox[{"m", "+", "n", "-", "q", "+", "1"}], ")"}], "\[Pi]"}]}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"], "\[And]", SubscriptBox["\[DoubleStruckG]", "10"], "\[And]", SubscriptBox["\[DoubleStruckG]", "14"], "\[And]", SubscriptBox["\[DoubleStruckG]", "15"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0069.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "26"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", RowBox[{"q", "-", "1"}]}], "\[And]", RowBox[{"t", "\[Equal]", "\[Phi]", "\[Equal]", "0"}], "\[And]", RowBox[{"s", ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], "\[GreaterEqual]", "0"}], "\[And]", RowBox[{ RowBox[{ SuperscriptBox["c", "*"], "\[Pi]"}], "<", RowBox[{"Abs", "[", RowBox[{"Arg", "[", "\[Omega]", "]"}], "]"}], "<", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["c", "*"], "+", "1"}], ")"}], "\[Pi]"}]}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "2"], "\[And]", SubscriptBox["\[DoubleStruckG]", "10"], "\[And]", SubscriptBox["\[DoubleStruckG]", "14"], "\[And]", SubscriptBox["\[DoubleStruckG]", "15"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0070.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "27"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", RowBox[{"q", "+", "1"}]}], "\[And]", RowBox[{"s", "\[Equal]", "\[Phi]", "\[Equal]", "0"}], "\[And]", RowBox[{"t", ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], "\[GreaterEqual]", "0"}], "\[And]", RowBox[{ RowBox[{ SuperscriptBox["c", "*"], "\[Pi]"}], "<", RowBox[{"Abs", "[", RowBox[{"Arg", "[", "\[Omega]", "]"}], "]"}], "<", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["c", "*"], "+", "1"}], ")"}], "\[Pi]"}]}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"], "\[And]", SubscriptBox["\[DoubleStruckG]", "10"], "\[And]", SubscriptBox["\[DoubleStruckG]", "14"], "\[And]", SubscriptBox["\[DoubleStruckG]", "15"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0071.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "28"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"p", "<", RowBox[{"q", "-", "1"}]}], "\[And]", RowBox[{"t", "\[Equal]", "\[Phi]", "\[Equal]", "0"}], "\[And]", RowBox[{"s", ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], "\[GreaterEqual]", "0"}], "\[And]", RowBox[{ RowBox[{ SuperscriptBox["c", "*"], "\[Pi]"}], "<", RowBox[{"Abs", "[", RowBox[{"Arg", "[", "\[Omega]", "]"}], "]"}], "<", RowBox[{ RowBox[{"(", RowBox[{"m", "+", "n", "-", "p", "+", "1"}], ")"}], "\[Pi]"}]}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "2"], "\[And]", SubscriptBox["\[DoubleStruckG]", "10"], "\[And]", SubscriptBox["\[DoubleStruckG]", "14"], "\[And]", SubscriptBox["\[DoubleStruckG]", "15"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0072.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "29"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"p", ">", RowBox[{"q", "+", "1"}]}], "\[And]", RowBox[{"s", "\[Equal]", "\[Phi]", "\[Equal]", "0"}], "\[And]", RowBox[{"t", ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], "\[GreaterEqual]", "0"}], "\[And]", RowBox[{ RowBox[{ SuperscriptBox["c", "*"], "\[Pi]"}], "<", RowBox[{"Abs", "[", RowBox[{"Arg", "[", "\[Omega]", "]"}], "]"}], "<", RowBox[{ RowBox[{"(", RowBox[{"m", "+", "n", "-", "q", "+", "1"}], ")"}], "\[Pi]"}]}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"], "\[And]", SubscriptBox["\[DoubleStruckG]", "10"], "\[And]", SubscriptBox["\[DoubleStruckG]", "14"], "\[And]", SubscriptBox["\[DoubleStruckG]", "15"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0073.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "30"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"n", "\[Equal]", "\[Phi]", "\[Equal]", "0"}], "\[And]", RowBox[{ RowBox[{"s", "+", "t"}], ">", "u"}], "\[And]", RowBox[{"m", ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], "<", "0"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Arg", "[", "\[Sigma]", "]"}], "]"}], "<", RowBox[{ RowBox[{"(", RowBox[{"s", "+", "t", "-", "u", "+", "1"}], ")"}], "\[Pi]"}]}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "2"], "\[And]", SubscriptBox["\[DoubleStruckG]", "12"], "\[And]", SubscriptBox["\[DoubleStruckG]", "14"], "\[And]", SubscriptBox["\[DoubleStruckG]", "15"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0074.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "31"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"m", "\[Equal]", "\[Phi]", "\[Equal]", "0"}], "\[And]", RowBox[{ RowBox[{"s", "+", "t"}], ">", "v"}], "\[And]", RowBox[{"n", ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], "<", "0"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Arg", "[", "\[Sigma]", "]"}], "]"}], "<", RowBox[{ RowBox[{"(", RowBox[{"s", "+", "t", "-", "v", "+", "1"}], ")"}], "\[Pi]"}]}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"], "\[And]", SubscriptBox["\[DoubleStruckG]", "12"], "\[And]", SubscriptBox["\[DoubleStruckG]", "14"], "\[And]", SubscriptBox["\[DoubleStruckG]", "15"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0075.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "32"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"n", "\[Equal]", "\[Phi]", "\[Equal]", "0"}], "\[And]", RowBox[{"u", "\[Equal]", RowBox[{"v", "-", "1"}]}], "\[And]", RowBox[{"m", ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], "\[GreaterEqual]", "0"}], "\[And]", RowBox[{ RowBox[{ SuperscriptBox["b", "*"], "\[Pi]"}], "<", RowBox[{"Abs", "[", RowBox[{"Arg", "[", "\[Sigma]", "]"}], "]"}], "<", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["b", "*"], "+", "1"}], ")"}], "\[Pi]"}]}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "2"], "\[And]", SubscriptBox["\[DoubleStruckG]", "12"], "\[And]", SubscriptBox["\[DoubleStruckG]", "14"], "\[And]", SubscriptBox["\[DoubleStruckG]", "15"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0076.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "33"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"m", "\[Equal]", "\[Phi]", "\[Equal]", "0"}], "\[And]", RowBox[{"u", "\[Equal]", RowBox[{"v", "+", "1"}]}], "\[And]", RowBox[{"n", ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], "\[GreaterEqual]", "0"}], "\[And]", RowBox[{ RowBox[{ SuperscriptBox["b", "*"], "\[Pi]"}], "<", RowBox[{"Abs", "[", RowBox[{"Arg", "[", "\[Sigma]", "]"}], "]"}], "<", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["b", "*"], "+", "1"}], ")"}], "\[Pi]"}]}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"], "\[And]", SubscriptBox["\[DoubleStruckG]", "12"], "\[And]", SubscriptBox["\[DoubleStruckG]", "14"], "\[And]", SubscriptBox["\[DoubleStruckG]", "15"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0077.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "34"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"n", "\[Equal]", "\[Phi]", "\[Equal]", "0"}], "\[And]", RowBox[{"u", "<", RowBox[{"v", "-", "1"}]}], "\[And]", RowBox[{"m", ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], "\[GreaterEqual]", "0"}], "\[And]", RowBox[{ RowBox[{ SuperscriptBox["b", "*"], "\[Pi]"}], "<", RowBox[{"Abs", "[", RowBox[{"Arg", "[", "\[Sigma]", "]"}], "]"}], "<", RowBox[{ RowBox[{"(", RowBox[{"s", "+", "t", "-", "u", "+", "1"}], ")"}], "\[Pi]"}]}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "2"], "\[And]", SubscriptBox["\[DoubleStruckG]", "12"], "\[And]", SubscriptBox["\[DoubleStruckG]", "14"], "\[And]", SubscriptBox["\[DoubleStruckG]", "15"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0078.01"], Cell[BoxData[ RowBox[{ SubscriptBox["\[DoubleStruckCapitalC]", "35"], "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"m", "\[Equal]", "\[Phi]", "\[Equal]", "0"}], "\[And]", RowBox[{"u", ">", RowBox[{"v", "+", "1"}]}], "\[And]", RowBox[{"n", ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], "\[GreaterEqual]", "0"}], "\[And]", RowBox[{ RowBox[{ SuperscriptBox["b", "*"], "\[Pi]"}], "<", RowBox[{"Abs", "[", RowBox[{"Arg", "[", "\[Sigma]", "]"}], "]"}], "<", RowBox[{ RowBox[{"(", RowBox[{"s", "+", "t", "-", "v", "+", "1"}], ")"}], "\[Pi]"}]}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"], "\[And]", SubscriptBox["\[DoubleStruckG]", "12"], "\[And]", SubscriptBox["\[DoubleStruckG]", "14"], "\[And]", SubscriptBox["\[DoubleStruckG]", "15"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0079.01"], Cell[BoxData[ RowBox[{"\[DoubleStruckCapitalC]\[DoubleStruckCapitalC]", "\[Equal]", RowBox[{"(", RowBox[{ RowBox[{"m", "\[Equal]", "\[Phi]", "\[Equal]", "0"}], "\[And]", RowBox[{"u", ">", RowBox[{"v", "+", "1"}]}], "\[And]", RowBox[{"n", ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["b", "*"], "\[GreaterEqual]", "0"}], "\[And]", RowBox[{ RowBox[{ SuperscriptBox["b", "*"], "\[Pi]"}], "<", RowBox[{"Abs", "[", RowBox[{"Arg", "[", "\[Sigma]", "]"}], "]"}], "<", RowBox[{ RowBox[{"(", RowBox[{"s", "+", "t", "-", "v", "+", "1"}], ")"}], "\[Pi]"}]}], "\[And]", SubscriptBox["\[DoubleStruckG]", "1"], "\[And]", SubscriptBox["\[DoubleStruckG]", "3"], "\[And]", SubscriptBox["\[DoubleStruckG]", "12"], "\[And]", SubscriptBox["\[DoubleStruckG]", "14"], "\[And]", SubscriptBox["\[DoubleStruckG]", "15"]}], ")"}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0080.01"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Integral from three G functions", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SuperscriptBox["t", RowBox[{"\[Alpha]", "-", "1"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"t", " ", "z"}]}], "]"}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "11"], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"1", SubscriptBox["n", "1"]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{ RowBox[{"1", SubscriptBox["n", "1"]}], "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"1", SubscriptBox["p", "1"]}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "11"], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"1", SubscriptBox["m", "1"]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{ RowBox[{"1", SubscriptBox["m", "1"]}], "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"1", SubscriptBox["q", "1"]}]]}], "}"}]}], "}"}], ",", RowBox[{"t", " ", "x"}]}], "]"}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "21"], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"2", SubscriptBox["n", "2"]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{ RowBox[{"2", SubscriptBox["n", "2"]}], "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"2", SubscriptBox["p", "2"]}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "21"], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"2", SubscriptBox["m", "2"]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{ RowBox[{"2", SubscriptBox["m", "2"]}], "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"2", SubscriptBox["q", "2"]}]]}], "}"}]}], "}"}], ",", RowBox[{"t", " ", "y"}]}], "]"}], RowBox[{"\[DifferentialD]", "t"}]}]}], "\[Equal]", RowBox[{ SuperscriptBox["z", RowBox[{"-", "\[Alpha]"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]", "-", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", "\[Alpha]", "-", SubscriptBox["b", "m"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]", "-", SubscriptBox["b", RowBox[{"m", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", "\[Alpha]", "-", SubscriptBox["b", "q"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]", "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", "\[Alpha]", "-", SubscriptBox["a", "n"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]", "-", SubscriptBox["a", RowBox[{"n", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", "\[Alpha]", "-", SubscriptBox["a", "p"]}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "11"], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"1", SubscriptBox["n", "1"]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{ RowBox[{"1", SubscriptBox["n", "1"]}], "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"1", SubscriptBox["p", "1"]}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "11"], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"1", SubscriptBox["m", "1"]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{ RowBox[{"1", SubscriptBox["m", "1"]}], "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"1", SubscriptBox["q", "1"]}]]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "21"], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"2", SubscriptBox["n", "2"]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{ RowBox[{"2", SubscriptBox["n", "2"]}], "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"2", SubscriptBox["p", "2"]}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "21"], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"2", SubscriptBox["m", "2"]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{ RowBox[{"2", SubscriptBox["m", "2"]}], "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"2", SubscriptBox["q", "2"]}]]}], "}"}]}], "}"}]}], "}"}], ",", FractionBox["x", "z"], ",", FractionBox["y", "z"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0081.01"], Cell["\<\ Remark: This relationship only holds true when the parameters satisfy certain \ well-specified restrictions. \ \>", "CommentText"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Integral including G functions with shifted arguments", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SuperscriptBox["\[Tau]", RowBox[{"\[Alpha]", "-", "1"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["c", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["c", "t"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", RowBox[{"t", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["c", "u"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["d", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["d", "s"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["d", RowBox[{"s", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["d", "v"]}], "}"}]}], "}"}], ",", RowBox[{"\[Tau]", "+", "\[Sigma]"}]}], "]"}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"\[Omega]", " ", "\[Tau]"}]}], "]"}], RowBox[{"\[DifferentialD]", "\[Tau]"}]}]}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "0"}], "\[Infinity]"], RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "\[Sigma]"}], ")"}], "k"], RowBox[{"k", "!"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", "\[Alpha]"}], ",", SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"], ",", RowBox[{"1", "+", "k", "-", "\[Alpha]", "-", SubscriptBox["d", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", "k", "-", "\[Alpha]", "-", SubscriptBox["d", "s"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", "k", "-", "\[Alpha]", "-", SubscriptBox["d", RowBox[{"s", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", "k", "-", "\[Alpha]", "-", SubscriptBox["d", "v"]}], ",", SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"], ",", RowBox[{"1", "+", "k", "-", "\[Alpha]", "-", SubscriptBox["c", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", "k", "-", "\[Alpha]", "-", SubscriptBox["c", "t"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", "k", "-", "\[Alpha]", "-", SubscriptBox["c", RowBox[{"t", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", "k", "-", "\[Alpha]", "-", SubscriptBox["c", "u"]}], ",", RowBox[{"1", "+", "k", "-", "\[Alpha]"}], ",", SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "\[Omega]"}], "]"}]}]}]}], "/;", RowBox[{ RowBox[{ SuperscriptBox["b", "*"], ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], ">", "0"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Arg", "[", "\[Sigma]", "]"}], "]"}], "<", "\[Pi]"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Arg", "[", "\[Omega]", "]"}], "]"}], "<", RowBox[{ SuperscriptBox["c", "*"], "\[Pi]"}]}], "\[And]", RowBox[{ RowBox[{"-", RowBox[{"Min", "[", RowBox[{ RowBox[{"Re", "[", SubscriptBox["b", "1"], "]"}], ",", "\[Ellipsis]", ",", RowBox[{"Re", "[", SubscriptBox["b", "m"], "]"}]}], "]"}]}], "<", RowBox[{"Re", "[", "\[Alpha]", "]"}], "<", RowBox[{"2", "-", RowBox[{"Max", "[", RowBox[{ RowBox[{"Re", "[", SubscriptBox["a", "1"], "]"}], ",", "\[Ellipsis]", ",", RowBox[{"Re", "[", SubscriptBox["a", "n"], "]"}]}], "]"}], "-", RowBox[{"Max", "[", RowBox[{ RowBox[{"Re", "[", SubscriptBox["c", "1"], "]"}], ",", "\[Ellipsis]", ",", RowBox[{"Re", "[", SubscriptBox["c", "t"], "]"}]}], "]"}]}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0082.01"] }, Closed]], Cell[CellGroupData[{ Cell["Integral by variable in parameters", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Infinity]"}], "\[Infinity]"], RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"p", "-", "2"}]], ",", RowBox[{ SubscriptBox["a", RowBox[{"p", "-", "1"}]], "+", "\[Tau]"}], ",", RowBox[{ SubscriptBox["a", "p"], "+", "\[Tau]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"q", "-", "2"}]], ",", RowBox[{ SubscriptBox["b", RowBox[{"q", "-", "1"}]], "+", "\[Tau]"}], ",", RowBox[{ SubscriptBox["b", "q"], "+", "\[Tau]"}]}], "}"}]}], "}"}], ",", RowBox[{"\[Omega]", " ", "\[Tau]"}]}], "]"}], RowBox[{"\[DifferentialD]", "\[Tau]"}]}]}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", RowBox[{"p", "-", "1"}]], "+", SubscriptBox["a", "p"], "-", SubscriptBox["b", RowBox[{"q", "-", "1"}]], "-", SubscriptBox["b", "q"], "-", "1"}], "]"}], " "}], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", RowBox[{"p", "-", "1"}]], "-", SubscriptBox["b", RowBox[{"q", "-", "1"}]]}], "]"}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", RowBox[{"p", "-", "1"}]], "-", SubscriptBox["b", "q"]}], "]"}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "p"], "-", SubscriptBox["b", RowBox[{"q", "-", "1"}]]}], "]"}], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "p"], "-", SubscriptBox["b", "q"]}], "]"}]}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"p", "-", "2"}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"q", "-", "2"}]]}], "}"}]}], "}"}], ",", "\[Omega]"}], "]"}]}]}], "/;", RowBox[{ RowBox[{ SuperscriptBox["c", "*"], ">", "0"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Arg", "[", "\[Omega]", "]"}], "]"}], "<", RowBox[{ SuperscriptBox["c", "*"], "\[Pi]"}]}], "\[And]", RowBox[{ RowBox[{"Re", "[", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}]}], "]"}], ">", "1"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0083.01"] }, Closed]], Cell[CellGroupData[{ Cell["Integrals for classical integral transforms", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "a"], RowBox[{ SuperscriptBox["\[Tau]", RowBox[{"\[Alpha]", "-", "1"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"a", "-", "\[Tau]"}], ")"}], RowBox[{"\[Beta]", "-", "1"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"\[Omega]", " ", SuperscriptBox["\[Tau]", FractionBox["l", "k"]]}]}], "]"}], RowBox[{"\[DifferentialD]", "\[Tau]"}]}]}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["k", "\[Mu]"], SuperscriptBox["l", RowBox[{"-", "\[Beta]"}]], RowBox[{"Gamma", "[", "\[Beta]", "]"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], RowBox[{ SuperscriptBox["c", "*"], RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}]], SuperscriptBox["a", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}]]}]], " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Alpha]"}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", "\[Alpha]"}], "l"], ",", FractionBox[ SubscriptBox["a", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "n"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "n"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "p"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "p"], "+", "k", "-", "1"}], "k"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "m"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "m"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "q"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "q"], "+", "k", "-", "1"}], "k"], ",", FractionBox[ RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", "\[Alpha]", "-", "\[Beta]"}], "l"]}], "}"}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox["\[Omega]", "k"], SuperscriptBox["a", "l"]}], SuperscriptBox["k", RowBox[{"k", RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}]}]]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"k", "\[Element]", "Integers"}], "\[And]", RowBox[{"k", ">", "0"}], "\[And]", RowBox[{"l", "\[Element]", "Integers"}], "\[And]", RowBox[{"l", ">", "0"}], "\[And]", RowBox[{ RowBox[{"GCD", "[", RowBox[{"k", ",", "l"}], "]"}], "\[Equal]", "1"}], "\[And]", RowBox[{"(", RowBox[{"\[DoubleStruckCapitalC]\[DoubleStruckCapitalC]", "/;", RowBox[{ RowBox[{"\[Sigma]", "\[Equal]", SuperscriptBox["a", RowBox[{"-", "1"}]]}], "\[And]", RowBox[{"s", "\[Equal]", "u", "\[Equal]", "v", "\[Equal]", "1"}], "\[And]", RowBox[{"t", "\[Equal]", SubscriptBox["d", "1"], "\[Equal]", "0"}], "\[And]", RowBox[{ SubscriptBox["c", "1"], "\[Equal]", "\[Beta]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0084.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "a", "\[Infinity]"], RowBox[{ SuperscriptBox["\[Tau]", RowBox[{"\[Alpha]", "-", "1"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"\[Tau]", "-", "a"}], ")"}], RowBox[{"\[Beta]", "-", "1"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"\[Omega]", " ", SuperscriptBox["\[Tau]", FractionBox["l", "k"]]}]}], "]"}], RowBox[{"\[DifferentialD]", "\[Tau]"}]}]}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["k", "\[Mu]"], SuperscriptBox["l", RowBox[{"-", "\[Beta]"}]], RowBox[{"Gamma", "[", "\[Beta]", "]"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], RowBox[{ SuperscriptBox["c", "*"], RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}]], SuperscriptBox["a", RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}]]}]], " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["a", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "n"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "n"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "p"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "p"], "+", "k", "-", "1"}], "k"], ",", FractionBox[ RowBox[{"1", "-", "\[Alpha]"}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", "\[Alpha]"}], "l"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Alpha]", "-", "\[Beta]"}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", "\[Alpha]", "-", "\[Beta]"}], "l"], ",", FractionBox[ SubscriptBox["b", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "m"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "m"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "q"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "q"], "+", "k", "-", "1"}], "k"]}], "}"}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox["\[Omega]", "k"], SuperscriptBox["a", "l"]}], SuperscriptBox["k", RowBox[{"k", RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}]}]]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"k", "\[Element]", "Integers"}], "\[And]", RowBox[{"k", ">", "0"}], "\[And]", RowBox[{"l", "\[Element]", "Integers"}], "\[And]", RowBox[{"l", ">", "0"}], "\[And]", RowBox[{ RowBox[{"GCD", "[", RowBox[{"k", ",", "l"}], "]"}], "\[Equal]", "1"}], "\[And]", RowBox[{"(", RowBox[{"\[DoubleStruckCapitalC]\[DoubleStruckCapitalC]", "/;", RowBox[{ RowBox[{"\[Sigma]", "\[Equal]", SuperscriptBox["a", RowBox[{"-", "1"}]]}], "\[And]", RowBox[{"t", "\[Equal]", "u", "\[Equal]", "v", "\[Equal]", "1"}], "\[And]", RowBox[{"s", "\[Equal]", SubscriptBox["d", "1"], "\[Equal]", "0"}], "\[And]", RowBox[{ SubscriptBox["c", "1"], "\[Equal]", "\[Beta]"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0085.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ SuperscriptBox["\[Tau]", RowBox[{"\[Alpha]", "-", "1"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"\[Tau]", "+", "z"}], ")"}], "\[Lambda]"]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"\[Omega]", " ", SuperscriptBox["\[Tau]", FractionBox["l", "k"]]}]}], "]"}], RowBox[{"\[DifferentialD]", "\[Tau]"}]}]}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["k", "\[Mu]"], SuperscriptBox["l", RowBox[{"\[Lambda]", "-", "1"}]], SuperscriptBox["z", RowBox[{"\[Alpha]", "-", "\[Lambda]"}]]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], RowBox[{ RowBox[{ SuperscriptBox["c", "*"], RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}], "+", "l", "-", "1"}]], RowBox[{"Gamma", "[", "\[Lambda]", "]"}]}]], " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Alpha]"}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", "\[Alpha]"}], "l"], ",", FractionBox[ SubscriptBox["a", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "n"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "n"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "p"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "p"], "+", "k", "-", "1"}], "k"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"\[Lambda]", "-", "\[Alpha]"}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"\[Lambda]", "-", "\[Alpha]", "+", "l", "-", "1"}], "l"], ",", FractionBox[ SubscriptBox["b", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "m"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "m"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "q"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "q"], "+", "k", "-", "1"}], "k"]}], "}"}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox["\[Omega]", "k"], SuperscriptBox["z", "l"]}], SuperscriptBox["k", RowBox[{"k", RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}]}]]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"k", "\[Element]", "Integers"}], "\[And]", RowBox[{"k", ">", "0"}], "\[And]", RowBox[{"l", "\[Element]", "Integers"}], "\[And]", RowBox[{"l", ">", "0"}], "\[And]", RowBox[{ RowBox[{"GCD", "[", RowBox[{"k", ",", "l"}], "]"}], "\[Equal]", "1"}], "\[And]", RowBox[{"(", RowBox[{"\[DoubleStruckCapitalC]\[DoubleStruckCapitalC]", "/;", RowBox[{ RowBox[{"\[Sigma]", "\[Equal]", SuperscriptBox["z", RowBox[{"-", "1"}]]}], "\[And]", RowBox[{ "s", "\[Equal]", "t", "\[Equal]", "u", "\[Equal]", "v", "\[Equal]", "1"}], "\[And]", RowBox[{ SubscriptBox["c", "1"], "\[Equal]", RowBox[{"1", "-", "\[Lambda]"}]}], "\[And]", RowBox[{ SubscriptBox["d", "1"], "\[Equal]", "0"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0086.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["\[Tau]", RowBox[{"\[Alpha]", "-", "1"}]], RowBox[{"\[Tau]", "-", "y"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"\[Omega]", " ", SuperscriptBox["\[Tau]", FractionBox["l", "k"]]}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"\[Tau]", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"PrincipalValue", "\[Rule]", "True"}]}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"\[Pi]", " ", SuperscriptBox["k", "\[Mu]"], SuperscriptBox["y", RowBox[{"\[Alpha]", "-", "1"}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], RowBox[{ SuperscriptBox["c", "*"], RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}]]]}], " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Alpha]"}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", "\[Alpha]"}], "l"], ",", FractionBox[ SubscriptBox["a", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "n"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "n"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "p"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "p"], "+", "k", "-", "1"}], "k"], ",", FractionBox[ RowBox[{ RowBox[{"1", "/", "2"}], "-", "\[Alpha]"}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", RowBox[{"1", "/", "2"}], "-", "\[Alpha]"}], "l"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Alpha]"}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", "\[Alpha]"}], "l"], ",", FractionBox[ SubscriptBox["b", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "m"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "m"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "q"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "q"], "+", "k", "-", "1"}], "k"], ",", FractionBox[ RowBox[{ RowBox[{"1", "/", "2"}], "-", "\[Alpha]"}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", RowBox[{"1", "/", "2"}], "-", "\[Alpha]"}], "l"]}], "}"}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox["\[Omega]", "k"], SuperscriptBox["y", "l"]}], SuperscriptBox["k", RowBox[{"k", RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}]}]]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"k", "\[Element]", "Integers"}], "\[And]", RowBox[{"k", ">", "0"}], "\[And]", RowBox[{"l", "\[Element]", "Integers"}], "\[And]", RowBox[{"l", ">", "0"}], "\[And]", RowBox[{ RowBox[{"GCD", "[", RowBox[{"k", ",", "l"}], "]"}], "\[Equal]", "1"}], "\[And]", RowBox[{"y", ">", "0"}], "\[And]", RowBox[{"(", RowBox[{"\[DoubleStruckCapitalC]\[DoubleStruckCapitalC]", "/;", RowBox[{ RowBox[{"\[Sigma]", "\[Equal]", SuperscriptBox["y", RowBox[{"-", "1"}]]}], "\[And]", RowBox[{"s", "\[Equal]", "t", "\[Equal]", "1"}], "\[And]", RowBox[{"u", "\[Equal]", "v", "\[Equal]", "2"}], "\[And]", RowBox[{ SubscriptBox["c", "1"], "\[Equal]", SubscriptBox["d", "1"], "\[Equal]", "0"}], "\[And]", RowBox[{ SubscriptBox["c", "2"], "\[Equal]", SubscriptBox["d", "2"], "\[Equal]", RowBox[{"1", "/", "2"}]}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0087.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SuperscriptBox["\[Tau]", RowBox[{"\[Alpha]", "-", "1"}]], SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Sigma]"}], " ", "\[Tau]"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"\[Omega]", " ", SuperscriptBox["\[Tau]", FractionBox["l", "k"]]}]}], "]"}], RowBox[{"\[DifferentialD]", "\[Tau]"}]}]}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["k", "\[Mu]"], SuperscriptBox["l", RowBox[{"\[Alpha]", "-", FractionBox["1", "2"]}]], SuperscriptBox["\[Sigma]", RowBox[{"-", "\[Alpha]"}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], RowBox[{ RowBox[{ SuperscriptBox["c", "*"], RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}], "+", FractionBox[ RowBox[{"l", "-", "1"}], "2"]}]]], " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Alpha]"}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", "\[Alpha]"}], "l"], ",", FractionBox[ SubscriptBox["a", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "n"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "n"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "p"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "p"], "+", "k", "-", "1"}], "k"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "m"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "m"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "q"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "q"], "+", "k", "-", "1"}], "k"]}], "}"}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox["\[Omega]", "k"], SuperscriptBox["l", "l"]}], RowBox[{ SuperscriptBox["\[Sigma]", "l"], SuperscriptBox["k", RowBox[{"k", RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}]}]]}]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"k", "\[Element]", "Integers"}], "\[And]", RowBox[{"k", ">", "0"}], "\[And]", RowBox[{"l", "\[Element]", "Integers"}], "\[And]", RowBox[{"l", ">", "0"}], "\[And]", RowBox[{ RowBox[{"GCD", "[", RowBox[{"k", ",", "l"}], "]"}], "\[Equal]", "1"}], "\[And]", RowBox[{"(", RowBox[{"\[DoubleStruckCapitalC]\[DoubleStruckCapitalC]", "/;", RowBox[{ RowBox[{"s", "\[Equal]", "v", "\[Equal]", "1"}], "\[And]", RowBox[{"t", "\[Equal]", "u", "\[Equal]", SubscriptBox["d", "1"], "\[Equal]", "0"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0088.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SuperscriptBox["\[Tau]", RowBox[{"\[Alpha]", "-", "1"}]], RowBox[{"Sin", "[", RowBox[{"b", " ", "\[Tau]"}], "]"}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"\[Omega]", " ", SuperscriptBox["\[Tau]", FractionBox[ RowBox[{"2", "l"}], "k"]]}]}], "]"}], RowBox[{"\[DifferentialD]", "\[Tau]"}]}]}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["k", "\[Mu]"], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "l"}], ")"}], RowBox[{"\[Alpha]", "-", FractionBox["1", "2"]}]], SuperscriptBox["b", RowBox[{"-", "\[Alpha]"}]]}], RowBox[{"2", SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], RowBox[{ RowBox[{ SuperscriptBox["c", "*"], RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}], "-", FractionBox["1", "2"]}]]}]], " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "/", "2"}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Alpha]"}], ")"}], "/", "2"}], "+", "l"}], "l"], ",", FractionBox[ SubscriptBox["a", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "n"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "n"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "p"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "p"], "+", "k", "-", "1"}], "k"], ",", FractionBox[ RowBox[{"1", "-", RowBox[{"\[Alpha]", "/", "2"}]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", RowBox[{"\[Alpha]", "/", "2"}]}], "l"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "m"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "m"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "q"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "q"], "+", "k", "-", "1"}], "k"]}], "}"}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox["\[Omega]", "k"], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "l"}], ")"}], RowBox[{"2", "l"}]]}], RowBox[{ SuperscriptBox["b", RowBox[{"2", "l"}]], SuperscriptBox["k", RowBox[{"k", RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}]}]]}]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"k", "\[Element]", "Integers"}], "\[And]", RowBox[{"k", ">", "0"}], "\[And]", RowBox[{"l", "\[Element]", "Integers"}], "\[And]", RowBox[{"l", ">", "0"}], "\[And]", RowBox[{ RowBox[{"GCD", "[", RowBox[{"k", ",", "l"}], "]"}], "\[Equal]", "1"}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ "\[DoubleStruckCapitalC]\[DoubleStruckCapitalC]", "/;", "\[Alpha]"}], "\[Rule]", RowBox[{ FractionBox["\[Alpha]", "2"], "\[And]", RowBox[{"\[Sigma]", "\[Equal]", FractionBox[ SuperscriptBox["b", "2"], "4"]}], "\[And]", RowBox[{"s", "\[Equal]", "1"}], "\[And]", RowBox[{"t", "\[Equal]", "u", "\[Equal]", SubscriptBox["d", "2"], "\[Equal]", "0"}], "\[And]", RowBox[{"v", "\[Equal]", "2"}], "\[And]", RowBox[{ SubscriptBox["d", "1"], "\[Equal]", FractionBox["1", "2"]}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0089.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SuperscriptBox["\[Tau]", RowBox[{"\[Alpha]", "-", "1"}]], RowBox[{"Cos", "[", RowBox[{"b", " ", "\[Tau]"}], "]"}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"\[Omega]", " ", SuperscriptBox["\[Tau]", FractionBox[ RowBox[{"2", "l"}], "k"]]}]}], "]"}], RowBox[{"\[DifferentialD]", "\[Tau]"}]}]}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["k", "\[Mu]"], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "l"}], ")"}], RowBox[{"\[Alpha]", "-", FractionBox["1", "2"]}]], SuperscriptBox["b", RowBox[{"-", "\[Alpha]"}]]}], RowBox[{"2", SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], RowBox[{ RowBox[{ SuperscriptBox["c", "*"], RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}], "-", FractionBox["1", "2"]}]]}]], " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"1", "-", RowBox[{"\[Alpha]", "/", "2"}]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", RowBox[{"\[Alpha]", "/", "2"}]}], "l"], ",", FractionBox[ SubscriptBox["a", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "n"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "n"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "p"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "p"], "+", "k", "-", "1"}], "k"], ",", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "/", "2"}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Alpha]"}], ")"}], "/", "2"}], "+", "l"}], "l"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "m"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "m"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "q"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "q"], "+", "k", "-", "1"}], "k"]}], "}"}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox["\[Omega]", "k"], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "l"}], ")"}], RowBox[{"2", "l"}]]}], RowBox[{ SuperscriptBox["b", RowBox[{"2", "l"}]], SuperscriptBox["k", RowBox[{"k", RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}]}]]}]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"k", "\[Element]", "Integers"}], "\[And]", RowBox[{"k", ">", "0"}], "\[And]", RowBox[{"l", "\[Element]", "Integers"}], "\[And]", RowBox[{"l", ">", "0"}], "\[And]", RowBox[{ RowBox[{"GCD", "[", RowBox[{"k", ",", "l"}], "]"}], "\[Equal]", "1"}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ "\[DoubleStruckCapitalC]\[DoubleStruckCapitalC]", "/;", "\[Alpha]"}], "\[Rule]", RowBox[{ FractionBox["\[Alpha]", "2"], "\[And]", RowBox[{"\[Sigma]", "\[Equal]", FractionBox[ SuperscriptBox["b", "2"], "4"]}], "\[And]", RowBox[{"s", "\[Equal]", "1"}], "\[And]", RowBox[{"t", "\[Equal]", "u", "\[Equal]", SubscriptBox["d", "1"], "\[Equal]", "0"}], "\[And]", RowBox[{"v", "\[Equal]", "2"}], "\[And]", RowBox[{ SubscriptBox["d", "2"], "\[Equal]", FractionBox["1", "2"]}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0090.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SuperscriptBox["\[Tau]", RowBox[{"\[Alpha]", "-", "1"}]], RowBox[{"BesselJ", "[", RowBox[{"\[Nu]", ",", RowBox[{"b", " ", "\[Tau]"}]}], "]"}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"\[Omega]", " ", SuperscriptBox["\[Tau]", FractionBox[ RowBox[{"2", "l"}], "k"]]}]}], "]"}], RowBox[{"\[DifferentialD]", "\[Tau]"}]}]}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["k", "\[Mu]"], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "l"}], ")"}], RowBox[{"\[Alpha]", "-", "1"}]], SuperscriptBox["b", RowBox[{"-", "\[Alpha]"}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], RowBox[{ SuperscriptBox["c", "*"], RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}]]], " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"\[Alpha]", "+", "\[Nu]"}], ")"}], "/", "2"}]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", RowBox[{ RowBox[{"(", RowBox[{"\[Alpha]", "+", "\[Nu]"}], ")"}], "/", "2"}]}], "l"], ",", FractionBox[ SubscriptBox["a", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "n"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "n"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "p"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "p"], "+", "k", "-", "1"}], "k"], ",", FractionBox[ RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"\[Alpha]", "-", "\[Nu]"}], ")"}], "/", "2"}]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", RowBox[{ RowBox[{"(", RowBox[{"\[Alpha]", "-", "\[Nu]"}], ")"}], "/", "2"}]}], "l"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "m"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "m"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "q"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "q"], "+", "k", "-", "1"}], "k"]}], "}"}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox["\[Omega]", "k"], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "l"}], ")"}], RowBox[{"2", "l"}]]}], RowBox[{ SuperscriptBox["b", RowBox[{"2", "l"}]], SuperscriptBox["k", RowBox[{"k", RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}]}]]}]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"k", "\[Element]", "Integers"}], "\[And]", RowBox[{"k", ">", "0"}], "\[And]", RowBox[{"l", "\[Element]", "Integers"}], "\[And]", RowBox[{"l", ">", "0"}], "\[And]", RowBox[{ RowBox[{"GCD", "[", RowBox[{"k", ",", "l"}], "]"}], "\[Equal]", "1"}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ "\[DoubleStruckCapitalC]\[DoubleStruckCapitalC]", "/;", "\[Alpha]"}], "\[Rule]", RowBox[{ FractionBox["\[Alpha]", "2"], "\[And]", RowBox[{"\[Sigma]", "\[Equal]", FractionBox[ SuperscriptBox["b", "2"], "4"]}], "\[And]", RowBox[{"s", "\[Equal]", "1"}], "\[And]", RowBox[{"t", "\[Equal]", "u", "\[Equal]", "0"}], "\[And]", RowBox[{"v", "\[Equal]", "2"}], "\[And]", RowBox[{ SubscriptBox["d", "1"], "\[Equal]", RowBox[{"-", SubscriptBox["d", "2"]}], "\[Equal]", FractionBox["\[Nu]", "2"]}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0091.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SuperscriptBox["\[Tau]", RowBox[{"\[Alpha]", "-", "1"}]], RowBox[{"BesselY", "[", RowBox[{"\[Nu]", ",", RowBox[{"b", " ", "\[Tau]"}]}], "]"}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"\[Omega]", " ", SuperscriptBox["\[Tau]", FractionBox[ RowBox[{"2", "l"}], "k"]]}]}], "]"}], RowBox[{"\[DifferentialD]", "\[Tau]"}]}]}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["k", "\[Mu]"], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "l"}], ")"}], RowBox[{"\[Alpha]", "-", "1"}]], SuperscriptBox["b", RowBox[{"-", "\[Alpha]"}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], RowBox[{ SuperscriptBox["c", "*"], RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}]]], " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"\[Alpha]", "+", "\[Nu]"}], ")"}], "/", "2"}]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", RowBox[{ RowBox[{"(", RowBox[{"\[Alpha]", "+", "\[Nu]"}], ")"}], "/", "2"}]}], "l"], ",", FractionBox[ RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"\[Alpha]", "-", "\[Nu]"}], ")"}], "/", "2"}]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", RowBox[{ RowBox[{"(", RowBox[{"\[Alpha]", "-", "\[Nu]"}], ")"}], "/", "2"}]}], "l"], ",", FractionBox[ SubscriptBox["a", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "n"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "n"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "p"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "p"], "+", "k", "-", "1"}], "k"], ",", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"3", "-", "\[Alpha]", "+", "\[Nu]"}], ")"}], "/", "2"}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]", "+", "\[Nu]"}], ")"}], "/", "2"}], "+", "l"}], "l"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "m"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "m"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "q"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "q"], "+", "k", "-", "1"}], "k"], ",", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"3", "-", "\[Alpha]", "+", "\[Nu]"}], ")"}], "/", "2"}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]", "+", "\[Nu]"}], ")"}], "/", "2"}], "+", "l"}], "l"]}], "}"}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox["\[Omega]", "k"], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "l"}], ")"}], RowBox[{"2", "l"}]]}], RowBox[{ SuperscriptBox["b", RowBox[{"2", "l"}]], SuperscriptBox["k", RowBox[{"k", RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}]}]]}]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"k", "\[Element]", "Integers"}], "\[And]", RowBox[{"k", ">", "0"}], "\[And]", RowBox[{"l", "\[Element]", "Integers"}], "\[And]", RowBox[{"l", ">", "0"}], "\[And]", RowBox[{ RowBox[{"GCD", "[", RowBox[{"k", ",", "l"}], "]"}], "\[Equal]", "1"}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ "\[DoubleStruckCapitalC]\[DoubleStruckCapitalC]", "/;", "\[Alpha]"}], "\[Rule]", RowBox[{ FractionBox["\[Alpha]", "2"], "\[And]", RowBox[{"\[Sigma]", "\[Equal]", FractionBox[ SuperscriptBox["b", "2"], "4"]}], "\[And]", RowBox[{"s", "\[Equal]", "2"}], "\[And]", RowBox[{"t", "\[Equal]", "0"}], "\[And]", RowBox[{"u", "\[Equal]", "1"}], "\[And]", RowBox[{"v", "\[Equal]", "3"}], "\[And]", RowBox[{ SubscriptBox["c", "1"], "\[Equal]", SubscriptBox["d", "3"], "\[Equal]", FractionBox[ RowBox[{"1", "-", "\[Nu]"}], "2"]}], "\[And]", RowBox[{ SubscriptBox["d", "1"], "\[Equal]", RowBox[{"-", FractionBox["\[Nu]", "2"]}]}], "\[And]", RowBox[{ SubscriptBox["d", "2"], "\[Equal]", FractionBox["\[Nu]", "2"]}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0092.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ SuperscriptBox["\[Tau]", RowBox[{"\[Alpha]", "-", "1"}]], RowBox[{"BesselK", "[", RowBox[{"\[Nu]", ",", RowBox[{"b", " ", "\[Tau]"}]}], "]"}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"\[Omega]", " ", SuperscriptBox["\[Tau]", FractionBox[ RowBox[{"2", "l"}], "k"]]}]}], "]"}], RowBox[{"\[DifferentialD]", "\[Tau]"}]}]}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"\[Pi]", " ", SuperscriptBox["k", "\[Mu]"], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "l"}], ")"}], RowBox[{"\[Alpha]", "-", "1"}]], SuperscriptBox["b", RowBox[{"-", "\[Alpha]"}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], RowBox[{ RowBox[{ SuperscriptBox["c", "*"], RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}], "+", "l"}]]], " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"\[Alpha]", "+", "\[Nu]"}], ")"}], "/", "2"}]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", RowBox[{ RowBox[{"(", RowBox[{"\[Alpha]", "+", "\[Nu]"}], ")"}], "/", "2"}]}], "l"], ",", FractionBox[ RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"\[Alpha]", "-", "\[Nu]"}], ")"}], "/", "2"}]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", RowBox[{ RowBox[{"(", RowBox[{"\[Alpha]", "-", "\[Nu]"}], ")"}], "/", "2"}]}], "l"], ",", FractionBox[ SubscriptBox["a", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "n"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "n"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "p"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "p"], "+", "k", "-", "1"}], "k"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "m"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "m"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "q"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "q"], "+", "k", "-", "1"}], "k"]}], "}"}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox["\[Omega]", "k"], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "l"}], ")"}], RowBox[{"2", "l"}]]}], RowBox[{ SuperscriptBox["b", RowBox[{"2", "l"}]], SuperscriptBox["k", RowBox[{"k", RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}]}]]}]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"k", "\[Element]", "Integers"}], "\[And]", RowBox[{"k", ">", "0"}], "\[And]", RowBox[{"l", "\[Element]", "Integers"}], "\[And]", RowBox[{"l", ">", "0"}], "\[And]", RowBox[{ RowBox[{"GCD", "[", RowBox[{"k", ",", "l"}], "]"}], "\[Equal]", "1"}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ "\[DoubleStruckCapitalC]\[DoubleStruckCapitalC]", "/;", "\[Alpha]"}], "\[Rule]", RowBox[{ FractionBox["\[Alpha]", "2"], "\[And]", RowBox[{"\[Sigma]", "\[Equal]", FractionBox[ SuperscriptBox["b", "2"], "4"]}], "\[And]", RowBox[{"s", "\[Equal]", "v", "\[Equal]", "2"}], "\[And]", RowBox[{"t", "\[Equal]", "u", "\[Equal]", "0"}], "\[And]", RowBox[{ SubscriptBox["d", "1"], "\[Equal]", RowBox[{"-", FractionBox["\[Nu]", "2"]}]}], "\[And]", RowBox[{ SubscriptBox["d", "2"], "\[Equal]", FractionBox["\[Nu]", "2"]}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0093.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"\[Tau]", "-", "y"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"\[Omega]", " ", "\[Tau]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"\[Tau]", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", RowBox[{"PrincipalValue", "\[Rule]", "True"}]}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "\[Pi]"}], " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"], ",", RowBox[{"-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"], ",", RowBox[{"-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", RowBox[{"\[Omega]", " ", "y"}]}], "]"}]}], "-", " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{ RowBox[{"-", "\[Omega]"}], " ", "y"}]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"y", "\[Element]", "Reals"}], "\[And]", RowBox[{"(", RowBox[{"\[DoubleStruckCapitalC]\[DoubleStruckCapitalC]", "/;", RowBox[{ RowBox[{"\[Sigma]", "\[Equal]", SuperscriptBox["y", RowBox[{"-", "1"}]]}], "\[And]", RowBox[{ "\[Alpha]", "\[Equal]", "k", "\[Equal]", "l", "\[Equal]", "s", "\[Equal]", "t", "\[Equal]", "1"}], "\[And]", RowBox[{"u", "\[Equal]", "v", "\[Equal]", "2"}], "\[And]", RowBox[{ SubscriptBox["c", "1"], "\[Equal]", SubscriptBox["d", "1"], "\[Equal]", "0"}], "\[And]", RowBox[{ SubscriptBox["c", "2"], "\[Equal]", SubscriptBox["d", "2"], "\[Equal]", RowBox[{"1", "/", "2"}]}]}]}], ")"}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{"\[DoubleStruckCapitalC]\[DoubleStruckCapitalC]", "/;", RowBox[{ RowBox[{"\[Sigma]", "\[Equal]", SuperscriptBox["y", RowBox[{"-", "1"}]]}], "\[And]", "\[Omega]"}]}], "\[Rule]", RowBox[{ RowBox[{"-", "\[Omega]"}], "\[And]", RowBox[{ "\[Alpha]", "\[Equal]", "k", "\[Equal]", "l", "\[Equal]", "s", "\[Equal]", "t", "\[Equal]", "u", "\[Equal]", "v", "\[Equal]", "1"}], "\[And]", RowBox[{ SubscriptBox["c", "1"], "\[Equal]", SubscriptBox["d", "1"], "\[Equal]", "0"}]}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0094.01"] }, Closed]], Cell[CellGroupData[{ Cell["Integrals including G functions with rational arguments", \ "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ SuperscriptBox["\[Tau]", RowBox[{"\[Alpha]", "-", "1"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"\[Tau]", "+", "z"}], ")"}], "\[Beta]"]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", FractionBox[ RowBox[{"\[Omega]", SuperscriptBox[ RowBox[{"(", RowBox[{"\[Tau]", "+", "z"}], ")"}], "l"]}], SuperscriptBox["\[Tau]", "k"]]}], "]"}], RowBox[{"\[DifferentialD]", "\[Tau]"}]}]}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], SuperscriptBox["k", RowBox[{"\[Alpha]", "-", FractionBox["1", "2"]}]], SuperscriptBox["l", RowBox[{ FractionBox["1", "2"], "-", "\[Beta]"}]], SuperscriptBox["z", RowBox[{"\[Alpha]", "-", "\[Beta]"}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{"l", "-", "k"}], ")"}], RowBox[{"\[Alpha]", "-", "\[Beta]", "+", FractionBox["1", "2"]}]]], " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"], ",", FractionBox["\[Beta]", "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"\[Beta]", "+", "l", "-", "1"}], "l"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["\[Alpha]", "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"\[Alpha]", "+", "k", "-", "1"}], "k"], ",", FractionBox[ RowBox[{"\[Beta]", "-", "\[Alpha]"}], RowBox[{"l", "-", "k"}]], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"\[Beta]", "-", "\[Alpha]", "+", "l", "-", "k", "-", "1"}], RowBox[{"l", "-", "k"}]], ",", SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{ FractionBox[ RowBox[{"\[Omega]", " ", SuperscriptBox["l", "l"]}], SuperscriptBox["k", "k"]], SuperscriptBox[ RowBox[{"(", FractionBox["z", RowBox[{"l", "-", "k"}]], ")"}], RowBox[{"l", "-", "k"}]]}]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"k", "\[Element]", "Integers"}], "\[And]", RowBox[{"k", ">", "0"}], "\[And]", RowBox[{"l", "\[Element]", "Integers"}], "\[And]", RowBox[{"l", ">", "0"}], "\[And]", RowBox[{"k", "<", "l"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], ">", "0"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Arg", "[", RowBox[{"\[Omega]", " ", SuperscriptBox["z", RowBox[{"l", "-", "k"}]]}], "]"}], "]"}], "<", RowBox[{"\[Pi]", " ", SuperscriptBox["c", "*"]}]}], "\[And]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"l", "-", "k"}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"Max", "[", RowBox[{ RowBox[{"Re", "[", SubscriptBox["a", "1"], "]"}], ",", "\[Ellipsis]", ",", RowBox[{"Re", "[", SubscriptBox["a", "n"], "]"}]}], "]"}]}], ")"}]}], "+", RowBox[{"Re", "[", RowBox[{"\[Beta]", "-", "\[Alpha]"}], "]"}]}], ">", "0"}], "\[And]", RowBox[{ RowBox[{"k", "-", RowBox[{"k", " ", RowBox[{"Max", "[", RowBox[{ RowBox[{"Re", "[", SubscriptBox["a", "1"], "]"}], ",", "\[Ellipsis]", ",", RowBox[{"Re", "[", SubscriptBox["a", "n"], "]"}]}], "]"}]}], "+", RowBox[{"Re", "[", "\[Alpha]", "]"}]}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0095.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ SuperscriptBox["\[Tau]", RowBox[{"\[Alpha]", "-", "1"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"\[Tau]", "+", "z"}], ")"}], "\[Beta]"]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", FractionBox[ RowBox[{"\[Omega]", SuperscriptBox[ RowBox[{"(", RowBox[{"\[Tau]", "+", "z"}], ")"}], "l"]}], SuperscriptBox["\[Tau]", "k"]]}], "]"}], RowBox[{"\[DifferentialD]", "\[Tau]"}]}]}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], SuperscriptBox["k", RowBox[{"\[Alpha]", "-", FractionBox["1", "2"]}]], SuperscriptBox["l", RowBox[{ FractionBox["1", "2"], "-", "\[Beta]"}]], SuperscriptBox["z", RowBox[{"\[Alpha]", "-", "\[Beta]"}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{"k", "-", "l"}], ")"}], RowBox[{"\[Alpha]", "-", "\[Beta]", "+", FractionBox["1", "2"]}]]], " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"\[Alpha]", "-", "\[Beta]", "+", "1"}], RowBox[{"k", "-", "l"}]], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"\[Alpha]", "-", "\[Beta]", "+", "k", "-", "l"}], RowBox[{"k", "-", "l"}]], ",", SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"], ",", FractionBox["\[Beta]", "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"\[Beta]", "+", "l", "-", "1"}], "l"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["\[Alpha]", "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"\[Alpha]", "+", "k", "-", "1"}], "k"], ",", SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{ FractionBox[ RowBox[{"\[Omega]", " ", SuperscriptBox["l", "l"]}], SuperscriptBox["k", "k"]], SuperscriptBox[ RowBox[{"(", FractionBox["z", RowBox[{"k", "-", "l"}]], ")"}], RowBox[{"l", "-", "k"}]]}]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"k", "\[Element]", "Integers"}], "\[And]", RowBox[{"k", ">", "0"}], "\[And]", RowBox[{"l", "\[Element]", "Integers"}], "\[And]", RowBox[{"l", ">", "0"}], "\[And]", RowBox[{"k", ">", "l"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], ">", "0"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Arg", "[", RowBox[{"\[Omega]", " ", SuperscriptBox["z", RowBox[{"l", "-", "k"}]]}], "]"}], "]"}], "<", RowBox[{"\[Pi]", " ", SuperscriptBox["c", "*"]}]}], "\[And]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"k", "-", "l"}], ")"}], RowBox[{"Min", "[", RowBox[{ RowBox[{"Re", "[", SubscriptBox["b", "1"], "]"}], ",", "\[Ellipsis]", ",", RowBox[{"Re", "[", SubscriptBox["b", "m"], "]"}]}], "]"}]}], "+", RowBox[{"Re", "[", RowBox[{"\[Beta]", "-", "\[Alpha]"}], "]"}]}], ">", "0"}], "\[And]", RowBox[{ RowBox[{"k", "-", RowBox[{"k", " ", RowBox[{"Max", "[", RowBox[{ RowBox[{"Re", "[", SubscriptBox["a", "1"], "]"}], ",", "\[Ellipsis]", ",", RowBox[{"Re", "[", SubscriptBox["a", "n"], "]"}]}], "]"}]}], "+", RowBox[{"Re", "[", "\[Alpha]", "]"}]}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0096.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], RowBox[{ FractionBox[ SuperscriptBox["\[Tau]", RowBox[{"\[Alpha]", "-", "1"}]], SuperscriptBox[ RowBox[{"(", RowBox[{"\[Tau]", "+", "z"}], ")"}], "\[Beta]"]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", FractionBox[ RowBox[{"\[Omega]", SuperscriptBox[ RowBox[{"(", RowBox[{"\[Tau]", "+", "z"}], ")"}], "k"]}], SuperscriptBox["\[Tau]", "k"]]}], "]"}], RowBox[{"\[DifferentialD]", "\[Tau]"}]}]}], "\[Equal]", RowBox[{ SqrtBox[ RowBox[{"2", "\[Pi]"}]], SuperscriptBox["k", RowBox[{"\[Alpha]", "-", "\[Beta]"}]], SuperscriptBox["z", RowBox[{"\[Alpha]", "-", "\[Beta]"}]], RowBox[{"Gamma", "[", RowBox[{"\[Beta]", "-", "\[Alpha]"}], "]"}], " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"], ",", FractionBox["\[Beta]", "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"\[Beta]", "+", "k", "-", "1"}], "k"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["\[Alpha]", "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"\[Alpha]", "+", "k", "-", "1"}], "k"], ",", SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "\[Omega]"}], "]"}]}]}], "/;", RowBox[{ RowBox[{"k", "\[Element]", "Integers"}], "\[And]", RowBox[{"k", ">", "0"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], ">", "0"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Arg", "[", "\[Omega]", "]"}], "]"}], "<", RowBox[{"\[Pi]", " ", SuperscriptBox["c", "*"]}]}], "\[And]", RowBox[{ RowBox[{"Re", "[", RowBox[{"\[Beta]", "-", "\[Alpha]"}], "]"}], ">", "0"}], "\[And]", RowBox[{ RowBox[{"k", "-", RowBox[{"k", " ", RowBox[{"Max", "[", RowBox[{ RowBox[{"Re", "[", SubscriptBox["a", "1"], "]"}], ",", "\[Ellipsis]", ",", RowBox[{"Re", "[", SubscriptBox["a", "n"], "]"}]}], "]"}]}], "+", RowBox[{"Re", "[", "\[Alpha]", "]"}]}], ">", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.21.0097.01"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Integral transforms", "Section"], Cell[CellGroupData[{ Cell["Fourier cos transforms", "Subsection"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{ RowBox[{"FourierCosTransform", "[", RowBox[{ RowBox[{ SuperscriptBox["t", RowBox[{"\[Alpha]", "-", "1"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"\[Omega]", " ", SuperscriptBox["t", FractionBox[ RowBox[{"2", "l"}], "k"]]}]}], "]"}]}], ",", "t", ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["k", "\[Mu]"], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "l"}], ")"}], RowBox[{"\[Alpha]", "-", FractionBox["1", "2"]}]], SuperscriptBox["z", RowBox[{"-", "\[Alpha]"}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], RowBox[{ SuperscriptBox["c", "*"], RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}]]], " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"1", "-", RowBox[{"\[Alpha]", "/", "2"}]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", RowBox[{"\[Alpha]", "/", "2"}]}], "l"], ",", FractionBox[ SubscriptBox["a", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "n"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "n"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "p"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "p"], "+", "k", "-", "1"}], "k"], ",", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "/", "2"}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Alpha]"}], ")"}], "/", "2"}], "+", "l"}], "l"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "m"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "m"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "q"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "q"], "+", "k", "-", "1"}], "k"]}], "}"}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox["\[Omega]", "k"], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "l"}], ")"}], RowBox[{"2", "l"}]]}], RowBox[{ SuperscriptBox["z", RowBox[{"2", "l"}]], SuperscriptBox["k", RowBox[{"k", RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}]}]]}]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"k", "\[Element]", "Integers"}], "\[And]", RowBox[{"k", ">", "0"}], "\[And]", RowBox[{"l", "\[Element]", "Integers"}], "\[And]", RowBox[{"l", ">", "0"}], "\[And]", RowBox[{ RowBox[{"GCD", "[", RowBox[{"k", ",", "l"}], "]"}], "\[Equal]", "1"}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ "\[DoubleStruckCapitalC]\[DoubleStruckCapitalC]", "/;", "\[Alpha]"}], "\[Rule]", RowBox[{ FractionBox["\[Alpha]", "2"], "\[And]", RowBox[{"\[Sigma]", "\[Equal]", FractionBox[ SuperscriptBox["z", "2"], "4"]}], "\[And]", RowBox[{"s", "\[Equal]", "1"}], "\[And]", RowBox[{"t", "\[Equal]", "u", "\[Equal]", SubscriptBox["d", "1"], "\[Equal]", "0"}], "\[And]", RowBox[{"v", "\[Equal]", "2"}], "\[And]", RowBox[{ SubscriptBox["d", "2"], "\[Equal]", FractionBox["1", "2"]}]}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.22.0001.01"] }, Closed]], Cell[CellGroupData[{ Cell["Fourier sin transforms", "Subsection"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{ RowBox[{"FourierSinTransform", "[", RowBox[{ RowBox[{ SuperscriptBox["t", RowBox[{"\[Alpha]", "-", "1"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"\[Omega]", " ", SuperscriptBox["t", FractionBox[ RowBox[{"2", "l"}], "k"]]}]}], "]"}]}], ",", "t", ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["k", "\[Mu]"], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "l"}], ")"}], RowBox[{"\[Alpha]", "-", FractionBox["1", "2"]}]], SuperscriptBox["z", RowBox[{"-", "\[Alpha]"}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], RowBox[{ SuperscriptBox["c", "*"], RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}]]], " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Alpha]"}], ")"}], "/", "2"}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", "\[Alpha]"}], ")"}], "/", "2"}], "+", "l"}], "l"], ",", FractionBox[ SubscriptBox["a", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "n"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "n"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "p"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "p"], "+", "k", "-", "1"}], "k"], ",", FractionBox[ RowBox[{"1", "-", RowBox[{"\[Alpha]", "/", "2"}]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", RowBox[{"\[Alpha]", "/", "2"}]}], "l"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "m"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "m"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "q"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "q"], "+", "k", "-", "1"}], "k"]}], "}"}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox["\[Omega]", "k"], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "l"}], ")"}], RowBox[{"2", "l"}]]}], RowBox[{ SuperscriptBox["z", RowBox[{"2", "l"}]], SuperscriptBox["k", RowBox[{"k", RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}]}]]}]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"k", "\[Element]", "Integers"}], "\[And]", RowBox[{"k", ">", "0"}], "\[And]", RowBox[{"l", "\[Element]", "Integers"}], "\[And]", RowBox[{"l", ">", "0"}], "\[And]", RowBox[{ RowBox[{"GCD", "[", RowBox[{"k", ",", "l"}], "]"}], "\[Equal]", "1"}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ "\[DoubleStruckCapitalC]\[DoubleStruckCapitalC]", "/;", "\[Alpha]"}], "\[Rule]", RowBox[{ FractionBox["\[Alpha]", "2"], "\[And]", RowBox[{"\[Sigma]", "\[Equal]", FractionBox[ SuperscriptBox["z", "2"], "4"]}], "\[And]", RowBox[{"s", "\[Equal]", "1"}], "\[And]", RowBox[{"t", "\[Equal]", "u", "\[Equal]", SubscriptBox["d", "2"], "\[Equal]", "0"}], "\[And]", RowBox[{"v", "\[Equal]", "2"}], "\[And]", RowBox[{ SubscriptBox["d", "1"], "\[Equal]", FractionBox["1", "2"]}]}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.22.0002.01"] }, Closed]], Cell[CellGroupData[{ Cell["Laplace transforms", "Subsection"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{ RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{ SuperscriptBox["t", RowBox[{"\[Alpha]", "-", "1"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"\[Omega]", " ", SuperscriptBox["t", FractionBox["l", "k"]]}]}], "]"}]}], ",", "t", ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["k", "\[Mu]"], SuperscriptBox["l", RowBox[{"\[Alpha]", "-", FractionBox["1", "2"]}]], SuperscriptBox["z", RowBox[{"-", "\[Alpha]"}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], RowBox[{ RowBox[{ SuperscriptBox["c", "*"], RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}], "+", FractionBox[ RowBox[{"l", "-", "1"}], "2"]}]]], " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"1", "-", "\[Alpha]"}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", "\[Alpha]"}], "l"], ",", FractionBox[ SubscriptBox["a", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "n"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "n"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "p"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "p"], "+", "k", "-", "1"}], "k"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "m"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "m"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "q"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "q"], "+", "k", "-", "1"}], "k"]}], "}"}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox["\[Omega]", "k"], SuperscriptBox["l", "l"]}], RowBox[{ SuperscriptBox["z", "l"], SuperscriptBox["k", RowBox[{"k", RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}]}]]}]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"k", "\[Element]", "Integers"}], "\[And]", RowBox[{"k", ">", "0"}], "\[And]", RowBox[{"l", "\[Element]", "Integers"}], "\[And]", RowBox[{"l", ">", "0"}], "\[And]", RowBox[{ RowBox[{"GCD", "[", RowBox[{"k", ",", "l"}], "]"}], "\[Equal]", "1"}], "\[And]", RowBox[{"(", RowBox[{"\[DoubleStruckCapitalC]\[DoubleStruckCapitalC]", "/;", RowBox[{ RowBox[{"\[Sigma]", "\[Equal]", "z"}], "\[And]", RowBox[{"s", "\[Equal]", "v", "\[Equal]", "1"}], "\[And]", RowBox[{"t", "\[Equal]", "u", "\[Equal]", SubscriptBox["d", "1"], "\[Equal]", "0"}]}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.22.0003.01"] }, Closed]], Cell[CellGroupData[{ Cell["Mellin transforms", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MellinTransform", "[", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"\[Omega]", " ", "t"}]}], "]"}], ",", "t", ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[Omega]", RowBox[{"-", "z"}]], FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["b", "k"], "+", "z"}], "]"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "k"], "-", "z"}], "]"}], " "}]}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{ RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "+", "z"}], "]"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "k"], "-", "z"}], "]"}]}]}]}]]}]}], "/;", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["m", "2"], "+", SuperscriptBox["n", "2"]}], ">", "0"}], "\[And]", RowBox[{"\[Omega]", "\[NotEqual]", "0"}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["c", "*"], ">", "0"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Arg", "[", "\[Omega]", "]"}], "]"}], "<", RowBox[{ SuperscriptBox["c", "*"], "\[Pi]"}]}], "\[And]", RowBox[{ RowBox[{"-", RowBox[{"Min", "[", RowBox[{ RowBox[{"Re", "[", SubscriptBox["b", "1"], "]"}], ",", "\[Ellipsis]", ",", RowBox[{"Re", "[", SubscriptBox["b", "m"], "]"}]}], "]"}]}], "<", RowBox[{"Re", "[", "z", "]"}], "<", RowBox[{"1", "-", RowBox[{"Max", "[", RowBox[{ RowBox[{"Re", "[", SubscriptBox["a", "1"], "]"}], ",", "\[Ellipsis]", ",", RowBox[{"Re", "[", SubscriptBox["a", "n"], "]"}]}], "]"}]}]}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[NotEqual]", "q"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], "\[GreaterEqual]", "0"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", RowBox[{"Arg", "[", "\[Omega]", "]"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["c", "*"], "\[Pi]"}]}], "\[And]", RowBox[{ RowBox[{"-", RowBox[{"Min", "[", RowBox[{ RowBox[{"Re", "[", SubscriptBox["b", "1"], "]"}], ",", "\[Ellipsis]", ",", RowBox[{"Re", "[", SubscriptBox["b", "m"], "]"}]}], "]"}]}], "<", RowBox[{"Re", "[", "z", "]"}], "<", RowBox[{"1", "-", RowBox[{"Max", "[", RowBox[{ RowBox[{"Re", "[", SubscriptBox["a", "1"], "]"}], ",", "\[Ellipsis]", ",", RowBox[{"Re", "[", SubscriptBox["a", "n"], "]"}]}], "]"}]}]}], "\[And]", RowBox[{ RowBox[{"Re", "[", RowBox[{"\[Mu]", "+", RowBox[{ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "z"}]}], "]"}], "<", FractionBox["3", "2"]}], "\[And]", RowBox[{"\[Mu]", "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], SubscriptBox["b", "j"]}], "-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "p"], SubscriptBox["a", "j"]}], "+", FractionBox[ RowBox[{"p", "-", "q"}], "2"], "+", "1"}]}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ SuperscriptBox["c", "*"], "\[Equal]", "0"}], "\[And]", RowBox[{"\[Omega]", ">", "0"}], "\[And]", RowBox[{ RowBox[{"-", RowBox[{"Min", "[", RowBox[{ RowBox[{"Re", "[", SubscriptBox["b", "1"], "]"}], ",", "\[Ellipsis]", ",", RowBox[{"Re", "[", SubscriptBox["b", "m"], "]"}]}], "]"}]}], "<", RowBox[{"Re", "[", "z", "]"}], "<", RowBox[{"1", "-", RowBox[{"Max", "[", RowBox[{ RowBox[{"Re", "[", SubscriptBox["a", "1"], "]"}], ",", "\[Ellipsis]", ",", RowBox[{"Re", "[", SubscriptBox["a", "n"], "]"}]}], "]"}]}]}], "\[And]", RowBox[{ RowBox[{"Re", "[", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], RowBox[{"(", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["a", "j"]}], ")"}]}], "]"}], "<", "0"}]}], ")"}]}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.22.0004.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MellinTransform", "[", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"t", " ", "x"}]}], "]"}], ",", "t", ",", "z"}], "]"}], "\[Equal]", SuperscriptBox["x", RowBox[{"-", "z"}]]}], "/;", RowBox[{"x", ">", "0"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.22.0005.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MellinTransform", "[", RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["c", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["c", "t"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", RowBox[{"t", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["c", "u"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["d", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["d", "s"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["d", RowBox[{"s", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["d", "v"]}], "}"}]}], "}"}], ",", RowBox[{"\[Sigma]", " ", "\[Tau]"}]}], "]"}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"\[Omega]", " ", SuperscriptBox["\[Tau]", FractionBox["l", "k"]]}]}], "]"}]}], ",", "\[Tau]", ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["k", "\[Mu]"], SuperscriptBox["l", RowBox[{"\[Rho]", "+", RowBox[{"z", RowBox[{"(", RowBox[{"v", "-", "u"}], ")"}]}], "-", "1"}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], RowBox[{ RowBox[{ SuperscriptBox["b", "*"], RowBox[{"(", RowBox[{"l", "-", "1"}], ")"}]}], "+", RowBox[{ SuperscriptBox["c", "*"], RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}]}]]], SuperscriptBox["\[Sigma]", RowBox[{"-", "z"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["a", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "n"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "n"], "+", "k", "-", "1"}], "k"], ",", FractionBox[ RowBox[{"1", "-", "z", "-", SubscriptBox["d", "1"]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", "z", "-", SubscriptBox["d", "1"]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"1", "-", "z", "-", SubscriptBox["d", "s"]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", "z", "-", SubscriptBox["d", "s"]}], "l"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"1", "-", "z", "-", SubscriptBox["d", RowBox[{"s", "+", "1"}]]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", "z", "-", SubscriptBox["d", RowBox[{"s", "+", "1"}]]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"1", "-", "z", "-", SubscriptBox["d", "v"]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", "z", "-", SubscriptBox["d", "v"]}], "l"], ",", FractionBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "p"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "p"], "+", "k", "-", "1"}], "k"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "m"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "m"], "+", "k", "-", "1"}], "k"], ",", FractionBox[ RowBox[{"1", "-", "z", "-", SubscriptBox["c", "1"]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", "z", "-", SubscriptBox["c", "1"]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"1", "-", "z", "-", SubscriptBox["c", "t"]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", "z", "-", SubscriptBox["c", "t"]}], "l"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"1", "-", "z", "-", SubscriptBox["c", RowBox[{"t", "+", "1"}]]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", "z", "-", SubscriptBox["c", RowBox[{"t", "+", "1"}]]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"1", "-", "z", "-", SubscriptBox["c", "u"]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", "z", "-", SubscriptBox["c", "u"]}], "l"], ",", FractionBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "q"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "q"], "+", "k", "-", "1"}], "k"]}], "}"}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox["\[Omega]", "k"], SuperscriptBox["k", RowBox[{"k", RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}]}]]}], RowBox[{ SuperscriptBox["\[Sigma]", "l"], SuperscriptBox["l", RowBox[{"l", RowBox[{"(", RowBox[{"u", "-", "v"}], ")"}]}]]}]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"k", "\[Element]", "Integers"}], "\[And]", RowBox[{"k", ">", "0"}], "\[And]", RowBox[{"l", "\[Element]", "Integers"}], "\[And]", RowBox[{"l", ">", "0"}], "\[And]", RowBox[{ RowBox[{"GCD", "[", RowBox[{"k", ",", "l"}], "]"}], "\[Equal]", "1"}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ "\[DoubleStruckCapitalC]\[DoubleStruckCapitalC]", "/;", "\[Alpha]"}], "\[Rule]", "z"}], ")"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.22.0006.01"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MellinTransform", "[", RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"t", " ", "\[Omega]"}]}], "]"}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "11"], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"1", SubscriptBox["n", "1"]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{ RowBox[{"1", SubscriptBox["n", "1"]}], "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"1", SubscriptBox["p", "1"]}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "11"], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"1", SubscriptBox["m", "1"]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{ RowBox[{"1", SubscriptBox["m", "1"]}], "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"1", SubscriptBox["q", "1"]}]]}], "}"}]}], "}"}], ",", RowBox[{"t", " ", "x"}]}], "]"}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "21"], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"2", SubscriptBox["n", "2"]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{ RowBox[{"2", SubscriptBox["n", "2"]}], "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"2", SubscriptBox["p", "2"]}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "21"], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"2", SubscriptBox["m", "2"]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{ RowBox[{"2", SubscriptBox["m", "2"]}], "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"2", SubscriptBox["q", "2"]}]]}], "}"}]}], "}"}], ",", RowBox[{"t", " ", "y"}]}], "]"}]}], ",", "t", ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[Omega]", RowBox[{"-", "z"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", "z", "-", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", "z", "-", SubscriptBox["b", "m"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "z", "-", SubscriptBox["b", RowBox[{"m", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", "z", "-", SubscriptBox["b", "q"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "-", "z", "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", "z", "-", SubscriptBox["a", "n"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "-", "z", "-", SubscriptBox["a", RowBox[{"n", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "-", "z", "-", SubscriptBox["a", "p"]}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "11"], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"1", SubscriptBox["n", "1"]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{ RowBox[{"1", SubscriptBox["n", "1"]}], "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"1", SubscriptBox["p", "1"]}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "11"], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"1", SubscriptBox["m", "1"]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{ RowBox[{"1", SubscriptBox["m", "1"]}], "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"1", SubscriptBox["q", "1"]}]]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "21"], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"2", SubscriptBox["n", "2"]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{ RowBox[{"2", SubscriptBox["n", "2"]}], "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"2", SubscriptBox["p", "2"]}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "21"], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"2", SubscriptBox["m", "2"]}]]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{ RowBox[{"2", SubscriptBox["m", "2"]}], "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"2", SubscriptBox["q", "2"]}]]}], "}"}]}], "}"}]}], "}"}], ",", FractionBox["x", "\[Omega]"], ",", FractionBox["y", "\[Omega]"]}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.22.0007.01"], Cell["\<\ Remark: This relationship only holds true when the parameters satisfy certain \ well-specified restrictions. \ \>", "CommentText"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Hankel transforms", "Subsection"], Cell[BoxData[ RowBox[{ StyleBox[" ", FontFamily->"Courier"], " ", RowBox[{ RowBox[{ RowBox[{"HankelTransform", "[", RowBox[{ RowBox[{ SuperscriptBox["t", RowBox[{"\[Alpha]", "-", "1"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"\[Omega]", " ", SuperscriptBox["t", FractionBox[ RowBox[{"2", "l"}], "k"]]}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "\[Nu]"}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["k", "\[Mu]"], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "l"}], ")"}], RowBox[{"\[Alpha]", "-", FractionBox["1", "2"]}]], SuperscriptBox["z", RowBox[{"-", "\[Alpha]"}]]}], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], RowBox[{ SuperscriptBox["c", "*"], RowBox[{"(", RowBox[{"k", "-", "1"}], ")"}]}]]], " ", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"\[Alpha]", "+", "\[Nu]", "+", RowBox[{"1", "/", "2"}]}], ")"}], "/", "2"}]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", RowBox[{ RowBox[{"(", RowBox[{"\[Alpha]", "+", "\[Nu]", "+", RowBox[{"1", "/", "2"}]}], ")"}], "/", "2"}]}], "l"], ",", FractionBox[ SubscriptBox["a", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "n"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "n"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["a", "p"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["a", "p"], "+", "k", "-", "1"}], "k"], ",", FractionBox[ RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"\[Alpha]", "-", "\[Nu]", "+", RowBox[{"1", "/", "2"}]}], ")"}], "/", "2"}]}], "l"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{"l", "-", RowBox[{ RowBox[{"(", RowBox[{"\[Alpha]", "-", "\[Nu]", "+", RowBox[{"1", "/", "2"}]}], ")"}], "/", "2"}]}], "l"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", "1"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "1"], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "m"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "m"], "+", "k", "-", "1"}], "k"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], "+", "k", "-", "1"}], "k"], ",", "\[Ellipsis]", ",", FractionBox[ SubscriptBox["b", "q"], "k"], ",", "\[Ellipsis]", ",", FractionBox[ RowBox[{ SubscriptBox["b", "q"], "+", "k", "-", "1"}], "k"]}], "}"}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox["\[Omega]", "k"], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "l"}], ")"}], RowBox[{"2", "l"}]]}], RowBox[{ SuperscriptBox["z", RowBox[{"2", "l"}]], SuperscriptBox["k", RowBox[{"k", RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}]}]]}]]}], "]"}]}]}], "/;", RowBox[{ RowBox[{"k", "\[Element]", "Integers"}], "\[And]", RowBox[{"k", ">", "0"}], "\[And]", RowBox[{"l", "\[Element]", "Integers"}], "\[And]", RowBox[{"l", ">", "0"}], "\[And]", RowBox[{ RowBox[{"GCD", "[", RowBox[{"k", ",", "l"}], "]"}], "\[Equal]", "1"}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ "\[DoubleStruckCapitalC]\[DoubleStruckCapitalC]", "/;", "\[Alpha]"}], "\[Rule]", RowBox[{ FractionBox[ RowBox[{ RowBox[{"2", "\[Alpha]"}], "+", "1"}], "4"], "\[And]", RowBox[{"\[Sigma]", "\[Equal]", FractionBox[ SuperscriptBox["z", "2"], "4"]}], "\[And]", RowBox[{"s", "\[Equal]", "1"}], "\[And]", RowBox[{"t", "\[Equal]", "u", "\[Equal]", "0"}], "\[And]", RowBox[{"v", "\[Equal]", "2"}], "\[And]", RowBox[{ SubscriptBox["d", "1"], "\[Equal]", RowBox[{"-", SubscriptBox["d", "2"]}], "\[Equal]", FractionBox["\[Nu]", "2"]}]}]}], ")"}]}]}]}]], "StandardFormEquation",\ TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.22.0008.01"] }, Closed]], Cell[CellGroupData[{ Cell["Hilbert transform", "Subsection"], Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{ RowBox[{"HilbertTransform", "[", RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"\[Omega]", " ", "t"}]}], "]"}], ",", "t", ",", "x"}], "]"}], "\[Equal]", RowBox[{ RowBox[{"-", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"], ",", RowBox[{"-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"], ",", RowBox[{"-", FractionBox["1", "2"]}]}], "}"}]}], "}"}], ",", RowBox[{"\[Omega]", " ", "x"}]}], "]"}]}], "-", " ", RowBox[{ FractionBox["1", "\[Pi]"], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{ RowBox[{"-", "\[Omega]"}], " ", "x"}]}], "]"}]}]}]}], "/;", RowBox[{ RowBox[{"x", "\[Element]", "Reals"}], "\[And]", RowBox[{"(", RowBox[{"\[DoubleStruckCapitalC]\[DoubleStruckCapitalC]", "/;", RowBox[{ RowBox[{"\[Sigma]", "\[Equal]", SuperscriptBox["x", RowBox[{"-", "1"}]]}], "\[And]", RowBox[{ "\[Alpha]", "\[Equal]", "k", "\[Equal]", "l", "\[Equal]", "s", "\[Equal]", "t", "\[Equal]", "1"}], "\[And]", RowBox[{"u", "\[Equal]", "v", "\[Equal]", "2"}], "\[And]", RowBox[{ SubscriptBox["c", "1"], "\[Equal]", SubscriptBox["d", "1"], "\[Equal]", "0"}], "\[And]", RowBox[{ SubscriptBox["c", "2"], "\[Equal]", SubscriptBox["d", "2"], "\[Equal]", RowBox[{"1", "/", "2"}]}]}]}], ")"}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{"\[DoubleStruckCapitalC]\[DoubleStruckCapitalC]", "/;", RowBox[{ RowBox[{"\[Sigma]", "\[Equal]", SuperscriptBox["x", RowBox[{"-", "1"}]]}], "\[And]", "\[Omega]"}]}], "\[Rule]", RowBox[{ RowBox[{"-", "\[Omega]"}], "\[And]", RowBox[{ "\[Alpha]", "\[Equal]", "k", "\[Equal]", "l", "\[Equal]", "s", "\[Equal]", "t", "\[Equal]", "u", "\[Equal]", "v", "\[Equal]", "1"}], "\[And]", RowBox[{ SubscriptBox["c", "1"], "\[Equal]", SubscriptBox["d", "1"], "\[Equal]", "0"}]}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.22.0009.01"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Operations", "Section"], Cell[CellGroupData[{ Cell["Limit operation", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Limit", "[", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "z"}], ")"}], RowBox[{"-", SubscriptBox["\[Psi]", "q"]}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], ",", RowBox[{"z", "\[Rule]", RowBox[{"-", "1"}]}]}], "]"}], "\[Equal]", RowBox[{ RowBox[{"Gamma", "[", RowBox[{"-", SubscriptBox["\[Psi]", "q"]}], "]"}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"h", "=", "1"}], "m"], RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"\[Pi]", " ", "\[ImaginaryI]", " ", SubscriptBox["b", "h"]}]], FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"n", "+", "1"}]}], "q"], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "h"]}], " ", ")"}], "\[Pi]"}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "h"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["b", "k"], "-", SubscriptBox["b", "h"]}], " ", ")"}], "\[Pi]"}], "]"}]}], "]"}]}]]}]}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", RowBox[{"q", "+", "1"}]}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Psi]", "q"], "\[Equal]", RowBox[{"-", "\[Mu]"}], "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "j"]}], ")"}]}], "-", "1"}]}], "/;", RowBox[{"p", "\[Equal]", "q"}]}], ")"}], "\[And]", RowBox[{ RowBox[{"Re", "[", SubscriptBox["\[Psi]", "q"], "]"}], "<", "0"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ SubscriptBox["\[Psi]", "q"], ",", "Integers"}], "]"}], "]"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.25.0001.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Limit", "[", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "z"}], ")"}], RowBox[{"-", SubscriptBox["\[Psi]", "q"]}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], ",", RowBox[{"z", "\[Rule]", RowBox[{"-", "1"}]}]}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"Gamma", "[", RowBox[{"-", SubscriptBox["\[Psi]", "q"]}], "]"}], "\[Pi]"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"h", "=", "1"}], "m"], FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"n", "+", "1"}]}], "q"], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "h"]}], " ", ")"}], "\[Pi]"}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "h"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["b", "k"], "-", SubscriptBox["b", "h"]}], " ", ")"}], "\[Pi]"}], "]"}]}], "]"}]}]]}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", "q"}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Psi]", "q"], "\[Equal]", RowBox[{"-", "\[Mu]"}], "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "j"]}], ")"}]}], "-", "1"}]}], "/;", RowBox[{"p", "\[Equal]", "q"}]}], ")"}], "\[And]", RowBox[{ RowBox[{"Re", "[", SubscriptBox["\[Psi]", "q"], "]"}], "<", "0"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ SubscriptBox["\[Psi]", "q"], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.25.0002.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Limit", "[", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"z", "-", "1"}], ")"}], RowBox[{"-", SubscriptBox["\[Psi]", "q"]}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], ",", RowBox[{"z", "\[Rule]", RowBox[{"-", "1"}]}]}], "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"Gamma", "[", RowBox[{"-", SubscriptBox["\[Psi]", "q"]}], "]"}], "\[Pi]"], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"h", "=", "1"}], "n"], FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "h"], "-", SubscriptBox["b", "k"]}], " ", ")"}], "\[Pi]"}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "n"], RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "h"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "h"], "-", SubscriptBox["a", "k"]}], " ", ")"}], "\[Pi]"}], "]"}]}], "]"}]}]]}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", "q"}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Psi]", "q"], "\[Equal]", RowBox[{"-", "\[Mu]"}], "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "j"]}], ")"}]}], "-", "1"}]}], "/;", RowBox[{"p", "\[Equal]", "q"}]}], ")"}], "\[And]", RowBox[{ RowBox[{"Re", "[", SubscriptBox["\[Psi]", "q"], "]"}], "<", "0"}], "\[And]", RowBox[{"Not", "[", RowBox[{"Element", "[", RowBox[{ SubscriptBox["\[Psi]", "q"], ",", "Integers"}], "]"}], "]"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], ">", "1"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.25.0003.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Limit", "[", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"Log", "[", RowBox[{"z", "+", "1"}], "]"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "q"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}], ",", RowBox[{"z", "\[Rule]", RowBox[{"-", "1"}]}]}], "]"}], "\[Equal]", RowBox[{"-", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"h", "=", "1"}], "m"], RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"\[Pi]", " ", "\[ImaginaryI]", " ", SubscriptBox["b", "h"]}]], FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", RowBox[{"n", "+", "1"}]}], "q"], RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "h"]}], " ", ")"}], "\[Pi]"}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"k", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "h"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["b", "k"], "-", SubscriptBox["b", "h"]}], " ", ")"}], "\[Pi]"}], "]"}]}], "]"}]}]]}]}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", RowBox[{"q", "+", "1"}]}], "\[And]", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["\[Psi]", "q"], "\[Equal]", RowBox[{"-", "\[Mu]"}], "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], "q"], RowBox[{"(", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "j"]}], ")"}]}], "-", "1"}]}], "/;", RowBox[{"p", "\[Equal]", "q"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["\[Psi]", "q"], "\[Equal]", "0"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.25.0004.01"], Cell[BoxData[ RowBox[{ RowBox[{"Limit", "[", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["a", "1"]}], "]"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{"-", FractionBox["z", SubscriptBox["a", "1"]]}]}], "]"}]}], ",", RowBox[{ SubscriptBox["a", "1"], "\[Rule]", "\[Infinity]"}]}], "]"}], "\[Equal]", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.25.0005.01"], Cell[BoxData[ RowBox[{ RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"Gamma", "[", SubscriptBox["a", "p"], "]"}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", FractionBox["z", SubscriptBox["a", "p"]]}], "]"}]}], ",", RowBox[{ SubscriptBox["a", "p"], "\[Rule]", "\[Infinity]"}]}], "]"}], "\[Equal]", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", RowBox[{"p", "-", "1"}]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.25.0006.01"], Cell[BoxData[ RowBox[{ RowBox[{"Limit", "[", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"Gamma", "[", SubscriptBox["b", "1"], "]"}]], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{ SubscriptBox["b", "1"], "z"}]}], "]"}]}], ",", RowBox[{ SubscriptBox["b", "1"], "\[Rule]", "\[Infinity]"}]}], "]"}], "\[Equal]", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.25.0007.01"], Cell[BoxData[ RowBox[{ RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "q"]}], "]"}], RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", RowBox[{ RowBox[{"-", SubscriptBox["b", "q"]}], "z"}]}], "]"}]}], ",", RowBox[{ SubscriptBox["b", "q"], "\[Rule]", "\[Infinity]"}]}], "]"}], "\[Equal]", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", RowBox[{"q", "-", "1"}]]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.25.0008.01"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Representations through more general functions", "Section"], Cell[CellGroupData[{ Cell["Through hypergeometric functions", "Subsection"], Cell["\<\ Hypergeometric functions are not more general than Meijer G function.\ \>", "Text"], Cell[CellGroupData[{ Cell[TextData[{ "Involving ", StyleBox["HypergeometricPFQRegularized", "Program"], " " }], "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"m", "-", "1"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "j"]}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], ")"}]}], "]"}]}], "]"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}]}]}]], SuperscriptBox["z", SubscriptBox["b", "k"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "p"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "-", "1"}]]}], ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "q"]}]}], "}"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " ", "z"}]}], "]"}]}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"p", "<", "q"}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], ">", "p"}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", "p"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "m"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "m"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.26.0001.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"n", "-", "1"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "j"], "-", SubscriptBox["a", "k"]}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["a", "j"]}], ")"}]}], "]"}]}], "]"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "j"]}], "]"}]}]}]}]], " ", SuperscriptBox["z", RowBox[{ SubscriptBox["a", "k"], "-", "1"}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "q"], "-", SubscriptBox["a", "k"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", RowBox[{"k", "-", "1"}]], "-", SubscriptBox["a", "k"]}], ",", RowBox[{"1", "+", SubscriptBox["a", RowBox[{"k", "+", "1"}]], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", "p"], "-", SubscriptBox["a", "k"]}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], " "}], "z"]}], "]"}]}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"p", ">", "q"}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", RowBox[{"p", "+", "1"}]}], "\[And]", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", " ", "z"}], "]"}], "]"}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], ">", RowBox[{"p", "+", "1"}]}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", "p"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], ">", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "n"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "n"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.26.0002.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "p"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"m", "-", "1"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "j"]}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], ")"}]}], "]"}]}], "]"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}]}]}]], SuperscriptBox["z", SubscriptBox["b", "k"]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "p"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "-", "1"}]]}], ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "p"]}]}], "}"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " ", "z"}]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}]}], "+", RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"n", "-", "1"}]], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "j"], "-", SubscriptBox["a", "k"]}], "]"}]}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Sin", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["a", "j"]}], ")"}]}], "]"}]}], "]"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "j"]}], "]"}]}]}]}]], " ", SuperscriptBox["z", RowBox[{ SubscriptBox["a", "k"], "-", "1"}]], RowBox[{"HypergeometricPFQRegularized", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "p"], "-", SubscriptBox["a", "k"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", RowBox[{"k", "-", "1"}]], "-", SubscriptBox["a", "k"]}], ",", RowBox[{"1", "+", SubscriptBox["a", RowBox[{"k", "+", "1"}]], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", "p"], "-", SubscriptBox["a", "k"]}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " "}], "z"]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}]}]}]}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", "p"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "m"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "m"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "n"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "n"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.26.0003.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Involving ", StyleBox["HypergeometricPFQ", "Program"], " " }], "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}], "]"}]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "j"]}], "]"}], " "}]}], RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}], " ", ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "j"], "+", SubscriptBox["b", "k"]}], "]"}]}]}]], SuperscriptBox["z", SubscriptBox["b", "k"]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "p"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "-", "1"}]]}], ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "q"]}]}], "}"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " ", "z"}]}], "]"}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"p", "<", "q"}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], ">", "p"}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", "p"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "<", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "m"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "m"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.26.0004.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["a", "j"]}], "]"}]}], "]"}]}], ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "j"], "-", SubscriptBox["a", "k"]}], "]"}], " "}]}], RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "q"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "j"]}], "]"}]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "]"}]}]}]], SuperscriptBox["z", RowBox[{ SubscriptBox["a", "k"], "-", "1"}]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "q"], "-", SubscriptBox["a", "k"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", RowBox[{"k", "-", "1"}]], "-", SubscriptBox["a", "k"]}], ",", RowBox[{"1", "+", SubscriptBox["a", RowBox[{"k", "+", "1"}]], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", "p"], "-", SubscriptBox["a", "k"]}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"q", "-", "m", "-", "n"}]], " "}], "z"]}], "]"}]}]}]}], "/;", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"p", ">", "q"}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", RowBox[{"p", "+", "1"}]}], "\[And]", RowBox[{"Not", "[", RowBox[{"IntervalMemberQ", "[", RowBox[{ RowBox[{"Interval", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], ",", " ", "z"}], "]"}], "]"}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], ">", RowBox[{"p", "+", "1"}]}]}], ")"}], "\[Or]", RowBox[{"(", RowBox[{ RowBox[{"p", "\[Equal]", "q"}], "\[And]", RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", "p"}], "\[And]", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], ">", "1"}]}], ")"}]}], ")"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "n"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "n"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.26.0005.01"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "p"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "m"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}], "]"}]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "j"]}], "]"}], " "}]}], RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["b", "k"]}], "]"}]}], " ", ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{"1", "-", SubscriptBox["b", "j"], "+", SubscriptBox["b", "k"]}], "]"}]}]}]], SuperscriptBox["z", SubscriptBox["b", "k"]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["a", "p"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "1"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "-", "1"}]]}], ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", RowBox[{"k", "+", "1"}]]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "k"], "-", SubscriptBox["b", "p"]}]}], "}"}], ",", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " ", "z"}]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{"1", "-", RowBox[{"Abs", "[", "z", "]"}]}], "]"}]}]}], "+", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "n"], RowBox[{"If", "[", RowBox[{ RowBox[{"j", "\[Equal]", "k"}], ",", "1", ",", RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["a", "j"]}], "]"}]}], "]"}]}], ")"}], RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", "1"}], "m"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["b", "j"], "-", SubscriptBox["a", "k"]}], "]"}], " "}]}], RowBox[{ RowBox[{"(", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"m", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{ SubscriptBox["a", "k"], "-", SubscriptBox["b", "j"]}], "]"}]}], ")"}], " ", RowBox[{ UnderoverscriptBox["\[Product]", RowBox[{"j", "=", RowBox[{"n", "+", "1"}]}], "p"], RowBox[{"Gamma", "[", RowBox[{"1", "+", SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "]"}]}]}]], SuperscriptBox["z", RowBox[{ SubscriptBox["a", "k"], "-", "1"}]], RowBox[{"HypergeometricPFQ", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["b", "1"], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["b", "p"], "-", SubscriptBox["a", "k"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", SubscriptBox["a", "1"], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", RowBox[{"k", "-", "1"}]], "-", SubscriptBox["a", "k"]}], ",", RowBox[{"1", "+", SubscriptBox["a", RowBox[{"k", "+", "1"}]], "-", SubscriptBox["a", "k"]}], ",", "\[Ellipsis]", ",", RowBox[{"1", "+", SubscriptBox["a", "p"], "-", SubscriptBox["a", "k"]}]}], "}"}], ",", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"p", "-", "m", "-", "n"}]], " "}], "z"]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"Abs", "[", "z", "]"}], "-", "1"}], "]"}]}]}]}]}], "/;", RowBox[{ RowBox[{ RowBox[{"m", "+", "n"}], "\[Equal]", "p"}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "m"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "m"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["b", "j"], "-", SubscriptBox["b", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}], "\[And]", RowBox[{ SubscriptBox["\[ForAll]", RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"j", ",", "k"}], "}"}], "\[Element]", "Integers"}], "\[And]", RowBox[{"j", "\[NotEqual]", "k"}], "\[And]", RowBox[{"1", "\[LessEqual]", "j", "\[LessEqual]", "n"}], "\[And]", RowBox[{"1", "\[LessEqual]", "k", "\[LessEqual]", "n"}]}]}]], RowBox[{"(", "\[InvisibleSpace]", RowBox[{"!", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["a", "j"], "-", SubscriptBox["a", "k"]}], "\[Element]", "Integers"}], ")"}]}], ")"}]}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.26.0006.01"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Through G function of two variables", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], RowBox[{"DiracDelta", "[", RowBox[{"x", "-", "1"}], "]"}]}], "\[Equal]", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "}"}]}], "}"}], ",", "z", ",", "x"}], "]"}]}], "/;", RowBox[{"x", ">", RowBox[{"-", "1"}]}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.26.0007.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Through Fox ", StyleBox["H", FontSlant->"Italic"] }], "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"FoxH", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "1"}], "}"}], ",", "\[Ellipsis]", ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "n"], ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "1"}], "}"}], ",", "\[Ellipsis]", ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "p"], ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "1"}], "}"}], ",", "\[Ellipsis]", ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "m"], ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "1"}], "}"}], ",", "\[Ellipsis]", ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "q"], ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", "z"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.26.0008.01"] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Through Meijer ", StyleBox["G", FontSlant->"Italic"] }], "Subsection"], Cell[CellGroupData[{ Cell["Generalized cases", "Subsubsection"], Cell[BoxData[ RowBox[{ RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z"}], "]"}], "\[Equal]", RowBox[{"MeijerG", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["a", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"n", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["a", "p"]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "\[Ellipsis]", ",", SubscriptBox["b", "m"]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"m", "+", "1"}]], ",", "\[Ellipsis]", ",", SubscriptBox["b", "q"]}], "}"}]}], "}"}], ",", "z", ",", "1"}], "]"}]}]], "StandardFormEquation", TaggingRules:>"from www.functions.wolfram.com", CellLabel->"07.34.26.0009.01"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Theorems", "Section"], Cell[CellGroupData[{ Cell["The Wigner distribution function for the Liouville potential", \ "Subsection"], Cell[TextData[{ "The Wigner distribution function ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["f", "\[CurlyEpsilon]"], "(", RowBox[{"x", ",", "p"}], ")"}], TraditionalForm]]], " for the Liouville potential with Hamiltonian ", Cell[BoxData[ FormBox[ RowBox[{"H", "\[Equal]", RowBox[{ SuperscriptBox["p", "2"], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", "x"}]]}]}], TraditionalForm]]], " at the energy \[CurlyEpsilon] can be expressed as" }], "Text"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["f", "\[CurlyEpsilon]"], "(", RowBox[{"x", ",", "p"}], ")"}], "\[Equal]", RowBox[{ FractionBox["1", RowBox[{"4", SuperscriptBox["\[Pi]", "3"]}]], RowBox[{"sin", "(", RowBox[{"\[Pi]", SqrtBox["\[CurlyEpsilon]"]}], ")"}], SuperscriptBox["2", RowBox[{"2", "\[ImaginaryI]", " ", "p"}]], SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "x"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", "\[ImaginaryI]", " ", "p"}]}], ")"}]}]], RowBox[{ RowBox[{ SubsuperscriptBox["G", RowBox[{"0", " ", "4"}], RowBox[{"4", " ", "0"}]], "(", RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{"4", "x"}]], "16"], "|", FractionBox[ RowBox[{"1", "+", RowBox[{"2", "\[ImaginaryI]", SqrtBox["\[CurlyEpsilon]"]}]}], "4"]}], ",", FractionBox[ RowBox[{"1", "-", RowBox[{"2", "\[ImaginaryI]", SqrtBox["\[CurlyEpsilon]"]}]}], "4"], ",", FractionBox[ RowBox[{"1", "+", RowBox[{"2", "\[ImaginaryI]", SqrtBox["\[CurlyEpsilon]"]}], "+", RowBox[{"4", "\[ImaginaryI]", " ", "p"}]}], "4"], ",", FractionBox[ RowBox[{"1", "-", RowBox[{"2", "\[ImaginaryI]", SqrtBox["\[CurlyEpsilon]"]}], "+", RowBox[{"4", "\[ImaginaryI]", " ", "p"}]}], "4"]}], ")"}], "."}]}]}], TraditionalForm]], "DisplayFormula"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["History", "Section"], Cell["\<\ S. Pincherle (1888); E.W. Barnes (1907, 1908); H. Mellin (1910); E.T. Whittaker and G.N. Watson (1927); A.L. Dixon and W.L.Ferrar (1936); C.S. \ Meijer (1936, 1941\[Dash]1956); L.J. Slater (1966); Y.L. Luke (1969); A.M. Mathai and R.K. Saxena (1973); O.I. Marichev (1978); A.P. Prudnikov, Y.A. Brychkov and O.I. Marichev (1986). \ \>", "Text"] }, Closed]], Cell[CellGroupData[{ Cell["Copyright", "Section", PageBreakAbove->True], Cell[TextData[{ "This document was downloaded from ", ButtonBox["functions.wolfram.com", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://functions.wolfram.com"], None}, ButtonNote->"functions.wolfram.com"], ", a comprehensive online compendium of formulas involving the special \ functions of mathematics. For a key to the notations used here, see ", ButtonBox["http://functions.wolfram.com/Notations/", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://functions.wolfram.com/Notations/"], None}, ButtonNote->"Web site address"], ".\n\nPlease cite this document by referring to the functions.wolfram.com \ page from which it was downloaded, for example: \n\t", ButtonBox["http://functions.wolfram.com/Constants/E/", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://functions.wolfram.com/Constants/E/"], None}], "\n\nTo refer to a particular formula, cite functions.wolfram.com followed \ by the citation number.\n\t", StyleBox["e.g.", FontSlant->"Italic"], ": ", ButtonBox["http://functions.wolfram.com/01.03.03.0001.01", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://functions.wolfram.com/01.03.03.0001.01"], None}, ButtonNote->"Citation Example"], "\n\nThis document is currently in a preliminary form. If you have comments \ or suggestions, please email ", ButtonBox["comments@functions.wolfram.com", BaseStyle->"Hyperlink", ButtonData:>{ URL["mailto:comments@functions.wolfram.com"], None}], ".\n\n\[Copyright] 2001-2008, Wolfram Research, Inc.\n" }], "CitationInfo"] }, Open ]] }, WindowSize->{715, 641}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, CellLabelAutoDelete->False, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (January 10, 2008)", StyleDefinitions->Notebook[{ Cell[ CellGroupData[{ Cell["Style Definitions", "Subtitle"], Cell[ "Modify the definitions below to change the default appearance of all \ cells in a given style. Make modifications to any definition using commands \ in the Format menu.", "Text"], Cell[ CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[ StyleData[All, "Working"], PageWidth -> WindowWidth, CellLabelMargins -> {{36, Inherited}, {Inherited, Inherited}}, ScriptMinSize -> 9], Cell[ StyleData[All, "Printout"], PageWidth -> PaperWidth, ShowCellBracket -> False, CellLabelMargins -> {{24, Inherited}, {Inherited, Inherited}}, ScriptMinSize -> 5, PrivateFontOptions -> {"FontType" -> "Outline"}]}, Closed]], Cell[ CellGroupData[{ Cell["Notebook Options", "Section"], Cell[ "The options defined for the style below will be used at the \ Notebook level.", "Text"], Cell[ StyleData["Notebook"], PageHeaders -> {{ Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"], None, Cell[ TextData[{ ValueBox["FileName"]}], "Header"]}, { Cell[ TextData[{"http://functions.wolfram.com"}], "Header"], None, Cell[ TextData[{ CounterBox["Page"]}], "PageNumber"]}}, PrintingOptions -> { "FirstPageFooter" -> False, "FirstPageHeader" -> False}, CellFrameLabelMargins -> 6, StyleMenuListing -> None]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Headings", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Title"], CellMargins -> {{12, Inherited}, {20, 40}}, CellGroupingRules -> {"TitleGrouping", 0}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica"}, LineSpacing -> {1, 11}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Title", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subtitle", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", FontSize -> 36, FontWeight -> "Bold"], Cell[ StyleData["Title", "Printout"], CellMargins -> {{2, 10}, {12, 30}}, FontSize -> 24]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subtitle"], CellMargins -> {{36, Inherited}, {8, 35}}, CellGroupingRules -> {"SectionGrouping", 30}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica"}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", FontSize -> 36, FontWeight -> "Bold"], Cell[ StyleData["Subtitle", "Printout"], CellMargins -> {{12, 10}, {6, 24}}, FontSize -> 20]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["GraphicsTitle"], CellMargins -> {{36, Inherited}, {8, 35}}, CellGroupingRules -> {"SectionGrouping", 30}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica"}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "GraphicsTitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}, {"Subsubtitle", 0}}, FontFamily -> "Helvetica", FontSize -> 36, FontWeight -> "Bold"], Cell[ StyleData["GraphicsTitle", "Printout"], CellMargins -> {{12, 10}, {6, 24}}, FontSize -> 20]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubtitle"], CellMargins -> {{12, Inherited}, {20, 15}}, CellGroupingRules -> {"TitleGrouping", 20}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica"}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsubtitle", CounterAssignments -> {{"Section", 0}, {"Equation", 0}, { "Figure", 0}}, FontFamily -> "Helvetica", FontSize -> 14, FontSlant -> "Italic"], Cell[ StyleData["Subsubtitle", "Printout"], CellMargins -> {{2, 10}, {12, 8}}, FontSize -> 14]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Section"], CellFrame -> {{0, 0}, {0.5, 0}}, ShowGroupOpener -> True, CellMargins -> {{36, Inherited}, {8, 30}}, CellGroupingRules -> {"SectionGrouping", 30}, PageBreakBelow -> False, CellFrameMargins -> {{Inherited, Inherited}, { 2, Inherited}}, CellFrameColor -> GrayLevel[0.6], DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica"}, LineSpacing -> {1, 7}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Section", CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 18, FontWeight -> "Plain"], Cell[ StyleData["Section", "Printout"], CellFrame -> {{0, 0}, {0.5, 0}}, ShowGroupOpener -> False, CellMargins -> {{24, 0}, {3, 18}}, CellFrameMargins -> {{Inherited, Inherited}, {0, Inherited}}, FontSize -> 13, FontWeight -> "Bold"]}, Open]], Cell[ CellGroupData[{ Cell[ StyleData["IntroductionSection"], CellFrame -> {{0, 0}, {0.5, 0}}, ShowGroupOpener -> True, CellMargins -> {{36, Inherited}, {8, 30}}, CellGroupingRules -> {"SectionGrouping", 30}, PageBreakBelow -> False, CellFrameMargins -> {{Inherited, Inherited}, { 2, Inherited}}, CellFrameColor -> GrayLevel[0.6], DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica"}, LineSpacing -> {1, 7}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "IntroductionSection", CounterAssignments -> {{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 18, FontWeight -> "Plain"], Cell[ StyleData["IntroductionSection", "Printout"], CellFrame -> {{0, 0}, {0.5, 0}}, ShowGroupOpener -> False, CellMargins -> {{24, 0}, {3, 18}}, CellFrameMargins -> {{Inherited, Inherited}, {0, Inherited}}, FontSize -> 13, FontWeight -> "Bold"]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsection"], ShowGroupOpener -> True, CellMargins -> {{48, Inherited}, {8, 20}}, CellGroupingRules -> {"SectionGrouping", 40}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica"}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsection", CounterAssignments -> {{"Subsubsection", 0}}, FontFamily -> "Helvetica", FontSize -> 14, FontWeight -> "Bold"], Cell[ StyleData["Subsection", "Printout"], ShowGroupOpener -> False, CellMargins -> {{30, 0}, {3, 12}}, FontSize -> 11]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsubsection"], ShowGroupOpener -> True, CellMargins -> {{60, Inherited}, {8, 10}}, CellGroupingRules -> {"SectionGrouping", 50}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica"}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsubsection", FontFamily -> "Times", FontSize -> 14, FontWeight -> "Bold", FontColor -> RGBColor[0.2, 0.0999924, 0.2]], Cell[ StyleData["Subsubsection", "Printout"], ShowGroupOpener -> False, CellMargins -> {{36, 0}, {3, 6}}, FontSize -> 10]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Body Text", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["Text"], CellMargins -> {{68, 10}, {7, 7}}, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica"}, Hyphenation -> True, LineSpacing -> {1, 3}, CounterIncrements -> "Text"], Cell[ StyleData["Text", "Printout"], CellMargins -> {{36, 2}, {6, 6}}, TextJustification -> 0.5, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["CommentText"], CellMargins -> {{68, 10}, {7, 7}}, CellGroupingRules -> "OutputGrouping", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica"}, Hyphenation -> True, LineSpacing -> {1, 3}, CounterIncrements -> "CommentText"], Cell[ StyleData["CommentText", "Printout"], CellMargins -> {{36, 2}, {6, 6}}, TextJustification -> 0.5, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TextHeader"], CellMargins -> {{68, 10}, {7, 7}}, InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica"}, Hyphenation -> True, LineSpacing -> {1, 3}, CounterIncrements -> "Text"], Cell[ StyleData["TextHeader", "Printout"], CellMargins -> {{36, 2}, {6, 6}}, TextJustification -> 0.5, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["PrivateCommentText"], CellMargins -> {{68, 10}, {7, 7}}, CellGroupingRules -> "OutputGrouping", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica"}, Hyphenation -> True, LineSpacing -> {1, 3}, CounterIncrements -> "PrivateCommentText"], Cell[ StyleData["PrivateCommentText", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 0.5, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["EquationText"], CellMargins -> {{68, 10}, {7, 7}}, Hyphenation -> True, LineSpacing -> {1, 3}, CounterIncrements -> "Text"], Cell[ StyleData["EquationText", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 0.5, FontSize -> 10], Cell[ StyleData["EquationText", "WebSite"], CellMargins -> {{60, 10}, {7, 7}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsection3"], ShowGroupOpener -> True, CellMargins -> {{72, Inherited}, {8, 22}}, CellGroupingRules -> {"SectionGrouping", 60}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsubsection", FontFamily -> "Helvetica", FontSize -> 12, FontWeight -> "Bold", FontSlant -> "Plain", FontColor -> RGBColor[0.4, 0.349996, 0.249989]], Cell[ StyleData["Subsection3", "Printout"], CellMargins -> {{2, 0}, {7, 14}}, FontSize -> 11], Cell[ StyleData["Subsection3", "WebSite"], ShowGroupOpener -> True, CellMargins -> {{45, Inherited}, {8, 10}}, FontColor -> GrayLevel[0.300008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsection4"], ShowGroupOpener -> True, CellMargins -> {{84, Inherited}, {6, 18}}, CellGroupingRules -> {"SectionGrouping", 70}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsection4", FontFamily -> "Times", FontSize -> 14, FontWeight -> "Plain", FontSlant -> "Plain", FontColor -> RGBColor[0.299992, 0.0999924, 0]], Cell[ StyleData["Subsection4", "Printout"], CellMargins -> {{2, 0}, {7, 14}}, FontSize -> 11], Cell[ StyleData["Subsection4", "WebSite"], ShowGroupOpener -> True, CellMargins -> {{60, Inherited}, {8, 10}}, FontColor -> GrayLevel[0.300008]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Subsection5"], ShowGroupOpener -> True, CellMargins -> {{96, Inherited}, {4, 18}}, CellGroupingRules -> {"SectionGrouping", 80}, PageBreakBelow -> False, DefaultNewInlineCellStyle -> "None", LanguageCategory -> "NaturalLanguage", CounterIncrements -> "Subsection5", FontFamily -> "Helvetica", FontSize -> 12, FontWeight -> "Bold", FontSlant -> "Plain", FontColor -> RGBColor[0.499992, 0.349996, 0.349996]], Cell[ StyleData["Subsection5", "Printout"], CellMargins -> {{2, 0}, {7, 14}}, FontSize -> 11], Cell[ StyleData["Subsection5", "WebSite"], ShowGroupOpener -> True, CellMargins -> {{60, Inherited}, {8, 10}}, FontColor -> GrayLevel[0.300008]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Input/Output", "Section"], 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. Some attributes for these styles are actually set in FormatType Styles \ (in the last section of this stylesheet). ", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["Input"], CellMargins -> {{45, 10}, {5, 7}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, DefaultFormatType -> DefaultInputFormatType, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Formula", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", FontWeight -> "Bold"], Cell[ StyleData["Input", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["StandardFormEquation"], CellMargins -> {{68, 10}, {5, 7}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, CellLabelMargins -> {{68, Inherited}, {Inherited, Inherited}}, DefaultFormatType -> DefaultInputFormatType, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Formula", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", FontWeight -> "Plain"], Cell[ StyleData["StandardFormEquation", "Printout"], CellMargins -> {{36, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TraditionalFormEquation"], CellMargins -> {{68, 10}, {5, 7}}, Evaluatable -> True, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, CellLabelMargins -> {{68, Inherited}, {Inherited, Inherited}}, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Formula", FormatType -> TraditionalForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", FontWeight -> "Plain"], Cell[ StyleData["TraditionalFormEquation", "Printout"], CellMargins -> {{36, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Closed]], Cell[ StyleData["InputOnly"], Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, DefaultFormatType -> DefaultInputFormatType, HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Formula", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ CellGroupData[{ Cell[ StyleData["Output"], CellMargins -> {{47, 10}, {7, 5}}, CellEditDuplicate -> True, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, DefaultFormatType -> DefaultOutputFormatType, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Formula", FormatType -> InputForm, CounterIncrements -> "Output"], Cell[ StyleData["Output", "Printout"], CellMargins -> {{39, 0}, {6, 4}}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Message"], CellMargins -> {{45, Inherited}, {Inherited, Inherited}}, CellGroupingRules -> "OutputGrouping", PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, DefaultFormatType -> DefaultOutputFormatType, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, FormatType -> InputForm, CounterIncrements -> "Message", StyleMenuListing -> None, FontSize -> 11, FontColor -> RGBColor[0, 0, 1]], Cell[ StyleData["Message", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}, FontSize -> 7, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Print"], CellMargins -> {{45, Inherited}, {Inherited, Inherited}}, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, DefaultFormatType -> DefaultOutputFormatType, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, FormatType -> InputForm, CounterIncrements -> "Print", StyleMenuListing -> None], Cell[ StyleData["Print", "Printout"], CellMargins -> {{39, Inherited}, {Inherited, Inherited}}, FontSize -> 8]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Graphics"], CellMargins -> {{4, Inherited}, {Inherited, Inherited}}, CellGroupingRules -> "GraphicsGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GeneratedCell -> True, CellAutoOverwrite -> True, ShowCellLabel -> False, DefaultFormatType -> DefaultOutputFormatType, LanguageCategory -> None, FormatType -> InputForm, CounterIncrements -> "Graphics", ImageMargins -> {{43, Inherited}, {Inherited, 0}}, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 10], Cell[ StyleData["Graphics", "Printout"], ImageMargins -> {{30, Inherited}, {Inherited, 0}}, Magnification -> 0.7]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["CellLabel"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 9, FontColor -> RGBColor[0.6, 0.2, 0]], Cell[ StyleData["CellLabel", "Printout"], FontSize -> 7]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["StandardFormEquationHeader"], CellMargins -> {{68, 10}, {5, 7}}, Evaluatable -> True, CellGroupingRules -> "InputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, DefaultFormatType -> DefaultInputFormatType, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Formula", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", FontWeight -> "Plain"], Cell[ StyleData["StandardFormEquationHeader", "Printout"], CellMargins -> {{36, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TraditionalFormEquationHeader"], CellMargins -> {{68, 10}, {5, 7}}, Evaluatable -> True, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Formula", FormatType -> TraditionalForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", FontWeight -> "Plain"], Cell[ StyleData["TraditionalFormEquationHeader", "Printout"], CellMargins -> {{36, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Inline Formatting", "Section"], Cell[ "These styles are for modifying individual words or letters in a \ cell exclusive of the cell tag.", "Text"], Cell[ StyleData["RM"], StyleMenuListing -> None, FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["BF"], StyleMenuListing -> None, FontWeight -> "Bold"], Cell[ StyleData["IT"], StyleMenuListing -> None, FontSlant -> "Italic"], Cell[ StyleData["TR"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["TI"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["TB"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Bold", FontSlant -> "Plain"], Cell[ StyleData["TBI"], StyleMenuListing -> None, FontFamily -> "Times", FontWeight -> "Bold", FontSlant -> "Italic"], Cell[ StyleData["MR"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["MO"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["MB"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Bold", FontSlant -> "Plain"], Cell[ StyleData["MBO"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, StyleMenuListing -> None, FontFamily -> "Courier", FontWeight -> "Bold", FontSlant -> "Italic"], Cell[ StyleData["SR"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Plain", FontSlant -> "Plain"], Cell[ StyleData["SO"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["SB"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Bold", FontSlant -> "Plain"], Cell[ StyleData["SBO"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontWeight -> "Bold", FontSlant -> "Italic"], Cell[ CellGroupData[{ Cell[ StyleData["SO10"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 10, FontWeight -> "Plain", FontSlant -> "Italic"], Cell[ StyleData["SO10", "Printout"], StyleMenuListing -> None, FontFamily -> "Helvetica", FontSize -> 7, FontWeight -> "Plain", FontSlant -> "Italic"]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Formulas and Programming", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["InlineFormula"], CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", ScriptLevel -> 1, SingleLetterItalics -> True], Cell[ StyleData["InlineFormula", "Printout"], CellMargins -> {{2, 0}, {6, 6}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["DisplayFormula"], CellMargins -> {{56, Inherited}, {Inherited, Inherited}}, CellHorizontalScrolling -> True, DefaultFormatType -> DefaultInputFormatType, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", ScriptLevel -> 0, SingleLetterItalics -> True, UnderoverscriptBoxOptions -> {LimitsPositioning -> True}], Cell[ StyleData["DisplayFormula", "Printout"], CellMargins -> {{36, Inherited}, {Inherited, Inherited}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Program"], CellFrame -> {{0, 0}, {0.5, 0.5}}, CellMargins -> {{10, 4}, {0, 8}}, CellHorizontalScrolling -> True, Hyphenation -> False, LanguageCategory -> "Formula", ScriptLevel -> 1, FontFamily -> "Courier"], Cell[ StyleData["Program", "Printout"], CellMargins -> {{2, 0}, {6, 6}}, FontSize -> 9]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Hyperlink Styles", "Section"], Cell[ "The cells below define styles useful for making hypertext \ ButtonBoxes. The \"Hyperlink\" style is for links within the same Notebook, \ or between Notebooks.", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["Hyperlink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0.6, 0.2, 0], ButtonBoxOptions -> { Active -> True, ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookLocate[#2]}]& ), ButtonNote -> ButtonData}], Cell[ StyleData["Hyperlink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ "The following styles are for linking automatically to the on-line \ help system.", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["MainBookLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0.6, 0.2, 0], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["MainBook", #]}]& )}], Cell[ StyleData["MainBookLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["AddOnsLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontFamily -> "Courier", FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0.6, 0.2, 0], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["AddOns", #]}]& )}], Cell[ StyleData["AddOnsLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["RefGuideLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontFamily -> "Courier", FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0.6, 0.2, 0], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["RefGuide", #]}]& )}], Cell[ StyleData["RefGuideLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["GettingStartedLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0.6, 0.2, 0], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["GettingStarted", #]}]& )}], Cell[ StyleData["GettingStartedLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["OtherInformationLink"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, FontVariations -> {"Underline" -> True}, FontColor -> RGBColor[0.6, 0.2, 0], ButtonBoxOptions -> { Active -> True, ButtonFrame -> "None", ButtonFunction :> (FrontEndExecute[{ FrontEnd`HelpBrowserLookup["OtherInformation", #]}]& )}], Cell[ StyleData["OtherInformationLink", "Printout"], FontSize -> 10, FontVariations -> {"Underline" -> False}, FontColor -> GrayLevel[0]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["Styles for Headers and Footers", "Section"], Cell[ StyleData["Header"], CellMargins -> {{0, 0}, {4, 1}}, DefaultNewInlineCellStyle -> "None", LanguageCategory -> "NaturalLanguage", StyleMenuListing -> None, FontSize -> 10, FontSlant -> "Italic"], Cell[ StyleData["Footer"], CellMargins -> {{0, 0}, {0, 4}}, DefaultNewInlineCellStyle -> "None", LanguageCategory -> "NaturalLanguage", StyleMenuListing -> None, FontSize -> 9, FontSlant -> "Italic"], Cell[ StyleData["PageNumber"], CellMargins -> {{0, 0}, {4, 1}}, StyleMenuListing -> None, FontFamily -> "Times", FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell["Palette Styles", "Section"], Cell[ "The cells below define styles that define standard ButtonFunctions, \ for use in palette buttons.", "Text"], Cell[ StyleData["Paste"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, After]}]& )}], Cell[ StyleData["Evaluate"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], SelectionEvaluate[ FrontEnd`InputNotebook[], All]}]& )}], Cell[ StyleData["EvaluateCell"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionMove[ FrontEnd`InputNotebook[], All, Cell, 1], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[], All]}]& )}], Cell[ StyleData["CopyEvaluate"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionEvaluate[ FrontEnd`InputNotebook[], All]}]& )}], Cell[ StyleData["CopyEvaluateCell"], StyleMenuListing -> None, ButtonStyleMenuListing -> Automatic, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ FrontEnd`SelectionCreateCell[ FrontEnd`InputNotebook[], All], FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, All], FrontEnd`SelectionEvaluateCreateCell[ FrontEnd`InputNotebook[], All]}]& )}]}, Closed]], Cell[ CellGroupData[{ Cell["Placeholder Styles", "Section"], Cell[ "The cells below define styles useful for making placeholder objects \ in palette templates.", "Text"], Cell[ CellGroupData[{ Cell[ StyleData["Placeholder"], Placeholder -> True, StyleMenuListing -> None, FontSlant -> "Italic", FontColor -> RGBColor[0.890623, 0.864698, 0.384756], TagBoxOptions -> { Editable -> False, Selectable -> False, StripWrapperBoxes -> False}], Cell[ StyleData["Placeholder", "Printout"]], Cell[ StyleData["PrimaryPlaceholder", "Printout"]]}, Closed]]}, Closed]], Cell[ CellGroupData[{ Cell["FormatType Styles", "Section"], Cell[ "The cells below define styles that are mixed in with the styles of \ most cells. If a cell's FormatType matches the name of one of the styles \ defined below, then that style is applied between the cell's style and its \ own options. This is particularly true of Input and Output.", "Text"], Cell[ StyleData["CellExpression"], PageWidth -> DirectedInfinity[1], CellMargins -> {{6, Inherited}, {Inherited, Inherited}}, ShowCellLabel -> False, ShowSpecialCharacters -> False, AllowInlineCells -> False, Hyphenation -> False, AutoItalicWords -> {}, StyleMenuListing -> None, FontFamily -> "Courier", FontSize -> 12, Background -> GrayLevel[1]], Cell[ StyleData["InputForm"], InputAutoReplacements -> {}, AllowInlineCells -> False, Hyphenation -> False, StyleMenuListing -> None, FontFamily -> "Courier"], Cell[ StyleData["OutputForm"], PageWidth -> DirectedInfinity[1], TextAlignment -> Left, LineSpacing -> {0.6, 1}, StyleMenuListing -> None, FontFamily -> "Courier"], Cell[ StyleData["StandardForm"], InputAutoReplacements -> { "->" -> "\[Rule]", ":>" -> "\[RuleDelayed]", "<=" -> "\[LessEqual]", ">=" -> "\[GreaterEqual]", "!=" -> "\[NotEqual]", "==" -> "\[Equal]", Inherited}, LineSpacing -> {1.25, 0}, StyleMenuListing -> None, FontFamily -> "Courier"], Cell[ StyleData["TraditionalForm"], InputAutoReplacements -> { "->" -> "\[Rule]", ":>" -> "\[RuleDelayed]", "<=" -> "\[LessEqual]", ">=" -> "\[GreaterEqual]", "!=" -> "\[NotEqual]", "==" -> "\[Equal]", Inherited}, LineSpacing -> {1.25, 0}, SingleLetterItalics -> True, TraditionalFunctionNotation -> True, DelimiterMatching -> None, StyleMenuListing -> None], Cell[ "The style defined below is mixed in to any cell that is in an \ inline cell within another.", "Text"], Cell[ StyleData["InlineCell"], TextAlignment -> Left, ScriptLevel -> 1, StyleMenuListing -> None], Cell[ StyleData["InlineCellEditing"], StyleMenuListing -> None, Background -> RGBColor[1, 0.749996, 0.8]]}, Closed]], Cell[ CellGroupData[{ Cell["Automatic Styles", "Section"], Cell[ "The cells below define styles that are used to affect the display \ of certain types of objects in typeset expressions. For example, \ \"UnmatchedBracket\" style defines how unmatched bracket, curly bracket, and \ parenthesis characters are displayed (typically by coloring them to make them \ stand out).", "Text"], Cell[ StyleData["UnmatchedBracket"], StyleMenuListing -> None, FontColor -> RGBColor[0.760006, 0.330007, 0.8]]}, Closed]], Cell[ CellGroupData[{ Cell["Misc Styles", "Section"], Cell[ CellGroupData[{ Cell[ StyleData["SmallText"], CellMargins -> {{12, 10}, {6, 6}}, DefaultNewInlineCellStyle -> "None", Hyphenation -> True, LineSpacing -> {1, 3}, LanguageCategory -> "NaturalLanguage", CounterIncrements -> "SmallText", FontFamily -> "Helvetica", FontSize -> 9], Cell[ StyleData["SmallText", "Printout"], CellMargins -> {{2, 2}, {5, 5}}, TextJustification -> 0.5, FontSize -> 7]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TitleCell1"], ShowCellBracket -> False, CellMargins -> {{-2, 0}, {-5, -2}}, CellGroupingRules -> {"SectionGrouping", 30}, CellLabelMargins -> {{0, 0}, {0, 0}}, CellFrameMargins -> False, FontFamily -> "Helvetica", FontSize -> 9, Background -> RGBColor[0.796078, 0.4, 0], ButtonBoxOptions -> {ButtonFrame -> "None"}], Cell[ StyleData["TitleCell1", "Printout"], CellMargins -> {{-2, 0}, {-3, -2}}]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["TitleCell2"], ShowCellBracket -> False, CellMargins -> {{-6, 0}, {0, 0}}, CellGroupingRules -> {"SectionGrouping", 30}, CellFrameMargins -> False, FontSize -> 6, FontSlant -> "Italic", FontColor -> GrayLevel[0.666667], Background -> GrayLevel[0], ButtonBoxOptions -> {ButtonFrame -> "None"}], Cell[ StyleData["TitleCell2", "Printout"], CellMargins -> {{-2, 0}, {0, -1}}, CellFrameMargins -> False, FontSize -> 7]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["HyperlinkHeaderGraphic"], CellMargins -> {{36, 10}, {0, 3}}, CellGroupingRules -> {"SectionGrouping", 30}, LineSpacing -> {1, 3}], Cell[ StyleData["HyperlinkHeaderGraphic", "Printout"], CellMargins -> {{12, 2}, {0, 0}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["CitationInfo"], CellMargins -> {{68, 10}, {7, 7}}, CellGroupingRules -> {"SectionGrouping", 40}, LineSpacing -> {1, 3}], Cell[ StyleData["CitationInfo", "Printout"], CellMargins -> {{36, 2}, {6, 6}}, FontSize -> 10]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["InputFormVersion"], CellMargins -> {{45, 10}, {5, 7}}, Evaluatable -> True, CellGroupingRules -> "OutputGrouping", CellHorizontalScrolling -> True, PageBreakWithin -> False, GroupPageBreakWithin -> False, DefaultFormatType -> DefaultInputFormatType, HyphenationOptions -> { "HyphenationCharacter" -> "\[Continuation]"}, AutoItalicWords -> {}, LanguageCategory -> "Formula", FormatType -> InputForm, ShowStringCharacters -> True, NumberMarks -> True, LinebreakAdjustments -> {0.85, 2, 10, 0, 1}, CounterIncrements -> "Input", FontWeight -> "Plain"], Cell[ StyleData["InputFormVersion", "Printout"], CellMargins -> {{39, 0}, {4, 6}}, LinebreakAdjustments -> {0.85, 2, 10, 1, 1}, FontSize -> 9]}, Closed]], Cell[ CellGroupData[{ Cell[ StyleData["Contributors"], CellMargins -> {{12, 10}, {7, 7}}, CellGroupingRules -> "OutputGrouping", InputAutoReplacements -> {"TeX" -> StyleBox[ RowBox[{"T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "LaTeX" -> StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox[ "A", BoxMargins -> {{-0.36, -0.1}, {0, 0}}, BoxBaselineShift -> -0.2], FontSize -> Smaller], "T", AdjustmentBox[ "E", BoxMargins -> {{-0.075, -0.085}, {0, 0}}, BoxBaselineShift -> 0.5], "X"}]], "mma" -> "Mathematica", "Mma" -> "Mathematica", "MMA" -> "Mathematica"}, Hyphenation -> True, LineSpacing -> {1, 3}, CounterIncrements -> "Text"], Cell[ StyleData["Contributors", "Printout"], CellMargins -> {{2, 2}, {6, 6}}, TextJustification -> 0.5, FontSize -> 10], Cell[ StyleData["Contributors", "WebSite"], CellMargins -> {{60, 10}, {7, 7}}]}, Closed]]}, Closed]]}, Open]]}, Visible -> False, FrontEndVersion -> "6.0 for Mac OS X x86 (32-bit) (January 10, 2008)", StyleDefinitions -> "Default.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[568, 21, 25849, 438, 19, "TitleCell1"], Cell[26420, 461, 8567, 153, 70, "TitleCell2"], Cell[34990, 616, 27, 0, 70, "Subtitle"], Cell[35020, 618, 3239, 67, 70, "HyperlinkHeaderGraphic"], Cell[CellGroupData[{ Cell[38284, 689, 28, 0, 70, "Section"], Cell[CellGroupData[{ Cell[38337, 693, 38, 0, 70, "Subsection"], Cell[38378, 695, 47, 0, 70, "TextHeader"] }, Closed]], Cell[CellGroupData[{ Cell[38462, 700, 42, 0, 70, "Subsection"], Cell[38507, 702, 1738, 66, 70, "TraditionalFormEquationHeader"] }, Closed]], Cell[CellGroupData[{ Cell[40282, 773, 108, 4, 70, "Subsection"], Cell[40393, 779, 1298, 45, 70, "StandardFormEquationHeader"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[41740, 830, 37, 0, 70, "Section"], Cell[41780, 832, 2896, 81, 70, "StandardFormEquation"], Cell[44679, 915, 1270, 48, 70, "Text"], Cell[45952, 965, 150, 5, 70, "Text"], Cell[46105, 972, 3262, 115, 70, "Text"], Cell[49370, 1089, 1845, 70, 70, "Text"], Cell[51218, 1161, 1816, 69, 70, "Text"], Cell[53037, 1232, 48, 0, 70, "Text"], Cell[53088, 1234, 751, 24, 70, "StandardFormEquation"], Cell[53842, 1260, 500, 15, 70, "StandardFormEquation"], Cell[54345, 1277, 256, 7, 70, "StandardFormEquation"], Cell[54604, 1286, 464, 14, 70, "StandardFormEquation"], Cell[CellGroupData[{ Cell[55093, 1304, 2350, 41, 70, "StandardFormEquation"], Cell[57446, 1347, 342, 10, 70, "CommentText"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[57837, 1363, 34, 0, 70, "Section"], Cell[CellGroupData[{ Cell[57896, 1367, 40, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[57961, 1371, 97, 3, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[58083, 1378, 170, 7, 70, "Subsection3"], Cell[58256, 1387, 1765, 56, 70, "StandardFormEquation"], Cell[60024, 1445, 1795, 57, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[61856, 1507, 94, 4, 70, "Subsection3"], Cell[61953, 1513, 1471, 47, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[63461, 1565, 94, 4, 70, "Subsection3"], Cell[63558, 1571, 1326, 45, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[64921, 1621, 94, 4, 70, "Subsection3"], Cell[65018, 1627, 2649, 87, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[67704, 1719, 94, 4, 70, "Subsection3"], Cell[67801, 1725, 1929, 60, 70, "StandardFormEquation"], Cell[69733, 1787, 1717, 53, 70, "StandardFormEquation"], Cell[71453, 1842, 2626, 81, 70, "StandardFormEquation"], Cell[74082, 1925, 4387, 128, 70, "StandardFormEquation"], Cell[78472, 2055, 2818, 85, 70, "StandardFormEquation"], Cell[81293, 2142, 2721, 85, 70, "StandardFormEquation"], Cell[84017, 2229, 1628, 53, 70, "StandardFormEquation"], Cell[85648, 2284, 2428, 80, 70, "StandardFormEquation"], Cell[88079, 2366, 2099, 64, 70, "StandardFormEquation"], Cell[90181, 2432, 2681, 84, 70, "StandardFormEquation"], Cell[92865, 2518, 4855, 150, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[97757, 2673, 94, 4, 70, "Subsection3"], Cell[97854, 2679, 1816, 58, 70, "StandardFormEquation"], Cell[99673, 2739, 1609, 53, 70, "StandardFormEquation"], Cell[101285, 2794, 2603, 83, 70, "StandardFormEquation"], Cell[103891, 2879, 2580, 80, 70, "StandardFormEquation"], Cell[106474, 2961, 1373, 42, 70, "StandardFormEquation"], Cell[107850, 3005, 1198, 36, 70, "StandardFormEquation"], Cell[109051, 3043, 1364, 43, 70, "StandardFormEquation"], Cell[110418, 3088, 1793, 58, 70, "StandardFormEquation"], Cell[112214, 3148, 1683, 54, 70, "StandardFormEquation"], Cell[113900, 3204, 1516, 48, 70, "StandardFormEquation"], Cell[115419, 3254, 1294, 39, 70, "StandardFormEquation"], Cell[116716, 3295, 1254, 38, 70, "StandardFormEquation"], Cell[117973, 3335, 1345, 42, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[119355, 3382, 96, 4, 70, "Subsection3"], Cell[119454, 3388, 1903, 61, 70, "StandardFormEquation"], Cell[121360, 3451, 1399, 46, 70, "StandardFormEquation"], Cell[122762, 3499, 1603, 51, 70, "StandardFormEquation"], Cell[124368, 3552, 1920, 61, 70, "StandardFormEquation"], Cell[126291, 3615, 1851, 60, 70, "StandardFormEquation"], Cell[128145, 3677, 1254, 39, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[129436, 3721, 94, 4, 70, "Subsection3"], Cell[129533, 3727, 1439, 45, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[131009, 3777, 94, 4, 70, "Subsection3"], Cell[131106, 3783, 1270, 42, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[132413, 3830, 94, 4, 70, "Subsection3"], Cell[132510, 3836, 1410, 43, 70, "StandardFormEquation"], Cell[133923, 3881, 1383, 43, 70, "StandardFormEquation"], Cell[135309, 3926, 1489, 47, 70, "StandardFormEquation"], Cell[136801, 3975, 1294, 39, 70, "StandardFormEquation"], Cell[138098, 4016, 1254, 38, 70, "StandardFormEquation"], Cell[139355, 4056, 1340, 41, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[140732, 4102, 94, 4, 70, "Subsection3"], Cell[140829, 4108, 1981, 61, 70, "StandardFormEquation"], Cell[142813, 4171, 1758, 53, 70, "StandardFormEquation"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[144620, 4230, 88, 3, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[144733, 4237, 94, 4, 70, "Subsection3"], Cell[144830, 4243, 549, 18, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[145416, 4266, 94, 4, 70, "Subsection3"], Cell[145513, 4272, 589, 20, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[146139, 4297, 88, 3, 70, "Subsection3"], Cell[146230, 4302, 844, 30, 70, "StandardFormEquation"], Cell[147077, 4334, 824, 28, 70, "StandardFormEquation"], Cell[147904, 4364, 630, 22, 70, "StandardFormEquation"], Cell[148537, 4388, 730, 25, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[149304, 4418, 94, 4, 70, "Subsection3"], Cell[149401, 4424, 940, 32, 70, "StandardFormEquation"], Cell[150344, 4458, 911, 32, 70, "StandardFormEquation"], Cell[151258, 4492, 4798, 149, 70, "StandardFormEquation"], Cell[156059, 4643, 676, 24, 70, "StandardFormEquation"], Cell[156738, 4669, 702, 25, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[157477, 4699, 94, 4, 70, "Subsection3"], Cell[157574, 4705, 1052, 36, 70, "StandardFormEquation"], Cell[158629, 4743, 777, 25, 70, "StandardFormEquation"], Cell[159409, 4770, 740, 24, 70, "StandardFormEquation"], Cell[160152, 4796, 724, 24, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[160913, 4825, 94, 4, 70, "Subsection3"], Cell[161010, 4831, 1568, 54, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[162615, 4890, 94, 4, 70, "Subsection3"], Cell[162712, 4896, 1049, 35, 70, "StandardFormEquation"], Cell[163764, 4933, 1579, 56, 70, "StandardFormEquation"], Cell[165346, 4991, 1729, 61, 70, "StandardFormEquation"], Cell[167078, 5054, 1708, 60, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[168823, 5119, 94, 4, 70, "Subsection3"], Cell[168920, 5125, 1297, 44, 70, "StandardFormEquation"], Cell[170220, 5171, 891, 30, 70, "StandardFormEquation"], Cell[171114, 5203, 805, 27, 70, "StandardFormEquation"], Cell[171922, 5232, 871, 31, 70, "StandardFormEquation"], Cell[172796, 5265, 1341, 48, 70, "StandardFormEquation"], Cell[174140, 5315, 871, 31, 70, "StandardFormEquation"], Cell[175014, 5348, 1343, 48, 70, "StandardFormEquation"], Cell[176360, 5398, 1064, 37, 70, "StandardFormEquation"], Cell[177427, 5437, 1169, 43, 70, "StandardFormEquation"], Cell[178599, 5482, 1392, 50, 70, "StandardFormEquation"], Cell[179994, 5534, 897, 32, 70, "StandardFormEquation"], Cell[180894, 5568, 1326, 47, 70, "StandardFormEquation"], Cell[182223, 5617, 1085, 38, 70, "StandardFormEquation"], Cell[183311, 5657, 1169, 43, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[184517, 5705, 94, 4, 70, "Subsection3"], Cell[184614, 5711, 1645, 56, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[186296, 5772, 94, 4, 70, "Subsection3"], Cell[186393, 5778, 1999, 67, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[188429, 5850, 94, 4, 70, "Subsection3"], Cell[188526, 5856, 1191, 39, 70, "StandardFormEquation"], Cell[189720, 5897, 1300, 45, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[191057, 5947, 94, 4, 70, "Subsection3"], Cell[191154, 5953, 1624, 53, 70, "StandardFormEquation"], Cell[192781, 6008, 758, 26, 70, "StandardFormEquation"], Cell[193542, 6036, 718, 25, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[194297, 6066, 94, 4, 70, "Subsection3"], Cell[194394, 6072, 2589, 84, 70, "StandardFormEquation"], Cell[196986, 6158, 1049, 34, 70, "StandardFormEquation"], Cell[198038, 6194, 720, 25, 70, "StandardFormEquation"], Cell[198761, 6221, 755, 26, 70, "StandardFormEquation"], Cell[199519, 6249, 963, 34, 70, "StandardFormEquation"], Cell[200485, 6285, 816, 28, 70, "StandardFormEquation"], Cell[201304, 6315, 968, 33, 70, "StandardFormEquation"], Cell[202275, 6350, 1089, 37, 70, "StandardFormEquation"], Cell[203367, 6389, 779, 28, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[204183, 6422, 94, 4, 70, "Subsection3"], Cell[204280, 6428, 3165, 100, 70, "StandardFormEquation"], Cell[207448, 6530, 1522, 52, 70, "StandardFormEquation"], Cell[208973, 6584, 1957, 65, 70, "StandardFormEquation"], Cell[210933, 6651, 1398, 46, 70, "StandardFormEquation"], Cell[212334, 6699, 1700, 56, 70, "StandardFormEquation"], Cell[214037, 6757, 1502, 51, 70, "StandardFormEquation"], Cell[215542, 6810, 1804, 60, 70, "StandardFormEquation"], Cell[217349, 6872, 1550, 54, 70, "StandardFormEquation"], Cell[218902, 6928, 2296, 77, 70, "StandardFormEquation"], Cell[221201, 7007, 1704, 57, 70, "StandardFormEquation"], Cell[222908, 7066, 1927, 64, 70, "StandardFormEquation"], Cell[224838, 7132, 1471, 50, 70, "StandardFormEquation"], Cell[226312, 7184, 1782, 61, 70, "StandardFormEquation"], Cell[228097, 7247, 1849, 62, 70, "StandardFormEquation"], Cell[229949, 7311, 1707, 58, 70, "StandardFormEquation"], Cell[231659, 7371, 2225, 74, 70, "StandardFormEquation"], Cell[233887, 7447, 1678, 58, 70, "StandardFormEquation"], Cell[235568, 7507, 906, 31, 70, "StandardFormEquation"], Cell[236477, 7540, 1154, 41, 70, "StandardFormEquation"], Cell[237634, 7583, 1434, 49, 70, "StandardFormEquation"], Cell[239071, 7634, 1444, 54, 70, "StandardFormEquation"], Cell[240518, 7690, 1665, 63, 70, "StandardFormEquation"], Cell[242186, 7755, 1132, 40, 70, "StandardFormEquation"], Cell[243321, 7797, 1273, 45, 70, "StandardFormEquation"], Cell[244597, 7844, 1622, 56, 70, "StandardFormEquation"], Cell[246222, 7902, 1425, 52, 70, "StandardFormEquation"], Cell[247650, 7956, 1695, 63, 70, "StandardFormEquation"], Cell[249348, 8021, 1109, 38, 70, "StandardFormEquation"], Cell[250460, 8061, 1106, 39, 70, "StandardFormEquation"], Cell[251569, 8102, 1339, 47, 70, "StandardFormEquation"], Cell[252911, 8151, 952, 33, 70, "StandardFormEquation"], Cell[253866, 8186, 1370, 48, 70, "StandardFormEquation"], Cell[255239, 8236, 1232, 44, 70, "StandardFormEquation"], Cell[256474, 8282, 1031, 37, 70, "StandardFormEquation"], Cell[257508, 8321, 1068, 38, 70, "StandardFormEquation"], Cell[258579, 8361, 784, 28, 70, "StandardFormEquation"], Cell[259366, 8391, 957, 34, 70, "StandardFormEquation"], Cell[260326, 8427, 981, 35, 70, "StandardFormEquation"], Cell[261310, 8464, 1052, 37, 70, "StandardFormEquation"], Cell[262365, 8503, 1161, 43, 70, "StandardFormEquation"], Cell[263529, 8548, 1668, 60, 70, "StandardFormEquation"], Cell[265200, 8610, 1687, 61, 70, "StandardFormEquation"], Cell[266890, 8673, 1633, 59, 70, "StandardFormEquation"], Cell[268526, 8734, 1341, 50, 70, "StandardFormEquation"], Cell[269870, 8786, 1260, 43, 70, "StandardFormEquation"], Cell[271133, 8831, 1282, 44, 70, "StandardFormEquation"], Cell[272418, 8877, 1253, 46, 70, "StandardFormEquation"], Cell[273674, 8925, 1146, 41, 70, "StandardFormEquation"], Cell[274823, 8968, 1538, 55, 70, "StandardFormEquation"], Cell[276364, 9025, 1598, 57, 70, "StandardFormEquation"], Cell[277965, 9084, 2109, 70, 70, "StandardFormEquation"], Cell[280077, 9156, 1167, 42, 70, "StandardFormEquation"], Cell[281247, 9200, 1189, 43, 70, "StandardFormEquation"], Cell[282439, 9245, 1199, 43, 70, "StandardFormEquation"], Cell[283641, 9290, 1534, 54, 70, "StandardFormEquation"], Cell[285178, 9346, 1170, 42, 70, "StandardFormEquation"], Cell[286351, 9390, 1509, 53, 70, "StandardFormEquation"], Cell[287863, 9445, 958, 34, 70, "StandardFormEquation"], Cell[288824, 9481, 1114, 40, 70, "StandardFormEquation"], Cell[289941, 9523, 1206, 44, 70, "StandardFormEquation"], Cell[291150, 9569, 1194, 43, 70, "StandardFormEquation"], Cell[292347, 9614, 1565, 55, 70, "StandardFormEquation"], Cell[293915, 9671, 1553, 53, 70, "StandardFormEquation"], Cell[295471, 9726, 967, 33, 70, "StandardFormEquation"], Cell[296441, 9761, 1242, 42, 70, "StandardFormEquation"], Cell[297686, 9805, 1695, 61, 70, "StandardFormEquation"], Cell[299384, 9868, 1340, 50, 70, "StandardFormEquation"], Cell[300727, 9920, 1632, 59, 70, "StandardFormEquation"], Cell[302362, 9981, 1337, 50, 70, "StandardFormEquation"], Cell[303702, 10033, 1656, 59, 70, "StandardFormEquation"], Cell[305361, 10094, 1697, 60, 70, "StandardFormEquation"], Cell[307061, 10156, 1602, 57, 70, "StandardFormEquation"], Cell[308666, 10215, 1684, 60, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[310387, 10280, 94, 4, 70, "Subsection3"], Cell[310484, 10286, 2438, 78, 70, "StandardFormEquation"], Cell[312925, 10366, 1379, 48, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[314341, 10419, 94, 4, 70, "Subsection3"], Cell[314438, 10425, 3023, 97, 70, "StandardFormEquation"], Cell[317464, 10524, 1560, 53, 70, "StandardFormEquation"], Cell[319027, 10579, 1162, 40, 70, "StandardFormEquation"], Cell[320192, 10621, 1590, 53, 70, "StandardFormEquation"], Cell[321785, 10676, 1535, 52, 70, "StandardFormEquation"], Cell[323323, 10730, 1643, 55, 70, "StandardFormEquation"], Cell[324969, 10787, 1951, 65, 70, "StandardFormEquation"], Cell[326923, 10854, 1291, 45, 70, "StandardFormEquation"], Cell[328217, 10901, 1438, 50, 70, "StandardFormEquation"], Cell[329658, 10953, 1363, 46, 70, "StandardFormEquation"], Cell[331024, 11001, 1976, 61, 70, "StandardFormEquation"], Cell[333003, 11064, 2038, 63, 70, "StandardFormEquation"], Cell[335044, 11129, 1109, 38, 70, "StandardFormEquation"], Cell[336156, 11169, 1671, 57, 70, "StandardFormEquation"], Cell[337830, 11228, 1136, 39, 70, "StandardFormEquation"], Cell[338969, 11269, 1617, 53, 70, "StandardFormEquation"], Cell[340589, 11324, 1055, 37, 70, "StandardFormEquation"], Cell[341647, 11363, 1382, 48, 70, "StandardFormEquation"], Cell[343032, 11413, 1282, 44, 70, "StandardFormEquation"], Cell[344317, 11459, 1231, 43, 70, "StandardFormEquation"], Cell[345551, 11504, 1282, 44, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[346870, 11553, 94, 4, 70, "Subsection3"], Cell[346967, 11559, 3650, 115, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[350654, 11679, 94, 4, 70, "Subsection3"], Cell[350751, 11685, 4358, 135, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[355146, 11825, 94, 4, 70, "Subsection3"], Cell[355243, 11831, 2723, 86, 70, "StandardFormEquation"], Cell[357969, 11919, 1440, 48, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[359446, 11972, 94, 4, 70, "Subsection3"], Cell[359543, 11978, 3585, 112, 70, "StandardFormEquation"], Cell[363131, 12092, 1747, 60, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[364915, 12157, 94, 4, 70, "Subsection3"], Cell[365012, 12163, 4595, 143, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[369644, 12311, 94, 4, 70, "Subsection3"], Cell[369741, 12317, 5460, 169, 70, "StandardFormEquation"], Cell[375204, 12488, 1361, 46, 70, "StandardFormEquation"], Cell[376568, 12536, 1223, 41, 70, "StandardFormEquation"], Cell[377794, 12579, 1147, 38, 70, "StandardFormEquation"], Cell[378944, 12619, 1166, 39, 70, "StandardFormEquation"], Cell[380113, 12660, 1253, 43, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[381403, 12708, 94, 4, 70, "Subsection3"], Cell[381500, 12714, 6501, 201, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[388038, 12920, 94, 4, 70, "Subsection3"], Cell[388135, 12926, 7328, 223, 70, "StandardFormEquation"], Cell[395466, 13151, 2033, 66, 70, "StandardFormEquation"], Cell[397502, 13219, 873, 30, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[398412, 13254, 94, 4, 70, "Subsection3"], Cell[398509, 13260, 4813, 153, 70, "StandardFormEquation"], Cell[403325, 13415, 2085, 70, 70, "StandardFormEquation"], Cell[405413, 13487, 2142, 71, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[407592, 13563, 94, 4, 70, "Subsection3"], Cell[407689, 13569, 6667, 211, 70, "StandardFormEquation"], Cell[414359, 13782, 1982, 68, 70, "StandardFormEquation"], Cell[416344, 13852, 1995, 68, 70, "StandardFormEquation"], Cell[418342, 13922, 2000, 68, 70, "StandardFormEquation"], Cell[420345, 13992, 1478, 50, 70, "StandardFormEquation"], Cell[421826, 14044, 1696, 58, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[423559, 14107, 94, 4, 70, "Subsection3"], Cell[423656, 14113, 6064, 190, 70, "StandardFormEquation"], Cell[429723, 14305, 1799, 60, 70, "StandardFormEquation"], Cell[431525, 14367, 1709, 57, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[433271, 14429, 89, 3, 70, "Subsection3"], Cell[433363, 14434, 7420, 233, 70, "StandardFormEquation"], Cell[440786, 14669, 1984, 68, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[442807, 14742, 94, 4, 70, "Subsection3"], Cell[442904, 14748, 1737, 58, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[444678, 14811, 94, 4, 70, "Subsection3"], Cell[444775, 14817, 1850, 61, 70, "StandardFormEquation"], Cell[446628, 14880, 1209, 42, 70, "StandardFormEquation"], Cell[447840, 14924, 1354, 44, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[449231, 14973, 94, 4, 70, "Subsection3"], Cell[449328, 14979, 1443, 50, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[450808, 15034, 94, 4, 70, "Subsection3"], Cell[450905, 15040, 2223, 74, 70, "StandardFormEquation"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[453177, 15120, 88, 3, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[453290, 15127, 94, 4, 70, "Subsection3"], Cell[453387, 15133, 522, 17, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[453946, 15155, 94, 4, 70, "Subsection3"], Cell[454043, 15161, 734, 25, 70, "StandardFormEquation"], Cell[454780, 15188, 861, 31, 70, "StandardFormEquation"], Cell[455644, 15221, 707, 26, 70, "StandardFormEquation"], Cell[456354, 15249, 633, 23, 70, "StandardFormEquation"], Cell[456990, 15274, 1780, 60, 70, "StandardFormEquation"], Cell[458773, 15336, 1637, 55, 70, "StandardFormEquation"], Cell[460413, 15393, 1552, 52, 70, "StandardFormEquation"], Cell[461968, 15447, 1842, 62, 70, "StandardFormEquation"], Cell[463813, 15511, 4824, 151, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[468674, 15667, 94, 4, 70, "Subsection3"], Cell[468771, 15673, 980, 33, 70, "StandardFormEquation"], Cell[469754, 15708, 1644, 58, 70, "StandardFormEquation"], Cell[471401, 15768, 1637, 58, 70, "StandardFormEquation"], Cell[473041, 15828, 1444, 51, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[474522, 15884, 94, 4, 70, "Subsection3"], Cell[474619, 15890, 1122, 37, 70, "StandardFormEquation"], Cell[475744, 15929, 1179, 41, 70, "StandardFormEquation"], Cell[476926, 15972, 1162, 41, 70, "StandardFormEquation"], Cell[478091, 16015, 1088, 38, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[479216, 16058, 94, 4, 70, "Subsection3"], Cell[479313, 16064, 756, 25, 70, "StandardFormEquation"], Cell[480072, 16091, 791, 26, 70, "StandardFormEquation"], Cell[480866, 16119, 610, 20, 70, "StandardFormEquation"], Cell[481479, 16141, 640, 21, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[482156, 16167, 94, 4, 70, "Subsection3"], Cell[482253, 16173, 981, 34, 70, "StandardFormEquation"], Cell[483237, 16209, 732, 24, 70, "StandardFormEquation"], Cell[483972, 16235, 695, 23, 70, "StandardFormEquation"], Cell[484670, 16260, 679, 22, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[485386, 16287, 94, 4, 70, "Subsection3"], Cell[485483, 16293, 1223, 42, 70, "StandardFormEquation"], Cell[486709, 16337, 1058, 37, 70, "StandardFormEquation"], Cell[487770, 16376, 914, 32, 70, "StandardFormEquation"], Cell[488687, 16410, 802, 28, 70, "StandardFormEquation"], Cell[489492, 16440, 914, 32, 70, "StandardFormEquation"], Cell[490409, 16474, 967, 33, 70, "StandardFormEquation"], Cell[491379, 16509, 1038, 38, 70, "StandardFormEquation"], Cell[492420, 16549, 1296, 46, 70, "StandardFormEquation"], Cell[493719, 16597, 789, 28, 70, "StandardFormEquation"], Cell[494511, 16627, 1316, 47, 70, "StandardFormEquation"], Cell[495830, 16676, 1294, 46, 70, "StandardFormEquation"], Cell[497127, 16724, 785, 28, 70, "StandardFormEquation"], Cell[497915, 16754, 1294, 46, 70, "StandardFormEquation"], Cell[499212, 16802, 988, 34, 70, "StandardFormEquation"], Cell[500203, 16838, 1038, 38, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[501278, 16881, 94, 4, 70, "Subsection3"], Cell[501375, 16887, 1522, 51, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[502934, 16943, 94, 4, 70, "Subsection3"], Cell[503031, 16949, 1570, 53, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[504638, 17007, 94, 4, 70, "Subsection3"], Cell[504735, 17013, 1917, 63, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[506689, 17081, 94, 4, 70, "Subsection3"], Cell[506786, 17087, 657, 21, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[507480, 17113, 94, 4, 70, "Subsection3"], Cell[507577, 17119, 998, 33, 70, "StandardFormEquation"], Cell[508578, 17154, 744, 23, 70, "StandardFormEquation"], Cell[509325, 17179, 1345, 43, 70, "StandardFormEquation"], Cell[510673, 17224, 659, 23, 70, "StandardFormEquation"], Cell[511335, 17249, 743, 25, 70, "StandardFormEquation"], Cell[512081, 17276, 812, 28, 70, "StandardFormEquation"], Cell[512896, 17306, 725, 24, 70, "StandardFormEquation"], Cell[513624, 17332, 883, 30, 70, "StandardFormEquation"], Cell[514510, 17364, 795, 26, 70, "StandardFormEquation"], Cell[515308, 17392, 1136, 38, 70, "StandardFormEquation"], Cell[516447, 17432, 677, 24, 70, "StandardFormEquation"], Cell[517127, 17458, 685, 24, 70, "StandardFormEquation"], Cell[517815, 17484, 696, 24, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[518548, 17513, 94, 4, 70, "Subsection3"], Cell[518645, 17519, 1237, 41, 70, "StandardFormEquation"], Cell[519885, 17562, 1074, 38, 70, "StandardFormEquation"], Cell[520962, 17602, 1728, 59, 70, "StandardFormEquation"], Cell[522693, 17663, 1311, 45, 70, "StandardFormEquation"], Cell[524007, 17710, 1265, 44, 70, "StandardFormEquation"], Cell[525275, 17756, 896, 31, 70, "StandardFormEquation"], Cell[526174, 17789, 953, 33, 70, "StandardFormEquation"], Cell[527130, 17824, 1622, 56, 70, "StandardFormEquation"], Cell[528755, 17882, 1504, 52, 70, "StandardFormEquation"], Cell[530262, 17936, 1160, 40, 70, "StandardFormEquation"], Cell[531425, 17978, 1397, 49, 70, "StandardFormEquation"], Cell[532825, 18029, 3117, 100, 70, "StandardFormEquation"], Cell[535945, 18131, 1666, 58, 70, "StandardFormEquation"], Cell[537614, 18191, 1033, 36, 70, "StandardFormEquation"], Cell[538650, 18229, 1435, 49, 70, "StandardFormEquation"], Cell[540088, 18280, 1869, 63, 70, "StandardFormEquation"], Cell[541960, 18345, 943, 33, 70, "StandardFormEquation"], Cell[542906, 18380, 1484, 51, 70, "StandardFormEquation"], Cell[544393, 18433, 1939, 66, 70, "StandardFormEquation"], Cell[546335, 18501, 2695, 90, 70, "StandardFormEquation"], Cell[549033, 18593, 2758, 91, 70, "StandardFormEquation"], Cell[551794, 18686, 814, 29, 70, "StandardFormEquation"], Cell[552611, 18717, 1424, 51, 70, "StandardFormEquation"], Cell[554038, 18770, 1399, 50, 70, "StandardFormEquation"], Cell[555440, 18822, 855, 31, 70, "StandardFormEquation"], Cell[556298, 18855, 855, 31, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[557190, 18891, 94, 4, 70, "Subsection3"], Cell[557287, 18897, 1061, 35, 70, "StandardFormEquation"], Cell[558351, 18934, 829, 27, 70, "StandardFormEquation"], Cell[559183, 18963, 918, 31, 70, "StandardFormEquation"], Cell[560104, 18996, 1247, 42, 70, "StandardFormEquation"], Cell[561354, 19040, 629, 20, 70, "StandardFormEquation"], Cell[561986, 19062, 713, 22, 70, "StandardFormEquation"], Cell[562702, 19086, 813, 27, 70, "StandardFormEquation"], Cell[563518, 19115, 1202, 40, 70, "StandardFormEquation"], Cell[564723, 19157, 798, 26, 70, "StandardFormEquation"], Cell[565524, 19185, 750, 26, 70, "StandardFormEquation"], Cell[566277, 19213, 764, 26, 70, "StandardFormEquation"], Cell[567044, 19241, 659, 23, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[567740, 19269, 94, 4, 70, "Subsection3"], Cell[567837, 19275, 2474, 79, 70, "StandardFormEquation"], Cell[570314, 19356, 1654, 53, 70, "StandardFormEquation"], Cell[571971, 19411, 1773, 58, 70, "StandardFormEquation"], Cell[573747, 19471, 2206, 72, 70, "StandardFormEquation"], Cell[575956, 19545, 2085, 69, 70, "StandardFormEquation"], Cell[578044, 19616, 1937, 64, 70, "StandardFormEquation"], Cell[579984, 19682, 1750, 58, 70, "StandardFormEquation"], Cell[581737, 19742, 2338, 78, 70, "StandardFormEquation"], Cell[584078, 19822, 2015, 66, 70, "StandardFormEquation"], Cell[586096, 19890, 2253, 75, 70, "StandardFormEquation"], Cell[588352, 19967, 1790, 59, 70, "StandardFormEquation"], Cell[590145, 20028, 2097, 70, 70, "StandardFormEquation"], Cell[592245, 20100, 1025, 34, 70, "StandardFormEquation"], Cell[593273, 20136, 1091, 37, 70, "StandardFormEquation"], Cell[594367, 20175, 1225, 40, 70, "StandardFormEquation"], Cell[595595, 20217, 719, 24, 70, "StandardFormEquation"], Cell[596317, 20243, 2101, 69, 70, "StandardFormEquation"], Cell[598421, 20314, 1710, 57, 70, "StandardFormEquation"], Cell[600134, 20373, 1611, 56, 70, "StandardFormEquation"], Cell[601748, 20431, 1716, 59, 70, "StandardFormEquation"], Cell[603467, 20492, 1303, 45, 70, "StandardFormEquation"], Cell[604773, 20539, 1418, 50, 70, "StandardFormEquation"], Cell[606194, 20591, 1229, 43, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[607460, 20639, 94, 4, 70, "Subsection3"], Cell[607557, 20645, 1504, 51, 70, "StandardFormEquation"], Cell[609064, 20698, 815, 27, 70, "StandardFormEquation"], Cell[609882, 20727, 1158, 38, 70, "StandardFormEquation"], Cell[611043, 20767, 825, 28, 70, "StandardFormEquation"], Cell[611871, 20797, 1172, 40, 70, "StandardFormEquation"], Cell[613046, 20839, 850, 29, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[613933, 20873, 94, 4, 70, "Subsection3"], Cell[614030, 20879, 1651, 55, 70, "StandardFormEquation"], Cell[615684, 20936, 1042, 36, 70, "StandardFormEquation"], Cell[616729, 20974, 1070, 37, 70, "StandardFormEquation"], Cell[617802, 21013, 1215, 42, 70, "StandardFormEquation"], Cell[619020, 21057, 1060, 37, 70, "StandardFormEquation"], Cell[620083, 21096, 908, 31, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[621028, 21132, 94, 4, 70, "Subsection3"], Cell[621125, 21138, 1749, 58, 70, "StandardFormEquation"], Cell[622877, 21198, 1334, 47, 70, "StandardFormEquation"], Cell[624214, 21247, 1096, 38, 70, "StandardFormEquation"], Cell[625313, 21287, 1070, 36, 70, "StandardFormEquation"], Cell[626386, 21325, 1113, 40, 70, "StandardFormEquation"], Cell[627502, 21367, 1087, 38, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[628626, 21410, 94, 4, 70, "Subsection3"], Cell[628723, 21416, 1305, 43, 70, "StandardFormEquation"], Cell[630031, 21461, 1438, 49, 70, "StandardFormEquation"], Cell[631472, 21512, 933, 32, 70, "StandardFormEquation"], Cell[632408, 21546, 1843, 63, 70, "StandardFormEquation"], Cell[634254, 21611, 1495, 52, 70, "StandardFormEquation"], Cell[635752, 21665, 2743, 92, 70, "StandardFormEquation"], Cell[638498, 21759, 972, 34, 70, "StandardFormEquation"], Cell[639473, 21795, 1956, 67, 70, "StandardFormEquation"], Cell[641432, 21864, 1685, 58, 70, "StandardFormEquation"], Cell[643120, 21924, 1470, 51, 70, "StandardFormEquation"], Cell[644593, 21977, 3313, 109, 70, "StandardFormEquation"], Cell[647909, 22088, 3062, 99, 70, "StandardFormEquation"], Cell[650974, 22189, 1453, 51, 70, "StandardFormEquation"], Cell[652430, 22242, 1234, 42, 70, "StandardFormEquation"], Cell[653667, 22286, 1502, 52, 70, "StandardFormEquation"], Cell[655172, 22340, 1682, 59, 70, "StandardFormEquation"], Cell[656857, 22401, 1045, 36, 70, "StandardFormEquation"], Cell[657905, 22439, 922, 32, 70, "StandardFormEquation"], Cell[658830, 22473, 1392, 48, 70, "StandardFormEquation"], Cell[660225, 22523, 1395, 48, 70, "StandardFormEquation"], Cell[661623, 22573, 1797, 61, 70, "StandardFormEquation"], Cell[663423, 22636, 1351, 47, 70, "StandardFormEquation"], Cell[664777, 22685, 1376, 48, 70, "StandardFormEquation"], Cell[666156, 22735, 886, 31, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[667079, 22771, 94, 4, 70, "Subsection3"], Cell[667176, 22777, 1575, 53, 70, "StandardFormEquation"], Cell[668754, 22832, 880, 28, 70, "StandardFormEquation"], Cell[669637, 22862, 1233, 43, 70, "StandardFormEquation"], Cell[670873, 22907, 1215, 39, 70, "StandardFormEquation"], Cell[672091, 22948, 798, 26, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[672926, 22979, 94, 4, 70, "Subsection3"], Cell[673023, 22985, 3465, 109, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[676525, 23099, 94, 4, 70, "Subsection3"], Cell[676622, 23105, 2110, 68, 70, "StandardFormEquation"], Cell[678735, 23175, 1431, 47, 70, "StandardFormEquation"], Cell[680169, 23224, 1667, 56, 70, "StandardFormEquation"], Cell[681839, 23282, 1087, 36, 70, "StandardFormEquation"], Cell[682929, 23320, 1802, 60, 70, "StandardFormEquation"], Cell[684734, 23382, 790, 26, 70, "StandardFormEquation"], Cell[685527, 23410, 817, 26, 70, "StandardFormEquation"], Cell[686347, 23438, 1351, 45, 70, "StandardFormEquation"], Cell[687701, 23485, 780, 26, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[688518, 23516, 94, 4, 70, "Subsection3"], Cell[688615, 23522, 1280, 42, 70, "StandardFormEquation"], Cell[689898, 23566, 1598, 54, 70, "StandardFormEquation"], Cell[691499, 23622, 1104, 34, 70, "StandardFormEquation"], Cell[692606, 23658, 1388, 45, 70, "StandardFormEquation"], Cell[693997, 23705, 861, 29, 70, "StandardFormEquation"], Cell[694861, 23736, 1128, 37, 70, "StandardFormEquation"], Cell[695992, 23775, 1535, 52, 70, "StandardFormEquation"], Cell[697530, 23829, 1609, 52, 70, "StandardFormEquation"], Cell[699142, 23883, 1504, 50, 70, "StandardFormEquation"], Cell[700649, 23935, 1305, 43, 70, "StandardFormEquation"], Cell[701957, 23980, 1577, 52, 70, "StandardFormEquation"], Cell[703537, 24034, 1737, 56, 70, "StandardFormEquation"], Cell[705277, 24092, 1660, 54, 70, "StandardFormEquation"], Cell[706940, 24148, 1689, 54, 70, "StandardFormEquation"], Cell[708632, 24204, 1763, 58, 70, "StandardFormEquation"], Cell[710398, 24264, 1795, 59, 70, "StandardFormEquation"], Cell[712196, 24325, 1229, 40, 70, "StandardFormEquation"], Cell[713428, 24367, 1905, 62, 70, "StandardFormEquation"], Cell[715336, 24431, 1868, 62, 70, "StandardFormEquation"], Cell[717207, 24495, 1409, 46, 70, "StandardFormEquation"], Cell[718619, 24543, 1289, 43, 70, "StandardFormEquation"], Cell[719911, 24588, 2081, 69, 70, "StandardFormEquation"], Cell[721995, 24659, 1543, 49, 70, "StandardFormEquation"], Cell[723541, 24710, 1408, 47, 70, "StandardFormEquation"], Cell[724952, 24759, 1319, 44, 70, "StandardFormEquation"], Cell[726274, 24805, 957, 33, 70, "StandardFormEquation"], Cell[727234, 24840, 1191, 43, 70, "StandardFormEquation"], Cell[728428, 24885, 1479, 50, 70, "StandardFormEquation"], Cell[729910, 24937, 1290, 45, 70, "StandardFormEquation"], Cell[731203, 24984, 1202, 42, 70, "StandardFormEquation"], Cell[732408, 25028, 1206, 43, 70, "StandardFormEquation"], Cell[733617, 25073, 1198, 42, 70, "StandardFormEquation"], Cell[734818, 25117, 1064, 37, 70, "StandardFormEquation"], Cell[735885, 25156, 1012, 35, 70, "StandardFormEquation"], Cell[736900, 25193, 1051, 37, 70, "StandardFormEquation"], Cell[737954, 25232, 908, 33, 70, "StandardFormEquation"], Cell[738865, 25267, 1012, 37, 70, "StandardFormEquation"], Cell[739880, 25306, 1090, 39, 70, "StandardFormEquation"], Cell[740973, 25347, 905, 31, 70, "StandardFormEquation"], Cell[741881, 25380, 1230, 43, 70, "StandardFormEquation"], Cell[743114, 25425, 875, 28, 70, "StandardFormEquation"], Cell[743992, 25455, 1087, 38, 70, "StandardFormEquation"], Cell[745082, 25495, 1036, 35, 70, "StandardFormEquation"], Cell[746121, 25532, 953, 33, 70, "StandardFormEquation"], Cell[747077, 25567, 987, 34, 70, "StandardFormEquation"], Cell[748067, 25603, 1087, 38, 70, "StandardFormEquation"], Cell[749157, 25643, 1471, 50, 70, "StandardFormEquation"], Cell[750631, 25695, 1142, 40, 70, "StandardFormEquation"], Cell[751776, 25737, 1973, 66, 70, "StandardFormEquation"], Cell[753752, 25805, 2139, 70, 70, "StandardFormEquation"], Cell[755894, 25877, 2140, 71, 70, "StandardFormEquation"], Cell[758037, 25950, 1878, 62, 70, "StandardFormEquation"], Cell[759918, 26014, 752, 27, 70, "StandardFormEquation"], Cell[760673, 26043, 771, 28, 70, "StandardFormEquation"], Cell[761447, 26073, 688, 24, 70, "StandardFormEquation"], Cell[762138, 26099, 793, 27, 70, "StandardFormEquation"], Cell[762934, 26128, 634, 22, 70, "StandardFormEquation"], Cell[763571, 26152, 799, 29, 70, "StandardFormEquation"], Cell[764373, 26183, 866, 32, 70, "StandardFormEquation"], Cell[765242, 26217, 899, 33, 70, "StandardFormEquation"], Cell[766144, 26252, 745, 26, 70, "StandardFormEquation"], Cell[766892, 26280, 800, 28, 70, "StandardFormEquation"], Cell[767695, 26310, 914, 32, 70, "StandardFormEquation"], Cell[768612, 26344, 1574, 56, 70, "StandardFormEquation"], Cell[770189, 26402, 1520, 54, 70, "StandardFormEquation"], Cell[771712, 26458, 1556, 56, 70, "StandardFormEquation"], Cell[773271, 26516, 1502, 54, 70, "StandardFormEquation"], Cell[774776, 26572, 1224, 46, 70, "StandardFormEquation"], Cell[776003, 26620, 1208, 45, 70, "StandardFormEquation"], Cell[777214, 26667, 801, 28, 70, "StandardFormEquation"], Cell[778018, 26697, 1148, 40, 70, "StandardFormEquation"], Cell[779169, 26739, 1384, 47, 70, "StandardFormEquation"], Cell[780556, 26788, 1274, 44, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[781867, 26837, 94, 4, 70, "Subsection3"], Cell[781964, 26843, 1545, 51, 70, "StandardFormEquation"], Cell[783512, 26896, 1551, 50, 70, "StandardFormEquation"], Cell[785066, 26948, 1524, 50, 70, "StandardFormEquation"], Cell[786593, 27000, 1013, 35, 70, "StandardFormEquation"], Cell[787609, 27037, 846, 28, 70, "StandardFormEquation"], Cell[788458, 27067, 1005, 34, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[789500, 27106, 94, 4, 70, "Subsection3"], Cell[789597, 27112, 1687, 55, 70, "StandardFormEquation"], Cell[791287, 27169, 1742, 53, 70, "StandardFormEquation"], Cell[793032, 27224, 1744, 55, 70, "StandardFormEquation"], Cell[794779, 27281, 1408, 46, 70, "StandardFormEquation"], Cell[796190, 27329, 1178, 38, 70, "StandardFormEquation"], Cell[797371, 27369, 1753, 58, 70, "StandardFormEquation"], Cell[799127, 27429, 1017, 35, 70, "StandardFormEquation"], Cell[800147, 27466, 1966, 69, 70, "StandardFormEquation"], Cell[802116, 27537, 1835, 62, 70, "StandardFormEquation"], Cell[803954, 27601, 1151, 40, 70, "StandardFormEquation"], Cell[805108, 27643, 1169, 39, 70, "StandardFormEquation"], Cell[806280, 27684, 1462, 50, 70, "StandardFormEquation"], Cell[807745, 27736, 1174, 41, 70, "StandardFormEquation"], Cell[808922, 27779, 1346, 48, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[810305, 27832, 94, 4, 70, "Subsection3"], Cell[810402, 27838, 2114, 69, 70, "StandardFormEquation"], Cell[812519, 27909, 1269, 43, 70, "StandardFormEquation"], Cell[813791, 27954, 1327, 46, 70, "StandardFormEquation"], Cell[815121, 28002, 1580, 56, 70, "StandardFormEquation"], Cell[816704, 28060, 1544, 54, 70, "StandardFormEquation"], Cell[818251, 28116, 1447, 51, 70, "StandardFormEquation"], Cell[819701, 28169, 1841, 63, 70, "StandardFormEquation"], Cell[821545, 28234, 1906, 64, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[823488, 28303, 94, 4, 70, "Subsection3"], Cell[823585, 28309, 3722, 116, 70, "StandardFormEquation"], Cell[827310, 28427, 2137, 73, 70, "StandardFormEquation"], Cell[829450, 28502, 2106, 70, 70, "StandardFormEquation"], Cell[831559, 28574, 1790, 63, 70, "StandardFormEquation"], Cell[833352, 28639, 2120, 72, 70, "StandardFormEquation"], Cell[835475, 28713, 1804, 61, 70, "StandardFormEquation"], Cell[837282, 28776, 1454, 50, 70, "StandardFormEquation"], Cell[838739, 28828, 1371, 47, 70, "StandardFormEquation"], Cell[840113, 28877, 1522, 52, 70, "StandardFormEquation"], Cell[841638, 28931, 1690, 59, 70, "StandardFormEquation"], Cell[843331, 28992, 1695, 59, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[845063, 29056, 94, 4, 70, "Subsection3"], Cell[845160, 29062, 2671, 83, 70, "StandardFormEquation"], Cell[847834, 29147, 1623, 54, 70, "StandardFormEquation"], Cell[849460, 29203, 1470, 49, 70, "StandardFormEquation"], Cell[850933, 29254, 1677, 55, 70, "StandardFormEquation"], Cell[852613, 29311, 1437, 49, 70, "StandardFormEquation"], Cell[854053, 29362, 1065, 36, 70, "StandardFormEquation"], Cell[855121, 29400, 1151, 38, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[856309, 29443, 94, 4, 70, "Subsection3"], Cell[856406, 29449, 3379, 106, 70, "StandardFormEquation"], Cell[859788, 29557, 1122, 38, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[860947, 29600, 94, 4, 70, "Subsection3"], Cell[861044, 29606, 6571, 194, 70, "StandardFormEquation"], Cell[867618, 29802, 1156, 40, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[868811, 29847, 94, 4, 70, "Subsection3"], Cell[868908, 29853, 5136, 157, 70, "StandardFormEquation"], Cell[874047, 30012, 1675, 55, 70, "StandardFormEquation"], Cell[875725, 30069, 1554, 52, 70, "StandardFormEquation"], Cell[877282, 30123, 2079, 68, 70, "StandardFormEquation"], Cell[879364, 30193, 1687, 56, 70, "StandardFormEquation"], Cell[881054, 30251, 2287, 73, 70, "StandardFormEquation"], Cell[883344, 30326, 1489, 50, 70, "StandardFormEquation"], Cell[884836, 30378, 1956, 66, 70, "StandardFormEquation"], Cell[886795, 30446, 1896, 63, 70, "StandardFormEquation"], Cell[888694, 30511, 1628, 55, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[890359, 30571, 94, 4, 70, "Subsection3"], Cell[890456, 30577, 6131, 186, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[896624, 30768, 94, 4, 70, "Subsection3"], Cell[896721, 30774, 1816, 59, 70, "StandardFormEquation"], Cell[898540, 30835, 1845, 57, 70, "StandardFormEquation"], Cell[900388, 30894, 2147, 63, 70, "StandardFormEquation"], Cell[902538, 30959, 1690, 53, 70, "StandardFormEquation"], Cell[904231, 31014, 1133, 38, 70, "StandardFormEquation"], Cell[905367, 31054, 2264, 73, 70, "StandardFormEquation"], Cell[907634, 31129, 2069, 66, 70, "StandardFormEquation"], Cell[909706, 31197, 1967, 63, 70, "StandardFormEquation"], Cell[911676, 31262, 2007, 66, 70, "StandardFormEquation"], Cell[913686, 31330, 2113, 69, 70, "StandardFormEquation"], Cell[915802, 31401, 2132, 69, 70, "StandardFormEquation"], Cell[917937, 31472, 2245, 72, 70, "StandardFormEquation"], Cell[920185, 31546, 1772, 57, 70, "StandardFormEquation"], Cell[921960, 31605, 1714, 56, 70, "StandardFormEquation"], Cell[923677, 31663, 1657, 54, 70, "StandardFormEquation"], Cell[925337, 31719, 1820, 59, 70, "StandardFormEquation"], Cell[927160, 31780, 1955, 64, 70, "StandardFormEquation"], Cell[929118, 31846, 2401, 75, 70, "StandardFormEquation"], Cell[931522, 31923, 1912, 63, 70, "StandardFormEquation"], Cell[933437, 31988, 2119, 70, 70, "StandardFormEquation"], Cell[935559, 32060, 1967, 66, 70, "StandardFormEquation"], Cell[937529, 32128, 2019, 67, 70, "StandardFormEquation"], Cell[939551, 32197, 2096, 69, 70, "StandardFormEquation"], Cell[941650, 32268, 2141, 71, 70, "StandardFormEquation"], Cell[943794, 32341, 2812, 88, 70, "StandardFormEquation"], Cell[946609, 32431, 3004, 94, 70, "StandardFormEquation"], Cell[949616, 32527, 4086, 125, 70, "StandardFormEquation"], Cell[953705, 32654, 3274, 100, 70, "StandardFormEquation"], Cell[956982, 32756, 1453, 50, 70, "StandardFormEquation"], Cell[958438, 32808, 1598, 55, 70, "StandardFormEquation"], Cell[960039, 32865, 1989, 65, 70, "StandardFormEquation"], Cell[962031, 32932, 2121, 66, 70, "StandardFormEquation"], Cell[964155, 33000, 1869, 59, 70, "StandardFormEquation"], Cell[966027, 33061, 1554, 49, 70, "StandardFormEquation"], Cell[967584, 33112, 2572, 81, 70, "StandardFormEquation"], Cell[970159, 33195, 1660, 54, 70, "StandardFormEquation"], Cell[971822, 33251, 1770, 59, 70, "StandardFormEquation"], Cell[973595, 33312, 1363, 45, 70, "StandardFormEquation"], Cell[974961, 33359, 2164, 71, 70, "StandardFormEquation"], Cell[977128, 33432, 2371, 76, 70, "StandardFormEquation"], Cell[979502, 33510, 898, 32, 70, "StandardFormEquation"], Cell[980403, 33544, 1022, 36, 70, "StandardFormEquation"], Cell[981428, 33582, 1302, 48, 70, "StandardFormEquation"], Cell[982733, 33632, 811, 28, 70, "StandardFormEquation"], Cell[983547, 33662, 925, 32, 70, "StandardFormEquation"], Cell[984475, 33696, 998, 35, 70, "StandardFormEquation"], Cell[985476, 33733, 780, 27, 70, "StandardFormEquation"], Cell[986259, 33762, 693, 23, 70, "StandardFormEquation"], Cell[986955, 33787, 4900, 156, 70, "StandardFormEquation"], Cell[991858, 33945, 4781, 154, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[996676, 34104, 94, 4, 70, "Subsection3"], Cell[996773, 34110, 6283, 196, 70, "StandardFormEquation"], Cell[1003059, 34308, 1972, 65, 70, "StandardFormEquation"], Cell[1005034, 34375, 1742, 58, 70, "StandardFormEquation"], Cell[1006779, 34435, 1753, 61, 70, "StandardFormEquation"], Cell[1008535, 34498, 1774, 61, 70, "StandardFormEquation"], Cell[1010312, 34561, 1190, 42, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1011539, 34608, 94, 4, 70, "Subsection3"], Cell[1011636, 34614, 1733, 58, 70, "StandardFormEquation"], Cell[1013372, 34674, 1516, 53, 70, "StandardFormEquation"], Cell[1014891, 34729, 1545, 54, 70, "StandardFormEquation"], Cell[1016439, 34785, 1932, 65, 70, "StandardFormEquation"], Cell[1018374, 34852, 1954, 68, 70, "StandardFormEquation"], Cell[1020331, 34922, 1628, 55, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1021996, 34982, 94, 4, 70, "Subsection3"], Cell[1022093, 34988, 2227, 71, 70, "StandardFormEquation"], Cell[1024323, 35061, 2511, 77, 70, "StandardFormEquation"], Cell[1026837, 35140, 2373, 74, 70, "StandardFormEquation"], Cell[1029213, 35216, 2768, 86, 70, "StandardFormEquation"], Cell[1031984, 35304, 2750, 84, 70, "StandardFormEquation"], Cell[1034737, 35390, 2547, 81, 70, "StandardFormEquation"], Cell[1037287, 35473, 2334, 79, 70, "StandardFormEquation"], Cell[1039624, 35554, 2367, 76, 70, "StandardFormEquation"], Cell[1041994, 35632, 2114, 65, 70, "StandardFormEquation"], Cell[1044111, 35699, 2425, 78, 70, "StandardFormEquation"], Cell[1046539, 35779, 2164, 70, 70, "StandardFormEquation"], Cell[1048706, 35851, 1593, 54, 70, "StandardFormEquation"], Cell[1050302, 35907, 6028, 191, 70, "StandardFormEquation"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1056379, 36104, 88, 3, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[1056492, 36111, 94, 4, 70, "Subsection3"], Cell[1056589, 36117, 1539, 51, 70, "StandardFormEquation"], Cell[1058131, 36170, 737, 25, 70, "StandardFormEquation"], Cell[1058871, 36197, 1011, 35, 70, "StandardFormEquation"], Cell[1059885, 36234, 670, 23, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1060592, 36262, 94, 4, 70, "Subsection3"], Cell[1060689, 36268, 2652, 85, 70, "StandardFormEquation"], Cell[1063344, 36355, 1135, 42, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1064516, 36402, 94, 4, 70, "Subsection3"], Cell[1064613, 36408, 2294, 73, 70, "StandardFormEquation"], Cell[1066910, 36483, 1059, 37, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1068006, 36525, 94, 4, 70, "Subsection3"], Cell[1068103, 36531, 2148, 69, 70, "StandardFormEquation"], Cell[1070254, 36602, 705, 23, 70, "StandardFormEquation"], Cell[1070962, 36627, 703, 24, 70, "StandardFormEquation"], Cell[1071668, 36653, 789, 26, 70, "StandardFormEquation"], Cell[1072460, 36681, 657, 22, 70, "StandardFormEquation"], Cell[1073120, 36705, 885, 30, 70, "StandardFormEquation"], Cell[1074008, 36737, 934, 32, 70, "StandardFormEquation"], Cell[1074945, 36771, 1066, 36, 70, "StandardFormEquation"], Cell[1076014, 36809, 689, 23, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1076740, 36837, 94, 4, 70, "Subsection3"], Cell[1076837, 36843, 2608, 83, 70, "StandardFormEquation"], Cell[1079448, 36928, 1250, 44, 70, "StandardFormEquation"], Cell[1080701, 36974, 857, 30, 70, "StandardFormEquation"], Cell[1081561, 37006, 1462, 50, 70, "StandardFormEquation"], Cell[1083026, 37058, 783, 27, 70, "StandardFormEquation"], Cell[1083812, 37087, 1219, 44, 70, "StandardFormEquation"], Cell[1085034, 37133, 2064, 66, 70, "StandardFormEquation"], Cell[1087101, 37201, 1949, 62, 70, "StandardFormEquation"], Cell[1089053, 37265, 1030, 36, 70, "StandardFormEquation"], Cell[1090086, 37303, 887, 30, 70, "StandardFormEquation"], Cell[1090976, 37335, 1175, 42, 70, "StandardFormEquation"], Cell[1092154, 37379, 973, 35, 70, "StandardFormEquation"], Cell[1093130, 37416, 1293, 45, 70, "StandardFormEquation"], Cell[1094426, 37463, 1527, 53, 70, "StandardFormEquation"], Cell[1095956, 37518, 1271, 43, 70, "StandardFormEquation"], Cell[1097230, 37563, 1193, 42, 70, "StandardFormEquation"], Cell[1098426, 37607, 809, 29, 70, "StandardFormEquation"], Cell[1099238, 37638, 913, 32, 70, "StandardFormEquation"], Cell[1100154, 37672, 882, 32, 70, "StandardFormEquation"], Cell[1101039, 37706, 913, 32, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1101989, 37743, 94, 4, 70, "Subsection3"], Cell[1102086, 37749, 3108, 95, 70, "StandardFormEquation"], Cell[1105197, 37846, 1184, 41, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1106418, 37892, 94, 4, 70, "Subsection3"], Cell[1106515, 37898, 3196, 99, 70, "StandardFormEquation"], Cell[1109714, 37999, 1384, 48, 70, "StandardFormEquation"], Cell[1111101, 38049, 1201, 42, 70, "StandardFormEquation"], Cell[1112305, 38093, 1160, 40, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1113502, 38138, 101, 4, 70, "Subsection3"], Cell[1113606, 38144, 2735, 87, 70, "StandardFormEquation"], Cell[1116344, 38233, 1524, 50, 70, "StandardFormEquation"], Cell[1117871, 38285, 1924, 63, 70, "StandardFormEquation"], Cell[1119798, 38350, 1289, 42, 70, "StandardFormEquation"], Cell[1121090, 38394, 1348, 44, 70, "StandardFormEquation"], Cell[1122441, 38440, 1604, 53, 70, "StandardFormEquation"], Cell[1124048, 38495, 1218, 41, 70, "StandardFormEquation"], Cell[1125269, 38538, 1952, 65, 70, "StandardFormEquation"], Cell[1127224, 38605, 1425, 47, 70, "StandardFormEquation"], Cell[1128652, 38654, 1526, 52, 70, "StandardFormEquation"], Cell[1130181, 38708, 1631, 54, 70, "StandardFormEquation"], Cell[1131815, 38764, 2164, 72, 70, "StandardFormEquation"], Cell[1133982, 38838, 2000, 66, 70, "StandardFormEquation"], Cell[1135985, 38906, 1664, 56, 70, "StandardFormEquation"], Cell[1137652, 38964, 1909, 64, 70, "StandardFormEquation"], Cell[1139564, 39030, 1617, 54, 70, "StandardFormEquation"], Cell[1141184, 39086, 1636, 54, 70, "StandardFormEquation"], Cell[1142823, 39142, 1309, 45, 70, "StandardFormEquation"], Cell[1144135, 39189, 1421, 48, 70, "StandardFormEquation"], Cell[1145559, 39239, 1728, 58, 70, "StandardFormEquation"], Cell[1147290, 39299, 1476, 52, 70, "StandardFormEquation"], Cell[1148769, 39353, 1787, 65, 70, "StandardFormEquation"], Cell[1150559, 39420, 1355, 49, 70, "StandardFormEquation"], Cell[1151917, 39471, 1641, 61, 70, "StandardFormEquation"], Cell[1153561, 39534, 1007, 35, 70, "StandardFormEquation"], Cell[1154571, 39571, 1233, 42, 70, "StandardFormEquation"], Cell[1155807, 39615, 887, 30, 70, "StandardFormEquation"], Cell[1156697, 39647, 1112, 37, 70, "StandardFormEquation"], Cell[1157812, 39686, 1101, 39, 70, "StandardFormEquation"], Cell[1158916, 39727, 1068, 36, 70, "StandardFormEquation"], Cell[1159987, 39765, 1173, 41, 70, "StandardFormEquation"], Cell[1161163, 39808, 1108, 38, 70, "StandardFormEquation"], Cell[1162274, 39848, 1323, 45, 70, "StandardFormEquation"], Cell[1163600, 39895, 951, 32, 70, "StandardFormEquation"], Cell[1164554, 39929, 1076, 36, 70, "StandardFormEquation"], Cell[1165633, 39967, 1893, 61, 70, "StandardFormEquation"], Cell[1167529, 40030, 1420, 49, 70, "StandardFormEquation"], Cell[1168952, 40081, 1396, 48, 70, "StandardFormEquation"], Cell[1170351, 40131, 1455, 50, 70, "StandardFormEquation"], Cell[1171809, 40183, 1431, 49, 70, "StandardFormEquation"], Cell[1173243, 40234, 753, 25, 70, "StandardFormEquation"], Cell[1173999, 40261, 822, 28, 70, "StandardFormEquation"], Cell[1174824, 40291, 1201, 40, 70, "StandardFormEquation"], Cell[1176028, 40333, 1452, 50, 70, "StandardFormEquation"], Cell[1177483, 40385, 1626, 58, 70, "StandardFormEquation"], Cell[1179112, 40445, 1653, 59, 70, "StandardFormEquation"], Cell[1180768, 40506, 1597, 57, 70, "StandardFormEquation"], Cell[1182368, 40565, 1154, 38, 70, "StandardFormEquation"], Cell[1183525, 40605, 1155, 38, 70, "StandardFormEquation"], Cell[1184683, 40645, 1359, 46, 70, "StandardFormEquation"], Cell[1186045, 40693, 1377, 47, 70, "StandardFormEquation"], Cell[1187425, 40742, 1358, 46, 70, "StandardFormEquation"], Cell[1188786, 40790, 1414, 48, 70, "StandardFormEquation"], Cell[1190203, 40840, 1498, 52, 70, "StandardFormEquation"], Cell[1191704, 40894, 1453, 50, 70, "StandardFormEquation"], Cell[1193160, 40946, 1476, 51, 70, "StandardFormEquation"], Cell[1194639, 40999, 1501, 52, 70, "StandardFormEquation"], Cell[1196143, 41053, 1048, 37, 70, "StandardFormEquation"], Cell[1197194, 41092, 1073, 38, 70, "StandardFormEquation"], Cell[1198270, 41132, 1296, 44, 70, "StandardFormEquation"], Cell[1199569, 41178, 1427, 50, 70, "StandardFormEquation"], Cell[1200999, 41230, 1478, 51, 70, "StandardFormEquation"], Cell[1202480, 41283, 1446, 50, 70, "StandardFormEquation"], Cell[1203929, 41335, 1499, 52, 70, "StandardFormEquation"], Cell[1205431, 41389, 1496, 52, 70, "StandardFormEquation"], Cell[1206930, 41443, 1523, 53, 70, "StandardFormEquation"], Cell[1208456, 41498, 1184, 39, 70, "StandardFormEquation"], Cell[1209643, 41539, 1157, 38, 70, "StandardFormEquation"], Cell[1210803, 41579, 1605, 57, 70, "StandardFormEquation"], Cell[1212411, 41638, 1660, 59, 70, "StandardFormEquation"], Cell[1214074, 41699, 1331, 49, 70, "StandardFormEquation"], Cell[1215408, 41750, 1628, 58, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1217073, 41813, 94, 4, 70, "Subsection3"], Cell[1217170, 41819, 3233, 102, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1220440, 41926, 94, 4, 70, "Subsection3"], Cell[1220537, 41932, 3783, 115, 70, "StandardFormEquation"], Cell[1224323, 42049, 1503, 53, 70, "StandardFormEquation"], Cell[1225829, 42104, 1097, 39, 70, "StandardFormEquation"], Cell[1226929, 42145, 1652, 58, 70, "StandardFormEquation"], Cell[1228584, 42205, 1252, 44, 70, "StandardFormEquation"], Cell[1229839, 42251, 983, 35, 70, "StandardFormEquation"], Cell[1230825, 42288, 800, 27, 70, "StandardFormEquation"], Cell[1231628, 42317, 1010, 36, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1232675, 42358, 94, 4, 70, "Subsection3"], Cell[1232772, 42364, 3965, 123, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1236774, 42492, 94, 4, 70, "Subsection3"], Cell[1236871, 42498, 2026, 65, 70, "StandardFormEquation"], Cell[1238900, 42565, 1116, 37, 70, "StandardFormEquation"], Cell[1240019, 42604, 1419, 48, 70, "StandardFormEquation"], Cell[1241441, 42654, 1021, 34, 70, "StandardFormEquation"], Cell[1242465, 42690, 1263, 43, 70, "StandardFormEquation"], Cell[1243731, 42735, 707, 22, 70, "StandardFormEquation"], Cell[1244441, 42759, 710, 23, 70, "StandardFormEquation"], Cell[1245154, 42784, 759, 25, 70, "StandardFormEquation"], Cell[1245916, 42811, 956, 32, 70, "StandardFormEquation"], Cell[1246875, 42845, 1151, 38, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1248063, 42888, 94, 4, 70, "Subsection3"], Cell[1248160, 42894, 2547, 81, 70, "StandardFormEquation"], Cell[1250710, 42977, 1375, 48, 70, "StandardFormEquation"], Cell[1252088, 43027, 1412, 49, 70, "StandardFormEquation"], Cell[1253503, 43078, 1069, 37, 70, "StandardFormEquation"], Cell[1254575, 43117, 1337, 46, 70, "StandardFormEquation"], Cell[1255915, 43165, 1029, 36, 70, "StandardFormEquation"], Cell[1256947, 43203, 1209, 41, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1258193, 43249, 94, 4, 70, "Subsection3"], Cell[1258290, 43255, 1349, 44, 70, "StandardFormEquation"], Cell[1259642, 43301, 1641, 55, 70, "StandardFormEquation"], Cell[1261286, 43358, 1412, 44, 70, "StandardFormEquation"], Cell[1262701, 43404, 1378, 45, 70, "StandardFormEquation"], Cell[1264082, 43451, 1631, 53, 70, "StandardFormEquation"], Cell[1265716, 43506, 1653, 54, 70, "StandardFormEquation"], Cell[1267372, 43562, 997, 34, 70, "StandardFormEquation"], Cell[1268372, 43598, 1289, 44, 70, "StandardFormEquation"], Cell[1269664, 43644, 1513, 52, 70, "StandardFormEquation"], Cell[1271180, 43698, 1202, 40, 70, "StandardFormEquation"], Cell[1272385, 43740, 1994, 64, 70, "StandardFormEquation"], Cell[1274382, 43806, 1949, 65, 70, "StandardFormEquation"], Cell[1276334, 43873, 1442, 47, 70, "StandardFormEquation"], Cell[1277779, 43922, 1218, 40, 70, "StandardFormEquation"], Cell[1279000, 43964, 1865, 61, 70, "StandardFormEquation"], Cell[1280868, 44027, 1712, 56, 70, "StandardFormEquation"], Cell[1282583, 44085, 1663, 53, 70, "StandardFormEquation"], Cell[1284249, 44140, 1583, 52, 70, "StandardFormEquation"], Cell[1285835, 44194, 1960, 63, 70, "StandardFormEquation"], Cell[1287798, 44259, 1643, 55, 70, "StandardFormEquation"], Cell[1289444, 44316, 2072, 67, 70, "StandardFormEquation"], Cell[1291519, 44385, 1703, 56, 70, "StandardFormEquation"], Cell[1293225, 44443, 2212, 72, 70, "StandardFormEquation"], Cell[1295440, 44517, 1991, 64, 70, "StandardFormEquation"], Cell[1297434, 44583, 1732, 57, 70, "StandardFormEquation"], Cell[1299169, 44642, 1550, 52, 70, "StandardFormEquation"], Cell[1300722, 44696, 1264, 43, 70, "StandardFormEquation"], Cell[1301989, 44741, 2027, 66, 70, "StandardFormEquation"], Cell[1304019, 44809, 1176, 40, 70, "StandardFormEquation"], Cell[1305198, 44851, 1089, 38, 70, "StandardFormEquation"], Cell[1306290, 44891, 1123, 39, 70, "StandardFormEquation"], Cell[1307416, 44932, 1212, 42, 70, "StandardFormEquation"], Cell[1308631, 44976, 1148, 39, 70, "StandardFormEquation"], Cell[1309782, 45017, 1246, 42, 70, "StandardFormEquation"], Cell[1311031, 45061, 1482, 50, 70, "StandardFormEquation"], Cell[1312516, 45113, 1301, 46, 70, "StandardFormEquation"], Cell[1313820, 45161, 950, 31, 70, "StandardFormEquation"], Cell[1314773, 45194, 1614, 54, 70, "StandardFormEquation"], Cell[1316390, 45250, 1459, 49, 70, "StandardFormEquation"], Cell[1317852, 45301, 1296, 44, 70, "StandardFormEquation"], Cell[1319151, 45347, 1275, 43, 70, "StandardFormEquation"], Cell[1320429, 45392, 998, 34, 70, "StandardFormEquation"], Cell[1321430, 45428, 1144, 40, 70, "StandardFormEquation"], Cell[1322577, 45470, 2252, 74, 70, "StandardFormEquation"], Cell[1324832, 45546, 2305, 75, 70, "StandardFormEquation"], Cell[1327140, 45623, 1558, 53, 70, "StandardFormEquation"], Cell[1328701, 45678, 1634, 55, 70, "StandardFormEquation"], Cell[1330338, 45735, 1199, 42, 70, "StandardFormEquation"], Cell[1331540, 45779, 1229, 43, 70, "StandardFormEquation"], Cell[1332772, 45824, 1195, 41, 70, "StandardFormEquation"], Cell[1333970, 45867, 1207, 42, 70, "StandardFormEquation"], Cell[1335180, 45911, 2112, 70, 70, "StandardFormEquation"], Cell[1337295, 45983, 823, 28, 70, "StandardFormEquation"], Cell[1338121, 46013, 1172, 40, 70, "StandardFormEquation"], Cell[1339296, 46055, 1486, 52, 70, "StandardFormEquation"], Cell[1340785, 46109, 1398, 49, 70, "StandardFormEquation"], Cell[1342186, 46160, 1434, 50, 70, "StandardFormEquation"], Cell[1343623, 46212, 1324, 46, 70, "StandardFormEquation"], Cell[1344950, 46260, 1500, 54, 70, "StandardFormEquation"], Cell[1346453, 46316, 1436, 49, 70, "StandardFormEquation"], Cell[1347892, 46367, 1451, 49, 70, "StandardFormEquation"], Cell[1349346, 46418, 1416, 50, 70, "StandardFormEquation"], Cell[1350765, 46470, 1343, 48, 70, "StandardFormEquation"], Cell[1352111, 46520, 1399, 51, 70, "StandardFormEquation"], Cell[1353513, 46573, 1437, 51, 70, "StandardFormEquation"], Cell[1354953, 46626, 1386, 49, 70, "StandardFormEquation"], Cell[1356342, 46677, 1462, 51, 70, "StandardFormEquation"], Cell[1357807, 46730, 1450, 51, 70, "StandardFormEquation"], Cell[1359260, 46783, 1387, 49, 70, "StandardFormEquation"], Cell[1360650, 46834, 1391, 49, 70, "StandardFormEquation"], Cell[1362044, 46885, 1409, 50, 70, "StandardFormEquation"], Cell[1363456, 46937, 792, 26, 70, "StandardFormEquation"], Cell[1364251, 46965, 1112, 38, 70, "StandardFormEquation"], Cell[1365366, 47005, 1263, 44, 70, "StandardFormEquation"], Cell[1366632, 47051, 1515, 53, 70, "StandardFormEquation"], Cell[1368150, 47106, 1285, 45, 70, "StandardFormEquation"], Cell[1369438, 47153, 1312, 44, 70, "StandardFormEquation"], Cell[1370753, 47199, 1340, 45, 70, "StandardFormEquation"], Cell[1372096, 47246, 1344, 45, 70, "StandardFormEquation"], Cell[1373443, 47293, 1372, 46, 70, "StandardFormEquation"], Cell[1374818, 47341, 772, 26, 70, "StandardFormEquation"], Cell[1375593, 47369, 1134, 39, 70, "StandardFormEquation"], Cell[1376730, 47410, 1460, 52, 70, "StandardFormEquation"], Cell[1378193, 47464, 1472, 51, 70, "StandardFormEquation"], Cell[1379668, 47517, 1424, 50, 70, "StandardFormEquation"], Cell[1381095, 47569, 1452, 49, 70, "StandardFormEquation"], Cell[1382550, 47620, 1630, 59, 70, "StandardFormEquation"], Cell[1384183, 47681, 851, 29, 70, "StandardFormEquation"], Cell[1385037, 47712, 827, 28, 70, "StandardFormEquation"], Cell[1385867, 47742, 1156, 40, 70, "StandardFormEquation"], Cell[1387026, 47784, 1176, 41, 70, "StandardFormEquation"], Cell[1388205, 47827, 766, 26, 70, "StandardFormEquation"], Cell[1388974, 47855, 742, 25, 70, "StandardFormEquation"], Cell[1389719, 47882, 816, 29, 70, "StandardFormEquation"], Cell[1390538, 47913, 1095, 39, 70, "StandardFormEquation"], Cell[1391636, 47954, 1122, 40, 70, "StandardFormEquation"], Cell[1392761, 47996, 609, 20, 70, "StandardFormEquation"], Cell[1393373, 48018, 1371, 45, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1394781, 48068, 94, 4, 70, "Subsection3"], Cell[1394878, 48074, 3241, 101, 70, "StandardFormEquation"], Cell[1398122, 48177, 1043, 35, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1399202, 48217, 94, 4, 70, "Subsection3"], Cell[1399299, 48223, 3243, 102, 70, "StandardFormEquation"], Cell[1402545, 48327, 1757, 60, 70, "StandardFormEquation"], Cell[1404305, 48389, 1581, 55, 70, "StandardFormEquation"], Cell[1405889, 48446, 1254, 44, 70, "StandardFormEquation"], Cell[1407146, 48492, 1107, 39, 70, "StandardFormEquation"], Cell[1408256, 48533, 1773, 62, 70, "StandardFormEquation"], Cell[1410032, 48597, 1593, 56, 70, "StandardFormEquation"], Cell[1411628, 48655, 1713, 60, 70, "StandardFormEquation"], Cell[1413344, 48717, 1015, 35, 70, "StandardFormEquation"], Cell[1414362, 48754, 1384, 47, 70, "StandardFormEquation"], Cell[1415749, 48803, 1293, 45, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1417079, 48853, 94, 4, 70, "Subsection3"], Cell[1417176, 48859, 1615, 53, 70, "StandardFormEquation"], Cell[1418794, 48914, 1938, 60, 70, "StandardFormEquation"], Cell[1420735, 48976, 2528, 82, 70, "StandardFormEquation"], Cell[1423266, 49060, 1063, 37, 70, "StandardFormEquation"], Cell[1424332, 49099, 816, 26, 70, "StandardFormEquation"], Cell[1425151, 49127, 1262, 41, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1426450, 49173, 94, 4, 70, "Subsection3"], Cell[1426547, 49179, 5542, 168, 70, "StandardFormEquation"], Cell[1432092, 49349, 1469, 49, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1433598, 49403, 94, 4, 70, "Subsection3"], Cell[1433695, 49409, 1756, 57, 70, "StandardFormEquation"], Cell[1435454, 49468, 1900, 63, 70, "StandardFormEquation"], Cell[1437357, 49533, 1903, 63, 70, "StandardFormEquation"], Cell[1439263, 49598, 1934, 63, 70, "StandardFormEquation"], Cell[1441200, 49663, 1961, 63, 70, "StandardFormEquation"], Cell[1443164, 49728, 1163, 39, 70, "StandardFormEquation"], Cell[1444330, 49769, 1897, 62, 70, "StandardFormEquation"], Cell[1446230, 49833, 1619, 52, 70, "StandardFormEquation"], Cell[1447852, 49887, 1379, 44, 70, "StandardFormEquation"], Cell[1449234, 49933, 1203, 41, 70, "StandardFormEquation"], Cell[1450440, 49976, 1383, 46, 70, "StandardFormEquation"], Cell[1451826, 50024, 1203, 41, 70, "StandardFormEquation"], Cell[1453032, 50067, 1478, 50, 70, "StandardFormEquation"], Cell[1454513, 50119, 1379, 48, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1455929, 50172, 94, 4, 70, "Subsection3"], Cell[1456026, 50178, 2188, 71, 70, "StandardFormEquation"], Cell[1458217, 50251, 1496, 52, 70, "StandardFormEquation"], Cell[1459716, 50305, 1574, 55, 70, "StandardFormEquation"], Cell[1461293, 50362, 1544, 54, 70, "StandardFormEquation"], Cell[1462840, 50418, 1370, 49, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1464247, 50472, 94, 4, 70, "Subsection3"], Cell[1464344, 50478, 1635, 52, 70, "StandardFormEquation"], Cell[1465982, 50532, 2571, 80, 70, "StandardFormEquation"], Cell[1468556, 50614, 2013, 64, 70, "StandardFormEquation"], Cell[1470572, 50680, 1121, 34, 70, "StandardFormEquation"], Cell[1471696, 50716, 1475, 46, 70, "StandardFormEquation"], Cell[1473174, 50764, 2010, 67, 70, "StandardFormEquation"], Cell[1475187, 50833, 2160, 69, 70, "StandardFormEquation"], Cell[1477350, 50904, 752, 25, 70, "StandardFormEquation"], Cell[1478105, 50931, 730, 23, 70, "StandardFormEquation"], Cell[1478838, 50956, 1058, 34, 70, "StandardFormEquation"], Cell[1479899, 50992, 2009, 69, 70, "StandardFormEquation"], Cell[1481911, 51063, 2701, 88, 70, "StandardFormEquation"], Cell[1484615, 51153, 1073, 35, 70, "StandardFormEquation"], Cell[1485691, 51190, 1299, 45, 70, "StandardFormEquation"], Cell[1486993, 51237, 1250, 42, 70, "StandardFormEquation"], Cell[1488246, 51281, 1182, 39, 70, "StandardFormEquation"], Cell[1489431, 51322, 1540, 51, 70, "StandardFormEquation"], Cell[1490974, 51375, 892, 30, 70, "StandardFormEquation"], Cell[1491869, 51407, 882, 30, 70, "StandardFormEquation"], Cell[1492754, 51439, 1410, 47, 70, "StandardFormEquation"], Cell[1494167, 51488, 1145, 38, 70, "StandardFormEquation"], Cell[1495315, 51528, 1290, 43, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1496642, 51576, 94, 4, 70, "Subsection3"], Cell[1496739, 51582, 3172, 98, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1499948, 51685, 94, 4, 70, "Subsection3"], Cell[1500045, 51691, 3160, 98, 70, "StandardFormEquation"], Cell[1503208, 51791, 1045, 36, 70, "StandardFormEquation"], Cell[1504256, 51829, 1692, 59, 70, "StandardFormEquation"], Cell[1505951, 51890, 1207, 42, 70, "StandardFormEquation"], Cell[1507161, 51934, 1751, 60, 70, "StandardFormEquation"], Cell[1508915, 51996, 1230, 43, 70, "StandardFormEquation"], Cell[1510148, 52041, 1673, 57, 70, "StandardFormEquation"], Cell[1511824, 52100, 1542, 53, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1513403, 52158, 94, 4, 70, "Subsection3"], Cell[1513500, 52164, 3299, 101, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1516836, 52270, 94, 4, 70, "Subsection3"], Cell[1516933, 52276, 3855, 118, 70, "StandardFormEquation"], Cell[1520791, 52396, 1825, 61, 70, "StandardFormEquation"], Cell[1522619, 52459, 2225, 73, 70, "StandardFormEquation"], Cell[1524847, 52534, 1973, 65, 70, "StandardFormEquation"], Cell[1526823, 52601, 1805, 60, 70, "StandardFormEquation"], Cell[1528631, 52663, 1815, 60, 70, "StandardFormEquation"], Cell[1530449, 52725, 2042, 67, 70, "StandardFormEquation"], Cell[1532494, 52794, 1810, 60, 70, "StandardFormEquation"], Cell[1534307, 52856, 2017, 67, 70, "StandardFormEquation"], Cell[1536327, 52925, 2304, 75, 70, "StandardFormEquation"], Cell[1538634, 53002, 2065, 69, 70, "StandardFormEquation"], Cell[1540702, 53073, 1483, 50, 70, "StandardFormEquation"], Cell[1542188, 53125, 1474, 50, 70, "StandardFormEquation"], Cell[1543665, 53177, 1255, 42, 70, "StandardFormEquation"], Cell[1544923, 53221, 1104, 38, 70, "StandardFormEquation"], Cell[1546030, 53261, 832, 30, 70, "StandardFormEquation"], Cell[1546865, 53293, 878, 33, 70, "StandardFormEquation"], Cell[1547746, 53328, 906, 34, 70, "StandardFormEquation"], Cell[1548655, 53364, 900, 32, 70, "StandardFormEquation"], Cell[1549558, 53398, 1119, 40, 70, "StandardFormEquation"], Cell[1550680, 53440, 1146, 41, 70, "StandardFormEquation"], Cell[1551829, 53483, 1084, 37, 70, "StandardFormEquation"], Cell[1552916, 53522, 1426, 48, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1554379, 53575, 94, 4, 70, "Subsection3"], Cell[1554476, 53581, 4113, 126, 70, "StandardFormEquation"], Cell[1558592, 53709, 1261, 43, 70, "StandardFormEquation"], Cell[1559856, 53754, 1342, 47, 70, "StandardFormEquation"], Cell[1561201, 53803, 1396, 48, 70, "StandardFormEquation"], Cell[1562600, 53853, 1350, 47, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1563987, 53905, 94, 4, 70, "Subsection3"], Cell[1564084, 53911, 3270, 102, 70, "StandardFormEquation"], Cell[1567357, 54015, 1191, 40, 70, "StandardFormEquation"], Cell[1568551, 54057, 2143, 70, 70, "StandardFormEquation"], Cell[1570697, 54129, 1236, 42, 70, "StandardFormEquation"], Cell[1571936, 54173, 1946, 66, 70, "StandardFormEquation"], Cell[1573885, 54241, 1262, 43, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1575184, 54289, 94, 4, 70, "Subsection3"], Cell[1575281, 54295, 6493, 197, 70, "StandardFormEquation"], Cell[1581777, 54494, 1826, 63, 70, "StandardFormEquation"], Cell[1583606, 54559, 1831, 63, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1585474, 54627, 94, 4, 70, "Subsection3"], Cell[1585571, 54633, 4252, 132, 70, "StandardFormEquation"], Cell[1589826, 54767, 1635, 54, 70, "StandardFormEquation"], Cell[1591464, 54823, 1644, 55, 70, "StandardFormEquation"], Cell[1593111, 54880, 1673, 56, 70, "StandardFormEquation"], Cell[1594787, 54938, 1704, 57, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1596528, 55000, 94, 4, 70, "Subsection3"], Cell[1596625, 55006, 6027, 183, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1602689, 55194, 94, 4, 70, "Subsection3"], Cell[1602786, 55200, 3943, 120, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1606766, 55325, 94, 4, 70, "Subsection3"], Cell[1606863, 55331, 6598, 202, 70, "StandardFormEquation"], Cell[1613464, 55535, 2191, 74, 70, "StandardFormEquation"], Cell[1615658, 55611, 2204, 71, 70, "StandardFormEquation"], Cell[1617865, 55684, 2214, 72, 70, "StandardFormEquation"], Cell[1620082, 55758, 1959, 68, 70, "StandardFormEquation"], Cell[1622044, 55828, 2128, 70, 70, "StandardFormEquation"], Cell[1624175, 55900, 2130, 70, 70, "StandardFormEquation"], Cell[1626308, 55972, 2124, 70, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1628469, 56047, 94, 4, 70, "Subsection3"], Cell[1628566, 56053, 2474, 80, 70, "StandardFormEquation"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1631089, 56139, 88, 3, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[1631202, 56146, 94, 4, 70, "Subsection3"], Cell[1631299, 56152, 4091, 126, 70, "StandardFormEquation"], Cell[1635393, 56280, 816, 28, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1636246, 56313, 94, 4, 70, "Subsection3"], Cell[1636343, 56319, 4330, 137, 70, "StandardFormEquation"], Cell[1640676, 56458, 1217, 42, 70, "StandardFormEquation"], Cell[1641896, 56502, 1804, 61, 70, "StandardFormEquation"], Cell[1643703, 56565, 1698, 59, 70, "StandardFormEquation"], Cell[1645404, 56626, 1136, 40, 70, "StandardFormEquation"], Cell[1646543, 56668, 1035, 36, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1647615, 56709, 94, 4, 70, "Subsection3"], Cell[1647712, 56715, 4981, 154, 70, "StandardFormEquation"], Cell[1652696, 56871, 1023, 35, 70, "StandardFormEquation"], Cell[1653722, 56908, 873, 29, 70, "StandardFormEquation"], Cell[1654598, 56939, 993, 34, 70, "StandardFormEquation"], Cell[1655594, 56975, 1014, 34, 70, "StandardFormEquation"], Cell[1656611, 57011, 895, 31, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1657543, 57047, 94, 4, 70, "Subsection3"], Cell[1657640, 57053, 5179, 162, 70, "StandardFormEquation"], Cell[1662822, 57217, 1232, 44, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1664091, 57266, 94, 4, 70, "Subsection3"], Cell[1664188, 57272, 5563, 174, 70, "StandardFormEquation"], Cell[1669754, 57448, 1362, 45, 70, "StandardFormEquation"], Cell[1671119, 57495, 1302, 43, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1672458, 57543, 94, 4, 70, "Subsection3"], Cell[1672555, 57549, 6013, 183, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1678605, 57737, 94, 4, 70, "Subsection3"], Cell[1678702, 57743, 6152, 194, 70, "StandardFormEquation"], Cell[1684857, 57939, 1480, 51, 70, "StandardFormEquation"], Cell[1686340, 57992, 1701, 56, 70, "StandardFormEquation"], Cell[1688044, 58050, 1595, 56, 70, "StandardFormEquation"], Cell[1689642, 58108, 1590, 56, 70, "StandardFormEquation"], Cell[1691235, 58166, 1524, 52, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1692796, 58223, 94, 4, 70, "Subsection3"], Cell[1692893, 58229, 6907, 215, 70, "StandardFormEquation"], Cell[1699803, 58446, 1694, 59, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1701534, 58510, 94, 4, 70, "Subsection3"], Cell[1701631, 58516, 6823, 205, 70, "StandardFormEquation"], Cell[1708457, 58723, 1665, 55, 70, "StandardFormEquation"], Cell[1710125, 58780, 841, 27, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1711003, 58812, 94, 4, 70, "Subsection3"], Cell[1711100, 58818, 4875, 148, 70, "StandardFormEquation"], Cell[1715978, 58968, 1982, 64, 70, "StandardFormEquation"], Cell[1717963, 59034, 1393, 47, 70, "StandardFormEquation"], Cell[1719359, 59083, 1259, 43, 70, "StandardFormEquation"], Cell[1720621, 59128, 1713, 58, 70, "StandardFormEquation"], Cell[1722337, 59188, 1682, 58, 70, "StandardFormEquation"], Cell[1724022, 59248, 1232, 42, 70, "StandardFormEquation"], Cell[1725257, 59292, 1682, 58, 70, "StandardFormEquation"], Cell[1726942, 59352, 1185, 40, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1728164, 59397, 94, 4, 70, "Subsection3"], Cell[1728261, 59403, 5876, 178, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1734174, 59586, 94, 4, 70, "Subsection3"], Cell[1734271, 59592, 6013, 187, 70, "StandardFormEquation"], Cell[1740287, 59781, 1552, 48, 70, "StandardFormEquation"], Cell[1741842, 59831, 1639, 52, 70, "StandardFormEquation"], Cell[1743484, 59885, 1654, 56, 70, "StandardFormEquation"], Cell[1745141, 59943, 1582, 55, 70, "StandardFormEquation"], Cell[1746726, 60000, 1624, 53, 70, "StandardFormEquation"], Cell[1748353, 60055, 1165, 41, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1749555, 60101, 94, 4, 70, "Subsection3"], Cell[1749652, 60107, 1886, 61, 70, "StandardFormEquation"], Cell[1751541, 60170, 2289, 70, 70, "StandardFormEquation"], Cell[1753833, 60242, 2235, 65, 70, "StandardFormEquation"], Cell[1756071, 60309, 1218, 42, 70, "StandardFormEquation"], Cell[1757292, 60353, 2153, 68, 70, "StandardFormEquation"], Cell[1759448, 60423, 2526, 79, 70, "StandardFormEquation"], Cell[1761977, 60504, 1928, 61, 70, "StandardFormEquation"], Cell[1763908, 60567, 3186, 99, 70, "StandardFormEquation"], Cell[1767097, 60668, 1977, 64, 70, "StandardFormEquation"], Cell[1769077, 60734, 2127, 66, 70, "StandardFormEquation"], Cell[1771207, 60802, 1870, 64, 70, "StandardFormEquation"], Cell[1773080, 60868, 2027, 70, 70, "StandardFormEquation"], Cell[1775110, 60940, 2402, 80, 70, "StandardFormEquation"], Cell[1777515, 61022, 3392, 108, 70, "StandardFormEquation"], Cell[1780910, 61132, 2376, 78, 70, "StandardFormEquation"], Cell[1783289, 61212, 2008, 65, 70, "StandardFormEquation"], Cell[1785300, 61279, 2166, 72, 70, "StandardFormEquation"], Cell[1787469, 61353, 2141, 70, 70, "StandardFormEquation"], Cell[1789613, 61425, 2091, 69, 70, "StandardFormEquation"], Cell[1791707, 61496, 2352, 75, 70, "StandardFormEquation"], Cell[1794062, 61573, 2318, 75, 70, "StandardFormEquation"], Cell[1796383, 61650, 2628, 83, 70, "StandardFormEquation"], Cell[1799014, 61735, 1762, 57, 70, "StandardFormEquation"], Cell[1800779, 61794, 2117, 69, 70, "StandardFormEquation"], Cell[1802899, 61865, 2650, 86, 70, "StandardFormEquation"], Cell[1805552, 61953, 1627, 53, 70, "StandardFormEquation"], Cell[1807182, 62008, 1972, 64, 70, "StandardFormEquation"], Cell[1809157, 62074, 1961, 63, 70, "StandardFormEquation"], Cell[1811121, 62139, 2655, 86, 70, "StandardFormEquation"], Cell[1813779, 62227, 1920, 62, 70, "StandardFormEquation"], Cell[1815702, 62291, 1889, 63, 70, "StandardFormEquation"], Cell[1817594, 62356, 2139, 71, 70, "StandardFormEquation"], Cell[1819736, 62429, 2146, 69, 70, "StandardFormEquation"], Cell[1821885, 62500, 2763, 90, 70, "StandardFormEquation"], Cell[1824651, 62592, 2315, 77, 70, "StandardFormEquation"], Cell[1826969, 62671, 1947, 65, 70, "StandardFormEquation"], Cell[1828919, 62738, 1508, 50, 70, "StandardFormEquation"], Cell[1830430, 62790, 2189, 71, 70, "StandardFormEquation"], Cell[1832622, 62863, 2454, 77, 70, "StandardFormEquation"], Cell[1835079, 62942, 1400, 49, 70, "StandardFormEquation"], Cell[1836482, 62993, 1560, 55, 70, "StandardFormEquation"], Cell[1838045, 63050, 807, 27, 70, "StandardFormEquation"], Cell[1838855, 63079, 1157, 39, 70, "StandardFormEquation"], Cell[1840015, 63120, 1133, 39, 70, "StandardFormEquation"], Cell[1841151, 63161, 939, 32, 70, "StandardFormEquation"], Cell[1842093, 63195, 737, 25, 70, "StandardFormEquation"], Cell[1842833, 63222, 675, 22, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1843545, 63249, 94, 4, 70, "Subsection3"], Cell[1843642, 63255, 5792, 174, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1849471, 63434, 94, 4, 70, "Subsection3"], Cell[1849568, 63440, 5940, 185, 70, "StandardFormEquation"], Cell[1855511, 63627, 1631, 56, 70, "StandardFormEquation"], Cell[1857145, 63685, 2008, 71, 70, "StandardFormEquation"], Cell[1859156, 63758, 1823, 61, 70, "StandardFormEquation"], Cell[1860982, 63821, 1748, 60, 70, "StandardFormEquation"], Cell[1862733, 63883, 1716, 59, 70, "StandardFormEquation"], Cell[1864452, 63944, 2011, 68, 70, "StandardFormEquation"], Cell[1866466, 64014, 1705, 60, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1868208, 64079, 94, 4, 70, "Subsection3"], Cell[1868305, 64085, 3859, 116, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1872201, 64206, 94, 4, 70, "Subsection3"], Cell[1872298, 64212, 6617, 196, 70, "StandardFormEquation"], Cell[1878918, 64410, 791, 26, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1879746, 64441, 94, 4, 70, "Subsection3"], Cell[1879843, 64447, 8271, 238, 70, "StandardFormEquation"], Cell[1888117, 64687, 823, 28, 70, "StandardFormEquation"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1888989, 64721, 88, 3, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[1889102, 64728, 94, 4, 70, "Subsection3"], Cell[1889199, 64734, 1363, 47, 70, "StandardFormEquation"], Cell[1890565, 64783, 888, 30, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1891490, 64818, 94, 4, 70, "Subsection3"], Cell[1891587, 64824, 1340, 44, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1892964, 64873, 94, 4, 70, "Subsection3"], Cell[1893061, 64879, 1482, 48, 70, "StandardFormEquation"], Cell[1894546, 64929, 1453, 45, 70, "StandardFormEquation"], Cell[1896002, 64976, 1058, 36, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1897097, 65017, 94, 4, 70, "Subsection3"], Cell[1897194, 65023, 1699, 57, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1898930, 65085, 94, 4, 70, "Subsection3"], Cell[1899027, 65091, 1613, 50, 70, "StandardFormEquation"], Cell[1900643, 65143, 1174, 39, 70, "StandardFormEquation"], Cell[1901820, 65184, 1490, 51, 70, "StandardFormEquation"], Cell[1903313, 65237, 1514, 50, 70, "StandardFormEquation"], Cell[1904830, 65289, 1625, 56, 70, "StandardFormEquation"], Cell[1906458, 65347, 1532, 54, 70, "StandardFormEquation"], Cell[1907993, 65403, 1031, 34, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1909061, 65442, 94, 4, 70, "Subsection3"], Cell[1909158, 65448, 2911, 89, 70, "StandardFormEquation"], Cell[1912072, 65539, 2924, 92, 70, "StandardFormEquation"], Cell[1914999, 65633, 2582, 83, 70, "StandardFormEquation"], Cell[1917584, 65718, 2933, 92, 70, "StandardFormEquation"], Cell[1920520, 65812, 2551, 79, 70, "StandardFormEquation"], Cell[1923074, 65893, 3138, 101, 70, "StandardFormEquation"], Cell[1926215, 65996, 2380, 77, 70, "StandardFormEquation"], Cell[1928598, 66075, 2520, 82, 70, "StandardFormEquation"], Cell[1931121, 66159, 2715, 87, 70, "StandardFormEquation"], Cell[1933839, 66248, 2727, 89, 70, "StandardFormEquation"], Cell[1936569, 66339, 2812, 91, 70, "StandardFormEquation"], Cell[1939384, 66432, 2083, 69, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1941504, 66506, 94, 4, 70, "Subsection3"], Cell[1941601, 66512, 2100, 69, 70, "StandardFormEquation"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1943750, 66587, 88, 3, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[1943863, 66594, 94, 4, 70, "Subsection3"], Cell[1943960, 66600, 1416, 51, 70, "StandardFormEquation"], Cell[1945379, 66653, 1341, 48, 70, "StandardFormEquation"], Cell[1946723, 66703, 980, 33, 70, "StandardFormEquation"] }, Closed]] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1947776, 66744, 42, 0, 70, "Section"], Cell[CellGroupData[{ Cell[1947843, 66748, 44, 0, 70, "Subsection"], Cell[1947890, 66750, 4369, 152, 70, "Text"], Cell[1952262, 66904, 2579, 74, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1954878, 66983, 50, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[1954953, 66987, 66, 1, 70, "Subsubsection", Evaluatable->False], Cell[1955022, 66990, 2119, 63, 70, "StandardFormEquation"], Cell[1957144, 67055, 2119, 63, 70, "StandardFormEquation"], Cell[1959266, 67120, 2237, 65, 70, "StandardFormEquation"], Cell[1961506, 67187, 2237, 65, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[1963780, 67257, 36, 0, 70, "Subsubsection"], Cell[1963819, 67259, 51, 1, 70, "Text", Evaluatable->False] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[1963919, 67266, 35, 0, 70, "Subsection"], Cell[1963957, 67268, 3316, 130, 70, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[1967310, 67403, 33, 0, 70, "Subsection"], Cell[1967346, 67405, 2290, 88, 70, "Text"], Cell[1969639, 67495, 2979, 112, 70, "Text"], Cell[1972621, 67609, 1254, 39, 70, "StandardFormEquation"], Cell[1973878, 67650, 2005, 60, 70, "StandardFormEquation"], Cell[1975886, 67712, 2276, 68, 70, "StandardFormEquation"], Cell[1978165, 67782, 5135, 154, 70, "StandardFormEquation"], Cell[1983303, 67938, 5681, 170, 70, "StandardFormEquation"], Cell[1988987, 68110, 5006, 148, 70, "StandardFormEquation"], Cell[1993996, 68260, 5576, 165, 70, "StandardFormEquation"], Cell[1999575, 68427, 2218, 83, 70, "Text"], Cell[2001796, 68512, 7549, 214, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2009382, 68731, 43, 0, 70, "Subsection"], Cell[2009428, 68733, 3140, 121, 70, "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2012617, 68860, 41, 0, 70, "Section"], Cell[CellGroupData[{ Cell[2012683, 68864, 46, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[2012754, 68868, 190, 7, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[2012969, 68879, 46, 0, 70, "Subsection3"], Cell[2013018, 68881, 2655, 81, 70, "StandardFormEquation"], Cell[2015676, 68964, 6243, 189, 70, "StandardFormEquation"], Cell[2021922, 69155, 6848, 207, 70, "StandardFormEquation"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2028819, 69368, 83, 1, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[2028927, 69373, 46, 0, 70, "Subsection3"], Cell[2028976, 69375, 3238, 91, 70, "StandardFormEquation"], Cell[2032217, 69468, 3313, 94, 70, "StandardFormEquation"], Cell[2035533, 69564, 3376, 93, 70, "StandardFormEquation"], Cell[2038912, 69659, 5789, 173, 70, "StandardFormEquation"], Cell[2044704, 69834, 6354, 190, 70, "StandardFormEquation"] }, Closed]], Cell[2051073, 70027, 46, 0, 70, "Subsection3"] }, Closed]], Cell[CellGroupData[{ Cell[2051156, 70032, 96, 4, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[2051277, 70040, 43, 0, 70, "Subsection3"], Cell[2051323, 70042, 5111, 155, 70, "StandardFormEquation"], Cell[2056437, 70199, 4385, 134, 70, "StandardFormEquation"], Cell[2060825, 70335, 3180, 98, 70, "StandardFormEquation"], Cell[2064008, 70435, 4566, 138, 70, "StandardFormEquation"], Cell[2068577, 70575, 4728, 144, 70, "StandardFormEquation"], Cell[2073308, 70721, 3300, 101, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2076645, 70827, 569, 21, 70, "Subsection3", Evaluatable->False], Cell[2077217, 70850, 2885, 89, 70, "StandardFormEquation"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2080151, 70945, 353, 14, 70, "Subsubsection"], Cell[2080507, 70961, 3928, 138, 70, "Text", Evaluatable->False], Cell[2084438, 71101, 2150, 83, 70, "Text", Evaluatable->False], Cell[2086591, 71186, 3179, 118, 70, "Text", Evaluatable->False], Cell[2089773, 71306, 3868, 143, 70, "Text", Evaluatable->False], Cell[CellGroupData[{ Cell[2093666, 71453, 175, 7, 70, "Subsection3", Evaluatable->False], Cell[2093844, 71462, 1905, 60, 70, "StandardFormEquation"], Cell[2095752, 71524, 5777, 174, 70, "StandardFormEquation"], Cell[2101532, 71700, 6271, 189, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2107840, 71894, 486, 18, 70, "Subsection3", Evaluatable->False], Cell[2108329, 71914, 6300, 188, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2114666, 72107, 354, 13, 70, "Subsection3"], Cell[2115023, 72122, 4937, 153, 70, "StandardFormEquation"], Cell[2119963, 72277, 4995, 155, 70, "StandardFormEquation"], Cell[2124961, 72434, 4710, 146, 70, "StandardFormEquation"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2129720, 72586, 107, 4, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[2129852, 72594, 43, 0, 70, "Subsection3"], Cell[2129898, 72596, 5115, 157, 70, "StandardFormEquation"], Cell[2135016, 72755, 4421, 135, 70, "StandardFormEquation"], Cell[2139440, 72892, 3191, 98, 70, "StandardFormEquation"], Cell[2142634, 72992, 5136, 155, 70, "StandardFormEquation"], Cell[2147773, 73149, 5286, 161, 70, "StandardFormEquation"], Cell[2153062, 73312, 3410, 105, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2156509, 73422, 598, 22, 70, "Subsection3", Evaluatable->False], Cell[2157110, 73446, 2898, 90, 70, "StandardFormEquation"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2160069, 73543, 150, 6, 70, "Subsection"], Cell[CellGroupData[{ Cell[2160244, 73553, 151, 6, 70, "Subsubsection"], Cell[2160398, 73561, 2994, 90, 70, "StandardFormEquation"], Cell[2163395, 73653, 5428, 165, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2168860, 73823, 125, 5, 70, "Subsubsection"], Cell[2168988, 73830, 2995, 90, 70, "StandardFormEquation"], Cell[2171986, 73922, 6861, 206, 70, "StandardFormEquation"], Cell[2178850, 74130, 8588, 264, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2187475, 74399, 118, 5, 70, "Subsubsection"], Cell[2187596, 74406, 2978, 90, 70, "StandardFormEquation"], Cell[2190577, 74498, 8298, 239, 70, "StandardFormEquation"], Cell[2198878, 74739, 6429, 194, 70, "StandardFormEquation"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2205356, 74939, 160, 6, 70, "Subsection"], Cell[CellGroupData[{ Cell[2205541, 74949, 99, 4, 70, "Subsubsection"], Cell[2205643, 74955, 3068, 93, 70, "StandardFormEquation"], Cell[2208714, 75050, 6414, 194, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2215165, 75249, 99, 4, 70, "Subsubsection"], Cell[2215267, 75255, 3069, 93, 70, "StandardFormEquation"], Cell[2218339, 75350, 8409, 250, 70, "StandardFormEquation"], Cell[2226751, 75602, 9683, 296, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2236471, 75903, 92, 4, 70, "Subsubsection"], Cell[2236566, 75909, 3053, 93, 70, "StandardFormEquation"], Cell[2239622, 76004, 8751, 254, 70, "StandardFormEquation"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2248422, 76264, 70, 0, 70, "Subsection"], Cell[2248495, 76266, 1904, 58, 70, "StandardFormEquation"], Cell[2250402, 76326, 5713, 167, 70, "StandardFormEquation"], Cell[2256118, 76495, 1983, 60, 70, "StandardFormEquation"], Cell[2258104, 76557, 5839, 172, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2263980, 76734, 57, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[2264062, 76738, 97, 4, 70, "Subsubsection"], Cell[2264162, 76744, 11134, 337, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2275333, 77086, 353, 14, 70, "Subsubsection"], Cell[2275689, 77102, 4833, 151, 70, "StandardFormEquation"], Cell[2280525, 77255, 4891, 153, 70, "StandardFormEquation"], Cell[2285419, 77410, 4638, 145, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2290094, 77560, 107, 4, 70, "Subsubsection"], Cell[2290204, 77566, 11187, 341, 70, "StandardFormEquation"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2301440, 77913, 45, 0, 70, "Subsection"], Cell[2301488, 77915, 2722, 84, 70, "StandardFormEquation"], Cell[2304213, 78001, 2780, 84, 70, "StandardFormEquation"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2307042, 78091, 43, 0, 70, "Section"], Cell[CellGroupData[{ Cell[2307110, 78095, 54, 0, 70, "Subsection"], Cell[2307167, 78097, 2868, 80, 70, "StandardFormEquation"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2310084, 78183, 41, 0, 70, "Section"], Cell[CellGroupData[{ Cell[2310150, 78187, 75, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[2310250, 78191, 55, 0, 70, "Subsubsection"], Cell[2310308, 78193, 3999, 149, 70, "Text"], Cell[CellGroupData[{ Cell[2314332, 78346, 373, 13, 70, "Subsection3", Evaluatable->False], Cell[2314708, 78361, 4261, 128, 70, "StandardFormEquation"], Cell[2318972, 78491, 3771, 115, 70, "StandardFormEquation"], Cell[2322746, 78608, 5155, 159, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2327938, 78772, 483, 17, 70, "Subsection3", Evaluatable->False], Cell[2328424, 78791, 4530, 167, 70, "Text"], Cell[2332957, 78960, 4758, 142, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2337752, 79107, 494, 17, 70, "Subsection3", Evaluatable->False], Cell[2338249, 79126, 4513, 135, 70, "StandardFormEquation"] }, Closed]] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2342835, 79269, 34, 0, 70, "Section"], Cell[CellGroupData[{ Cell[2342894, 79273, 66, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[2342985, 79277, 71, 0, 70, "Subsubsection"], Cell[2343059, 79279, 2060, 65, 70, "StandardFormEquation"], Cell[2345122, 79346, 2108, 65, 70, "StandardFormEquation"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2347279, 79417, 71, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[2347375, 79421, 56, 0, 70, "Subsubsection"], Cell[2347434, 79423, 5057, 162, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2352528, 79590, 52, 0, 70, "Subsubsection"], Cell[2352583, 79592, 3456, 109, 70, "StandardFormEquation"], Cell[2356042, 79703, 3534, 110, 70, "StandardFormEquation"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2359637, 79820, 29, 0, 70, "Section"], Cell[CellGroupData[{ Cell[2359691, 79824, 43, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[2359759, 79828, 46, 0, 70, "Subsubsection"], Cell[2359808, 79830, 2714, 83, 70, "StandardFormEquation"], Cell[2362525, 79915, 2797, 86, 70, "StandardFormEquation"], Cell[2365325, 80003, 2705, 83, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2368067, 80091, 42, 0, 70, "Subsubsection"], Cell[2368112, 80093, 2487, 75, 70, "StandardFormEquation"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2370648, 80174, 43, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[2370716, 80178, 63, 0, 70, "Subsubsection"], Cell[2370782, 80180, 2059, 63, 70, "StandardFormEquation"], Cell[2372844, 80245, 2027, 62, 70, "StandardFormEquation"], Cell[2374874, 80309, 2059, 63, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2376970, 80377, 50, 0, 70, "Subsubsection"], Cell[2377023, 80379, 2803, 87, 70, "StandardFormEquation"], Cell[2379829, 80468, 3010, 89, 70, "StandardFormEquation"], Cell[2382842, 80559, 3960, 112, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2386839, 80676, 38, 0, 70, "Subsubsection"], Cell[2386880, 80678, 2109, 68, 70, "StandardFormEquation"], Cell[2388992, 80748, 2245, 70, 70, "StandardFormEquation"], Cell[2391240, 80820, 2719, 84, 70, "StandardFormEquation"], Cell[2393962, 80906, 4334, 133, 70, "StandardFormEquation"], Cell[2398299, 81041, 2943, 90, 70, "StandardFormEquation"], Cell[2401245, 81133, 3002, 92, 70, "StandardFormEquation"], Cell[2404250, 81227, 3760, 116, 70, "StandardFormEquation"], Cell[2408013, 81345, 3823, 118, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2411873, 81468, 57, 0, 70, "Subsubsection"], Cell[2411933, 81470, 9518, 279, 70, "StandardFormEquation"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2421512, 81756, 34, 0, 70, "Section"], Cell[CellGroupData[{ Cell[2421571, 81760, 55, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[2421651, 81764, 89, 4, 70, "Subsubsection"], Cell[2421743, 81770, 2028, 64, 70, "StandardFormEquation"], Cell[2423774, 81836, 1827, 57, 70, "StandardFormEquation"], Cell[2425604, 81895, 2759, 86, 70, "StandardFormEquation"], Cell[2428366, 81983, 2079, 66, 70, "StandardFormEquation"], Cell[2430448, 82051, 2059, 63, 70, "StandardFormEquation"], Cell[2432510, 82116, 2080, 64, 70, "StandardFormEquation"], Cell[2434593, 82182, 3108, 94, 70, "StandardFormEquation"], Cell[2437704, 82278, 2028, 63, 70, "StandardFormEquation"], Cell[2439735, 82343, 2113, 66, 70, "StandardFormEquation"], Cell[2441851, 82411, 2115, 66, 70, "StandardFormEquation"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2444015, 82483, 47, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[2444087, 82487, 89, 4, 70, "Subsubsection"], Cell[2444179, 82493, 2272, 70, 70, "StandardFormEquation"], Cell[2446454, 82565, 2085, 64, 70, "StandardFormEquation"], Cell[2448542, 82631, 2369, 73, 70, "StandardFormEquation"], Cell[2450914, 82706, 2238, 68, 70, "StandardFormEquation"], Cell[2453155, 82776, 2405, 72, 70, "StandardFormEquation"], Cell[2455563, 82850, 2392, 71, 70, "StandardFormEquation"], Cell[2457958, 82923, 4889, 148, 70, "StandardFormEquation"], Cell[2462850, 83073, 4913, 149, 70, "StandardFormEquation"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2467812, 83228, 72, 2, 70, "Subsection"], Cell[CellGroupData[{ Cell[2467909, 83234, 89, 4, 70, "Subsubsection"], Cell[2468001, 83240, 2168, 68, 70, "StandardFormEquation"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2470230, 83315, 30, 0, 70, "Section"], Cell[CellGroupData[{ Cell[2470285, 83319, 44, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[2470354, 83323, 59, 0, 70, "Subsubsection"], Cell[2470416, 83325, 2056, 63, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2472509, 83393, 79, 0, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[2472613, 83397, 47, 0, 70, "Subsection3"], Cell[2472663, 83399, 2195, 67, 70, "StandardFormEquation"], Cell[2474861, 83468, 2070, 62, 70, "StandardFormEquation"], Cell[2476934, 83532, 1789, 58, 70, "StandardFormEquation"], Cell[2478726, 83592, 1811, 61, 70, "StandardFormEquation"], Cell[2480540, 83655, 1889, 63, 70, "StandardFormEquation"], Cell[2482432, 83720, 1892, 63, 70, "StandardFormEquation"], Cell[2484327, 83785, 1814, 61, 70, "StandardFormEquation"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2486202, 83853, 42, 0, 70, "Subsection"], Cell[CellGroupData[{ Cell[2486269, 83857, 97, 2, 70, "Subsubsection"], Cell[2486369, 83861, 6283, 182, 70, "StandardFormEquation"], Cell[CellGroupData[{ Cell[2492677, 84047, 767, 24, 70, "StandardFormEquation"], Cell[2493447, 84073, 1077, 39, 70, "CommentText"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2494573, 84118, 73, 0, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[2494671, 84122, 4008, 110, 70, "StandardFormEquation"], Cell[2498682, 84234, 201, 6, 70, "CommentText"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2498932, 84246, 99, 2, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[2499056, 84252, 36, 0, 70, "Subsection3"], Cell[CellGroupData[{ Cell[2499117, 84256, 3966, 117, 70, "StandardFormEquation"], Cell[2503086, 84375, 463, 11, 70, "CommentText"] }, Closed]], Cell[CellGroupData[{ Cell[2503586, 84391, 8101, 224, 70, "StandardFormEquation"], Cell[2511690, 84617, 28, 0, 70, "CommentText"] }, Closed]], Cell[CellGroupData[{ Cell[2511755, 84622, 2350, 41, 70, "StandardFormEquation"], Cell[2514108, 84665, 533, 16, 70, "CommentText"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2514690, 84687, 142, 3, 70, "Subsection3"], Cell[2514835, 84692, 256, 7, 70, "StandardFormEquation"], Cell[2515094, 84701, 256, 7, 70, "StandardFormEquation"], Cell[2515353, 84710, 465, 14, 70, "StandardFormEquation"], Cell[2515821, 84726, 464, 14, 70, "StandardFormEquation"], Cell[2516288, 84742, 260, 7, 70, "StandardFormEquation"], Cell[2516551, 84751, 290, 8, 70, "StandardFormEquation"], Cell[2516844, 84761, 440, 14, 70, "StandardFormEquation"], Cell[2517287, 84777, 442, 14, 70, "StandardFormEquation"], Cell[2517732, 84793, 725, 23, 70, "StandardFormEquation"], Cell[2518460, 84818, 373, 11, 70, "StandardFormEquation"], Cell[2518836, 84831, 897, 25, 70, "StandardFormEquation"], Cell[2519736, 84858, 897, 25, 70, "StandardFormEquation"], Cell[2520636, 84885, 1368, 37, 70, "StandardFormEquation"], Cell[2522007, 84924, 882, 27, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2522926, 84956, 60, 0, 70, "Subsection3"], Cell[2522989, 84958, 1300, 38, 70, "StandardFormEquation"], Cell[2524292, 84998, 571, 16, 70, "StandardFormEquation"], Cell[2524866, 85016, 597, 17, 70, "StandardFormEquation"], Cell[2525466, 85035, 671, 21, 70, "StandardFormEquation"], Cell[2526140, 85058, 661, 21, 70, "StandardFormEquation"], Cell[2526804, 85081, 652, 20, 70, "StandardFormEquation"], Cell[2527459, 85103, 642, 20, 70, "StandardFormEquation"], Cell[2528104, 85125, 859, 27, 70, "StandardFormEquation"], Cell[2528966, 85154, 859, 27, 70, "StandardFormEquation"], Cell[2529828, 85183, 360, 10, 70, "StandardFormEquation"], Cell[2530191, 85195, 367, 10, 70, "StandardFormEquation"], Cell[2530561, 85207, 360, 10, 70, "StandardFormEquation"], Cell[2530924, 85219, 367, 10, 70, "StandardFormEquation"], Cell[2531294, 85231, 1428, 45, 70, "StandardFormEquation"], Cell[2532725, 85278, 888, 26, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2533650, 85309, 147, 3, 70, "Subsection3"], Cell[2533800, 85314, 732, 19, 70, "StandardFormEquation"], Cell[2534535, 85335, 749, 19, 70, "StandardFormEquation"], Cell[2535287, 85356, 748, 19, 70, "StandardFormEquation"], Cell[2536038, 85377, 959, 24, 70, "StandardFormEquation"], Cell[2537000, 85403, 914, 23, 70, "StandardFormEquation"], Cell[2537917, 85428, 774, 19, 70, "StandardFormEquation"], Cell[2538694, 85449, 774, 19, 70, "StandardFormEquation"], Cell[2539471, 85470, 774, 19, 70, "StandardFormEquation"], Cell[2540248, 85491, 774, 19, 70, "StandardFormEquation"], Cell[2541025, 85512, 858, 21, 70, "StandardFormEquation"], Cell[2541886, 85535, 858, 21, 70, "StandardFormEquation"], Cell[2542747, 85558, 857, 21, 70, "StandardFormEquation"], Cell[2543607, 85581, 857, 21, 70, "StandardFormEquation"], Cell[2544467, 85604, 843, 20, 70, "StandardFormEquation"], Cell[2545313, 85626, 843, 20, 70, "StandardFormEquation"], Cell[2546159, 85648, 952, 22, 70, "StandardFormEquation"], Cell[2547114, 85672, 952, 22, 70, "StandardFormEquation"], Cell[2548069, 85696, 583, 15, 70, "StandardFormEquation"], Cell[2548655, 85713, 583, 15, 70, "StandardFormEquation"], Cell[2549241, 85730, 583, 15, 70, "StandardFormEquation"], Cell[2549827, 85747, 583, 15, 70, "StandardFormEquation"], Cell[2550413, 85764, 583, 15, 70, "StandardFormEquation"], Cell[2550999, 85781, 700, 18, 70, "StandardFormEquation"], Cell[2551702, 85801, 700, 18, 70, "StandardFormEquation"], Cell[2552405, 85821, 1027, 27, 70, "StandardFormEquation"], Cell[2553435, 85850, 1027, 27, 70, "StandardFormEquation"], Cell[2554465, 85879, 1111, 29, 70, "StandardFormEquation"], Cell[2555579, 85910, 1111, 29, 70, "StandardFormEquation"], Cell[2556693, 85941, 1099, 29, 70, "StandardFormEquation"], Cell[2557795, 85972, 1099, 29, 70, "StandardFormEquation"], Cell[2558897, 86003, 1022, 27, 70, "StandardFormEquation"], Cell[2559922, 86032, 1022, 27, 70, "StandardFormEquation"], Cell[2560947, 86061, 1111, 29, 70, "StandardFormEquation"], Cell[2562061, 86092, 1111, 29, 70, "StandardFormEquation"], Cell[2563175, 86123, 1099, 29, 70, "StandardFormEquation"], Cell[2564277, 86154, 1099, 29, 70, "StandardFormEquation"], Cell[2565379, 86185, 1099, 28, 70, "StandardFormEquation"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2566527, 86219, 56, 0, 70, "Subsubsection"], Cell[CellGroupData[{ Cell[2566608, 86223, 7375, 223, 70, "StandardFormEquation"], Cell[2573986, 86448, 142, 6, 70, "CommentText"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2574177, 86460, 78, 0, 70, "Subsubsection"], Cell[2574258, 86462, 5436, 150, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2579731, 86617, 59, 0, 70, "Subsubsection"], Cell[2579793, 86619, 4064, 125, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2583894, 86749, 68, 0, 70, "Subsubsection"], Cell[2583965, 86751, 5578, 162, 70, "StandardFormEquation"], Cell[2589546, 86915, 5580, 161, 70, "StandardFormEquation"], Cell[2595129, 87078, 5683, 166, 70, "StandardFormEquation"], Cell[2600815, 87246, 6182, 175, 70, "StandardFormEquation"], Cell[2607000, 87423, 5253, 154, 70, "StandardFormEquation"], Cell[2612256, 87579, 6183, 183, 70, "StandardFormEquation"], Cell[2618442, 87764, 6183, 183, 70, "StandardFormEquation"], Cell[2624628, 87949, 6310, 187, 70, "StandardFormEquation"], Cell[2630941, 88138, 7372, 216, 70, "StandardFormEquation"], Cell[2638316, 88356, 6394, 190, 70, "StandardFormEquation"], Cell[2644713, 88548, 4723, 132, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2649473, 88685, 82, 1, 70, "Subsubsection"], Cell[2649558, 88688, 5132, 152, 70, "StandardFormEquation"], Cell[2654693, 88842, 5053, 149, 70, "StandardFormEquation"], Cell[2659749, 88993, 3716, 109, 70, "StandardFormEquation"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2663526, 89109, 38, 0, 70, "Section"], Cell[CellGroupData[{ Cell[2663589, 89113, 44, 0, 70, "Subsection"], Cell[2663636, 89115, 6220, 180, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2669893, 89300, 44, 0, 70, "Subsection"], Cell[2669940, 89302, 6220, 180, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2676197, 89487, 40, 0, 70, "Subsection"], Cell[2676240, 89489, 5338, 153, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2681615, 89647, 39, 0, 70, "Subsection"], Cell[2681657, 89649, 5996, 174, 70, "StandardFormEquation"], Cell[2687656, 89825, 642, 21, 70, "StandardFormEquation"], Cell[2688301, 89848, 8021, 225, 70, "StandardFormEquation"], Cell[CellGroupData[{ Cell[2696347, 90077, 7392, 225, 70, "StandardFormEquation"], Cell[2703742, 90304, 142, 6, 70, "CommentText"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2703933, 90316, 39, 0, 70, "Subsection"], Cell[2703975, 90318, 6745, 195, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2710757, 90518, 39, 0, 70, "Subsection"], Cell[2710799, 90520, 4652, 128, 70, "StandardFormEquation"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2715500, 90654, 29, 0, 70, "Section"], Cell[CellGroupData[{ Cell[2715554, 90658, 37, 0, 70, "Subsection"], Cell[2715594, 90660, 3224, 100, 70, "StandardFormEquation"], Cell[2718821, 90762, 3130, 98, 70, "StandardFormEquation"], Cell[2721954, 90862, 3130, 98, 70, "StandardFormEquation"], Cell[2725087, 90962, 2915, 90, 70, "StandardFormEquation"], Cell[2728005, 91054, 2076, 65, 70, "StandardFormEquation"], Cell[2730084, 91121, 2026, 63, 70, "StandardFormEquation"], Cell[2732113, 91186, 2019, 63, 70, "StandardFormEquation"], Cell[2734135, 91251, 2076, 65, 70, "StandardFormEquation"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2736260, 91322, 65, 0, 70, "Section"], Cell[CellGroupData[{ Cell[2736350, 91326, 54, 0, 70, "Subsection"], Cell[2736407, 91328, 93, 2, 70, "Text"], Cell[CellGroupData[{ Cell[2736525, 91334, 110, 4, 70, "Subsubsection"], Cell[2736638, 91340, 4566, 138, 70, "StandardFormEquation"], Cell[2741207, 91480, 5136, 155, 70, "StandardFormEquation"], Cell[2746346, 91637, 7638, 221, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2754021, 91863, 99, 4, 70, "Subsubsection"], Cell[2754123, 91869, 4728, 144, 70, "StandardFormEquation"], Cell[2758854, 92015, 5286, 161, 70, "StandardFormEquation"], Cell[2764143, 92178, 7956, 233, 70, "StandardFormEquation"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2772148, 92417, 57, 0, 70, "Subsection"], Cell[2772208, 92419, 2536, 80, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2774781, 92504, 88, 4, 70, "Subsection"], Cell[2774872, 92510, 2193, 73, 70, "StandardFormEquation"] }, Closed]], Cell[CellGroupData[{ Cell[2777102, 92588, 91, 4, 70, "Subsection"], Cell[CellGroupData[{ Cell[2777218, 92596, 42, 0, 70, "Subsubsection"], Cell[2777263, 92598, 1677, 53, 70, "StandardFormEquation"] }, Closed]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2779001, 92658, 27, 0, 70, "Section"], Cell[CellGroupData[{ Cell[2779053, 92662, 84, 1, 70, "Subsection"], Cell[2779140, 92665, 508, 16, 70, "Text"], Cell[2779651, 92683, 1598, 49, 70, "DisplayFormula"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[2781298, 92738, 26, 0, 70, "Section"], Cell[2781327, 92740, 358, 9, 70, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[2781722, 92754, 51, 1, 70, "Section", PageBreakAbove->True], Cell[2781776, 92757, 1540, 37, 70, "CitationInfo"] }, Open ]] } ] *) (* End of internal cache information *)