2013-09-11 5 views

ответ

0
(%i15) equal('x,5); 
(%o15)       equal(x, 5) 
... 
(%i18) tex(part(%o15,1)=part(%o15,2)); 
$$x=5$$ 
(%o18)        false 
(%i19) 
0
texequal(e):= block([a, b], [a, b]: args(e), concat(tex1(a), "=", tex1(b)))$ 
texput(equal, texequal)$ 

expr: equal(x, 5)$ 
tex(expr)$ 
0
texput (equal, "=", infix); 
tex (equal (x, 5)); 
    => $$x=5$$