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