Re: Help with output form?

*To*: mathgroup at smc.vnet.net*Subject*: [mg60986] Re: Help with output form?*From*: ted.ersek at tqci.net*Date*: Thu, 6 Oct 2005 04:08:27 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

A user wanted to make it so that evaluating (lhs=rhs) would make the assignment and show lhs=rhs in the output instead of just rhs. The following more or less does this. In[1]:= Unprotect[Set]; $ModifySet=True; (lhs_=rhs_)/;$ModifySet:= Block[{$ModifySet}, lhs=rhs; HoldForm[lhs=rhs] ] Protect[Set]; In[5]:= y=Expand[(a+b)^2] Out[5]= y = a^2 + 2 a b + b^2 But then you will have trouble if you use the above output cell to make a new input expression. That can be fixed if you use a package I have posted at http://library.wolfram.com/infocenter/MathSource/705/ Then change HoldForm above to HoldTemporary. ---------- Regards, Ted Ersek

**Follow-Ups**:**Re: Re: Help with output form?***From:*Andrzej Kozlowski <andrzej@yhc.att.ne.jp>