{VERSION 5 0 "IBM INTEL LINUX" "5.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 
0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Headi
ng 1" 0 3 1 {CSTYLE "" -1 -1 "" 1 18 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }1 0 
0 0 8 4 0 0 0 0 0 0 -1 0 }{PSTYLE "Heading 2" 3 4 1 {CSTYLE "" -1 -1 "
" 1 14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 8 2 0 0 0 0 0 0 -1 0 }}
{SECT 0 {PARA 4 "" 0 "" {TEXT -1 66 "Demo by Raimundas Vidunas about h
is contiguous relations procedure" }}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 
"read \"contiguous2f1.mpl\";" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 17 "contig2f1help( );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "
contig2f1help( contiguous2f1 );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 30 "contig2f1help( reference2f1 );" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 34 "contig2f1help( Contig2f1express );" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 31 "contig2f1help( contig2f1subs );" }}}
{PARA 0 "" 0 "" {TEXT -1 15 "General a, b, c" }}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 125 "contiguous2f1([1,0,0],[0,0,0],[-1,0,0]);\nContigu
ous2f1([1,0,0],[0,0,0],[-1,0,0]);\nContiguous2f1( Hypergeom([b,a-1],[c
],z ) );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 73 "contiguous2f1([
1,0,0],[0,0,-2]);\nContiguous2f1([0,0,0],[1,0,0],[0,0,-2]);" }}}{PARA 
0 "" 0 "" {TEXT -1 40 "Contiguous functions to Kummer's formula" }}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "reference2f1(a-1,b,a-b,-1);
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "contiguous2f1([2,0,0]);
\ncontig2f1subs(b=a, %);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 
"Contig2f1express( 2,0,0 );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
23 "contiguous2f1([0,1,0]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
49 "contig2f1express(0,0,1);\nContig2f1express(0,0,1);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "contiguous2f1( [0,0,1] );" }}}
{PARA 0 "" 0 "" {TEXT -1 36 "Contiguous to a logarithmic function" }}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "reference2f1( 1, 1, 3, z );
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "Contiguous2f1( [1, 2, 4
] );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "Contiguous2f1( Hype
rgeom( [1,2], [4], z ) );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 
"" }}}{PARA 4 "" 0 "" {TEXT -1 0 "" }{TEXT -1 72 "Demo by Tom Koornwin
der about R. Vidunas' contiguous relations procedure" }}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 25 "read \"contiguous2f1.mpl\";" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 40 "contiguous2f1([1,0,0],[0,0,0],[0,0,-1]);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "contiguous2f1([1,0,0],[0,0,-
1]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "contiguous2f1([0,0,
1],[0,0,0],[-1,0,0]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "co
ntiguous2f1([-1,0,0]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "c
ontiguous2f1([1,0,1],[0,0,1],[0,0,0]);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 23 "contiguous2f1([1,0,1]);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 39 "contiguous2f1([1,0,1],[1,0,0],[0,0,0]);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "contiguous2f1([1,0,1],[1,0,0]);" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "contiguous2f1([1,0,1],[1,0,
0],[0,0,1]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "contiguous2
f1([1,0,0],[0,0,1]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "con
tiguous2f1([1,0,0],[-1,0,0]);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 40 "contiguous2f1([1,0,1],[-1,0,0],[0,0,1]);" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 25 "contiguous2f1([-1,0,-1]);" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 33 "contiguous2f1([-1,0,-1],[1,0,1]);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "contiguous2f1([0,0,-1]);" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "contiguous2f1([2,0,2]);" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "contig2f1subs(\{z=-1,c=1+a-
b\},%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "contiguous2f1([0
,-1,1]): contig2f1subs(\{z=-1,c=1+a-b\},%);" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 65 "contiguous2f1([2,0,2],[0,-1,1]); contig2f1subs(\{z
=-1,c=1+a-b\},%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 81 "contig
uous2f1([2,0,2],[0,-1,1]): contig2f1subs(z=-1,%); contig2f1subs(c=1+a-
b,%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 64 "contiguous2f1([2,0
,2],[0,1,1]); contig2f1subs(\{z=-1,c=1+a-b\},%);" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 64 "contiguous2f1([2,0,2],[1,1,1]); contig2f1subs
(\{z=-1,c=1+a-b\},%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "co
ntiguous2f1([0,-1,1],[0,1,1]); contig2f1subs(\{z=-1,c=1+a-b\},%);" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "contiguous2f1([1,1,1],[1,1,0
],[1,0,1]); contig2f1subs(\{z=-1,c=1+a-b\},%);" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 83 "contiguous2f1([-2,-4,2]): contig2f1subs(z=-1,%
): contig2f1subs(\{a=3-c, b=7-2*c\},%);" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 37 "contig2f1subs(%); #empty output; bug?" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 83 "contiguous2f1([-1,2,0]): contig2f1s
ubs(\{z=-1,c=1+a-b\},%): contig2f1subs(b=2*a-3,%);" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 133 "contiguous2f1([-1,1,2]): subs(\{z=-1,a=b+c
-1\},%); subs(c=(3*t-4)/(t^2-2),%); %[2];  normal(%); subs(b=(4*t-6)/(
t^2-2),%); simplify(%);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}}{MARK "1 0 0" 8 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 
0 1 2 33 1 1 }