Re: FunctionCall in TextCell einfügen

[Rolf Mertig <rolf.mertig@XXXXXXX.com>]

Hallo,
ja, klar, kein Problem:

Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"a", "=", "10"}], ";",
  RowBox[{"b", "=", "20"}]}]], "Input"],
Cell[TextData[{
 "Die Fläche ",
 " des Rechtecks beträgt: ",
 " ",
 Cell[BoxData[
  DynamicBox[ToBoxes[$CellContext`a $CellContext`b, StandardForm],
   ImageSizeCache->{33., {0., 11.}}]], "Output"]
}], "Text"]
}
]


Rolf Mertig
GluonVision GmbH
Berlin

Am 10.04.2012 00:55, schrieb John:
> Hallo,
>
> ich versuche in Mathematica folgendes Problem zu lösen:
>
> InputCell(1): a=20; b=10;
> TextCell(1): Die Fläche des Rechtecks beträgt: A = a*b
>
> Nach evaluieren sollte, dann in der TextCell  "Die Fläche des Rechtecks
> beträgt: A=100" stehen.
>
> Diese TextCell will ich dann an eine WordDatei senden.
>
> Ist die möglich - FunktionCalls oder Expression in TextCells
> auszuwerten?
>
> PS: Wäre dies möglich so wäre Mathematica für ein sehr breites Publikum
> sehr gut nutzbar.
>
>
> lg John