CoCoA:HowTo:Randomize Coefficients

Question

The coefficients of a "Randomized" polynomials are too big for my purposes

  Use R ::= Q[x,y,z];
  Randomized(x-yz);
2129104241yz - 2703411994x
-------------------------------

What can I do?

Answer

This function will produce a randomized polynomial with "small" random coefficients

  Define MyRandomized(F, Range)
    Return Sum([ Rand(-Range,Range)*T | T In Support(F)]);
  EndDefine;

  MyRandomized(x-yz, 4);
2yz + 6x
-------------------------------