## 14 Badges

18 years, 83 days

## Maple types. ...

Maple

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;

## Real roots of a polynomial....

Maple

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.

## NULL response. Correction needed....

Maple 2017

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]});

## Suitable replacement for eliminate....

Maple

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.

## What is the expected correct outcome of ...

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

 First 6 7 8 9 10 11 Page 8 of 11
﻿