load "function_degrees.m";
load "X1_37_AFF.m";

print("Calculation 1 takes about 12680 seconds....");
&cat[FunctionDegrees(cuspsum + plc1[1] + P) : P in Places(AFF,11) cat Places(AFF,12)];

print("Calculation 2 takes about 48154 seconds....");
&cat[FunctionDegrees(cuspsum + plc1[1] + P + Q) : P in plc1, Q in Places(AFF,10)];

print("Calculation 3 takes about 768 seconds....");
&cat[FunctionDegrees(cuspsum + 3*plc1[1] + P) : P in Places(AFF,9)];

print("Calculation 4 takes about 16477 seconds....");
l:=[FunctionDegrees(2*cuspsum + plc1[1] + P) : P in Places(AFF,9)];
Min(&cat l);

print("Calculation 5 takes about 10745 seconds....");
&cat[FunctionDegrees(cuspsum + 4*plc1[1] + 2*P + Q) : P in plc1, Q in Places(AFF,7)];

print("Calculation 6 takes about 151583 seconds....");
&cat[FunctionDegrees(cuspsum + plc1[1] + 3*&+PQ + R) : PQ in Subsets(SequenceToSet(plc1[2..18]),2), R in Places(AFF,7)];

print("Calculation 7 takes about 2790 seconds....");
l:=[FunctionDegrees(2*cuspsum + plc1[1] + P) : P in Places(AFF,7)];
Min(&cat l);

print("Calculation 8 takes about 8758 seconds....");
&cat[FunctionDegrees(cuspsum + P + Q) : P,Q in Places(AFF,6)];

print("Calculation 9 takes about 16330 seconds....");
&cat[FunctionDegrees(cuspsum + 5*plc1[1] + 3*P + Q) : P in plc1, Q in Places(AFF,6)];

print("Calculation 10 takes about 129666 seconds....");
&cat[FunctionDegrees(cuspsum + 4*plc1[1] + 2*&+PQ + R) : PQ in Subsets(SequenceToSet(plc1[2..18]),2), R in Places(AFF,6)];

print("Calculation 11 takes about 58089 seconds....");
l:=[FunctionDegrees(2*cuspsum + plc1[1] + P + Q) : P in plc1, Q in Places(AFF,6)];
Min(&cat l);


