CAS: math expresion -> logical evaluation

[Didier Lachieze]

What about :

Code:

EXPORT EvalLogic(expression)
BEGIN
  LOCAL s;
  s:=REPLACE(STRING(expression),"=","==");
  CAS(s);
END;

EvalLogic('0=0') -> 1
EvalLogic('0=1') -> 0
EvalLogic('10*e^5-10*e^10=0') -> 0

And in CAS mode you can also evaluate expressions with undefined variables :

EvalLogic('2*x = x+x') -> 1

[Edited to support undefined variables]