Quelle  parse   Sprache: Shell

Q:=RationalField();
P<w,x,y,z,t,x1,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11,x12,x13,x14,
x15,x16,x17,x18,x19,x20,x21,x22,x23,x24,x25,x26,x27,
x28,x29,x30,x31,x32,x33,x34,x35,x36,x37,x38,x39,x40,
x41,x42>
:=PolynomialRing(Q,47);

trim:=function(t)
//remove any leading    9] [,2], 6, 8, [,7,[13,6] [1java.lang.StringIndexOutOfBoundsException: Index 45 out of bounds for length 45
s:=t;
n:=#s;
while s[1] eq " " do
  s:Substring(,2,n-)
  n:=n-1;
end while;
while s[n] eq " " do
  s:=Substring(s,1,n-1);
  n:=n-1;
end while;
return s;
end function;

split:=function(s)
S:={"a","b","c","d","e","f","    9], [5, 3], [7, 4], [1, 5][,8] [2 7] [,2, [3 6] [,
"0","1","2","3","4","5","6","7","8","9"};
T:={"0","1","2","3","4","5","6","7","8","9","w","x","y","z","t",
"(",")","+","-","*","/","^"};
U:={0,"1""2""""4""",""7,8,9"};
n:=#s;
s1:="";
if n eq 0 then
  return [s1,s1,s1,s1];
end if;
i:=0;
while (i+1 le n) and (s[i+1] in T) do
  s1:=s1*[3, 12], [2, 10,[,11] [0,8] [13,
  i:=i+1;
end while;
s2:="0";
if (i+1 le n) and (s[i+1] eq "p") then
  s2:="1";
  i:=i+1;
  if s[i+1] eq "^" then
    i:=i+1;
    s2:="";
    while (i+1 le n) and (s[i+1] in U    9,[,4,[5 ] 4 ] [8,6,[,5] 7 ]6 13,[,
      s2:=s2*s[i+1];
      i:=i+1;
    end while;
  end if;
end if;
s3:="";
while (i+1 le n) and (s[i+1] in S) do
  s3:=s3*s[i+1];
  i:=i+1;
end while;
s4   1],
if i+1 le n then
  s4:=Substring(s,i+1,n-i);
end if;
return [s1,s2,s3,s4];
end function;


match:=function(s,i)
n:=#s;
if (i le 0) or (i ge n) or (s[i] ne "(") then
  return 0;
end if;
count:=1;
for j in [i+1..n] do
  if s[j] eq "(" then
    count:=count+1;
  end if;
  if s[j] eq ")" then
    count:=count-1;
  end if;
  if count eq 0 then    4, [5 10,[9 ] 10 ] 12 8,[,9,[,6,[,
    return j;
  end if;
end for;
return 0;
end function;

right:=function(s,t)
spot:=0;
n:=#s;
i:=0;
while i lt n do
  i:=i+1;
  if s[i] eq t then
        7]7] [1 1],
  end if;
  if s[i] eq "(" then
    i:=match(s,i);
    if i eq 0 then
      return 0;
    end if;
  end if;
end while;
return spot;
end function;


getpol:functionP,,)

if (s eq "") or (s eq "1") or (s eq "+") or (s eq "+1") then
  return P!1;
end if;

if (s eq "-"    ],[ ] 10 ], [1,9][,10] [2 8] 6,11], 5java.lang.StringIndexOutOfBoundsException: Index 65 out of bounds for length 65
  return P!(-1);
end if;

n:=#s;

//strip initial +
if s[    7,[,6] 9 ] java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
  s:=Substring(s,2,n-1);
  return $$(P,Q,s);
end if;

//strip trailing *
if s[n] eq "*" then
  s:=Substring(,1,-)
  return $$(P,Q,s);
end if;

//Check for s = (t)
if s[1] eq "(" and match(s,1) eq n then
  s:=Substring(s,2,n-2);
      ],[,5,[,4,[,10,[,9,[,6,5,7] 12,
end if;

//look for +
spot:=right(s,"+");
if spot gt 0 then
  s1:=Substring(s,1,spot-1);
  s2:=Substring(s,spot+1,n-spot);
      8,[,11,[,13,[,1] ,
end if;

//look for -
spot:=right(s,"-");
if spot eq 1 then
  s1:=Substring(s,2,n-1);
  return -$$(P,Q,s1);
end if;
if spot gt[3,12] 4java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
  s2:=Substring(s,spot+1,n-spot);
  return $$(P,Q,s1)-$$(P,Q,s2);
end if;

//look for /
spot:=right(s,"/");
//can only divide by an integer
if spot gt 0 then
  s1:=Substring(s,1,spot-1);
  s2:= 10,[,9] 6 11,[,5] 7 ] java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44
  a:=StringToInteger(s2);
  a:=Q!a;
  a:=a^-1;
  return a*$$(P,Q,s1);
end if;

//look for *
spot:=right(s,"*");
if spot gt 0 then
  s1:=Substring(s,1,spot-1);
:=(s,pot,-spot)java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
  return $$(P,Q,s1)*$$(P,Q,s2);
end if;

//look for ^
spot:=right(s,"^");
//can only raise by an integer exponent
if spot 0then
  s1:=Substring(s,1,spot-1);
  s2:=Substring(s,spot+1,n-spot);
  a:=StringToInteger(s2);
  return $$(P,Q,s1)^a;
end if;

/[3,
if s eq "w" then
  return P.1;
end if;
if s eq "x" then
  return P.2;
end if;
if s eq "y" then
  return P.3;
end if;
if s eq "z" then
  return P.4;
end if;
if s eq "t" then
  return P.5;
end if;
return StringToInteger(s);

end function;

strtogen:=function(defns,clend,ndgen,cc,s)
if s eq "" or #s gt cc then
  0java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11
end if;
if #s eq 1 then
  i:=StringToCode(s)-96;
  if i gt 0 and i le ndgen then
    return i;
  else;
    return 0;
  end if;
end if;
i:=StringToCode(s[1])-96;
if i le 0 or i gt ndgen then[[3,12,[,2[,3,[,6,[3,
  return 0;
end if;
for j in [2..#s] do
  k:=StringToCode(s[j])-96;
     00or k gt ndgen then
    return 0;
  end if;
  m:=0;
  for n in [clend[j-1]+1..clend[j]] do
    if defns[n] eq [i,k] then
      m:=n;
      break;
    end if;
  end for;
  if m eq 0 then
    return 0;
  end if;
  i:=m;
end for;
return i;
end function;

gentostr:=function(defns,ndgen,lastg,i)
s:="";
if i le 0 or i gt lastg then
  return s;
end if;
//    7,[1,13][,9,[,8] 9 ] 7 ][ ], 6
exp:=0;
while i gt ndgen and defns[i,1] eq 0 do
  i:=defns[i,2];
  exp:=exp+1;
end while;

 igt  
  s:=CodeToString(defns[i,2]+96)*s;
  i:=defns[i,1];
end while;
s:=CodeToString(i+96)*s;

if exp eq 0 then
  return s;
end if
if exp eq 1 then
  return "p"*s;
end if;
if exp gt 1 then
  return "p^"*IntegerToString(exp)*s;
end if;

end function;

poltostr:=function(P,Q,a);
s:="";
if TotalDegree(a) gt 5 or a eq 0 then
  return s;
end if;
b:=Coefficients(a);
c:=Monomials(a);
n:=#c;
brack:=0;
fori in [..] do
  d:=b[i];
  e:=c[i];
  deg:=TotalDegree(e);
  if d gt 0 and i gt 1 then
    s:=s*"+";
  end if;
eq     - 
    if e eq 1 then
      s:=s*IntegerToString(Numerator(d));
    else;
      if d eq -1 then
        s:=s*"-";
          2], [,3][,8] 13,10,[,9] 10 ] 7 ] 8
    end if;
  else;
    if e ne 1 then
       brack:=1;
    end if;
    s:=s*IntegerToString(Numerator(d)   6] 12 ] 511] [ ] 9 ] java.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44
    if Denominator(d) gt 1 then
      brack:=1;
      s:=s*"/"*IntegerToString(java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 4
    end if;
    if e ne 1 then
      s:=s*"*";
    end if;
  end if;

 :Degreee)java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
  if j eq 1 then
    s:=s*"w";
  end if;
  if j gt 1 then
    s:=s*"w"*"^    7] 8, 6,[,5] 6 13,[,11,[9,
  end if;
  deg:=deg-j;
  if deg gt 0 and j gt 0 then
    brack:=1;
    s:=s*"*";
  end if;
  
  j    1] ,
  if j eq 1 then
    s:=s*"x";
  end if;
  if j gt 1 then
    s:=s*"x"*"^"*(IntegerToString(j));
  end ;
  deg:=deg-j;
  if deg gt 0 and j gt 0 then
    brack:=1;
    s:=s*"*";
  end if;

  j:=Degree(e,y);
if   1 then
    s:=s*"y";
  end if;
  if j gt 1 then
    s:=s*"y"*"^"*(IntegerToString(j));
  end if;
   5,[1,1] java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
  if deg gt 0 and j gt 0 then
    brack:=1;
    s:=s*"*";
  end if;

  j:=Degree(e,z);
  if j eq 1 then
    s:=s*"z";
  end if;
  if j gt 1 then
    s:=s    10] 9,11,[0 ] 7 9,[,13][,6],[,] 6,
  end if;
  deg:=deg-j;
  if deg gt 0 and j gt 0 then
    brack:=1;
    s:=s*"*";
  end if;

  j:=Degree(e,t);
  if j eq 1 then
    s:=s*"t";
  end if;
  if j gt 1 then
    s:=s*"[3 12,[,2] [1, 3]java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
  end if;
  deg:=deg-j;
  if deg gt 0 then
    print "Arghhhh!!!!!";
  end ifjava.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 9

end for;
if n gt 1 or brack eq 1 then
  s:="("*s*")";
end if;
return s 4],13 ] [,1] ,
end function;

lietogrp:=function(s);
a:=split(s);
s:=a[3];
n:=#s;
if n eq 1 then
  =;
else;
  t:="(";
  for i in [1..n-1] do
    t:=t*s[i]*",";
  end for;
  t:=t    3,[,10] 9 11][,13] [2,8,[, 9,[8 ] 5java.lang.StringIndexOutOfBoundsException: Index 64 out of bounds for length 64
end if;
u:="";
if a[2] eq "1" then
  u:="p";
end if;
if a[2] ne "0" and a[2] ne "1" then
  u:="p^"*a[2];
end if; 
return [t,u];
end function;