Demonstrate hypergeometric functions.

Since version 1.
------------------------------------------------------------------------
See also NewFig, HypgF1, HypgFr
------------------------------------------------------------------------

%-------------------------------------------------------------------------------
%	Copyright 1994 Princeton Satellite Systems, Inc. All rights reserved.
%-------------------------------------------------------------------------------


x = linspace(0.1,100);

NewFig('Hypergeometric Functions');
subplot(211)
plot(x,log(1+x)./x - HypgF1(1,2,-x))
grid
subplot(212)
plot(x,log(1+x)./x - HypgFr(1,0,1,-x))
grid


%--------------------------------------
% PSS internal file version information
%--------------------------------------

% $Id: d7e276358fd6e4b6b2645516e655abaaf2ac2c68 $

grid =

     0     0     1     0     0     0     1     0
     0     0     0     1     0     1     0     0
     0     0     0     0     0     0     0     0
     0     0     0     0     0     1     1     0
     0     0     0     0     0     0     0     1
     0     0     0     0     0     0     0     0
     0     0     0     0     0     1     0     0
     0     1     0     0     0     1     1     1


grid =

     0     0     1     0     0     0     1     0
     0     0     0     1     0     1     0     0
     0     0     0     0     0     0     0     0
     0     0     0     0     0     1     1     0
     0     0     0     0     0     0     0     1
     0     0     0     0     0     0     0     0
     0     0     0     0     0     1     0     0
     0     1     0     0     0     1     1     1

Published with MATLAB® R2022b