Artifact 363f824116adc6aa1920e3fd9c703f78cc0cc0d5db1b9a2bfb68cd980e5f22fb:

• File r35/xmpl/meijerg.tst — part of check-in [f2fda60abd] at 2011-09-02 18:13:33 on branch master — Some historical releases purely for archival purposes

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 968) [annotate] [blame] [check-ins using] [more...]

% tests from: 
%
% Adamchik, V.S. and Marichev, O.I:
% The algorithm for calculating integrals of hypergeometric type
% functions and its realization in REDUCE system,
% presented at ISSAC 1990, Tokyo

load_package specfn2;

MeijerG({{},1},{{0}},x);

MeijerG({{},alpha},{{0}},x);

MeijerG({{alpha}},{{0}},x);

MeijerG({{alpha +1}},{{0}},x);

MeijerG({{0},1/2},{{0},1/2},x) * pi;

MeijerG({{}},{{0}},x);

MeijerG({{1,1}},{{1},0},x);

MeijerG({{1/2,1}},{{1/2},0},x^2) * 1/2;

MeijerG({{1}},{{1/2},0},x^2) * sqrt(pi);

MeijerG({{}},{{1+1/4},1-1/4},(x^2)/4) * sqrt pi;

MeijerG({{}},{{1-1/4},1+1/4},(x^2)/4) * sqrt pi;

MeijerG({{}},{{2/4},0/4},(x^2)/4) * sqrt pi;

MeijerG({{}},{{0/4},2/4},(x^2)/4) * sqrt pi;

MeijerG({{}},{{nu/2},-nu/2},x^2/4);

MeijerG({{}},{{nu/2,-nu/2}},x^2/4) /2;

MeijerG({{0,1/2}},{{(mu+nu)/2,(mu-nu)/2},(nu-mu)/2,-(mu+nu)/2},x^2)*
                sqrt(pi)/2;

MeijerG({{},(1-n)/2,1+n/2},{{0,1/2}},x^2);

MeijerG({{1-a,1-b}},{{0},1-c},x);

end;