4 lines
123 B
Text
4 lines
123 B
Text
maprange(a, b, c, d) := buildq([e: ratsimp(('x - a)*(d - c)/(b - a) + c)],
|
|
lambda([x], e))$
|
|
|
|
f: maprange(0, 10, -1, 0);
|