In a message dated 7/12/2000 11:36:27 PM, piovere at pdq.net writes:
>In "Mathematica, A Practical Approach" (p. 146) the author tells how
>to label a plot with the line that generates it. Running the
>following line before a plot:
>
>SetOptions[{Plot, ListPlot}, PlotLabel :> ToString[Recall[$Line]]];
>
>apparently used to work. Now (ver 4.0), I get "Recall[the line
>number]" instead of the line itself. The Help shows no evidence of
>Recall[] so I assume the command has been dropped.
>
>This would be neat to use -- anyone know of a replacement for this
>functionality?
>
Use InString
SetOptions[{Plot, ListPlot}, PlotLabel :>
StringReplace[InString[$Line], {";" :> "", "\\(" :> "", "\\)" :> ""}]
];
Plot[3x, {x, 0, 5}];
Bob Hanlon