Origin for each line in Hypergeometry_and_MeijerG.red from check-in f2c04ccdad:

f2c04ccdad 2021-03-03    1: %%%%%%%%%%%%%%%%%%%%%
f2c04ccdad 2021-03-03    2: %  HYPERGEOMETRY
f2c04ccdad 2021-03-03    3: %       &
f2c04ccdad 2021-03-03    4: %    MEIJERG
f2c04ccdad 2021-03-03    5: %%%%%%%%%%%%%%%%%%%%%
f2c04ccdad 2021-03-03    6: 
f2c04ccdad 2021-03-03    7: % Specify blue for echoed input
f2c04ccdad 2021-03-03    8: color("Blue");
f2c04ccdad 2021-03-03    9: 
f2c04ccdad 2021-03-03   10: % Turn on fancy output
f2c04ccdad 2021-03-03   11: fancy_output;
f2c04ccdad 2021-03-03   12: 
f2c04ccdad 2021-03-03   13: % Turn input echo on
f2c04ccdad 2021-03-03   14: on echo;
f2c04ccdad 2021-03-03   15: 
f2c04ccdad 2021-03-03   16: % Load special functions 2
f2c04ccdad 2021-03-03   17: load_package specfn2$
f2c04ccdad 2021-03-03   18: 
f2c04ccdad 2021-03-03   19: % Load generalized hypergeometric package
f2c04ccdad 2021-03-03   20: load_package ghyper$
f2c04ccdad 2021-03-03   21: 
f2c04ccdad 2021-03-03   22: % Hypergeometric function
f2c04ccdad 2021-03-03   23: hypergeometric({1/2,1},{2},z);
f2c04ccdad 2021-03-03   24: 
f2c04ccdad 2021-03-03   25: % Load meijerg package
f2c04ccdad 2021-03-03   26: load_package meijerg$
f2c04ccdad 2021-03-03   27: 
f2c04ccdad 2021-03-03   28: % MeijerG function
f2c04ccdad 2021-03-03   29: MeijerG({{}},{{5/4},1},x^2/2);
f2c04ccdad 2021-03-03   30: 
f2c04ccdad 2021-03-03   31: % Turn off echo
f2c04ccdad 2021-03-03   32: off echo;

iCAS Bundled REDUCE Scripts
Homepage | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]