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

BeginPackage["Summatio`mgl`"]

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};
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};]]];


Sgl1001:=(ClearQ[Global`a,Global`z];
   Hyp`m`LS=Hyp`m`F[{AA[1]},{},AA[2]];Hyp`m`RS=(1-AA[2])^(-AA[1]);Hyp`m`Gleichung);
Sgl2101:=(ClearQ[Global`a,Global`c,Global`n];
   Hyp`m`LS=Hyp`m`F[{AA[1],(-AA[3])},{AA[2]},1];Hyp`m`RS=Hyp`m`p[AA[2]-AA[1],AA[3]]/Hyp`m`p[AA[2],AA[3]];Hyp`m`Gleichung);
Sgl2103:=(ClearQ[Global`a,Global`b,Global`c];
   Hyp`m`LS=Hyp`m`F[{AA[1],AA[2]},{AA[3]},1];Hyp`m`RS=Hyp`m`GAMMA[{AA[3],AA[3]-(AA[1]+AA[2])},{AA[3]-AA[1],AA[3]-AA[2]}];Hyp`m`Gleichung);
Sgl2104:=(ClearQ[Global`a,Global`b];
   Hyp`m`LS=Hyp`m`F[{AA[1],AA[2]},{AA[1]+1-AA[2]},-1];
   Hyp`m`RS=Hyp`m`GAMMA[{AA[1]+1-AA[2],1+AA[1]/2},{AA[1]+1,AA[1]/2+1-AA[2]}];Hyp`m`Gleichung);
Sgl2105:=(ClearQ[Global`n,Global`b];
   Hyp`m`LS=Hyp`m`F[{-AA[1]/2,1/2-AA[1]/2},{1/2+AA[2]},1];
   Hyp`m`RS=(2^AA[1]*Hyp`m`p[AA[2],AA[1]])/Hyp`m`p[2*AA[2],AA[1]];
   Hyp`m`Gleichung);
Sgl2106:=(ClearQ[Global`a,Global`z];
   Hyp`m`LS=Hyp`m`F[{AA[1],1+AA[1]/2},{AA[1]/2},AA[2]];
   Hyp`m`RS=(1-AA[2])^(-1-AA[1])*(1+AA[2]);
   Hyp`m`Gleichung);
Sgl2131:=(ClearQ[Global`a,Global`b];
   Hyp`m`LS=Hyp`m`F[{AA[1],1-AA[1]},{AA[2]},1/2];
   Hyp`m`RS=Hyp`m`GAMMA[{AA[2]/2,1/2+AA[2]/2},{AA[1]/2+AA[2]/2,AA[2]/2+1/2-AA[1]/2}];Hyp`m`Gleichung);
Sgl2132:=(ClearQ[Global`a,Global`b];
   Hyp`m`LS=Hyp`m`F[{2*AA[1],2*AA[2]},{AA[1]+AA[2]+(1/2)},1/2];
   Hyp`m`RS=Hyp`m`GAMMA[{AA[1]+AA[2]+1/2,1/2},{AA[1]+1/2,AA[2]+1/2}];Hyp`m`Gleichung);
Sgl3201:=(ClearQ[Global`a,Global`b,Global`c,Global`n];
   Hyp`m`LS=Hyp`m`F[{AA[1],AA[2],(-AA[4])},{AA[3],AA[1]+AA[2]+(1-AA[4])-AA[3]},1];
   Hyp`m`RS=Hyp`m`p[AA[3]-AA[1],AA[4]]*Hyp`m`p[AA[3]-AA[2],AA[4]]/(Hyp`m`p[AA[3],AA[4]]*Hyp`m`p[AA[3]-(AA[1]+AA[2]),AA[4]]);Hyp`m`Gleichung);
Sgl3202:=(ClearQ[Global`n,Global`b,Global`c];
   Hyp`m`LS=Hyp`m`F[{(-2*AA[1]),AA[2],AA[3]},{(1-2*AA[1])-AA[2],(1-2*AA[1])-AA[3]},1];
   Hyp`m`RS=Hyp`m`p[AA[2],AA[1]]*Hyp`m`p[AA[3],AA[1]]*Hyp`m`p[1,2*AA[1]]*Hyp`m`p[AA[2]+AA[3],2*AA[1]]/
        (Hyp`m`p[1,AA[1]]*Hyp`m`p[AA[2]+AA[3],AA[1]]*Hyp`m`p[AA[2],2*AA[1]]*Hyp`m`p[AA[3],2*AA[1]]);Hyp`m`Gleichung);
Sgl3204:=(ClearQ[Global`a,Global`la,Global`b];
   Hyp`m`LS=Hyp`m`F[{AA[1],1+AA[2]/2,AA[3]},{AA[2]/2,1-AA[3]+AA[2]},1];
   Hyp`m`RS=Hyp`m`GAMMA[{AA[2],1-AA[1]+AA[2],-AA[1]-2*AA[3]+AA[2],
   1-AA[3]+AA[2]},{1+AA[2],-AA[1]+AA[2],-2*AA[3]+AA[2],
   1-AA[1]-AA[3]+AA[2]}];
   Hyp`m`Gleichung);
Sgl3231:=(ClearQ[Global`a,Global`b,Global`c];
   Hyp`m`LS=Hyp`m`F[{AA[1],AA[2],AA[3]},{AA[1]+1-AA[2],AA[1]+1-AA[3]},1];
   Hyp`m`RS=Hyp`m`GAMMA[{AA[1]+1-AA[2],AA[1]+1-AA[3],1+(AA[1]/2),1+(AA[1]/2)-(AA[2]+AA[3])},
               {AA[1]+1,1+(AA[1]/2)-AA[2],1+(AA[1]/2)-AA[3],AA[1]+1-(AA[2]+AA[3])}];Hyp`m`Gleichung);
Sgl3232:=(ClearQ[Global`a,Global`b,Global`n];
   Hyp`m`LS=Hyp`m`F[{AA[1],AA[2],(-AA[3])},{AA[1]+1-AA[2],AA[1]+(1+AA[3])},1];
   Hyp`m`RS=Hyp`m`p[AA[1]+1,AA[3]]*Hyp`m`p[1+(AA[1]/2)-AA[2],AA[3]]/
        (Hyp`m`p[AA[1]+1-AA[2],AA[3]]*Hyp`m`p[1+(AA[1]/2),AA[3]]);Hyp`m`Gleichung);
Sgl3233:=(ClearQ[Global`a,Global`b,Global`c];
   Hyp`m`LS=Hyp`m`F[{AA[1],AA[2],AA[3]},
       {1/2+AA[1]/2+AA[2]/2,2*AA[3]},1];
   Hyp`m`RS=Hyp`m`GAMMA[{1/2,AA[3]+1/2,1/2+AA[1]/2+AA[2]/2,1/2-AA[1]/2-AA[2]/2+AA[3]},
                        {1/2+AA[1]/2,1/2+AA[2]/2,1/2-AA[1]/2+AA[3],1/2-AA[2]/2+AA[3]}];
   Hyp`m`Gleichung);
Sgl3234:=(ClearQ[Global`c,Global`a,Global`d];
   Hyp`m`LS=Hyp`m`F[{AA[2],1-AA[2],AA[1]},
       {AA[3],1+2*AA[1]-AA[3]},1];
   Hyp`m`RS=Pi*2^(1-2*AA[1])*
      Hyp`m`GAMMA[{AA[3],1+2*AA[1]-AA[3]},
        {AA[2]/2+AA[3]/2,AA[2]/2+(1+2*AA[1]-AA[3])/2,1/2-AA[2]/2+AA[3]/2,1/2-AA[2]/2+(1+2*AA[1]-AA[3])/2}];Hyp`m`Gleichung);
Sgl3235:=(ClearQ[Global`a,Global`b,Global`n];
   Hyp`m`LS=Hyp`m`F[{AA[1],AA[2],-AA[3]},{1+AA[1]-AA[2],1+2*AA[2]-AA[3]},1];
   Hyp`m`RS=(Hyp`m`p[AA[1]-2*AA[2],AA[3]]*Hyp`m`p[1+AA[1]/2-AA[2],
   AA[3]]*Hyp`m`p[-AA[2],AA[3]])/(Hyp`m`p[AA[1]/2-AA[2],
   AA[3]]*Hyp`m`p[1+AA[1]-AA[2],AA[3]]*Hyp`m`p[-2*AA[2],
   AA[3]]);
   Hyp`m`Gleichung);
Sgl4306:=(ClearQ[Global`a,Global`b,Global`n];
   Hyp`m`LS=Hyp`m`F[{AA[1],1+AA[1]/2,AA[2],-AA[3]},{AA[1]/2,
   1+AA[1]-AA[2],1+2*AA[2]-AA[3]},1];
   Hyp`m`RS=Hyp`m`p[{AA[1]-2*AA[2],-AA[2]},{1+AA[1]-AA[2],-2*AA[2]},
   AA[3]];
   Hyp`m`Gleichung);
Sgl4307:=(ClearQ[Global`a,Global`b,Global`c];
   Hyp`m`LS=Hyp`m`F[{AA[1],1+AA[1]/2,AA[2],AA[3]},{AA[1]/2,1+AA[1]-AA[2],
   1+AA[1]-AA[3]},-1];
   Hyp`m`RS=(Hyp`m`GAMMA[1+AA[1]-AA[2]]*Hyp`m`GAMMA[1+AA[1]-AA[3]])/
   (Hyp`m`GAMMA[1+AA[1]]*Hyp`m`GAMMA[1+AA[1]-AA[2]-AA[3]]);
   Hyp`m`Gleichung);
Sgl4331:=(ClearQ[Global`a,Global`b,Global`c];
   Hyp`m`LS=Hyp`m`F[{AA[1],1+AA[1]/2,AA[2],AA[3]},{AA[1]/2,1+AA[1]-AA[2],
   1+AA[1]-AA[3]},1];
   Hyp`m`RS=Hyp`m`GAMMA[{1+AA[1]-AA[2],1+AA[1]-AA[3],1/2+AA[1]/2,
   1/2+AA[1]/2-AA[2]-AA[3]},{1+AA[1],1+AA[1]-AA[2]-AA[3],
   1/2+AA[1]/2-AA[2],1/2+AA[1]/2-AA[3]}];
   Hyp`m`Gleichung);
Sgl4332:=(ClearQ[Global`a,Global`b,Global`n];
   Hyp`m`LS=Hyp`m`F[{AA[1],1+AA[1]/2,AA[2],-AA[3]},{AA[1]/2,
   1+AA[1]-AA[2],2+2*AA[2]-AA[3]},1];
   Hyp`m`RS=(Hyp`m`p[-1+AA[1]-2*AA[2],AA[3]]*Hyp`m`p[-1-AA[2],
   AA[3]]*Hyp`m`p[1/2+AA[1]/2-AA[2],
   AA[3]])/(Hyp`m`p[-1-2*AA[2],
   AA[3]]*Hyp`m`p[-1/2+AA[1]/2-AA[2],
   AA[3]]*Hyp`m`p[1+AA[1]-AA[2],AA[3]]);
   Hyp`m`Gleichung);
Sgl5431:=(ClearQ[Global`a,Global`b,Global`c,Global`d];
   Hyp`m`LS=Hyp`m`F[{AA[1],1+(AA[1]/2),AA[2],AA[3],AA[4]},{(AA[1]/2),AA[1]+1-AA[2],AA[1]+1-AA[3],AA[1]+1-AA[4]},1];
   Hyp`m`RS=Hyp`m`GAMMA[{AA[1]+1-AA[2],AA[1]+1-AA[3],AA[1]+1-AA[4],AA[1]+1-(AA[2]+AA[3]+AA[4])},
             {AA[1]+1,AA[1]+1-(AA[2]+AA[3]),AA[1]+1-(AA[2]+AA[4]),AA[1]+1-(AA[3]+AA[4])}];Hyp`m`Gleichung);
Sgl5432:=(ClearQ[Global`a,Global`b,Global`c,Global`n];
   Hyp`m`LS=Hyp`m`F[{AA[1],1+(AA[1]/2),AA[2],AA[3],(-AA[4])},{(AA[1]/2),AA[1]+1-AA[2],AA[1]+1-AA[3],AA[1]+(1+AA[4])},1];
   Hyp`m`RS=Hyp`m`p[AA[1]+1,AA[4]]*Hyp`m`p[AA[1]+1-(AA[2]+AA[3]),AA[4]]/(Hyp`m`p[AA[1]+1-AA[2],AA[4]]*Hyp`m`p[AA[1]+1-AA[3],AA[4]]);Hyp`m`Gleichung);
Sgl6531:=(ClearQ[Global`a,Global`b,Global`c];
   Hyp`m`LS=Hyp`m`F[{-1/2+AA[1]/2+AA[2]/2+AA[3],
   3/4+AA[1]/4+AA[2]/4+AA[3]/2,AA[1],AA[2],AA[3],
   1/2+AA[1]/2+AA[2]/2-AA[3]},{-1/4+AA[1]/4+AA[2]/4+AA[3]/2,
   1/2-AA[1]/2+AA[2]/2+AA[3],1/2+AA[1]/2-AA[2]/2+AA[3],
   1/2+AA[1]/2+AA[2]/2,2*AA[3]},-1];
   Hyp`m`RS=Hyp`m`GAMMA[{1/2,1/2+AA[1]/2+AA[2]/2,1/2+AA[3],
   1/2+AA[1]/2-AA[2]/2+AA[3],1/2-AA[1]/2+AA[2]/2+AA[3]},
   {1/2+AA[1]/2,1/2+AA[2]/2,1/2-AA[1]/2+AA[3],1/2-AA[2]/2+AA[3],
   1/2+AA[1]/2+AA[2]/2+AA[3]}];
   Hyp`m`Gleichung);
Sgl6532:=(ClearQ[Global`a,Global`b,Global`d];
   Hyp`m`LS=Hyp`m`F[{AA[1],1+AA[1]/2,AA[2],1-AA[2],AA[3],1-AA[3]},
   {AA[1]/2,1+AA[1]-AA[2],AA[1]+AA[2],1+AA[1]-AA[3],
   AA[1]+AA[3]},-1];
   Hyp`m`RS=2^(2*AA[2])*Hyp`m`GAMMA[{1+AA[1]-AA[2],AA[1]+AA[2],
   1+AA[1]-AA[3],1+AA[1]/2+AA[2]/2-AA[3]/2,
   1/2+AA[1]/2+AA[2]/2+AA[3]/2,AA[1]+AA[3]},{AA[1],1+AA[1],
   1+AA[1]+AA[2]-AA[3],1+AA[1]/2-AA[2]/2-AA[3]/2,
   1/2+AA[1]/2-AA[2]/2+AA[3]/2,AA[1]+AA[2]+AA[3]}];
   Hyp`m`Gleichung);
Sgl7631:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`n];
   Hyp`m`LS=Hyp`m`F[{AA[1],1+(AA[1]/2),AA[2],AA[3],AA[4],
        2*AA[1]+1-(AA[2]+AA[3]+AA[4]+(-AA[5])),(-AA[5])},
       {(AA[1]/2),AA[1]+1-AA[2],AA[1]+1-AA[3],AA[1]+1-AA[4],AA[2]+AA[3]+AA[4]-AA[1]-AA[5],AA[1]+(1+AA[5])},1];
   Hyp`m`RS=Hyp`m`p[AA[1]+1,AA[5]]*Hyp`m`p[AA[1]+1-(AA[2]+AA[3]),AA[5]]*Hyp`m`p[AA[1]+1-(AA[2]+AA[4]),AA[5]]*Hyp`m`p[AA[1]+1-(AA[3]+AA[4]),AA[5]]/
      (Hyp`m`p[AA[1]+1-AA[2],AA[5]]*Hyp`m`p[AA[1]+1-AA[3],AA[5]]*Hyp`m`p[AA[1]+1-AA[4],AA[5]]*Hyp`m`p[AA[1]+1-(AA[2]+AA[3]+AA[4]),AA[5]]);Hyp`m`Gleichung);
Sgl7632:=(ClearQ[Global`a,Global`b,Global`n];
   Hyp`m`LS=Hyp`m`F[{AA[1],1+AA[1]/2,AA[2],1/2+AA[2],AA[1]-2*AA[2],
   1+2*AA[1]-2*AA[2]+AA[3],-AA[3]},{AA[1]/2,1+AA[1]-AA[2],
   1/2+AA[1]-AA[2],1+2*AA[2],-AA[1]+2*AA[2]-AA[3],1+AA[1]+AA[3]},
   1];
   Hyp`m`RS=Hyp`m`p[{1+AA[1],1+2*AA[1]-4*AA[2]},{1+AA[1]-2*AA[2],
   1+2*AA[1]-2*AA[2]},AA[3]];
   Hyp`m`Gleichung);
Sgl3261:=(ClearQ[Global`a,Global`b,Global`c,Global`d];
   f=AA[1]+AA[2]+AA[3]+1-AA[4];
   Hyp`m`LS=Hyp`m`F[{AA[1],AA[2],AA[3]},{AA[4],f},1]+
    Hyp`m`GAMMA[{AA[4]-1,AA[1]+1-AA[4],AA[2]+1-AA[4],AA[3]+1-AA[4],f},{1-AA[4],AA[1],AA[2],AA[3],1+f-AA[4]}]*
      Hyp`m`F[{AA[1]+1-AA[4],AA[2]+1-AA[4],AA[3]+1-AA[4]},{2-AA[4],1+f-AA[4]},1];
   Hyp`m`RS=Hyp`m`GAMMA[{AA[1]+1-AA[4],AA[2]+1-AA[4],AA[3]+1-AA[4],f},{1-AA[4],f-AA[1],f-AA[2],f-AA[3]}];Hyp`m`Gleichung);
Sgl3291:=(ClearQ[Global`a,Global`b,Global`c];
   Hyp`m`LS=Hyp`m`F[{AA[1],AA[2],1+AA[1]-2*AA[3]},{1+AA[1]-AA[3],
   2*AA[2]},1]+Hyp`m`F[{1-AA[2],1+AA[1]-2*AA[2],
   2+AA[1]-2*AA[2]-2*AA[3]},{2+AA[1]-2*AA[2]-AA[3],
   2-2*AA[2]},1]*Hyp`m`GAMMA[{1/2+AA[1]/2-AA[2],
   1+AA[1]/2-AA[2],-1/2+AA[2],1+AA[1]-AA[3],
   1+AA[1]/2-AA[2]-AA[3],3/2+AA[1]/2-AA[2]-AA[3]},{1/2+AA[1]/2,
   AA[1]/2,1/2-AA[2],1/2+AA[1]/2-AA[3],1+AA[1]/2-AA[3],
   2+AA[1]-2*AA[2]-AA[3]}];
   Hyp`m`RS=Hyp`m`GAMMA[{1/2,1/2+AA[1]/2-AA[2],1+AA[1]-AA[3],
   1+AA[1]/2-AA[2]-AA[3]},{1/2+AA[1]/2,1/2-AA[2],
   1+AA[1]/2-AA[3],1+AA[1]-AA[2]-AA[3]}];
   Hyp`m`Gleichung);
Sgl7691:=(ClearQ[Global`a,Global`b,Global`c,Global`d,Global`e];
   f=2*AA[1]+1-(AA[2]+AA[3]+AA[4]+AA[5]);
   Hyp`m`LS=Hyp`m`F[{AA[1],1+(AA[1]/2),AA[2],AA[3],AA[4],AA[5],f},
       {(AA[1]/2),AA[1]+1-AA[2],AA[1]+1-AA[3],AA[1]+1-AA[4],AA[1]+1-AA[5],AA[1]+1-f},1]+
    Hyp`m`GAMMA[{AA[1]-AA[2],AA[1]+1-AA[3],AA[1]+1-AA[4],AA[1]+1-AA[5],AA[1]+1-f,AA[2]+AA[3]-AA[1],AA[2]+AA[4]-AA[1],AA[2]+AA[5]-AA[1],AA[2]+f-AA[1],2*AA[2]+1-AA[1]},
          {AA[1]+1,AA[2]-AA[1],AA[3],AA[4],AA[5],f,AA[2]+1-AA[3],AA[2]+1-AA[4],AA[2]+1-AA[5],AA[2]+1-f}]*
      Hyp`m`F[{2*AA[2]-AA[1],1+AA[2]+(-AA[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]/2),AA[2]+1-AA[1],AA[2]+1-AA[3],AA[2]+1-AA[4],AA[2]+1-AA[5],AA[2]+1-f},1];
   Hyp`m`RS=Hyp`m`GAMMA[{AA[1]+1-AA[3],AA[1]+1-AA[4],AA[1]+1-AA[5],AA[1]+1-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[1]+1,AA[2]-AA[1],AA[1]+1-(AA[3]+AA[4]),AA[1]+1-(AA[3]+AA[5]),AA[1]+1-(AA[3]+f),AA[1]+1-(AA[4]+AA[5]),AA[1]+1-(AA[4]+f),AA[1]+1-(AA[5]+f)}];Hyp`m`Gleichung);



End[]

Protect[
Sgl1001,
Sgl2101,
Sgl2103,
Sgl2104,
Sgl2131,
Sgl2132,
Sgl3201,
Sgl3231,
Sgl3232,
Sgl3202,
Sgl3233,
Sgl3234,
Sgl5431,
Sgl5432,
Sgl7631,
Sgl3261,
Sgl7691,
SumListe$gl
]

EndPackage[]

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