MathGroup Archive 2011

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Recognize multiple outputs

  • To: mathgroup at smc.vnet.net
  • Subject: [mg118063] Re: Recognize multiple outputs
  • From: ADL <alberto.dilullo at tiscali.it>
  • Date: Mon, 11 Apr 2011 07:06:01 -0400 (EDT)
  • References: <inpesa$8t8$1@smc.vnet.net> <inqkvf$e95$1@smc.vnet.net>

On 10 Apr, 00:01, Helen Read <read... at gmail.com> wrote:
> On 4/9/2011 7:11 AM, mail... at gmail.com wrote:
>
> > Is it possible to show the name of the variables in the output cell?
> > For example, currently I have
> > [In1] a=10^2
> > [Out1] 100
>
> > I want it to be
> > [Out1] a=100
>
> > The reason for this is when we have multiple lines of calculation in
> > an input cell,
> > sometimes it is hard to recognize which number is which,
> > especially when the input cell has several pages and the calculations
> > are scattered in the cell.
>
> Use Row to mix strings with expressions.
>
> a = 10^2;
> Print[Row[{"a = ", a}]];
> g[x_] := x^3;
> Print[Row[{"g(x) = ", g[x]}]];
> Print[Row[{"g'(x) = ", g'[x]}]];
> Print[Row[{"g'(a) = ", g'[a]}]];
>
> --
> Helen Read
> University of Vermont


Another possibility is this:

ClearAll[xPrint];
Attributes[xPrint]={HoldAll,Listable};
xPrint[x_]:=(Print[HoldForm[x]," =",Tab,x]; x);
xPrint[x__]:=sPrint/@Unevaluated[x];

(* a ha no value *)
xPrint[a];
a =	a

a=100

xPrint[a];
a =	100


ADL


  • Prev by Date: Re: from Rumen, MEXICO, petition
  • Next by Date: Re: from Rumen, MEXICO, petition
  • Previous by thread: Re: Recognize multiple outputs
  • Next by thread: Re: Recognize multiple outputs