If[$VersionNumber>=2.,$Messages=OutputStream["",1],$Messages={}] BeginPackage["Transfor`qgl`"] Begin["`Private`"] (*Belegen von Module durch Block fr Versionen 1.?*) If[$VersionNumber<2.,Module=Block] (*ListTest[Liste_]:=MemberQ[{Head[Liste]},List]; Argument[List[x___]]:=x;*) Attributes[ClearQ]={HoldAll}; Attributes[ClearqQ]={HoldAll}; ClearQ[x__]:=Module[{ii,VarList,ArgList={x}}, Clear[x];Clear[AA];VarList=Table[AA[ii],{ii,1,Length[{x}]}]; If[!ArgList==={x}, Switch[Input[StringJoin["Some variables have a value. Should the variables \n", ToString[StringForm["``",{x}]]," be cleared? Do you want to set \nvalues for the equation (v)? [y|n|yv|nv]: "]], Global`y,Release[VarList]={x};, Global`n,Release[VarList]={x};Release[{x}]=ArgList;, Global`yv,Release[VarList]= Table[Input[StringForm["``=",{x}[[ii]]]],{ii,1,Length[{x}]}];, Global`nv,Release[VarList]= Table[Input[StringForm["``=",{x}[[ii]]]],{ii,1,Length[{x}]}]; Release[{x}]=ArgList;], Switch[Input[StringJoin["Do you want to set values for the equation? [y|n]: "]], Global`y,Release[VarList]= Table[Input[StringForm["``=",{x}[[ii]]]],{ii,1,Length[{x}]}];, Global`n,Release[VarList]={x};]]]; ClearqQ[q_]:=Module[{ii,Argu=q}, Clear[q];Clear[QQ]; If[!Argu===q, Switch[Input[StringJoin["q has a value. Should q be cleared? \nDo you want to set a value for q in the equation (v)? [y|n|yv|nv]: "]], Global`y,Release[QQ]=q;, Global`n,Release[QQ]=q;q=Argu;, Global`yv,Release[QQ]= Input[StringForm["``=",q]];, Global`nv,Release[QQ]= Input[StringForm["``=",q]]; q=Argu;], Switch[Input[StringJoin["Do you want to set a value for q in the equation? [y|n]: "]], Global`y,Release[QQ]= Input[StringForm["``=",q]];, Global`n,Release[QQ]=q;]]]; Tgl2101:=(ClearQ[Global`a,Global`b,Global`c,Global`z];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2]},{AA[3]},QQ,AA[4]]; Hyp`q`RS=Hyp`q`pqinf[{AA[2],AA[1]*AA[4]},{AA[3],AA[4]},QQ]*Hyp`q`ph[{AA[3]/AA[2],AA[4]},{AA[1]*AA[4]},QQ,AA[2]]; Hyp`q`Gleichung); Tgl2102:=(ClearQ[Global`a,Global`b,Global`c,Global`z];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2]},{AA[3]},QQ,AA[4]]; Hyp`q`RS=Hyp`q`pqinf[{AA[3]/AA[2],AA[2]*AA[4]},{AA[3],AA[4]},QQ]*Hyp`q`ph[{AA[1]*AA[2]*AA[4]/AA[3],AA[2]},{AA[2]*AA[4]},QQ,AA[3]/AA[2]]; Hyp`q`Gleichung); Tgl2103:=(ClearQ[Global`a,Global`b,Global`c,Global`z];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2]},{AA[3]},QQ,AA[4]]; Hyp`q`RS=Hyp`q`pqinf[{AA[1]*AA[2]*AA[4]/AA[3]},{AA[4]},QQ]*Hyp`q`ph[{AA[3]/AA[1],AA[3]/AA[2]},{AA[3]},QQ,AA[1]*AA[2]*AA[4]/AA[3]]; Hyp`q`Gleichung); Tgl2104:=(ClearQ[Global`a,Global`b,Global`c,Global`z];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2]},{AA[3]},QQ,AA[4]]; Hyp`q`RS=Hyp`q`pqinf[{AA[1]*AA[4]},{AA[4]},QQ]*Hyp`q`ph[{AA[1],AA[3]/AA[2]},{AA[3],AA[1]*AA[4]},QQ,AA[2]*AA[4]]; Hyp`q`Gleichung); Tgl2105:=(ClearQ[Global`a,Global`b,Global`c,Global`z];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2]},{AA[3]},QQ,AA[4]]; Hyp`q`RS=Hyp`q`pqinf[{AA[1]*AA[2]*AA[4]/AA[3]},{AA[2]*AA[4]/AA[3]},QQ]* Hyp`q`ph[{AA[1],AA[3]/AA[2],0},{AA[3],AA[3]*QQ/(AA[2]*AA[4])},QQ,QQ]; Print[" \nThis equation only holds provided the 3phi2 terminates!"]; Hyp`q`Gleichung); Tgl2201:=(ClearQ[Global`a,Global`b,Global`c,Global`d];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2]},{AA[3],AA[4]},QQ,(AA[3]*AA[4])/(AA[1]*AA[2])]; Hyp`q`RS=Hyp`q`ph[{AA[1],AA[3]/AA[2]},{AA[3]},QQ,AA[4]/AA[1]]*Hyp`q`pqinf[{AA[4]/AA[1]},{AA[4]},QQ]; Hyp`q`Gleichung); Tgl3201:=(ClearQ[Global`a,Global`b,Global`c,Global`d];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],0},{AA[3],AA[4]},QQ,QQ]; Hyp`q`RS=Hyp`q`ph[{AA[1],AA[3]/AA[2]},{AA[3]},QQ,(AA[2]*QQ)/AA[4]]* Hyp`q`pqinf[{QQ/AA[4]},{AA[1]*QQ/AA[4]},QQ]; Print[" \nThis equation only holds provided the 3phi2 terminates!"]; Hyp`q`Gleichung); Tgl2106:=(ClearQ[Global`n,Global`b,Global`c,Global`z];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{QQ^(-AA[1]),AA[2]},{AA[3]},QQ,AA[4]]; Hyp`q`RS=Hyp`q`pq[AA[3]/AA[2],AA[1],QQ]/Hyp`q`pq[AA[3],AA[1],QQ]*(AA[2]*AA[4]/QQ)^AA[1]* Hyp`q`ph[{QQ^(-AA[1]),QQ/AA[4],AA[3]^(-1)*QQ^(1-AA[1])},{AA[2]*AA[3]^(-1)*QQ^(1-AA[1]),0},QQ,QQ]; Hyp`q`Gleichung); Tgl2107:=(ClearQ[Global`n,Global`b,Global`c,Global`z];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{QQ^(-AA[1]),AA[2]},{AA[3]},QQ,AA[4]]; Hyp`q`RS=Hyp`q`pq[AA[3]/AA[2],AA[1],QQ]/Hyp`q`pq[AA[3],AA[1],QQ]* Hyp`q`ph[{QQ^(-AA[1]),AA[2],AA[2]*AA[4]*QQ^(-AA[1])/AA[3]},{AA[2]*AA[3]^(-1)*QQ^(1-AA[1]),0},QQ,QQ]; Hyp`q`Gleichung); Tgl2108:=(ClearQ[Global`n,Global`b,Global`c,Global`z];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{QQ^(-AA[1]),AA[2]},{AA[3]},QQ,AA[4]]; Hyp`q`RS=Hyp`q`pq[AA[3]/AA[2],AA[1],QQ]/Hyp`q`pq[AA[3],AA[1],QQ]*AA[2]^AA[1]* Hyp`q`ph[{QQ^(-AA[1]),AA[2],QQ/AA[4]},{AA[2]*AA[3]^(-1)*QQ^(1-AA[1])},QQ,AA[4]/AA[3]]; Hyp`q`Gleichung); Tgl3202:=(ClearQ[Global`n,Global`b,Global`c,Global`d];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{QQ^(-AA[1]),AA[2],AA[3]},{AA[4],0},QQ,QQ]; Hyp`q`RS=Hyp`q`ph[{QQ^(-AA[1]),AA[4]/AA[3]},{QQ^(1-AA[1])/AA[3]},QQ,QQ/AA[2]]/ (AA[4]^AA[1]*Hyp`q`pq[QQ^(1-AA[1])/AA[4],AA[1],QQ])* (AA[2]^AA[1]*AA[3]^AA[1]*Hyp`q`pq[QQ^(1-AA[1])/AA[3],AA[1],QQ]); Hyp`q`Gleichung); Tgl3203:=(ClearQ[Global`n,Global`b,Global`c,Global`d];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{QQ^(-AA[1]),AA[2],AA[3]},{AA[4],0},QQ,QQ]; Hyp`q`RS=Hyp`q`ph[{QQ^(-AA[1]),AA[2]},{(AA[2]*QQ^(1-AA[1]))/AA[4]},QQ,(AA[3]*QQ)/AA[4]]/ (Hyp`q`pq[QQ^(1-AA[1])/AA[4],AA[1],QQ])* Hyp`q`pq[(AA[2]*QQ^(1-AA[1]))/AA[4],AA[1],QQ]; Hyp`q`Gleichung); Tgl3101:=(ClearQ[Global`n,Global`b,Global`c,Global`z];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{QQ^(-AA[1]),AA[2],AA[3]},{(AA[2]*AA[3]*AA[4])/QQ^AA[1]},QQ,AA[4]]; Hyp`q`RS=Hyp`q`ph[{QQ^(-AA[1]),AA[2]},{QQ/AA[3]/AA[4]},QQ,(QQ)/AA[3]]/ (AA[2]^AA[1]*Hyp`q`pq[QQ/(AA[2]*AA[3]*AA[4]),AA[1],QQ])*Hyp`q`pq[QQ/AA[3]/AA[4],AA[1],QQ]; Hyp`q`Gleichung); Tgl3204:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],AA[3]},{AA[4],AA[5]},QQ,AA[4]*AA[5]/(AA[1]*AA[2]*AA[3])]; Hyp`q`RS=Hyp`q`pqinf[{AA[5]/AA[1],AA[4]*AA[5]/(AA[2]*AA[3])},{AA[5],AA[4]*AA[5]/(AA[1]*AA[2]*AA[3])},QQ]* Hyp`q`ph[{AA[1],AA[4]/AA[2],AA[4]/AA[3]},{AA[4],AA[4]*AA[5]/(AA[2]*AA[3])},QQ,AA[5]/AA[1]]; Hyp`q`Gleichung); Tgl3205:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],AA[3]},{AA[4],AA[5]},QQ,AA[4]*AA[5]/(AA[1]*AA[2]*AA[3])]; Hyp`q`RS=Hyp`q`pqinf[{AA[2],AA[4]*AA[5]/(AA[1]*AA[2]),AA[4]*AA[5]/(AA[2]*AA[3])},{AA[4],AA[5],AA[4]*AA[5]/(AA[1]*AA[2]*AA[3])},QQ]* Hyp`q`ph[{AA[4]/AA[2],AA[5]/AA[2],AA[4]*AA[5]/(AA[1]*AA[2]*AA[3])},{AA[4]*AA[5]/(AA[1]*AA[2]),AA[4]*AA[5]/(AA[2]*AA[3])},QQ,AA[2]]; Hyp`q`Gleichung); Tgl3206:=(ClearQ[Global`n,Global`b,Global`c,Global`d,Global`e];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{QQ^(-AA[1]),AA[2],AA[3]},{AA[4],AA[5]},QQ,QQ]; Hyp`q`RS=Hyp`q`pq[AA[4]*AA[5]/(AA[2]*AA[3]),AA[1],QQ]/Hyp`q`pq[AA[5],AA[1],QQ]*(AA[2]*AA[3]/AA[4])^AA[1]* Hyp`q`ph[{QQ^(-AA[1]),AA[4]/AA[2],AA[4]/AA[3]},{AA[4],AA[4]*AA[5]/(AA[2]*AA[3])},QQ,QQ]; Hyp`q`Gleichung); Tgl3207:=(ClearQ[Global`n,Global`b,Global`c,Global`d,Global`e];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{QQ^(-AA[1]),AA[2],AA[3]},{AA[4],AA[5]},QQ,QQ]; Hyp`q`RS=Hyp`q`pq[AA[5]/AA[3],AA[1],QQ]/Hyp`q`pq[AA[5],AA[1],QQ]*(AA[3])^AA[1]* Hyp`q`ph[{QQ^(-AA[1]),AA[3],AA[4]/AA[2]},{AA[4],AA[3]*QQ^(1-AA[1])/AA[5]},QQ,AA[2]*QQ/AA[5]]; Hyp`q`Gleichung); Tgl3208:=(ClearQ[Global`n,Global`b,Global`c,Global`d,Global`e];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{QQ^(-AA[1]),AA[2],AA[3]},{AA[4],AA[5]},QQ,AA[4]*AA[5]*QQ^AA[1]/(AA[2]*AA[3])]; Hyp`q`RS=Hyp`q`pq[AA[5]/AA[3],AA[1],QQ]/Hyp`q`pq[AA[5],AA[1],QQ]*(AA[3])^AA[1]* Hyp`q`ph[{QQ^(-AA[1]),AA[3],AA[4]/AA[2]},{AA[4],AA[3]*QQ^(1-AA[1])/AA[5]},QQ,QQ]; Hyp`q`Gleichung); Tgl3209:=(ClearQ[Global`n,Global`b,Global`c,Global`z];ClearqQ[Global`q]; a=QQ^(-AA[1]); Hyp`q`LS=Hyp`q`ph[{a,AA[2],AA[3]},{a*QQ/AA[2],a*QQ/AA[3]},QQ,a*QQ*AA[4]/(AA[2]*AA[3])]; Hyp`q`RS=Hyp`q`pqinf[{a*AA[4]},{AA[4]},QQ]* Hyp`q`ph[{a^(1/2),-a^(1/2),(a*QQ)^(1/2),-(a*QQ)^(1/2),a*QQ/(AA[2]*AA[3])}, {a*QQ/AA[2],a*QQ/AA[3],a*AA[4],QQ/AA[4]},QQ,QQ]; Hyp`q`Gleichung); Tgl4301:=(ClearQ[Global`a,Global`b,Global`c,Global`n,Global`e,Global`f];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],AA[3],QQ^(-AA[4])},{AA[5],AA[6],(AA[1]*AA[2]*AA[3]*QQ^(1-AA[4]))/(AA[5]*AA[6])},QQ,QQ]; Hyp`q`RS=Hyp`q`pq[{AA[5]/AA[1],AA[6]/AA[1]},{AA[5],AA[6]},AA[4],QQ]*AA[1]^AA[4]* Hyp`q`ph[{QQ^(-AA[4]),AA[1],(AA[1]*AA[3])/(AA[5]*AA[6]*QQ^(AA[4]-1)),(AA[1]*AA[2])/(AA[5]*AA[6]*QQ^(AA[4]-1))}, {(AA[1]*AA[2]*AA[3])/(AA[5]*AA[6]*QQ^(AA[4]-1)),(AA[1]*QQ^(1-AA[4]))/AA[5],(AA[1]*QQ^(1-AA[4]))/AA[6]},QQ,QQ]; Hyp`q`Gleichung); Tgl4302:=(ClearQ[Global`a,Global`b,Global`c,Global`n,Global`e,Global`f];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],AA[3],QQ^(-AA[4])},{AA[5],AA[6],(AA[1]*AA[2]*AA[3]*QQ^(1-AA[4]))/(AA[5]*AA[6])},QQ,QQ]; Hyp`q`RS=Hyp`q`pq[{AA[1],AA[5]*AA[6]/(AA[1]*AA[2]),AA[5]*AA[6]/(AA[1]*AA[3])},{AA[5],AA[6],AA[5]*AA[6]/(AA[1]*AA[2]*AA[3])},AA[4],QQ]* Hyp`q`ph[{QQ^(-AA[4]),AA[5]/AA[1],AA[6]/AA[1],AA[5]*AA[6]/(AA[1]*AA[2]*AA[3])},{AA[5]*AA[6]/(AA[1]*AA[2]),AA[5]*AA[6]/(AA[1]*AA[3]),QQ^(1-AA[4])/AA[1]},QQ,QQ]; Hyp`q`Gleichung); Tgl8701:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e,Global`f];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ),AA[2],AA[3],AA[4],AA[5],AA[6]}, {AA[1]^(1/2),-AA[1]^(1/2),(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4],(AA[1]*QQ)/AA[5],(AA[1]*QQ)/AA[6]},QQ, (AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6])]; Hyp`q`RS=Hyp`q`pqinf[{AA[1]*QQ,AA[1]*QQ/(AA[4]*AA[5]),AA[1]*QQ/(AA[4]*AA[6]),AA[1]*QQ/(AA[5]*AA[6])}, {AA[1]*QQ/AA[4],AA[1]*QQ/AA[5],AA[1]*QQ/AA[6],AA[1]*QQ/(AA[4]*AA[5]*AA[6])},QQ]* Hyp`q`ph[{AA[1]*QQ/(AA[2]*AA[3]),AA[4],AA[5],AA[6]},{AA[1]*QQ/AA[2],AA[1]*QQ/AA[3],AA[4]*AA[5]*AA[6]/AA[1]},QQ,QQ]; Print[" \nThis equation only holds provided the 4phi3 terminates!"]; Hyp`q`Gleichung); Tgl8702:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e,Global`n];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ),AA[2],AA[3],AA[4],AA[5],QQ^(-AA[6])}, {AA[1]^(1/2),-AA[1]^(1/2),(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4],(AA[1]*QQ)/AA[5],AA[1]*QQ^(1+AA[6])},QQ, (AA[1]^2*QQ^(2+AA[6]))/(AA[2]*AA[3]*AA[4]*AA[5])]; Hyp`q`RS=Hyp`q`pq[{AA[1]*QQ,AA[1]*QQ/(AA[4]*AA[5])},{AA[1]*QQ/AA[4],AA[1]*QQ/AA[5]},AA[6],QQ]* Hyp`q`ph[{AA[1]*QQ/(AA[2]*AA[3]),AA[4],AA[5],QQ^(-AA[6])},{AA[1]*QQ/AA[2],AA[1]*QQ/AA[3],AA[4]*AA[5]*QQ^(-AA[6])/AA[1]},QQ,QQ]; Hyp`q`Gleichung); Tgl4303:=(ClearQ[Global`a,Global`b,Global`c,Global`n,Global`e,Global`f];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],AA[3],QQ^(-AA[4])},{AA[5],AA[6],(AA[1]*AA[2]*AA[3]*QQ^(1-AA[4]))/(AA[5]*AA[6])},QQ,QQ]; Hyp`q`RS=Hyp`q`ph[{(AA[5]*AA[6])/(AA[1]*QQ),(AA[5]^(1/2)*AA[6]^(1/2)*QQ^(1/2))/AA[1]^(1/2), -((AA[5]^(1/2)*AA[6]^(1/2)*QQ^(1/2))/AA[1]^(1/2)),AA[6]/AA[1],AA[5]/AA[1],AA[2],AA[3],QQ^(-AA[4])}, {(AA[5]^(1/2)*AA[6]^(1/2))/(AA[1]^(1/2)*QQ^(1/2)), -((AA[5]^(1/2)*AA[6]^(1/2))/(AA[1]^(1/2)*QQ^(1/2))),AA[5],AA[6],(AA[5]*AA[6])/(AA[1]*AA[2]), (AA[5]*AA[6])/(AA[1]*AA[3]),(AA[5]*AA[6]*QQ^AA[4])/AA[1]},QQ,(AA[5]*AA[6]*QQ^AA[4])/(AA[2]*AA[3])]* Hyp`q`pq[{(AA[5]*AA[6])/(AA[1]*AA[2]),(AA[5]*AA[6])/(AA[1]*AA[3])},{(AA[5]*AA[6])/AA[1],(AA[5]*AA[6])/(AA[1]*AA[2]*AA[3])},AA[4],QQ]; Hyp`q`Gleichung); Tgl4304:=(ClearQ[Global`a,Global`b,Global`c,Global`n,Global`d,Global`e];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],AA[3],QQ^(-AA[4])},{AA[5],AA[6],(AA[1]*AA[2]*AA[3]*QQ^(1-AA[4]))/(AA[5]*AA[6])},QQ,QQ] ; Hyp`q`RS=Hyp`q`pqinf[{(AA[5]*AA[6]*QQ^AA[4])/AA[3],(AA[5]*AA[6]*QQ^AA[4])/AA[2],(AA[5]*AA[6]*QQ^AA[4])/AA[1],(AA[5]*AA[6]*QQ^AA[4])/(AA[1]*AA[2]*AA[3])}, {(AA[5]*AA[6]*QQ^AA[4])/(AA[2]*AA[3]),(AA[5]*AA[6]*QQ^AA[4])/(AA[1]*AA[3]),(AA[5]*AA[6]*QQ^AA[4])/(AA[1]*AA[2]),AA[5]*AA[6]*QQ^AA[4]},QQ]* Hyp`q`ph[{AA[5]*AA[6]*QQ^(-1+AA[4]),AA[5]^(1/2)*AA[6]^(1/2)*QQ^(1/2+AA[4]/2), -(AA[5]^(1/2)*AA[6]^(1/2)*QQ^(1/2+AA[4]/2)),AA[1],AA[2],AA[3],AA[5]*QQ^AA[4],AA[6]*QQ^AA[4]}, {AA[5]^(1/2)*AA[6]^(1/2)*QQ^(-1/2+AA[4]/2),-(AA[5]^(1/2)*AA[6]^(1/2)*QQ^(-1/2+AA[4]/2)), (AA[5]*AA[6]*QQ^AA[4])/AA[1],(AA[5]*AA[6]*QQ^AA[4])/AA[2],(AA[5]*AA[6]*QQ^AA[4])/AA[3],AA[6],AA[5]},QQ,(AA[5]*AA[6])/(AA[1]*AA[2]*AA[3])]; Hyp`q`Gleichung); Tgl8703:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e,Global`n];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ),AA[2],AA[3],AA[4],AA[5],(AA[1]*QQ^(1+AA[6]))/AA[5]}, {AA[1]^(1/2),-AA[1]^(1/2),(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4],(AA[1]*QQ)/AA[5],AA[5]/QQ^AA[6]},QQ, (AA[1]*QQ^(1-AA[6]))/(AA[2]*AA[3]*AA[4])]; Hyp`q`RS=Hyp`q`pqinf[{(AA[1]*QQ)/(AA[3]*AA[4]),(AA[1]*QQ)/(AA[2]*AA[4]),(AA[1]*QQ)/(AA[2]*AA[3]),AA[1]*QQ}, {(AA[1]*QQ)/AA[4],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[2],(AA[1]*QQ)/(AA[2]*AA[3]*AA[4])},QQ]* Hyp`q`ph[{AA[2],AA[3],AA[4],QQ^(-AA[6])},{(AA[1]*QQ)/AA[5],(AA[2]*AA[3]*AA[4])/AA[1],AA[5]/QQ^AA[6]},QQ,QQ]; Hyp`q`Gleichung); Tgl4305:=(ClearQ[Global`a,Global`b,Global`c,Global`d];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1]^2,AA[2]^2,AA[3],AA[4]},{AA[1]*AA[2]*QQ^(1/2),-AA[1]*AA[2]*QQ^(1/2),-AA[3]*AA[4]},QQ,QQ]; Hyp`q`RS=Hyp`q`ph[{AA[1]^2,AA[2]^2,AA[3]^2,AA[4]^2},{AA[1]^2*AA[2]^2*QQ,-AA[3]*AA[4],-AA[3]*AA[4]*QQ},QQ^2,QQ^2]; Print[" \nThis equation only holds provided both series terminate!"]; Hyp`q`Gleichung); Tgl4306:=(ClearQ[Global`a,Global`b,Global`c,Global`d];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1]^2,AA[2]^2,AA[3]^2,AA[4]^2},{AA[1]^2*AA[2]^2*QQ,-AA[3]*AA[4],-AA[3]*AA[4]*QQ},QQ^2,QQ^2]; Hyp`q`RS=Hyp`q`ph[{AA[1]^2,AA[2]^2,AA[3],AA[4]},{AA[1]*AA[2]*QQ^(1/2),-AA[1]*AA[2]*QQ^(1/2),-AA[3]*AA[4]},QQ,QQ]; Print[" \nThis equation only holds provided both series terminate!"]; Hyp`q`Gleichung); Tgl4307:=(ClearQ[Global`a,Global`b,Global`z];ClearqQ[Global`q]; Hyp`q`LS=(Hyp`q`ph[{AA[1],AA[2],AA[1]*AA[2]*AA[3],AA[1]*AA[2]/AA[3]},{AA[1]*AA[2]*QQ^(1/2),-AA[1]*AA[2]*QQ^(1/2),-AA[1]*AA[2]},QQ,QQ])^2; Hyp`q`RS=Hyp`q`ph[{AA[1]^2,AA[2]^2,AA[1]*AA[2],AA[1]*AA[2]*AA[3],AA[1]*AA[2]/AA[3]}, {AA[1]*AA[2]*QQ^(1/2),-AA[1]*AA[2]*QQ^(1/2),-AA[1]*AA[2],AA[1]^2*AA[2]^2},QQ,QQ]; Print[" \nThis equation only holds provided both series terminate!"]; Hyp`q`Gleichung); Tgl8704:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e,Global`f];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ),AA[2],AA[3],AA[4],AA[5],AA[6]}, {AA[1]^(1/2),-AA[1]^(1/2),(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4],(AA[1]*QQ)/AA[5],(AA[1]*QQ)/AA[6]},QQ, (AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6])]; Hyp`q`RS=Hyp`q`pqinf[{AA[1]*QQ,(AA[1]*QQ)/(AA[5]*AA[6]),(AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5]),(AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[6])}, {(AA[1]*QQ)/AA[5],(AA[1]*QQ)/AA[6],(AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]),(AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6])},QQ]* Hyp`q`ph[{(AA[1]^2*QQ)/(AA[2]*AA[3]*AA[4]),(AA[1]*QQ^(3/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)), -((AA[1]*QQ^(3/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2))),(AA[1]*QQ)/(AA[3]*AA[4]),(AA[1]*QQ)/(AA[2]*AA[4]), (AA[1]*QQ)/(AA[2]*AA[3]),AA[5],AA[6]},{(AA[1]*QQ^(1/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)), -((AA[1]*QQ^(1/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2))),(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4], (AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5]),(AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[6])},QQ,(AA[1]*QQ)/(AA[5]*AA[6])]; Hyp`q`Gleichung); Tgl8705:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e,Global`f];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ),AA[2],AA[3],AA[4],AA[5],AA[6]}, {AA[1]^(1/2),-AA[1]^(1/2),(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4],(AA[1]*QQ)/AA[5],(AA[1]*QQ)/AA[6]},QQ, (AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6])]; Hyp`q`RS=Hyp`q`pqinf[{AA[1]*QQ,AA[2],(AA[1]^2*QQ^2)/(AA[2]*AA[4]*AA[5]*AA[6]),(AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[5]*AA[6]), (AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[6]),(AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5])}, {(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4],(AA[1]*QQ)/AA[5],(AA[1]*QQ)/AA[6],(AA[1]^3*QQ^3)/(AA[2]^2*AA[3]*AA[4]*AA[5]*AA[6]), (AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6])},QQ]* Hyp`q`ph[{(AA[1]^3*QQ^2)/(AA[2]^2*AA[3]*AA[4]*AA[5]*AA[6]),(AA[1]^(3/2)*QQ^2)/ (AA[2]*AA[3]^(1/2)*AA[4]^(1/2)*AA[5]^(1/2)*AA[6]^(1/2)), -((AA[1]^(3/2)*QQ^2)/(AA[2]*AA[3]^(1/2)*AA[4]^(1/2)*AA[5]^(1/2)*AA[6]^(1/2))),(AA[1]*QQ)/(AA[2]*AA[3]), (AA[1]*QQ)/(AA[2]*AA[4]),(AA[1]*QQ)/(AA[2]*AA[5]),(AA[1]*QQ)/(AA[2]*AA[6]),(AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6])}, {(AA[1]^(3/2)*QQ)/(AA[2]*AA[3]^(1/2)*AA[4]^(1/2)*AA[5]^(1/2)*AA[6]^(1/2)), -((AA[1]^(3/2)*QQ)/(AA[2]*AA[3]^(1/2)*AA[4]^(1/2)*AA[5]^(1/2)*AA[6]^(1/2))),(AA[1]^2*QQ^2)/(AA[2]*AA[4]*AA[5]*AA[6]), (AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[5]*AA[6]),(AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[6]),(AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5]),(AA[1]*QQ)/AA[2]}, QQ,AA[2]]; Hyp`q`Gleichung); Tgl5401:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`n];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],AA[3],AA[4],QQ^(-AA[5])},{(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4], (AA[2]^2*AA[3]^2*AA[4]^2*QQ^(-2-AA[5]))/AA[1]^2},QQ,QQ]; Hyp`q`RS=Hyp`q`pq[{(AA[1]*QQ^2)/(AA[2]*AA[3]*AA[4]),(AA[1]^3*QQ^3)/(AA[2]^2*AA[3]^2*AA[4]^2)}, {(AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]),(AA[1]^2*QQ^3)/(AA[2]^2*AA[3]^2*AA[4]^2)},AA[5],QQ]* Hyp`q`ph[{(AA[1]^2*QQ)/(AA[2]*AA[3]*AA[4]),(AA[1]*QQ^(3/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)), -((AA[1]*QQ^(3/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2))),(AA[1]*QQ)/(AA[3]*AA[4]),(AA[1]*QQ)/(AA[2]*AA[4]), (AA[1]*QQ)/(AA[2]*AA[3]),AA[1]^(1/2),-AA[1]^(1/2),AA[1]^(1/2)*QQ^(1/2),-(AA[1]^(1/2)*QQ^(1/2)), (AA[1]^3*QQ^(3+AA[5]))/(AA[2]^2*AA[3]^2*AA[4]^2),QQ^(-AA[5])}, {(AA[1]*QQ^(1/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)), -((AA[1]*QQ^(1/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2))),(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4], (AA[1]^(3/2)*QQ^2)/(AA[2]*AA[3]*AA[4]),-((AA[1]^(3/2)*QQ^2)/(AA[2]*AA[3]*AA[4])), (AA[1]^(3/2)*QQ^(3/2))/(AA[2]*AA[3]*AA[4]),-((AA[1]^(3/2)*QQ^(3/2))/(AA[2]*AA[3]*AA[4])), (AA[2]*AA[3]*AA[4]*QQ^(-1-AA[5]))/AA[1],(AA[1]^2*QQ^(2+AA[5]))/(AA[2]*AA[3]*AA[4])},QQ,QQ]; Hyp`q`Gleichung); Tgl121101:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`n];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ),AA[2],AA[3],AA[4], (AA[1]*QQ^(1/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)), -((AA[1]*QQ^(1/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2))), (AA[1]*QQ)/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)),-((AA[1]*QQ)/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2))), AA[2]*AA[3]*AA[4]*QQ^AA[5],QQ^(-AA[5])},{AA[1]^(1/2),-AA[1]^(1/2),(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4], AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)*QQ^(1/2),-(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)*QQ^(1/2)), AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2),-(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)), (AA[1]*QQ^(1-AA[5]))/(AA[2]*AA[3]*AA[4]),AA[1]*QQ^(1+AA[5])},QQ,QQ]; Hyp`q`RS=Hyp`q`pq[{AA[1]*QQ,(AA[2]^2*AA[3]^2*AA[4]^2)/(AA[1]^2*QQ)},{(AA[2]*AA[3]*AA[4])/AA[1],AA[2]*AA[3]*AA[4]},AA[5],QQ]* Hyp`q`ph[{(AA[1]^2*QQ)/(AA[2]*AA[3]*AA[4]),(AA[1]*QQ)/(AA[3]*AA[4]),(AA[1]*QQ)/(AA[2]*AA[4]),(AA[1]*QQ)/(AA[2]*AA[3]),QQ^(-AA[5])}, {(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4],(AA[1]^2*QQ^(2-AA[5]))/(AA[2]^2*AA[3]^2*AA[4]^2)},QQ,QQ]; Hyp`q`Gleichung); Tgl5402:=(ClearQ[Global`n,Global`b,Global`c,Global`d,Global`e];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{QQ^(-AA[1]),AA[2],AA[3],AA[4],AA[5]},{QQ^(1-AA[1])/AA[2],QQ^(1-AA[1])/AA[3],QQ^(1-AA[1])/AA[4], AA[2]^2*AA[3]^2*AA[4]^2*AA[5]*QQ^(-2+2*AA[1])},QQ,QQ]; Hyp`q`RS=Hyp`q`ph[{QQ^(1-2*AA[1])/(AA[2]*AA[3]*AA[4]),QQ^(3/2-AA[1])/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)), -(QQ^(3/2-AA[1])/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2))),QQ^(1-AA[1])/(AA[3]*AA[4]), QQ^(1-AA[1])/(AA[2]*AA[4]),QQ^(1-AA[1])/(AA[2]*AA[3]),QQ^(-AA[1]/2),-QQ^(-AA[1]/2),QQ^(1/2-AA[1]/2), -QQ^(1/2-AA[1]/2),AA[5],QQ^(3-3*AA[1])/(AA[2]^2*AA[3]^2*AA[4]^2*AA[5])}, {QQ^(1/2-AA[1])/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)), -(QQ^(1/2-AA[1])/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2))),QQ^(1-AA[1])/AA[2],QQ^(1-AA[1])/AA[3], QQ^(1-AA[1])/AA[4],QQ^(2-(3*AA[1])/2)/(AA[2]*AA[3]*AA[4]),-(QQ^(2-(3*AA[1])/2)/(AA[2]*AA[3]*AA[4])), QQ^(3/2-(3*AA[1])/2)/(AA[2]*AA[3]*AA[4]),-(QQ^(3/2-(3*AA[1])/2)/(AA[2]*AA[3]*AA[4])), QQ^(2-2*AA[1])/(AA[2]*AA[3]*AA[4]*AA[5]),AA[2]*AA[3]*AA[4]*AA[5]*QQ^(-1+AA[1])},QQ,QQ]* Hyp`q`pq[{QQ^(2-2*AA[1])/(AA[2]*AA[3]*AA[4]*AA[5]),QQ^(3-3*AA[1])/(AA[2]^2*AA[3]^2*AA[4]^2)}, {QQ^(2-2*AA[1])/(AA[2]*AA[3]*AA[4]),QQ^(3-3*AA[1])/(AA[2]^2*AA[3]^2*AA[4]^2*AA[5])},AA[1],QQ]; Hyp`q`Gleichung); Tgl121102:=(ClearQ[Global`n,Global`b,Global`c,Global`d,Global`e];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)*QQ^(-1/2-AA[1]/2), AA[2]^(1/4)*AA[3]^(1/4)*AA[4]^(1/4)*QQ^(3/4-AA[1]/4), -(AA[2]^(1/4)*AA[3]^(1/4)*AA[4]^(1/4)*QQ^(3/4-AA[1]/4)),AA[2],AA[3],AA[4],QQ^(-AA[1]/2),-QQ^(-AA[1]/2), QQ^(1/2-AA[1]/2),-QQ^(1/2-AA[1]/2),AA[5],(AA[2]*AA[3]*AA[4])/AA[5]}, {AA[2]^(1/4)*AA[3]^(1/4)*AA[4]^(1/4)*QQ^(-1/4-AA[1]/4), -(AA[2]^(1/4)*AA[3]^(1/4)*AA[4]^(1/4)*QQ^(-1/4-AA[1]/4)), (AA[3]^(1/2)*AA[4]^(1/2)*QQ^(1/2-AA[1]/2))/AA[2]^(1/2), (AA[2]^(1/2)*AA[4]^(1/2)*QQ^(1/2-AA[1]/2))/AA[3]^(1/2), (AA[2]^(1/2)*AA[3]^(1/2)*QQ^(1/2-AA[1]/2))/AA[4]^(1/2), AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)*QQ^(1/2),-(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)*QQ^(1/2)), AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2),-(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)), (AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)*QQ^(1/2-AA[1]/2))/AA[5], (AA[5]*QQ^(1/2-AA[1]/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2))},QQ,QQ]; Hyp`q`RS=Hyp`q`ph[{QQ^(-AA[1]),(AA[2]^(1/2)*QQ^(1/2-AA[1]/2))/(AA[3]^(1/2)*AA[4]^(1/2)), (AA[3]^(1/2)*QQ^(1/2-AA[1]/2))/(AA[2]^(1/2)*AA[4]^(1/2)), (AA[4]^(1/2)*QQ^(1/2-AA[1]/2))/(AA[2]^(1/2)*AA[3]^(1/2)),AA[5]}, {(AA[3]^(1/2)*AA[4]^(1/2)*QQ^(1/2-AA[1]/2))/AA[2]^(1/2), (AA[2]^(1/2)*AA[4]^(1/2)*QQ^(1/2-AA[1]/2))/AA[3]^(1/2), (AA[2]^(1/2)*AA[3]^(1/2)*QQ^(1/2-AA[1]/2))/AA[4]^(1/2),(AA[5]*QQ^(1-AA[1]))/(AA[2]*AA[3]*AA[4])},QQ,QQ]* Hyp`q`pq[{AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)*QQ^(1/2-AA[1]/2),(AA[2]*AA[3]*AA[4])/AA[5]}, {(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)*QQ^(1/2-AA[1]/2))/AA[5],AA[2]*AA[3]*AA[4]},AA[1],QQ]; Hyp`q`Gleichung); Tgl7601:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`n];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ),AA[2],AA[3],AA[4],QQ^(-AA[5])}, {AA[1]^(1/2),-AA[1]^(1/2),(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4],(AA[2]^2*AA[3]^2*AA[4]^2)/(AA[1]^2*QQ^AA[5])},QQ,QQ]; Hyp`q`RS=((1-(AA[1]^3*QQ^(1+2*AA[5]))/(AA[2]^2*AA[3]^2*AA[4]^2))* Hyp`q`ph[{(AA[1]^2*QQ)/(AA[2]*AA[3]*AA[4]),(AA[1]*QQ^(3/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)), -((AA[1]*QQ^(3/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2))),(AA[1]*QQ)/(AA[3]*AA[4]),(AA[1]*QQ)/(AA[2]*AA[4]), (AA[1]*QQ)/(AA[2]*AA[3]),AA[1]^(1/2)*QQ^(1/2),-(AA[1]^(1/2)*QQ^(1/2)),AA[1]^(1/2)*QQ, -(AA[1]^(1/2)*QQ),(AA[1]^3*QQ^(1+AA[5]))/(AA[2]^2*AA[3]^2*AA[4]^2),QQ^(-AA[5])}, {(AA[1]*QQ^(1/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)), -((AA[1]*QQ^(1/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2))),(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4], (AA[1]^(3/2)*QQ^(3/2))/(AA[2]*AA[3]*AA[4]),-((AA[1]^(3/2)*QQ^(3/2))/(AA[2]*AA[3]*AA[4])), (AA[1]^(3/2)*QQ)/(AA[2]*AA[3]*AA[4]),-((AA[1]^(3/2)*QQ)/(AA[2]*AA[3]*AA[4])),(AA[2]*AA[3]*AA[4]*QQ^(1-AA[5]))/AA[1], (AA[1]^2*QQ^(2+AA[5]))/(AA[2]*AA[3]*AA[4])},QQ,QQ]* Hyp`q`pq[{AA[1]/(AA[2]*AA[3]*AA[4]),(AA[1]^3*QQ)/(AA[2]^2*AA[3]^2*AA[4]^2)}, {(AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]),(AA[1]^2*QQ)/(AA[2]^2*AA[3]^2*AA[4]^2)},AA[5],QQ])/ (1-(AA[1]^3*QQ)/(AA[2]^2*AA[3]^2*AA[4]^2)); Hyp`q`Gleichung); Tgl121103:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`n];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ),AA[2],AA[3],AA[4], (AA[1]*QQ)/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)),-((AA[1]*QQ)/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2))), (AA[1]*QQ^(3/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)), -((AA[1]*QQ^(3/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2))),AA[2]*AA[3]*AA[4]*QQ^(-2+AA[5]),QQ^(-AA[5])}, {AA[1]^(1/2),-AA[1]^(1/2),(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4], AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2),-(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)), (AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2))/QQ^(1/2), -((AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2))/QQ^(1/2)),(AA[1]*QQ^(3-AA[5]))/(AA[2]*AA[3]*AA[4]), AA[1]*QQ^(1+AA[5])},QQ,QQ]; Hyp`q`RS=Hyp`q`ph[{(AA[1]^2*QQ)/(AA[2]*AA[3]*AA[4]),(AA[1]*QQ^(3/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)), -((AA[1]*QQ^(3/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2))),(AA[1]*QQ)/(AA[3]*AA[4]),(AA[1]*QQ)/(AA[2]*AA[4]), (AA[1]*QQ)/(AA[2]*AA[3]),QQ^(-AA[5])},{(AA[1]*QQ^(1/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)), -((AA[1]*QQ^(1/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2))),(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4], (AA[1]^2*QQ^(4-AA[5]))/(AA[2]^2*AA[3]^2*AA[4]^2)},QQ,QQ]* (1-(AA[2]*AA[3]*AA[4])/QQ^2)/(1-AA[2]*AA[3]*AA[4]*QQ^(-2+2*AA[5]))* Hyp`q`pq[{AA[1]*QQ,(AA[2]^2*AA[3]^2*AA[4]^2)/(AA[1]^2*QQ^3)}, {(AA[2]*AA[3]*AA[4])/(AA[1]*QQ^2),(AA[2]*AA[3]*AA[4])/QQ^2},AA[5],QQ]; Hyp`q`Gleichung); Tgl10901:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e,Global`f,Global`n];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ),AA[2],AA[3],AA[4],AA[5],AA[6],(AA[1]^3*QQ^(2+AA[7]))/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6]), QQ^(-AA[7])},{AA[1]^(1/2),-AA[1]^(1/2),(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4],(AA[1]*QQ)/AA[5],(AA[1]*QQ)/AA[6], (AA[2]*AA[3]*AA[4]*AA[5]*AA[6]*QQ^(-1-AA[7]))/AA[1]^2,AA[1]*QQ^(1+AA[7])},QQ,QQ] ; Hyp`q`RS=Hyp`q`ph[{(AA[1]^2*QQ)/(AA[2]*AA[3]*AA[4]),(AA[1]*QQ^(3/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)), -((AA[1]*QQ^(3/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2))),(AA[1]*QQ)/(AA[3]*AA[4]),(AA[1]*QQ)/(AA[2]*AA[4]), (AA[1]*QQ)/(AA[2]*AA[3]),AA[5],AA[6],(AA[1]^3*QQ^(2+AA[7]))/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6]),QQ^(-AA[7])}, {(AA[1]*QQ^(1/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)), -((AA[1]*QQ^(1/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2))),(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4], (AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5]),(AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[6]),(AA[5]*AA[6])/(AA[1]*QQ^AA[7]), (AA[1]^2*QQ^(2+AA[7]))/(AA[2]*AA[3]*AA[4])},QQ,QQ]* Hyp`q`pq[{AA[1]*QQ,(AA[1]*QQ)/(AA[5]*AA[6]),(AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5]),(AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[6])}, {(AA[1]*QQ)/AA[5],(AA[1]*QQ)/AA[6],(AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6]),(AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4])},AA[7],QQ]; Hyp`q`Gleichung); Tgl2161:=(ClearQ[Global`a,Global`b,Global`c,Global`z];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2]},{AA[3]},QQ,AA[4]]; Hyp`q`RS=Hyp`q`pqinf[{AA[1]*AA[2]*AA[4]/AA[3],QQ/AA[3]},{AA[1]*AA[4]/AA[3],QQ/AA[1]},QQ]* Hyp`q`ph[{AA[3]/AA[1],AA[3]*QQ/(AA[1]*AA[2]*AA[4])},{AA[3]*QQ/(AA[1]*AA[4])},QQ,AA[2]*QQ/AA[3]]- Hyp`q`pqinf[{AA[2],QQ/AA[3],AA[3]/AA[1],AA[1]*AA[4]/QQ,QQ^2/(AA[1]*AA[4])},{AA[3]/QQ,AA[2]*QQ/AA[3],QQ/AA[1],AA[1]*AA[4]/AA[3],AA[3]*QQ/(AA[1]*AA[4])},QQ]* Hyp`q`ph[{AA[1]*QQ/AA[3],AA[2]*QQ/AA[3]},{QQ^2/AA[3]},QQ,AA[4]]; Hyp`q`Gleichung); Tgl2162:=(ClearQ[Global`a,Global`b,Global`c,Global`z];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2]},{AA[3]},QQ,AA[4]]; Hyp`q`RS=Hyp`q`pqinf[{AA[2],AA[3]/AA[1],AA[1]*AA[4],QQ/(AA[1]*AA[4])},{AA[3],AA[2]/AA[1],AA[4],QQ/AA[4]},QQ]* Hyp`q`ph[{AA[1],AA[1]*QQ/AA[3]},{AA[1]*QQ/AA[2]},QQ,AA[3]*QQ/(AA[1]*AA[2]*AA[4])]+ Hyp`q`pqinf[{AA[1],AA[3]/AA[2],AA[2]*AA[4],QQ/(AA[2]*AA[4])},{AA[3],AA[1]/AA[2],AA[4],QQ/AA[4]},QQ]* Hyp`q`ph[{AA[2],AA[2]*QQ/AA[3]},{AA[2]*QQ/AA[1]},QQ,AA[3]*QQ/(AA[1]*AA[2]*AA[4])]; Hyp`q`Gleichung); Tgl3261:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],AA[3]},{AA[4],AA[5]},QQ,AA[4]*AA[5]/(AA[1]*AA[2]*AA[3])]; Hyp`q`RS=Hyp`q`pqinf[{AA[5]/AA[2],AA[5]/AA[3],AA[3]*QQ/AA[1],QQ/AA[4]},{AA[5],AA[3]*QQ/AA[4],QQ/AA[1],AA[5]/(AA[2]*AA[3])},QQ]* Hyp`q`ph[{AA[3],AA[4]/AA[1],AA[3]*QQ/AA[5]},{AA[3]*QQ/AA[1],AA[2]*AA[3]*QQ/AA[5]},QQ,AA[2]*QQ/AA[4]]- Hyp`q`pqinf[{QQ/AA[4],AA[5]*QQ/AA[4],AA[2],AA[3],AA[4]/AA[1],AA[4]*AA[5]/(AA[2]*AA[3]*QQ),AA[2]*AA[3]*QQ^2/(AA[4]*AA[5])}, {AA[4]/QQ,AA[5],AA[2]*QQ/AA[4],AA[3]*QQ/AA[4],QQ/AA[1],AA[5]/(AA[2]*AA[3]),AA[2]*AA[3]*QQ/AA[5]},QQ]* Hyp`q`ph[{AA[1]*QQ/AA[4],AA[2]*QQ/AA[4],AA[3]*QQ/AA[4]},{QQ^2/AA[4],AA[5]*QQ/AA[4]},QQ,AA[4]AA[5]/(AA[1]*AA[2]*AA[3])]; Hyp`q`Gleichung); Tgl3262:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],AA[3]},{AA[4],AA[5]},QQ,AA[4]*AA[5]/(AA[1]*AA[2]*AA[3])]; Hyp`q`RS=Hyp`q`pqinf[{AA[5]/AA[2],AA[5]/AA[3]},{AA[5],AA[5]/(AA[2]*AA[3])},QQ]*Hyp`q`ph[{AA[4]/AA[1],AA[2],AA[3]},{AA[4],AA[2]*AA[3]*QQ/AA[5]},QQ,QQ]+ Hyp`q`pqinf[{AA[4]/AA[1],AA[2],AA[3],AA[4]*AA[5]/(AA[2]*AA[3])},{AA[4],AA[5],AA[2]*AA[3]/AA[5],AA[4]*AA[5]/(AA[1]*AA[2]*AA[3])},QQ]* Hyp`q`ph[{AA[5]/AA[2],AA[5]/AA[3],AA[4]*AA[5]/(AA[1]*AA[2]*AA[3])},{AA[4]*AA[5]/(AA[2]*AA[3]),AA[5]*QQ/(AA[2]*AA[3])},QQ,QQ]; Hyp`q`Gleichung); Tgl3263:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],AA[3]},{AA[4],AA[5]},QQ, (AA[4]*AA[5])/(AA[1]*AA[2]*AA[3])]; Hyp`q`RS=Hyp`q`pqinf[{(AA[4]*QQ)/(AA[2]*AA[3]),AA[5]/AA[3],AA[1], AA[2],(AA[1]*AA[2]*QQ)/(AA[4]*AA[5]), (AA[4]*AA[5])/(AA[1]*AA[2])},{(AA[1]*QQ)/AA[5],QQ/AA[3], AA[4],(AA[1]*AA[2])/AA[4],(AA[4]*AA[5])/(AA[1]*AA[2]*AA[3]), AA[5]},QQ]*Hyp`q`ph[{QQ/AA[2], (AA[4]*AA[5])/(AA[1]*AA[2]*AA[3]),AA[4]/AA[2]}, {(AA[4]*QQ)/(AA[1]*AA[2]),(AA[4]*QQ)/(AA[2]*AA[3])},QQ, (AA[2]*QQ)/AA[5]]+Hyp`q`pqinf[{(AA[1]*QQ)/AA[3],AA[4]/AA[2], AA[4]/AA[1],QQ/AA[5]},{(AA[1]*QQ)/AA[5],QQ/AA[3],AA[4], AA[4]/(AA[1]*AA[2])},QQ]*Hyp`q`ph[{(AA[1]*QQ)/AA[4], AA[5]/AA[3],AA[1]},{(AA[1]*AA[2]*QQ)/AA[4],(AA[1]*QQ)/AA[3]}, QQ,(AA[2]*QQ)/AA[5]]; Hyp`q`Gleichung); Tgl3264:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],AA[3]},{AA[4],AA[5]},QQ,QQ]; Hyp`q`RS=Hyp`q`pqinf[{(AA[2]*AA[3]*QQ)/AA[5],QQ/AA[5]}, {(AA[3]*QQ)/AA[5],(AA[2]*QQ)/AA[5]}, QQ]*Hyp`q`ph[{AA[4]/AA[1],AA[2],AA[3]},{AA[4], (AA[2]*AA[3]*QQ)/AA[5]},QQ, (AA[1]*QQ)/AA[5]]-Hyp`q`pqinf[{QQ/AA[5],AA[1],AA[2],AA[3], (AA[4]*QQ)/AA[5]},{(AA[3]*QQ)/AA[5],(AA[2]*QQ)/AA[5],AA[4], AA[5]/QQ,(AA[1]*QQ)/AA[5]},QQ]*Hyp`q`ph[{(AA[3]*QQ)/AA[5], (AA[2]*QQ)/AA[5],(AA[1]*QQ)/AA[5]},{(AA[4]*QQ)/AA[5], QQ^2/AA[5]},QQ,QQ]; Hyp`q`Gleichung); Tgl3265:=(ClearQ[Global`a,Global`b,Global`c,Global`x];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],AA[3]},{AA[1]*QQ/AA[2],AA[1]*QQ/AA[3]},QQ,AA[1]*QQ*AA[4]/(AA[2]*AA[3])]; Hyp`q`RS=Hyp`q`pqinf[{AA[1]*AA[4]},{AA[4]},QQ]* Hyp`q`ph[{Sqrt[AA[1]],-Sqrt[AA[1]],Sqrt[QQ*AA[1]],-Sqrt[QQ*AA[1]],AA[1]*QQ/(AA[2]*AA[3])}, {AA[1]*QQ/AA[2],AA[1]*QQ/AA[3],AA[1]*AA[4],QQ/AA[4]},QQ,QQ]+ Hyp`q`pqinf[{AA[1],AA[1]*QQ/(AA[2]*AA[3]),AA[1]*QQ*AA[4]/AA[2],AA[1]*QQ*AA[4]/AA[3]},{AA[1]*QQ/AA[2],AA[1]*QQ/AA[3],AA[1]*QQ*AA[4]/(AA[2]*AA[3]),AA[4]^(-1)},QQ]* Hyp`q`ph[{AA[4]*Sqrt[AA[1]],-AA[4]*Sqrt[AA[1]],AA[4]*Sqrt[QQ*AA[1]],-AA[4]*Sqrt[QQ*AA[1]],AA[1]*QQ*AA[4]/(AA[2]*AA[3])}, {AA[1]*QQ*AA[4]/AA[2],AA[1]*QQ*AA[4]/AA[3],AA[4]*QQ,AA[1]*AA[4]^2},QQ,QQ]; Hyp`q`Gleichung); Tgl8761:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e,Global`f];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],QQ*Sqrt[AA[1]],-QQ*Sqrt[AA[1]],AA[2],AA[3],AA[4],AA[5],AA[6]}, {Sqrt[AA[1]],-Sqrt[AA[1]],QQ*AA[1]/AA[2],QQ*AA[1]/AA[3],QQ*AA[1]/AA[4],QQ*AA[1]/AA[5],QQ*AA[1]/AA[6]},QQ,AA[1]^2*QQ^2/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6])]; Hyp`q`RS=Hyp`q`pqinf[{AA[1]*QQ,AA[1]*QQ/(AA[4]*AA[5]),AA[1]*QQ/(AA[4]*AA[6]),AA[1]*QQ/(AA[5]*AA[6])},{AA[1]*QQ/AA[4],AA[1]*QQ/AA[5],AA[1]*QQ/AA[6],AA[1]*QQ/(AA[4]*AA[5]*AA[6])},QQ]* Hyp`q`ph[{AA[1]*QQ/(AA[2]*AA[3]),AA[4],AA[5],AA[6]},{AA[1]*QQ/AA[2],AA[1]*QQ/AA[3],AA[4]*AA[5]*AA[6]/AA[1]},QQ,QQ]+ Hyp`q`pqinf[{AA[1]*QQ,AA[1]*QQ/(AA[2]*AA[3]),AA[4],AA[5],AA[6],AA[1]^2*QQ^2/(AA[2]*AA[4]*AA[5]*AA[6]),AA[1]^2*QQ^2/(AA[3]*AA[4]*AA[5]*AA[6])}, {AA[1]*QQ/AA[2],AA[1]*QQ/AA[3],AA[1]*QQ/AA[4],AA[1]*QQ/AA[5],AA[1]*QQ/AA[6],AA[1]^2*QQ^2/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6]),AA[4]*AA[5]*AA[6]/(AA[1]*QQ)},QQ]* Hyp`q`ph[{AA[1]*QQ/(AA[4]*AA[5]),AA[1]*QQ/(AA[4]*AA[6]),AA[1]*QQ/(AA[5]*AA[6]),AA[1]^2*QQ^2/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6])}, {AA[1]^2*QQ^2/(AA[2]*AA[4]*AA[5]*AA[6]),AA[1]^2*QQ^2/(AA[3]*AA[4]*AA[5]*AA[6]),AA[1]*QQ^2/(AA[4]*AA[5]*AA[6])},QQ,QQ]; Hyp`q`Gleichung); Tgl8762:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e,Global`f];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],QQ*Sqrt[AA[1]],-QQ*Sqrt[AA[1]],AA[2],AA[3],AA[4],AA[5],AA[6]}, {Sqrt[AA[1]],-Sqrt[AA[1]],QQ*AA[1]/AA[2],QQ*AA[1]/AA[3],QQ*AA[1]/AA[4],QQ*AA[1]/AA[5],QQ*AA[1]/AA[6]},QQ,AA[1]^2*QQ^2/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6])]; Hyp`q`RS=Hyp`q`pqinf[{AA[1]*QQ,AA[1]*QQ/(AA[4]*AA[5]),AA[1]*QQ/(AA[4]*AA[6]),AA[1]*QQ/(AA[5]*AA[6]),AA[5]*QQ/AA[3],AA[6]*QQ/AA[3],AA[2]/AA[1],AA[2]*AA[5]*AA[6]/AA[1]}, {AA[1]*QQ/AA[4],AA[1]*QQ/AA[5],AA[1]*QQ/AA[6],AA[1]*QQ/(AA[4]*AA[5]*AA[6]),QQ/AA[3],AA[5]*AA[6]*QQ/AA[3],AA[2]*AA[5]/AA[1],AA[2]*AA[6]/AA[1]},QQ]* Hyp`q`ph[{AA[5]*AA[6]/AA[3],QQ*Sqrt[AA[5]*AA[6]/AA[3]],-QQ*Sqrt[AA[5]*AA[6]/AA[3]],AA[1]*QQ/(AA[2]*AA[3]),AA[1]*QQ/(AA[3]*AA[4]),AA[5]*AA[6]/AA[1],AA[5],AA[6]}, {Sqrt[AA[5]*AA[6]/AA[3]],-Sqrt[AA[5]*AA[6]/AA[3]],AA[2]*AA[5]*AA[6]/AA[1],AA[4]*AA[5]*AA[6]/AA[1],AA[1]*QQ/AA[3],AA[6]*QQ/AA[3],AA[5]*QQ/AA[3]},QQ,AA[2]*AA[4]/AA[1]]- Hyp`q`pqinf[{AA[1]*QQ,AA[2]/AA[1],AA[2]*QQ/AA[3],AA[2]*QQ/AA[4],AA[2]*QQ/AA[5],AA[2]*QQ/AA[6],AA[4],AA[5],AA[6],AA[1]*QQ/(AA[2]*AA[3]), AA[2]*AA[4]*AA[5]*AA[6]/AA[1]^2,AA[1]^2*QQ/(AA[2]*AA[4]*AA[5]*AA[6])}, {AA[1]/AA[2],AA[1]*QQ/AA[3],AA[1]*QQ/AA[4],AA[1]*QQ/AA[5],AA[1]*QQ/AA[6],AA[2]*AA[4]/AA[1],AA[2]*AA[5]/AA[1], AA[2]*AA[6]/AA[1],AA[4]*AA[5]*AA[6]/AA[1],AA[1]*QQ/(AA[4]*AA[5]*AA[6]),QQ/AA[3],AA[2]^2*QQ/AA[1]},QQ]* Hyp`q`ph[{AA[2]^2/AA[1],QQ*Sqrt[AA[2]^2/AA[1]],-QQ*Sqrt[AA[2]^2/AA[1]],AA[2],AA[2]*AA[3]/AA[1],AA[2]*AA[4]/AA[1],AA[2]*AA[5]/AA[1],AA[2]*AA[6]/AA[1]}, {Sqrt[AA[2]^2/AA[1]],-Sqrt[AA[2]^2/AA[1]],AA[2]*QQ/AA[1],AA[2]*QQ/AA[3],AA[2]*QQ/AA[4],AA[2]*QQ/AA[5],AA[2]*QQ/AA[6]}, QQ,AA[1]^2*QQ^2/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6])]; Hyp`q`Gleichung); Tgl8763:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e,Global`f];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ),AA[2],AA[3], AA[4],AA[5],AA[6]},{AA[1]^(1/2),-AA[1]^(1/2), (AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4], (AA[1]*QQ)/AA[5],(AA[1]*QQ)/AA[6]},QQ, (AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6])]; Hyp`q`RS=Hyp`q`pqinf[{(AA[3]*AA[5]*AA[6])/AA[1],(AA[6]*QQ)/AA[4], (AA[5]*QQ)/AA[4],AA[3]/AA[1],(AA[1]*QQ)/(AA[5]*AA[6]), AA[1]*QQ,(AA[1]*QQ)/(AA[2]*AA[6]),(AA[1]*QQ)/(AA[2]*AA[5])}, {(AA[5]*AA[6]*QQ)/AA[4],(AA[3]*AA[6])/AA[1], (AA[3]*AA[5])/AA[1],QQ/AA[4],(AA[1]*QQ)/AA[6], (AA[1]*QQ)/AA[5],(AA[1]*QQ)/(AA[2]*AA[5]*AA[6]), (AA[1]*QQ)/AA[2]},QQ]*Hyp`q`ph[{(AA[5]*AA[6])/AA[4], (AA[5]^(1/2)*AA[6]^(1/2)*QQ)/AA[4]^(1/2), -((AA[5]^(1/2)*AA[6]^(1/2)*QQ)/AA[4]^(1/2)), (AA[1]*QQ)/(AA[2]*AA[4]),(AA[5]*AA[6])/AA[1], (AA[1]*QQ)/(AA[3]*AA[4]),AA[5],AA[6]}, {(AA[5]^(1/2)*AA[6]^(1/2))/AA[4]^(1/2), -((AA[5]^(1/2)*AA[6]^(1/2))/AA[4]^(1/2)), (AA[2]*AA[5]*AA[6])/AA[1],(AA[1]*QQ)/AA[4], (AA[3]*AA[5]*AA[6])/AA[1],(AA[6]*QQ)/AA[4],(AA[5]*QQ)/AA[4]}, QQ,(AA[2]*AA[3])/AA[1]]+Hyp`q`pqinf[{AA[1]*QQ, (AA[1]^2*QQ^2)/(AA[2]*AA[4]*AA[5]*AA[6]),(AA[3]*QQ)/AA[2], (AA[1]*QQ^2)/(AA[2]*AA[4]*AA[5]), (AA[1]*QQ^2)/(AA[2]*AA[4]*AA[6]),(AA[1]*QQ)/(AA[3]*AA[4]), AA[5],AA[6],AA[2],(AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[5]*AA[6]), (AA[2]*AA[3]*AA[5]*AA[6])/(AA[1]^2*QQ)},{(AA[3]*AA[6])/AA[1], (AA[3]*AA[5])/AA[1],QQ/AA[4],(AA[1]*QQ)/AA[6], (AA[1]*QQ)/AA[5],(AA[1]*QQ)/AA[2], (AA[2]*AA[5]*AA[6])/(AA[1]*QQ),(AA[1]*QQ)/AA[4], (AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6]), (AA[1]*QQ)/AA[3],(AA[1]^2*QQ^3)/(AA[2]^2*AA[4]*AA[5]*AA[6])}, QQ]*Hyp`q`ph[{(AA[1]^2*QQ^2)/(AA[2]^2*AA[4]*AA[5]*AA[6]), (AA[1]*QQ^2)/(AA[2]*AA[4]^(1/2)*AA[5]^(1/2)*AA[6]^(1/2)), -((AA[1]*QQ^2)/(AA[2]*AA[4]^(1/2)*AA[5]^(1/2)*AA[6]^(1/2))), (AA[1]*QQ)/(AA[2]*AA[4]),QQ/AA[2], (AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6]), (AA[1]*QQ)/(AA[2]*AA[6]),(AA[1]*QQ)/(AA[2]*AA[5])}, {(AA[1]*QQ)/(AA[2]*AA[4]^(1/2)*AA[5]^(1/2)*AA[6]^(1/2)), -((AA[1]*QQ)/(AA[2]*AA[4]^(1/2)*AA[5]^(1/2)*AA[6]^(1/2))), (AA[1]*QQ^2)/(AA[2]*AA[5]*AA[6]), (AA[1]^2*QQ^2)/(AA[2]*AA[4]*AA[5]*AA[6]),(AA[3]*QQ)/AA[2], (AA[1]*QQ^2)/(AA[2]*AA[4]*AA[5]), (AA[1]*QQ^2)/(AA[2]*AA[4]*AA[6])},QQ,(AA[2]*AA[3])/AA[1]]; Hyp`q`Gleichung); Tgl10961:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e,Global`f,Global`g];ClearqQ[Global`q]; h=AA[1]^3*QQ^2/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6]*AA[7]); Hyp`q`LS=Hyp`q`W[AA[1],{AA[2],AA[3],AA[4],AA[5],AA[6],AA[7],(AA[1]^3*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6]*AA[7])},QQ,QQ]+ Hyp`q`pqinf[{AA[1]*QQ,AA[2]/AA[1],AA[3],AA[4],AA[5],AA[6],AA[7],(AA[1]^3*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6]*AA[7]),(AA[2]*QQ)/AA[3], (AA[2]*QQ)/AA[4],(AA[2]*QQ)/AA[5],(AA[2]*QQ)/AA[6],(AA[2]*QQ)/AA[7],(AA[2]^2*AA[3]*AA[4]*AA[5]*AA[6]*AA[7])/(AA[1]^3*QQ)}, {(AA[2]^2*QQ)/AA[1],AA[1]/AA[2],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4],(AA[1]*QQ)/AA[5],(AA[1]*QQ)/AA[6],(AA[1]*QQ)/AA[7], (AA[2]*AA[3]*AA[4]*AA[5]*AA[6]*AA[7])/(AA[1]^2*QQ),(AA[2]*AA[3])/AA[1],(AA[2]*AA[4])/AA[1],(AA[2]*AA[5])/AA[1],(AA[2]*AA[6])/AA[1],(AA[2]*AA[7])/AA[1], (AA[1]^2*QQ^2)/(AA[3]*AA[4]*AA[5]*AA[6]*AA[7])},QQ]* Hyp`q`W[AA[2]^2/AA[1],{AA[2],AA[2]*AA[3]/AA[1],AA[2]*AA[4]/AA[1],AA[2]*AA[5]/AA[1],AA[2]*AA[6]/AA[1],AA[2]*AA[7]/AA[1],(AA[1]^2*QQ^2)/(AA[3]*AA[4]*AA[5]*AA[6]*AA[7])},QQ,QQ]; Hyp`q`RS=Hyp`q`pqinf[{AA[1]*QQ,AA[2]/AA[1],(AA[1]^2*QQ^2)/(AA[3]*AA[4]*AA[5]*AA[6]),(AA[1]^2*QQ^2)/(AA[3]*AA[4]*AA[5]*AA[7]), (AA[2]*AA[6]*AA[7])/AA[1],(AA[2]*AA[3]*AA[4]*AA[5]*AA[6])/(AA[1]^2*QQ),(AA[2]*AA[3]*AA[4]*AA[5]*AA[7])/(AA[1]^2*QQ),(AA[1]*QQ)/(AA[6]*AA[7])}, {(AA[1]^2*QQ^2)/(AA[3]*AA[4]*AA[5]),(AA[2]*AA[3]*AA[4]*AA[5])/(AA[1]^2*QQ),(AA[1]*QQ)/AA[6],(AA[1]*QQ)/AA[7], (AA[2]*AA[3]*AA[4]*AA[5]*AA[6]*AA[7])/(AA[1]^2*QQ),(AA[2]*AA[6])/AA[1],(AA[2]*AA[7])/AA[1],(AA[1]^2*QQ^2)/(AA[3]*AA[4]*AA[5]*AA[6]*AA[7])},QQ]* Hyp`q`W[(AA[1]^2*QQ)/(AA[3]*AA[4]*AA[5]),{AA[2],(AA[1]*QQ)/(AA[4]*AA[5]),(AA[1]*QQ)/(AA[3]*AA[5]), (AA[1]*QQ)/(AA[3]*AA[4]),AA[6],AA[7],(AA[1]^3*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6]*AA[7])},QQ,QQ]+ Hyp`q`pqinf[{AA[1]*QQ,AA[2]/AA[1],AA[6],AA[7],(AA[1]^3*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6]*AA[7]),(AA[2]*QQ)/AA[6],(AA[2]*QQ)/AA[7], (AA[2]^2*AA[3]*AA[4]*AA[5]*AA[6]*AA[7])/(AA[1]^3*QQ),(AA[1]*QQ)/(AA[4]*AA[5]),(AA[1]*QQ)/(AA[3]*AA[5]),(AA[1]*QQ)/(AA[3]*AA[4]), (AA[2]*AA[4]*AA[5])/AA[1],(AA[2]*AA[3]*AA[5])/AA[1],(AA[2]*AA[3]*AA[4])/AA[1]}, {(AA[2]^2*AA[3]*AA[4]*AA[5])/AA[1]^2,(AA[1]^2*QQ)/(AA[2]*AA[3]*AA[4]*AA[5]),(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4],(AA[1]*QQ)/AA[5], (AA[1]*QQ)/AA[6],(AA[1]*QQ)/AA[7],(AA[2]*AA[3]*AA[4]*AA[5]*AA[6]*AA[7])/(AA[1]^2*QQ),(AA[2]*AA[3])/AA[1],(AA[2]*AA[4])/AA[1],(AA[2]*AA[5])/AA[1], (AA[2]*AA[6])/AA[1],(AA[2]*AA[7])/AA[1],(AA[1]^2*QQ^2)/(AA[3]*AA[4]*AA[5]*AA[6]*AA[7])},QQ]* Hyp`q`W[(AA[2]^2*AA[3]*AA[4]*AA[5])/(AA[1]^2*QQ),{AA[2],(AA[2]*AA[3])/AA[1],(AA[2]*AA[4])/AA[1], (AA[2]*AA[5])/AA[1],(AA[2]*AA[3]*AA[4]*AA[5]*AA[6])/(AA[1]^2*QQ),(AA[2]*AA[3]*AA[4]*AA[5]*AA[7])/(AA[1]^2*QQ),(AA[1]*QQ)/(AA[6]*AA[7])},QQ,QQ]; Hyp`q`Gleichung); Jain$Verma$gl:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e];ClearqQ[Global`q]; la=QQ*a^2/(b*c*d); f=e*a^2/la^2; Hyp`q`LS=Hyp`q`ph[{a,b,c,d,e},{a*QQ/b,a*QQ/c,a*QQ/d,f},QQ,QQ]+ Hyp`q`pqinf[{a,b,c,d,e,QQ/f,a*QQ^2/(b*f),a*QQ^2/(c*f),a*QQ^2/(d*f)}, {a*QQ/b,a*QQ/c,a*QQ/d,f/QQ,a*QQ/f,b*QQ/f,c*QQ/f,d*QQ/f,e*QQ/f},QQ]* Hyp`q`ph[{a*QQ/f,b*QQ/f,c*QQ/f,d*QQ/f,e*QQ/f}, {QQ^2/f,a*QQ^2/(b*f),a*QQ^2/(c*f),a*QQ^2/(d*f)},QQ,QQ]; Hyp`q`RS=Hyp`q`pqinf[{la*QQ/a,la*QQ/e,la^2*QQ/a,QQ/f}, {la*QQ,a*QQ/f,e*QQ/f,a*QQ/(la*f)},QQ]* Hyp`q`W[la,{a^(1/2),-a^(1/2),(a*QQ)^(1/2),-(a*QQ)^(1/2),la*b/a, la*c/a,la*d/a,e,a*QQ/f},QQ,QQ]+ Hyp`q`pqinf[{a,e,la*b/a,la*c/a,la*d/a,QQ/f,a^2*QQ^2/(la*b*f),a^2*QQ^2/(la*c*f), a^2*QQ^2/(la*d*f),a*QQ^3/f^2}, {a*QQ/b,a*QQ/c,a*QQ/d,a*QQ/f,b*QQ/f,c*QQ/f,d*QQ/f,e*QQ/f,la*f/(a*QQ), a^2*QQ^3/(la*f^2)},QQ]* Hyp`q`W[a^2*QQ^2/(la*f^2),{QQ*a^(3/2)/(la*f),-QQ*a^(3/2)/(la*f), (QQ*a)^(3/2)/(la*f),-(QQ*a)^(3/2)/(la*f),la*QQ/a,a*QQ/f, b*QQ/f,c*QQ/f,d*QQ/f},QQ,QQ]; Hyp`q`Gleichung); (* Ex2.2 *) Tgl4308:=(ClearQ[Global`a,Global`b,Global`t];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ),AA[2]}, {AA[1]^(1/2),-AA[1]^(1/2),(AA[1]*QQ)/AA[2]},QQ,AA[3]]; Hyp`q`RS=Hyp`q`pqinf[{AA[1]*QQ,AA[2]*AA[3]},{AA[3],(AA[1]*QQ)/AA[2]}, QQ]*Hyp`q`ph[{AA[2]^(-1),AA[3]},{AA[2]*QQ*AA[3]},QQ, AA[1]*QQ]; Hyp`q`Gleichung); (* Ex2.2,reversed *) Tgl2109:=(ClearQ[Global`a,Global`b,Global`t];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2]},{(AA[2]*QQ)/AA[1]},QQ,AA[3]]; Hyp`q`RS=Hyp`q`pqinf[{AA[2],AA[1]*AA[3]},{AA[3],AA[2]/AA[1]}, QQ]*Hyp`q`ph[{AA[3]/QQ,QQ^(1/2)*AA[3]^(1/2), -(QQ^(1/2)*AA[3]^(1/2)),AA[1]^(-1)},{AA[3]^(1/2)/QQ^(1/2), -(AA[3]^(1/2)/QQ^(1/2)),AA[1]*AA[3]},QQ,AA[2]]; Hyp`q`Gleichung); (* Ex2.13(i) *) Tgl4309:=(ClearQ[Global`a,Global`b,Global`c,Global`d];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],AA[3],AA[4]},{(AA[1]*QQ)/AA[2], (AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4]},QQ, (AA[1]^2*QQ^3)/(AA[2]^2*AA[3]^2*AA[4]^2)]; Hyp`q`RS=Hyp`q`pqinf[{(AA[1]*QQ^2)/(AA[2]*AA[3]*AA[4]), (AA[1]^3*QQ^3)/(AA[2]^2*AA[3]^2*AA[4]^2)}, {(AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]), (AA[1]^2*QQ^3)/(AA[2]^2*AA[3]^2*AA[4]^2)}, QQ]*Hyp`q`ph[{(AA[1]^2*QQ)/(AA[2]*AA[3]*AA[4]), (AA[1]*QQ^(3/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)), -((AA[1]*QQ^(3/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2))), AA[1]^(1/2),-AA[1]^(1/2),AA[1]^(1/2)*QQ^(1/2), -(AA[1]^(1/2)*QQ^(1/2)),(AA[1]*QQ)/(AA[3]*AA[4]), (AA[1]*QQ)/(AA[2]*AA[4]),(AA[1]*QQ)/(AA[2]*AA[3])}, {(AA[1]*QQ^(1/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)), -((AA[1]*QQ^(1/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2))), (AA[1]^(3/2)*QQ^2)/(AA[2]*AA[3]*AA[4]), -((AA[1]^(3/2)*QQ^2)/(AA[2]*AA[3]*AA[4])), (AA[1]^(3/2)*QQ^(3/2))/(AA[2]*AA[3]*AA[4]), -((AA[1]^(3/2)*QQ^(3/2))/(AA[2]*AA[3]*AA[4])), (AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4]},QQ, (AA[1]*QQ^2)/(AA[2]*AA[3]*AA[4])]; Hyp`q`Gleichung); (* Ex2.13(i),reversed *) Tgl10902:=(ClearQ[Global`a,Global`b,Global`c,Global`d];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ),AA[2], -AA[2],AA[2]*QQ^(1/2),-(AA[2]*QQ^(1/2)),AA[3],AA[4], (AA[1]^2*QQ)/(AA[2]^2*AA[3]*AA[4])},{AA[1]^(1/2), -AA[1]^(1/2),(AA[1]*QQ)/AA[2],-((AA[1]*QQ)/AA[2]), (AA[1]*QQ^(1/2))/AA[2],-((AA[1]*QQ^(1/2))/AA[2]), (AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4], (AA[2]^2*AA[3]*AA[4])/AA[1]},QQ,(AA[1]*QQ)/AA[2]^2]; Hyp`q`RS=Hyp`q`pqinf[{AA[1]*QQ,(AA[1]^2*QQ)/AA[2]^4}, {(AA[1]*QQ)/AA[2]^2,(AA[1]^2*QQ)/AA[2]^2}, QQ]*Hyp`q`ph[{AA[2]^2,(AA[2]^2*AA[3])/AA[1], (AA[2]^2*AA[4])/AA[1],(AA[1]*QQ)/(AA[3]*AA[4])}, {(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4], (AA[2]^2*AA[3]*AA[4])/AA[1]},QQ,(AA[1]^2*QQ)/AA[2]^4]; Hyp`q`Gleichung); (* Ex2.13(ii) *) Tgl4310:=(ClearQ[Global`a,Global`b,Global`c,Global`d];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],AA[3],AA[4]},{(AA[1]*QQ)/AA[2], (AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4]},QQ, -((AA[1]*QQ^2)/(AA[2]*AA[3]*AA[4]))]; Hyp`q`RS=Hyp`q`pqinf[{AA[1]*QQ,-QQ, (AA[1]^(3/2)*QQ^2)/(AA[2]*AA[3]*AA[4]), -((AA[1]^(3/2)*QQ^2)/(AA[2]*AA[3]*AA[4]))}, {(AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]), -((AA[1]*QQ^2)/(AA[2]*AA[3]*AA[4])),AA[1]^(1/2)*QQ, -(AA[1]^(1/2)*QQ)}, QQ]*Hyp`q`ph[{(AA[1]^2*QQ)/(AA[2]*AA[3]*AA[4]), (AA[1]*QQ^(3/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)), -((AA[1]*QQ^(3/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2))), AA[1]^(1/2),-AA[1]^(1/2),(AA[1]*QQ)/(AA[3]*AA[4]), (AA[1]*QQ)/(AA[2]*AA[4]),(AA[1]*QQ)/(AA[2]*AA[3])}, {(AA[1]*QQ^(1/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)), -((AA[1]*QQ^(1/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2))), (AA[1]^(3/2)*QQ^2)/(AA[2]*AA[3]*AA[4]), -((AA[1]^(3/2)*QQ^2)/(AA[2]*AA[3]*AA[4])),(AA[1]*QQ)/AA[2], (AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4]},QQ,-QQ]; Hyp`q`Gleichung); (* Ex2.13(ii),reversed *) Tgl8706:=(ClearQ[Global`a,Global`b,Global`c,Global`d];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ),AA[2], -AA[2],AA[3],AA[4],(AA[1]^2*QQ)/(AA[2]^2*AA[3]*AA[4])}, {AA[1]^(1/2),-AA[1]^(1/2),(AA[1]*QQ)/AA[2], -((AA[1]*QQ)/AA[2]),(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4], (AA[2]^2*AA[3]*AA[4])/AA[1]},QQ,-QQ]; Hyp`q`RS=Hyp`q`pqinf[{AA[1]*QQ,-((AA[1]*QQ)/AA[2]^2),AA[2]*QQ, -(AA[2]*QQ)},{AA[2]^2*QQ,-QQ,(AA[1]*QQ)/AA[2], -((AA[1]*QQ)/AA[2])},QQ]*Hyp`q`ph[{AA[2]^2, (AA[2]^2*AA[3])/AA[1],(AA[2]^2*AA[4])/AA[1], (AA[1]*QQ)/(AA[3]*AA[4])},{(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4], (AA[2]^2*AA[3]*AA[4])/AA[1]},QQ,-((AA[1]*QQ)/AA[2]^2)]; Hyp`q`Gleichung); (* Ex2.14(ii) *) Tgl6501:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`n];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ,AA[2],AA[3],AA[4], QQ^(-AA[5])},{AA[1]^(1/2),(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3], (AA[1]*QQ)/AA[4], (AA[2]^2*AA[3]^2*AA[4]^2*QQ^(-1-AA[5]))/AA[1]^2},QQ,QQ]; Hyp`q`RS=Hyp`q`ph[{(AA[1]^2*QQ)/(AA[2]*AA[3]*AA[4]), (AA[1]*QQ^(3/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)), -((AA[1]*QQ^(3/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2))), (AA[1]*QQ)/(AA[3]*AA[4]),(AA[1]*QQ)/(AA[2]*AA[4]), (AA[1]*QQ)/(AA[2]*AA[3]),AA[1]^(1/2)*QQ,-AA[1]^(1/2), AA[1]^(1/2)*QQ^(1/2),-(AA[1]^(1/2)*QQ^(1/2)), (AA[1]^3*QQ^(2+AA[5]))/(AA[2]^2*AA[3]^2*AA[4]^2), QQ^(-AA[5])}, {(AA[1]*QQ^(1/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)), -((AA[1]*QQ^(1/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2))), (AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4], (AA[1]^(3/2)*QQ)/(AA[2]*AA[3]*AA[4]), -((AA[1]^(3/2)*QQ^2)/(AA[2]*AA[3]*AA[4])), (AA[1]^(3/2)*QQ^(3/2))/(AA[2]*AA[3]*AA[4]), -((AA[1]^(3/2)*QQ^(3/2))/(AA[2]*AA[3]*AA[4])), (AA[2]*AA[3]*AA[4])/(AA[1]*QQ^AA[5]), (AA[1]^2*QQ^(2+AA[5]))/(AA[2]*AA[3]*AA[4])},QQ, QQ]*Hyp`q`pq[{(AA[1]*QQ)/(AA[2]*AA[3]*AA[4]), (AA[1]^3*QQ^2)/(AA[2]^2*AA[3]^2*AA[4]^2), -((AA[1]^(3/2)*QQ^2)/(AA[2]*AA[3]*AA[4]))}, {(AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]), (AA[1]^2*QQ^2)/(AA[2]^2*AA[3]^2*AA[4]^2), -((AA[1]^(3/2)*QQ)/(AA[2]*AA[3]*AA[4]))},AA[5],QQ]; Hyp`q`Gleichung); (* Ex2.14(ii),reversed *) Tgl121104:=(ClearQ[Global`a,Global`c,Global`d,Global`b,Global`n];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ),AA[2],AA[3], (AA[1]^2*QQ)/(AA[4]*AA[2]*AA[3]),AA[4]^(1/2)*QQ,-AA[4]^(1/2), AA[4]^(1/2)*QQ^(1/2),-(AA[4]^(1/2)*QQ^(1/2)), (AA[1]^2*QQ^AA[5])/AA[4],QQ^(-AA[5])},{AA[1]^(1/2), -AA[1]^(1/2),(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3], (AA[4]*AA[2]*AA[3])/AA[1],AA[1]/AA[4]^(1/2), -((AA[1]*QQ)/AA[4]^(1/2)),(AA[1]*QQ^(1/2))/AA[4]^(1/2), -((AA[1]*QQ^(1/2))/AA[4]^(1/2)),(AA[4]*QQ^(1-AA[5]))/AA[1], AA[1]*QQ^(1+AA[5])},QQ,QQ]; Hyp`q`RS=Hyp`q`ph[{AA[4],AA[4]^(1/2)*QQ,(AA[4]*AA[2])/AA[1], (AA[4]*AA[3])/AA[1],(AA[1]*QQ)/(AA[2]*AA[3]),QQ^(-AA[5])}, {AA[4]^(1/2),(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3], (AA[4]*AA[2]*AA[3])/AA[1],(AA[4]^2*QQ^(1-AA[5]))/AA[1]^2},QQ, QQ]*Hyp`q`pq[{AA[1]*QQ,AA[1]^2/AA[4]^2,-(AA[1]/AA[4]^(1/2))}, {AA[1]/AA[4],AA[1]^2/AA[4],-((AA[1]*QQ)/AA[4]^(1/2))},AA[5], QQ]; Hyp`q`Gleichung); (* Ex2.15 *) Tgl8764:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e,Global`f];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1]^2,AA[1]*QQ,-(AA[1]*QQ),AA[1]*AA[2], AA[1]*AA[3],AA[1]*AA[4],AA[1]*AA[5],AA[1]*AA[6]},{AA[1], -AA[1],(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4], (AA[1]*QQ)/AA[5],(AA[1]*QQ)/AA[6]},QQ, QQ^2/(AA[1]*AA[2]*AA[3]*AA[4]*AA[5]*AA[6])]; Hyp`q`RS=-((AA[1]*Hyp`q`pqinf[{AA[1]^2*QQ,AA[1]*AA[3],AA[2]/AA[1], AA[3]/AA[1],(AA[2]*QQ)/AA[4],(AA[2]*QQ)/AA[5], (AA[2]*QQ)/AA[6],QQ/(AA[2]*AA[4]),QQ/(AA[2]*AA[5]), QQ/(AA[2]*AA[6])},{(AA[1]*QQ)/AA[4],(AA[1]*QQ)/AA[5], (AA[1]*QQ)/AA[6],QQ/(AA[1]*AA[4]),QQ/(AA[1]*AA[5]), QQ/(AA[1]*AA[6]),AA[2]^2*QQ,AA[2]*AA[3],AA[1]/AA[2], AA[3]/AA[2]},QQ]*Hyp`q`ph[{AA[2]^2,AA[2]*QQ,-(AA[2]*QQ), AA[1]*AA[2],AA[2]*AA[3],AA[2]*AA[4],AA[2]*AA[5],AA[2]*AA[6]}, {AA[2],-AA[2],(AA[2]*QQ)/AA[1],(AA[2]*QQ)/AA[3], (AA[2]*QQ)/AA[4],(AA[2]*QQ)/AA[5],(AA[2]*QQ)/AA[6]},QQ, QQ^2/(AA[1]*AA[2]*AA[3]*AA[4]*AA[5]*AA[6])])/AA[2])-(AA[1]* Hyp`q`pqinf[{AA[1]^2*QQ,AA[1]*AA[2],AA[2]/AA[1],AA[3]/AA[1], (AA[3]*QQ)/AA[4],(AA[3]*QQ)/AA[5],(AA[3]*QQ)/AA[6], QQ/(AA[3]*AA[4]),QQ/(AA[3]*AA[5]),QQ/(AA[3]*AA[6])}, {(AA[1]*QQ)/AA[4],(AA[1]*QQ)/AA[5],(AA[1]*QQ)/AA[6], QQ/(AA[1]*AA[4]),QQ/(AA[1]*AA[5]),QQ/(AA[1]*AA[6]), AA[3]^2*QQ,AA[2]*AA[3],AA[1]/AA[3],AA[2]/AA[3]}, QQ]*Hyp`q`ph[{AA[3]^2,AA[3]*QQ,-(AA[3]*QQ),AA[1]*AA[3], AA[2]*AA[3],AA[3]*AA[4],AA[3]*AA[5],AA[3]*AA[6]},{AA[3], -AA[3],(AA[3]*QQ)/AA[1],(AA[3]*QQ)/AA[2],(AA[3]*QQ)/AA[4], (AA[3]*QQ)/AA[5],(AA[3]*QQ)/AA[6]},QQ, QQ^2/(AA[1]*AA[2]*AA[3]*AA[4]*AA[5]*AA[6])])/AA[3]; Hyp`q`Gleichung); (* Ex2.19 *) Tgl10903:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e,Global`f,Global`n];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ),AA[2],AA[3], AA[4],AA[5],AA[6],AA[1]^3*QQ^(AA[7]+2)/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6]),QQ^(-AA[7])},{AA[1]^(1/2), -AA[1]^(1/2),(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3], (AA[1]*QQ)/AA[4],(AA[1]*QQ)/AA[5],(AA[1]*QQ)/AA[6], (AA[1]*QQ)/(AA[1]^3*QQ^(AA[7]+2)/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6])),AA[1]*QQ^(1+AA[7])},QQ,QQ]; Hyp`q`RS=AA[5]^AA[7]*Hyp`q`ph[{AA[5]/(AA[2]*QQ^AA[7]), (AA[5]^(1/2)*QQ^(1-AA[7]/2))/AA[2]^(1/2), -((AA[5]^(1/2)*QQ^(1-AA[7]/2))/AA[2]^(1/2)),AA[5], (AA[1]*QQ)/(AA[2]*AA[3]),(AA[1]*QQ)/(AA[2]*AA[4]), (AA[1]*QQ)/(AA[2]*AA[6]),(AA[1]*QQ)/(AA[2]*(AA[1]^3*QQ^(AA[7]+2)/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6]))), AA[5]/(AA[1]*QQ^AA[7]),QQ^(-AA[7])}, {AA[5]^(1/2)/(AA[2]^(1/2)*QQ^(AA[7]/2)), -(AA[5]^(1/2)/(AA[2]^(1/2)*QQ^(AA[7]/2))),QQ^(1-AA[7])/AA[2], (AA[3]*AA[5])/(AA[1]*QQ^AA[7]), (AA[4]*AA[5])/(AA[1]*QQ^AA[7]), (AA[5]*AA[6])/(AA[1]*QQ^AA[7]), (AA[5]*(AA[1]^3*QQ^(AA[7]+2)/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6])))/(AA[1]*QQ^AA[7]),(AA[1]*QQ)/AA[2], (AA[5]*QQ)/AA[2]},QQ,QQ]*Hyp`q`pq[{AA[1]*QQ, (AA[1]*QQ)/(AA[3]*AA[5]),(AA[1]*QQ)/(AA[4]*AA[5]), (AA[1]*QQ)/(AA[5]*AA[6]),(AA[1]*QQ)/(AA[5]*(AA[1]^3*QQ^(AA[7]+2)/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6]))),AA[2]}, {(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4],(AA[1]*QQ)/AA[5], (AA[1]*QQ)/AA[6],(AA[1]*QQ)/(AA[1]^3*QQ^(AA[7]+2)/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6])),AA[2]/AA[5]},AA[7],QQ]; Hyp`q`Gleichung); (* 3.2.6 *) Tgl3210:=(ClearQ[Global`a,Global`b,Global`n,Global`e,Global`d];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],QQ^(-AA[3])},{AA[4],AA[5]},QQ, (AA[5]*AA[4]*QQ^AA[3])/(AA[1]*AA[2])]; Hyp`q`RS=(AA[5]^AA[3]*AA[4]^AA[3]*QQ^(-AA[3]+AA[3]^2)*Hyp`q`ph[{AA[1], (AA[1]*AA[2]*QQ^(1-AA[3]))/(AA[5]*AA[4]),QQ^(-AA[3])}, {(AA[1]*QQ^(1-AA[3]))/AA[4],(AA[1]*QQ^(1-AA[3]))/AA[5]},QQ, QQ/AA[2]]*Hyp`q`pq[{(AA[1]*QQ^(1-AA[3]))/AA[5], (AA[1]*QQ^(1-AA[3]))/AA[4]},{AA[5],AA[4]},AA[3], QQ])/AA[1]^AA[3]; Hyp`q`Gleichung); (* 3.4.4 *) Tgl5461:=(ClearQ[Global`a,Global`b,Global`c,Global`x];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ),AA[2], AA[3]},{AA[1]^(1/2),-AA[1]^(1/2),(AA[1]*QQ)/AA[2], (AA[1]*QQ)/AA[3]},QQ, (AA[1]^(1/2)*QQ^(1/2)*AA[4])/(AA[2]*AA[3])]; Hyp`q`RS=(1-AA[4]^2)*Hyp`q`pqinf[{AA[1]^(1/2)*QQ^(3/2)*AA[4]}, {AA[4]/(AA[1]^(1/2)*QQ^(1/2))}, QQ]*Hyp`q`ph[{AA[1]^(1/2)*QQ^(1/2),-(AA[1]^(1/2)*QQ^(1/2)), AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ),(AA[1]*QQ)/(AA[2]*AA[3])}, {(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3], AA[1]^(1/2)*QQ^(3/2)*AA[4],(AA[1]^(1/2)*QQ^(3/2))/AA[4]},QQ, QQ]+Hyp`q`pqinf[{AA[1]*QQ,(AA[1]*QQ)/(AA[2]*AA[3]), (AA[1]^(1/2)*QQ^(1/2)*AA[4])/AA[2], (AA[1]^(1/2)*QQ^(1/2)*AA[4])/AA[3]},{(AA[1]*QQ)/AA[2], (AA[1]*QQ)/AA[3],(AA[1]^(1/2)*QQ^(1/2)*AA[4])/(AA[2]*AA[3]), (AA[1]^(1/2)*QQ^(1/2))/AA[4]},QQ]*Hyp`q`ph[{AA[4],-AA[4], QQ^(1/2)*AA[4],-(QQ^(1/2)*AA[4]), (AA[1]^(1/2)*QQ^(1/2)*AA[4])/(AA[2]*AA[3])}, {(AA[1]^(1/2)*QQ^(1/2)*AA[4])/AA[2], (AA[1]^(1/2)*QQ^(1/2)*AA[4])/AA[3], (QQ^(1/2)*AA[4])/AA[1]^(1/2),QQ*AA[4]^2},QQ,QQ]; Hyp`q`Gleichung); (* 3.4.4,reversed,first form *) Tgl5462:=(ClearQ[Global`a,Global`b,Global`c,Global`x];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1]^(1/2)*QQ^(1/2),-(AA[1]^(1/2)*QQ^(1/2)), AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ),(AA[2]*AA[3])/(AA[1]*QQ)}, {AA[2],AA[3],AA[1]^(1/2)*QQ^(3/2)*AA[4], (AA[1]^(1/2)*QQ^(3/2))/AA[4]},QQ,QQ]; Hyp`q`RS=(Hyp`q`pqinf[{AA[4]/(AA[1]^(1/2)*QQ^(1/2))}, {AA[1]^(1/2)*QQ^(3/2)*AA[4]},QQ]*Hyp`q`ph[{AA[1], AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ),(AA[1]*QQ)/AA[2], (AA[1]*QQ)/AA[3]},{AA[1]^(1/2),-AA[1]^(1/2),AA[2],AA[3]},QQ, (AA[2]*AA[3]*AA[4])/(AA[1]^(3/2)*QQ^(3/2))])/(1-AA[4]^2)- (Hyp`q`pqinf[{AA[4]/(AA[1]^(1/2)*QQ^(1/2)),AA[1]*QQ, (AA[2]*AA[3])/(AA[1]*QQ), (AA[2]*AA[4])/(AA[1]^(1/2)*QQ^(1/2)), (AA[3]*AA[4])/(AA[1]^(1/2)*QQ^(1/2))}, {AA[1]^(1/2)*QQ^(3/2)*AA[4],AA[2],AA[3], (AA[2]*AA[3]*AA[4])/(AA[1]^(3/2)*QQ^(3/2)), (AA[1]^(1/2)*QQ^(1/2))/AA[4]},QQ]*Hyp`q`ph[{AA[4],-AA[4], QQ^(1/2)*AA[4],-(QQ^(1/2)*AA[4]), (AA[2]*AA[3]*AA[4])/(AA[1]^(3/2)*QQ^(3/2))}, {(AA[2]*AA[4])/(AA[1]^(1/2)*QQ^(1/2)), (AA[3]*AA[4])/(AA[1]^(1/2)*QQ^(1/2)), (QQ^(1/2)*AA[4])/AA[1]^(1/2),QQ*AA[4]^2},QQ,QQ])/(1-AA[4]^2); Hyp`q`Gleichung); (* 3.4.4,reversed,second form *) Tgl5463:=(ClearQ[Global`x,Global`b,Global`c,Global`a];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],-AA[1],QQ^(1/2)*AA[1],-(QQ^(1/2)*AA[1]), (AA[2]*AA[3])/(AA[4]^(1/2)*QQ^(1/2)*AA[1])},{AA[2],AA[3], (QQ^(1/2)*AA[1])/AA[4]^(1/2),QQ*AA[1]^2},QQ,QQ]; Hyp`q`RS=Hyp`q`pqinf[{(AA[4]^(1/2)*AA[2]*QQ^(1/2))/AA[1], (AA[4]^(1/2)*AA[3]*QQ^(1/2))/AA[1], (AA[2]*AA[3])/(AA[4]^(1/2)*QQ^(1/2)*AA[1]), (AA[4]^(1/2)*QQ^(1/2))/AA[1]},{AA[4]*QQ, (AA[2]*AA[3])/AA[1]^2,AA[2],AA[3]},QQ]*Hyp`q`ph[{AA[4], AA[4]^(1/2)*QQ,-(AA[4]^(1/2)*QQ), (AA[4]^(1/2)*QQ^(1/2)*AA[1])/AA[2], (AA[4]^(1/2)*QQ^(1/2)*AA[1])/AA[3]},{AA[4]^(1/2), -AA[4]^(1/2),(AA[4]^(1/2)*AA[2]*QQ^(1/2))/AA[1], (AA[4]^(1/2)*AA[3]*QQ^(1/2))/AA[1]},QQ, (AA[2]*AA[3])/(AA[4]^(1/2)*QQ^(1/2)*AA[1])]-(1-AA[1]^2)* Hyp`q`pqinf[{AA[4]^(1/2)*QQ^(3/2)*AA[1], (AA[4]^(1/2)*AA[2]*QQ^(1/2))/AA[1], (AA[4]^(1/2)*AA[3]*QQ^(1/2))/AA[1], (AA[2]*AA[3])/(AA[4]^(1/2)*QQ^(1/2)*AA[1]), (AA[4]^(1/2)*QQ^(1/2))/AA[1]},{AA[1]/(AA[4]^(1/2)*QQ^(1/2)), AA[4]*QQ,(AA[2]*AA[3])/AA[1]^2,AA[2],AA[3]}, QQ]*Hyp`q`ph[{AA[4]^(1/2)*QQ^(1/2),-(AA[4]^(1/2)*QQ^(1/2)), AA[4]^(1/2)*QQ,-(AA[4]^(1/2)*QQ),(AA[2]*AA[3])/AA[1]^2}, {(AA[4]^(1/2)*AA[2]*QQ^(1/2))/AA[1], (AA[4]^(1/2)*AA[3]*QQ^(1/2))/AA[1], AA[4]^(1/2)*QQ^(3/2)*AA[1],(AA[4]^(1/2)*QQ^(3/2))/AA[1]},QQ, QQ]; Hyp`q`Gleichung); (* 3.4.7 *) Tgl2110:=(ClearQ[Global`a,Global`b,Global`x];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2]},{(AA[1]*QQ)/AA[2]},QQ, (QQ*AA[3])/AA[2]^2]; Hyp`q`RS=Hyp`q`pqinf[{(QQ*AA[3])/AA[2],(AA[1]*QQ*AA[3]^2)/AA[2]^2}, {(AA[1]*QQ*AA[3])/AA[2],(QQ*AA[3]^2)/AA[2]^2}, QQ]*Hyp`q`ph[{(AA[1]*AA[3])/AA[2], (AA[1]^(1/2)*QQ*AA[3]^(1/2))/AA[2]^(1/2), -((AA[1]^(1/2)*QQ*AA[3]^(1/2))/AA[2]^(1/2)),AA[3], AA[1]^(1/2),-AA[1]^(1/2),AA[1]^(1/2)*QQ^(1/2), -(AA[1]^(1/2)*QQ^(1/2))}, {(AA[1]^(1/2)*AA[3]^(1/2))/AA[2]^(1/2), -((AA[1]^(1/2)*AA[3]^(1/2))/AA[2]^(1/2)),(AA[1]*QQ)/AA[2], (AA[1]^(1/2)*QQ*AA[3])/AA[2],-((AA[1]^(1/2)*QQ*AA[3])/AA[2]), (AA[1]^(1/2)*QQ^(1/2)*AA[3])/AA[2], -((AA[1]^(1/2)*QQ^(1/2)*AA[3])/AA[2])},QQ, (QQ*AA[3])/AA[2]^2]; Hyp`q`Gleichung); (* 3.4.7,reversed *) Tgl8707:=(ClearQ[Global`b,Global`x,Global`a];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ), AA[3]^(1/2),-AA[3]^(1/2),AA[3]^(1/2)*QQ^(1/2), -(AA[3]^(1/2)*QQ^(1/2)),AA[2]},{AA[1]^(1/2),-AA[1]^(1/2), (AA[1]*QQ)/AA[3]^(1/2), -((AA[1]*QQ)/AA[3]^(1/2)),(AA[1]*QQ^(1/2))/AA[3]^(1/2), -((AA[1]*QQ^(1/2))/AA[3]^(1/2)),(AA[1]*QQ)/AA[2]},QQ, (AA[1]^2*QQ)/(AA[3]^2*AA[2])]; Hyp`q`RS=Hyp`q`pqinf[{AA[1]*QQ,(AA[1]^2*QQ)/AA[3]^2}, {(AA[1]*QQ)/AA[3],(AA[1]^2*QQ)/AA[3]},QQ]*Hyp`q`ph[{AA[3], (AA[3]*AA[2])/AA[1]},{(AA[1]*QQ)/AA[2]},QQ, (AA[1]^2*QQ)/(AA[3]^2*AA[2])]; Hyp`q`Gleichung); (* 3.4.8 *) Tgl4311:=(ClearQ[Global`a,Global`b,Global`x];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ),AA[2]}, {AA[1]^(1/2),-AA[1]^(1/2),(AA[1]*QQ)/AA[2]},QQ, AA[3]/(AA[2]^2*QQ)]; Hyp`q`RS=Hyp`q`pqinf[{(AA[1]*AA[3]^2)/AA[2]^2,AA[3]/(AA[2]*QQ)}, {(AA[1]*QQ*AA[3])/AA[2],AA[3]^2/(AA[2]^2*QQ)}, QQ]*Hyp`q`ph[{(AA[1]*AA[3])/AA[2], (AA[1]^(1/2)*QQ*AA[3]^(1/2))/AA[2]^(1/2), -((AA[1]^(1/2)*QQ*AA[3]^(1/2))/AA[2]^(1/2)), AA[1]^(1/2)*QQ^(1/2),-(AA[1]^(1/2)*QQ^(1/2)),AA[1]^(1/2)*QQ, -(AA[1]^(1/2)*QQ),AA[3]}, {(AA[1]^(1/2)*AA[3]^(1/2))/AA[2]^(1/2), -((AA[1]^(1/2)*AA[3]^(1/2))/AA[2]^(1/2)), (AA[1]^(1/2)*QQ^(1/2)*AA[3])/AA[2], -((AA[1]^(1/2)*QQ^(1/2)*AA[3])/AA[2]), (AA[1]^(1/2)*AA[3])/AA[2],-((AA[1]^(1/2)*AA[3])/AA[2]), (AA[1]*QQ)/AA[2]},QQ,AA[3]/(AA[2]^2*QQ)]; Hyp`q`Gleichung); (* 3.4.8,reversed *) Tgl8708:=(ClearQ[Global`b,Global`a,Global`x];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ), AA[2]^(1/2)*QQ^(1/2),-(AA[2]^(1/2)*QQ^(1/2)),AA[2]^(1/2)*QQ, -(AA[2]^(1/2)*QQ),AA[3]},{AA[1]^(1/2),-AA[1]^(1/2), (AA[1]*QQ^(1/2))/AA[2]^(1/2),-((AA[1]*QQ^(1/2))/AA[2]^(1/2)), AA[1]/AA[2]^(1/2),-(AA[1]/AA[2]^(1/2)),(AA[1]*QQ)/AA[3]},QQ, AA[1]^2/(AA[2]^2*QQ*AA[3])]; Hyp`q`RS=Hyp`q`pqinf[{AA[1]*QQ,AA[1]^2/(AA[2]^2*QQ)},{AA[1]^2/AA[2], AA[1]/(AA[2]*QQ)},QQ]*Hyp`q`ph[{AA[2],AA[2]^(1/2)*QQ, -(AA[2]^(1/2)*QQ),(AA[2]*AA[3])/AA[1]},{AA[2]^(1/2), -AA[2]^(1/2),(AA[1]*QQ)/AA[3]},QQ, AA[1]^2/(AA[2]^2*QQ*AA[3])]; Hyp`q`Gleichung); (* 3.5.2 *) Tgl3266:=(ClearQ[Global`a,Global`x,Global`y,Global`b];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1]^2,AA[2]^2,AA[3]^2},{AA[1]^2*AA[4]^2, AA[4]^2*AA[2]^2*AA[3]^2},QQ^2,AA[4]^2*QQ]; Hyp`q`RS=Hyp`q`pqinf[{AA[4]^2},{AA[1]^2*AA[4]^2}, QQ^2]*Hyp`q`pqinf[{AA[1],-(AA[1]*AA[4]^2)},{-1,AA[4]^2}, QQ]*Hyp`q`ph[{-AA[1],-(AA[4]*AA[2]),AA[4]*AA[2], -(AA[4]*AA[3]),AA[4]*AA[3]},{-QQ,-(AA[1]*AA[4]^2), -(AA[4]*AA[2]*AA[3]),AA[4]*AA[2]*AA[3]},QQ, QQ]+Hyp`q`pqinf[{AA[4]^2},{AA[1]^2*AA[4]^2}, QQ^2]*Hyp`q`pqinf[{-AA[1],AA[1]*AA[4]^2},{-1,AA[4]^2}, QQ]*Hyp`q`ph[{AA[1],AA[4]*AA[2],-(AA[4]*AA[2]),AA[4]*AA[3], -(AA[4]*AA[3])},{-QQ,AA[1]*AA[4]^2,AA[4]*AA[2]*AA[3], -(AA[4]*AA[2]*AA[3])},QQ,QQ]; Hyp`q`Gleichung); (* 3.5.2,reversed *) Tgl5464:=(ClearQ[Global`a,Global`x,Global`y,Global`b];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],-AA[2],AA[3],-AA[3]},{-QQ, AA[1]*AA[4]^2,(AA[2]*AA[3])/AA[4],-((AA[2]*AA[3])/AA[4])},QQ, QQ]; Hyp`q`RS=Hyp`q`pqinf[{AA[1]^2*AA[4]^2},{AA[4]^2}, QQ^2]*Hyp`q`pqinf[{-1,AA[4]^2},{-AA[1],AA[1]*AA[4]^2}, QQ]*Hyp`q`ph[{AA[1]^2,AA[2]^2/AA[4]^2,AA[3]^2/AA[4]^2}, {AA[1]^2*AA[4]^2,(AA[2]^2*AA[3]^2)/AA[4]^2},QQ^2, AA[4]^2*QQ]-Hyp`q`pqinf[{AA[1],-(AA[1]*AA[4]^2)},{-AA[1], AA[1]*AA[4]^2},QQ]*Hyp`q`ph[{-AA[1],-AA[2],AA[2],-AA[3], AA[3]},{-QQ,-(AA[1]*AA[4]^2),-((AA[2]*AA[3])/AA[4]), (AA[2]*AA[3])/AA[4]},QQ,QQ]; Hyp`q`Gleichung); (* 3.5.4 *) Tgl2111:=(ClearQ[Global`a,Global`b,Global`x];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1]^2,AA[2]^2},{(AA[1]^2*QQ^2)/AA[2]^2},QQ^2, (QQ^2*AA[3]^2)/AA[2]^4]; Hyp`q`RS=Hyp`q`pqinf[{(AA[1]*QQ)/AA[2]^2,(QQ*AA[3]^2)/AA[2]^2}, {(AA[1]^2*QQ)/AA[2]^2,(AA[1]*QQ*AA[3]^2)/AA[2]^2}, QQ]*Hyp`q`pqinf[{(AA[1]^2*QQ*AA[3]^2)/AA[2]^2, (AA[1]^2*QQ^2*AA[3]^2)/AA[2]^4},{(QQ*AA[3]^2)/AA[2]^2, (QQ^2*AA[3]^2)/AA[2]^4}, QQ^2]*Hyp`q`ph[{(AA[1]*AA[3]^2)/AA[2]^2, (AA[1]^(1/2)*QQ*AA[3])/AA[2],-((AA[1]^(1/2)*QQ*AA[3])/AA[2]), AA[1],AA[3],-AA[3],(QQ^(1/2)*AA[3])/AA[2], -((QQ^(1/2)*AA[3])/AA[2])},{(AA[1]^(1/2)*AA[3])/AA[2], -((AA[1]^(1/2)*AA[3])/AA[2]),(QQ*AA[3]^2)/AA[2]^2, (AA[1]*QQ*AA[3])/AA[2]^2,-((AA[1]*QQ*AA[3])/AA[2]^2), (AA[1]*QQ^(1/2)*AA[3])/AA[2], -((AA[1]*QQ^(1/2)*AA[3])/AA[2])},QQ,(AA[1]*QQ)/AA[2]^2]; Hyp`q`Gleichung); (* 3.5.4,reversed *) Tgl8709:=(ClearQ[Global`b,Global`a,Global`x];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ),AA[3], -AA[3],(AA[1]^(1/2)*QQ^(1/2))/AA[2]^(1/2), -((AA[1]^(1/2)*QQ^(1/2))/AA[2]^(1/2)),AA[2]},{AA[1]^(1/2), -AA[1]^(1/2),(AA[1]*QQ)/AA[3], -((AA[1]*QQ)/AA[3]),AA[2]^(1/2)*AA[1]^(1/2)*QQ^(1/2), -(AA[2]^(1/2)*AA[1]^(1/2)*QQ^(1/2)),(AA[1]*QQ)/AA[2]},QQ,(AA[1]*QQ)/AA[3]^2]; Hyp`q`RS=Hyp`q`pqinf[{(AA[1]*QQ)/AA[2], (AA[1]^2*QQ^2)/(AA[2]^2*AA[3]^2)},{AA[2]*AA[1]*QQ, (AA[1]^2*QQ^2)/AA[3]^2}, QQ^2]*Hyp`q`pqinf[{(AA[2]*AA[1]*QQ)/AA[3]^2,AA[1]*QQ}, {(AA[1]*QQ)/AA[3]^2,(AA[1]*QQ)/AA[2]},QQ]*Hyp`q`ph[{AA[2]^2, (AA[2]*AA[3]^2)/AA[1]},{(AA[2]*AA[1]*QQ^2)/AA[3]^2},QQ^2, (AA[1]^2*QQ^2)/(AA[2]^2*AA[3]^2)]; Hyp`q`Gleichung); (* 3.5.7 *) Tgl10962:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ^2,-(AA[1]^(1/2)*QQ^2),AA[2], AA[3],AA[3]*QQ,AA[4],AA[4]*QQ,AA[5],AA[5]*QQ},{AA[1]^(1/2), -AA[1]^(1/2),(AA[1]*QQ^2)/AA[2],(AA[1]*QQ^2)/AA[3], (AA[1]*QQ)/AA[3],(AA[1]*QQ^2)/AA[4],(AA[1]*QQ)/AA[4], (AA[1]*QQ^2)/AA[5],(AA[1]*QQ)/AA[5]},QQ^2, (AA[1]^3*QQ^3)/(AA[2]*AA[3]^2*AA[4]^2*AA[5]^2)]; Hyp`q`RS=Hyp`q`pqinf[{AA[1]*QQ,(AA[1]*QQ)/(AA[3]*AA[4]), (AA[1]*QQ)/(AA[3]*AA[5]),(AA[1]*QQ)/(AA[4]*AA[5])}, {(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4],(AA[1]*QQ)/AA[5], (AA[1]*QQ)/(AA[3]*AA[4]*AA[5])}, QQ]*Hyp`q`ph[{(AA[1]^(1/2)*QQ^(1/2))/AA[2]^(1/2), -((AA[1]^(1/2)*QQ^(1/2))/AA[2]^(1/2)),AA[3],AA[4],AA[5]}, {AA[1]^(1/2)*QQ^(1/2),-(AA[1]^(1/2)*QQ^(1/2)), (AA[1]*QQ)/AA[2],(AA[3]*AA[4]*AA[5])/AA[1]},QQ, QQ]+Hyp`q`pqinf[{AA[1]*QQ^2, (AA[1]^3*QQ^3)/(AA[3]^2*AA[4]^2*AA[5]^2)}, {(AA[1]*QQ^2)/AA[2], (AA[1]^3*QQ^3)/(AA[2]*AA[3]^2*AA[4]^2*AA[5]^2)}, QQ^2]*Hyp`q`pqinf[{AA[3],AA[4],AA[5], (AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5])},{(AA[1]*QQ)/AA[3], (AA[1]*QQ)/AA[4],(AA[1]*QQ)/AA[5], (AA[3]*AA[4]*AA[5])/(AA[1]*QQ)}, QQ]*Hyp`q`ph[{(AA[1]^(3/2)*QQ^(3/2))/(AA[2]^(1/2)*AA[3]* AA[4]*AA[5]), -((AA[1]^(3/2)*QQ^(3/2))/(AA[2]^(1/2)*AA[3]*AA[4]*AA[5])), (AA[1]*QQ)/(AA[3]*AA[4]),(AA[1]*QQ)/(AA[3]*AA[5]), (AA[1]*QQ)/(AA[4]*AA[5])}, {(AA[1]^(3/2)*QQ^(3/2))/(AA[3]*AA[4]*AA[5]), -((AA[1]^(3/2)*QQ^(3/2))/(AA[3]*AA[4]*AA[5])), (AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5]), (AA[1]*QQ^2)/(AA[3]*AA[4]*AA[5])},QQ,QQ]; Hyp`q`Gleichung); (* 3.5.7,reversed *) Tgl5465:=(ClearQ[Global`a,Global`c,Global`d,Global`e,Global`b];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1]^(1/2),-AA[1]^(1/2),AA[2],AA[3],AA[4]}, {AA[1]^(1/2)*AA[5]^(1/2),-(AA[1]^(1/2)*AA[5]^(1/2)),AA[1], (AA[2]*AA[3]*AA[4]*QQ)/(AA[1]*AA[5])},QQ,QQ]; Hyp`q`RS=-(Hyp`q`pqinf[{AA[1]*AA[5]*QQ, (AA[1]^3*AA[5]^3)/(AA[2]^2*AA[3]^2*AA[4]^2)},{AA[1]*QQ, (AA[1]^3*AA[5]^2)/(AA[2]^2*AA[3]^2*AA[4]^2)}, QQ^2]*Hyp`q`pqinf[{AA[2],AA[3],AA[4], (AA[1]^2*AA[5])/(AA[2]*AA[3]*AA[4]), (AA[1]*AA[5])/(AA[2]*AA[3]*AA[4])}, {(AA[2]*AA[3]*AA[4])/(AA[1]*AA[5]),AA[1]*AA[5], (AA[1]*AA[5])/(AA[2]*AA[3]),(AA[1]*AA[5])/(AA[2]*AA[4]), (AA[1]*AA[5])/(AA[3]*AA[4])}, QQ]*Hyp`q`ph[{(AA[1]^(3/2)*AA[5])/(AA[2]*AA[3]*AA[4]), -((AA[1]^(3/2)*AA[5])/(AA[2]*AA[3]*AA[4])), (AA[1]*AA[5])/(AA[2]*AA[3]),(AA[1]*AA[5])/(AA[2]*AA[4]), (AA[1]*AA[5])/(AA[3]*AA[4])}, {(AA[1]^(3/2)*AA[5]^(3/2))/(AA[2]*AA[3]*AA[4]), -((AA[1]^(3/2)*AA[5]^(3/2))/(AA[2]*AA[3]*AA[4])), (AA[1]^2*AA[5])/(AA[2]*AA[3]*AA[4]), (AA[1]*AA[5]*QQ)/(AA[2]*AA[3]*AA[4])},QQ, QQ])+Hyp`q`pqinf[{(AA[1]*AA[5])/AA[2],(AA[1]*AA[5])/AA[3], (AA[1]*AA[5])/AA[4],(AA[1]*AA[5])/(AA[2]*AA[3]*AA[4])}, {AA[1]*AA[5],(AA[1]*AA[5])/(AA[2]*AA[3]), (AA[1]*AA[5])/(AA[2]*AA[4]),(AA[1]*AA[5])/(AA[3]*AA[4])}, QQ]*Hyp`q`ph[{(AA[1]*AA[5])/QQ, AA[1]^(1/2)*AA[5]^(1/2)*QQ^(3/2), -(AA[1]^(1/2)*AA[5]^(1/2)*QQ^(3/2)),AA[5],AA[2],AA[2]*QQ, AA[3],AA[3]*QQ,AA[4],AA[4]*QQ}, {(AA[1]^(1/2)*AA[5]^(1/2))/QQ^(1/2), -((AA[1]^(1/2)*AA[5]^(1/2))/QQ^(1/2)),AA[1]*QQ, (AA[1]*AA[5]*QQ)/AA[2],(AA[1]*AA[5])/AA[2], (AA[1]*AA[5]*QQ)/AA[3],(AA[1]*AA[5])/AA[3], (AA[1]*AA[5]*QQ)/AA[4],(AA[1]*AA[5])/AA[4]},QQ^2, (AA[1]^3*AA[5]^2)/(AA[2]^2*AA[3]^2*AA[4]^2)]; Hyp`q`Gleichung); (* 3.5.10 *) Tgl8710:=(ClearQ[Global`a,Global`b,Global`c,Global`d];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ^2,-(AA[1]^(1/2)*QQ^2),AA[2], AA[3],AA[3]*QQ,AA[4],AA[4]*QQ},{AA[1]^(1/2),-AA[1]^(1/2), (AA[1]*QQ^2)/AA[2],(AA[1]*QQ^2)/AA[3],(AA[1]*QQ)/AA[3], (AA[1]*QQ^2)/AA[4],(AA[1]*QQ)/AA[4]},QQ^2, (AA[1]^2*QQ^2)/(AA[2]*AA[3]^2*AA[4]^2)]; Hyp`q`RS=Hyp`q`pqinf[{AA[1]*QQ,(AA[1]*QQ)/(AA[2]*AA[3]), (AA[1]*QQ)/(AA[3]*AA[4]),-((AA[1]*QQ)/(AA[3]*AA[4])), (AA[1]*QQ)/(AA[2]^(1/2)*AA[4]), -((AA[1]*QQ)/(AA[2]^(1/2)*AA[4]))},{(AA[1]*QQ)/AA[2], (AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4],-((AA[1]*QQ)/AA[4]), (AA[1]*QQ)/(AA[2]^(1/2)*AA[3]*AA[4]), -((AA[1]*QQ)/(AA[2]^(1/2)*AA[3]*AA[4]))}, QQ]*Hyp`q`ph[{-(AA[1]/AA[4]), (I*AA[1]^(1/2)*QQ)/AA[4]^(1/2), (-I*AA[1]^(1/2)*QQ)/AA[4]^(1/2),AA[3],AA[2]^(1/2), -AA[2]^(1/2),(AA[1]^(1/2)*QQ^(1/2))/AA[4], -((AA[1]^(1/2)*QQ^(1/2))/AA[4])}, {(I*AA[1]^(1/2))/AA[4]^(1/2), (-I*AA[1]^(1/2))/AA[4]^(1/2),-((AA[1]*QQ)/(AA[3]*AA[4])), -((AA[1]*QQ)/(AA[2]^(1/2)*AA[4])), (AA[1]*QQ)/(AA[2]^(1/2)*AA[4]),-(AA[1]^(1/2)*QQ^(1/2)), AA[1]^(1/2)*QQ^(1/2)},QQ,(AA[1]*QQ)/(AA[2]*AA[3])]; Hyp`q`Gleichung); (* 3.5.10, reversed *) Tgl8711:=(ClearQ[Global`a,Global`c,Global`b,Global`d];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ),AA[3], -AA[3],AA[4],-AA[4],AA[2]},{AA[1]^(1/2),-AA[1]^(1/2), (AA[1]*QQ)/AA[3],-((AA[1]*QQ)/AA[3]), (AA[1]*QQ)/AA[4],-((AA[1]*QQ)/AA[4]),(AA[1]*QQ)/AA[2]},QQ, (AA[1]^2*QQ^2)/(AA[3]^2*AA[2]*AA[4]^2)]; Hyp`q`RS=Hyp`q`pqinf[{(AA[1]^2*QQ^2)/(AA[3]^2*AA[4]^2), (AA[1]^2*QQ^2)/(AA[2]*AA[4]^2),-(AA[1]*QQ),AA[1]*QQ, -((AA[1]*QQ)/(AA[3]*AA[2])),(AA[1]*QQ)/(AA[3]*AA[2])}, {(AA[1]^2*QQ^2)/AA[4]^2, (AA[1]^2*QQ^2)/(AA[3]^2*AA[2]*AA[4]^2),-((AA[1]*QQ)/AA[2]), (AA[1]*QQ)/AA[2],-((AA[1]*QQ)/AA[3]),(AA[1]*QQ)/AA[3]}, QQ]*Hyp`q`ph[{(AA[1]^2*QQ)/AA[4]^2,-((AA[1]*QQ^(5/2))/AA[4]), (AA[1]*QQ^(5/2))/AA[4],AA[3]^2,AA[2],AA[2]*QQ, -((AA[1]*QQ)/AA[4]^2),-((AA[1]*QQ^2)/AA[4]^2)}, {-((AA[1]*QQ^(1/2))/AA[4]),(AA[1]*QQ^(1/2))/AA[4], (AA[1]^2*QQ^3)/(AA[3]^2*AA[4]^2), (AA[1]^2*QQ^3)/(AA[2]*AA[4]^2), (AA[1]^2*QQ^2)/(AA[2]*AA[4]^2),-(AA[1]*QQ^2),-(AA[1]*QQ)}, QQ^2,(AA[1]^2*QQ^2)/(AA[3]^2*AA[2]^2)]; Hyp`q`Gleichung); (* 3.10.4 *) Tgl10904:=(ClearQ[Global`a,Global`b,Global`x,Global`y,Global`n];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ),AA[2],AA[3], -AA[3],AA[4],-AA[4],-QQ^(-AA[5]),QQ^(-AA[5])},{AA[1]^(1/2), -AA[1]^(1/2),(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3], -((AA[1]*QQ)/AA[3]),(AA[1]*QQ)/AA[4],-((AA[1]*QQ)/AA[4]), -(AA[1]*QQ^(1+AA[5])),AA[1]*QQ^(1+AA[5])},QQ, -((AA[1]^3*QQ^(3+2*AA[5]))/(AA[2]*AA[3]^2*AA[4]^2))]; Hyp`q`RS=Hyp`q`ph[{QQ^(-2*AA[5]),AA[3]^2,AA[4]^2,-((AA[1]*QQ)/AA[2]), -((AA[1]*QQ^2)/AA[2])}, {(AA[3]^2*AA[4]^2)/(AA[1]^2*QQ^(2*AA[5])), (AA[1]^2*QQ^2)/AA[2]^2,-(AA[1]*QQ),-(AA[1]*QQ^2)},QQ^2, QQ^2]*Hyp`q`pq[{AA[1]^2*QQ^2, (AA[1]^2*QQ^2)/(AA[3]^2*AA[4]^2)},{(AA[1]^2*QQ^2)/AA[3]^2, (AA[1]^2*QQ^2)/AA[4]^2},AA[5],QQ^2]; Hyp`q`Gleichung); (* 3.10.4,reversed *) Tgl5403:=(ClearQ[Global`x,Global`y,Global`a,Global`n,Global`b];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1]^2,AA[2]^2,AA[3],AA[3]*QQ,QQ^(-2*AA[4])}, {AA[3]^2,AA[3]*AA[5],AA[3]*AA[5]*QQ, (QQ^(2-2*AA[4])*AA[1]^2*AA[2]^2)/(AA[3]^2*AA[5]^2)},QQ^2, QQ^2]; Hyp`q`RS=Hyp`q`ph[{-((AA[3]*AA[5])/QQ), I*AA[3]^(1/2)*AA[5]^(1/2)*QQ^(1/2), -I*AA[3]^(1/2)*AA[5]^(1/2)*QQ^(1/2),AA[5],AA[1],-AA[1], AA[2],-AA[2],-QQ^(-AA[4]),QQ^(-AA[4])}, {(I*AA[3]^(1/2)*AA[5]^(1/2))/QQ^(1/2), (-I*AA[3]^(1/2)*AA[5]^(1/2))/QQ^(1/2),-AA[3], -((AA[3]*AA[5])/AA[1]),(AA[3]*AA[5])/AA[1], -((AA[3]*AA[5])/AA[2]),(AA[3]*AA[5])/AA[2], AA[3]*AA[5]*QQ^AA[4],-(AA[3]*AA[5]*QQ^AA[4])},QQ, (AA[3]^3*AA[5]^2*QQ^(2*AA[4]))/(AA[1]^2*AA[2]^2)]* Hyp`q`pq[{(AA[3]^2*AA[5]^2)/AA[1]^2, (AA[3]^2*AA[5]^2)/AA[2]^2},{AA[3]^2*AA[5]^2, (AA[3]^2*AA[5]^2)/(AA[1]^2*AA[2]^2)},AA[4],QQ^2]; Hyp`q`Gleichung); Tgl5404:=(ClearQ[Global`n,Global`b,Global`c,Global`z];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{QQ^(1-AA[1])/(AA[2]*AA[3]),-QQ^(1/2-AA[1]/2), QQ^(1/2-AA[1]/2),-QQ^(-AA[1]/2),QQ^(-AA[1]/2)}, {QQ^(1-AA[1])/AA[2],QQ^(1-AA[1])/AA[3],AA[4]/QQ^AA[1], QQ/AA[4]},QQ,QQ]; Hyp`q`RS=Hyp`q`pqinf[{AA[4]},{AA[4]/QQ^AA[1]}, QQ]*Hyp`q`ph[{QQ^(-AA[1]),AA[2],AA[3]},{QQ^(1-AA[1])/AA[2], QQ^(1-AA[1])/AA[3]},QQ,(QQ^(1-AA[1])*AA[4])/(AA[2]*AA[3])]; Hyp`q`Gleichung); Tgl5405:=(ClearQ[Global`a,Global`b,Global`z];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1]^2,AA[2]^2,AA[1]*AA[2],AA[3], (AA[1]^2*AA[2]^2)/AA[3]},{AA[1]*AA[2]*QQ^(1/2), -(AA[1]*AA[2]*QQ^(1/2)),-(AA[1]*AA[2]),AA[1]^2*AA[2]^2},QQ, QQ]; Hyp`q`RS=Hyp`q`ph[{AA[1],AA[2],AA[3],(AA[1]^2*AA[2]^2)/AA[3]}, {AA[1]*AA[2]*QQ^(1/2),-(AA[1]*AA[2]*QQ^(1/2)), -(AA[1]*AA[2])},QQ,QQ]^2; Print[" \nThis equation only holds provided both series terminate!"]; Hyp`q`Gleichung); (* Ex3.1 *) Tgl3211:=(ClearQ[Global`a,Global`b,Global`z];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1]^2,AA[2]^2,AA[3]},{AA[1]*AA[2]*QQ^(1/2), -(AA[1]*AA[2]*QQ^(1/2))},QQ,QQ]; Hyp`q`RS=Hyp`q`ph[{AA[1]^2,AA[2]^2,AA[3]^2},{AA[1]^2*AA[2]^2*QQ,0}, QQ^2,QQ^2]; Print[" \nThis equation only holds provided both series terminate!"]; Hyp`q`Gleichung); (* Ex3.1,reversed *) Tgl3212:=(ClearQ[Global`a,Global`b,Global`z];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1]^2,AA[2]^2,AA[3]^2},{AA[1]^2*AA[2]^2*QQ,0}, QQ^2,QQ^2]; Hyp`q`RS=Hyp`q`ph[{AA[1]^2,AA[2]^2,AA[3]},{AA[1]*AA[2]*QQ^(1/2), -(AA[1]*AA[2]*QQ^(1/2))},QQ,QQ]; Print[" \nThis equation only holds provided both series terminate!"]; Hyp`q`Gleichung); (* Ex3.2(i) *) Tgl3213:=(ClearQ[Global`a,Global`b,Global`z];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],-AA[2]},{AA[2]^2,AA[1]*AA[3]},QQ, -AA[3]]; Hyp`q`RS=Hyp`q`pqinf[{AA[3]},{AA[1]*AA[3]},QQ]*Hyp`q`ph[{AA[1], AA[1]*QQ},{AA[2]^2*QQ},QQ^2,AA[3]^2]; Hyp`q`Gleichung); (* Ex3.2(i),reversed *) Tgl2112:=(ClearQ[Global`a,Global`b,Global`z];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]*QQ},{AA[2]^2*QQ},QQ^2,AA[3]^2]; Hyp`q`RS=Hyp`q`pqinf[{AA[1]*AA[3]},{AA[3]},QQ]*Hyp`q`ph[{AA[1],AA[2], -AA[2]},{AA[2]^2,AA[1]*AA[3]},QQ,-AA[3]]; Hyp`q`Gleichung); (* Ex3.2(ii) *) Tgl3214:=(ClearQ[Global`a,Global`b,Global`z];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],-AA[2]},{AA[2]^2,-(AA[1]*AA[3])},QQ, AA[3]]; Hyp`q`RS=(Hyp`q`pqinf[AA[1]*AA[3]^2,QQ^2]*Hyp`q`ph[{AA[1], AA[2]^2/AA[1]},{AA[2]^2*QQ,AA[1]*AA[3]^2},QQ^2, AA[1]*QQ*AA[3]^2])/(Hyp`q`pqinf[AA[3], QQ]*Hyp`q`pqinf[-(AA[1]*AA[3]),QQ]); Hyp`q`Gleichung); (* Ex3.2(ii),reversed *) Tgl2202:=(ClearQ[Global`a,Global`b,Global`z];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1]^2,AA[2]^2},{AA[1]^2*AA[2]^2*QQ, AA[1]^2*AA[3]^2},QQ^2,AA[1]^2*QQ*AA[3]^2]; Hyp`q`RS=(Hyp`q`pqinf[AA[3],QQ]*Hyp`q`pqinf[-(AA[1]^2*AA[3]), QQ]*Hyp`q`ph[{AA[1]^2,AA[1]*AA[2],-(AA[1]*AA[2])}, {AA[1]^2*AA[2]^2,-(AA[1]^2*AA[3])},QQ, AA[3]])/Hyp`q`pqinf[AA[1]^2*AA[3]^2,QQ^2]; Hyp`q`Gleichung); (* Ex3.3 *) Tgl3215:=(ClearQ[Global`a,Global`z,Global`c];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],QQ/AA[1],AA[2]},{AA[3],-QQ},QQ,QQ]; Hyp`q`RS=Hyp`q`pqinf[{-1,-((QQ*AA[2])/AA[3])},{-(QQ/AA[3]),-AA[2]}, QQ]*Hyp`q`ph[{AA[3]/AA[1],(AA[1]*AA[3])/QQ,AA[2]^2},{AA[3]^2, 0},QQ^2,QQ^2]; Print[" \nThis equation only holds provided both series terminate!"]; Hyp`q`Gleichung); (* Ex3.3,reversed *) Tgl3216:=(ClearQ[Global`c,Global`a,Global`z];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2]^2/(AA[1]*QQ),AA[3]^2},{AA[2]^2,0},QQ^2, QQ^2]; Hyp`q`RS=Hyp`q`pqinf[{-(QQ/AA[2]),-AA[3]},{-1,-((QQ*AA[3])/AA[2])}, QQ]*Hyp`q`ph[{AA[2]/AA[1],(AA[1]*QQ)/AA[2],AA[3]},{AA[2], -QQ},QQ,QQ]; Print[" \nThis equation only holds provided both series terminate!"]; Hyp`q`Gleichung); Tgl3217:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],AA[3]},{AA[4],AA[5]},QQ, (AA[4]*AA[5])/(AA[1]*AA[2]*AA[3])]; Hyp`q`RS=Hyp`q`ph[{(AA[4]*AA[5])/(AA[1]*QQ), (AA[4]^(1/2)*AA[5]^(1/2)*QQ^(1/2))/AA[1]^(1/2), -((AA[4]^(1/2)*AA[5]^(1/2)*QQ^(1/2))/AA[1]^(1/2)), AA[5]/AA[1],AA[4]/AA[1],AA[2],AA[3]}, {(AA[4]^(1/2)*AA[5]^(1/2))/(AA[1]^(1/2)*QQ^(1/2)), -((AA[4]^(1/2)*AA[5]^(1/2))/(AA[1]^(1/2)*QQ^(1/2))),AA[4], AA[5],(AA[4]*AA[5])/(AA[1]*AA[2]), (AA[4]*AA[5])/(AA[1]*AA[3]),0},QQ, (AA[4]*AA[5])/(AA[2]*AA[3])]*Hyp`q`pqinf[{(AA[4]*AA[5])/ (AA[1]*AA[2]),(AA[4]*AA[5])/(AA[1]*AA[3])}, {(AA[4]*AA[5])/AA[1],(AA[4]*AA[5])/(AA[1]*AA[2]*AA[3])},QQ]; Hyp`q`Gleichung); Tgl7701:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ),AA[2],AA[3], AA[4],AA[5]},{AA[1]^(1/2),-AA[1]^(1/2),(AA[1]*QQ)/AA[2], (AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4],(AA[1]*QQ)/AA[5],0},QQ, (AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5])]; Hyp`q`RS=Hyp`q`ph[{(AA[1]*QQ)/(AA[2]*AA[3]),AA[4],AA[5]}, {(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3]},QQ, (AA[1]*QQ)/(AA[4]*AA[5])]*Hyp`q`pqinf[{AA[1]*QQ, (AA[1]*QQ)/(AA[4]*AA[5])},{(AA[1]*QQ)/AA[4], (AA[1]*QQ)/AA[5]},QQ]; Hyp`q`Gleichung); (* Ex3.4 *) Tgl4312:=(ClearQ[Global`a,Global`n,Global`d,Global`b];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]*QQ,QQ^(1-AA[2]),QQ^(-AA[2])},{AA[3], AA[3]*QQ,AA[4]^2*QQ},QQ^2,QQ^2]; Hyp`q`RS=AA[1]^AA[2]*Hyp`q`ph[{AA[1],AA[4],-AA[4],QQ^(-AA[2])}, {(AA[1]*QQ^(1-AA[2]))/AA[3],AA[4]^2},QQ, -(QQ/AA[3])]*Hyp`q`pq[{AA[3]/AA[1]},{AA[3]},AA[2],QQ]; Hyp`q`Gleichung); (* Ex3.4,reversed *) Tgl4201:=(ClearQ[Global`a,Global`b,Global`n,Global`d];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],-AA[2],QQ^(-AA[3])}, {(AA[1]*QQ^(1-AA[3]))/AA[4],AA[2]^2},QQ,-(QQ/AA[4])]; Hyp`q`RS=(Hyp`q`ph[{AA[1],AA[1]*QQ,QQ^(1-AA[3]),QQ^(-AA[3])},{AA[4], AA[4]*QQ,AA[2]^2*QQ},QQ^2,QQ^2]*Hyp`q`pq[{AA[4]}, {AA[4]/AA[1]},AA[3],QQ])/AA[1]^AA[3]; Hyp`q`Gleichung); (* Ex3.6 *) Tgl3267:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],AA[3]},{AA[4],AA[5]},QQ,QQ]; Hyp`q`RS=Hyp`q`pqinf[{QQ/AA[5],(AA[1]*AA[2]*QQ)/AA[5], (AA[1]*AA[3]*QQ)/AA[5],AA[4]/AA[1]},{AA[4],(AA[1]*QQ)/AA[5], (AA[2]*QQ)/AA[5],(AA[3]*QQ)/AA[5]},QQ]*Hyp`q`ph[{AA[1], (AA[1]*QQ)/AA[5],(AA[1]*AA[2]*AA[3]*QQ)/(AA[4]*AA[5])}, {(AA[1]*AA[2]*QQ)/AA[5],(AA[1]*AA[3]*QQ)/AA[5]},QQ, AA[4]/AA[1]]-Hyp`q`pqinf[{QQ/AA[5],AA[1],AA[2],AA[3], (AA[4]*QQ)/AA[5]},{AA[5]/QQ,(AA[1]*QQ)/AA[5], (AA[2]*QQ)/AA[5],(AA[3]*QQ)/AA[5],AA[4]}, QQ]*Hyp`q`ph[{(AA[1]*QQ)/AA[5],(AA[2]*QQ)/AA[5], (AA[3]*QQ)/AA[5]},{QQ^2/AA[5],(AA[4]*QQ)/AA[5]},QQ,QQ]; Hyp`q`Gleichung); (* Ex3.6,reversed *) Tgl3268:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],AA[3]},{AA[4],AA[5]},QQ, (AA[4]*AA[5])/(AA[1]*AA[2]*AA[3])]; Hyp`q`RS=Hyp`q`pqinf[{(AA[4]*AA[5])/(AA[2]*AA[3]),AA[2],AA[4]/AA[1], AA[5]/AA[1]},{AA[2]/AA[1],AA[4],AA[5], (AA[4]*AA[5])/(AA[1]*AA[2]*AA[3])},QQ]*Hyp`q`ph[{AA[1], AA[4]/AA[2],AA[5]/AA[2]},{(AA[4]*AA[5])/(AA[2]*AA[3]), (AA[1]*QQ)/AA[2]},QQ,QQ]+Hyp`q`pqinf[{AA[1],AA[4]/AA[2], AA[5]/AA[2],(AA[4]*AA[5])/(AA[1]*AA[3])},{AA[4],AA[5], (AA[4]*AA[5])/(AA[1]*AA[2]*AA[3]),AA[1]/AA[2]}, QQ]*Hyp`q`ph[{AA[2],AA[4]/AA[1],AA[5]/AA[1]}, {(AA[2]*QQ)/AA[1],(AA[4]*AA[5])/(AA[1]*AA[3])},QQ,QQ]; Hyp`q`Gleichung); (* Ex3.8 *) Tgl2163:=(ClearQ[Global`a,Global`b,Global`c,Global`x];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2]},{AA[3]},QQ,AA[4]]; Hyp`q`RS=Hyp`q`pqinf[{AA[2],AA[3]/AA[1],AA[1]*AA[4]},{AA[2]/AA[1], AA[3],AA[4]},QQ]*Hyp`q`ph[{AA[1],AA[3]/AA[2],0}, {(AA[1]*QQ)/AA[2],AA[1]*AA[4]},QQ,QQ]+Hyp`q`pqinf[{AA[1], AA[3]/AA[2],AA[2]*AA[4]},{AA[1]/AA[2],AA[3],AA[4]}, QQ]*Hyp`q`ph[{AA[2],AA[3]/AA[1],0},{(AA[2]*QQ)/AA[1], AA[2]*AA[4]},QQ,QQ]; Hyp`q`Gleichung); (* Ex3.8,reversed *) Tgl3269:=(ClearQ[Global`a,Global`b,Global`c,Global`x];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],0},{AA[3],AA[4]},QQ,QQ]; Hyp`q`RS=Hyp`q`pqinf[{QQ/AA[3],(AA[1]*AA[2]*QQ)/AA[3],AA[4]/AA[1]}, {(AA[1]*QQ)/AA[3],(AA[2]*QQ)/AA[3],AA[4]}, QQ]*Hyp`q`ph[{AA[1],(AA[1]*QQ)/AA[3]}, {(AA[1]*AA[2]*QQ)/AA[3]},QQ,AA[4]/AA[1]]-Hyp`q`pqinf[{AA[1], AA[2],(QQ*AA[4])/AA[3],QQ/AA[3]},{AA[3]/QQ,(AA[1]*QQ)/AA[3], (AA[2]*QQ)/AA[3],AA[4]},QQ]*Hyp`q`ph[{(AA[1]*QQ)/AA[3], (AA[2]*QQ)/AA[3],0},{QQ^2/AA[3],(QQ*AA[4])/AA[3]},QQ,QQ]; Hyp`q`Gleichung); (* Ex3.16 *) Tgl4361:=(ClearQ[Global`a,Global`b,Global`c,Global`x];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],-(AA[1]^(1/2)*QQ),AA[2],AA[3]},{-AA[1]^(1/2), (AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3]},QQ,AA[4]]; Hyp`q`RS=(1-(AA[2]*AA[3]*AA[4])/(AA[1]^(1/2)*QQ))*Hyp`q`pqinf[{AA[2]* AA[3]*AA[4]},{(AA[2]*AA[3]*AA[4])/(AA[1]*QQ)}, QQ]*Hyp`q`ph[{AA[1]^(1/2),-(AA[1]^(1/2)*QQ),(AA[1]*QQ)^(1/2), -(AA[1]*QQ)^(1/2),(AA[1]*QQ)/(AA[2]*AA[3])}, {(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3], (AA[1]*QQ^2)/(AA[2]*AA[3]*AA[4]),AA[2]*AA[3]*AA[4]},QQ, QQ]+(1-AA[1]^(1/2))*Hyp`q`pqinf[{AA[1]*QQ, (AA[1]*QQ)/(AA[2]*AA[3]),AA[3]*AA[4],AA[2]*AA[4]}, {(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3],AA[4], (AA[1]*QQ)/(AA[2]*AA[3]*AA[4])}, QQ]*Hyp`q`ph[{(AA[2]*AA[3]*AA[4])/(AA[1]^(1/2)*QQ), -((AA[2]*AA[3]*AA[4])/AA[1]^(1/2)), (AA[2]*AA[3]*AA[4])/(AA[1]*QQ)^(1/2), -((AA[2]*AA[3]*AA[4])/(AA[1]*QQ)^(1/2)),AA[4]},{AA[3]*AA[4], AA[2]*AA[4],(AA[2]*AA[3]*AA[4])/AA[1], (AA[2]^2*AA[3]^2*AA[4]^2)/(AA[1]*QQ)},QQ,QQ]; Hyp`q`Gleichung); Tgl4362:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e,Global`f];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],AA[3],AA[4]},{AA[5],AA[6], (AA[1]*AA[2]*AA[3]*AA[4]*QQ)/(AA[5]*AA[6])},QQ,QQ]; Hyp`q`RS=-(Hyp`q`pqinf[{(AA[5]*AA[6])/(AA[1]*AA[2]*AA[3]*AA[4]), AA[1],AA[2],AA[3],AA[4], (AA[5]^2*AA[6])/(AA[1]*AA[2]*AA[3]*AA[4]), (AA[5]*AA[6]^2)/(AA[1]*AA[2]*AA[3]*AA[4])}, {(AA[5]*AA[6])/(AA[1]*AA[2]*AA[3]), (AA[5]*AA[6])/(AA[1]*AA[2]*AA[4]), (AA[5]*AA[6])/(AA[1]*AA[3]*AA[4]),AA[5],AA[6], (AA[5]*AA[6])/(AA[2]*AA[3]*AA[4]), (AA[1]*AA[2]*AA[3]*AA[4])/(AA[5]*AA[6])}, QQ]*Hyp`q`ph[{(AA[5]*AA[6])/(AA[1]*AA[2]*AA[3]), (AA[5]*AA[6])/(AA[1]*AA[2]*AA[4]), (AA[5]*AA[6])/(AA[1]*AA[3]*AA[4]), (AA[5]*AA[6])/(AA[2]*AA[3]*AA[4])}, {(AA[5]^2*AA[6])/(AA[1]*AA[2]*AA[3]*AA[4]), (AA[5]*AA[6]^2)/(AA[1]*AA[2]*AA[3]*AA[4]), (AA[5]*AA[6]*QQ)/(AA[1]*AA[2]*AA[3]*AA[4])},QQ, QQ])+Hyp`q`pqinf[{(AA[5]*AA[6])/(AA[1]*AA[2]), (AA[5]*AA[6])/(AA[1]*AA[3]),(AA[5]*AA[6])/(AA[1]*AA[4]), (AA[5]*AA[6])/(AA[1]*AA[2]*AA[3]*AA[4])}, {(AA[5]*AA[6])/AA[1],(AA[5]*AA[6])/(AA[1]*AA[2]*AA[3]), (AA[5]*AA[6])/(AA[1]*AA[2]*AA[4]), (AA[5]*AA[6])/(AA[1]*AA[3]*AA[4])}, QQ]*Hyp`q`ph[{(AA[5]*AA[6])/(AA[1]*QQ), (AA[5]^(1/2)*AA[6]^(1/2)*QQ^(1/2))/AA[1]^(1/2), -((AA[5]^(1/2)*AA[6]^(1/2)*QQ^(1/2))/AA[1]^(1/2)), AA[6]/AA[1],AA[5]/AA[1],AA[2],AA[3],AA[4]}, {(AA[5]^(1/2)*AA[6]^(1/2))/(AA[1]^(1/2)*QQ^(1/2)), -((AA[5]^(1/2)*AA[6]^(1/2))/(AA[1]^(1/2)*QQ^(1/2))),AA[5], AA[6],(AA[5]*AA[6])/(AA[1]*AA[2]), (AA[5]*AA[6])/(AA[1]*AA[3]),(AA[5]*AA[6])/(AA[1]*AA[4])},QQ, (AA[5]*AA[6])/(AA[2]*AA[3]*AA[4])]; Hyp`q`Gleichung); (* Ex3.16,reversed,first form *) Tgl5466:=(ClearQ[Global`a,Global`b,Global`c,Global`x];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],-(AA[1]*QQ),AA[1]*QQ^(1/2),-(AA[1]*QQ^(1/2)), (AA[2]*AA[3])/(AA[1]^2*QQ)},{AA[2],AA[3],AA[4], (AA[1]^2*QQ^2)/AA[4]},QQ,QQ]; Hyp`q`RS=(Hyp`q`pqinf[{QQ/AA[4]},{(AA[1]^2*QQ^2)/AA[4]}, QQ]*Hyp`q`ph[{AA[1]^2,-(AA[1]*QQ),(AA[1]^2*QQ)/AA[2], (AA[1]^2*QQ)/AA[3]},{-AA[1],AA[2],AA[3]},QQ, (AA[2]*AA[3])/(AA[1]^2*AA[4])])/(1-(AA[1]*QQ)/AA[4])-((1- AA[1])*Hyp`q`pqinf[{QQ/AA[4],AA[1]^2*QQ, (AA[2]*AA[3])/(AA[1]^2*QQ),(AA[2]*QQ)/AA[4], (AA[3]*QQ)/AA[4]},{(AA[1]^2*QQ^2)/AA[4],AA[2],AA[3], (AA[2]*AA[3])/(AA[1]^2*AA[4]),AA[4]/QQ}, QQ]*Hyp`q`ph[{(AA[1]*QQ)/AA[4],-((AA[1]*QQ^2)/AA[4]), (AA[1]*QQ^(3/2))/AA[4],-((AA[1]*QQ^(3/2))/AA[4]), (AA[2]*AA[3])/(AA[1]^2*AA[4])},{(AA[2]*QQ)/AA[4], (AA[3]*QQ)/AA[4],QQ^2/AA[4],(AA[1]^2*QQ^3)/AA[4]^2},QQ, QQ])/(1-(AA[1]*QQ)/AA[4]); Hyp`q`Gleichung); (* Ex3.16,reversed,second form *) Tgl5467:=(ClearQ[Global`a,Global`b,Global`c,Global`x];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],-(AA[1]*QQ),AA[1]*QQ^(1/2),-(AA[1]*QQ^(1/2)), (AA[2]*AA[3]*AA[4])/(AA[1]^2*QQ^2)},{AA[2],AA[3],AA[4], AA[1]^2*QQ},QQ,QQ]; Hyp`q`RS=(Hyp`q`pqinf[{(AA[2]*QQ)/AA[4],(AA[3]*QQ)/AA[4], (AA[2]*AA[3]*AA[4])/(AA[1]^2*QQ^2),QQ/AA[4]}, {(AA[1]^2*QQ^3)/AA[4]^2,(AA[2]*AA[3])/(AA[1]^2*QQ),AA[2], AA[3]},QQ]*Hyp`q`ph[{(AA[1]^2*QQ^2)/AA[4]^2, -((AA[1]*QQ^2)/AA[4]),(AA[1]^2*QQ^2)/(AA[2]*AA[4]), (AA[1]^2*QQ^2)/(AA[3]*AA[4])},{-((AA[1]*QQ)/AA[4]), (AA[2]*QQ)/AA[4],(AA[3]*QQ)/AA[4]},QQ, (AA[2]*AA[3]*AA[4])/(AA[1]^2*QQ^2)])/(1-(AA[1]*QQ)/AA[4])- ((1-AA[1])*Hyp`q`pqinf[{(AA[1]^2*QQ^2)/AA[4], (AA[2]*QQ)/AA[4],(AA[3]*QQ)/AA[4], (AA[2]*AA[3]*AA[4])/(AA[1]^2*QQ^2),QQ/AA[4]},{AA[4]/QQ, (AA[1]^2*QQ^3)/AA[4]^2,(AA[2]*AA[3])/(AA[1]^2*QQ),AA[2], AA[3]},QQ]*Hyp`q`ph[{(AA[1]*QQ)/AA[4],-((AA[1]*QQ^2)/AA[4]), (AA[1]*QQ^(3/2))/AA[4],-((AA[1]*QQ^(3/2))/AA[4]), (AA[2]*AA[3])/(AA[1]^2*QQ)},{(AA[2]*QQ)/AA[4], (AA[3]*QQ)/AA[4],QQ^2/AA[4],(AA[1]^2*QQ^2)/AA[4]},QQ, QQ])/(1-(AA[1]*QQ)/AA[4]); Hyp`q`Gleichung); (* Ex3.21(iii) *) Tgl10905:=(ClearQ[Global`a,Global`b,Global`c,System`C,Global`A,Global`n,Global`B];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ),AA[2],AA[3], AA[1]/(AA[2]*AA[3]),AA[4]/(AA[5]*QQ^AA[6]), 1/(AA[7]*AA[4]*QQ^AA[6]),AA[7]/(AA[5]*QQ^AA[6]),QQ^(-AA[6])}, {AA[1]^(1/2),-AA[1]^(1/2),(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3], AA[2]*AA[3]*QQ,1/(AA[4]*QQ^AA[6]), (AA[7]*AA[4])/(AA[5]*QQ^AA[6]),1/(AA[7]*QQ^AA[6]), 1/(AA[5]*QQ^AA[6])},QQ,QQ]; Hyp`q`RS=Hyp`q`ph[{AA[5],AA[5]^(1/2)*QQ,-(AA[5]^(1/2)*QQ),AA[7],AA[4], AA[5]/(AA[7]*AA[4]),AA[3]/(AA[1]*QQ^AA[6]), 1/(AA[2]*AA[3]*QQ^AA[6]),AA[2]/(AA[1]*QQ^AA[6]),QQ^(-AA[6])}, {AA[5]^(1/2),-AA[5]^(1/2),(AA[5]*QQ)/AA[7],(AA[5]*QQ)/AA[4], AA[7]*AA[4]*QQ,1/(AA[3]*QQ^AA[6]), (AA[2]*AA[3])/(AA[1]*QQ^AA[6]),1/(AA[2]*QQ^AA[6]), 1/(AA[1]*QQ^AA[6])},QQ,QQ]*Hyp`q`pq[{AA[1]*QQ,AA[2]*QQ, AA[3]*QQ,(AA[1]*QQ)/(AA[2]*AA[3]),(AA[5]*QQ)/AA[7], (AA[5]*QQ)/AA[4],AA[7]*AA[4]*QQ},{AA[5]*QQ,AA[7]*QQ,AA[4]*QQ, (AA[5]*QQ)/(AA[7]*AA[4]),(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3], AA[2]*AA[3]*QQ},AA[6],QQ]; Hyp`q`Gleichung); (* Ex4.6 Rahman/Verma 7.7 *) Tgl121105:=(ClearQ[Global`a,Global`n,Global`c,Global`d,Global`e];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1]^2,AA[1]*QQ^2,-(AA[1]*QQ^2), AA[3],AA[3]*QQ,AA[4],AA[4]*QQ,AA[5],AA[5]*QQ, (AA[1]^4*QQ^(1+AA[2]))/(AA[3]*AA[4]*AA[5]), (AA[1]^4*QQ^(2+AA[2]))/(AA[3]*AA[4]*AA[5]),QQ^(-2*AA[2])},{AA[1],-AA[1], (AA[1]^2*QQ^2)/AA[3], (AA[1]^2*QQ)/AA[3],(AA[1]^2*QQ^2)/AA[4],(AA[1]^2*QQ)/AA[4], (AA[1]^2*QQ^2)/AA[5],(AA[1]^2*QQ)/AA[5], (AA[3]*AA[4]*AA[5]*QQ^(1-AA[2]))/AA[1]^2, (AA[3]*AA[4]*AA[5])/(AA[1]^2*QQ^AA[2]),AA[1]^2*QQ^(2+2*AA[2])},QQ^2,QQ^2]; Hyp`q`RS=Hyp`q`ph[{AA[1]^2*QQ^AA[2],AA[1]*QQ^(1+AA[2]/2), -(AA[1]*QQ^(1+AA[2]/2)),AA[3],AA[4],AA[5], AA[1]*QQ^(1/2+AA[2]),-(AA[1]*QQ^(1/2+AA[2])), (AA[1]^4*QQ^(1+AA[2]))/(AA[3]*AA[4]*AA[5]),QQ^(-AA[2])}, {AA[1]*QQ^(AA[2]/2),-(AA[1]*QQ^(AA[2]/2)), (AA[1]^2*QQ^(1+AA[2]))/AA[3],(AA[1]^2*QQ^(1+AA[2]))/AA[4], (AA[1]^2*QQ^(1+AA[2]))/AA[5],AA[1]*QQ^(1/2), -(AA[1]*QQ^(1/2)),(AA[3]*AA[4]*AA[5])/AA[1]^2, AA[1]^2*QQ^(1+2*AA[2])},QQ, -QQ^(1+AA[2])]*Hyp`q`pq[{AA[1]^2*QQ, (AA[1]^2*QQ)/(AA[3]*AA[4]),(AA[1]^2*QQ)/(AA[3]*AA[5]), (AA[1]^2*QQ)/(AA[4]*AA[5])},{(AA[1]^2*QQ)/AA[3], (AA[1]^2*QQ)/AA[4],(AA[1]^2*QQ)/AA[5], (AA[1]^2*QQ)/(AA[3]*AA[4]*AA[5])},AA[2],QQ]; Hyp`q`Gleichung); (* Rahman/Verma 7.7,reversed *) Tgl10906:=(ClearQ[Global`a,Global`n,Global`c,Global`d,Global`e];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1]^2*QQ^AA[2],AA[1]*QQ^(1+AA[2]/2), -(AA[1]*QQ^(1+AA[2]/2)),AA[3],AA[4],AA[5], AA[1]*QQ^(1/2+AA[2]),-(AA[1]*QQ^(1/2+AA[2])), (AA[1]^4*QQ^(1+AA[2]))/(AA[3]*AA[4]*AA[5]),QQ^(-AA[2])}, {AA[1]*QQ^(AA[2]/2),-(AA[1]*QQ^(AA[2]/2)), (AA[1]^2*QQ^(1+AA[2]))/AA[3],(AA[1]^2*QQ^(1+AA[2]))/AA[4], (AA[1]^2*QQ^(1+AA[2]))/AA[5],AA[1]*QQ^(1/2), -(AA[1]*QQ^(1/2)),(AA[3]*AA[4]*AA[5])/AA[1]^2, AA[1]^2*QQ^(1+2*AA[2])},QQ,-QQ^(1+AA[2])]; Hyp`q`RS=Hyp`q`ph[{AA[1]^2,AA[1]*QQ^2,-(AA[1]*QQ^2),QQ^(-2*AA[2]), AA[3],AA[3]*QQ,AA[4],AA[4]*QQ,AA[5],AA[5]*QQ, (AA[1]^4*QQ^(1+AA[2]))/(AA[3]*AA[4]*AA[5]), (AA[1]^4*QQ^(2+AA[2]))/(AA[3]*AA[4]*AA[5])},{AA[1],-AA[1], AA[1]^2*QQ^(2+2*AA[2]),(AA[1]^2*QQ^2)/AA[3], (AA[1]^2*QQ)/AA[3],(AA[1]^2*QQ^2)/AA[4],(AA[1]^2*QQ)/AA[4], (AA[1]^2*QQ^2)/AA[5],(AA[1]^2*QQ)/AA[5], (AA[3]*AA[4]*AA[5]*QQ^(1-AA[2]))/AA[1]^2, (AA[3]*AA[4]*AA[5])/(AA[1]^2*QQ^AA[2])},QQ^2, QQ^2]*Hyp`q`pq[{(AA[1]^2*QQ)/AA[3],(AA[1]^2*QQ)/AA[4], (AA[1]^2*QQ)/AA[5],(AA[1]^2*QQ)/(AA[3]*AA[4]*AA[5])}, {AA[1]^2*QQ,(AA[1]^2*QQ)/(AA[3]*AA[4]), (AA[1]^2*QQ)/(AA[3]*AA[5]),(AA[1]^2*QQ)/(AA[4]*AA[5])},AA[2], QQ]; Hyp`q`Gleichung); (* 7.8 *) Tgl121106:=(ClearQ[Global`a,Global`e,Global`c,Global`d,Global`n];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1]^2,AA[1]*QQ^2,-(AA[1]*QQ^2),AA[2]^2,AA[3], AA[3]*QQ,AA[4],AA[4]*QQ, (AA[1]^4*QQ^(1+AA[5]))/(AA[3]*AA[4]*AA[2]), (AA[1]^4*QQ^(2+AA[5]))/(AA[3]*AA[4]*AA[2]),QQ^(1-AA[5]), QQ^(-AA[5])},{AA[1],-AA[1],(AA[1]^2*QQ^2)/AA[2]^2, (AA[1]^2*QQ^2)/AA[3],(AA[1]^2*QQ)/AA[3],(AA[1]^2*QQ^2)/AA[4], (AA[1]^2*QQ)/AA[4],(AA[3]*AA[4]*AA[2]*QQ^(1-AA[5]))/AA[1]^2, (AA[3]*AA[4]*AA[2])/(AA[1]^2*QQ^AA[5]),AA[1]^2*QQ^(1+AA[5]), AA[1]^2*QQ^(2+AA[5])},QQ^2,QQ^2]; Hyp`q`RS=Hyp`q`ph[{AA[1]^2/AA[2],(AA[1]*QQ)/AA[2]^(1/2), -((AA[1]*QQ)/AA[2]^(1/2)),(AA[1]*QQ^(1/2))/AA[2], -((AA[1]*QQ^(1/2))/AA[2]),AA[3],AA[4],AA[2], (AA[1]^4*QQ^(1+AA[5]))/(AA[3]*AA[4]*AA[2]),QQ^(-AA[5])}, {AA[1]/AA[2]^(1/2),-(AA[1]/AA[2]^(1/2)),AA[1]*QQ^(1/2), -(AA[1]*QQ^(1/2)),(AA[1]^2*QQ)/(AA[3]*AA[2]), (AA[1]^2*QQ)/(AA[4]*AA[2]),(AA[1]^2*QQ)/AA[2]^2, (AA[3]*AA[4])/(AA[1]^2*QQ^AA[5]), (AA[1]^2*QQ^(1+AA[5]))/AA[2]},QQ, -(QQ/AA[2])]*Hyp`q`pq[{AA[1]^2*QQ,(AA[1]^2*QQ)/(AA[3]*AA[4]), (AA[1]^2*QQ)/(AA[3]*AA[2]),(AA[1]^2*QQ)/(AA[4]*AA[2])}, {(AA[1]^2*QQ)/AA[3],(AA[1]^2*QQ)/AA[4],(AA[1]^2*QQ)/AA[2], (AA[1]^2*QQ)/(AA[3]*AA[4]*AA[2])},AA[5],QQ]; Hyp`q`Gleichung); (* Rahman/Verma,7.8,reversed *) Tgl10907:=(ClearQ[Global`a,Global`e,Global`c,Global`d,Global`n];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1]^2/AA[2],(AA[1]*QQ)/AA[2]^(1/2), -((AA[1]*QQ)/AA[2]^(1/2)),(AA[1]*QQ^(1/2))/AA[2], -((AA[1]*QQ^(1/2))/AA[2]),AA[3],AA[4],AA[2], (AA[1]^4*QQ^(1+AA[5]))/(AA[3]*AA[4]*AA[2]),QQ^(-AA[5])}, {AA[1]/AA[2]^(1/2),-(AA[1]/AA[2]^(1/2)),AA[1]*QQ^(1/2), -(AA[1]*QQ^(1/2)),(AA[1]^2*QQ)/(AA[3]*AA[2]), (AA[1]^2*QQ)/(AA[4]*AA[2]),(AA[1]^2*QQ)/AA[2]^2, (AA[3]*AA[4])/(AA[1]^2*QQ^AA[5]), (AA[1]^2*QQ^(1+AA[5]))/AA[2]},QQ,-(QQ/AA[2])]; Hyp`q`RS=Hyp`q`ph[{AA[1]^2,AA[1]*QQ^2,-(AA[1]*QQ^2),AA[2]^2,AA[3], AA[3]*QQ,AA[4],AA[4]*QQ, (AA[1]^4*QQ^(1+AA[5]))/(AA[3]*AA[4]*AA[2]), (AA[1]^4*QQ^(2+AA[5]))/(AA[3]*AA[4]*AA[2]),QQ^(1-AA[5]), QQ^(-AA[5])},{AA[1],-AA[1],(AA[1]^2*QQ^2)/AA[2]^2, (AA[1]^2*QQ^2)/AA[3],(AA[1]^2*QQ)/AA[3],(AA[1]^2*QQ^2)/AA[4], (AA[1]^2*QQ)/AA[4],(AA[3]*AA[4]*AA[2]*QQ^(1-AA[5]))/AA[1]^2, (AA[3]*AA[4]*AA[2])/(AA[1]^2*QQ^AA[5]),AA[1]^2*QQ^(1+AA[5]), AA[1]^2*QQ^(2+AA[5])},QQ^2, QQ^2]*Hyp`q`pq[{(AA[1]^2*QQ)/AA[3],(AA[1]^2*QQ)/AA[4], (AA[1]^2*QQ)/AA[2],(AA[1]^2*QQ)/(AA[3]*AA[4]*AA[2])}, {AA[1]^2*QQ,(AA[1]^2*QQ)/(AA[3]*AA[4]), (AA[1]^2*QQ)/(AA[3]*AA[2]),(AA[1]^2*QQ)/(AA[4]*AA[2])},AA[5], QQ]; Hyp`q`Gleichung); (* Ex2.25 *) Tgl5468:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],AA[3],AA[4],AA[5]},{(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4],(AA[2]^2*AA[3]^2*AA[4]^2*AA[5])/(AA[1]^2*QQ^2)}, QQ,QQ]+Hyp`q`pqinf[{AA[1],AA[2],AA[3],AA[4],AA[5],(AA[1]^2*QQ^3)/(AA[2]^2*AA[3]^2*AA[4]^2*AA[5]), (AA[1]^3*QQ^4)/(AA[2]^3*AA[3]^2*AA[4]^2*AA[5]),(AA[1]^3*QQ^4)/(AA[2]^2*AA[3]^3*AA[4]^2*AA[5]), (AA[1]^3*QQ^4)/(AA[2]^2*AA[3]^2*AA[4]^3*AA[5])}, {(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4],(AA[2]^2*AA[3]^2*AA[4]^2*AA[5])/(AA[1]^2*QQ^3), (AA[1]^3*QQ^3)/(AA[2]^2*AA[3]^2*AA[4]^2*AA[5]),(AA[1]^2*QQ^3)/(AA[2]*AA[3]^2*AA[4]^2*AA[5]), (AA[1]^2*QQ^3)/(AA[2]^2*AA[3]*AA[4]^2*AA[5]),(AA[1]^2*QQ^3)/(AA[2]^2*AA[3]^2*AA[4]*AA[5]), (AA[1]^2*QQ^3)/(AA[2]^2*AA[3]^2*AA[4]^2)},QQ]* Hyp`q`ph[{(AA[1]^2*QQ^3)/(AA[2]^2*AA[3]^2*AA[4]^2),(AA[1]^3*QQ^3)/(AA[2]^2*AA[3]^2*AA[4]^2*AA[5]), (AA[1]^2*QQ^3)/(AA[2]*AA[3]^2*AA[4]^2*AA[5]),(AA[1]^2*QQ^3)/(AA[2]^2*AA[3]*AA[4]^2*AA[5]), (AA[1]^2*QQ^3)/(AA[2]^2*AA[3]^2*AA[4]*AA[5])}, {(AA[1]^2*QQ^4)/(AA[2]^2*AA[3]^2*AA[4]^2*AA[5]),(AA[1]^3*QQ^4)/(AA[2]^3*AA[3]^2*AA[4]^2*AA[5]), (AA[1]^3*QQ^4)/(AA[2]^2*AA[3]^3*AA[4]^2*AA[5]),(AA[1]^3*QQ^4)/(AA[2]^2*AA[3]^2*AA[4]^3*AA[5])},QQ,QQ]; Hyp`q`RS=Hyp`q`pqinf[{(AA[1]*QQ^2)/(AA[2]*AA[3]*AA[4]),(AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5]),(AA[1]^3*QQ^3)/(AA[2]^2*AA[3]^2*AA[4]^2), (AA[1]^2*QQ^3)/(AA[2]^2*AA[3]^2*AA[4]^2*AA[5])}, {(AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]),(AA[1]^3*QQ^3)/(AA[2]^2*AA[3]^2*AA[4]^2*AA[5]),(AA[1]^2*QQ^3)/(AA[2]^2*AA[3]^2*AA[4]^2), (AA[1]*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5])},QQ]*Hyp`q`ph[{(AA[1]^2*QQ)/(AA[2]*AA[3]*AA[4]), (AA[1]*QQ^(3/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)), -((AA[1]*QQ^(3/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2))),AA[1]^(1/2),-AA[1]^(1/2), AA[1]^(1/2)*QQ^(1/2),-(AA[1]^(1/2)*QQ^(1/2)),(AA[1]*QQ)/(AA[3]*AA[4]),(AA[1]*QQ)/(AA[2]*AA[4]), (AA[1]*QQ)/(AA[2]*AA[3]),AA[5],(AA[1]^3*QQ^3)/(AA[2]^2*AA[3]^2*AA[4]^2*AA[5])}, {(AA[1]*QQ^(1/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2)), -((AA[1]*QQ^(1/2))/(AA[2]^(1/2)*AA[3]^(1/2)*AA[4]^(1/2))),(AA[1]^(3/2)*QQ^2)/(AA[2]*AA[3]*AA[4]), -((AA[1]^(3/2)*QQ^2)/(AA[2]*AA[3]*AA[4])),(AA[1]^(3/2)*QQ^(3/2))/(AA[2]*AA[3]*AA[4]), -((AA[1]^(3/2)*QQ^(3/2))/(AA[2]*AA[3]*AA[4])),(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4], (AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5]),(AA[2]*AA[3]*AA[4]*AA[5])/(AA[1]*QQ)},QQ,QQ]+ Hyp`q`pqinf[{AA[1],AA[5],(AA[1]*QQ)/(AA[3]*AA[4]),(AA[1]*QQ)/(AA[2]*AA[4]),(AA[1]*QQ)/(AA[2]*AA[3]), (AA[1]^2*QQ^3)/(AA[2]^2*AA[3]^2*AA[4]^2*AA[5]),(AA[1]^2*QQ^3)/(AA[2]^2*AA[3]*AA[4]*AA[5]), (AA[1]^2*QQ^3)/(AA[2]*AA[3]^2*AA[4]*AA[5]),(AA[1]^2*QQ^3)/(AA[2]*AA[3]*AA[4]^2*AA[5]), (AA[1]^5*QQ^7)/(AA[2]^4*AA[3]^4*AA[4]^4*AA[5]^2)}, {(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4],(AA[1]^3*QQ^3)/(AA[2]^2*AA[3]^2*AA[4]^2*AA[5]), (AA[1]^2*QQ^3)/(AA[2]*AA[3]^2*AA[4]^2*AA[5]),(AA[1]^2*QQ^3)/(AA[2]^2*AA[3]*AA[4]^2*AA[5]), (AA[1]^2*QQ^3)/(AA[2]^2*AA[3]^2*AA[4]*AA[5]),(AA[1]^2*QQ^3)/(AA[2]^2*AA[3]^2*AA[4]^2),(AA[2]*AA[3]*AA[4]*AA[5])/(AA[1]*QQ^2), (AA[1]^4*QQ^6)/(AA[2]^3*AA[3]^3*AA[4]^3*AA[5]^2)},QQ]* Hyp`q`ph[{(AA[1]^4*QQ^5)/(AA[2]^3*AA[3]^3*AA[4]^3*AA[5]^2), (AA[1]^2*QQ^(7/2))/(AA[2]^(3/2)*AA[3]^(3/2)*AA[4]^(3/2)*AA[5]), -((AA[1]^2*QQ^(7/2))/(AA[2]^(3/2)*AA[3]^(3/2)*AA[4]^(3/2)*AA[5])),(AA[1]^(3/2)*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5]), -((AA[1]^(3/2)*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5])),(AA[1]^(3/2)*QQ^(5/2))/(AA[2]*AA[3]*AA[4]*AA[5]), -((AA[1]^(3/2)*QQ^(5/2))/(AA[2]*AA[3]*AA[4]*AA[5])),(AA[1]*QQ^2)/(AA[2]*AA[3]*AA[4]), (AA[1]^3*QQ^3)/(AA[2]^2*AA[3]^2*AA[4]^2*AA[5]),(AA[1]^2*QQ^3)/(AA[2]*AA[3]^2*AA[4]^2*AA[5]), (AA[1]^2*QQ^3)/(AA[2]^2*AA[3]*AA[4]^2*AA[5]),(AA[1]^2*QQ^3)/(AA[2]^2*AA[3]^2*AA[4]*AA[5])}, {(AA[1]^2*QQ^(5/2))/(AA[2]^(3/2)*AA[3]^(3/2)*AA[4]^(3/2)*AA[5]), -((AA[1]^2*QQ^(5/2))/(AA[2]^(3/2)*AA[3]^(3/2)*AA[4]^(3/2)*AA[5])), (AA[1]^(5/2)*QQ^4)/(AA[2]^2*AA[3]^2*AA[4]^2*AA[5]),-((AA[1]^(5/2)*QQ^4)/(AA[2]^2*AA[3]^2*AA[4]^2*AA[5])), (AA[1]^(5/2)*QQ^(7/2))/(AA[2]^2*AA[3]^2*AA[4]^2*AA[5]), -((AA[1]^(5/2)*QQ^(7/2))/(AA[2]^2*AA[3]^2*AA[4]^2*AA[5])),(AA[1]^3*QQ^4)/(AA[2]^2*AA[3]^2*AA[4]^2*AA[5]^2), (AA[1]*QQ^3)/(AA[2]*AA[3]*AA[4]*AA[5]),(AA[1]^2*QQ^3)/(AA[2]^2*AA[3]*AA[4]*AA[5]),(AA[1]^2*QQ^3)/(AA[2]*AA[3]^2*AA[4]*AA[5]), (AA[1]^2*QQ^3)/(AA[2]*AA[3]*AA[4]^2*AA[5])},QQ,QQ]; Hyp`q`Gleichung); Tgl5469:=(ClearQ[Global`a,Global`b,Global`c,Global`x];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1]^(1/2),-AA[1]^(1/2),AA[1]^(1/2)*QQ^(1/2), -(AA[1]^(1/2)*QQ^(1/2)),(AA[2]*AA[3])/(AA[1]*QQ)},{AA[2], AA[3],AA[1]*AA[4],QQ/AA[4]},QQ,QQ]; Hyp`q`RS=Hyp`q`pqinf[{AA[4]},{AA[1]*AA[4]},QQ]*Hyp`q`ph[{AA[1], (AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3]},{AA[2],AA[3]},QQ, (AA[2]*AA[3]*AA[4])/(AA[1]*QQ)]-Hyp`q`pqinf[{AA[4],AA[1], (AA[2]*AA[3])/(AA[1]*QQ),AA[2]*AA[4],AA[3]*AA[4]}, {AA[1]*AA[4],AA[2],AA[3],(AA[2]*AA[3]*AA[4])/(AA[1]*QQ), AA[4]^(-1)},QQ]*Hyp`q`ph[{AA[1]^(1/2)*AA[4], -(AA[1]^(1/2)*AA[4]),AA[1]^(1/2)*QQ^(1/2)*AA[4], -(AA[1]^(1/2)*QQ^(1/2)*AA[4]), (AA[2]*AA[3]*AA[4])/(AA[1]*QQ)},{AA[2]*AA[4],AA[3]*AA[4], QQ*AA[4],AA[1]*AA[4]^2},QQ,QQ]; Hyp`q`Gleichung); (* Ex2.25,Rgl! *) Tgl121161:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ),AA[2]^(1/2),-AA[2]^(1/2),AA[2]^(1/2)*QQ^(1/2), -(AA[2]^(1/2)*QQ^(1/2)),AA[3],AA[4],(AA[1]^2*QQ)/(AA[2]*AA[3]*AA[4]),AA[5],(AA[1]^2*QQ)/(AA[2]*AA[5])}, {AA[1]^(1/2),-AA[1]^(1/2),(AA[1]*QQ)/AA[2]^(1/2),-((AA[1]*QQ)/AA[2]^(1/2)),(AA[1]*QQ^(1/2))/AA[2]^(1/2), -((AA[1]*QQ^(1/2))/AA[2]^(1/2)),(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4],(AA[2]*AA[3]*AA[4])/AA[1],(AA[1]*QQ)/AA[5],(AA[2]*AA[5])/AA[1]}, QQ,QQ]+Hyp`q`pqinf[{AA[1]*QQ,(AA[1]*QQ)/(AA[2]*AA[5]),AA[2],AA[5],AA[3],AA[4],(AA[1]^2*QQ)/(AA[2]*AA[3]*AA[4]), (AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[5]),(AA[1]^2*QQ^2)/(AA[2]*AA[4]*AA[5]),(AA[3]*AA[4]*QQ)/AA[5],(AA[1]^4*QQ^3)/(AA[2]^3*AA[5]^2)}, {(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[5],(AA[1]^2*QQ)/AA[2],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4],(AA[2]*AA[3]*AA[4])/AA[1], (AA[1]*AA[3]*QQ)/(AA[2]*AA[5]),(AA[1]*AA[4]*QQ)/(AA[2]*AA[5]),(AA[1]^3*QQ^2)/(AA[2]^2*AA[3]*AA[4]*AA[5]),(AA[2]*AA[5])/(AA[1]*QQ), (AA[1]^3*QQ^3)/(AA[2]^2*AA[5]^2)},QQ]*Hyp`q`ph[{(AA[1]^3*QQ^2)/(AA[2]^2*AA[5]^2),(AA[1]^(3/2)*QQ^2)/(AA[2]*AA[5]), -((AA[1]^(3/2)*QQ^2)/(AA[2]*AA[5])),(AA[1]*QQ)/(AA[2]^(1/2)*AA[5]),-((AA[1]*QQ)/(AA[2]^(1/2)*AA[5])), (AA[1]*QQ^(3/2))/(AA[2]^(1/2)*AA[5]),-((AA[1]*QQ^(3/2))/(AA[2]^(1/2)*AA[5])),(AA[1]*QQ)/AA[2], (AA[1]^2*QQ)/(AA[2]*AA[5]),(AA[1]*AA[3]*QQ)/(AA[2]*AA[5]),(AA[1]*AA[4]*QQ)/(AA[2]*AA[5]),(AA[1]^3*QQ^2)/(AA[2]^2*AA[3]*AA[4]*AA[5])}, {(AA[1]^(3/2)*QQ)/(AA[2]*AA[5]),-((AA[1]^(3/2)*QQ)/(AA[2]*AA[5])),(AA[1]^2*QQ^2)/(AA[2]^(3/2)*AA[5]), -((AA[1]^2*QQ^2)/(AA[2]^(3/2)*AA[5])),(AA[1]^2*QQ^(3/2))/(AA[2]^(3/2)*AA[5]), -((AA[1]^2*QQ^(3/2))/(AA[2]^(3/2)*AA[5])),(AA[1]^2*QQ^2)/(AA[2]*AA[5]^2),(AA[1]*QQ^2)/(AA[2]*AA[5]), (AA[1]^2*QQ^2)/(AA[2]*AA[3]*AA[5]),(AA[1]^2*QQ^2)/(AA[2]*AA[4]*AA[5]),(AA[3]*AA[4]*QQ)/AA[5]},QQ,QQ]; Hyp`q`RS=Hyp`q`pqinf[{AA[1]*QQ,(AA[1]^2*QQ)/(AA[2]*AA[5]),(AA[1]^2*QQ)/AA[2]^2,(AA[1]*QQ)/(AA[2]*AA[5])}, {(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[5],(AA[1]^2*QQ)/AA[2],(AA[1]^2*QQ)/(AA[2]^2*AA[5])},QQ]* Hyp`q`ph[{AA[2],(AA[2]*AA[3])/AA[1],(AA[2]*AA[4])/AA[1],(AA[1]*QQ)/(AA[3]*AA[4]),AA[5]}, {(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4],(AA[2]*AA[3]*AA[4])/AA[1],(AA[2]^2*AA[5])/AA[1]^2},QQ,QQ]+ Hyp`q`pqinf[{AA[1]*QQ,(AA[1]*QQ)/(AA[2]*AA[5]),AA[2],(AA[2]*AA[3])/AA[1],(AA[2]*AA[4])/AA[1],(AA[1]*QQ)/(AA[3]*AA[4]),AA[5], (AA[1]^3*QQ^2)/(AA[2]^2*AA[3]*AA[5]),(AA[1]^3*QQ^2)/(AA[2]^2*AA[4]*AA[5]),(AA[1]*AA[3]*AA[4]*QQ)/(AA[2]*AA[5])}, {(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[5],(AA[1]^2*QQ)/AA[2],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4],(AA[2]*AA[3]*AA[4])/AA[1], (AA[2]^2*AA[5])/(AA[1]^2*QQ),(AA[1]*AA[3]*QQ)/(AA[2]*AA[5]),(AA[1]*AA[4]*QQ)/(AA[2]*AA[5]),(AA[1]^3*QQ^2)/(AA[2]^2*AA[3]*AA[4]*AA[5])}, QQ]*Hyp`q`ph[{(AA[1]^2*QQ)/AA[2]^2,(AA[1]^2*QQ)/(AA[2]*AA[5]),(AA[1]*AA[3]*QQ)/(AA[2]*AA[5]),(AA[1]*AA[4]*QQ)/(AA[2]*AA[5]), (AA[1]^3*QQ^2)/(AA[2]^2*AA[3]*AA[4]*AA[5])},{(AA[1]^2*QQ^2)/(AA[2]^2*AA[5]),(AA[1]^3*QQ^2)/(AA[2]^2*AA[3]*AA[5]), (AA[1]^3*QQ^2)/(AA[2]^2*AA[4]*AA[5]),(AA[1]*AA[3]*AA[4]*QQ)/(AA[2]*AA[5])},QQ,QQ]; Hyp`q`Gleichung); (* Ex 2.30 *) Tgl10963:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e,Global`f,Global`g];ClearqQ[Global`q]; Hyp`q`LS=Hyp`q`ph[{AA[1],AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ),AA[2],AA[3],AA[4],AA[5],AA[6],AA[7],(AA[1]^3*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6]*AA[7])}, {AA[1]^(1/2),-AA[1]^(1/2),(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4],(AA[1]*QQ)/AA[5],(AA[1]*QQ)/AA[6],(AA[1]*QQ)/AA[7], (AA[2]*AA[3]*AA[4]*AA[5]*AA[6]*AA[7])/(AA[1]^2*QQ)},QQ,QQ]+ Hyp`q`pqinf[{(AA[2]*QQ)/AA[6],(AA[2]*QQ)/AA[7],(AA[2]^2*AA[3]*AA[4]*AA[5]*AA[6]*AA[7])/(AA[1]^3*QQ),AA[1]*QQ,AA[3],AA[4],AA[5],AA[6],AA[7], (AA[1]^3*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6]*AA[7]),AA[2]/AA[1],(AA[2]*QQ)/AA[3],(AA[2]*QQ)/AA[4],(AA[2]*QQ)/AA[5]}, {(AA[1]*QQ)/AA[6],(AA[1]*QQ)/AA[7],(AA[2]*AA[3]*AA[4]*AA[5]*AA[6]*AA[7])/(AA[1]^2*QQ),(AA[2]^2*QQ)/AA[1],(AA[2]*AA[3])/AA[1],(AA[2]*AA[4])/AA[1], (AA[2]*AA[5])/AA[1],(AA[2]*AA[6])/AA[1],(AA[2]*AA[7])/AA[1],(AA[1]^2*QQ^2)/(AA[3]*AA[4]*AA[5]*AA[6]*AA[7]),AA[1]/AA[2],(AA[1]*QQ)/AA[3], (AA[1]*QQ)/AA[4],(AA[1]*QQ)/AA[5]},QQ]*Hyp`q`ph[{AA[2]^2/AA[1],(AA[2]*QQ)/AA[1]^(1/2),-((AA[2]*QQ)/AA[1]^(1/2)),AA[2], (AA[2]*AA[3])/AA[1],(AA[2]*AA[4])/AA[1],(AA[2]*AA[5])/AA[1],(AA[2]*AA[6])/AA[1],(AA[2]*AA[7])/AA[1],(AA[1]^2*QQ^2)/(AA[3]*AA[4]*AA[5]*AA[6]*AA[7])}, {AA[2]/AA[1]^(1/2),-(AA[2]/AA[1]^(1/2)),(AA[2]*QQ)/AA[1],(AA[2]*QQ)/AA[3],(AA[2]*QQ)/AA[4],(AA[2]*QQ)/AA[5],(AA[2]*QQ)/AA[6], (AA[2]*QQ)/AA[7],(AA[2]^2*AA[3]*AA[4]*AA[5]*AA[6]*AA[7])/(AA[1]^3*QQ)},QQ,QQ]; Hyp`q`RS=Hyp`q`pqinf[{(AA[2]*AA[5]*AA[7])/AA[1],(AA[2]*AA[6]*AA[7])/AA[1],AA[1]*QQ,AA[2]/AA[1],(AA[1]^3*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6]*AA[7]), (AA[2]^2*AA[3]*AA[4]*AA[5]*AA[6]*AA[7])/(AA[1]^3*QQ),(AA[1]*QQ)/(AA[3]*AA[7]),(AA[1]*QQ)/(AA[4]*AA[7]),(AA[1]*QQ)/(AA[5]*AA[7]), (AA[1]*QQ)/(AA[6]*AA[7]),(AA[2]*AA[3]*AA[7])/AA[1],(AA[2]*AA[4]*AA[7])/AA[1]}, {(AA[2]*AA[5])/AA[1],(AA[2]*AA[6])/AA[1],(AA[2]^2*AA[3]*AA[4]*AA[5]*AA[6]*AA[7]^2)/(AA[1]^3*QQ),(AA[2]*AA[7])/AA[1], (AA[1]^3*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6]*AA[7]^2),(AA[1]*QQ)/AA[7],(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4],(AA[1]*QQ)/AA[5],(AA[1]*QQ)/AA[6], (AA[2]*AA[3])/AA[1],(AA[2]*AA[4])/AA[1]},QQ]*Hyp`q`ph[{(AA[2]^2*AA[3]*AA[4]*AA[5]*AA[6]*AA[7]^2)/(AA[1]^3*QQ^2), (AA[2]*AA[3]^(1/2)*AA[4]^(1/2)*AA[5]^(1/2)*AA[6]^(1/2)*AA[7])/AA[1]^(3/2), -((AA[2]*AA[3]^(1/2)*AA[4]^(1/2)*AA[5]^(1/2)*AA[6]^(1/2)*AA[7])/AA[1]^(3/2)),AA[2], (AA[2]*AA[4]*AA[5]*AA[6]*AA[7])/(AA[1]^2*QQ),(AA[2]*AA[3]*AA[5]*AA[6]*AA[7])/(AA[1]^2*QQ),(AA[2]*AA[3]*AA[4]*AA[6]*AA[7])/(AA[1]^2*QQ), (AA[2]*AA[3]*AA[4]*AA[5]*AA[7])/(AA[1]^2*QQ),(AA[2]*AA[7])/AA[1],AA[7]}, {(AA[2]*AA[3]^(1/2)*AA[4]^(1/2)*AA[5]^(1/2)*AA[6]^(1/2)*AA[7])/(AA[1]^(3/2)*QQ), -((AA[2]*AA[3]^(1/2)*AA[4]^(1/2)*AA[5]^(1/2)*AA[6]^(1/2)*AA[7])/(AA[1]^(3/2)*QQ)), (AA[2]*AA[3]*AA[4]*AA[5]*AA[6]*AA[7]^2)/(AA[1]^3*QQ),(AA[2]*AA[3]*AA[7])/AA[1],(AA[2]*AA[4]*AA[7])/AA[1],(AA[2]*AA[5]*AA[7])/AA[1],(AA[2]*AA[6]*AA[7])/AA[1], (AA[2]*AA[3]*AA[4]*AA[5]*AA[6]*AA[7])/(AA[1]^2*QQ),(AA[2]^2*AA[3]*AA[4]*AA[5]*AA[6]*AA[7])/(AA[1]^3*QQ)},QQ,QQ]+ Hyp`q`pqinf[{(AA[1]^2*QQ^2)/(AA[3]*AA[4]*AA[6]*AA[7]),(AA[1]^2*QQ^2)/(AA[3]*AA[4]*AA[5]*AA[7]),AA[1]*QQ,AA[2]/AA[1],AA[7],(AA[2]*QQ)/AA[7], (AA[2]*AA[4]*AA[5]*AA[6]*AA[7])/(AA[1]^2*QQ),(AA[2]*AA[3]*AA[5]*AA[6]*AA[7])/(AA[1]^2*QQ),(AA[2]*AA[3]*AA[4]*AA[6]*AA[7])/(AA[1]^2*QQ), (AA[2]*AA[3]*AA[4]*AA[5]*AA[7])/(AA[1]^2*QQ),(AA[1]^2*QQ^2)/(AA[4]*AA[5]*AA[6]*AA[7]),(AA[1]^2*QQ^2)/(AA[3]*AA[5]*AA[6]*AA[7])}, {(AA[2]*AA[5])/AA[1],(AA[2]*AA[6])/AA[1],(AA[1]^3*QQ^3)/(AA[3]*AA[4]*AA[5]*AA[6]*AA[7]^2),(AA[1]^2*QQ^2)/(AA[3]*AA[4]*AA[5]*AA[6]*AA[7]), (AA[2]*AA[3]*AA[4]*AA[5]*AA[6]*AA[7]^2)/(AA[1]^3*QQ^2),(AA[2]*AA[3]*AA[4]*AA[5]*AA[6]*AA[7])/(AA[1]^2*QQ),(AA[1]*QQ)/AA[3],(AA[1]*QQ)/AA[4], (AA[1]*QQ)/AA[5],(AA[1]*QQ)/AA[6],(AA[2]*AA[3])/AA[1],(AA[2]*AA[4])/AA[1]},QQ]* Hyp`q`ph[{(AA[1]^3*QQ^2)/(AA[3]*AA[4]*AA[5]*AA[6]*AA[7]^2), (AA[1]^(3/2)*QQ^2)/(AA[3]^(1/2)*AA[4]^(1/2)*AA[5]^(1/2)*AA[6]^(1/2)*AA[7]), -((AA[1]^(3/2)*QQ^2)/(AA[3]^(1/2)*AA[4]^(1/2)*AA[5]^(1/2)*AA[6]^(1/2)*AA[7])),AA[2],(AA[1]*QQ)/(AA[3]*AA[7]), (AA[1]*QQ)/(AA[4]*AA[7]),(AA[1]*QQ)/(AA[5]*AA[7]),(AA[1]*QQ)/(AA[6]*AA[7]),(AA[1]^2*QQ^2)/(AA[3]*AA[4]*AA[5]*AA[6]*AA[7]), (AA[1]^3*QQ^2)/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6]*AA[7])}, {(AA[1]^(3/2)*QQ)/(AA[3]^(1/2)*AA[4]^(1/2)*AA[5]^(1/2)*AA[6]^(1/2)*AA[7]), -((AA[1]^(3/2)*QQ)/(AA[3]^(1/2)*AA[4]^(1/2)*AA[5]^(1/2)*AA[6]^(1/2)*AA[7])), (AA[1]^3*QQ^3)/(AA[2]*AA[3]*AA[4]*AA[5]*AA[6]*AA[7]^2),(AA[1]^2*QQ^2)/(AA[4]*AA[5]*AA[6]*AA[7]),(AA[1]^2*QQ^2)/(AA[3]*AA[5]*AA[6]*AA[7]), (AA[1]^2*QQ^2)/(AA[3]*AA[4]*AA[6]*AA[7]),(AA[1]^2*QQ^2)/(AA[3]*AA[4]*AA[5]*AA[7]),(AA[1]*QQ)/AA[7],(AA[2]*QQ)/AA[7]},QQ,QQ]; Hyp`q`Gleichung); End[] Protect[ Tgl2101, Tgl2102, Tgl2103, Tgl2104, Tgl2105, Tgl2201, Tgl3201, Tgl2106, Tgl2107, Tgl2108, Tgl3202, Tgl3203, Tgl3101, Tgl3204, Tgl3205, Tgl3206, Tgl3207, Tgl3208, Tgl3209, Tgl4301, Tgl4302, Tgl8701, Tgl8702, Tgl4303, Tgl4304, Tgl8703, Tgl4305, Tgl4306, Tgl8704, Tgl8705, Tgl5401, Tgl121101, Tgl5402, Tgl121102, Tgl7601, Tgl7701, Tgl121103, Tgl10901, Tgl2161, Tgl2162, Tgl3261, Tgl3262, Tgl3263, Tgl3264, Tgl3265, Tgl8761, Tgl8762, Tgl8763, Tgl10961, Tgl4308, Tgl2109, Tgl4309, Tgl10902, Tgl4310, Tgl8706, Tgl6501, Tgl121104, Tgl8764, Tgl10903, Tgl3210, Tgl5461, Tgl5462, Tgl5463, Tgl2110, Tgl8707, Tgl4311, Tgl8708, Tgl3266, Tgl5464, Tgl2111, Tgl8709, Tgl10962, Tgl5465, Tgl8710, Tgl8711, Tgl10904, Tgl5403, Tgl5404, Tgl5405, Tgl3211, Tgl3212, Tgl3213, Tgl2112, Tgl3214, Tgl2202, Tgl3215, Tgl3216, Tgl3217, Tgl4312, Tgl4201, Tgl3267, Tgl3268, Tgl2163, Tgl3269, Tgl4361, Tgl4362, Tgl5466, Tgl5467, Tgl10905, Tgl121105, Tgl10906, Tgl121106, Tgl10907, Tgl5468, Tgl5469, Tgl121161, Tgl10963, TransListe$gl ] EndPackage[] If[$VersionNumber>=2.,$Messages=OutputStream["stdout",1],$Messages={"stdout"}];