If[$VersionNumber>=2.,$Messages=OutputStream["",1],$Messages={}]

BeginPackage["Summatio`qgl`"]

Begin["`Private`"]

(*Belegen von Module durch Block f�r 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;]]];


Sgl1001:=(ClearQ[Global`a,Global`z];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{AA[1]},{},QQ,AA[2]];Hyp`q`RS=Hyp`q`pqinf[{AA[1]*AA[2]},{AA[2]},QQ];Hyp`q`Gleichung);
Sgl1101:=(ClearQ[Global`a,Global`c];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{AA[1]},{AA[2]},QQ,AA[2]/AA[1]];Hyp`q`RS=Hyp`q`pqinf[{AA[2]/AA[1]},{AA[2]},QQ];Hyp`q`Gleichung);
Sgl2101:=(ClearQ[Global`a,Global`c,Global`n];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{AA[1],QQ^(-AA[3])},{AA[2]},QQ,QQ];Hyp`q`RS=Hyp`q`pq[AA[2]/AA[1],AA[3],QQ]/Hyp`q`pq[AA[2],AA[3],QQ]*AA[1]^AA[3];Hyp`q`Gleichung);
Sgl2102:=(ClearQ[Global`a,Global`c,Global`n];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{AA[1],Global`q^(-AA[3])},{AA[2]},QQ,AA[2]*QQ^AA[3]/AA[1]];Hyp`q`RS=Hyp`q`pq[AA[2]/AA[1],AA[3],QQ]/Hyp`q`pq[AA[2],AA[3],QQ];Hyp`q`Gleichung);
Sgl2103:=(ClearQ[Global`a,Global`b,Global`c];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2]},{AA[3]},QQ,AA[3]/(AA[1]*AA[2])];Hyp`q`RS=Hyp`q`pqinf[{AA[3]/AA[1],AA[3]/AA[2]},{AA[3],AA[3]/(AA[1]*AA[2])},QQ];Hyp`q`Gleichung);
Sgl2104:=(ClearQ[Global`a,Global`b];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2]},{AA[1]*QQ/AA[2]},QQ,-QQ/AA[2]];
   Hyp`q`RS=Hyp`q`pqinf[{-QQ},{-QQ/AA[2],AA[1]*QQ/AA[2]},QQ]*Hyp`q`pqinf[{AA[1]*QQ,AA[1]*QQ^2/AA[2]^2},{},QQ^2];Hyp`q`Gleichung);
Sgl2105:=(ClearQ[Global`n,Global`b];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{QQ^(-AA[1]),QQ^(1-AA[1])},{QQ*AA[2]^2},QQ^2,QQ^2];
   Hyp`q`RS=Hyp`q`pq[AA[2]^2,AA[1],QQ^2]/Hyp`q`pq[AA[2]^2,AA[1],
   QQ]*QQ^(-Binomial[AA[1],2]);
   Hyp`q`Gleichung);
Sgl2106:=(ClearQ[Global`a,Global`z];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{AA[1]^2,AA[1]*QQ},{AA[1]},QQ,AA[2]];
   Hyp`q`RS=(1+AA[1]*AA[2])*Hyp`q`pqinf[AA[1]^2*QQ*AA[2],
   QQ]/Hyp`q`pqinf[AA[2],QQ];
   Hyp`q`Gleichung);
Sgl2107:=(ClearQ[Global`a,Global`b];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{AA[1]^2,AA[1]^2/AA[2]},{AA[2]},QQ^2,
   AA[2]*QQ/(AA[1]^2)];
   Hyp`q`RS=1/2*Hyp`q`pqinf[{AA[1]^2,QQ},{AA[2],AA[2]*QQ/(AA[1]^2)},
   QQ^2]*(Hyp`q`pqinf[{AA[2]/AA[1]},{AA[1]},
   QQ]+Hyp`q`pqinf[{-AA[2]/AA[1]},{-AA[1]},QQ]);
   Hyp`q`Gleichung);
Sgl3204:=(ClearQ[Global`a,Global`la,Global`b];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2]*QQ,AA[3]},{AA[2],QQ*AA[2]^2/AA[3]},QQ,
   AA[2]^2/(AA[1]*AA[3]^2)];
   Hyp`q`RS=(1-AA[2]+AA[2]/AA[3]*(1-AA[2]/AA[1]))/((1-AA[2])*(1+AA[2]/
   AA[3]))*Hyp`q`pqinf[{AA[2]^2/(AA[3]^2),
   QQ*AA[2]^2/(AA[1]*AA[3])},{QQ*AA[2]^2/AA[3],
   AA[2]^2/(AA[1]*AA[3]^2)},QQ];
   Hyp`q`Gleichung);
Sgl2201:=(ClearQ[Global`a,Global`b];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{AA[1],QQ/AA[1]},{-QQ,AA[2]},QQ,-AA[2]];
   Hyp`q`RS=Hyp`q`pqinf[{AA[1]*AA[2],AA[2]*QQ/AA[1]},{},QQ^2]*Hyp`q`pqinf[{},{AA[2]},QQ];Hyp`q`Gleichung);
Sgl2202:=(ClearQ[Global`a,Global`b];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{AA[1]^2,AA[2]^2},{AA[1]*AA[2]*QQ^(1/2),-AA[1]*AA[2]*QQ^(1/2)},QQ,-QQ];
   Hyp`q`RS=Hyp`q`pqinf[{AA[1]^2*QQ,AA[2]^2*QQ},{QQ,AA[1]^2*AA[2]^2*QQ},QQ^2];Hyp`q`Gleichung);
Sgl3201:=(ClearQ[Global`a,Global`b,Global`c,Global`n];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],QQ^(-AA[4])},{AA[3],AA[1]*AA[2]*QQ^(1-AA[4])/AA[3]},QQ,QQ];
   Hyp`q`RS=Hyp`q`pq[AA[3]/AA[1],AA[4],QQ]*Hyp`q`pq[AA[3]/AA[2],AA[4],QQ]/(Hyp`q`pq[AA[3],AA[4],QQ]*Hyp`q`pq[AA[3]/(AA[1]*AA[2]),AA[4],QQ]);Hyp`q`Gleichung);
Sgl3203:=(ClearQ[Global`a,Global`t];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{AA[1],QQ*AA[1]^(1/2),-QQ*AA[1]^(1/2)},{AA[1]^(1/2),
   -AA[1]^(1/2)},QQ,AA[2]];
   Hyp`q`RS=(1-AA[1]*QQ*AA[2]^2)*Hyp`q`pqinf[{AA[1]*AA[2]*QQ^2},{AA[2]},
   QQ];
   Hyp`q`Gleichung);
Sgl4301:=(ClearQ[Global`a,Global`b,Global`c];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{AA[1],-QQ*AA[1]^(1/2),AA[2],AA[3]},{-AA[1]^(1/2),AA[1]*QQ/AA[2],AA[1]*QQ/AA[3]},QQ,QQ*AA[1]^(1/2)/(AA[2]*AA[3])];
   Hyp`q`RS=Hyp`q`pqinf[{AA[1]*QQ,QQ*AA[1]^(1/2)/AA[2],QQ*AA[1]^(1/2)/AA[3],AA[1]*QQ/(AA[2]*AA[3])},
               {AA[1]*QQ/AA[2],AA[1]*QQ/AA[3],QQ*AA[1]^(1/2),QQ*AA[1]^(1/2)/(AA[2]*AA[3])}];Hyp`q`Gleichung);
Sgl4302:=(ClearQ[Global`a,Global`b,Global`n];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{AA[1],-QQ*AA[1]^(1/2),AA[2],QQ^(-AA[3])},{-AA[1]^(1/2),AA[1]*QQ/AA[2],AA[1]*QQ^(1+AA[3])},QQ,QQ^(1+AA[3])*AA[1]^(1/2)/AA[2]];
   Hyp`q`RS=Hyp`q`pq[AA[1]*QQ,AA[3],QQ]*Hyp`q`pq[QQ*AA[1]^(1/2)/AA[2],AA[3],QQ]/
        (Hyp`q`pq[AA[1]*QQ/AA[2],AA[3],QQ]*Hyp`q`pq[QQ*AA[1]^(1/2),AA[3],QQ]);Hyp`q`Gleichung);
Sgl3202:=(ClearQ[Global`n,Global`b,Global`c];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{QQ^(-2*AA[1]),AA[2],AA[3]},{QQ^(1-2*AA[1])/AA[2],QQ^(1-2*AA[1])/AA[3]},QQ,QQ^(2-AA[1])/(AA[2]*AA[3])];
   Hyp`q`RS=Hyp`q`pq[AA[2],AA[1],QQ]*Hyp`q`pq[AA[3],AA[1],QQ]*Hyp`q`pq[QQ,2*AA[1],QQ]*Hyp`q`pq[AA[2]*AA[3],2*AA[1],QQ]/
        (Hyp`q`pq[QQ,AA[1],QQ]*Hyp`q`pq[AA[2]*AA[3],AA[1],QQ]*Hyp`q`pq[AA[2],2*AA[1],QQ]*Hyp`q`pq[AA[3],2*AA[1],QQ]);Hyp`q`Gleichung);
Sgl8702:=(ClearQ[Global`a,Global`b,Global`c];ClearqQ[Global`q];
   la=-AA[3]*(AA[1]*AA[2]/QQ)^(1/2);
   Hyp`q`LS=Hyp`q`ph[{la,QQ*la^(1/2),-QQ*la^(1/2),AA[1],AA[2],AA[3],-AA[3],QQ*la/AA[3]^2},
       {la^(1/2),-la^(1/2),QQ*la/AA[1],QQ*la/AA[2],QQ*la/AA[3],-QQ*la/AA[3],AA[3]^2},QQ,-QQ*la/(AA[1]*AA[2])];
   Hyp`q`RS=Hyp`q`pqinf[{QQ*la,AA[3]^2/la},{QQ*la/AA[1],QQ*la/AA[2]},QQ]*
      Hyp`q`pqinf[{AA[1]*QQ,AA[2]*QQ,AA[3]^2*QQ/AA[1],AA[3]^2*QQ/AA[2]},{QQ,AA[1]*AA[2]*QQ,AA[3]^2*QQ,AA[3]^2*QQ/(AA[1]*AA[2])},QQ^2];
   Hyp`q`Gleichung);
Sgl4303:=(ClearQ[Global`n,Global`a,Global`c];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{QQ^(-AA[1]),AA[2]*QQ^AA[1],AA[3],-AA[3]},{(AA[2]*QQ)^(1/2),-(AA[2]*QQ)^(1/2),AA[3]^2},QQ,QQ];
   Hyp`q`RS=If[EvenQ[AA[1]],
                  AA[3]^AA[1]*Hyp`q`pq[QQ,AA[1]/2,QQ^2]*Hyp`q`pq[AA[2]*QQ/AA[3]^2,AA[1]/2,QQ^2]/
                  (Hyp`q`pq[AA[2]*QQ,AA[1]/2,QQ^2]*Hyp`q`pq[AA[3]^2*QQ,AA[1]/2,QQ^2]),
                  0];Hyp`q`Gleichung);
Sgl8703:=(ClearQ[Global`c,Global`a,Global`d];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{-AA[1],QQ*(-AA[1])^(1/2),-QQ*(-AA[1])^(1/2),AA[2],QQ/AA[2],AA[1],-AA[3],-QQ/AA[3]},
       {(-AA[1])^(1/2),-(-AA[1])^(1/2),-AA[1]*QQ/AA[2],-AA[2]*AA[1],-QQ,AA[1]*QQ/AA[3],AA[1]*AA[3]},QQ,AA[1]];
   Hyp`q`RS=Hyp`q`pqinf[{-AA[1],-AA[1]*QQ},{AA[1]*AA[3],AA[1]*QQ/AA[3],-AA[2]*AA[1],-AA[1]*QQ/AA[2]},QQ]*
      Hyp`q`pqinf[{AA[2]*AA[1]*AA[3],AA[2]*AA[1]*QQ/AA[3],AA[1]*AA[3]*QQ/AA[2],AA[1]*QQ^2/(AA[2]*AA[3])},{},QQ^2];Hyp`q`Gleichung);
Sgl4304:=(ClearQ[Global`n,Global`c,Global`e];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{QQ^(-AA[1]),QQ^(AA[1]+1),AA[2],-AA[2]},{AA[3],AA[2]^2*QQ/AA[3],-QQ},QQ,QQ];
   Hyp`q`RS=QQ^(AA[1]*(AA[1]+1)/2)*Hyp`q`pqinf[{AA[3]*QQ^(-AA[1]),AA[3]*QQ^(1+AA[1]),AA[2]^2*QQ^(1-AA[1])/AA[3],AA[2]^2*QQ^(AA[1]+2)/AA[3]},{},QQ^2]*
      Hyp`q`pqinf[{},{AA[3],AA[2]^2*QQ/AA[3]},QQ];Hyp`q`Gleichung);
Sgl4305:=(ClearQ[Global`n,Global`b,Global`c,Global`m];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{QQ^(-AA[1]),AA[2],AA[3],
   -QQ^(1-AA[1])/(AA[2]*AA[3])},{QQ^(1-AA[1])/AA[2],
   QQ^(1-AA[1])/AA[3],-AA[2]*AA[3]},QQ,QQ];
   Hyp`q`RS=Hyp`q`pq[{QQ,AA[2]^2,AA[3]^2},{AA[2]^2*AA[3]^2},AA[4],
   QQ^2]*Hyp`q`pq[{AA[2]*AA[3]},{AA[2],AA[3]},2*AA[4],QQ];
   Hyp`q`Gleichung);
Sgl4306:=(ClearQ[Global`a,Global`b,Global`n];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{AA[1],QQ*AA[1]^(1/2),AA[2],QQ^(-AA[3])},
   {AA[1]^(1/2),AA[1]*QQ/AA[2],AA[2]^2*QQ^(1-AA[3])},QQ,QQ];
   Hyp`q`RS=Hyp`q`pq[{AA[1]*AA[2]^(-2),AA[2]^(-1),
   -QQ*AA[2]^(-1)*AA[1]^(1/2)},{AA[2]^(-2),AA[1]*QQ/AA[2],
   -AA[2]^(-1)*AA[1]^(1/2)},AA[3],QQ];
   Hyp`q`Gleichung);
Sgl4307:=(ClearQ[Global`a,Global`b,Global`c];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[1]^(1/2)*QQ)/(AA[2]*AA[3]))];
   Hyp`q`RS=Hyp`q`pqinf[{AA[1]*QQ,(AA[1]*QQ)/(AA[2]*AA[3]),
   -((AA[1]^(1/2)*QQ)/AA[2]),-((AA[1]^(1/2)*QQ)/AA[3])},
   {(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3],-(AA[1]^(1/2)*QQ),
   -((AA[1]^(1/2)*QQ)/(AA[2]*AA[3]))},QQ];
   Hyp`q`Gleichung);
Sgl4308:=(ClearQ[Global`a,Global`b,Global`n];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{AA[1],-(AA[1]^(1/2)*QQ),AA[2],QQ^(-AA[3])},
   {-AA[1]^(1/2),(AA[1]*QQ)/AA[2],AA[2]^2*QQ^(1-AA[3])},QQ,QQ];
   Hyp`q`RS=Hyp`q`pq[{AA[1]/AA[2]^2,AA[2]^(-1),(AA[1]^(1/2)*QQ)/AA[2]},
   {AA[2]^(-2),(AA[1]*QQ)/AA[2],AA[1]^(1/2)/AA[2]},AA[3],QQ];
   Hyp`q`Gleichung);
Sgl5401:=(ClearQ[Global`a,Global`b,Global`c];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[2]*AA[3])];
   Hyp`q`RS=Hyp`q`pqinf[{AA[1]*QQ,(AA[1]*QQ)/(AA[2]*AA[3]),
   (AA[1]^(1/2)*QQ^(1/2))/AA[2],(AA[1]^(1/2)*QQ^(1/2))/AA[3]},
   {(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3],AA[1]^(1/2)*QQ^(1/2),
   (AA[1]^(1/2)*QQ^(1/2))/(AA[2]*AA[3])},QQ];
   Hyp`q`Gleichung);
Sgl5402:=(ClearQ[Global`a,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],
   QQ^(-AA[3])},{AA[1]^(1/2),-AA[1]^(1/2),(AA[1]*QQ)/AA[2],
   AA[2]^2*QQ^(2-AA[3])},QQ,QQ];
   Hyp`q`RS=Hyp`q`pq[{(AA[1]*QQ)/AA[2]^2},{AA[1]/(AA[2]^2*QQ)},AA[3],
   QQ^2]*Hyp`q`pq[{AA[1]/(AA[2]^2*QQ),1/(AA[2]*QQ)},
   {1/(AA[2]^2*QQ),(AA[1]*QQ)/AA[2]},AA[3],QQ];
   Hyp`q`Gleichung);
Sgl5501:=(ClearQ[Global`a,Global`b,Global`c];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],0},QQ,(AA[1]*QQ)/(AA[2]*AA[3])];
   Hyp`q`RS=Hyp`q`pqinf[{AA[1]*QQ,(AA[1]*QQ)/(AA[2]*AA[3])},
   {(AA[1]*QQ)/AA[2],(AA[1]*QQ)/AA[3]},QQ];
   Hyp`q`Gleichung);
Sgl6501:=(ClearQ[Global`a,Global`b,Global`c,Global`d];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{AA[1],QQ*AA[1]^(1/2),-QQ*AA[1]^(1/2),AA[2],AA[3],AA[4]},{AA[1]^(1/2),-AA[1]^(1/2),AA[1]*QQ/AA[2],AA[1]*QQ/AA[3],AA[1]*QQ/AA[4]},
                   QQ,AA[1]*QQ/(AA[2]*AA[3]*AA[4])];
   Hyp`q`RS=Hyp`q`pqinf[{AA[1]*QQ,AA[1]*QQ/(AA[2]*AA[3]),AA[1]*QQ/(AA[2]*AA[4]),AA[1]*QQ/(AA[3]*AA[4])},
             {AA[1]*QQ/AA[2],AA[1]*QQ/AA[3],AA[1]*QQ/AA[4],AA[1]*QQ/(AA[2]*AA[3]*AA[4])},QQ];Hyp`q`Gleichung);
Sgl6502:=(ClearQ[Global`a,Global`b,Global`c,Global`n];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{AA[1],QQ*AA[1]^(1/2),-QQ*AA[1]^(1/2),AA[2],AA[3],QQ^(-AA[4])},{AA[1]^(1/2),-AA[1]^(1/2),AA[1]*QQ/AA[2],AA[1]*QQ/AA[3],AA[1]*QQ^(1+AA[4])},
                   QQ,AA[1]*QQ^(1+AA[4])/(AA[2]*AA[3])];
   Hyp`q`RS=Hyp`q`pq[AA[1]*QQ,AA[4],QQ]*Hyp`q`pq[AA[1]*QQ/(AA[2]*AA[3]),AA[4],QQ]/(Hyp`q`pq[AA[1]*QQ/AA[2],AA[4],QQ]*Hyp`q`pq[AA[1]*QQ/AA[3],AA[4],QQ]);Hyp`q`Gleichung);
Sgl8701:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`n];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{AA[1],QQ*AA[1]^(1/2),-QQ*AA[1]^(1/2),AA[2],AA[3],AA[4],
        AA[1]^2*QQ/(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]*AA[3]*AA[4]/AA[1]/QQ^AA[5],AA[1]*QQ^(1+AA[5])},QQ,QQ];
   Hyp`q`RS=Hyp`q`pq[AA[1]*QQ,AA[5],QQ]*Hyp`q`pq[AA[1]*QQ/(AA[2]*AA[3]),AA[5],QQ]*Hyp`q`pq[AA[1]*QQ/(AA[2]*AA[4]),AA[5],QQ]*Hyp`q`pq[AA[1]*QQ/(AA[3]*AA[4]),AA[5],QQ]/
      (Hyp`q`pq[AA[1]*QQ/AA[2],AA[5],QQ]*Hyp`q`pq[AA[1]*QQ/AA[3],AA[5],QQ]*Hyp`q`pq[AA[1]*QQ/AA[4],AA[5],QQ]*Hyp`q`pq[AA[1]*QQ/(AA[2]*AA[3]*AA[4]),AA[5],QQ]);Hyp`q`Gleichung);
Sgl8704:=(ClearQ[Global`la,Global`a,Global`b];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{-AA[1],I*AA[1]^(1/2)*QQ,-I*AA[1]^(1/2)*QQ,
   AA[1]^(1/2)*QQ,-(AA[1]^(1/2)*QQ),AA[2],AA[3],-AA[3]},
   {I*AA[1]^(1/2),-I*AA[1]^(1/2),-AA[1]^(1/2),
   AA[1]^(1/2),-((AA[1]*QQ)/AA[2]),-((AA[1]*QQ)/AA[3]),
   (AA[1]*QQ)/AA[3]},QQ,AA[1]/(AA[2]*AA[3]^2)];
   Hyp`q`RS=Hyp`q`pqinf[{AA[1]*QQ,AA[1]/AA[2],-(AA[1]*QQ),AA[1]/AA[3]^2,
   (AA[1]*QQ)/(AA[2]*AA[3]),-((AA[1]*QQ)/(AA[2]*AA[3]))},
   {AA[1],(AA[1]*QQ)/AA[2],-((AA[1]*QQ)/AA[2]),(AA[1]*QQ)/AA[3],
   -((AA[1]*QQ)/AA[3]),AA[1]/(AA[2]*AA[3]^2)},QQ];
   Hyp`q`Gleichung);
Sgl2161:=(ClearQ[Global`a,Global`b,Global`c];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2]},{AA[3]},QQ,QQ]+
    Hyp`q`pqinf[{QQ/AA[3],AA[1],AA[2]},{AA[3]/QQ,AA[1]*QQ/AA[3],AA[2]*QQ/AA[3]},QQ]*Hyp`q`ph[{AA[1]*QQ/AA[3],AA[2]*QQ/AA[3]},{QQ^2/AA[3]},QQ,QQ];
   Hyp`q`RS=Hyp`q`pqinf[{QQ/AA[3],AA[1]*AA[2]*QQ/AA[3]},{AA[1]*QQ/AA[3],AA[2]*QQ/AA[3]},QQ];Hyp`q`Gleichung);
Sgl3261:=(ClearQ[Global`a,Global`b,Global`c,Global`e];ClearqQ[Global`q];
   f=AA[1]*AA[2]*AA[3]*QQ/AA[4];
   Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],AA[3]},{AA[4],f},QQ,QQ]+
    Hyp`q`pqinf[{QQ/AA[4],AA[1],AA[2],AA[3],QQ*f/AA[4]},{AA[4]/QQ,AA[1]*QQ/AA[4],AA[2]*QQ/AA[4],AA[3]*QQ/AA[4],f},QQ]*
      Hyp`q`ph[{AA[1]*QQ/AA[4],AA[2]*QQ/AA[4],AA[3]*QQ/AA[4]},{QQ^2/AA[4],QQ*f/AA[4]},QQ,QQ];
   Hyp`q`RS=Hyp`q`pqinf[{QQ/AA[4],f/AA[1],f/AA[2],f/AA[3]},{AA[1]*QQ/AA[4],AA[2]*QQ/AA[4],AA[3]*QQ/AA[4],f},QQ];Hyp`q`Gleichung);
Sgl4361:=(ClearQ[Global`a,Global`b,Global`c];ClearqQ[Global`q];
   Hyp`q`LS=Hyp`q`ph[{AA[1],AA[2],-AA[2],AA[1]*QQ/(AA[3]^2)},
   {AA[1]*QQ/AA[3],-AA[1]*QQ/AA[3],AA[2]^2},QQ,
   QQ]+Hyp`q`pqinf[{QQ/(AA[2]^2),AA[1],AA[2],-AA[2],
   AA[1]*QQ/(AA[3]^2),AA[1]*QQ^2/(AA[2]^2*AA[3]),
   -AA[1]*QQ^2/(AA[2]^2*AA[3])},{AA[2]^2/QQ,QQ/AA[2],-QQ/AA[2],
   AA[1]*QQ/(AA[2]^2),AA[1]*QQ/AA[3],-AA[1]*QQ/AA[3],
   AA[1]*QQ^2/(AA[2]^2*AA[3]^2)},QQ]*Hyp`q`ph[{QQ/AA[2],
   -QQ/AA[2],AA[1]*QQ/(AA[2]^2),AA[1]*QQ^2/(AA[2]^2*AA[3]^2)},
   {AA[1]*QQ^2/(AA[2]^2*AA[3]),-AA[1]*QQ^2/(AA[2]^2*AA[3]),
   QQ^2/(AA[2]^2)},QQ,QQ];
   Hyp`q`RS=Hyp`q`pqinf[{QQ/(AA[2]^2),-QQ},{AA[1]*QQ/(AA[2]^2),
   -AA[1]*QQ},QQ]*Hyp`q`pqinf[{AA[1]^2*QQ^2,
   AA[1]*QQ^2/(AA[2]^2),AA[1]*QQ^2/(AA[3]^2),
   AA[1]^2*QQ^2/(AA[2]^2*AA[3]^2)},{QQ^2/(AA[2]^2),
   AA[1]^2*QQ^2/(AA[3]^2),AA[1]*QQ^2,
   AA[1]*QQ^2/(AA[2]^2*AA[3]^2)},QQ^2];
   Hyp`q`Gleichung);
Sgl8761:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e];ClearqQ[Global`q];
   f=AA[1]^2*QQ/(AA[2]*AA[3]*AA[4]*AA[5]);
   Hyp`q`LS=Hyp`q`ph[{AA[1],QQ*AA[1]^(1/2),-QQ*AA[1]^(1/2),AA[2],AA[3],AA[4],AA[5],f},
       {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/f},QQ,QQ]+
    Hyp`q`pqinf[{AA[1]*QQ,AA[2]/AA[1],AA[3],AA[4],AA[5],f,AA[2]*QQ/AA[3],AA[2]*QQ/AA[4],AA[2]*QQ/AA[5],AA[2]*QQ/f},
          {AA[1]/AA[2],AA[1]*QQ/AA[3],AA[1]*QQ/AA[4],AA[1]*QQ/AA[5],AA[1]*QQ/f,AA[2]*AA[3]/AA[1],AA[2]*AA[4]/AA[1],AA[2]*AA[5]/AA[1],AA[2]*f/AA[1],AA[2]^2*QQ/AA[1]},QQ]*
      Hyp`q`ph[{AA[2]^2/AA[1],QQ*AA[2]*AA[1]^(-1/2),-QQ*AA[2]*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]*f/AA[1]},
         {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/f},QQ,QQ];
   Hyp`q`RS=Hyp`q`pqinf[{AA[1]*QQ,AA[2]/AA[1],AA[1]*QQ/(AA[3]*AA[4]),AA[1]*QQ/(AA[3]*AA[5]),AA[1]*QQ/(AA[3]*f),AA[1]*QQ/(AA[4]*AA[5]),AA[1]*QQ/(AA[4]*f),AA[1]*QQ/(AA[5]*f)},
           {AA[1]*QQ/AA[3],AA[1]*QQ/AA[4],AA[1]*QQ/AA[5],AA[1]*QQ/f,AA[2]*AA[3]/AA[1],AA[2]*AA[4]/AA[1],AA[2]*AA[5]/AA[1],AA[2]*f/AA[1]},QQ];Hyp`q`Gleichung);
Sgl10901:=(ClearQ[Global`a,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]^(1/2),
   -AA[2]^(1/2),AA[2]^(1/2)*QQ^(1/2),-(AA[2]^(1/2)*QQ^(1/2)),
   AA[1]/AA[2],(AA[1]^2*QQ^(1+AA[3]))/AA[2],QQ^(-AA[3])},
   {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[2]*QQ,
   AA[2]/(AA[1]*QQ^AA[3]),AA[1]*QQ^(1+AA[3])},QQ,QQ];
   Hyp`q`RS=Hyp`q`pq[{AA[1]*QQ,(AA[1]^2*QQ)/AA[2]^2},{(AA[1]*QQ)/AA[2],
   (AA[1]^2*QQ)/AA[2]},AA[3],QQ];
   Hyp`q`Gleichung);



End[]

Protect[
Sgl1001,
Sgl1101,
Sgl2101,
Sgl2102,
Sgl2103,
Sgl2104,
Sgl2105,
Sgl2106,
Sgl2107,
Sgl3204,
Sgl2201,
Sgl2202,
Sgl3201,
Sgl3203,
Sgl4301,
Sgl4302,
Sgl3202,
Sgl8702,
Sgl4303,
Sgl8703,
Sgl4304,
Sgl4305,
Sgl4306,
Sgl4307,
Sgl4308,
Sgl5401,
Sgl5402,
Sgl5501,
Sgl6501,
Sgl6502,
Sgl8701,
Sgl8704,
Sgl2161,
Sgl3261,
Sgl4361,
Sgl8761,
Sgl10901,
SumListe$gl
]

EndPackage[]

If[$VersionNumber>=2.,$Messages=OutputStream["stdout",1],$Messages={"stdout"}];