Christian Wolinski

MaplePrimes Activity

These are questions asked by Christian Wolinski

What Maple type should I use so that test1 and test2 are always equal? (I use Maple 2017)


test1 := proc(x) type([op('x')], identical(['x'])) end;
MapleType := anything;
test2 := proc(x) type(x, MapleType) end;


What is a good way to generate a random, high degree polynomial with integer coefficients, that has a high number of real roots. Example a degree 800 with 600 real roots. I am not looking for a mul application.

Why does this code return NULL? Which, earlier than 2017 version of Maple differs? What other Maple function could be used in place of eliminate for the general case?


eliminate({x[5] = x[2] / x[1], x[6] = x[3] / x[2], x[7] = x[1] / x[4], x[8] = (2 * x[2] + x[4]) / (2 * x[1] + x[3] + x[4])}, {x[1], x[2], x[3], x[4], x[8]});


What is a suitable replacement for eliminate?

Here is my code:


A := {x[5] = x[2]/x[1], x[6] = x[3]/x[2], x[7] = x[1]/x[4], x[8] = (2*x[2]+x[4])/(2*x[1]+x[3]+x[4])};
B := {x[1], x[2], x[3], x[4], x[8]};

([eliminate])(A, B);
([eliminate])(A, B minus {x[1]});
([solve])(A, B);

In the older versions of Maple the first example of eliminate would return same result as the solve example, but with current version I need to resort to the second example.


typematch({2}, set({x :: integer, y :: even}), 's'), s;


First 6 7 8 9 10 11 Page 8 of 11