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

print("Calculation 1....");
[Dimension(cuspsum + 6*plc1[1] + 2*P) : P in plc1];

print("Calculation 2....");
s:=[FunctionDegrees(2*cuspsum + 4*plc1[1] + 2*P) : P in plc1];
Min(&cat s);

print("Calculation 3....");
&cat [FunctionDegrees(cuspsum + 3*plc1[1] + 2*(&+PQ)) : PQ in Subsets(SequenceToSet(plc1[2..18]),2)];

print("Calculation 4....");
Min(FunctionDegrees(3*cuspsum-4*plc1[1]));
