123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181 |
- 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
|