File r35/xlog/meijerg.log artifact 4539614207 part of check-in 3af273af29

Codemist Standard Lisp 3.54 for DEC Alpha: May 23 1994
Dump file created: Mon May 23 10:39:11 1994
REDUCE 3.5, 15-Oct-93 ...
Memory allocation: 6023424 bytes

+++ About to read file ndotest.red


% 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;


*** erfc already defined as operator 

(specfn2)


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


*** meijerg declared operator 

meijerg({{},1},{{0}},x)


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


meijerg({{},alpha},{{0}},x)


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


meijerg({{alpha}},{{0}},x)


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


meijerg({{alpha + 1}},{{0}},x)


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


              1         1
meijerg({{0},---},{{0},---},x)*pi
              2         2


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


meijerg({{}},{{0}},x)


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


meijerg({{1,1}},{{1},0},x)


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


            1         1       2
 meijerg({{---,1}},{{---},0},x )
            2         2
---------------------------------
                2


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


                          1       2
sqrt(pi)*meijerg({{1}},{{---},0},x )
                          2


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


                                    2
                         5    3    x
sqrt(pi)*meijerg({{}},{{---},---},----)
                         4    4    4


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


                                    2
                         3    5    x
sqrt(pi)*meijerg({{}},{{---},---},----)
                         4    4    4


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


                                  2
                         1       x
sqrt(pi)*meijerg({{}},{{---},0},----)
                         2       4


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


                                  2
                            1    x
sqrt(pi)*meijerg({{}},{{0},---},----)
                            2    4


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


                                2
                nu     - nu    x
meijerg({{}},{{----},-------},----)
                2       2      4


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


                                 2
                 nu    - nu     x
 meijerg({{}},{{----,-------}},----)
                 2      2       4
-------------------------------------
                  2


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


                       1       mu + nu   mu - nu
(sqrt(pi)*meijerg({{0,---}},{{---------,---------},
                       2          2         2

         - mu + nu
       ------------,
            2

         - (mu + nu)    2
       --------------},x ))/2
             2


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


              - n + 1   n + 2        1     2
meijerg({{},----------,-------},{{0,---}},x )
                2         2          2


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


meijerg({{ - a + 1, - b + 1}},{{0}, - c + 1},x)


end;
(TIME:  meijerg 366 383)


End of Lisp run after 0.39+1.43 seconds